Code: Selecteer alles
v
PAL.Loop := True ;
var uur : String ;
uur := FormatDateTime('hh', Now) ;
PAL.LockExecution; // Speed-up !
PAL.WaitForTime('+00:00:05'); // na start 5 seconden wachten
// Kijk of het aan tijd voorwaardes voldoet
// Copieer de regels en wijzig de tijden naar believen, maar zorg dat er niet meer dan 5 seconden tussenzit
while ((Now >= T['01:32:00']) and (Now <= T['01:32:05'])) or
((Now >= T['02:32:00']) and (Now <= T['02:32:05'])) or
((Now >= T['03:32:00']) and (Now <= T['03:32:05'])) or
((Now >= T['04:32:00']) and (Now <= T['04:32:05'])) or
((Now >= T['05:32:00']) and (Now <= T['05:32:05'])) or
((Now >= T['06:32:00']) and (Now <= T['06:32:05'])) or
((Now >= T['07:32:00']) and (Now <= T['07:32:05'])) or
((Now >= T['08:32:00']) and (Now <= T['08:32:05'])) or
((Now >= T['09:32:00']) and (Now <= T['09:32:05'])) or
((Now >= T['12:32:00']) and (Now <= T['12:32:05'])) or
((Now >= T['13:32:00']) and (Now <= T['13:32:05'])) or
((Now >= T['14:32:00']) and (Now <= T['14:32:05'])) or
((Now >= T['15:32:00']) and (Now <= T['15:32:05'])) or
((Now >= T['16:32:00']) and (Now <= T['16:32:05'])) or
((Now >= T['17:32:00']) and (Now <= T['17:32:05'])) or
((Now >= T['18:32:00']) and (Now <= T['18:32:05'])) or
((Now >= T['19:32:00']) and (Now <= T['19:32:05'])) or
((Now >= T['20:32:00']) and (Now <= T['20:32:05'])) or
((Now >= T['21:32:00']) and (Now <= T['21:32:05'])) or
((Now >= T['22:32:00']) and (Now <= T['22:32:05'])) or
((Now >= T['23:32:00']) and (Now <= T['23:32:05'])) or
((Now >= T['00:32:00']) and (Now <= T['00:32:05'])) do
BEGIN
PAL.UnLockExecution; // Slow-down
WriteLn('Huidig uur: '+ IntToStr(uur+0));
Queue.AddFile('C:\0001\Jingle - wij hebben het lef om deze muziek te draaien.mp3',ipTop);
WriteLn('INTRO toegevoegd!');
PAL.WaitForTime('+00:00:05'); // 5 seconden wachten (pas aan naar wens)
PAL.LockExecution; // Speed-up !
END;het script loopt prima
naar door dat er ( Playlist rules ) gaat de jingle maar 1 per 4 uur [smilie=wink3.gif]
is dat met iets in het script op te lossen