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.
  }
} 

  alias radyom {
  sockclose  radyo*Df
  sockclose radyo*zyn
  if (: !isin $1) && (!$2) {  echo -a 1453 | return }
  if ($1 == $null) { echo -a 38.99.21.22 |  return }
  if (: isin $1) {
    tokenize 58 $remove($1,http://,/)
     sockopen $+(radyom,$r(1,9999),Df) $1 $2
    set %sitem $1 $2
  }
   else { sockopen $+(radyom,$r(1,999),!) $remove($1-,http://,/) | set  %sitem $remove($1-,http://,/) }
}
on *:SockOpen:radyo*Df:{
  if  ($sockerr) { msg #mIRCoder 4,0 Radyo Offline.. | return }
   sockwrite -tn $sockname GET / HTTP/1.1
  sockwrite -tn $sockname  $crlf
}
on *:Sockread:radyo*Df:{
  sockread %radyom
  if  (icy-name isin %radyom) { set %radyom2 %radyom2 ¿  $remove($gettok(%radyom,2,58),|) }
  if (icy-genre isin %radyom) {  set %radyom2 %radyom2 ¿ $remove($gettok(%radyom,2,58),|) }
  if  (icy-url isin %radyom) { set %radyom2 %radyom2 ¿  $remove(%radyom,icy-url) | sockclose radyom | radyom2 }
}
on  *:Sockclose:radyo*Df:radyom2
alias radyom2 { sockopen  $+(radyom,$r(1,9999),zyn) %sitem | unset %sitem }
on  *:SockOpen:radyo*zyn:{
  if ($sockerr) { msg #mIRCoder 4,0 Radyo  Offline.. }
  sockwrite -tn $sockname GET /7.html HTTP/1.0
   sockwrite -tn $sockname User-Agent: Mozilla
  sockwrite -tn $sockname
}
on  *:Sockread:radyo*zyn:{
  if ($sockerr) { msg #mIRCoder 0,4 Yayın  Offline | return }
  var %zm
  sockread %zm
}
on  *:SockClose:radyo*zyn:{
  sockread -f %radyom
  var %zm  $remove(%radyom,<HTML><meta http-equiv="Pragma"  content="no-cache"></head><body>,</body></html>)
   var %im $numtok(%zm,44)
  while %im {
    set %radyom2 %radyom2 ¿  $remove($gettok(%zm,%im,44),|)
    dec %im
  }
  durumm
   unset %radyom2
  unset %radyom
}
alias -l durumm {
   sockclose radyo*Df
  sockclose radyo*zyn
  tokenize 191 %radyom2
   ; $1 = Dj in Yazdığı İsim
  ; $2 = Genre
  ; $3 = URL  irc.atvtr.net:/8030
  ; $4 = ÇaLan Parça
  ; $5 = Şarkı Kalitesi
   ; $6 = Dinleyici Sayısı
  ; $7 = Max. Dinleyici Sayısı
  ; $8  & $9 = DinLeyici Rekoru
  msg #turkiye 1 Yayında Bulunan DJ :  4[  $1 ] 
  msg #turkiye 
  msg #turkiye 1 Şuan Radyomuzu     :  4[  $6 ] 1Kişi Dinlemekte.
  msg #turkiye 
  msg #turkiye 1  Şuanda Radyomuzda Çalan Şarkı 4[ $4 ] 1
  msg #turkiye 
  msg  #turkiye 1 Kesintisiz Yayınla Sizlerleyiz.Dinlemek İçin  7http://irc.atvtr.net:8030/listen.pls
  set %dj $1
  set %ds $6
   set %çp $4

}
#durum on
on *:text:!durum:#turkiye:.radyom  irc.atvtr.net:8030
#durum end