jingles starten niet *OPGELOST*

[Soulmaster]

Nu heb ik dit script overnomen

Code: Selecteer alles

PAL.Loop := True;
PAL.LockExecution;

while ((Now >= T['00:05:00']) and (Now <= T['00:55:00'])) do
Begin
PAL.UnLockExecution;
CAT['Jingles (All)'].QueueBottom(smLemmingLogic, NoRules);
PAL.WaitForPlayCount(3);
PAL.LockExecution;
End;

while ((Now >= T['01:05:00']) and (Now <= T['01:55:00'])) do
Begin
PAL.UnLockExecution;
CAT['Jingles (All)'].QueueBottom(smLemmingLogic, NoRules);
PAL.WaitForPlayCount(3);
PAL.LockExecution;
End;

while ((Now >= T['02:05:00']) and (Now <= T['02:55:00'])) do
Begin
PAL.UnLockExecution;
CAT['Jingles (All)'].QueueBottom(smLemmingLogic, NoRules);
PAL.WaitForPlayCount(3);
PAL.LockExecution;
End;

while ((Now >= T['03:05:00']) and (Now <= T['03:55:00'])) do
Begin
PAL.UnLockExecution;
CAT['Jingles (All)'].QueueBottom(smLemmingLogic, NoRules);
PAL.WaitForPlayCount(3);
PAL.LockExecution;
End;

while ((Now >= T['04:05:00']) and (Now <= T['04:55:00'])) do
Begin
PAL.UnLockExecution;
CAT['Jingles (All)'].QueueBottom(smLemmingLogic, NoRules);
PAL.WaitForPlayCount(3);
PAL.LockExecution;
End;

while ((Now >= T['05:05:00']) and (Now <= T['05:55:00'])) do
Begin
PAL.UnLockExecution;
CAT['Jingles (All)'].QueueBottom(smLemmingLogic, NoRules);
PAL.WaitForPlayCount(3);
PAL.LockExecution;
End;

while ((Now >= T['06:05:00']) and (Now <= T['06:55:00'])) do
Begin
PAL.UnLockExecution;
CAT['Jingles (All)'].QueueBottom(smLemmingLogic, NoRules);
PAL.WaitForPlayCount(3);
PAL.LockExecution;
End;

while ((Now >= T['07:05:00']) and (Now <= T['07:55:00'])) do
Begin
PAL.UnLockExecution;
CAT['Jingles (All)'].QueueBottom(smLemmingLogic, NoRules);
PAL.WaitForPlayCount(3);
PAL.LockExecution;
End;

while ((Now >= T['08:05:00']) and (Now <= T['08:55:00'])) do
Begin
PAL.UnLockExecution;
CAT['Jingles (All)'].QueueBottom(smLemmingLogic, NoRules);
PAL.WaitForPlayCount(3);
PAL.LockExecution;
End;

while ((Now >= T['09:05:00']) and (Now <= T['09:55:00'])) do
Begin
PAL.UnLockExecution;
CAT['Jingles (All)'].QueueBottom(smLemmingLogic, NoRules);
PAL.WaitForPlayCount(3);
PAL.LockExecution;
End;

while ((Now >= T['10:05:00']) and (Now <= T['10:55:00'])) do
Begin
PAL.UnLockExecution;
CAT['Jingles (All)'].QueueBottom(smLemmingLogic, NoRules);
PAL.WaitForPlayCount(3);
PAL.LockExecution;
End;

while ((Now >= T['11:05:00']) and (Now <= T['11:55:00'])) do
Begin
PAL.UnLockExecution;
CAT['Jingles (All)'].QueueBottom(smLemmingLogic, NoRules);
PAL.WaitForPlayCount(3);
PAL.LockExecution;
End;

while ((Now >= T['12:05:00']) and (Now <= T['12:55:00'])) do
Begin
PAL.UnLockExecution;
CAT['Jingles (All)'].QueueBottom(smLemmingLogic, NoRules);
PAL.WaitForPlayCount(3);
PAL.LockExecution;
End;

while ((Now >= T['13:05:00']) and (Now <= T['13:55:00'])) do
Begin
PAL.UnLockExecution;
CAT['Jingles (All)'].QueueBottom(smLemmingLogic, NoRules);
PAL.WaitForPlayCount(3);
PAL.LockExecution;
End;

while ((Now >= T['14:05:00']) and (Now <= T['14:55:00'])) do
Begin
PAL.UnLockExecution;
CAT['Jingles (All)'].QueueBottom(smLemmingLogic, NoRules);
PAL.WaitForPlayCount(3);
PAL.LockExecution;
End;

while ((Now >= T['15:05:00']) and (Now <= T['15:55:00'])) do
Begin
PAL.UnLockExecution;
CAT['Jingles (All)'].QueueBottom(smLemmingLogic, NoRules);
PAL.WaitForPlayCount(3);
PAL.LockExecution;
End;

while ((Now >= T['16:05:00']) and (Now <= T['16:55:00'])) do
Begin
PAL.UnLockExecution;
CAT['Jingles (All)'].QueueBottom(smLemmingLogic, NoRules);
PAL.WaitForPlayCount(3);
PAL.LockExecution;
End;

while ((Now >= T['17:05:00']) and (Now <= T['17:55:00'])) do
Begin
PAL.UnLockExecution;
CAT['Jingles (All)'].QueueBottom(smLemmingLogic, NoRules);
PAL.WaitForPlayCount(3);
PAL.LockExecution;
End;

while ((Now >= T['18:05:00']) and (Now <= T['18:55:00'])) do
Begin
PAL.UnLockExecution;
CAT['Jingles (All)'].QueueBottom(smLemmingLogic, NoRules);
PAL.WaitForPlayCount(3);
PAL.LockExecution;
End;

while ((Now >= T['19:05:00']) and (Now <= T['19:55:00'])) do
Begin
PAL.UnLockExecution;
CAT['Jingles (All)'].QueueBottom(smLemmingLogic, NoRules);
PAL.WaitForPlayCount(3);
PAL.LockExecution;
End;

while ((Now >= T['20:05:00']) and (Now <= T['20:55:00'])) do
Begin
PAL.UnLockExecution;
CAT['Jingles (All)'].QueueBottom(smLemmingLogic, NoRules);
PAL.WaitForPlayCount(3);
PAL.LockExecution;
End;

while ((Now >= T['21:05:00']) and (Now <= T['21:55:00'])) do
Begin
PAL.UnLockExecution;
CAT['Jingles (All)'].QueueBottom(smLemmingLogic, NoRules);
PAL.WaitForPlayCount(3);
PAL.LockExecution;
End;

while ((Now >= T['22:05:00']) and (Now <= T['22:55:00'])) do
Begin
PAL.UnLockExecution;
CAT['Jingles (All)'].QueueBottom(smLemmingLogic, NoRules);
PAL.WaitForPlayCount(3);
PAL.LockExecution;
End;

while ((Now >= T['23:05:00']) and (Now <= T['23:55:00'])) do
Begin
PAL.UnLockExecution;
CAT['Jingles (All)'].QueueBottom(smLemmingLogic, NoRules);
PAL.WaitForPlayCount(3);
PAL.LockExecution;
End;

PAL.UnLockExecution;

uit http://www.sambroadcasterforum.nl/viewt ... 7&start=20
Ik heb in Jingles mijn jingles -> Jingles (all) geplaatst maar hij speelt dus geen jingles af om de 3 platen.

Doe ik nu nog iets fout?

[Gerrit]

Ik denk wel dat het script werkt maar dat hij de jingles allemaal onderaan de Queue zet omdat je dit:

Code: Selecteer alles

CAT['Jingles (All)'].QueueBottom(smLemmingLogic, NoRules); 

in het script het staan !!

Maak daar maar eens dit van:

Code: Selecteer alles

CAT['Jingles (All)'].QueueTop(smRandom, NoRules); 

en ik denk dat het dan wel werkt.

Gerrit.

[Soulmaster]

oke tnx ga het direct proberen

[Soulmaster]

\o/ top werkt super nu

[Gerrit]

Mooi, dan kan hier een slotje op !

Gerrit.