24 Ekim 2012, 14:54
|
#1 |
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| GlobalOps.TCL
Merhabalar,
Bu Tcl dosyası ile Global kanallarınızda (%@&~) (Op) olan Kullanıcıları #Global Kanalında Toplayabilirsiniz. Kod: Kodu kopyalamak için üzerine çift tıklayın! ##########################################################################################
#GlobalOps.TCL #
#Bu Tcl Dosyası ile Global Kanallarda olanları Belirlediğiniz Kanalda toplayabilirsiniz. # #
#Örnek: #Global #
#Writtin by OkyAnuS(coder@ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].gen.tr) #
##########################################################################################
#Kanal Yetkililerin Sajoin edileceği kanal
set opkanal "#Global"
channel add $opkanal
#Burdan Sonrası için Edit'e Gerek Yok.
bind mode - "*+o*" op:yonlendir
#kanalda op oldugunda Bu Islemi yap
proc op:yonlendir {nick uhost hand chan mc oky} {
global opkanal
putquick "sajoin $oky $opkanal"
putquick "PRIVMSG $oky :$chan Kanalında Operator Konumundasınız. Global kanal yetkililerinin $opkanal Kanalina Girmesi Zorunludur."
}
#Operator Kanaldamı,Kontrol Edip Kanala Çeker.
bind time - "* * * * *" time:optara
proc time:optara {min hour day month year} {
global opkanal botnick
foreach kanallar [channels] {
if {$kanallar == $opkanal} { continue }
foreach oper [chanlist $kanallar] {
if {[onchan $oper $opkanal]} { continue }
if {[isop $oper $kanallar] && $oper != $botnick} {
putquick "sajoin $oper $opkanal"
putquick "PRIVMSG $oper :$opkanal Kanalına $kanallar Kanalında Operator Konumundasınız. Global kanal yetkililerinin bulunması zorunludur."
}
__________________ Ne Gülüyorsun, Anlattığım Senin Hikâyen.. |
| |