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
  }
}
dialog lnk {
  title "Radyo Listesi"
  size -1 -1 112 127
  option dbu
  list 3, 45 19 62 101, size vsbar
  edit "", 4, 44 6 62 12, return autohs autovs
  button "Ekle", 5, 8 8 25 11
  button "Çıkart", 6, 8 24 25 11
  box "", 7, 3 3 39 39
}
on *:dialog:lnk:*:*:{
  if ($regex($devent,^init$)) { if ($read(lnk.txt)) { 
    loadbuf -o $dname 3 lnk.txt } 
  }
  if ($regex($devent,^sclick$)) {
    if ($regex($did,^5$)) { var %e = $did(4) | 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 3 %e | did -r $dname 4 
      }
    }
    if ($regex($did,^6$)) { var %r = $did($dname,3).sel
      if (!%r) { $iif($input(Herhangi bir link seçmediniz.,y) == $true,halt,halt)
        halt 
      }
      else { 
        var %- = $did($dname,3).seltext 
      did -d $dname 3 %r | write $+(-ds,%-) lnk.txt }
    }
  }
  if ($regex($devent,^dclick$)) { $iif($did == 3,entr $did($dname,3).seltext) } 
}
alias entr { cal dur | /cal $1 }
dialog nmkradio {
  title "Radio"
  size -1 -1 133 76
  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 : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]", 6, 28 2 101 8
  button "Ses ver (+)", 7, 5 43 52 12
  button "Ses kıs (-)", 8, 70 43 52 12
  button "liste", 9, 48 56 37 12
}
on 1:dialog:nmkradio:*:*:{
  if ($devent == init) {
    did -a nmkradio 1 %radioadres
  }
  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 == 9) { dialog -m lnk lnk }
  }
}
menu * {
  -
  Radio aç:.dialog -m nmkradio nmkradio
  -
}