alias promp3 {
  window -ald @promp3
  loadsongs $1-
}

alias -l loadsongs {
  if ($len($1-) > 0) %promp3dir = $+(",$1-,")
  if (!$var(%promp3dir)) %promp3dir = $sdir(C:,Select mp3 directory)

  clear @promp3
  .echo -q $findfile(%promp3dir,*.mp3,0,0,@promp3)
}

alias -l promp3play {
  if (!$window(@promp3)) return
  if ($line(@promp3,0) == 0) return

  tokenize 32 $$1 1

  if ($1 > $line(@promp3,0)) tokenize 32 1

  splay -p $+(",$line(@promp3,$1),")
  sline @promp3 $1
  ;echo -s * Playing $line(@promp3,$1)
}

on *:MP3END:{
  if (!$window(@promp3)) return
  promp3play $calc($sline(@promp3, 1) + 1)
}

menu @promp3 {
  dclick:{ promp3play $1 }
  rclick:{ remove $+(",$line(@promp3,$1),") | dline @promp3 $1 | promp3play $1 }
}