jingles via PAL script

[dave316]

Code: Selecteer alles

PAL.LockExecution;

var P : TPlayer;
var Song : TSongInfo;
var i : integer;

PAL.Loop := True;

PAL.WaitForPlayCount(5);

// Get what the Volume is set to
i := ActivePlayer.GetVolume;
//Writeln ('Volume set to: '+IntToStr(i));

P := SoundFX;

Song := CAT['jingles (All)'].ChooseSong(smRandom,NoRules);
if Song <> nil then P.QueueSong(Song);

// Reduce the Active Player by 50%
// Divide by 3 to get 33%, etc.

ActivePlayer.Volume := i - 40;

//ActivePlayer.Volume := 60;

P.Play;


// Reset Volume Back To Normal


ActivePlayer.Volume := i - 40;
ActivePlayer.Volume := i;

//PAL.UnlockExecution;


PAL.WaitForTime('+00:00:10');
P.Eject;

dat is de PAL script om de jingles te laten lopen

[brian]

Hi Dave

Thx voor het posten van dit script.....

Waar moet ik de naam van de jingle invullen, en om de hoeveel tijd gaat dit scriptje lopen..

brian

[brian]

Nou het werkt prima hoor, alleen jammer de jingles door de platen worden gedraait, is daar geen oplossing voor.

brian

[dave316]

Nou het werkt prima hoor, alleen jammer de jingles door de platen worden gedraait, is daar geen oplossing voor.

brian

o daar ben ik voor aan het uitzoeken

[brian]

Dave

Als er een nieuwe plaat wordt gestart, volgt na 5 sec de jingle....Bij sommige platen klinkt dat best leuk, maar bij een acapelle begin niet zo..
Ben benieuwd of je er een oplossing voor kan vinden..

brian

[dave316]

Dave

Als er een nieuwe plaat wordt gestart, volgt na 5 sec de jingle....Bij sommige platen klinkt dat best leuk, maar bij een acapelle begin niet zo..
Ben benieuwd of je er een oplossing voor kan vinden..

brian

ja ik ben nu met een PAL script bezich om het via aux 1 en aux 2 te laten lopen met de jingels maar dat wil nog niet lukken dus daar ben ik nu mee bezich

[brian]

Dave

Is het nog gelukt met die PAL script

[dave316]

nee niet meer ik krijg het even niet voor me kaar om het te veranderen