| SeRDaR406 | 24 Ocak 2011 22:17 |
Cevap: mIRC Radyo
Seçeneklere mIRC açıldığında en son dinlenilen radyonun otomatik açılması seçeneği eklendi. Kod:
/*
=============================
mIRC Radio v0.1 BY SeRDaR406
Scriptinizde yada mIRC'de kullanabileceðiniz
çok geniþ özellikleri olmasada görüntü yönünden
göze hoþ gelen bir radyo.Zamanla birçok özellik
eklenecektir.Bizi takip edin... :)
Özel Teþekkür: SCounDReL
Hazýr Listede Bulunan Radyo Sayýsý: "70 adet"
Ýnþallah bu sayý gelecek versionlarda arttýrýlacak.
=============================
En yeni özellikler:
*Radyo'yu transparan olarak gösterebilirsiniz.
*Hazýr Radyo listesine radyo ekleyebilir,silebilir ve
düzeltebilirsiniz...
*Dinlediðiniz radyoyu'nun adýný, msn'de, ne dinliyorum
bölümünde gösterebilirsiniz...
=============================
*/
alias -l msnsong.dll return $shortfn($scriptdirmsnsong.dll)
alias -l tdialog.dll return $shortfn($scriptdirtdialog.dll)
alias -l xgdll return $shortfn($scriptdirx-gui.dll)
alias -l imgdll return $shortfn($scriptdirimgdlg.dll)
alias -l movedll return $shortfn($scriptdirmove.dll)
alias -l tdlg { dll $tdialog.dll TDDialog $window($1).hwnd > $2 | dll -u $tdialog.dll }
alias -l xg dll $xgdll $1 $2-
alias -l xgg return $dll($xgdll,$1,$2-)
alias -l tools return $shortfn($scriptdirtools.png)
alias -l ara.bmp return $shortfn($scriptdirara.bmp)
alias -l arahot.bmp return $shortfn($scriptdirarahot.bmp)
alias -l ipanel.bmp return $shortfn($scriptdirinfopanel.bmp)
alias -l list.ico return $shortfn($scriptdirlist.ico)
alias -l find.ico return $shortfn($scriptdirfind.ico)
alias -l rlistem return $shortfn($scriptdirradyoliste.txt)
alias -l htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
alias -l ifile return $isfile($1-)
alias -l err { echo -a "4 $+ $1 $+ " isimli dosya bulunamadý.Bu dosyayý 4" $+ $scriptdir $+ " adlý klasöre kopyalayýn. | .unload -rs $shortfn($script) }
on *:load: {
if ($ifile($xgdll) == $false) err x-Gui.DLL
elseif ($ifile($imgdll) == $false) err ImgDlg.DLL
elseif ($ifile($movedll) == $false) err Move.DLL
elseif ($ifile($msnsong.dll) == $false) err MsnSong.DLL
elseif ($ifile($tdialog.dll) == $false) err TDialog.DLL
elseif ($ifile($tools) == $false) err Tools.png
elseif ($ifile($ara.bmp) == $false) err Ara.bmp
elseif ($ifile($arahot.bmp) == $false) err Arahot.bmp
elseif ($ifile($ipanel.bmp) == $false) err infopanel.bmp
elseif ($ifile($list.ico) == $false) err List.ico
elseif ($ifile($find.ico) == $false) err Find.ico
elseif ($ifile($rlistem) == $false) err Radyoliste.txt
else {
echo -a 4mIRC Radyo v0.1 BY SeRDaR406 yüklendi.
echo -a Açmak için: 4/mradyo yazýn.
echo -a ----------------------------------------
echo -a Hazýr Listeye radyo eklemek için:
echo -a /rekle radyo adý,adres komutunu uygulayýn.
echo -a Örnek: /rekle myradio,mms://66.155.122.14
}
}
on *:start: { if (%otoplay) && (%radiolink) && (%radioname) { mradyo | cal %radiolink } }
menu menubar,status,channel {
mIRC Radyo
.Aç : mradyo
.-
.Addonu Kaldýr: .unload -rs $shortfn($script)
}
on *:unload: {
unset %ara %line %ark %radio %icl %stoped %radioname %rstatus %radres %sh %radio_link %caldir %z %stop
echo -a mIRC Radyo v0.1 kaldýrýldý.
.remove $rlistem
$iif($isfile($shortfn(radio.txt)) == $true,.remove $shortfn(radio.txt))
}
alias mradyo player
alias -l coordinat {
if ($window(@player)) && ($window(@ipa)) {
if ($active == @ipa) window -a @player
if ($window(@ipa).x != $calc($window(@player).x - 1)) || ($window(@ipa).y != $calc($window(@player).y - 38)) {
window -a @ipa $calc($window(@player).x - 1) $calc($window(@player).y - 38) 220 38
if ($window(@rlist)) window @rlist $calc($window(@player).x + 221) $calc($window(@player).y - 38) 247 220
}
}
elseif (!$window(@player)) && ($window(@ipa)) { writetomsn BY SeRDaR406 | window -c @ipa | cal dur | .timereffect off }
elseif (!$window(@ipa)) && ($window(@player)) window -c @player
elseif (!$window(@ipa)) && (!$window(@player)) { if ($window(@rliste)) window -c @rliste | if ($window(@rlist)) window -c @rlist | .timertasi off }
}
alias -l radara {
info.y Aranýyor.Bekleyin...
write -c radio.txt
xg Listbox @rliste > Clear 1
set %ara $replace($1-,$chr(32),+)
set %line 0
sockclose ark
sockopen ark
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
}
on *:sockopen:ark: {
if ($sockerr) info.y Baðlantý Yok!
else {
var %s = sockwrite -n $sockname
%s GET /directory/?s= $+ %ara $+ &numresult=100 HTTP/1.1
%s Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockread:ark: {
sockread %ark
if (href="/sbin/shoutcast isin %ark) set %icl $remove($gettok($gettok(%ark,5,32),1,62),href=,")
if (target="_scurl" isin %ark) set %radio $+(%icl,¦,$htmlfree($gettok(%ark,$findtok(%ark,target="_scurl",1,32) $+ -,32)))
if (bgcolor="#001E5A"> isin %ark) && (color="#FFFFFF"> isin %ark) && (MP3 isin %ark) && (--> !isin %ark) {
inc %line
write -l $+ %line radio.txt $replace(%radio,ÿ,ý)
tokenize 166 $read(radio.txt,%line)
xg Listbox @rliste > AddItem 1 $2
unset %icl
}
if (</body> isin %ark) $iif($lines(radio.txt) > 0,info.y Arama bitti!,info.y Herhangi bir radyo bulunamadý...)
}
alias -l get_radio {
set %radres $1
sockclose shout
sockopen shout
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
}
on *:sockopen:shout: {
var %n = sockwrite -n $sockname
%n GET / $+ %radres HTTP/1.1
%n Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockread:shout: {
sockread %sh
if (File1 isin %sh) {
set %radio_link $remove(%sh,File1=)
cal %radio_link
}
}
alias -l 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)
.timereffect -m 0 90 effect-line
info.y Çalýyor...
.timer 1 1 info.y -w %radioname
}
if ($1 == Dur) && ($com(%caldir)) {
%z = $com($+(%caldir,wmp),Stop,3)
}
}
alias -l radio->load {
if ($lines(radio.txt) > 0) {
var %i = 1
while (%i <= $lines(radio.txt)) {
tokenize 166 $read(radio.txt,%i)
xg Listbox @rliste > AddItem 1 $2
inc %i
}
}
}
alias -l load->radyolist {
var %i = 1
while (%i <= $lines($rlistem)) {
tokenize 191 $read($rlistem,%i)
xg Listbox @rlist > AddItem 1 $1
inc %i
}
}
alias -l rliste {
if (!$window(@rlist)) {
$iif($window(@rliste),window -pBdoh +Ld @rlist $calc($window(@rliste).x + $window(@rliste).w + 2) $window(@rliste).y 247 220,window -pBdoh +Ld @rlist $calc($window(@player).x + 221) $calc($window(@player).y - 38) 247 220)
window -a @rlist
;Taþý rect
drawrect -r @rlist $rgb(0,0,0) 1 0 0 247 220
;Kapat rect
drawrect -r @rlist $rgb(0,0,0) 1 236 2 10 11
drawpic -t @rlist $rgb(255,0,255) 0 0 2 258 247 220 $tools
xg Mark @rlist
xg Create @rlist > listbox 1 10 80 227 140 vsbar
xg Create @rlist > editbox 2 10 57 150 16 authos
xg Set @rlist > style 1 windowedge
xg Set @rlist > style 2 windowedge
xg Set @rlist > color 2 $rgb(222,230,245) $rgb(54,77,121)
xg Set @rlist > color 1 $rgb(222,230,245) $rgb(54,77,121)
xg Set @rlist > font 2 Tahoma > 8 1 0 0 0
xg Set @rlist > font 1 Tahoma > 8 1 0 0 0
xg Create @rlist > button 3 165 53 60 21 bitmap > $ara.bmp $+ , $+ $ara.bmp $+ , $+ $arahot.bmp
xg Set @rlist > disable 3
drawtext -or @rlist $rgb(0,64,128) Tahoma 10 238 1 X
drawpic -s @rlist 2 2 16 16 $list.ico
drawtext -or @rlist $rgb(54,77,121) Tahoma 11 20 2 Hazýr Radyo Listesi
drawtext -or @rlist $rgb(0,64,128) Tahoma 11 10 202 Yeni ekle
drawrect -rd @rlist $rgb(219,229,247) 1 6 200 60 16
drawrect -r @rlist $rgb(255,255,255) 1 71 200 1 16
drawrect -r @rlist $rgb(128,128,192) 1 70 200 1 16
drawtext -or @rlist $rgb(0,64,128) Tahoma 11 90 202 SiL
drawrect -rd @rlist $rgb(219,229,247) 1 80 200 35 16
drawrect -r @rlist $rgb(255,255,255) 1 121 200 1 16
drawrect -r @rlist $rgb(128,128,192) 1 120 200 1 16
drawtext -or @rlist $rgb(0,64,128) Tahoma 11 135 202 Düzelt
drawrect -rd @rlist $rgb(219,229,247) 1 130 200 45 16
drawtext -or @rlist $rgb(0,64,128) Tahoma 11 197 202 Kapat
drawrect -r @rlist $rgb(255,255,255) 1 183 200 1 16
drawrect -r @rlist $rgb(128,128,192) 1 182 200 1 16
drawrect -rd @rlist $rgb(219,229,247) 1 192 200 43 16
if (%tpst) tdlg @rlist %tpval
.timer 1 1 load->radyolist
}
}
alias -l liste {
if (!$window(@rliste)) {
$iif($window(@rlist),window -pBdoh +Ld @rliste $calc($window(@rlist).x + $window(@rlist).w + 2) $window(@rlist).y 247 204,window -pBdoh +Ld @rliste $calc($window(@player).x + 221) $calc($window(@player).y - 38) 247 204)
window -a @rliste
;Taþý rect
drawrect -r @rliste $rgb(0,0,0) 1 0 0 247 204
;Kapat rect
drawrect -r @rliste $rgb(0,0,0) 1 236 2 10 11
drawpic -t @rliste $rgb(255,0,255) 0 0 1 51 247 208 $tools
xg Mark @rliste
xg Create @rliste > listbox 1 10 80 227 140 vsbar
xg Create @rliste > editbox 2 10 57 150 16 authos
xg Set @rliste > style 1 windowedge
xg Set @rliste > style 2 windowedge
xg Set @rliste > color 2 $rgb(222,230,245) $rgb(54,77,121)
xg Set @rliste > color 1 $rgb(222,230,245) $rgb(54,77,121)
xg Set @rliste > font 2 Tahoma > 8 1 0 0 0
xg Set @rliste > font 1 Tahoma > 8 1 0 0 0
xg Create @rliste > button 3 165 53 60 21 bitmap > $ara.bmp $+ , $+ $ara.bmp $+ , $+ $arahot.bmp
xg Set @rliste > disable 3
drawtext -or @rliste $rgb(0,64,128) Tahoma 10 238 1 X
drawpic -s @rliste 2 2 16 16 $find.ico
drawtext -or @rliste $rgb(54,77,121) Tahoma 11 20 2 Radyo Arama
if (%tpst) tdlg @rliste %tpval
radio->load
}
}
alias -l effect-line {
if ($window(@ipa)) {
var %line1 = $rand(1,18)
var %line2 = $rand(1,10)
var %line3 = $rand(5,15)
var %line4 = $rand(8,18)
var %line5 = $rand(10,18)
drawpic @ipa 190 0 190 0 30 20 $ipanel.bmp
drawrect -rf @ipa $rgb(54,77,121) 1 198 $calc(18 - %line1) 3 %line1
drawrect -rf @ipa $rgb(54,77,121) 1 202 $calc(18 - %line2) 3 %line2
drawrect -rf @ipa $rgb(54,77,121) 1 206 $calc(18 - %line3) 3 %line3
drawrect -rf @ipa $rgb(54,77,121) 1 210 $calc(18 - %line4) 3 %line4
drawrect -rf @ipa $rgb(54,77,121) 1 214 $calc(18 - %line5) 3 %line5
}
else .timereffect off
}
alias -l info.y {
if ($window(@ipa)) && ($1-) {
drawpic @ipa 0 0 $ipanel.bmp
$iif($1 == -w,$iif($2-,drawtext -cr @ipa $rgb(54,77,121) Tahoma 11 5 4 180 13 $2-,),drawtext -r @ipa $rgb(54,77,121) Tahoma 11 5 4 $1-)
}
}
alias -l info.panel {
window -pBdoh +dL @ipa $calc($window(@player).x - 1) $calc($window(@player).y - 38) 220 38
window -a @ipa
drawrect -r @ipa 0 1 0 0 220 38
dll $imgdll ImgDlg 1 1 $window(@ipa).hwnd $ipanel.bmp
drawpic @ipa 0 0 $ipanel.bmp
}
menu @ipa {
mouse: {
if ($mouse.key & 1) {
if ($inrect($mouse.x,$mouse.y,0,0,220,38)) dll $movedll movewin $window(@player).hwnd
}
}
}
alias -l player {
if (!$window(@player)) {
unset %played %stoped %stop %rstatus
window -pCBdoh +Ld @player 0 0 220 35
window -a @player
;Ses + rect
drawrect -r @player 0 1 81 12 16 16
;Ses - rect
drawrect -r @player 0 1 101 12 16 16
;Liste rect
drawrect -r @player 0 1 145 11 17 17
drawrect -r @player $rgb(0,0,0) 1 0 0 220 35
;Min rect
drawrect -r @player $rgb(0,64,128) 1 197 2 8 10
;Scroll tuþu rect
drawrect -rd @player 0 1 %pos 15 18 10 5 5
;Play rect
drawrect -re @player $rgb(0,0,0) 1 10 6 24 24 6 6
;Stop rect
drawrect -re @player $rgb(0,0,0) 1 38 11 15 15 6 6
;Kapat rect
drawrect -r @player $rgb(0,0,0) 1 209 2 8 11
drawpic -t @player $rgb(255,0,255) 0 0 163 0 220 35 $tools
;Ara tuþu rect
drawrect -r @player $rgb(0,0,0) 1 170 12 16 16
;Ayarlar rect
drawrect -r @player 0 1 122 10 19 19
drawpic @player 142 4 0 0 72 28 $tools
drawtext -or @player $rgb(0,64,128) Tahoma 10 210 1 X
drawrect -r @player $rgb(0,64,128) 1 197 10 8 2
;drawpic -s @player 170 12 16 16 $find.ico
info.panel
.timertasi 0 0 coordinat
info.y mIRC Radio vBeta BY SeRDaR406
drawpic @player 80 10 262 181 19 19 $tools
drawpic @player 100 10 262 181 19 19 $tools
drawtext -or @player $rgb(54,77,121) Tahoma 15 84 11 +
drawrect -r @player $rgb(54,77,121) 1 105 20 9 1
;List bitmap
drawpic @player 145 11 285 182 19 19 $tools
drawpic @player 122 10 262 205 19 19 $tools
;Search bitmap
drawpic -t @player $rgb(255,0,255) 168 12 285 208 19 19 $tools
if (%tpst) { tdlg @player %tpval | tdlg @ipa %tpval }
}
}
dialog mrdayar {
title "mIRC Radyo Ayarlarý"
size -1 -1 142 94
option dbu
box "", 1, 2 0 138 62
check "Dinlediðim radyoyu Msn'de Göster", 2, 5 6 92 10
check "Radyoyu Transparan göster", 3, 5 20 80 10
text "Transparanlýk Deðeri:", 4, 5 33 51 8, disable
scroll "", 5, 57 33 63 8, disable range 60 horizontal
text "", 6, 122 33 15 8, disable
button "Kapat", 7, 100 47 37 12, cancel
link "Önemli Not(Mutlaka okuyun)", 8, 2 63 68 8
text "Dinlenen radyonun msn'de ne dinliyorum bölümünde gösterilmesi olayý sadece hazýr listedeki radyolar için geçerlidir...", 9, 2 71 136 22
check "En son dinlediğimi açılışta oto çal", 10, 6 47 90 10
}
alias -l mdayar { if (!$dialog(mrdayar)) dialog -m mrdayar mrdayar }
on *:dialog:mrdayar:sclick:*: {
if ($did == 3) {
if ($did(3).state == 1) did -e $dname 4,5,6
else { did -b $dname 4,5,6 | unset %tpst }
}
if ($did == 2) {
$iif($did(2).state == 1,set %msnsg $true,unset %msnsg)
}
if ($did == 10) $iif($did(10).state == 1,set %otoplay on,unset %otoplay)
}
on *:dialog:mrdayar:init:*: {
if (!%tpval) set %tpval 0
did -a $dname 6 % $+ %tpval
if (%tpst) { did -e $dname 4,5,6 | did -c $dname 3 }
if (%msnsg) did -c $dname 2
if (%otoplay) did -c $dname 10
}
on *:dialog:mrdayar:scroll:5: {
var %val = $did(5).sel
set %tpst $true
if ($window(@player)) { tdlg @player %val | tdlg @ipa %val }
if ($window(@rlist)) tdlg @rlist %val
if ($window(@rliste)) tdlg @rliste %val
set %tpval %val
did -ra $dname 6 % $+ %tpval
}
alias -l writetomsn {
if (%msnsg) {
var %dll $MsnSong.dll
.comreg %dll
.comopen msn Msn.Write
var %i $com(msn,WriteToMsn,1,bstr,$1-,bstr,$null,bstr,$null)
.comreg -u %dll
.comclose msn
}
}
alias -l oynat {
.timereffect off
$iif($1 == -f,info.y Baðlanýyor...,info.y Açýlýyor...)
drawpic -t @player $rgb(255,0,255) 35 7 105 0 15 15 $tools
drawpic -t @player $rgb(255,0,255) 9 5 132 2 26 26 $tools
unset %played
set %stop seasd
if ($com(%caldir)) cal dur
if ($1 == -f) $iif($window(@rliste),get_radio $gettok($read(radio.txt,$xgg(Listbox,@rliste > GetSelItem 1)),1,166),cal %radio_link)
elseif ($1 == -s) {
var %item = $xgg(Listbox,@rlist > GetSelText 1)
if (Error !isin %item) {
tokenize 191 $read($rlistem,$xgg(Listbox,@rlist > GetSelItem 1))
set %radiolink $2
set %radioname Çalan Radyo: $1
cal $2
writetomsn %radioname
}
elseif (Error isin %item) { cal %radiolink | writetomsn %radioname }
}
}
alias -l radyolarda-ara {
var %q = $xgg(Get,@rlist > text 2)
if ($len(%q) <= 2) return $input(Aranacak radyonun ismi 3 harfi geçmelidir!,ohud,Hata)
else {
info.y Aranýyor.Bekleyin...
var %r = 1
while (%r <= $lines($rlistem)) {
tokenize 191 $read($rlistem,%r)
if (%q isin $1) { xg Listbox @rlist > SelItem 1 %r | info.y Aranýlan radyo bulundu... | halt }
elseif (%r == $lines($rlistem)) && (Zevzek !isin %q) info.y Bulunamadý!
inc %r
}
}
}
alias -l min_box {
if ($window(@player)) window -h @player
if ($window(@ipa)) window -h @ipa
if ($window(@rliste)) window -h @rliste
if ($window(@rlist)) window -h @rlist
window -pdoBh +dL @minbox $calc($window(-1).w - 70) $calc($window(-1).h - 45) 40 45
window -a @minbox
drawrect -r @minbox 0 1 0 0 40 45
drawpic -t @minbox $rgb(255,0,255) 0 0 262 131 64 64 $tools
}
menu @minbox {
sclick: {
if ($inrect($mouse.x,$mouse.y,0,0,45,45)) {
window -c @minbox | if ($window(@rliste)) window -a @rliste | window -a @ipa | if ($window(@rlist)) window -a @rlist | window -a @player
}
}
}
menu @player {
sclick: {
if ($inrect($mouse.x,$mouse.y,122,10,19,19)) mdayar
if ($inrect($mouse.x,$mouse.y,145,11,17,17)) rliste
if ($inrect($mouse.x,$mouse.y,101,12,16,16)) {
vol -v $round($calc($vol(master) / 2),0)
info.y Ses oraný: $round($calc($calc(100 * $vol(master)) / 65535),0)
drawrect -r @player $rgb(255,255,255) 1 105 20 9 1
.timer -m 1 20 drawrect -r @player $rgb(54,77,121) 1 105 20 9 1
if (%radioname) $iif(%stop,.timer 1 2 info.y %radioname,.timer 1 2 info.y mIRC Radyo vBeta BY SeRDaR406)
else .timer 1 2 info.y mIRC Radyo vBeta BY SeRDaR406
}
if ($inrect($mouse.x,$mouse.y,81,12,16,16)) {
vol -v $round($calc($vol(master) * 2),0)
info.y Ses oraný: $round($calc($calc(100 * $vol(master)) / 65535),0)
drawtext -or @player $rgb(255,255,255) Tahoma 15 84 11 +
.timer -m 1 20 drawtext -or @player $rgb(54,77,121) Tahoma 15 84 11 +
if (%radioname) $iif(%stop,.timer 1 2 info.y %radioname,.timer 1 2 info.y mIRC Radyo vBeta BY SeRDaR406)
else .timer 1 2 info.y mIRC Radyo vBeta BY SeRDaR406
}
if ($inrect($mouse.x,$mouse.y,209,2,8,11)) window -c @player
if ($inrect($mouse.x,$mouse.y,170,12,16,16)) liste
if ($inrect($mouse.x,$mouse.y,10,6,24,24)) { if (%played) $iif(%rstatus == ilk,oynat -f,oynat -s) }
if ($inrect($mouse.x,$mouse.y,197,2,8,10)) min_box
if ($inrect($mouse.x,$mouse.y,38,11,15,15)) {
if (%stop) {
drawpic -t @player $rgb(255,0,255) 35 7 105 26 15 15 $tools
drawpic -t @player $rgb(255,0,255) 9 4 254 39 26 26 $tools
unset %stop
set %played sadsad
cal dur
.timereffect off
info.y Durduruldu!
}
}
}
mouse: {
if ($inrect($mouse.x,$mouse.y,10,6,24,24)) {
if (%played) drawpic -t @player $rgb(255,0,255) 9 4 77 0 26 26 $tools
}
elseif (%played) drawpic -t @player $rgb(255,0,255) 9 4 254 39 26 26 $tools
elseif (!%played) drawpic -t @player $rgb(255,0,255) 9 5 132 2 26 26 $tools
if ($inrect($mouse.x,$mouse.y,38,11,15,15)) {
if (%stop) drawpic -t @player $rgb(255,0,255) 35 7 105 0 15 15 $tools
}
elseif (!%stop) drawpic -t @player $rgb(255,0,255) 35 7 105 26 15 15 $tools
if ($mouse.key & 1) dll $movedll movewin $window(@player).hwnd
}
}
menu @rliste {
sclick: {
if ($inrect($mouse.x,$mouse.y,0,0,247,220)) dll $movedll movewin $window(@rliste).hwnd
if ($inrect($mouse.x,$mouse.y,236,2,10,11)) window -c @rliste
}
}
alias rekle {
tokenize 44 $1-
if (!$1) echo -a Eklenecek radyonun adý girilmedi!
elseif (!$2) echo -a Eklenecek radyonun adresi girilmedi!
else { write $rlistem $+($1,¿,$2) | echo -a Radyonuz Hazýr Listeye eklenmiþtir. }
}
alias -l add->aradyo {
drawrect -rd @rlist $rgb(219,229,247) 1 6 200 60 16
var %radnm = $input(Eklenecek radyonun adýný ve adresini girin: $+ $crlf $+ (Örn: Myradyo $+ $chr(44) $+ mms://64.128.11.20),e,Radyo ekle)
if (%radnm) {
tokenize 44 %radnm
if (($1) && ($2)) { write $rlistem $+($1,¿,$2) | xg Listbox @rlist > AddItem 1 $1 }
}
}
alias -l remove->radyo {
drawrect -rd @rlist $rgb(219,229,247) 1 80 200 35 16
var %gradyo = $xgg(Listbox,@rlist > GetSelItem 1)
if (%gradyo == 0) return $input(Listeden silenecek radyoyu seçin!,ohud,Hata)
else {
write -dl $+ %gradyo $rlistem | xg Listbox @rlist > DeleteItem 1 %gradyo
}
}
alias -l edit->radyo {
drawrect -rd @rlist $rgb(219,229,247) 1 130 200 45 16
var %gradyo = $xgg(Listbox,@rlist > GetSelItem 1)
if (%gradyo == 0) return $input(Listeden düzeltilecek radyoyu seçin!,ohud,Hata)
else {
var %rdy = $input(Radyonun yeni adýný ve adresini girin: $+ $crlf $+ (Örn: Yeniradyo $+ $chr(44) $+ http://121.22.211.11),e,Radyo Düzelt)
if (%rdy) {
tokenize 44 %rdy
if (($1) && ($2)) {
write -l $+ %gradyo $rlistem $+($1,¿,$2) | xg Listbox @rlist > Clear 1 | load->radyolist
xg Listbox @rlist > SelItem 1 %gradyo
}
}
}
}
menu @rlist {
sclick: {
if ($inrect($mouse.x,$mouse.y,0,0,247,220)) dll $movedll movewin $window(@rlist).hwnd
if ($inrect($mouse.x,$mouse.y,236,2,10,11)) || (($inrect($mouse.x,$mouse.y,192,200,43,16))) window -c @rlist
if ($inrect($mouse.x,$mouse.y,6,200,60,16)) add->aradyo
if ($inrect($mouse.x,$mouse.y,80,200,35,16)) remove->radyo
if ($inrect($mouse.x,$mouse.y,130,200,46,16)) edit->radyo
}
mouse: {
if ($inrect($mouse.x,$mouse.y,6,200,60,16)) drawrect -rd @rlist $rgb(190,196,222) 1 6 200 60 16
else drawrect -rd @rlist $rgb(219,229,247) 1 6 200 60 16
if ($inrect($mouse.x,$mouse.y,80,200,35,16)) drawrect -rd @rlist $rgb(190,196,222) 1 80 200 35 16
else drawrect -rd @rlist $rgb(219,229,247) 1 80 200 35 16
if ($inrect($mouse.x,$mouse.y,130,200,46,16)) drawrect -rd @rlist $rgb(190,196,222) 1 130 200 45 16
else drawrect -rd @rlist $rgb(219,229,247) 1 130 200 45 16
if ($inrect($mouse.x,$mouse.y,192,200,43,16)) drawrect -rd @rlist $rgb(190,196,222) 1 192 200 43 16
else drawrect -rd @rlist $rgb(219,229,247) 1 192 200 43 16
}
}
on *:signal:xGUI: {
if ($1 == @rliste) {
if ($2 == dclick) && ($3 == 1) && ($xgg(Listbox,@rliste > GetSelItem 1)) { set %radioname $xgg(Listbox,@rliste > GetSelText 1) | set %rstatus ilk | oynat -f }
if ($2 == sclick) && ($3 == 3) { .timereffect off | radara $xgg(Get,@rliste > text 2) }
if ($2 == edit) && ($3 == 2) $iif(!$xgg(Get,@rliste > text 2),xg Set @rliste > disable 3,xg Set @rliste > enable 3)
if ($2 == sclick) && ($3 == 1) && ($xgg(Listbox,@rliste > GetSelText 1)) {
if (!%stoped) {
drawpic -t @player $rgb(255,0,255) 9 4 254 39 26 26 $tools | set %stoped selam | set %played oynat!
}
}
}
if ($1 == @rlist) {
if ($2 == dclick) && ($3 == 1) && ($xgg(Listbox,@rlist > GetSelItem 1)) { set %radioname $xgg(Listbox,@rliste > GetSelText 1) | set %rstatus ikinci | oynat -s }
elseif ($2 == sclick) && ($3 == 3) { .timereffect off | radyolarda-ara }
elseif ($2 == edit) && ($3 == 2) $iif(!$xgg(Get,@rlist > text 2),xg Set @rlist > disable 3,xg Set @rlist > enable 3)
if ($2 == sclick) && ($3 == 1) && ($xgg(Listbox,@rliste > GetSelText 1)) {
if (!%stoped) {
drawpic -t @player $rgb(255,0,255) 9 4 254 39 26 26 $tools | set %stoped selam | set %played oynat!
}
}
}
}
|
