Ferdi

menu * {
  .MP3 Player
  ..Open:/dialog -md mp3 mp3
  .Add Directory:/dialog -md mp3 mp3 | $sfile(*,Select your Music Folder,Ok) | writeini mp3.ini Songmap Playlist $file(*,Select your Music Folder,Ok) | did -ra mp3 1 $readini(mp3.ini,Songmap,Playlist)
}
alias MP3 {
  dialog -md mp3 mp3
}
dialog mp3 {
  title "MP3 Player - By `Ferdi"
  size -1 -1 191 109
  option dbu
  list 1, 5 3 181 42, size
  button "Play", 2, 75 49 20 12
  button "Stop", 3, 102 49 18 12
  check "Mute", 4, 145 49 50 10
  check "Pause", 5, 20 49 50 10
  button "Search for song", 6, 3 95 41 8
  edit "", 7, 48 95 50 9
  text "Volume", 8, 3 76 42 8
  edit "", 9, 48 76 50 8
  button "+", 10, 101 74 14 11
  button "-", 11, 117 74 14 11
  menu "File", 12
  item "Add Directory", 13, 12
  item "Exit", 14, 12, cancel
}
On *:dialog:init:0: {
  did -a mp3 9 $vol(song)
  did -a mp3 1 No songs imported yet
}
On *:dialog:menu:13: {
  writeini mp3.ini Songmap Playlist $sfile(*,Select your Music Folder,Ok)
  did -ra mp3 1 $readini(mp3.ini,Songmap,Playlist)
}