Kod: Kodu kopyalamak için üzerine çift tıklayın!
###########################################
#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"
forumda böyle bir tcl vardı.