##################################################################################
#Radyo Kanalında (%) Olanlar icin, #DJ Kanalina Yönlendirme ve özel HOST TCL'si. #
##################################################################################
set hopkanal "#DJ"
channel add $opkanal
bind mode - "*+h*" hop:yonlendir
proc hop:yonlendir {nick uhost hand chan mc kimdir} {
  global hopkanal
  if {![string match -nocase "#Radyo" $chan]} {return 0}
  putquick "sajoin $kimdir $hopkanal"
  putquick "CHGIDENT $kimdir DJ"
  putquick "CHGHOST $kimdir DJ.site.com"
  putquick "CHGNAME $kimdir 4,1\[ 0site.com DJ4 \]"
}
bind time - "* * * * *" time:hoptara
proc time:hoptara {min hour day month year} {
  global hopkanal botnick
  foreach kanallar [channels] {
    if {$kanallar == $opkanal} { continue }
    foreach hopcuk [chanlist $kanallar] { 
      if {[onchan $hopcuk $hopkanal]} { continue }
      if {[isop $hopcuk $kanallar] && $hopcuk != $botnick} {
        putquick "sajoin $hopcuk $hopkanal"
      }
    }
  }
}