var Song : TSongInfo; var P : TPlayer; PAL.Loop := True; PAL.WaitForTime('+00:10:00'); P := SoundFX; if P <> nil then begin Song := CAT['Station IDs (All)'].ChooseSong(smRandom,NoRules); if Song <> nil then begin P.QueueSong(Song); P.Play; end; end;
var Song : TSongInfo; var P : TPlayer; PAL.Loop := True; PAL.WaitForTime('+00:10:00'); if(ActivePlayer.Duration>60000) AND (ActivePlayer.Duration<1800000) then begin P := SoundFX; if P <> nil then begin Song := CAT['Station IDs (All)'].ChooseSong(smRandom,NoRules); if Song <> nil then begin P.QueueSong(Song); // P.Play; end; end; end;