alias RemoveM3u {
set %rme.fle .mp3 .ogg
var %m3u = $line(@filelist,N)
var %pup = 0
while (%m3u > 0) && (%pup < $numtok(%rme.fle,32)) {
inc %pup
var %match.file = * $+ $gettok(%rme.fle,%pup,32) $+ *
if (%match.file !iswm $line(@filelist,%m3u)) {
dline @filelist %m3u
did -d player 8 %m3u
dec %m3u
}
else { dec %m3u }
}
}