Bota İstenilen Metni ''Duyuru''yu Attırma TCL

[No_FeaR]

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

Yapımcısı Kim Bilmiyorum, Bana Ait Değildir.
Gerekli Ayarlamaları Yaptıktan Sonra #Opers'de !Global Sunucuya Atılmak İstenilen Mesajı Yazarak Duyuru Atabilirsiniz... ^^