Çevrimdışı

merhaba
elimde bi radyo rometesi var bazı eklemeler yapmak istiyorum.ben 5 6 sunucu daki radyoları dinliyorum arabex veya türkü çalan olursa diyer sunucunun radyosuna geciyorum
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
kanal genelinde sağa tıklıyorum radyo aça tıklıyorum acılan kutucuğa sunucunun radyo linkini kopyalıyıp cal diyorum.örneklink [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ama linki değiş kopyala yapıştır olmadı diyer radyonun lnkini kopyala yapıştır felan baya uğraştırıyo
bu radyo rometesine belirlediğim 10 tane radyo linki koyup beyenmediğim olursa diyer linke tıklıyıp değiştirmek istiyorum.bide ses kıs var sesi kısınca bilgisayarın seside kısılıyo sadece radyonun sesi kısılması mümkün değilmi. rometeyi veriyorum ilgilenmenizi bekliyorum.


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 57
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://radyo.domainim.com:8088", 6, 28 2 101 8
button "Ses ver (+)", 7, 5 43 52 12
button "Ses kıs (-)", 8, 70 43 52 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 }
}
}

menu * {
-
Radio aç:.dialog -m nmkradio nmkradio
-
}