menu channel,status,query {
Basic MP3 Player with Details: dialog -m basicmp3player basicmp3player
}
dialog basicmp3player {
title "MP3 Player"
size 0 80 350 20
option dbu
combo 100, 5 5 175 60,sort drop
button "PLAY", 900, 185 5 20 10
button "STOP", 901, 205 5 20 10
button "PAUSE", 902, 225 5 20 10
button "RESUME", 903, 245 5 25 10
button "", 999, 0 0 0 0, cancel
text "Random Autoplay", 800, 275 1 50 8
radio "On", 700, 275 10 15 10, group
radio "Off", 701, 300 10 15 10
}
on *:dialog:basicmp3player:init:0:{
var %null = $findfile($mp3dir,*.mp3,0,did -a basicmp3player 100 $nopath($1-))
did -c basicmp3player 100 1
did -c basicmp3player 701
}
on *:dialog:basicmp3player:sclick:900:{ splay $+(",$mp3dir,$did(basicmp3player,100).seltext,") | showmp3stuff }
on *:dialog:basicmp3player:sclick:901:{ splay stop }
on *:dialog:basicmp3player:sclick:902:{ splay -p pause }
on *:dialog:basicmp3player:sclick:903:{ splay -p resume }
on *:dialog:basicmp3player:sclick:999:{ .timerrandmp3 off | splay -p stop }
on *:dialog:basicmp3player:sclick:701:{ .timerrandmp3 off }
on *:mp3end:{
if ($dialog(basicmp3player) == $null) { return }
if ($did(basicmp3player,700).state != 1) { return }
.timerrandmp3 1 10 randplaymp3
}
alias randplaymp3 {
var %basicmp3playererlines = $did(basicmp3player,100).lines
did -c basicmp3player 100 $r(1,%basicmp3playererlines)
splay $did(basicmp3player,100).seltext
showmp3stuff
}
alias showmp3stuff {
echo -a 04-<>- $did(basicmp3player,100)
if ($sound($+($mp3dir,$did(basicmp3player,100))).album) { echo -a Album $sound($+($mp3dir,$did(basicmp3player,100))).album }
if ($sound($+($mp3dir,$did(basicmp3player,100))).title) { echo -a Title $sound($+($mp3dir,$did(basicmp3player,100))).title }
if ($sound($+($mp3dir,$did(basicmp3player,100))).artist) { echo -a Artist $sound($+($mp3dir,$did(basicmp3player,100))).artist }
if ($sound($+($mp3dir,$did(basicmp3player,100))).year) { echo -a Year $sound($+($mp3dir,$did(basicmp3player,100))).year }
if ($sound($+($mp3dir,$did(basicmp3player,100))).comment) { echo -a Comment $sound($+($mp3dir,$did(basicmp3player,100))).comment }
if ($sound($+($mp3dir,$did(basicmp3player,100))).genre) { echo -a Genre $sound($+($mp3dir,$did(basicmp3player,100))).genre }
if ($sound($+($mp3dir,$did(basicmp3player,100))).track) { echo -a Track $sound($+($mp3dir,$did(basicmp3player,100))).track }
if ($sound($+($mp3dir,$did(basicmp3player,100))).length) { echo -a Length $duration($calc($sound($+($mp3dir,$did(basicmp3player,100))).length / 1000)) }
if ($sound($+($mp3dir,$did(basicmp3player,100))).version) { echo -a Version $sound($+($mp3dir,$did(basicmp3player,100))).version }
if ($sound($+($mp3dir,$did(basicmp3player,100))).bitrate) { echo -a Bitrate $sound($+($mp3dir,$did(basicmp3player,100))).bitrate }
if ($sound($+($mp3dir,$did(basicmp3player,100))).vbr) { echo -a VBR $sound($+($mp3dir,$did(basicmp3player,100))).vbr }
if ($sound($+($mp3dir,$did(basicmp3player,100))).sample) { echo -a Sample $sound($+($mp3dir,$did(basicmp3player,100))).sample }
if ($sound($+($mp3dir,$did(basicmp3player,100))).mode) { echo -a Mode $sound($+($mp3dir,$did(basicmp3player,100))).mode }
if ($sound($+($mp3dir,$did(basicmp3player,100))).copyright) { echo -a Copyright $sound($+($mp3dir,$did(basicmp3player,100))).copyright }
if ($sound($+($mp3dir,$did(basicmp3player,100))).private) { echo -a Private $sound($+($mp3dir,$did(basicmp3player,100))).private }
if ($sound($+($mp3dir,$did(basicmp3player,100))).crc) { echo -a CRC $sound($+($mp3dir,$did(basicmp3player,100))).crc }
}