dialog boogymp3 {
title "Mp3 Player by C3ll` aka Bøøgyman"
size -1 -1 165 172
option dbu
list %amout.mp3, 5, 4 4 156 119, size
box "Options", 15, 4 124 120 29
button "Play", 1, 37 132 25 16, flat
button "[ ]", 2, 66 132 25 16, flat
button "Select Dir", 8, 130 132 27 16, flat
button "Random", 13, 95 132 25 16, flat
button "Pause", 3, 8 132 25 8, flat
button "Bitch", 30, 141 322 75 25, hide ok cancel
button "Close", 6, 4 156 158 12, flat ok
box "", 56, 125 124 37 29
button "Resume", 4, 8 140 25 8, flat
}
on *:dialog:boogymp3:sclick:* {
if ($did == 1) {
splay %mp3.dir $+ $did($dname,5).seltext
ame BøøgyMp3 ~ Listening 2 :: $did($dname,5).seltext
set %mp3 $did($dname,5).seltext
did -a mp3 14 %mp3
set %playtype off
}
if ($did == 2) {
splay stop
set %playtype off
did -a mp3 14
set %mp3
set %playtype
}
if ($did == 8) {
%mp3.dir = $sdir(Select your new mp3 directory.)
did -a mp3 5
set %amout.mp3 = $findfile(%mp3.dir,*.mp3,0,did -a mp3 5 $nopath($1-))
}
if ($did == 3) {
splay pause
}
if ($did == 4) {
splay resume
}
if ($did == 13) {
var %x = $findfile(%mp3.dir,*.mp3,0,write randplay.txt $1-)
set %mp3 $read(randplay.txt)
splay %mp3
amsg BøøgyMp3: $did($dname,5).seltext
did -a mp3 14 $replace(%mp3,%mp3.dir, )
set %playtype Rand
mp3chan
}
}
on *:dialog:boogymp3:init:0: {
if (%mp3.dir == $null) {
%mp3.dir = $sdir(Select your mp3 directory.)
;Sets the mp3 dir on start
}
set %amout.mp3 = $findfile(%mp3.dir,*.mp3,0,did -a mp3 5 $nopath($1-))
}
on *:mp3end: {
If ( %playtype == off ) {
set %mp3
did -a mp3 14 %mp3
}
If ( %playtype == Rand ) {
var %x = $findfile(%mp3.dir,*.mp3,0,write randplay.txt $1-)
set %mp3 $read(randplay.txt)
splay %mp3
did -a mp3 14 $replace(%mp3,%mp3.dir, )
set %playtype Rand
mp3chan
}
}
if ($did == buttoncode) {
if (%mp3.vol <= 0) { set %mp3.vol 0 | goto endd }
elseif (%mp3.vol != 0) { goto down }
:down
%mp3.vol = $calc(%mp3.vol -6.5)
vol -p $calc(%mp3.vol * 1000)
:endd
}
if ($did == buttoncode) {
if (%mp3.vol >= 65) { set %mp3.vol 65 | goto endd }
elseif (%mp3.vol != 65) { goto upp }
:upp
%mp3.vol = $calc(%mp3.vol +6.5)
vol -p $calc(%mp3.vol * 1000)
:endw
}
on ^*:LOAD:#:echo # 4(2Loaded BøøgyMp34) | echo # 4(2Made by Bøøgyman4) | echo # 4(2Type /boogymp3 to open it or use popups4)
alias boogymp3 { if ($dialog(boogymp3) == $null { dialog -m boogymp3 boogymp3 }) }