alias 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) 
  }
  if ($1 == Dur) && ($com(%caldir)) {
    %z = $com($+(%caldir,wmp),Stop,3)
    unset %z
  }
}
alias entr { cal dur | /cal $1 }
dialog nmkradio {
  title "Radio"
  size -1 -1 245 120
  option dbu
  edit "", 1, 32 12 98 10, autohs
  text " Adres :", 2, 3 13 25 8
  button "Çal", 3, 4 28 37 12
  button "Dur", 4, 46 28 37 12
  button "Gizle", 5, 89 28 37 12
  text "Örnek: http://turku.arabesk.com:8088", 6, 28 2 101 8
  button "Ses ver (+)", 7, 5 43 52 12
  button "Ses kıs (-)", 8, 70 43 52 12
  text "Radyo Listesi", 9, 158 5 101 8
  list 10, 149 26 62 89, size vsbar
  edit "", 11, 148 13 62 12, return autohs autovs
  button "Ekle", 12, 215 14 25 11
  button "Çıkart", 13, 215 30 25 11
  box "", 14, 145 1 98 117
  button "!durum", 15, 5 83 42 12
  button "!link", 16, 70 83 42 12
}
on 1:dialog:nmkradio:*:*:{
  if ($devent == sclick) {
    if ($did == 3) { .cal $did(1) | .set %radioadres $did(1) }
    if ($did == 4) { .cal dur }
    if ($did == 5) { .dialog -x nmkradio nmkradio }
    if ($did == 7) { set %vol $vol(master) | set %vol %vol + 2500 | vol -v %vol }
    if ($did == 8) { set %vol $vol(master) | set %vol %vol - 2500 | vol -v %vol }
    if ($did == 15) { msg #radyo !durum }
    if ($did == 16) { msg #radyo !link }
  }
  if ($regex($devent,^init$)) {
    did -a nmkradio 1 %radioadres  
    if ($read(lnk.txt)) { loadbuf -o $dname 10 lnk.txt } 
  }
  if ($regex($devent,^sclick$)) {
    if ($regex($did,^12$)) { var %e = $did(11) | if (!%e) { $iif($input(link girmediniz.,y) == $true,halt,halt) | halt } 
      else { $iif($read(lnk.txt,w,%e),$iif($input(Eklediğiniz link mevcut.,y) == $true,halt,halt),write lnk.txt %e) | did -a $dname 10 %e | did -r $dname 11 }
    }
    if ($devent == sclick) { if ($did == 10) { did -r $dname 1 | did -a nmkradio 1 $did($dname,10).seltext } }
    if ($regex($did,^13$)) { 
      var %r = $did($dname,10).sel
      if (!%r) { $iif($input(Herhangi bir link seçmediniz.,y) == $true,halt,halt) | halt }
      else { var %- = $did($dname,10).seltext | did -d $dname 10 %r | write $+(-ds,%-) lnk.txt }
    }
  }
  if ($regex($devent,^dclick$)) { $iif($did == 10,entr $did($dname,10).seltext) } 
}
menu * {
  -
  Radio aç:.dialog -m nmkradio nmkradio
  -
}