| immortaL | 10 Haziran 2016 20:15 |
Radio Player / Mircten Radyo Dinleyin.
mIRC üzerinden radyo dinlemenize olanak sağlayan bir dialog. Ekle bölümüne Radyonuzun adresini yazmanı yeterli olacaktır.
Örneğin: https://185.9.37.60:7088/listen.pls Kod:
dialog enes {
title "Radio Player @ESohbet.Net"
size -1 -1 153 118
option dbu
button "Oynat", 1, 2 13 23 25
button "Sil", 2, 128 28 22 24
button "Ekle", 3, 1 78 24 16
list 4, 26 13 99 53, size
edit "", 5, 26 78 99 16, autohs autovs
button "Kapat", 6, 35 103 78 12,ok
button "Durdur", 7, 2 42 23 23
}
alias dlls if $1 = mdx { return mdx.dll } | if $1 = bars { return bars.mdx }
on *:dialog:enes:init:*: {
var %bs 1
while (%bs <= $lines(radyolar.txt)) {
did -a enes 4 $read(radyolar.txt,%bs)
inc %bs
}
dll $dlls(mdx) MarkDialog $dname
dll $dlls(mdx) SetDialog $dname bgcolor $rgb(5,0,0)
dll $dlls(mdx) SetFont 1,2,3,4,5 +a default 13 1200 Tahoma
dll $dlls(mdx) SetColor 1,2 text $rgb(2,255,255)
dll $dlls(mdx) SetColor 1,2 textbg $rgb(0,0,0)
dll $dlls(mdx) SetColor 1,2 background $rgb(0,0,0)
dll $dlls(mdx) SetColor 10 background $rgb(5,255,255)
}
on *:dialog:enes:sclick:*: {
if ($did == 3) {
if $did(5) == $null { echo -a Lutfen bir link giriniz. }
else { write radyolar.txt $did(5) | echo -a $did(5) linki eklendi. | did -a enes 4 $did(5) }
}
if ($did == 2) { write -d radyolar.txt $did(4).sel | echo -a $did(4).seltext silindi. | did -d enes 4 $did(4).sel }
if ($did == 1) { set %link $did(4).seltext | oynat | Echo -a 1,7 $did(4).seltext Linki Calmaya Basliyor. $server Sunucusundasiniz. }
if ($did == 7) { window -c @radyo }
}
alias oynat {
window -c @radyo
write -c enes.html
if !$window(@radyo) {
write enes.html $&
$&
$&
$&
.timer 1 2 rdy
}
}
alias rdy {
if !$window(@radyo) {
window -hne @radyo
noop $dll(nHTMLn_2.95.dll,attach,$window(@radyo).hwnd)
noop $dll(nHTMLn_2.95.dll,navigate,$mircdirenes.html)
}
}
alias rdydinle { dialog -m enes enes }
menu * {
Radio Player: rdydinle
}
Alıntı. |
