Faden op einde van PAL script

[sprk]

Hoi,

Ik zou graag iets met jullie willen check check dubbelchecken...

Ik gebruik dit script (gisteren werkte het perfect na wat hulp van pergo, thanks!):

Code: Selecteer alles

    PAL.Loop:=True;

        PAL.LockExecution;
    //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    var Woensdag            : Boolean;
    var DDays              : Boolean;
    var Begintijd          : string = '18:00:00'; // Begintijd
    var Eindtijd           : string = '18:59:59'; // Eindtijd
    var QueueTimeUur : Integer = 1*(60*60*1200);  //1=1uur 2=2uur 3=3uur om X uur muziek te vullen :)
    //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    // Enkele dag, De Woensdag
    Woensdag := (DayOfWeek(Now) = Wednesday);
    //Hieronder kan je dagen combineren :)
    //------------------------------------------------------------------------------
    // Alle D-dagen, Woensdag
    DDays := (Woensdag);
    //------------------------------------------------------------------------------
    //+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-

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

    Queue.Clear;

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

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

     end;
     
    // Onderstaand regel altijd als laatste houden.
      PAL.UnLockExecution; 

Maar... Rond de klok van 7 werd het toen spelende liedje ineens na 15 seconden uitgefade en toen kwam iets anders.

Ik vermoed zelf dat ik de volgende zin uit het script moet verwijderen om dat te voorkomen:
ActivePlayer.FadeTonext;

Klopt dat?

[drOhimself]

Inderdaad, met die regel ben je van je probleem af. Maar wil je dat ook?

De regels : "var Eindtijd : string = '18:59:59'; // Eindtijd " en "PAL.WaitForTime(T[Eindtijd]);"
geven aan dat er gewacht wordt op "Eindtijd".
Wanneer het zo laat is, wordt deze regel uitgevoerd : "ActivePlayer.FadeTonext;".