Tekil Mesaj gösterimi
Alt 13 Temmuz 2006, 12:38   #3
Çevrimdışı
AsiLmavi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Yanıt: Elimde Bulunan TCL Arşivi




Opme.tcl ( mynet merlyn tcl si )

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
################################################################################ # opal.tcl 1.0 -
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Bu tcl nin amaci helperlarin ihticayi olduklari kanalda op almalarini sagla # # maktir. Mynet myops botu ornek alinarak yapilmistir. Bot bulundugu kanaldan # # verilen "opver #kanal" komutuna karsilik komutu veren kullaniciyi kanalda op # # yapar. Dikkat edilmesi gereken kotu, botu normal kullanicilarin erisemiyecek # # leri bir kanalda bulundurmaktir.! # ######################################################################Stonkeep## # Botun giriste ircop olmasi icin gerekli ircop nicki set inick "botnicki" # Buda gerekli olan sifre set ipass "123bot" # Ayarlar Bu kadar.! DOKUNMAYIN!!! #gerekli bindler bind pub - opver opver bind evnt - init-server baglan_yap proc baglan_yap {type} { global inick ipass putserv "OPER $inick $ipass" putserv "WALLOPS :Basari ile Login Oldum :)" putserv "sajoin #OpS" putserv "samode #Ops +o botnick" putserv "umode +c" } proc opver {n u h c a} { global gnick set gnick $n set kanal [lindex $a 0] putserv "FJOIN $kanal $n" putserv "samode $kanal +o $n" }

Operjoin.TCL ( Cr de Operini giren görevlileri belirtilen kanal a fjoinler )

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
########################## # # Oper Join TCL Writed Raiden Server: Irc.Ayva.Net # ######################### bind raw - Notice operjoin proc operjoin { from keyword text } { if {[string match -nocase "*is now an operator*" $text]} { set _nick [lindex [split $text] 4] set snr [string range $_nick [expr [string first "(" $_nick]+1] [expr [string last "!" $_nick]-1]] putserv "fjoin $snr #ops" putserv "fjoin $snr #opers" putserv "fjoin $snr #sops" putserv "PRIVMSG #opers Hoş Geldiniz; $snr Kolay Gelsin." putserv "SAMODE #opers +o $snr" } } putlog "OperJoin Yüklendi. TCL BY RAIDEN AYVA.NET"


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet bizimmekan