#Global Kanal Yetkililerinin Sajoinle Alınacakları Kanal İsmi
set opkanal "#Ops"
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 kimdir} {
global opkanal
putquick "sajoin $kimdir $opkanal"
putquick "PRIVMSG $kimdir :$chan Kanalında Op Sop ve Founder ( @ & ~ ) Yetkisinde Olan Kullanıcıların $opkanal Kanalina Girmesi Zorunludur."
}
#Yetkili Kişi Op Kanalında mı ? Kontrol Et...
bind time - "* * * * *" time:optara
proc time:optara {min hour day month year} {
global opkanal botnick
foreach kanallar [channels] {
if {$kanallar == $opkanal} { continue }
foreach opcuk [chanlist $kanallar] { 
if {[onchan $opcuk $opkanal]} { continue }
if {[isop $opcuk $kanallar] && $opcuk != $botnick} {
putquick "sajoin $opcuk $opkanal"
putquick "PRIVMSG $opcuk :$opkanal Kanalına $kanallar Kanalında Op Sop ve Founder ( @ & ~ ) Yetkisinde Olan Kullanıcıların Girmesi Zorunludur..."
}
}
}
} 
 
 

proc giris_karsilama {nick uhost handle channel} { 
putserv "NOTICE $nick :Merhaba $nick Hosgeldin" 
putserv "PRIVMSG $nick :Hosgeldin $nick Iyi Sohbetler" 
} 
bind join - * giris_karsilama

putserv "NOTICE $nick :Merhaba $nick Hosgeldin" 
putserv "PRIVMSG $nick :Hosgeldin $nick Iyi Sohbetler"

putserv "SAJOIN $nick #kanal"