dialog mp3 {
  title "MP3 Player"
  size -1 -1 188 155
  option dbu
  list 1, 8 65 93 70, size
  edit "", 2, 58 8 89 10, read autohs
  button "Select songs", 4, 18 33 35 9
  box "Playlist", 5, 2 57 103 95
  button "Play", 6, 56 33 35 9
  button "Stop", 7, 18 43 35 9
  box "Options", 8, 107 26 79 40
  box "Mp3 Controls", 10, 15 25 78 29
  check "Amsg on song change", 9, 109 33 64 10
  check "Repeat", 11, 109 42 50 10
  button "Pause", 12, 56 43 35 9
  box "Playlist controls", 14, 107 67 79 85
  button "Remove", 15, 112 75 37 8
  button ">", 16, 168 75 16 16
  button "<", 17, 151 75 16 16
  check "Shuffle", 18, 109 52 50 10
  edit "", 13, 8 138 93 10, read autohs
  box "Now Playing", 19, 17 3 159 18
  edit "Filename", 3, 114 99 32 10
  button "Save", 20, 150 99 24 10
  combo 21, 115 119 60 34, size drop
  button "Load", 22, 114 134 30 12
  button "Remove all", 23, 112 83 37 8
  button "Delete", 24, 150 134 30 12
}
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
  /did -r mp3 13
}
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 }
on *:dialog:mp3:sclick:1: { /did -ra mp3 13 $sound($did(1).seltext).title - $sound($did(1).seltext).artist }
on *:dialog:mp3:sclick:20: {
  var %g = 1
  var %gi = $did(1).lines
  while (%g <= %gi) {
    /writeini mp3.ini $replace($did(3),$chr(32),_) %g $did(1,%g)
    inc %g
  }
  /did -a mp3 21 $did(3)
}
on *:dialog:mp3:init:0: {
  var %h = 1
  var %hi = $ini(mp3.ini,0)
  while (%h <= %hi) {
    /did -a mp3 21 $replace($ini(mp3.ini,%h),_,$chr(32))
    inc %h
  }
}
on *:dialog:mp3:sclick:22: {
  /did -r mp3 1
  var %j = 1
  var %ji = $ini(mp3.ini,$replace($did(21).seltext,$chr(32),_),0)
  while (%j <= %ji) {
    /did -a mp3 1 $readini(mp3.ini,$replace($did(21).seltext,$chr(32),_),%j)
    inc %j
  }
}
on *:dialog:mp3:sclick:23: {
  /did -r mp3 1
}
on *:dialog:mp3:sclick:24: {
  /remini mp3.ini $replace($did(21).seltext,$chr(32),_)
  /did -d mp3 21 $did(21).sel
}