ik gebruik nu dit script om elke minuut een bepaald bestand af te spelen over de muziek heen. Is het ook mogelijk om ipv elke minuut dit bestand af te spelen om te zetten naar elke tien seconden?
Code: Selecteer alles
PAL.loop := true;
var P1, P2 : TPlayer;
var i : integer;
var Song : TSongInfo;
{## Wait for next hour}
PAL.WaitForTime('XX:XX:XX:');
P1 := ActivePlayer;
// Get what the Volume is set to
i := ActivePlayer.GetVolume;
// Detect the empty player and queue a station ID in it
P2 := Aux1;
IdlePlayer.Volume := i;
if P2 <> nil then
Song := CAT['Radiospots'].ChooseSong(smRandom, EnforceRules);
if Song <> nil then
P2.QueueSong(Song);
// Reduce the Active Player by 50%
// Divide by 3 to get 33%, etc.
ActivePlayer.Volume := i / 2;
P2.play;
//Keep checking until the line is finished
repeat
// writeln(inttostr(p2.status));
until P2.status = psReady;
// Reset Volume Back To Normal
ActivePlayer.Volume := i;
Song.Free;