Jingle Script

[ikrudolf]

Ik maak gebruik van dit jingle script.

Code: Selecteer alles

// Random tijd voor afspelen jingle NA song type 'S'

PAL.Loop := True;
var random_wait : Integer;
var Song : TSongInfo;

// Generate a random number
// Speel wat met beide waarden om te kijken welke getallen het beste resultaat geven.
random_wait := RandomInt(4) + 2;
WriteLn('Random_waittime = ' + IntToStr(random_wait)); //display in PAL scherm
PAL.WaitForPlayCount(random_wait-1);  // effe wachten

// Check of songtype 'S' is
   Song := ActivePlayer.GetSongInfo;
   WriteLn (Song['songtype']);
   if(Song['songtype']='S') then
      begin
         //Geef hier jouw Jingle-Play opdracht, bijv.
         Cat['Jingle'].QueueTop(smLRP, NoRules);
      end;
// beetje opschonen
Song.Free;
Cat.Free;

// © 2012 drOhimself for SAM Broadcaster Forum 2012-06-30

Is het ook mogelijk dat de jingle (random) bovenaan en onderaan in de queue word toegevoegd ipv altijd boven aan of altijd onderaan?

[Wout]

Code: Selecteer alles

// Random tijd voor afspelen jingle NA song type 'S'

PAL.Loop := True;
    var random_wait : Integer;
    var Song : TSongInfo;

    // Generate a random number
    // Speel wat met beide waarden om te kijken welke getallen het beste resultaat geven.
    random_wait := RandomInt(4) + 2;
    WriteLn('Random_waittime = ' + IntToStr(random_wait)); //display in PAL scherm
    PAL.WaitForPlayCount(random_wait-1);  // effe wachten

    // Check of songtype 'S' is
    Song := ActivePlayer.GetSongInfo;
    WriteLn (Song['songtype']);
    if (Song['songtype']='S') then
    begin
        //Geef hier jouw Jingle-Play opdracht, bijv.
        if RandomInt(2) = 0 then
            Cat['Jingle'].QueueTop(smLRP, NoRules)
        else
            Cat['Jingle'].QueueBottom(smLRP, NoRules) ;
    end;
    // beetje opschonen
    Song.Free;
    Cat.Free;

// © 2012 drOhimself for SAM Broadcaster Forum 2012-06-30  

[ikrudolf]

Dank je Wout!