##################################################################################
#Radyo Kanalında (@) Olanlar icin, #DJ Kanalina Yönlendirme ve özel HOST TCL'si. #
##################################################################################
set opkanal "#DJ"
channel add $opkanal
bind mode - "*+h*" op:yonlendir
proc op:yonlendir {nick uhost hand chan mc kimdir} {
global opkanal
if {![string match -nocase "#Radyo" $chan]} {return 0}
putquick "sajoin $kimdir $opkanal"
putquick "CHGIDENT $kimdir DJ"
putquick "CHGHOST $kimdir DJ.site.com"
putquick "CHGNAME $kimdir 4,1\[ 0site.com DJ4 \]"
}
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"
}
}
}
}