Tekil Mesaj gösterimi
Alt 14 Mayıs 2009, 20:49   #10
Çevrimdışı
toXic
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !kb <kanal> <nick> tcl istek




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ı.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet sohbet