/ Playlist script by DarthMan™

// define current/next song, active player variables

var iCurrentSong, iNextSong : TSongInfo;
var iActivePlayer : TPlayer;
var bPlayListGenerated : Boolean = False;
// continuous loop

pal.loop := True;
// lock pal execution

Pal.LockExecution;

iActivePlayer := ActivePlayer;
iCurrentSong := iActivePlayer.GetSongInfo;
iNextSong := Queue.NextInQueue;
Queue.Add(iNextSong, ipTop);

// if current song is not null and is type song, not jingle etc and there is no next track

if iCurrentSong <> nil then
begin
    if ((iCurrentSong['songtype'] = 'S') and (iNextSong = nil)) then
    begin
        Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
        Cat['Underground'].QueueBottom(smPriority, EnforceRules);
    end;
end
else
begin
    Cat['Underground'].QueueBottom(smPriority, EnforceRules);
end;

bPlayListGenerated := ((iCurrentSong <> nil) and (iNextSong <> nil));

//unlock pal execution

Pal.unLockExecution;

//free the variables if the playlist was generated

if bPlayListGenerated = True then
begin
     iCurrentSong.Free;
     iNextSong.Free;
     iActivePlayer.Free;
end;

//wait for count

Pal.WaitForPlayCount(1); //Restart after 1 play

if iNextSong <> nil then
Queue.Add(iNextSong, ipTop);

if iNextSong <> nil then
begin
    Queue.Add(iNextSong, ipTop);
end
else
begin
    Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
    Cat['Underground'].QueueBottom(smWeighted, EnforceRules);
end;