set operchan "#operkanali"
 
bind pub - !kbtum tum:kickle
 
proc tum:kickle { n u h c a } {
global operchan
if {![onchan $n $operchan]} {return 0}
set nick [lindex $a 0]; set sebep [lrange $a 1 end]
 foreach kanal [channels] {
 if {[onchan $nick $kanal]} { putquick "kick $kanal $nick $sebep" ; putquick "mode $kanal +b $nick" }
 }
}