Çevrimdışı

aşağıdaki radyo addonu kullanıyorum. tek sorunum
çal buttonuna defalarca tıklanabiliyor. Çalı tıkladığımda nasıl kullanılmaz yaparım ve duru tıkladımda tekrar nasıl aktif ederim.

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 ($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 * {
-
Radio aç:.dialog -m nmkradio nmkradio
-
}