2 PAL script vragen betreft ingles en shows

[Artechhosting]

Hoi,

ik heb een vraag Wij gaan meerder liveshows doen en we hebben wat aanpassingen nodig in ons script
1e script ( jingles invoegen )

Code: Selecteer alles

PAL.loop := true;
//set the Category to your jingle category
//play jingle
CAT['jingle'].QueueTop(smRandom,NoRules);
// Wait for 16 minutes
PAL.WaitForTime('+00:16:00');

In dit script moet toegevoegt worden dat ie op maandag , woensdag en vrijdag tussen 20.30 en 23.00 uur geen jingles toevoegt
en op zondag van 11 tot 12 hoe krijgen wij dit werkend

2e script ( show of file )

Code: Selecteer alles

PAL.Loop:=True;
PAL.LockExecution;
while DayOfWeek(Now) = Monday and ((Now >= T['20:30:00']) and (Now <= T['22:58:00'])) do
begin
PAL.UnLockExecution;
Queue.AddURL('http://streamurl:xxxx/',ipTop);
Queue.AddURL('http://streamurl:xxxx/',ipTop);
ActivePlayer.Fadetonext;
PAL.WaitForTime(T['23:00:00']);
Queue.Clear;
ActivePlayer.Fadetonext;
Queue.Addfile('c:\Radio Mp3\Jingles\jingle1shout.mp3',ipTop);
Queue.Addfile('c:\Radio Mp3\Jingles\jingle2startnonstop.mp3',ipBottom);
PAL.LockExecution;
end;
PAL.UnLockExecution;

Dit script moet zo worden zodra de livestream eindigt das dus 23.00 eerst query leeg maken dan 2 jingles toevoegen afspelen en dan verder met de nonstop dit is voor maandag woensdag en vrijdag. Zoals het er nu staat werkt t niet hij cleared alles ook de jingles de we toevoegen. Nu de moeilijkste vraag weet niet of het kan is dat we op zondag een opgenomen show gaan gebruiken deze komt binnen op FTP als naam liveshow01.mp3, liveshow02.mp3 nou zouden wij graag willen dat elke week het script automatische 1 verder gaat dus deze week show01 en dan volgende week show02 zonder met de hand te hoeven editten. Wij hopen dat dit mogelijk is .. Ik hoop dat er iemand is die dit werkend krijgt.

Alvast super bedankt,

KeihardHollands Team

[Wout]

Vraag 1

Code: Selecteer alles

PAL.Loop:=True;

    PAL.LockExecution;
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
var Zondag     : Boolean;
var Vrijdag    : Boolean;
var Woensdag   : Boolean;
var Maandag    : Boolean;
var Doordeweeks: Boolean;
var Begintijd  : string = '20:30:00'; // Begintijd
var Eindtijd   : string = '23:00:00'; // Eindtijd
var Begintijd1 : string = '11:00:00'; // Begintijd
var Eindtijd1  : string = '12:00:00'; // Eindtijd
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
// Enkele dag, De Zondag
Zondag := (DayOfWeek(Now) = Sunday);
// Enkele dag, De Maandag
Maandag := (DayOfWeek(Now) = Monday);
// Enkele dag, De Woensdag
Woensdag := (DayOfWeek(Now) = Wednesday);
// Enkele dag, De Vrijdag
Vrijdag := (DayOfWeek(Now) = Friday);
//Hieronder kan je dagen combineren :)
//------------------------------------------------------------------------------
// Alle dagen in het weekend, Zaterdag en Zondag
Doordeweeks := (Maandag or Woensdag or Vrijdag);
//------------------------------------------------------------------------------
//+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-
    PAL.UnLockExecution;

while (Doordeweeks) and ((Now >= T[Begintijd]) and (Now <= T[Eindtijd])) do
 begin

 PAL.WaitForTime(T[Eindtijd]);       //wacht dat eindtijd voorbij is

end ;
//+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-

while (Zondag) and ((Now >= T[Begintijd1]) and (Now <= T[Eindtijd1])) do
 begin

 PAL.WaitForTime(T[Eindtijd1]);       //wacht dat eindtijd voorbij is

end ;
//+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-


//set the Category to your jingle category
//play jingle
CAT['jingle'].QueueTop(smRandom,NoRules);
// Wait for 16 minutes
PAL.WaitForTime('+00:16:00');

//Wout Franken, BroadCasterForum.nl, 03 Januari 2010   

Voor Vraag 2 heb ik nog geen tijd ervoor.

[Artechhosting]

Hoi Wout Super bedankt deze werkt zo te zien zonder errors etc... echt super .. Ik hoop dat je ons ook met de 2e vraag kan helpen zodra je tijd hebt.

Dit maakt me blij.......

KeihardHollands team

[Artechhosting]

Hoi Wout,

Lukt het nog om onze laatste script goed te krijgen ???

2e script ( show of file )

Alvast bedankt, KeihardHollands Team