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 "", 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 "[Link'i Görebilmeniz İçin Kayıt Olunuz.! Kayıt OL]", 6, 28 2 101 8
}
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 }
}
}
menu menubar,status,nicklist,channel,query {
-