[20:24] Tcl error [kickcheck]: unknown math function "kick"
Here is the Code :
Code: Select all
bind kick "-" "% *" kickcheck
proc kickcheck {nick host hand chan victim reason} {
global kick
putlog "start"
if {![matchattr $hand m|m $chan] && $nick != $botnick } {
if {![info exists kick($chan)]} {
putlog "1"
set kick($chan) 1
putlog "2"
utimer 3 [list unset kick($chan)]
putlog "3"
} else {
incr kick($chan)
putlog "4"
}
if { kick($chan) >= 5 } {
putlog "5"
if {[onchan Q $chan]} {
putlog "6Q"
putquick "PRIVMSG Q :deopall $chan"
putserv "PRIVMSG $chan: Channel Cleared do Kick Flood"
}
if {[onchan L $chan]} {
putlog "6L"
putquick "PRIVMSG L :deopall $chan"
putserv "PRIVMSG $chan: Channel Cleared do Kick Flood"
}
}
}
putlog "7"
}