Gezocht Palscript

Voor vragen over Playlist Automation Language.
Plaats reactie
Gebruikersavatar
ActueelFM
****
Berichten: 99
Lid geworden op: 18 apr 2009, 21:25
SAM-versie: 4.7.1.*
Database: MariaDB
Windows: XP
Locatie: Landgraaf
Contacteer:

Gezocht Palscript

Ongelezen bericht door ActueelFM »

Hallo, hie rben k met een vraag :D


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
Gebruikersavatar
Wout
Moderator
Berichten: 3338
Lid geworden op: 03 dec 2007, 14:17
Answers: 1
SAM-versie: SAM 2019.3
Database: MySQL 8.0
Windows: Windows 10
Locatie: Bergen op Zoom
Contacteer:

Re: Gezocht Palscript

Ongelezen bericht door 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; 
Afbeelding
Gebruikersavatar
ActueelFM
****
Berichten: 99
Lid geworden op: 18 apr 2009, 21:25
SAM-versie: 4.7.1.*
Database: MariaDB
Windows: XP
Locatie: Landgraaf
Contacteer:

Re: Gezocht Palscript

Ongelezen bericht door 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 :D
Gebruikersavatar
ActueelFM
****
Berichten: 99
Lid geworden op: 18 apr 2009, 21:25
SAM-versie: 4.7.1.*
Database: MariaDB
Windows: XP
Locatie: Landgraaf
Contacteer:

Re: Gezocht Palscript

Ongelezen bericht door 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
Je hebt niet voldoende permissies om de bijlagen van dit bericht te bekijken.
Gebruikersavatar
Wout
Moderator
Berichten: 3338
Lid geworden op: 03 dec 2007, 14:17
Answers: 1
SAM-versie: SAM 2019.3
Database: MySQL 8.0
Windows: Windows 10
Locatie: Bergen op Zoom
Contacteer:

Re: Gezocht Palscript

Ongelezen bericht door 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; 
Afbeelding
Gebruikersavatar
antpeks
*
Berichten: 11
Lid geworden op: 10 aug 2008, 13:16

Re: Gezocht Palscript

Ongelezen bericht door 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
Plaats reactie
  • Vergelijkbare Onderwerpen
    Reacties
    Weergaves
    Laatste bericht