what am i doing wrong

[BhasIRC]

Hi..

ok i need the following code to kick users who slap the bot with a slap msg maybe if it can be done were the slap msg is diff for each kick

here is my code

Code: Select all

bind ctcp - ACTION slap:back 

proc slap:back {nick uhost hand chan kw arg} { 
 if {![validchan $chan]} {return 0} 
 if {[string match "*slap* $botnick *" $arg]} { 
  puthelp "KICK $chan $nick :test" 
 } 
} 

Thanks in advance
Zainul

[nml375]

First off, you are accessing $botnick as a local variable (which does not exist at that point of execution), rather than access the global $::botnick.
Secondly, you probably intended the match to be case insensitive. String match cares 'bout case by default, but you can use the -nocase option to instruct it to not care for case:

Code: Select all

bind ctcp - ACTION slap:back

proc slap:back {nick uhost hand chan kw arg} {
 if {![validchan $chan]} {return 0}
 if {[string match -nocase "*slap* $::botnick *" $arg]} {
  puthelp "KICK $chan $nick :test"
 }
}

[BhasIRC]

thank alot works great