IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

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@[Ü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."
 

}