Script PAL pour jouer un jingles

[anthonyy]

Coucou all :)

Moi, comme la description l'indique, je cherche un script qui pourrait jouer un jingle sur le Aux1 et qui démarrerai au début (ou 5 sec après) du morceau qui arrive à la suite !

* Musique dans le Aux1

* Joué au début du morceau (ou 5 sec après)

* le jingle se remette tout seul dans le Aux1

* Aux1 lancé toutes les x musiques

j'ai perdu le nom comment ca s'appelle

Merci de votre aide :)

Antho

[starm]

Coucou all :)

Moi, comme la description l'indique, je cherche un script qui pourrait jouer un jingle sur le Aux1 et qui démarrerai au début (ou 5 sec après) du morceau qui arrive à la suite !

* Musique dans le Aux1

* Joué au début du morceau (ou 5 sec après)

* le jingle se remette tout seul dans le Aux1

* Aux1 lancé toutes les x musiques

j'ai perdu le nom comment ca s'appelle

Merci de votre aide :)

Antho

Bonjour

Anthonyy il est dans le fichier de Sam par défault.

"LinerOverlay.pal"

{ About:

This script will play a liner in Aux1 as soon as a new track starts

The liner will only be played if

a) The song has an intro of specified minimem duration

B) The song is of type S, i.e. a normal song.

Then the script will wait the specified amount of time before

it tries to play another liner.

This script can help brand your station and make it sound like a true

commercial terrestrial station.

any source connected

Usage:

a) Make sure you use the song information editor to specify intro times for your tracks!

B) Make sure the AGC settings on Aux1 is to your liking. Also set the volume a bit louder

on Aux1 so you cna clearly hear the liner above the active Deck audio.

c) Edit the configuration details below.

Make sure to change the category to the one you use to store your liners.

}

{ CONFIGURATION }

{==================================================}

const MIN_INTRO = 5*1000; //5 seconds

const MIN_WAIT = '+00:15:00'; //Wait 15 minutes between liners

const LINERS_CATEGORY = 'Liners';

{ IMPLEMENTATION }

{--------------------------------------------------}

function ExtractIntro(Song : TSongInfo):Integer; forward;

var Song, Liner : TSongInfo;

var Waiting : Boolean = True;

var Intro : Integer = 0;

Aux1.Eject;

{Step1: Queue up the deck, ready for play}

Liner := CAT[LINERS_CATEGORY].ChooseSong(smLRP,NoRules);

if (Liner=nil) then

WriteLn('No valid liner found')

else if (not Aux1.QueueSong(Liner)) then

WriteLn('Failed to queue song: '+Liner['filename']);

{Wait for a valid song with intro}

while Waiting do

begin

{Step2: Wait for the song to change}

PAL.WaitForPlayCount(1);

{Step3: Grab current song information}

Song := ActivePlayer.GetSongInfo;

if (Song=nil) then

WriteLn('The active player contained no song info??')

else

begin

{Extract the intro time - this is a bit tricky}

Intro := ExtractIntro(Song);

{Start playing the liner if the current song matches our rules}

if(Song['songtype']='S') and (Intro>=MIN_INTRO) then

begin

Aux1.Play;

Waiting := False;

end;

Song.Free; Song := nil;

end;

end;

{Wait 5 minutes before we do this all again}

PAL.WaitForTime(MIN_WAIT);

PAL.Loop := True;

{................................................}

function ExtractIntro(Song : TSongInfo):Integer;

var

P : Integer;

XFade : String;

begin

Result := -1;

XFade := Trim(Song['xfade']);

WriteLn('Decoding XFade string');

WriteLn('XFade: '+XFade);

if XFade = '' then

Result := -1

else

begin

P := Pos('&i=',XFade);

if (P > 0) then

begin

Delete(XFade,1,P+2);

P := Pos('&',XFade);

if (P>0) then

Delete(XFade,P,Length(XFade));

Result := StrToIntDef(XFade,-1);

WriteLn('Intro time detected: '+XFade);

end;

end;

end;

{--------------------------------------------------}

Cordialement

[anthonyy]

Merci à toi de ta réponse. Mais je n'arrive pas à le configurer :( Tu peux m'expliquer un peu plz ? :unsure:

[starm]

Bonjour Anthonyy,

Pour ce que script pal fonctionne, il faut soit d'une part est un "magicien" mais non je rigole, soit d'autre part jouer un peu avec "Sam", en effet, ce script lance le jingle ou liners dans "aux 1" voir "aux 2", à partir des points d'"intro" de chaque morceau dans "Sam".

Pour se faire tu dois avoir programmé sur chaque morceau le temps d'intro, ( song info) puis (setting), ...

Petit conseil: tu peux imposer tous les morceaux le temps d'intro par la base de donnée MySql...

J espère que tu m'auras compris car c'est un peu dur à expliquer...

A bientôt sur Radios-fr

[anthonyy]

Ahhh marche pas :'( Ptain, trop de souci avec ce script :( Y'en à pas un plus simple ? :mellow:

[starm]

Ahhh marche pas :'( Ptain, trop de souci avec ce script :( Y'en à pas un plus simple ? :mellow:

Il fonctionne que tu a défini 15 secondes minimales d'introduction sur un morceau...

et il faut placer des liners dans le dossier liners ou jingle regarde dans le script....

A bientôt.