Je kunt het beter als vogt doen:
Bovenaan het script zet je deze 2 regel erbij:
Code: Selecteer alles
var QueueTime80 : Integer = (60*60*1200);
var QueueTime90 : Integer = (60*60*1200);
Dus dan gaat het er bovenaan het script zo uitzien:
Code: Selecteer alles
PAL.Loop:=True;
PAL.LockExecution;
var QueueTime : Integer = (60*60*500);
var QueueTime80 : Integer = (60*60*1200);
var QueueTime90 : Integer = (60*60*1200);
Als ik nou bijv. iedere woensdagmorgen om 08:00 u 80's en om 09:00 u. 90's wil draaien dan vul ik die uren als volgt in:
Code: Selecteer alles
while DayOfWeek(Now) = Wednesday and ((Now >= T['07:57:15']) and (Now <= T['07:57:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['08:59:40']);
Queue.AddFile('E:\uursluiter.wav',ipTop);
ActivePlayer.FadeTonext;
Queue.Clear;
Queue.AddFile('E:\tijdsein.mp3',ipBottom);
Queue.AddFile('C:\NIEUWS\NIEUWS.mp3',ipBottom);
While Queue.Duration < QueueTime80 do
Begin
Cat['JingleX'].QueueBottom(smRandom, NoRules);
Cat['80's'].QueueBottom(smLRP, EnforceRules);
Cat['80's'].QueueBottom(smLRP, EnforceRules);
end;
PAL.LockExecution;
end;
while DayOfWeek(Now) = Wednesday and ((Now >= T['08:57:15']) and (Now <= T['08:57:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['23:59:40']);
Queue.AddFile('E:\uursluiter.wav',ipTop);
ActivePlayer.FadeTonext;
Queue.Clear;
Queue.AddFile('E:\tijdsein.mp3',ipBottom);
Queue.AddFile('C:\NIEUWS\NIEUWS.mp3',ipBottom);
While Queue.Duration < QueueTimeLoveland do
Begin
Cat['JingleX'].QueueBottom(smRandom, NoRules);
Cat['90's'].QueueBottom(smLRP, EnforceRules);
Cat['90's'].QueueBottom(smLRP, EnforceRules);
end;
PAL.LockExecution;
end;
Nu worden die 2 uren aut. gevuld met de desbetreffende muziek zoals ze ingevuld zijn, dus je krijg een uur als volgt: Jingle, 2 platen, Jingle, 2 platen, enz. enz..tot het uur vol is.
Je kunt zelf de volgorde van platen en jingles bepalen.
Ik hoop dat het zo een beetje duidelijk is, zoniet dan hoor ik dat wel.
Succes,
Gerrit.
