Miscellany

dialog mp3 {
  title "MP3 Player"
  size -1 -1 322 132
  option dbu
  list 1, 146 11 164 81, size
  edit "", 2, 42 11 89 10, read autohs
  text "Now playing", 3, 6 12 35 8
  button "Select songs", 4, 12 37 40 12
  box "Playlist", 5, 140 3 174 92
  button "Play", 6, 81 37 37 12
  button "Stop", 7, 13 58 37 12
  box "Options", 8, 10 77 119 42
  box "", 10, 2 4 134 72
  check "Amsg on song change", 9, 13 87 83 10
  check "Repeat", 11, 13 102 50 10
  button "Pause", 12, 81 59 37 12
  box "Playlist controls", 14, 140 97 173 29
  button "Remove", 15, 156 109 37 12
  button ">", 16, 251 109 11 12
  button "<", 17, 223 109 12 12
  check "Shuffle", 18, 60 102 50 10
}
on *:dialog:mp3:sclick:4: {
  set %twa $msfile($mircdir,Choose the songs)
  set %lalada 1
  while (%lalada <= %twa) {
    /did -a mp3 1 $msfile(%lalada)
    inc %lalada
  }
}
on *:dialog:mp3:sclick:6: {
  /splay -p $did(1).seltext
  /did -ra mp3 2 $sound($insong.fname).title - $sound($insong.fname).artist
  set %lineno $did(1).sel
  if ($did(9).state) {
    /amsg $me is now playing 4[--- $sound($insong.fname).title - $sound($insong.fname).artist ---] [--- Length: $asctime($calc($sound($insong.fname).length / 1000),nn:ss) ---]
  }
}
on *:mp3end: {
  if ($did(mp3,18).state == 1) { /splay -p $did(mp3,1,$rand(1,$did(mp3,1).lines)) | goto amsg }
  if ($did(mp3,11).state == 1) { /splay -p $did(mp3,1,%lineno) | goto amsg }
  inc %lineno
  $iif(%lineno > $did(mp3,1).lines,set %lineno 1)
  /splay -p $did(mp3,1,%lineno)
  :amsg
  /did -ra mp3 2 $sound($insong.fname).title - $sound($insong.fname).artist
  if ($did(mp3,9).state) {
    /amsg $me is now playing 4[--- $sound($insong.fname).title - $sound($insong.fname).artist ---] [--- Length: $asctime($calc($sound($insong.fname).length / 1000),nn:ss) ---]
  }
}
on *:dialog:mp3:sclick:7: { /splay -p stop }
on *:dialog:mp3:sclick:12: {
  if (!%pause) {
    /splay -p pause
    /did -ra mp3 12 Unpause
    set %pause 1
    halt
  }
  if (%pause == 1) {
    /splay -p resume
    /did -ra mp3 12 Pause
    unset %pause
  }
}
menu * {
  MP3 Player:/mp3play
}
alias mp3play { /dialog -md mp3 mp3 }
alias /dstudio { /run C:\Users\EMILY\Desktop\Files\dstudio[1108253192]\dstudio\dstudio.exe }
on *:dialog:mp3:sclick:15: {
  /did -d mp3 1 $did(1).sel
}
on *:dialog:mp3:sclick:16: {
  if ($did(mp3,18).state == 1) { /splay -p $did(mp3,1,$rand(1,$did(mp3,1).lines)) | goto amsg }
  if ($did(mp3,11).state == 1) { /splay -p $did(mp3,1,%lineno) | goto amsg }
  inc %lineno
  $iif(%lineno > $did(mp3,1).lines,set %lineno 1)
  /splay -p $did(mp3,1,%lineno)
  :amsg
  /did -ra mp3 2 $sound($insong.fname).title - $sound($insong.fname).artist
  if ($did(mp3,9).state) {
    /amsg $me is now playing 4[--- $sound($insong.fname).title - $sound($insong.fname).artist ---] [--- Length: $asctime($calc($sound($insong.fname).length / 1000),nn:ss) ---]
  }
}
on *:dialog:mp3:sclick:17: {
  dec %lineno
  $iif(%lineno < 1,set %lineno $did(1).lines)
  /splay -p $did(1,%lineno)
  /did -ra mp3 2 $sound($insong.fname).title - $sound($insong.fname).artist
}
on *:dialog:mp3:close:0: { /splay -p stop }