Forums Scripts & Popups mp3 display

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 } 
}