/*
=============================
mIRC Radio v0.1 BY SeRDaR406

Scriptinizde yada mIRC'de kullanabileceðiniz

çok geniþ özellikleri olmasada görüntü yönünden

göze hoþ gelen bir radyo.Zamanla birçok özellik

eklenecektir.Bizi takip edin... :)

Özel Teþekkür: SCounDReL

Hazýr Listede Bulunan Radyo Sayýsý: "70 adet"

Ýnþallah bu sayý gelecek versionlarda arttýrýlacak.

=============================
En yeni özellikler:

*Radyo'yu transparan olarak gösterebilirsiniz.

*Hazýr Radyo listesine radyo ekleyebilir,silebilir ve 

düzeltebilirsiniz...

*Dinlediðiniz radyoyu'nun adýný, msn'de, ne dinliyorum

bölümünde gösterebilirsiniz...
=============================
*/
alias -l msnsong.dll return $shortfn($scriptdirmsnsong.dll)
alias -l tdialog.dll return $shortfn($scriptdirtdialog.dll)
alias -l xgdll return $shortfn($scriptdirx-gui.dll)
alias -l imgdll return $shortfn($scriptdirimgdlg.dll)
alias -l movedll return $shortfn($scriptdirmove.dll)
alias -l tdlg { dll $tdialog.dll TDDialog $window($1).hwnd > $2 | dll -u $tdialog.dll }
alias -l xg dll $xgdll $1 $2-
alias -l xgg return $dll($xgdll,$1,$2-)
alias -l tools return $shortfn($scriptdirtools.png)
alias -l ara.bmp return $shortfn($scriptdirara.bmp)
alias -l arahot.bmp return $shortfn($scriptdirarahot.bmp)
alias -l ipanel.bmp return $shortfn($scriptdirinfopanel.bmp)
alias -l list.ico return $shortfn($scriptdirlist.ico)
alias -l find.ico return $shortfn($scriptdirfind.ico)
alias -l rlistem return $shortfn($scriptdirradyoliste.txt)
alias -l htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;,$chr(9)) | return %x } } 
alias -l ifile return $isfile($1-)
alias -l err { echo -a "4 $+ $1 $+ " isimli dosya bulunamad&#253;.Bu dosyay&#253; 4" $+ $scriptdir $+ " adl&#253; klasöre kopyalay&#253;n. | .unload -rs $shortfn($script) }
on *:load: {
  if ($ifile($xgdll) == $false) err x-Gui.DLL
  elseif ($ifile($imgdll) == $false) err ImgDlg.DLL
  elseif ($ifile($movedll) == $false) err Move.DLL
  elseif ($ifile($msnsong.dll) == $false) err MsnSong.DLL
  elseif ($ifile($tdialog.dll) == $false) err TDialog.DLL
  elseif ($ifile($tools) == $false) err Tools.png
  elseif ($ifile($ara.bmp) == $false) err Ara.bmp
  elseif ($ifile($arahot.bmp) == $false) err Arahot.bmp
  elseif ($ifile($ipanel.bmp) == $false) err infopanel.bmp
  elseif ($ifile($list.ico) == $false) err List.ico
  elseif ($ifile($find.ico) == $false) err Find.ico
  elseif ($ifile($rlistem) == $false) err Radyoliste.txt
  else {
    echo -a 4mIRC Radyo v0.1 BY SeRDaR406 yüklendi.
    echo -a Açmak için: 4/mradyo yaz&#253;n.
    echo -a ----------------------------------------
    echo -a Haz&#253;r Listeye radyo eklemek için:
    echo -a /rekle radyo ad&#253;,adres komutunu uygulay&#253;n.
    echo -a Örnek: /rekle myradio,mms://66.155.122.14
  }
}
on *:start: { if (%otoplay) && (%radiolink) && (%radioname) { mradyo | cal %radiolink  } }
menu menubar,status,channel {
  mIRC Radyo
  .Aç : mradyo
  .-
  .Addonu Kald&#253;r: .unload -rs $shortfn($script)
}
on *:unload: {
  unset %ara %line %ark %radio %icl %stoped %radioname %rstatus %radres %sh %radio_link %caldir %z %stop
  echo -a mIRC Radyo v0.1 kald&#253;r&#253;ld&#253;.
  .remove $rlistem
  $iif($isfile($shortfn(radio.txt)) == $true,.remove $shortfn(radio.txt))
}
alias mradyo player
alias -l coordinat {
  if ($window(@player)) && ($window(@ipa)) {
    if ($active == @ipa) window -a @player
    if ($window(@ipa).x != $calc($window(@player).x - 1)) || ($window(@ipa).y !=  $calc($window(@player).y -  38)) {
      window -a @ipa $calc($window(@player).x - 1) $calc($window(@player).y - 38) 220 38
      if ($window(@rlist)) window @rlist $calc($window(@player).x + 221) $calc($window(@player).y - 38) 247 220 
    }
  }
  elseif (!$window(@player)) && ($window(@ipa)) { writetomsn BY SeRDaR406 | window -c @ipa | cal dur | .timereffect off }
  elseif (!$window(@ipa)) && ($window(@player)) window -c @player
  elseif (!$window(@ipa)) && (!$window(@player)) { if ($window(@rliste)) window -c @rliste | if ($window(@rlist)) window -c @rlist | .timertasi off }
}
alias -l radara {
  info.y Aran&#253;yor.Bekleyin...
  write -c radio.txt
  xg Listbox @rliste > Clear 1
  set %ara $replace($1-,$chr(32),+)
  set %line 0
  sockclose ark
  sockopen ark 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
}
on *:sockopen:ark: {
  if ($sockerr) info.y Ba&#240;lant&#253; Yok!
  else {
    var %s = sockwrite -n $sockname
    %s GET /directory/?s= $+ %ara $+ &numresult=100 HTTP/1.1
    %s Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockread:ark: {
  sockread %ark
  if (href="/sbin/shoutcast isin %ark) set %icl $remove($gettok($gettok(%ark,5,32),1,62),href=,")
  if (target="_scurl" isin %ark) set %radio $+(%icl,¦,$htmlfree($gettok(%ark,$findtok(%ark,target="_scurl",1,32) $+ -,32))) 
  if (bgcolor="#001E5A"> isin %ark) && (color="#FFFFFF"> isin %ark) && (MP3 isin %ark) && (--> !isin %ark) {  
    inc %line 
    write -l $+ %line radio.txt $replace(%radio,ÿ,&#253;)
    tokenize 166 $read(radio.txt,%line)
    xg Listbox @rliste > AddItem 1 $2
    unset %icl 
  }
  if (</body> isin %ark) $iif($lines(radio.txt) > 0,info.y Arama bitti!,info.y Herhangi bir radyo bulunamad&#253;...)
}
alias -l get_radio {
  set %radres $1
  sockclose shout
  sockopen shout 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
}
on *:sockopen:shout: {
  var %n = sockwrite -n $sockname
  %n GET / $+ %radres HTTP/1.1
  %n Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockread:shout: {
  sockread %sh
  if (File1 isin %sh) { 
    set %radio_link $remove(%sh,File1=) 
    cal %radio_link
  }
}
alias -l cal {
  if ($1 != Dur) {  
    set %caldir $+(sjn.,$ticks)
    .comopen %caldir wmplayer.ocx
    var %z $com(%caldir,Url,4,bstr,$1-)
    %z = $com(%caldir,Controls,3,dispatch* $+(%caldir,wmp))
    %z = $com($+(%caldir,wmp),Play,3) 
    .timereffect -m 0 90 effect-line
    info.y Çal&#253;yor...
    .timer 1 1 info.y -w %radioname
  }
  if ($1 == Dur) && ($com(%caldir)) {
    %z = $com($+(%caldir,wmp),Stop,3)
  }
}
alias -l radio->load {
  if ($lines(radio.txt) > 0) {
    var %i = 1
    while (%i <= $lines(radio.txt)) {
      tokenize 166 $read(radio.txt,%i)
      xg Listbox @rliste > AddItem 1 $2
      inc %i
    }
  }
}
alias -l load->radyolist {
  var %i = 1
  while (%i <= $lines($rlistem)) {
    tokenize 191 $read($rlistem,%i)
    xg Listbox @rlist > AddItem 1 $1
    inc %i
  }
}
alias -l rliste {
  if (!$window(@rlist)) {
    $iif($window(@rliste),window -pBdoh +Ld @rlist $calc($window(@rliste).x + $window(@rliste).w + 2) $window(@rliste).y 247 220,window -pBdoh +Ld @rlist $calc($window(@player).x + 221) $calc($window(@player).y - 38) 247 220)
    window -a @rlist   
    ;Ta&#254;&#253; rect    
    drawrect -r @rlist $rgb(0,0,0) 1 0 0 247 220
    ;Kapat rect
    drawrect -r @rlist $rgb(0,0,0) 1 236 2 10 11
    drawpic -t @rlist $rgb(255,0,255) 0 0 2 258 247 220 $tools
    xg Mark @rlist
    xg Create @rlist > listbox 1 10 80 227 140 vsbar
    xg Create @rlist > editbox 2 10 57 150 16 authos
    xg Set @rlist > style 1 windowedge
    xg Set @rlist > style 2 windowedge
    xg Set @rlist > color 2 $rgb(222,230,245) $rgb(54,77,121)
    xg Set @rlist > color 1 $rgb(222,230,245) $rgb(54,77,121)
    xg Set @rlist > font 2 Tahoma > 8 1 0 0 0
    xg Set @rlist > font 1 Tahoma > 8 1 0 0 0
    xg Create @rlist > button 3 165 53 60 21 bitmap > $ara.bmp $+ , $+ $ara.bmp $+ , $+ $arahot.bmp
    xg Set @rlist > disable 3
    drawtext -or @rlist $rgb(0,64,128) Tahoma 10 238 1 X
    drawpic -s @rlist 2 2 16 16 $list.ico
    drawtext -or @rlist $rgb(54,77,121) Tahoma 11 20 2 Haz&#253;r Radyo Listesi
    drawtext -or @rlist $rgb(0,64,128) Tahoma 11 10 202 Yeni ekle
    drawrect -rd  @rlist $rgb(219,229,247) 1 6 200 60 16
    drawrect -r  @rlist $rgb(255,255,255) 1 71 200 1 16
    drawrect -r  @rlist $rgb(128,128,192) 1 70 200 1 16
    drawtext -or @rlist $rgb(0,64,128) Tahoma 11 90 202 SiL
    drawrect -rd  @rlist $rgb(219,229,247) 1 80 200 35 16
    drawrect -r  @rlist $rgb(255,255,255) 1 121 200 1 16
    drawrect -r  @rlist $rgb(128,128,192) 1 120 200 1 16
    drawtext -or @rlist $rgb(0,64,128) Tahoma 11 135 202 Düzelt
    drawrect -rd  @rlist $rgb(219,229,247) 1 130 200 45 16
    drawtext -or @rlist $rgb(0,64,128) Tahoma 11 197 202 Kapat
    drawrect -r  @rlist $rgb(255,255,255) 1 183 200 1 16
    drawrect -r  @rlist $rgb(128,128,192) 1 182 200 1 16
    drawrect -rd  @rlist $rgb(219,229,247) 1 192 200 43 16
    if (%tpst) tdlg @rlist %tpval
    .timer 1 1 load->radyolist
  }
}
alias -l liste {
  if (!$window(@rliste)) {
    $iif($window(@rlist),window -pBdoh +Ld @rliste $calc($window(@rlist).x + $window(@rlist).w + 2) $window(@rlist).y 247 204,window -pBdoh +Ld @rliste $calc($window(@player).x + 221) $calc($window(@player).y - 38) 247 204)
    window -a @rliste 
    ;Ta&#254;&#253; rect    
    drawrect -r @rliste $rgb(0,0,0) 1 0 0 247 204
    ;Kapat rect
    drawrect -r @rliste $rgb(0,0,0) 1 236 2 10 11
    drawpic -t @rliste $rgb(255,0,255) 0 0 1 51 247 208 $tools
    xg Mark @rliste
    xg Create @rliste > listbox 1 10 80 227 140 vsbar
    xg Create @rliste > editbox 2 10 57 150 16 authos
    xg Set @rliste > style 1 windowedge
    xg Set @rliste > style 2 windowedge
    xg Set @rliste > color 2 $rgb(222,230,245) $rgb(54,77,121)
    xg Set @rliste > color 1 $rgb(222,230,245) $rgb(54,77,121)
    xg Set @rliste > font 2 Tahoma > 8 1 0 0 0
    xg Set @rliste > font 1 Tahoma > 8 1 0 0 0
    xg Create @rliste > button 3 165 53 60 21 bitmap > $ara.bmp $+ , $+ $ara.bmp $+ , $+ $arahot.bmp
    xg Set @rliste > disable 3
    drawtext -or @rliste $rgb(0,64,128) Tahoma 10 238 1 X
    drawpic -s @rliste 2 2 16 16 $find.ico
    drawtext -or @rliste $rgb(54,77,121) Tahoma 11 20 2 Radyo Arama
    if (%tpst) tdlg @rliste %tpval
    radio->load
  }
}
alias -l effect-line {
  if ($window(@ipa)) {
    var %line1 = $rand(1,18)
    var %line2 = $rand(1,10)
    var %line3 = $rand(5,15)
    var %line4 = $rand(8,18)
    var %line5 = $rand(10,18)
    drawpic @ipa 190 0 190 0 30 20 $ipanel.bmp
    drawrect -rf @ipa $rgb(54,77,121) 1 198 $calc(18 - %line1) 3 %line1 
    drawrect -rf @ipa $rgb(54,77,121) 1 202 $calc(18 - %line2) 3 %line2 
    drawrect -rf @ipa $rgb(54,77,121) 1 206 $calc(18 - %line3) 3 %line3 
    drawrect -rf @ipa $rgb(54,77,121) 1 210 $calc(18 - %line4) 3 %line4
    drawrect -rf @ipa $rgb(54,77,121) 1 214 $calc(18 - %line5) 3 %line5
  }
  else .timereffect off
}
alias -l info.y { 
  if ($window(@ipa)) && ($1-) { 
    drawpic @ipa 0 0 $ipanel.bmp 
    $iif($1 == -w,$iif($2-,drawtext -cr @ipa $rgb(54,77,121) Tahoma 11 5 4 180 13 $2-,),drawtext -r @ipa $rgb(54,77,121) Tahoma 11 5 4 $1-)
  } 
}
alias -l info.panel {
  window -pBdoh +dL @ipa $calc($window(@player).x - 1) $calc($window(@player).y - 38) 220 38
  window -a @ipa
  drawrect -r @ipa 0 1 0 0 220 38
  dll $imgdll ImgDlg 1 1 $window(@ipa).hwnd $ipanel.bmp
  drawpic @ipa 0 0 $ipanel.bmp
}
menu @ipa {
  mouse: {
    if ($mouse.key & 1) {
      if ($inrect($mouse.x,$mouse.y,0,0,220,38)) dll $movedll movewin $window(@player).hwnd
    }
  }
}
alias -l player {
  if (!$window(@player)) {
    unset %played %stoped %stop %rstatus
    window -pCBdoh +Ld @player 0 0 220 35    
    window -a @player
    ;Ses + rect
    drawrect -r @player 0 1 81 12 16 16 
    ;Ses - rect
    drawrect -r @player 0 1 101 12 16 16  
    ;Liste rect
    drawrect -r @player 0 1 145 11 17 17 
    drawrect -r @player $rgb(0,0,0) 1 0 0 220 35    
    ;Min rect
    drawrect -r @player $rgb(0,64,128) 1 197 2 8 10
    ;Scroll tu&#254;u rect
    drawrect -rd @player 0 1 %pos 15 18 10 5 5
    ;Play rect
    drawrect -re @player $rgb(0,0,0) 1 10 6 24 24 6 6
    ;Stop rect
    drawrect -re @player $rgb(0,0,0) 1 38 11 15 15 6 6
    ;Kapat rect
    drawrect -r @player $rgb(0,0,0) 1 209 2 8 11
    drawpic -t @player $rgb(255,0,255) 0 0 163 0 220 35 $tools
    ;Ara tu&#254;u rect
    drawrect -r @player $rgb(0,0,0) 1 170 12 16 16 
    ;Ayarlar rect
    drawrect -r @player 0 1 122 10 19 19
    drawpic @player 142 4 0 0 72 28 $tools
    drawtext -or @player $rgb(0,64,128) Tahoma 10 210 1 X 
    drawrect -r @player $rgb(0,64,128) 1 197 10 8 2
    ;drawpic -s @player 170 12 16 16 $find.ico
    info.panel
    .timertasi 0 0 coordinat 
    info.y mIRC Radio vBeta BY SeRDaR406
    drawpic @player 80 10 262 181 19 19 $tools
    drawpic @player 100 10 262 181 19 19 $tools
    drawtext -or @player $rgb(54,77,121) Tahoma 15 84 11 +
    drawrect -r @player $rgb(54,77,121) 1 105 20 9 1
    ;List bitmap
    drawpic @player 145 11 285 182 19 19 $tools
    drawpic @player 122 10 262 205 19 19 $tools
    ;Search bitmap
    drawpic -t @player $rgb(255,0,255) 168 12 285 208 19 19 $tools
    if (%tpst) { tdlg @player %tpval | tdlg @ipa %tpval }
  }
}
dialog mrdayar {
  title "mIRC Radyo Ayarlarý"
  size -1 -1 142 94
  option dbu
  box "", 1, 2 0 138 62
  check "Dinlediðim radyoyu Msn'de Göster", 2, 5 6 92 10
  check "Radyoyu Transparan göster", 3, 5 20 80 10
  text "Transparanlýk Deðeri:", 4, 5 33 51 8, disable
  scroll "", 5, 57 33 63 8, disable range 60 horizontal
  text "", 6, 122 33 15 8, disable
  button "Kapat", 7, 100 47 37 12, cancel
  link "Önemli Not(Mutlaka okuyun)", 8, 2 63 68 8
  text "Dinlenen radyonun msn'de ne dinliyorum bölümünde gösterilmesi olayý sadece hazýr listedeki radyolar için geçerlidir...", 9, 2 71 136 22
  check "En son dinlediğimi açılışta oto çal", 10, 6 47 90 10
}

alias -l mdayar { if (!$dialog(mrdayar)) dialog -m mrdayar mrdayar }
on *:dialog:mrdayar:sclick:*: {
  if ($did == 3) {
    if ($did(3).state == 1) did -e $dname 4,5,6
    else { did -b $dname 4,5,6 | unset %tpst }
  }
  if ($did == 2) {
    $iif($did(2).state == 1,set %msnsg $true,unset %msnsg)
  }
  if ($did == 10) $iif($did(10).state == 1,set %otoplay on,unset %otoplay)
}
on *:dialog:mrdayar:init:*: { 
  if (!%tpval) set %tpval 0 
  did -a $dname 6 % $+ %tpval 
  if (%tpst) { did -e $dname 4,5,6 | did -c $dname 3 }
  if (%msnsg) did -c $dname 2
  if (%otoplay) did -c $dname 10
}
on *:dialog:mrdayar:scroll:5: {
  var %val = $did(5).sel
  set %tpst $true
  if ($window(@player)) { tdlg @player %val | tdlg @ipa %val }
  if ($window(@rlist)) tdlg @rlist %val
  if ($window(@rliste)) tdlg @rliste %val
  set %tpval %val
  did -ra $dname 6 % $+ %tpval
}
alias -l writetomsn {
  if (%msnsg) {
    var %dll $MsnSong.dll
    .comreg %dll
    .comopen msn Msn.Write
    var %i $com(msn,WriteToMsn,1,bstr,$1-,bstr,$null,bstr,$null)
    .comreg -u %dll
    .comclose msn
  }
}
alias -l oynat {
  .timereffect off
  $iif($1 == -f,info.y Ba&#240;lan&#253;yor...,info.y Aç&#253;l&#253;yor...)
  drawpic -t @player $rgb(255,0,255) 35 7 105 0 15 15 $tools 
  drawpic -t @player $rgb(255,0,255) 9 5 132 2 26 26 $tools
  unset %played 
  set %stop seasd
  if ($com(%caldir)) cal dur 
  if ($1 == -f) $iif($window(@rliste),get_radio $gettok($read(radio.txt,$xgg(Listbox,@rliste > GetSelItem 1)),1,166),cal %radio_link) 
  elseif ($1 == -s) {
    var %item = $xgg(Listbox,@rlist > GetSelText 1)  
    if (Error !isin %item) {
      tokenize 191 $read($rlistem,$xgg(Listbox,@rlist > GetSelItem 1))
      set %radiolink $2
      set %radioname Çalan Radyo: $1
      cal $2
      writetomsn %radioname
    }
    elseif (Error isin %item) { cal %radiolink | writetomsn %radioname }
  }
}
alias -l radyolarda-ara {
  var %q = $xgg(Get,@rlist > text 2)
  if ($len(%q) <= 2) return $input(Aranacak radyonun ismi 3 harfi geçmelidir!,ohud,Hata) 
  else {
    info.y Aran&#253;yor.Bekleyin...
    var %r = 1
    while (%r <= $lines($rlistem)) {
      tokenize 191 $read($rlistem,%r)
      if (%q isin $1) { xg Listbox @rlist > SelItem 1 %r | info.y Aran&#253;lan radyo bulundu... | halt }
      elseif (%r == $lines($rlistem)) && (Zevzek !isin %q) info.y Bulunamad&#253;!
      inc %r
    }
  }
}
alias -l min_box {
  if ($window(@player)) window -h @player
  if ($window(@ipa)) window -h @ipa
  if ($window(@rliste)) window -h @rliste
  if ($window(@rlist)) window -h @rlist
  window -pdoBh +dL @minbox $calc($window(-1).w - 70) $calc($window(-1).h - 45) 40 45
  window -a @minbox
  drawrect -r @minbox 0 1 0 0 40 45
  drawpic -t @minbox $rgb(255,0,255) 0 0 262 131 64 64 $tools
}
menu @minbox {
  sclick: {
    if ($inrect($mouse.x,$mouse.y,0,0,45,45)) { 
      window -c @minbox | if ($window(@rliste)) window -a @rliste | window -a @ipa  | if ($window(@rlist)) window -a @rlist | window -a @player
    }
  }
}
menu @player {
  sclick: {
    if ($inrect($mouse.x,$mouse.y,122,10,19,19)) mdayar
    if ($inrect($mouse.x,$mouse.y,145,11,17,17)) rliste 
    if ($inrect($mouse.x,$mouse.y,101,12,16,16)) {
      vol -v $round($calc($vol(master) / 2),0)
      info.y Ses oran&#253;: $round($calc($calc(100 * $vol(master)) / 65535),0)
      drawrect -r @player $rgb(255,255,255) 1 105 20 9 1
      .timer -m 1 20 drawrect -r @player $rgb(54,77,121) 1 105 20 9 1
      if (%radioname) $iif(%stop,.timer 1 2 info.y %radioname,.timer 1 2 info.y mIRC Radyo vBeta BY SeRDaR406)
      else .timer 1 2 info.y mIRC Radyo vBeta BY SeRDaR406
    }
    if ($inrect($mouse.x,$mouse.y,81,12,16,16)) { 
      vol -v $round($calc($vol(master) * 2),0)
      info.y Ses oran&#253;: $round($calc($calc(100 * $vol(master)) / 65535),0)
      drawtext -or @player $rgb(255,255,255) Tahoma 15 84 11 +
      .timer -m 1 20 drawtext -or @player $rgb(54,77,121) Tahoma 15 84 11 +
      if (%radioname) $iif(%stop,.timer 1 2 info.y %radioname,.timer 1 2 info.y mIRC Radyo vBeta BY SeRDaR406)
      else .timer 1 2 info.y mIRC Radyo vBeta BY SeRDaR406
    }
    if ($inrect($mouse.x,$mouse.y,209,2,8,11)) window -c @player
    if ($inrect($mouse.x,$mouse.y,170,12,16,16)) liste
    if ($inrect($mouse.x,$mouse.y,10,6,24,24)) { if (%played) $iif(%rstatus == ilk,oynat -f,oynat -s) }
    if ($inrect($mouse.x,$mouse.y,197,2,8,10)) min_box
    if ($inrect($mouse.x,$mouse.y,38,11,15,15)) { 
      if (%stop) {
        drawpic -t @player $rgb(255,0,255) 35 7 105 26 15 15 $tools
        drawpic -t @player $rgb(255,0,255) 9 4 254 39 26 26 $tools
        unset %stop
        set %played sadsad
        cal dur
        .timereffect off
        info.y Durduruldu!
      }
    }
  }
  mouse: {
    if ($inrect($mouse.x,$mouse.y,10,6,24,24)) { 
      if (%played) drawpic -t @player $rgb(255,0,255) 9 4 77 0 26 26 $tools 
    }
    elseif (%played) drawpic -t @player $rgb(255,0,255) 9 4 254 39 26 26 $tools
    elseif (!%played) drawpic -t @player $rgb(255,0,255) 9 5 132 2 26 26 $tools
    if ($inrect($mouse.x,$mouse.y,38,11,15,15)) { 
      if (%stop) drawpic -t @player $rgb(255,0,255) 35 7 105 0 15 15 $tools
    }
    elseif (!%stop) drawpic -t @player $rgb(255,0,255) 35 7 105 26 15 15 $tools
    if ($mouse.key & 1) dll $movedll movewin $window(@player).hwnd
  }
}
menu @rliste {
  sclick: {
    if ($inrect($mouse.x,$mouse.y,0,0,247,220)) dll $movedll movewin $window(@rliste).hwnd
    if ($inrect($mouse.x,$mouse.y,236,2,10,11)) window -c @rliste
  }
}
alias rekle {
  tokenize 44 $1-
  if (!$1) echo -a Eklenecek radyonun ad&#253; girilmedi!
  elseif (!$2) echo -a Eklenecek radyonun adresi girilmedi!
  else { write $rlistem $+($1,¿,$2) | echo -a Radyonuz Haz&#253;r Listeye eklenmi&#254;tir. }
}
alias -l add->aradyo {
  drawrect -rd  @rlist $rgb(219,229,247) 1 6 200 60 16
  var %radnm = $input(Eklenecek radyonun ad&#253;n&#253; ve adresini girin: $+ $crlf $+ (Örn: Myradyo $+ $chr(44) $+ mms://64.128.11.20),e,Radyo ekle)
  if (%radnm) {
    tokenize 44 %radnm
    if (($1) && ($2)) { write $rlistem $+($1,¿,$2) | xg Listbox @rlist > AddItem 1 $1 }
  }
}
alias -l remove->radyo {
  drawrect -rd  @rlist $rgb(219,229,247) 1 80 200 35 16
  var %gradyo = $xgg(Listbox,@rlist > GetSelItem 1)
  if (%gradyo == 0) return $input(Listeden silenecek radyoyu seçin!,ohud,Hata)
  else {
    write -dl $+ %gradyo $rlistem | xg Listbox @rlist > DeleteItem 1 %gradyo
  }
}
alias -l edit->radyo {
  drawrect -rd  @rlist $rgb(219,229,247) 1 130 200 45 16
  var %gradyo = $xgg(Listbox,@rlist > GetSelItem 1)
  if (%gradyo == 0) return $input(Listeden düzeltilecek radyoyu seçin!,ohud,Hata)
  else {
    var %rdy = $input(Radyonun yeni ad&#253;n&#253; ve adresini girin: $+ $crlf $+ (Örn: Yeniradyo $+ $chr(44) $+ http://121.22.211.11),e,Radyo Düzelt)
    if (%rdy) {
      tokenize 44 %rdy
      if (($1) && ($2)) { 
        write -l $+ %gradyo $rlistem $+($1,¿,$2) |  xg Listbox @rlist > Clear 1 | load->radyolist 
        xg Listbox @rlist > SelItem 1 %gradyo 
      }
    }
  }
}
menu @rlist {
  sclick: {
    if ($inrect($mouse.x,$mouse.y,0,0,247,220)) dll $movedll movewin $window(@rlist).hwnd
    if ($inrect($mouse.x,$mouse.y,236,2,10,11)) || (($inrect($mouse.x,$mouse.y,192,200,43,16))) window -c @rlist
    if ($inrect($mouse.x,$mouse.y,6,200,60,16)) add->aradyo
    if ($inrect($mouse.x,$mouse.y,80,200,35,16)) remove->radyo
    if ($inrect($mouse.x,$mouse.y,130,200,46,16)) edit->radyo
  }
  mouse: {
    if ($inrect($mouse.x,$mouse.y,6,200,60,16)) drawrect -rd  @rlist $rgb(190,196,222) 1 6 200 60 16
    else   drawrect -rd  @rlist $rgb(219,229,247) 1 6 200 60 16
    if ($inrect($mouse.x,$mouse.y,80,200,35,16)) drawrect -rd  @rlist $rgb(190,196,222) 1 80 200 35 16
    else drawrect -rd  @rlist $rgb(219,229,247) 1 80 200 35 16
    if ($inrect($mouse.x,$mouse.y,130,200,46,16)) drawrect -rd  @rlist $rgb(190,196,222) 1 130 200 45 16
    else drawrect -rd  @rlist $rgb(219,229,247) 1 130 200 45 16
    if ($inrect($mouse.x,$mouse.y,192,200,43,16)) drawrect -rd  @rlist $rgb(190,196,222) 1 192 200 43 16
    else drawrect -rd  @rlist $rgb(219,229,247) 1 192 200 43 16
  }
}
on *:signal:xGUI: {
  if ($1 == @rliste) {
    if ($2 == dclick) && ($3 == 1) && ($xgg(Listbox,@rliste > GetSelItem 1)) { set %radioname $xgg(Listbox,@rliste > GetSelText 1) | set %rstatus ilk | oynat -f }
    if ($2 == sclick) && ($3 == 3) { .timereffect off | radara $xgg(Get,@rliste > text 2) }
    if ($2 == edit) && ($3 == 2) $iif(!$xgg(Get,@rliste > text 2),xg Set @rliste > disable 3,xg Set @rliste > enable 3)
    if ($2 == sclick) && ($3 == 1) && ($xgg(Listbox,@rliste > GetSelText 1)) { 
      if (!%stoped) { 
        drawpic -t @player $rgb(255,0,255) 9 4 254 39 26 26 $tools | set %stoped selam | set %played oynat!  
      } 
    }
  }
  if ($1 == @rlist) {
    if ($2 == dclick) && ($3 == 1) && ($xgg(Listbox,@rlist > GetSelItem 1)) { set %radioname $xgg(Listbox,@rliste > GetSelText 1) | set %rstatus ikinci | oynat -s }
    elseif ($2 == sclick) && ($3 == 3) { .timereffect off | radyolarda-ara }
    elseif ($2 == edit) && ($3 == 2)  $iif(!$xgg(Get,@rlist > text 2),xg Set @rlist > disable 3,xg Set @rlist > enable 3)
    if ($2 == sclick) && ($3 == 1) && ($xgg(Listbox,@rliste > GetSelText 1)) { 
      if (!%stoped) { 
        drawpic -t @player $rgb(255,0,255) 9 4 254 39 26 26 $tools | set %stoped selam | set %played oynat!  
      } 
    }
  }
}