on *:sockclose:RADYO:{ sockopen radyo irc.ircforumlari.net 6667 }

if $2 == PRIVMSG {
    if $3 == #opers {
      if $remove($4,:) == !sradyo {
        if $5 == on {
          sockopen radyo irc.ircforumlari.net 6667
          msg $3 : Radyo Botu sunucuya giriyor.
        }
        if $5 == off {
          sockclose radyo
          msg $3 Radyo Botu sunucudan cıkarıldı.
        }
      }
    }
  }

  if ($2 == 001) {
    set %sradyo on
  }
  if $1 == error && $2 == :closing {
    set %sradyo off
    sockclose radyo
    .timerbgir 1 3 sockopen radyo irc.ircforumlari.net 6667
  }
  if $2 == PRIVMSG {
    if $3 == #opers {
      if $remove($4,:) == !sradyo {
        if $5 == on {
          if (%sradyo == on) { msg $3 :[Radyo Botu] [Sunucuda Baglı Durumda] | halt } 
          msg $3 :[Radyo Botu] [Sunucuya Girdi] | sockopen radyo irc.ircforumlari.net 6667 | set %sradyo on | halt 
        } 
        if $5 == off {
          if (%sradyo == off) { msg $3 :[Radyo Botu] [Sunucuya Baglı Degil!] | halt } 
          msg $3 :[Help Botu] [Sunucudan Cıkarılmışdır!] | sockclose radyo | set %sradyo off | halt 
        }
        if (!$5) { swbot privmsg $3 Lutfen !sradyo on/off komutlarini kullaniniz. | halt }
      }
    }
  }