Tritan - mp3 once again another code from my upcomeing iRc this is my first mp3 with dialog and i think it works pretty well please leave comments with input on what you think of it

dialog Mp3 {
  title "Tritan - iRc mp3"
  size -1 -1 113 143
  option dbu
  list 1, 0 2 113 104, vsbar
  box "Mp3 Controls", 2, 1 101 111 24
  button "Play", 3, 5 109 32 12
  button "Pause", 4, 38 109 32 12
  button "Stop", 5, 72 109 32 12
  text "Tritan - iRc mp3 By MaddnesS", 6, 0 136 110 17, center
  button "set directory", 7, 0 125 111 10
}
menu * {
  Mp3 { dialog -mdo Mp3 Mp3 }
}
on *:Dialog:Mp3:Sclick:*: {
  if $did = 7 {
    set %dir $sdir="Mp3 Directory"
    write -c mp3.txt
    noop $findfile(%dir,*.mp3,0,write mp3.txt $1-)
    var %num $findfile(%dir, *.mp3,0,did -a mp3 1 $nopath($1-))
  }
  if $did = 3 {
    var %Playing $Remove($did(mp3,1).seltext,.mp3)
    var %song $findfile(%dir,$did(mp3,1).seltext,1)
    set %length $gmt($round($calc($mp3(%song).length / 1000),0),nn:ss)
    splay %song
    amsg 10(15 Tritan - mp3 10) $+ 10(15 $+ $remove($nopath($insong.fname)$1-,.mp3) - %Length $+ 10) 
  }
  if $did = 4 {
    splay pause
  }
  if $did = 5 {
    splay Stop
    .timermp3 off
  }
}