- ;----------------------
- ; MP3 PLAYER
- ;----------------------
-
- alias mp3_player { dialog -mdx mp3 mp3 }
- dialog mp3 {
- title " Mp3 Player"
- size -1 -1 157 179
- option dbu
- edit "Mp3 Player (EnEmY|Script)", 1, 20 4 122 10, disable center
- box "", 2, 26 24 108 22
- button "Play", 3, 34 30 28 11
- button "Pause", 4, 67 30 28 11
- button "Stop", 5, 99 30 28 11
- box "", 6, 4 68 150 107
- list 7, 9 83 140 86, size
- button "+", 8, 46 73 24 9
- button "-", 9, 85 73 24 9
- scroll "Volume", 10, 52 55 64 8, horizontal range 65535
- text "Volume:", 11, 21 55 26 8, center
- }
- on *:dialog:mp3:*:*:{
- if ($devent == init) { loadbuf -o $dname 7 mp3.txt }
- if ($devent == sclick) {
- if ($did == 8) { var %fichier-mp3 $sfile(*.*,Choisissez un fichier audio) | write mp3.txt $nopath(%fichier-mp3) | write mp3liste.txt %fichier-mp3 | loadbuf -rao $dname 7 mp3.txt }
- if ($did == 9) { write -dl $did($dname,7).sel mp3.txt | write -dl $did($dname,7).sel mp3liste.txt | did -r $dname 7 | loadbuf -rao $dname 7 mp3.txt }
- if ($did == 3) { splay $read(mp3liste.txt,%lines.mp3) }
- if ($did == 4) { if %pause == 1 { splay resume | %pause = 0 | did -ra $dname 4 Pause } | else { splay pause | %pause = 1 | did -ra $dname 4 Resume } }
- if ($did == 5) { splay stop }
- }
- if ($devent == mouse) { if ($did == 10) { vol -w $did(10).sel } }
- if ($devent == dclick) { if ($did == 7) { set %lines.mp3 $did($dname,7).sel | splay $read(mp3liste.txt,%lines.mp3) | msg.mp3 } }
- }
- alias msg.mp3 { amsg 14,1(15Mp³ Player14) (15 $+ $remove($read(mp3.txt,%lines.mp3),.mp3,.wma,.wav,.mid) $+ 14) (15 $+ $duration($calc($mp3($read(mp3liste.txt,%lines.mp3)).length / 1000 )) $+ 14) }
;----------------------
; MP3 PLAYER
;----------------------
alias mp3_player { dialog -mdx mp3 mp3 }
dialog mp3 {
title " Mp3 Player"
size -1 -1 157 179
option dbu
edit "Mp3 Player (EnEmY|Script)", 1, 20 4 122 10, disable center
box "", 2, 26 24 108 22
button "Play", 3, 34 30 28 11
button "Pause", 4, 67 30 28 11
button "Stop", 5, 99 30 28 11
box "", 6, 4 68 150 107
list 7, 9 83 140 86, size
button "+", 8, 46 73 24 9
button "-", 9, 85 73 24 9
scroll "Volume", 10, 52 55 64 8, horizontal range 65535
text "Volume:", 11, 21 55 26 8, center
}
on *:dialog:mp3:*:*:{
if ($devent == init) { loadbuf -o $dname 7 mp3.txt }
if ($devent == sclick) {
if ($did == 8) { var %fichier-mp3 $sfile(*.*,Choisissez un fichier audio) | write mp3.txt $nopath(%fichier-mp3) | write mp3liste.txt %fichier-mp3 | loadbuf -rao $dname 7 mp3.txt }
if ($did == 9) { write -dl $did($dname,7).sel mp3.txt | write -dl $did($dname,7).sel mp3liste.txt | did -r $dname 7 | loadbuf -rao $dname 7 mp3.txt }
if ($did == 3) { splay $read(mp3liste.txt,%lines.mp3) }
if ($did == 4) { if %pause == 1 { splay resume | %pause = 0 | did -ra $dname 4 Pause } | else { splay pause | %pause = 1 | did -ra $dname 4 Resume } }
if ($did == 5) { splay stop }
}
if ($devent == mouse) { if ($did == 10) { vol -w $did(10).sel } }
if ($devent == dclick) { if ($did == 7) { set %lines.mp3 $did($dname,7).sel | splay $read(mp3liste.txt,%lines.mp3) | msg.mp3 } }
}
alias msg.mp3 { amsg 14,1(15Mp³ Player14) (15 $+ $remove($read(mp3.txt,%lines.mp3),.mp3,.wma,.wav,.mid) $+ 14) (15 $+ $duration($calc($mp3($read(mp3liste.txt,%lines.mp3)).length / 1000 )) $+ 14) }