This is my Mp3 Player just a simple one i know got the volume idea from ^Neptune's Mp3, anything i should add?

menu * {
  Mp3 Player: dialog -dmh mp3 mp3
}
dialog Mp3 {
  title "Mp3 Player"
  size -1 -1 155 189
  option dbu
  list 5, 4 24 98 72, size
  button "Play", 1, 7 107 48 10
  button "Pause", 3, 59 107 44 10
  button "Resume", 4, 59 120 44 10
  button "Stop", 2, 7 120 48 10
  button "Directory", 6, 7 131 96 15
  check "Msg to active", 12, 4 174 52 10
  box "Controls", 13, 4 98 102 50
  scroll "", 14, 11 155 86 11, horizontal top range 0 65535
  box "Volume", 15, 4 149 98 23
  edit "", 16, 57 2 97 10, read autohs
  text "Now Playing:", 17, 23 3 34 8
  box "List", 18, 2 16 104 83
}
on *:dialog:Mp3:sclick:*:{
  if ($did == 1) {
    var %mp3msg $did(mp3,12).state
    if (%mp3msg == 0) {
      var %Psong $findfile(%mp3dir,$did(mp3,5).seltext,1)
      did -ra mp3 16 $did(mp3,5).seltext
      splay %Psong
    }
    if (%mp3msg == 1) {    
      var %mp3 $did(mp3,5).seltext
      var %mp3 $did(mp3,5).seltext
      var %Psong $findfile(%mp3dir,$did(mp3,5).seltext,1)
      var %mp3length $gmt($round($calc($mp3(%Psong).length / 1000),0),nn:ss)
      var %mp3bitr $mp3(%Psong).bitrate
      splay %Psong
      did -ra mp3 16 $did(mp3,5).seltext
      msg $active 4,1Now playing0,1:4,1 $remove(%mp3,.mp3) 0,1[4,1Length0,1:4,1 %mp3length 0,1/4,1 Bitrate0,1:4,1 %mp3bitr $+ 0,1]
    }
  }
  if ($did == 2) {
    splay stop
  }
  if ($did == 3) {
    splay pause
  }
  if ($did == 4) {
    splay resume
  }
  if ($did == 6) {
    set %mp3dir $sdir(mIRC,Mp3 Directory)
    did -r mp3 5
    set %mp3num $findfile(%mp3dir, *.mp3,0,did -a mp3 5 $nopath($1-))
  }
}
on *:dialog:mp3:dclick:5:{
  var %mp3msg $did(mp3,12).state
  if (%mp3msg == 1) {
    var %mp3 $did(mp3,5).seltext
    did -ra mp3 16 $did(mp3,5).seltext
    var %Psong $findfile(%mp3dir,$did(mp3,5).seltext,1)
    var %mp3length $gmt($round($calc($mp3(%Psong).length / 1000),0),nn:ss)
    splay %Psong
    msg $active 4,1Now playing0,1:4,1 $remove(%mp3,.mp3) 0,1[4,1Length0,1:4,1 %mp3length 0,1/4,1 Bitrate0,1:4,1 %mp3bitr $+ 0,1]
  }
  if (%mp3msg == 0) { 
    var %mp3 $did(mp3,5).seltext
    did -ra mp3 16 $did(mp3,5).seltext
    var %Psong $findfile(%mp3dir,$did(mp3,5).seltext,1)
    splay %Psong
  }
}
on *:dialog:Mp3:scroll:14:{
  vol -v $did($did).sel 
}