GlobalOPS.TCL

[No_FeaR]

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

################################################## ########################################
#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."

}