Gezocht Palscript

[ActueelFM]

Hallo, hie rben k met een vraag


Op sam broadcaster 4.6.0 heb ik mijn mappen zo ingedeeld :

1980 - 1989
1990 - 1999
2000 - 2009


Hij speelt 1980 - 1989
Hij speelt 2000 - 2009
Hij speelt 1990 - 1999

Via clockweal, dit loopt tot nu toe zeer goed. Verder loopt er een palscript mee voor het nieuws.


Op zaterdag avond wil k een voicetrack laden, die in 1 uur is gesplits, het programma duurt van :
18.00 uur tot 21.00 uur en is dus telkens gesplist in 1 uur lang.

Tussen door loopt het nieuws mee.

Kan iemand hiervoor een palscript verzinne, of eventueel mee helpen?

Groeten
Johnny

[Wout]

Code: Selecteer alles

PAL.Loop:=True;

while DayOfWeek(Now) = Saturday and ((Now >= T['17:59:15']) and (Now <= T['17:59:25'])) do
 begin

PAL.LockExecution;

PAL.WaitForTime(T['17:59:45']);

WriteLn('Voicetrack 1');

Queue.AddFile('C:\nieuwsloper.mp3',ipTop);
  ActivePlayer.FadeTonext;
   Queue.Clear;

Queue.AddFile('C:\nieuws.mp3',ipBottom);
Queue.AddFile('C:\nieuwuur.mp3',ipBottom);

Queue.AddFile('G:\SERVER\VOICETRACKS\De Ultieme Zaterdagavond Uur 1.mp3',ipBottom);

PAL.LockExecution;

 end;
//
while DayOfWeek(Now) = Saturday and ((Now >= T['18:59:15']) and (Now <= T['18:59:25'])) do
 begin

PAL.LockExecution;

PAL.WaitForTime(T['18:59:45']);

WriteLn('Voicetrack 2');

Queue.AddFile('C:\nieuwsloper.mp3',ipTop);
  ActivePlayer.FadeTonext;

Queue.AddFile('C:\nieuws.mp3',ipBottom);
Queue.AddFile('C:\nieuwuur.mp3',ipBottom);

Queue.AddFile('G:\SERVER\VOICETRACKS\De Ultieme Zaterdagavond Uur 2.mp3',ipBottom);

PAL.LockExecution;

 end;
//
while DayOfWeek(Now) = Saturday and ((Now >= T['19:59:15']) and (Now <= T['19:59:25'])) do
 begin

PAL.LockExecution;

PAL.WaitForTime(T['19:59:45']);

WriteLn('Voicetrack 3');

Queue.AddFile('C:\nieuwsloper.mp3',ipTop);
  ActivePlayer.FadeTonext;

Queue.AddFile('C:\nieuws.mp3',ipBottom);
Queue.AddFile('C:\nieuwuur.mp3',ipBottom);

Queue.AddFile('G:\SERVER\VOICETRACKS\De Ultieme Zaterdagavond Uur 3.mp3',ipBottom);

PAL.LockExecution;

 end; 

[ActueelFM]

Heej Wout, harstikke bedankt,


Ik ga hem uit testen kan ik achter het voictrack gedeelte en voor de and ook het nieuws script plakken wat in week script zit?

dus van maandag t/m vrijdag k ga hem nu uit testen

[ActueelFM]

Heelaas het script hangt zodra hij geladen wordt...

Zie bijlage de aanpassing wat ik heb gedaan om t testen.. de eerste 26 seconden telt hij en daarna bij 0 blijft hij hangne.

Groetjes
Johnny

[Wout]

Je had een fout gemaakt met PAL.LockExecution;
Je had alleen lock gedaan en geen unlock.

Dus na elke lock, je regels en dan unlock dan weer lock etc...

Code: Selecteer alles

PAL.Loop:=True;

while DayOfWeek(Now) = Monday and ((Now >= T['09:59:15']) and (Now <= T['09:59:25'])) do
 begin

PAL.LockExecution;

PAL.WaitForTime(T['09:59:45']);

WriteLn('Voicetrack 1');

Queue.AddFile('C:\Users\Johnny Winter\Documents\SERVER\HET NOVUM NIEUWS\Jingle 5 - Uursluiter (Effect).mp3',ipTop);
  ActivePlayer.FadeTonext;

Queue.AddFile('C:\Users\Johnny Winter\Documents\SERVER\HET NOVUM NIEUWS\Het Nieuws.mp3',ipBottom);
Queue.AddFile('C:\Users\Johnny Winter\Documents\SERVER\HET NOVUM NIEUWS\Jingle 4 - Uuropener (Effect).mp3',ipBottom);

Queue.AddFile('C:\Users\Johnny Winter\Documents\SERVER\VOICETRACKS\De Ultieme Zaterdagavond Uur 1.mp3',ipBottom);

PAL.UnLockExecution;

 end;
//
while DayOfWeek(Now) = Monday and ((Now >= T['10:59:15']) and (Now <= T['10:59:25'])) do
 begin

PAL.LockExecution;

PAL.WaitForTime(T['10:59:45']);

WriteLn('Voicetrack 2');

Queue.AddFile('C:\Users\Johnny Winter\Documents\SERVER\HET NOVUM NIEUWS\Jingle 5 - Uursluiter (Effect).mp3',ipTop);
  ActivePlayer.FadeTonext;

Queue.AddFile('C:\Users\Johnny Winter\Documents\SERVER\HET NOVUM NIEUWS\Het Nieuws.mp3',ipBottom);
Queue.AddFile('C:\Users\Johnny Winter\Documents\SERVER\HET NOVUM NIEUWS\Jingle 4 - Uuropener (Effect).mp3',ipBottom);

Queue.AddFile('C:\Users\Johnny Winter\Documents\SERVER\VOICETRACKS\De Ultieme Zaterdagavond Uur 2.mp3',ipBottom);

PAL.UnLockExecution;

 end;
//
while DayOfWeek(Now) = Monday and ((Now >= T['11:59:15']) and (Now <= T['11:59:25'])) do
 begin

PAL.LockExecution;

PAL.WaitForTime(T['11:59:45']);

WriteLn('Voicetrack 3');

Queue.AddFile('C:\Users\Johnny Winter\Documents\SERVER\HET NOVUM NIEUWS\Jingle 5 - Uursluiter (Effect).mp3',ipTop);
  ActivePlayer.FadeTonext;

Queue.AddFile('C:\Users\Johnny Winter\Documents\SERVER\HET NOVUM NIEUWS\Het Nieuws.mp3',ipBottom);
Queue.AddFile('C:\Users\Johnny Winter\Documents\SERVER\HET NOVUM NIEUWS\Jingle 4 - Uuropener (Effect).mp3',ipBottom);

Queue.AddFile('C:\Users\Johnny Winter\Documents\SERVER\VOICETRACKS\De Ultieme Zaterdagavond Uur 1.mp3',ipBottom);

PAL.UnLockExecution;

 end; 

[antpeks]

ik heb het script ligt aangepast en gebruik het om op bepaalde dagen, op een bepaald uur een liveset te starten.

Wat is de bedoeling:

ik wil op maandag - woensdag en vrijdag (in het voorbeeld zaterdag) een twee tracks achterelkaar starten om 20.00 uur, het script echter slaat het eerste tracks over doet er niks mee en start gelijk de tweede. ik zie in de compiler geen fouten.

Code: Selecteer alles

PAL.Loop:=True;

while DayOfWeek(Now) = Saturday and ((Now >= T['22:29:15']) and (Now <= T['22:29:25'])) do
 begin

PAL.LockExecution;

PAL.WaitForTime(T['22:30:45']);

WriteLn('zaterdag');

Queue.AddFile('C:\Documents and Settings\Administrator\Desktop\DJBEATZ\Jingles\DJBeatz_MaximumDance.mp3',ipTop);
  ActivePlayer.FadeTonext;
   Queue.Clear;

Queue.AddFile('C:\Documents and Settings\Administrator\Desktop\DJBEATZ\DJsets\Dj Guniii - Exclusive Mix Episode 1.mp3',ipBottom);

PAL.UnLockExecution;

 end;

ok update !!!!

na een uur proberen, denken dat paden niet goed staan en noem maar op, heb ik het gevonden.

Ik heb de ' Queue.Clear; ' twee regels naar boven gezet en nu werkt het wel !! pfffffffft eindelijk zeg. Het script ziet er nu als volgt uit:

Code: Selecteer alles

while DayOfWeek(Now) = Friday and ((Now >= T['19:59:15']) and (Now <= T['19:59:25'])) do
 begin

PAL.LockExecution;

PAL.WaitForTime(T['19:59:45']);

WriteLn('Vrijdag');

   Queue.Clear;
Queue.AddFile('C:\Documents and Settings\Administrator\Desktop\DJBEATZ\Jingles\DJBeatz_MaximumDance.mp3',ipTop);
  ActivePlayer.FadeTonext;

Queue.AddFile('C:\Documents and Settings\Administrator\Desktop\DJBEATZ\DJsets\Dj Guniii - Exclusive Mix Episode 1.mp3',ipBottom);

PAL.UnLockExecution;

Peter