An mp3 player focusing on ease of use and to be pleasant on the eyes, playlist managing has been the main focus of mine i wanted it to work as smooth possibly

menu * { 
  mp3: /dialog -m mp3 mp3
} 
dialog mp3 {
  title "Mp3 By Baaz"
  size -1 -1 129 160
  option dbu notheme
  button " Play ", 1, 11 62 31 12
  button "Stop", 2, 84 62 30 12
  button "Pause", 3, 48 62 29 12
  box "", 4, 5 55 118 22
  text " Now Playing Song:", 5, 32 43 46 8, center
  box "", 6, 24 40 82 14
  edit "", 7, 4 23 115 18, read
  button "» Choose Song", 8, 6 86 51 15
  button "» Set Song Directory", 9, 61 85 52 15
  link "www.sukhbira.blogspot.com", 12, 27 142 73 8
  text "BaazScript 3.0", 10, 35 13 50 8, disable center
  button " [ Choose Theme ]", 11, 2 122 72 12
  edit "BAAZ MUSIC PLAYER", 13, 34 1 58 10, disable read
  radio "Theme #1", 14, 4 105 39 12, result
  edit "[.:Listens To:.] [ .:<song>:.]", 15, 46 106 79 10, read
  button "Done", 16, 77 123 44 11
}
on 1:dialog:mp3:sclick:1:{
  /splay %mp3song $sfile(%mp3d.dir)
  amsg 4[7.12:4Listens To12:4.12] 12[4.10:12 $+ %mp3msgchan $+ 12:14.10] 10[14.12:4Album12:4.12] 4[14.12:4 $+ $sound(%mp3song).album $+ 10:12.4] 10[12.4:12Bitrate4:12.4] 12[11.12:4 $+ $sound(%mp3song).bitrate $+ 3kbps $+ 4:12.4] 10[12.4:12Length12:12.4] 12[4.10:12 $+ $gmt($calc($sound(%mp3song).length / 1000),nn:ss) $+ 4:12.4] 12[11.4:12MP310:4.12]
}
on 1:dialog:mp3:sclick:2:{
  /splay stop
}
on 1:dialog:mp3:sclick:3:{
  /splay pause
}
on 1:dialog:mp3:sclick:9:{
  set %mp3d.dir $dir="Select your MP3 Directory" 
}
on 1:dialog:mp3:sclick:8:{
  set %mp3song $sfile(%mp3d.dir)
}