just a simple mp3 player with dialog "my first mp3 player with dialog" lol :O

on *:LOAD:{ echo -a thanks for loaded Simple MP3 Player V2 by CharltonJ }
dialog mv2 {
  title "Mp3 Player V2"
  size -1 -1 132 78
  option dbu
  button "mp3 folder", 2, 6 12 37 12
  button "play", 3, 49 12 37 12
  button "Pause", 5, 91 12 37 12
  button "Resume", 6, 6 31 37 12
  button "Stop", 7, 49 31 37 12
  button "Choose MP3", 8, 91 31 37 12
  scroll "", 14, 34 58 64 12, range 0 100 horizontal
  box "Volume", 9, 27 50 80 25
  text " Simple MP3 Player made it by CharltonJ", 1, 15 3 108 8
}
on 1:dialog:mv2:sclick:2: {
  set %mp3dir $sdir="set mp3 folder"
  echo -a Folder Changed to " $+ %mp3dir $+ "
  dialog -x mv2
  dialog -m mv2 mv2
}
on 1:dialog:mv2:sclick:8: {
  set %mp3 $sfile(%mp3dir $+ $did(8).seltext)
  splay %mp3
}
on 1:dialog:mv2:sclick:5: {
  splay pause
}
on 1:dialog:mv2:sclick:6: {
  splay resume
}
on 1:dialog:mv2:sclick:7: {
  splay stop
}
on *:mp3end: {
  set %mp3 $rand(1,$findfile(%mp3dir,*.mp3,0)))
  set %mp3 $findfile(%mp3dir,*.mp3,%mp3)
}
on *:dialog:mv2:*:*: {
  if ($devent == scroll) {
    if ($did == 14) { 
      vol -w $calc($did($dname,14).sel * 655.35)
      set %volume $vol(song)
    }
  }
}