Jingle random toevoegen ná een song (songtype 's')

[drOhimself]

Hier een opzetje voor random jingle toevoeging.

Code: Selecteer alles

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

PAL.Loop := True;

var randomInteger : Integer = 0;
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(10) + 2; 
WriteLn('Random_waittime = ' + IntToStr(random_wait)); //display in PAL scherm
PAL.WaitForPlayCount(random_wait);  // effe wachten
	// Check of songtype 'S' is
	if(Song['songtype']='S') then
		begin
			//Geef hier jouw Jingle-Play opdracht, bijv. 
			//Cat['MyJingles'].QueueTop(smLRP, NoRules);
		end;
		
// © 2012 drOhimself for SAM Broadcaster Forum 2012-06-30

[Wout]

Nice one, bedankt voor het delen.

[qradio]

Dankjewel Dro [smilie=good2.gif] hier kan ik wat mee doen in de toekomst.

[drOhimself]

Toch nog wat kleine probleempjes.
Hieronder het aangepaste script, welke geen foutmeldingen meer zou moeten geven.

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['MyJingles'].QueueTop(smLRP, NoRules);
		end;
// beetje opschonen
Song.Free;
Cat.Free;

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