🔔 Çevrimdışı bildirim almak ister misiniz?
Bir konuya etiketlendiğinizde, özel mesaj aldığınızda, bir mesajınız alıntılandığında forumda olmasanız bile anlık bildirim almak için lütfen izni verin.
Kanaldan Part ve Botu Kayıtlı Gösterebilir miyiz ?
Çı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"
21 Mayıs 2015, 22:43
Benzer Konular 
Ağaç şeklinde
