Çevrimdışı

Çıkış Mesajlarını Çoğaltsak Nickini Kayıtlı Göstermebilme Sansımız var mı ?
ve kanaldan part etme gibi..

Alıntı:

################################################## ########### # Bot Yap TCL v1.0 - Written By CLubber # # Bu TCL ile kolayca ve hızlıca bot oluşturabilir # # İstediğiniz tüm kanallara sokabilirsiniz. # # Komutun Kullanımı: <!bot oluştur/sil> şeklindedir. # ################################################## ########### # Bot'ların txt dosyasının olduğu bölüm set document "scripts/bot.txt" # Komutun kullanılacağı kanal set op_chan "#Opers" # Serviceslerimiz set services "services.sitemiz.com" # Botların identi set idents "Sohbet" # Botların fullnameleri set fullname "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]" # Botların gizleneceği hostları set hosts "AA06D19E.7CF30E14.B0273C61.IP" # Botları sileceğinizde servere vereceği ayrılma mesajı set quit_msg "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]" # Botların sokulacağı kanal set kanallar "#Sohbet,#Muhabbet,#Oyun,#Radyo" ########################################### # Buradan sonrasını ellemenize gerek yok. # ########################################### bind pub - !bot msg_bot proc msg_bot {nick uhand host chan text} { global document op_chan services idents fullname hosts quit_msg kanallar if {![string match -nocase "$op_chan" $chan]} {return} if {$text == ""} {putquick "PRIVMSG $op_chan Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. ot oluşturmak için lütfen komutu doğru kullanın. Kullanımı: <!bot oluştur/sil>";return} if {[string match -nocase "oluştur" $text]} { set file [open $document r] set listfile [split [subst -nocommands [read $file]] "\n"] foreach i $listfile { putquick "OperServ RAW nick $i 1 1 $idents $hosts $services :$fullname" putquick "OperServ RAW :$i join $kanallar" putquick "PRIVMSG $op_chan :$i nicki bot oluşturulmuştur." } close $file } if {[string match -nocase "sil" $text]} { set file [open $document r] set listfile [split [subst -nocommands [read $file]] "\n"] foreach i $listfile { putquick "OperServ RAW :$i quit $quit_msg" putquick "PRIVMSG $op_chan :$i nickli bot sunucudan çıkartılmıştır." } close $file } } putlog "Bot Oluştur TCL - Written By CLubber"

Neden Bilmiyorum Ama Satırlarda Kayma Oluyor

Link ; [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]