Om de twee nummers een jingle *OPGELOST*

[Guus007]

Hallo,

Ben op zoek naar een PAL script die om de twee nummers elke keer een andere jingle laat horen.
Heeft iemand die voor mij, ben niet echt goed met Sam maar hoop dat jullie me kunnen helpen

Guus

[Gerrit]

Dit zou hem moeten zijn :

Code: Selecteer alles

  PAL.Loop:=True;

    var D : DateTime;
    D := T['XX:56:00'];  //de tijd waarmee hij er mee stopt.
    WriteLn(D); //da`s een test voor de output

    repeat
     PAL.WaitForPlayCount(2); //na 2 nummers 1 jingle blijft doorgaan tot hij de stop-tijd krijgt
    if Now < D then
      Cat['Jingles (All)'].QueueTop(smLRP, NoRules);
    until Now > D;

    PAL.WaitForTime(T['XX:03:00']);  //wacht tot XX:03 en daarna begint ie weer van voor af aan :)

    // 11 September 2009 --BroadcasterForum.nl--     

Gerrit.

[Guus007]

Bedankt Gerrit, het werkt!

Guus

[Gerrit]

Na aanleiding van een PM wil ik hier nog even een opmerking over plaatsen.

Als je weinig Jingle's in de [Cat."Jingles All"] hebt staan, moet je deze regel even aanpassen:

Code: Selecteer alles

Cat['Jingles (All)'].QueueTop(smLRP, NoRules);

Naar deze:

Code: Selecteer alles

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

Anders werkt het script niet.

Gerrit.