bind pub - !kur pub_kurban proc pub_kurban {nick uhost hand chan kur} { set whom [lindex $kur 0] set mask [string trimleft [maskhost [getchanhost $whom $chan]] *!] set mask *!*$mask if {[isop $whom $chan] == 1} { putserv "MODE -o+b $whom $mask" putserv "KICK $whom :[lrange $kur 1 end]" } else { putserv "MODE +b $whom $mask" putserv "KICK $whom :[lrange $kur 1 end]" } }