here is a quick code smile
Code:
  
alias Qplay {
  write X.txt $1- 
  splay -q $1-
  echo -atc notice * $nopath($1-) , add to play queue

}
on 1:Mp3end:{ 
  var %f = 1 | while ($read(x.txt,%f)) { if ($filename == $read(x.txt,%f)) write $+(-dl,%f) x.txt | inc %f }
  if ($window(@P)) { clear @p | loadbuf $lines(x.txt) @p x.txt }
}

alias w2 {
  if ($window(@p)) { clear @P | loadbuf $lines(x.txt) @p x.txt }
  else { window -lk0bd @p | loadbuf $lines(x.txt) @p x.txt }
}


;usage: /Qplay filename 
;use: /w2 , to veiw list if any!