bepaalde tijd starten pall

[woutshov]

goedenavond,

zou iemand onderstaande PAL willen bekijken of ik het goed heb gedaan?
Hij moet zondag's om 15:00 uur starten
Er draaid al een PAL-script in nonstop pakt deze script hem dan over?
mvg Willeke

Code: Selecteer alles

PAL.Loop:=True;

    PAL.LockExecution;
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
var Dinsdag      : Boolean;
var Donderdag    : Boolean;
var DDays        : Boolean;
var Begintijd    : string = '15:00:00'; // Begintijd
var Eindtijd     : string = '16:59:59'; // Eindtijd
var QueueTimeUur : Integer = 3*(60*60*1200);  //1=1uur 2=2uur 3=3uur om X uur muziek te vullen :)
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
// Enkele dag, De Dinsdag
Dinsdag := (DayOfWeek(Now) = Tuesday);
// Enkele dag, De Donderdag
Donderdag := (DayOfWeek(Now) = Thursday);
//Hieronder kan je dagen combineren :)
//------------------------------------------------------------------------------
// Alle D-dagen, Dinsdag & Donderdag
DDays := (DayOfWeek(Now) = Sunday);
//------------------------------------------------------------------------------
//+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-

while (DDays) and ((Now >= T[Begintijd]) and (Now <= T[Eindtijd])) do
 begin

Queue.Clear;

    While Queue.Duration < QueueTimeUur do
  Begin
Cat['zondag show'].QueueBottom(smLRP, EnforceRules);
Cat['zondag show'].QueueBottom(smLRP, EnforceRules);
  end;

ActivePlayer.FadeTonext;
 
PAL.WaitForTime(T[Eindtijd]);
ActivePlayer.FadeTonext;

 end;
 
// Onderstaand regel altijd als laatste houden.

[drOhimself]

zou iemand onderstaande PAL willen bekijken of ik het goed heb gedaan?

Wat verwacht je dat dit script doet?
Gaat het fout als je het zelf test ?
Zoja, wat is de foutmelding ?

Er draaid al een PAL-script in nonstop pakt deze script hem dan over?
mvg Willeke

Er kunnen meerdere PAL-scripts tegelijkertijd draaien.
Om e.e.a. overzichtelijk te houden zou ik dat andere PAL-script hier ook nog even (graag in

Code: Selecteer alles

 ) plaatsen.
Je weet nooit of de een de ander 'bijt'.