on *:text:*:#:{
  if $chan == #radyo {
    if !istek* iswm $1- {
      if $2 == $null {
        msg $chan 1Lütfen Bir İstek Parça Belirtin $nick Örnegin: .istek <sanatçı> <mesajınız> şeklinde istekte bulunabilirsiniz.
      }
      else {
        inc -u180 $+(%,istek.,$nick) 1
        if ($($+(%,istek.,$nick),2) >= 2) {
        !.msg $chan 1Lütfen Ard Arda Istek Istemeyin ßir Kişi 15 Dakikada ßir Istek Isteyebilir.. | return }
        else {
          inc %isayi
          msg #istek 4,4  0,1Radyo Istek 
          msg #istek 4,4  0,1
          msg #istek 4,4  0,1
          msg #istek 4,4  0,1 $nick 9,1 ( $+ $2- $+ )
          msg #istek 4,4  0,1
          msg #istek 4,4  0,1
          msg #istek 4,4  0,1 Radyo Istek 
          msg $chan 4,4   1,8 İsteginiz DJ'lerimize iletilmistir 
          msg $chan 4,4   0,1 İstenilen İstek Sayısı: %isayi 
          msg $chan 4,4   0,1 $nick 9,1 ( $+ $2- $+ ) 
          msg $chan 4,4   9,1 !istek <sanatçı> <mesajınız> şeklinde istekte bulunabilirsiniz.
          msg $chan 4,4   4,1BeykozFm 8,1WinAmp Adresimiz 9,1http://72.20.58.176:8687/listen.pls
          .write istekler.txt $+($nick,$chr(11),$2-)
        }
      }
    }
  }
  if $chan == #istek {
    if !istekvar* iswm $1- {
      if $2 == $null {
        msg $chan 1Lütfen Bir Nick Belirtin.. ÖRN: !istekvar <nick>
      }
      else {
        if $read(istekler.txt,w,$2 $+ *) {
          msg #istek Sıradaki parça ( $+ $2- $+ ) iletildi; Isteği: $gettok($read(istekler.txt,w,$2 $+ *),2,11)
          msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 1 7Radyo kanalında yapmış olduğunuz istek sıraya alınmıştır.En kısa sürede yayınlanacaktır.12 Sizin Sesiniz Radyo BeykozFm'desiniz 4İyi dinletiler ..
          msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 5 isteğiniz: 4 $gettok($read(istekler.txt,w,$2 $+ *),2,11) 
          write $+(-,dl,$readn) istekler.txt
          .halt
        }
        if !$read(istekler.txt,w,$2 $+ *) {
          msg $chan  $2 1Nicki Listede Gözükmüyor.
        }
      }
    }
    if !istekyok* iswm $1- {
      if $2 == $null {
        msg $chan 1Lütfen Bir Nick Belirtin.. ÖRN: !istekyok <nick>
      }
      else {
        if $read(istekler.txt,w,$2 $+ *) {
          msg #istek Reddedilen Istek ( $+ $2- $+ ) iletildi; Isteği: $gettok($read(istekler.txt,w,$2 $+ *),2,11)
          msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 1Radyo kanalında yapmış olduğunuz istek Dj'imizin Arşivinde olmadığından,Sıradaki çalışma Dj tarafından size Armağan edilecektir.Yada yeni bir istekte bulunabilirsiniz.[ Sizin Sesiniz Radyo BeykozFm'desiniz ] İyi dinletiler.
          msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 1isteğiniz: $gettok($read(istekler.txt,w,$2 $+ *),2,11) 
          write $+(-,dl,$readn) istekler.txt
          .halt
        }
        if !$read(istekler.txt,w,$2 $+ *) {
          msg $chan  $2 1Nicki Listede Gözükmüyor
        }
      }
    }
  }
} 

alias radyom { 
  sockclose radyo*S 
  sockclose radyo*J    
  if (: !isin $1) && (!$2) { echo -a 8687 radyo.beykozfm.com | return } 
  if ($1 == $null) { echo -a 72.20.58.176 radyo.Beykozfm.com | return }  
  if (: isin $1) { 
    echo -a Lütfen Bekleyin..    
    tokenize 58 $remove($1,http://,/) 
    sockopen $+(radyo,$r(1,9999),S) $1 $2 
    set %site $1 $2 
  } 
  else { sockopen $+(radyo,$r(1,999),!) $remove($1-,http://,/) | set %site $remove($1-,http://,/) | echo -a Lütfen Bekleyin.. } 
} 
on *:SockOpen:radyo*S:{ 
  if ($sockerr) { echo -a Siteye BağLanmada Hata! | return }    
  sockwrite -tn $sockname GET / HTTP/1.1 
  sockwrite -tn $sockname $crlf 
} 
on *:Sockread:radyo*S:{    
  sockread %radyo 
  if (icy-name isin %radyo) { set %radyo2 %radyo2 ¿ $remove($gettok(%radyo,2,58),|) } 
  if (icy-genre isin %radyo) { set %radyo2 %radyo2 ¿ $remove($gettok(%radyo,2,58),|) }  
  if (icy-url isin %radyo) {  set %radyo2 %radyo2 ¿ $remove(%radyo,icy-url:) | sockclose radyo | radyo2 } 
} 
on *:Sockclose:radyo*S:radyo2 
alias radyo2 { sockopen $+(radyo,$r(1,9999),J) %site | unset %site } 
on *:SockOpen:radyo*J:{ 
  if ($sockerr) { echo -a Siteye BağLanmada Hata! }    
  sockwrite -tn $sockname GET /7.html HTTP/1.0 
  sockwrite -tn $sockname User-Agent: Mozilla 
  sockwrite -tn $sockname 
} 
on *:Sockread:radyo*J:{ 
  if ($sockerr) { echo -a Siteye BağLanmada Hata! | return }    
  var %z 
  sockread %z 
} 
on *:SockClose:radyo*J:{  
  sockread -f %radyo  
  var %z $remove(%radyo,<HTML><meta http-equiv="Pragma" content="no-cache"></head><body>,</body></html>) 
  var %i $numtok(%z,44) 
  while %i { 
    set %radyo2 %radyo2 ¿ $remove($gettok(%z,%i,44),|) 
    dec %i 
  } 
  gostert 
  unset %radyo2 
  unset %radyo 
} 
alias -l gostert { 
  sockclose radyo*S 
  sockclose radyo*J 
  tokenize 191 %radyo2 
  ; $1 = Dj in Yazdığı İsim 
  ; $2 = Genre 
  ; $3 = URL 
  ; $4 = ÇaLan Parça 
  ; $5 = Şarkı Kalitesi 
  ; $6 = Dinleyici Sayısı 
  ; $7 = Max. Dinleyici Sayısı 
  ; $8 & $9 = DinLeyici Rekoru 
  echo -a İsim : $1 
  echo -a Genre : $2 
  echo -a URL : $3 
  echo -a ÇaLan Parça : $4 
  echo -a Şarkı KaLiteSi : $5 
  echo -a DinLeyici Sayısı : $6 
  echo -a Max. Dinleyici Sayısı : $7 
  echo -a DinLeyici Rekoru : $8 & $9 
  .msg #radyo 7,1BeykozFm 11Şuanda Çalan Parçamız. :8,1 $4 
  .msg #radyo 0,1~~
  .msg #radyo 11,1Yayını Winamptan Dinlemek Için Tıklayınız 9http://72.20.58.176:8687/listen.pls 
  .msg #radyo 0,1~~
  .msg #radyo 11,1Yayındaki DJ'imiz 8,1 $1 
  .msg #radyo 0,1~~
  .msg #radyo 11,1Şuanda Yayınımızı 8,1 $6 11,1Kişi Dinlemektedir..
  .msg #radyo 0,1~~
  .msg #radyo 14,1!istek Sanatcı Ismi & Şarkısı & Mesajınız Komutunu Kullandıgınızda Isteğiniz Otomatikman Dj'e iletiliyor.  
} 
} 
on me:*:join:#radyo:{
  .timer 1 2 radyom  http://72.20.58.176:8687/listen.pls
  .timer 0 240 radyom  http://72.20.58.176:8687/listen.pls
  .timer 0 300 msg #radyo 0,1 9BeykozFm 7Winamp'tan Dinlemek icin Tiklayınız 4 --> 8 http://72.20.58.176:8687/listen.pls  
}
on *:text:*:#radyo:{
  elseif !link == $1 { msg #radyo 0,1 9BeykozFm 0Winamp'tan Dinlemek icin Tiklayınız 4 ----> 8 http://72.20.58.176:8687/listen.pls 0Adresine Tıklayınız  }
}