Code:

bind ctcr - VERSION version:reply bind join - * check:version proc check:version {nick uhost hand chan} { if {[isop $nick $chan] || [isvoice $nick $chan] || [matchattr $hand Pfov|Pfov $chan]} { return 0 }global cversion chattr proxychk +|+P $chan set cversion([string tolower $nick]) 1 putserv "PRIVMSG $nick :\001Version\001" utimer 90 [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"