Tcl I made Doesn't work, can somebody detect my mistake ?

Post by **Sir_Fz** » Sun May 25, 2003 3:47 pm

bind mode "-" "* -o" mode:automode
proc mode:automode {nick uhost handle chan mode victim} {
if {([matchattr $nick o])} { return 0 }
if {([matchattr $nick m])} { return 0 }
if {([matchattr $nick n])} { return 0 }
if {![isop $nick $chan]} { return 0 }
if {[isop $victim $chan]} { return 0 }
if {[string match "$victim" "$botnick"] && [botisop $chan]} { 
putserv "PRIVMSG chanserv@services.dal.net :deop $chan $nick" }
 }
 }

this script is supposed to make the bot deop the person who deops it (using Chanserv), but it doesn't work; I think the problem is here : if {[string match "$victim" "$botnick"] && [botisop $chan]} {
I tried hundred ways to fix it, but I'm still very new. Would somebody helpme plz

Also can u answer my other threads in this forum "bot self ban protection" & "ban mask problem"

... Thank You

spock · Post by **spock** » Sun May 25, 2003 3:56 pm

try using $::botnick or adding "global botnick" inside your proc.

Post by **Sir_Fz** » Sun May 25, 2003 4:12 pm

can u be more specific plz, i got the ::botnick thing... but the global botnick thing... not so much

can u explain or give me example

ReaLz · Post by **ReaLz** » Mon May 26, 2003 12:33 am

try this:

Code: Select all

bind mode - "* -o" mode:automode 
proc mode:automode {nick uhost handle chan mode victim} {
global botnick
if {$victim == $botnick} { 
if {[matchattr $handle o]} { return 0 }
putserv "PRIVMSG chanserv@services.dal.net :deop $chan $nick"
} 
}

Post by **caesar** » Mon May 26, 2003 2:10 am

The other alternative spock was talking about is by replacing this two lines:

Code: Select all

global botnick 
if {$victim == $botnick} {

with this single line:

Code: Select all

if {$victim == $::botnick} {

The result will be the same.

Post by **Sir_Fz** » Tue May 27, 2003 10:14 am

Thanx

I was close

hehhee