1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
| alias mp3 {
if ($dialog(mp3)) { dialog -c mp3 }
else { dialog -dm mp3 mp3 }
}
; това е файла за плей листа
alias list { return list.txt }
alias loadpl {
did -r mp3 8
var %tmp = 1
set %mp3s $lines($list)
while (%tmp <= %mp3s) {
did -a mp3 8 $nopath($read($list,%tmp))
inc %tmp
}
}
alias addmp3 { if ($isfile(%dir $+ / $+ $nopath($1-))) { write $list $1- } }
dialog mp3 {
title "Mp3 Player"
size -1 -1 106 161
option dbu
edit "", 1, 4 4 98 10, read center
edit "", 2, 4 16 48 10, read center
edit "", 3, 54 16 48 10, read center
button "Back", 4, 4 28 22 12
button "Play", 5, 29 28 22 12
button "Pause", 6, 54 28 22 12
button "Next", 7, 80 28 22 12
list 8, 4 43 98 100, size vsbar
button "+", 9, 4 145 14 12
button "-", 10, 21 145 14 12
}
on 1:dialog:mp3:sclick:*: {
if ($did == 4) { did -c $dname 8 $calc($did(8).sel -1) }
if ($did == 7) { did -c $dname 8 $calc($did(8).sel +1) }
if ($did == 5) {
if (%play == stop) {
splay stop
set %play play
did -ra $dname 5 Play
did -r $dname 1,2,3
}
else {
splay $read($list,$did(8).sel)
set %play stop
did -ra $dname 5 Stop
did -ra $dname 1 $nopath($did(8).seltext)
did -ra mp3 2 $mp3($insong.fname).bitrate kbps
did -ra mp3 3 $mp3($insong.fname).mode
}
}
if ($did == 6) {
if (%pause == yes) { set %pause no | splay resume }
else { set %pause yes | splay pause }
}
if ($did == 9) {
write -c $list
set %dir $?="Enter directory:"
set %mp3s $findfile(%dir,*.mp3,0,addmp3 $1-)
loadpl
}
if ($did == 10) { write -c $list | loadpl }
}
on 1:dialog:mp3:init:*: { loadpl }
on 1:MP3END: {
if ($dialog(mp3)) { did -r mp3 1,2,3 | did -ra mp3 5 Play }
splay stop
set %play play
} |
