egghelp.org community

[gamble27]

hello all,basically im using this tcl and its working fine,however i want to exempt certain nicks from being kicked,so basically i need help to create exempts.. script is listed below,thanks for attention and help

bind ctcr - VERSION version:reply
bind join - * check:version

proc check:version {nick uhost hand chan} {
global cversion
set cversion([string tolower $nick]) 1
putserv "PRIVMSG $nick :\001VERSION\001"
utimer 60 [list no:version:reply $nick $uhost $chan]
}

proc version:reply {nick uhost hand dest kw arg} {
global cversion
if {[info exists cversion([string tolower $nick])]} {
unset cversion([string tolower $nick])
}
}


proc no:version:reply {nick uhost chan} {
global cversion
if {[info exists cversion([string tolower $nick])] && [onchan $nick $chan]} {
putserv "MODE $chan +b *!*@[lindex [split $uhost @] 1]"
putserv "KICK $chan $nick : Spam."
unset cversion([string tolower $nick])
}
}


putlog "Version Kicker"