pakt zondag niet week script

[marceld]

Hoi ik heb dit als week PAL script en laad via PAL scripts.
Het probleem is dat hij op zondag een andere playlist moet spelen maar hij vertikt het gaat steeds gewoon de Queue.Duration afspelen op zondag.

Code: Selecteer alles

PAL.Loop:=True;
PAL.LockExecution;
var QueueTime : Integer = (60*60*500);


while DayOfWeek(Now) = Saturday and ((Now >= T['00:05:15']) and (Now <= T['00:05:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['xx:03:00']);
Queue.Clear;
PAL.LockExecution;
end;

while DayOfWeek(Now) = Sunday and ((Now >= T['xx:01:15']) and (Now <= T['xx:01:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['xx:01:45']);
PAL.WaitForTime(T['xx:03:00']);
Cat['nieuw nl muziek'].QueueBottom(smLRP, EnforceRules);
Cat['nieuw nl muziek'].QueueBottom(smLRP, EnforceRules);
Cat['nieuw nl muziek'].QueueBottom(smLRP, EnforceRules);
Cat['jingles zondag'].QueueBottom(smRandom, NoRules);
Cat['jingles zondag'].QueueBottom(smRandom, NoRules);
Cat['oldies'].QueueBottom(smRandom, NoRules);
Cat['nieuw nl muziek'].QueueBottom(smLRP, EnforceRules);
Cat['nieuw nl muziek'].QueueBottom(smLRP, EnforceRules);
Cat['oud nl muziek'].QueueBottom(smLRP, EnforceRules);
Cat['01jingles'].QueueBottom(smRandom, NoRules);
Cat['nieuw nl muziek'].QueueBottom(smLRP, EnforceRules);
Cat['nieuw nl muziek'].QueueBottom(smLRP, EnforceRules);
Cat['jingles zondag'].QueueBottom(smRandom, NoRules);
Cat['oldies'].QueueBottom(smRandom, NoRules);
Cat['nieuw nl muziek'].QueueBottom(smRandom, NoRules);
Cat['nieuw nl muziek'].QueueBottom(smLRP, EnforceRules);
Cat['oud nl muziek'].QueueBottom(smLRP, EnforceRules);
Cat['01jingles'].QueueBottom(smRandom, NoRules);
Cat['nieuw nl muziek'].QueueBottom(smLRP, EnforceRules);
Cat['nieuw nl muziek'].QueueBottom(smRandom, NoRules);
Cat['jingles zondag'].QueueBottom(smRandom, NoRules);
Cat['nieuw nl muziek'].QueueBottom(smLRP, EnforceRules);
Cat['nieuw nl muziek'].QueueBottom(smRandom, NoRules);
Cat['nieuw nl muziek'].QueueBottom(smLRP, EnforceRules);
Cat['jingles zondag'].QueueBottom(smRandom, NoRules);
Cat['oldies'].QueueBottom(smRandom, NoRules);
Cat['oud nl muziek'].QueueBottom(smLRP, EnforceRules);
Cat['nieuw nl muziek'].QueueBottom(smLRP, EnforceRules);
Cat['nieuw nl muziek'].QueueBottom(smRandom, NoRules);
PAL.LockExecution;
end;


while DayOfWeek(Now) = Monday and ((Now >= T['00:05:15']) and (Now <= T['00:05:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['xx:03:00']);
PAL.LockExecution;
end;

while DayOfWeek(Now) = Tuesday and ((Now >= T['00:05:15']) and (Now <= T['00:05:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['xx:03:00']);
PAL.LockExecution;
end;

while DayOfWeek(Now) = Wednesday and ((Now >= T['00:05:15']) and (Now <= T['00:05:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['xx:03:00']);
PAL.LockExecution;
end;

while DayOfWeek(Now) = Thursday and ((Now >= T['00:05:15']) and (Now <= T['00:05:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['xx:03:00']);
PAL.LockExecution;
end;

while DayOfWeek(Now) = Friday and ((Now >= T['00:05:15']) and (Now <= T['00:05:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['xx:03:00']);
PAL.LockExecution;
end;

While Queue.Duration < QueueTime Do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['xx:03:00']);
Cat['nieuw nl muziek'].QueueBottom(smLRP, EnforceRules);
Cat['nieuw nl muziek'].QueueBottom(smLRP, EnforceRules);
Cat['nieuw nl muziek'].QueueBottom(smLRP, EnforceRules);
Cat['01jingles'].QueueBottom(smRandom, NoRules);
Cat['oud nl muziek'].QueueBottom(smRandom, NoRules);
Cat['nieuw nl muziek'].QueueBottom(smRandom, NoRules);
Cat['nieuw nl muziek'].QueueBottom(smLRP, EnforceRules);
Cat['oldies'].QueueBottom(smRandom, NoRules);
Cat['01jingles'].QueueBottom(smRandom, NoRules);
Cat['nieuw nl muziek'].QueueBottom(smRandom, NoRules);
Cat['nieuw nl muziek'].QueueBottom(smLRP, EnforceRules);
Cat['oud nl muziek'].QueueBottom(smRandom, NoRules);
Cat['01jingles'].QueueBottom(smRandom, NoRules);
Cat['nieuw nl muziek'].QueueBottom(smLRP, EnforceRules);
Cat['nieuw nl muziek'].QueueBottom(smLRP, EnforceRules);
Cat['oud nl muziek'].QueueBottom(smRandom, NoRules);
Cat['01jingles'].QueueBottom(smRandom, NoRules);
Cat['nieuw nl muziek'].QueueBottom(smRandom, NoRules);
Cat['oud nl muziek'].QueueBottom(smLRP, EnforceRules);
Cat['nieuw nl muziek'].QueueBottom(smRandom, NoRules);
Cat['01jingles'].QueueBottom(smRandom, NoRules);
Cat['nieuw nl muziek'].QueueBottom(smRandom, NoRules);
Cat['nieuw nl muziek'].QueueBottom(smRandom, NoRules);
Cat['oldies'].QueueBottom(smRandom, NoRules);
Cat['01jingles'].QueueBottom(smRandom, NoRules);
Cat['nieuw nl muziek'].QueueBottom(smLRP, EnforceRules);
Cat['oud nl muziek'].QueueBottom(smRandom, NoRules);
Cat['nieuw nl muziek'].QueueBottom(smRandom, NoRules);
Cat['nieuw nl muziek'].QueueBottom(smRandom, NoRules);
PAL.LockExecution;
end;
PAL.UnLockExecution;

verder zerkt het zel ok samen met me tijdsein script.

Zie kan me helpen wat ik verkeert doe

thx

marcel

[Kees]

Wat zouden deze 2 tijden moeten doen ?
Ik begrijp niet helemaal wat je daar mee wilt !

Code: Selecteer alles

PAL.UnLockExecution;
PAL.WaitForTime(T['xx:01:45']);
PAL.WaitForTime(T['xx:03:00']);
Cat['nieuw nl muziek'].QueueBottom(smLRP, EnforceRules);

[marceld]

Hoi Kees

is eigelijk de bedoeling dat hij 3 min moet wachten op het tijdsein script.
de andere tijd had ik erbij gezet om te kijken wat ie deed maar hij pakt zo ie zo niet die zondag.
wat hij zel zou moeten doen heb verschilde dingen geprobeert en ook naar het script van tholen gekeken weet niet goed wat er fout zit.

Marcel

[Evertje]

Code: Selecteer alles

while DayOfWeek(Now) = Sunday and ((Now >= T['xx:01:15']) and (Now <= T['xx:01:25'])) do

veranderen in

Code: Selecteer alles

while DayOfWeek(Now) = Sunday and ((Now >= T['00:01:15']) and (Now <= T['00:01:25'])) do

En et werkt?!

[Kees]

Yep !
Die had ik over het hoofd gezien.

[marceld]

idd ja nu snap ik ook waarom elk uur is erin moet.
thx mannen sam ruels

marcel

[Kees]

Ja juist...die xx werkt niet in een while statement..
Maar weer wel in een PAL.waitfor....statemant.