# 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]
}

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" }
 }
}

        ########################################### 
#Global uygulamasinin yapilabilecegi kanal 
########################################### 
set tg_chan "#opers" 
########################################### 
#Uygulamanin calismasi icin botun oper login ve nick login paslari 
########################################### 

set o_login "global" 
set o_pass "123globalbot" 
set b_ipass "123456" 

########################################### 
#Gerekli uygulamalar 
########################################### 
bind pub - !global global:msg 
bind evnt - init-server baglanti:ayari 

########################################### 
#Buraya DOKUNMAYIN! (siz bilirsiniz) :) 
########################################### 
proc global:msg {n u h c a} { 
  set tg_msg [lindex $a ] 
  if {[isop $n $tg_chan]==1} { 
     putserv "NOTICE $* \02<$n>\02 $tg_msg" 
 } 
  if {[isop $n $tg_chan]==0} { 
    putserv "SAMODE $c +b $n" 
    purserv "KICK $c $n Bu komudu kullanmaya Yetkili degilsiniz!" 
  } 
} 
proc baglanti:ayari {type} { 
  putserv "NICKSERV IDENTIFY $b_ipass 
  putserv "OPER $o_login $o_pass" 
  putserv "WALLOPS :Helper Global mesaj sistemi aktif!" 
} 
putlog "Global mesaj atma sistemi yuklendi" 
putlog "Bot OPER ve Global kullanma izni olmadigi surece" 
putlog "Calismayacaktir!" 
putlog "!helpglobal globalmesajiniz seklinde calismatadir"