{creado por SIRINICKIS3}

PAL.loop := true;
var Current,Aux : TPlayer;
var Song : TSongInfo;

PAL.WaitForTime('00:00:04');
PAL.WaitForPlayCount(2);

Current := ActivePlayer;
Song := Current.GetSongInfo;

if (Song['songtype'] = 'S') then
begin
Aux := Aux1;
if Aux <> nil then
Song := CAT['Station IDs (All)'].ChooseSong(smRandom, NoRules);
if Song <> nil then
Aux.QueueSong(Song);
Aux.play;
Song.Free;
end;