Salut j'ai fait un petit script sam, j'espere qui vous servira.
a plus

Starflit



{
Starflit pour Radio-fr: un script afin de mettre en place un top horaire.
Le Script lance le top horaire dans une fenêtre de 4 minutes autour de l'heure pile: entre 58 et 02.
Si le titre dépasse les 4 minutes de la fenêtre alors on choisit de faire partir le top a 01, sachant que le titre aura été déjà diffusé
pendant 3 minutes.
Ces variables peuvent être mondifiées à loisir. But: éviter au maximun de couper un titre avec le top horaire.

}


PAL.Loop := True;

function ActivePlayer:TPlayer; forward;
Var B : Boolean;
B:=FALSE;

{Durée de la fenêtre en millisecondes!}
const Delta = 240*1000;

{Début de la fenêtre}
const Debut = 'XX:58:00';

{Heure du top si le titre est trop long}
const Btime = 'XX:01:00';




{Attendre la bonne minute}
PAL.WaitForTime(T[Debut]);

{Si le titre se termine dans les 4 minutes suivantes on place le top}
if (ActivePlayer.Duration>0) and ((ActivePlayer.Duration-ActivePlayer.CurTime)<Delta) then
begin
Queue.AddFile('C:\Documents and Settings\Fabrice\Mes documents\Ma musique\Radio Documents\Gregoryto\Jingles - Top Horaire.mp3',ipTop);
B:=TRUE;
end;

{On attend 01}
PAL.WaitForTime(T[Btime]);


{Il est 01 et on sait par B que le titre est trop long alors on le coupe avec le top}
if NOT B then
begin
Queue.AddFile('C:\Documents and Settings\Fabrice\Mes documents\Ma musique\Radio Documents\Gregoryto\Jingles - Top Horaire.mp3',ipTop);
ActivePlayer.FadeToNext;
end;

function ActivePlayer:TPlayer;
begin
if DeckA.Status = psPlaying then
Result := DeckA
else
Result := DeckB;
end;

slt Starflit
Je voulais te dire un grand merci je vais tester ce soir Moi il va pas me servire pour les topH car il faut que mais top H son a leur il me servira pour mais comblage de fin d'heures

Salut

sous l'impulsion de yanouu, j'ai écris un script PAL permettant de faire partir un top horaire a heure fixe, soit en coupant le titre en cours (diffusé depuis 3 min) soit en rajoutant une musique d'attente en attendant l'heure pile.

Starflit


{
Starflit pour Radio-fr: un script afin de mettre en place un top horaire.
Le Script lance le top horaire à 00 de chaque heure. De plus, à 57 on teste si la chanson en cours se termine
avant 00. Si c'est le cas on placera une musique d'ambiance enfin d'attendre l'heure pile, dans le cas contraire
le top partira à 00 en coupant la chanson en cours (diffusée pendant au moins 3 minutes). L'heure de test "57" est parametrable.
}


PAL.Loop := True;

function ActivePlayer:TPlayer; forward;


{Le test de la chanson commence à}
const Debut = 'XX:57:00';

{Durée de 57 jusqu'à 00: 60-57=03min en millisecondes !!!}
const Delta = 180*1000;


{Attendre la bonne minute}
PAL.WaitForTime(T[Debut]);

{Si le titre se termine dans les 3 minutes suivantes on place la musique d'attente}
if (ActivePlayer.Duration>0) and ((ActivePlayer.Duration-ActivePlayer.CurTime)<Delta) then
begin
Queue.AddFile('C:\att.mp3',ipTop);
end;

{On attend 00 on place le top horaire et on l'envoie en suivant}
PAL.WaitForTime('XX:00:00');
Queue.AddFile('C:\tophoraire.mp3',ipTop);
ActivePlayer.FadeToNext;


function ActivePlayer:TPlayer;
begin
if DeckA.Status = psPlaying then
Result := DeckA
else
Result := DeckB;
end;

Bonjour, j'ai déjà essayer plusieurs fois de crée un scrpt mais je n'y arrive pas...

J'aurais besoin d'un script qui détécte si il y a un blanc et si oui qu'il lance une musique au hasard...

Et un autre qui lance un jinlge tout les 3 titres...

Merci d'avance de m'aider...

Salut,

Je ne sais pas s'il existe une procédure pour détecter un silence avec SAM, je vais voir ca. Pour l'autre problème je te propose ce script:


_____________________________________

var Song, Liner : TSongInfo;


PAL.Loop := True;

function ActivePlayer:TPlayer; forward;


{ici 3 est le nombre de chansons entre deux jingles}
PAL.WaitForPlayCount(3);

{'rep' est la catégorie de SAM contenant les jingles, Sam les choisira aléatoirement}
Liner := Cat['rep'].ChooseSong(smRandom, NoRules);
ActivePlayer.QueueSong(Liner);


function ActivePlayer:TPlayer;
begin
if DeckA.Status = psPlaying then
Result := DeckB
else
Result := DeckA;
end;

Génial merci beaucoup...

Pour le top horaire, comment lui demander de ne pas se lancer à une heure précise ?

Exemple : Une émission est diffusé de 15h à 17h, normalement, le script va lancer le top a 16h, et donc couper le stream de celui qui anime, se que je ne souhaiterais pas.

N'est-il pas possible d'utiliser ce script pal avec le event de Sam ?
Car comme ça, on pourrait retirer une heure où le top devait se lancer...
Si oui, quelle est la procédure a suivre ?

Comment demander au script d'aller chercher le top horaire, dans une rubrique dans Sam où il y a plusieurs top horaire, et ainsi ne pas avoir le même top horaire qui tourne a chaque fois ?

Merci

Bonjour et désolé de remonter un aussi vieux topic mais je pense que c'est mieux que d'en créer un nouveau.

Je souhaiterai que l'on m'explique comment modifier le premier script du sujet afin qu'il ne joue pas tout le temps le même top horaire (c'est à dire que je souhaiterai remplacer l'emplacement du fichier du top par une catégorie (comme Tracks par exemple) dans laquelle je place mes tops horaires).

Merci d'avance.

Starflit , ton script est excellent!!
Juste pour le pofiner, n'est il pas possible au lieu de lui faire jouer une musique d'attente, mettre une cathégorie (genre comblage), tout en respectant une rotation, afin de ne piocher dans cette cathégorie sans rejouer le même toutes les heures??
Merci pour ta réponse a ta dispo via msn;-)

Bonjour
J'ai une petite question :
A quelle endroit doit on insérer ces scripts ?
Si pas de réponse bien entendu je chercherais :p mais merci quand même au cas où

Manu