on *:LOAD:{
.set %radyoyayin - 
}
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 nmkradio {
title "Radio"
size -1 -1 132 43
option dbu
edit "http://212.175.122.53:1453 ", 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://212.175.122.53:1453", 6, 28 2 101 8
}
on 1:dialog:nmkradio:*:*:{
if ($devent == init) {
did -a nmkradio 1 %radioadres
if (%radyoyayin == -) { did -a $dname 3 Çal }
if (%radyoyayin == +) { did -a $dname 3 Çalıyor }
}
if ($devent == sclick) {
if ($did == 3) { 
if (%radyoyayin == +) { echo -a 3 2 $me Yanlış Yere Tıkladın Zaten Radyo Açık... }
if (%radyoyayin == -) {
.cal $did(1) | .set %radioadres $did(1) | set %radyoyayin + | did -a $dname 3 Çalıyor
}
}
if ($did == 4) {
if (%radyoyayin == -) { echo -a $me Yanlış Yere Tıkladın Zaten Radyo Kapalı... }
if (%radyoyayin == +) { 
.cal dur | set %radyoyayin - | did -a $dname 3 Çal
}
}
if ($did == 5) { .dialog -x nmkradio nmkradio }
}
}
menu * {
-
Radio aç:.timer 1 1 dialog -m nmkradio nmkradio | unset %radioadres
-
}