Jingle faden terwijl er een mix afspeelt met de event schedu

[radiohitec]

Beste Heren en Dames,

Eerst even een korte uitleg.
We maken maken onze programma's met PAL die we elke uur starten via de Event scheduler, dit is voor ons overzichtelijk, want we hebben hier tegen de 80 Dj's, 5 verbindingen richting andere stations, dit werkt al jaren perfect, voordeel van event scheduler is dat je alles kan progameren per uur, minuut of wat ever.
Intussen heb ik een script geschreven voor een normale automatisering in bv de nacht, dit script laad ie dus ook de hele nacht in, uur naar uur, werkt verder ook perfect, keurig elk uur de opener, reclame en daarna om de 15 minuten een jingle.
Ik wil dit nu ook gaan doen voor de DJ sets hier van een uur, maar het probleem is dat dan natuurlijk de mix iedere keer opnieuw begint, wat ik dus eigenlijk zoek is een script dat de set laad doordraaien, die fader omlaag gooit en dan de jingle in de vrije player gooit en instart, heb hier al wat scriptjes gezien maar werkt niet als je elk uur je PAL opnieuw erin stopt via de event.

Ik hoop dat er wat mensen kunnen helpen...

Geef ook even een (van de vele) PAL weg, hoe een normale automatisering eruitziet (wordt elk uur in de non-stop ingeladen via de event), wie weet kunnen we hier wat mensen mee helpen....

Queue.AddFile('X:\Jingles\XxxxX.mp3',ipTop);
ActivePlayer.FadeToNext;
QueUe.Clear;
cat['Commercials'].QueueBottom(smRandom, NoRules);
cat['New Trance'].QueueBottom(smLemmingLogic,EnforceRules);
cat['New Trance'].QueueBottom(smLemmingLogic,EnforceRules);
cat['New Trance'].QueueBottom(smLemmingLogic,EnforceRules);
cat['New Trance'].QueueBottom(smLemmingLogic,EnforceRules);
cat['Trance'].QueueBottom(smLemmingLogic,EnforceRules);
cat['New Trance'].QueueBottom(smLemmingLogic,EnforceRules);
cat['New Trance'].QueueBottom(smLemmingLogic,EnforceRules);
cat['New Trance'].QueueBottom(smLemmingLogic,EnforceRules);
cat['New Trance'].QueueBottom(smLemmingLogic,EnforceRules);
cat['Trance'].QueueBottom(smLemmingLogic,EnforceRules);
cat['New Trance'].QueueBottom(smLemmingLogic,EnforceRules);
cat['New Trance'].QueueBottom(smLemmingLogic,EnforceRules);
cat['New Trance'].QueueBottom(smLemmingLogic,EnforceRules);
cat['New Trance'].QueueBottom(smLemmingLogic,EnforceRules);
cat['New Trance'].QueueBottom(smLemmingLogic,EnforceRules);
cat['New Trance'].QueueBottom(smLemmingLogic,EnforceRules);
PAL.WaitForTime(T['+00:14:40']);
cat['Station Calls'].QueueTop(smRandom, NoRules);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:15:00']);
cat['Station Calls'].QueueTop(smRandom, NoRules);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:15:00']);
cat['Station Calls'].QueueTop(smRandom, NoRules);
ActivePlayer.FadeToNext;

[ojee66]

Zou kunnen met de fadetonext eruit te halen.
een jingle in de aux te laden en daar afspelen.
Je doet het met PAL dus je kan zelfs met de faders idd even iets lager zetten.
Iets ander script (gedeelte) maar het gaat om het idee

Code: Selecteer alles

var Song : TSongInfo;
var gg,kk,ss,ms : Integer;
var D : TDataSet;
var DTXT : String;

PAL.LockExecution;
Aux2.Eject;
Aux1.Eject;
  Writeln('VOLUME set LOW');
     DeckA.Volume := 125;
     DeckB.Volume := 125;

    Song := CAT['Tijdsein'].ChooseSong(smLRP,NoRules); 
    Aux2.QueueSong(Song);
    Aux2.play;
    Song.Free;
    
while Aux2.Status = psPlaying do
PAL.WaitForTime('+00:00:00');

DeckA.Volume := 255;
DeckB.Volume := 255;
  Writeln('VOLUME BACK TO NORMAL');
     

[Reinders]

Beste Heren en Dames,

Eerst even een korte uitleg.
We maken maken onze programma's met PAL die we elke uur starten via de Event scheduler, dit is voor ons overzichtelijk, want we hebben hier tegen de 80 Dj's, 5 verbindingen richting andere stations, dit werkt al jaren perfect, voordeel van event scheduler is dat je alles kan progameren per uur, minuut of wat ever.
Intussen heb ik een script geschreven voor een normale automatisering in bv de nacht, dit script laad ie dus ook de hele nacht in, uur naar uur, werkt verder ook perfect, keurig elk uur de opener, reclame en daarna om de 15 minuten een jingle.
Ik wil dit nu ook gaan doen voor de DJ sets hier van een uur, maar het probleem is dat dan natuurlijk de mix iedere keer opnieuw begint, wat ik dus eigenlijk zoek is een script dat de set laad doordraaien, die fader omlaag gooit en dan de jingle in de vrije player gooit en instart, heb hier al wat scriptjes gezien maar werkt niet als je elk uur je PAL opnieuw erin stopt via de event.

Ik hoop dat er wat mensen kunnen helpen...

Geef ook even een (van de vele) PAL weg, hoe een normale automatisering eruitziet (wordt elk uur in de non-stop ingeladen via de event), wie weet kunnen we hier wat mensen mee helpen....

Queue.AddFile('X:\Jingles\XxxxX.mp3',ipTop);
ActivePlayer.FadeToNext;
QueUe.Clear;
cat['Commercials'].QueueBottom(smRandom, NoRules);
cat['New Trance'].QueueBottom(smLemmingLogic,EnforceRules);
cat['New Trance'].QueueBottom(smLemmingLogic,EnforceRules);
cat['New Trance'].QueueBottom(smLemmingLogic,EnforceRules);
cat['New Trance'].QueueBottom(smLemmingLogic,EnforceRules);
cat['Trance'].QueueBottom(smLemmingLogic,EnforceRules);
cat['New Trance'].QueueBottom(smLemmingLogic,EnforceRules);
cat['New Trance'].QueueBottom(smLemmingLogic,EnforceRules);
cat['New Trance'].QueueBottom(smLemmingLogic,EnforceRules);
cat['New Trance'].QueueBottom(smLemmingLogic,EnforceRules);
cat['Trance'].QueueBottom(smLemmingLogic,EnforceRules);
cat['New Trance'].QueueBottom(smLemmingLogic,EnforceRules);
cat['New Trance'].QueueBottom(smLemmingLogic,EnforceRules);
cat['New Trance'].QueueBottom(smLemmingLogic,EnforceRules);
cat['New Trance'].QueueBottom(smLemmingLogic,EnforceRules);
cat['New Trance'].QueueBottom(smLemmingLogic,EnforceRules);
cat['New Trance'].QueueBottom(smLemmingLogic,EnforceRules);
PAL.WaitForTime(T['+00:14:40']);
cat['Station Calls'].QueueTop(smRandom, NoRules);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:15:00']);
cat['Station Calls'].QueueTop(smRandom, NoRules);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:15:00']);
cat['Station Calls'].QueueTop(smRandom, NoRules);
ActivePlayer.FadeToNext;