ForumTEK.Net - IRC Forumu

Merhabalar,
Bu Tcl dosyası ile Global kanallarınızda (%@&~) (Op) olan Kullanıcıları #Global Kanalında Toplayabilirsiniz.
Kod:
##########################################################################################

#GlobalOps.TCL                                                                                                 #

#Bu Tcl Dosyası ile Global Kanallarda olanları Belirlediğiniz Kanalda toplayabilirsiniz. #                                                                                 #

#Örnek: #Global                                                                                                     #

#Writtin by OkyAnuS(coder@KeLeBeK.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."



}