alias shoutcast.channel {
  return #Radyo
}

alias shoutcast.host {
  return $qradyoip
}

alias shoutcast.port {
  return $qradyoport
}

alias shoutcast.adminpass {
  return $qradyopass
}

alias shoutcast.socket {
  return shoutcast
}

alias getxmltext {
  var %tag.open = $+(<, $1, >)
  var %tag.close = $+(</, $1, >)
  if $pos($2-,%tag.open) {
    var %start = $ifmatch + $len(%tag.open)
    var %length  = $calc($pos($2-, %tag.close) - %start)
    return $mid($2-, %start, %length)
  }
  return $null
}



alias radyodurum {
  if %radioo {
    unset %mesajver
    if !%mesajver {
      .timerradyomsg* off
      sw radyobot topic $shoutcast.channel : 11,1 Yayın boşta olduğundan radyo şu anda deaktif durumdadır. 
      sw radyobot privmsg $shoutcast.channel :-
      sw radyobot privmsg $shoutcast.channel :0,4 **  0,2 Yayın boşta olduğundan radyo şu anda deaktif durumdadır. 
      sw radyobot privmsg $shoutcast.channel :-
    }
  }
  if !%radioo {
    .timerradyomsg* off
    sw radyobot topic $shoutcast.channel :4,4 0,1  Yayinda su an »»» 4,1 $+ $turkceh(%genre) $+  0,1««« bulunmakta. Yayin turu: 4,1 $+ $turkceh(%servertitle) $+ 0,1 Calan parca: « 4,1 $+ $turkceh(%songtitle) $+ 0 » 4,4 
    sw radyobot privmsg $shoutcast.channel :-
    sw radyobot privmsg $shoutcast.channel :4,4 0,1 Radyo DJlermizden 4 $+ $fants($turkceh(%genre)) 0şu anda online 
    sw radyobot privmsg $shoutcast.channel :-
    sw radyobot privmsg $shoutcast.channel :4,4 0,1 Radyo 4 $qreklam 0Çalan Parça:4 $turkceh(%songtitle) 
    sw radyobot privmsg $shoutcast.channel :4,4 0,1 Radyomuzun Dinlenme Oranı: 4,1 $+ ( $calc(0+ %currentlisteners ) ) 0kisi dinliyor 4(rekor: %peaklisteners $+ ) 
    sw radyobot privmsg $shoutcast.channel :-
    sw radyobot privmsg $shoutcast.channel :4,4 0,1 Radyomuzu Winamp'tan dinlemek icin 4,1|0 4,1http:// $+ $+($qradyoip,:,$qradyoport,/listen.pls) 
    sw radyobot privmsg $shoutcast.channel :-
    sw radyobot privmsg $shoutcast.channel :4,4 0,1 Turkiye'nin en kaliteli sohbet platformu 4,1 $qreklam 0,1forum sitesindede sizlerle bulusuyor. Hemen bize katilin 0,4 >> 1,1 4,1http://IRCDForumlari.net/ 
    sw radyobot privmsg $shoutcast.channel :-
    .timerradyomsg1 1 $r(60,85) sw radyobot privmsg $shoutcast.channel :2 *~~ 0,4 D 0,2 J  $ayrac($djnick($turkceh(%genre))) > : 4Dinlemek icin > 12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
    .timerradyomsg2 1 $r(100,125) sw radyobot privmsg $shoutcast.channel :2 *~~ 0,4 D 0,2 J  $ayrac($djnick($turkceh(%genre))) > : 4Istekleriniz icin 12!istek istediginiz sarki ve mesajiniz4  yaziniz.
    set %mesajver on
  }
}

alias radyodj {
  if %radioo {
    sw radyobot privmsg $shoutcast.channel :0,2 Yayın boşta olduğundan radyo şu anda deaktif durumdadır. 
  }
  if !%radioo {
    sw radyobot privmsg $shoutcast.channel :4,4 0,1 $fants($turkceh(%genre)) 4,1şu anda online 4,1 Çalan Parça:0,1 $turkceh(%songtitle) 4,1 Dinlenme Oranı:0,1 ( $calc(0+ %currentlisteners ) ) 4,1kisi dinliyor (rekor:0,1 %peaklisteners $+ 4,1)
  }
}

alias qradyodj {
  if %radioo {
    sw radyobot privmsg #Dj :0,2 Yayın boşta olduğundan radyo şu anda deaktif durumdadır. 
  }
  if !%radioo {
    sw radyobot privmsg #Dj :4,4 0,1 $fants($turkceh(%genre)) 4,1şu anda online 4,1 Çalan Parça:0,1 $turkceh(%songtitle) 4,1 Dinlenme Oranı:0,1 ( $calc(0+ %currentlisteners ) ) 4,1kisi dinliyor (rekor:0,1 %peaklisteners $+ 4,1)
  }
}

alias radyoerr {
  if %radyohata {
    sw radyobot topic $shoutcast.channel : 11,1 Radyo sistem tarafından kapalı olduğundan deaktif durumdadır. 
    sw radyobot privmsg $shoutcast.channel :-
    sw radyobot privmsg $shoutcast.channel :0,4 **  0,2 Radyo sistem tarafından kapalı olduğundan deaktif durumdadır. 
    sw radyobot privmsg $shoutcast.channel :-
  }
}

alias shout {
  if $sock(shoutcast) {
    sockclose $ifmatch
  }
  sockopen $shoutcast.socket $shoutcast.host $shoutcast.port
}

alias fants {
  return $replace($1-,b,ß,a,á,i,í,o,ó,l,L,s,$,I,Î,e,é,?,¿,t,&#8224;,y,¥,c,¢,o,Ó,n,ñ)
}

alias ayrac {
  return $replace($1-,|,l)
}

alias tc {
  if . isin $calc($1- / 2) {
    return tek
  }
  else {
    return cift
  }
}

alias djnick {
  var %n 1 , %ret
  while %n <= $len($1-) {
    if $tc(%n) == tek {
      %ret = $+(%ret,4 $+ $chr(44) $+ 1 $mid($1-,%n,1) )
    }
    else {
      %ret = $+(%ret,0 $+ $chr(44) $+ 1 $mid($1-,%n,1) )
    }
    inc %n
  }
  return %ret 11,1
}

alias randombilgi {
  if $r(1,2) == 1 {
    return > : 4Dinlemek icin > 12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
  }
  else {
    return > : 4Istekleriniz icin 12!istek istediginiz sarki ve mesajiniz4  yaziniz.
  }
}