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 $chan -o+b $whom $mask" putserv "KICK $chan $whom :[lrange $kur 1 end]" } else { putserv "MODE $chan +b $whom $mask" putserv "KICK $chan $whom :[lrange $kur 1 end]" } }