# kanal belirtin (sadece bu kanaldakiler bota söz geçirebilir)
set operchan "#opers"

bind pub - !kb kickle

proc kickle { n u h c a } {
global operchan
if {![onchan $n $operchan]} {return 0}
set kanal [lindex $a 0]
set nick [lindex $a 1]
set sebep [lrange $a 2 end]
channel add $kanal
utimer 2[list devam $nick $kanal $sebep]
}

proc devam { nick kanal sebep } {
global operchan
if {[onchan $nick $kanal]} {
	if {$sebep != ""} {
	putquick "mode $kanal +b $nick"
	putquick "kick $kanal $nick $sebep"
	} else {
	putquick "mode $kanal +b $nick"
	putquick "kick $kanal $nick sebep belirtilmedi."
	}
} else {
putquick "privmsg $operchan $kanal kanalında $nick nickli user bulunamadı."
}
utimer 3[list channel remove $kanal]
}