Unnamed

menu menubar,channel,status {
  »Mp3 Player«: dialog -dm mp3 mp3
}
dialog mp3 {
  title "mp3 Player"
  size -1 -1 74 155
  option dbu
  list 5, 0 14 74 105, size
  button "Play", 1, 0 119 37 12, flat
  button "Stop", 2, 37 119 37 12, flat
  button "Pause", 3, 0 131 37 12, flat
  button "Resume", 4, 37 131 37 12, flat
  button "Directory", 6, 0 143 74 12, flat
  edit "N/A", 7, 1 2 72 12, flat
}
on *:dialog:mp3:sclick:*:{
  if $did = 1 {
    set %mp3 $did(mp3,5).seltext
    set %Play.song $findfile(%mp3dir,$did(mp3,5).seltext,1)
    set %bitr $mp3(%play.song).bitrate
    set %length $gmt($round($calc($mp3(%play.song).length / 1000),0),nn:ss)
    set %mp3size $bytes($file(%Play.song).size).suf 
    set %khz $round($calc($mp3(%Play.song).sample / 1000),1)) 
    inc %mpplay
    splay %Play.song
    did -ra mp3 7 » $+ %mp3 $+ «
    msg $active 14,1( Song:0,1 %mp3 14,1Length:0,1 %Length 14,1Bitrate:0,1 %bitr 14,1Size:0,1 %mp3size 14,1Khz:0,1 %khz 14,1(0,1Played %mpplay Songs14,1)    

  }
  if $did = 2 {
    splay stop
  }
  if $did = 3 {
    splay pause
  }
  if $did = 4 {
    play resume
  }
  if $did = 6 {
    set %mp3dir $sdir="Mp3 Directory"
    set %mp3num $findfile(%mp3dir, *.mp3,0,did -a mp3 5 $nopath($1-))
  }
}