Bot should reop - Help with this script

darton · Post by **darton** » Sun Feb 26, 2006 12:28 pm

Hello!
With this script my bot should reop itself, if it hasn't got op status. But it does not work. What's wrong with it?

Code: Select all

proc needop {n u h c m t} {
global botnick 
if {[botisop $chan]=="0"}
{putquick "PRIVMSG ChanServ :op $c"}
}

demond · Post by **demond** » Sun Feb 26, 2006 3:11 pm

bound to nothing

darton · Post by **darton** » Sun Feb 26, 2006 3:40 pm

What? What's bound? I'm german, so my english isn't that good.
I only want that my bot get op when it does not have op. Is the script I made wrong?

Post by **caesar** » Sun Feb 26, 2006 4:56 pm

Please check the TCL Archive for a script that suits your needs, there should be a tone of them.

Post by **Sir_Fz** » Sun Feb 26, 2006 6:14 pm

Code: Select all

.chanset #chan need-op putquick "privmsg ChanServ :op #chan"

darton · Post by **darton** » Mon Feb 27, 2006 7:34 am

Thanks Sir_Fz. I thought that this option will flood the services, but now I have found out that it only get OP again when it is deoped.

darton · Post by **darton** » Thu Mar 09, 2006 10:39 am

Now, just a simple question. How can I disable the need-op command.
".chanset #chan -need-op" doesn't work.

Post by **caesar** » Thu Mar 09, 2006 1:41 pm

Code: Select all

.chanset #chan need-op

should do.

darton · Post by **darton** » Wed Mar 22, 2006 10:45 am

Is there also a possibility to get halfop?

Code: Select all

.chanset #chan need-halfop putquick "privmsg ChanServ :halfop #chan"

This code doesn't work.

Post by **caesar** » Wed Mar 22, 2006 11:27 am

Probably because 'need-halfop' dosen't even exist.

darton · Post by **darton** » Wed Mar 22, 2006 11:37 am

Yes I know.
But why does this script not work?

Code: Select all

set active #SODclan
proc needhalfop {nick uhost hand chan arg} { 
if {[string equal -nocase $chan $::active]} { 
if {[botisop $chan] == 0} {
  putquick "PRIVMSG ChanServ :halfop $chan
  return 0    
  }
 }
}

Post by **Sir_Fz** » Wed Mar 22, 2006 11:37 am

need-halfop is not supported by eggdrop1.6.17, you need a script for that.

Code: Select all

# check every how many seconds?
set nhotime 30

if {[timerexists needhop]==""} {
 utimer $nhotime needhop
}

setudef str need-halfop

proc needhop {} {
 global botnick
 foreach chan [channels] {
  if {![botishalfop $chan] && [set nho [channel get $chan need-halfop]] != ""} {
   set queue [lindex [split $nho] 0]
   set switch [lindex [split $nho] end]
   if {![string equal -nocase "-next" $switch]} {
    set cmd [string trimleft [join [lrange [split $nho] 1 end]] \"]
    set cmd [string trimright $cmd \"]
    set switch "-normal"
   } {
    set cmd [string trimleft [join [lrange [split $nho] 1 end-1]] \"]
    set cmd [string trimright $cmd \"]
   }
   $queue [subst $cmd] $switch
  }
 }
 utimer $::nhotime needhop
}

Usage:

.chanset #channel need-halfop putquick "ChanServ :halfop #channel $botnick"

Edit: Fixed the missing bracket.

darton · Post by **darton** » Wed Mar 22, 2006 12:06 pm

Hm...Whats that?
(17:04:40) Tcl error in script for 'timer30':
(17:04:41) unknown putquick option: should be one of: -normal -next

Alchera · Post by **Alchera** » Wed Mar 22, 2006 12:14 pm

Check punctuation of putquick command i.e. closing quotes etc.

darton · Post by **darton** » Wed Mar 22, 2006 12:23 pm

When I type .chaninfo, the bot says:
User defined channel strings:
need-halfop: {putquick "ChanServ :halfop #SODclan $botnick"}

I think everything is OK, but I think it has to be {putquick "PRIVMSG..."}