PAL Script - Jingle's / reclame's (loopt tijdens het uur)

[Guus]

Met dit PAL script kan je afgepaste blokjes voor je uur jingle plaatsen maar ook jingle's tussendoor laten komen.
Ik heb het script zodanig gewijzigd dat je het met de evenscheduler kun laden en je kunt dit script dan ook aanpassen per uur /dagdeel/ show

Gewoon de jingle / reclameblok en de tijden vervangen en eventueel een nieuwe rotatie lijst met een andere categorie
(of meerdere ) en je hebt een nieuwe show /dagdeel of zo..

Wat ook naar mijn idee een groot voordeel is alle scripts beginnen met de uurjingel min of meer...
Dat werkt niet fijn ik doe het precies anders om eigenlijk..

Nu kun je het nieuwe script gewoon laden met de event scheduler tijdens het eerste liedje of tweede, dat maakt niets uit het eigenlijke script werkt toch pas tegen kwart over.. dus je pc heeft de tijd
Dit moet werken voor een reclame blokje van 22 seconden met de tijden kan geschoven worden uiterrraard

Code: Selecteer alles

PAL.Loop := True;
WriteLn('Wachten tot xx:14:50');
PAL.WaitForTime(T['xx:14:55']);
Queue.AddFile('C:\jingels\naam5.mp3',ipTop);
WriteLn('Wachten tot xx:28:00');
PAL.WaitForTime(T['xx:28:15']);
Queue.AddFile('C:\jingels\naam2.mp3',ipTop);
WriteLn('Wachten tot xx:45:00');
PAL.WaitForTime(T['xx:45:10']);
Queue.AddFile('C:\jingels\naam3.mp3',ipTop);
WriteLn('Wachten tot xx:59:30');
PAL.WaitForTime(T['xx:59:32']);
Queue.AddFile('C:\jingels\reclame\reclame1.mp3',ipTop);
ActivePlayer.FadeToNext;
//WriteLn('Wachten tot xx:59:42');
//PAL.WaitForTime(T['xx:59:45']);
Queue.AddFile('C:\jingels\uurbeging.mp3',ipTop);
ActivePlayer.FadeToNext;
WriteLn('Add newstart to queue');

Ps er zijn twee regels uit gecommend die kun je weer activeren en het reclame stukje weg commenten dan moet het draaien zonder reclame

[Kees]

Heb je je wel eens afgevraagd wat er gebeurt als je SAM opnieuw opstart ?

[Guus]

Dan werkt het laatste script gewoon nog bij mij had ik al geprobeerd.
maar hoe het zit met die event scheduler neu heb ik nog niet geprobeerd das van de week weer aan de beurt (hoop ik) als ik tijd heb.
Maar sammie moet ook lief blijven draaien toch? al je 24 uur per dag draait dan moet dat ook geen probleem geven dacht ik zo.....

Of is dat niet zo dan?
Nu ga ik wel twijfelen tuurlijk

[Kees]

Stel dat je SAM op xx:17:45 opnieuw op moet starten...wat doet je script dan ?
Waar begint hij ??????
Bij het rode gedeelte blijft hij wachten !!!

PAL.Loop := True;
WriteLn('Wachten tot xx:14:50');
PAL.WaitForTime(T['xx:14:55']);
Queue.AddFile('C:\jingels\naam5.mp3',ipTop);
WriteLn('Wachten tot xx:28:00');
PAL.WaitForTime(T['xx:28:15']);
Queue.AddFile('C:\jingels\naam2.mp3',ipTop);
WriteLn('Wachten tot xx:45:00');
PAL.WaitForTime(T['xx:45:10']);
Queue.AddFile('C:\jingels\naam3.mp3',ipTop);
WriteLn('Wachten tot xx:59:30');
PAL.WaitForTime(T['xx:59:32']);
Queue.AddFile('C:\jingels\reclame\reclame1.mp3',ipTop);
ActivePlayer.FadeToNext;
//WriteLn('Wachten tot xx:59:42');
//PAL.WaitForTime(T['xx:59:45']);
Queue.AddFile('C:\jingels\uurbeging.mp3',ipTop);
ActivePlayer.FadeToNext;
WriteLn('Add newstart to queue');

En nu ?
Nu klopt je eerste uur na de herstart dus niet !
Met andere woorden...dit script is alleen gemaakt als je er zeker van bent dat je pc nooit, maar dan ook nooit stil valt !
Zo'n pc wil ik ook !
En zo'n energie leverancier die mij 100% kan garanderen dat de spanning nooit uitvalt.
Kort gezegd..script deugt niet !

[Guus]

um dat ben ik met je eens maarrrrr ik ben ook nog niet klaar
Ik ben ook maar aan het prutzen en ik weet dater methodus zijn om het script zelf naar de juiste tijd te laten zoeken maar dat moet IK nog uitzoeken hoe dat werkt
En ik ben niet snel maar om even op de stroon terug te komen een laptop met accu houd het wel een uurtje uit zonder stroom en anders bestaan er van die backup voedingen voor een paar uur....
Die zou ik zowiezo hebben staan als ik begin niet dat je er ene klap aan hebt want als de stroom uitvalt ligt het internet ook plat maar je server loopt dan wel door.

Enne ik zeg ook niet dat iemand het moet gaan gebruiken maar misschien hebben ze er wel wat aan..
zo ben ik ook van alels bij elkaar aan het rapen en wie weet op een dag ga ik het echt snappen en dan komt er wat moois uitrollen
Flink schudden met die mouwen..
Het probleem met de ellenlange scripts is dat ik ze nooit niet aan het werk krijg op de een of andere manier dus heb ik besloten om net zolang te prutsen tot ik het zelf voor elkaar krijg dan snap ik er ook meer van

[peellandfm]

een laptop met accu houd het wel een uurtje uit zonder stroom en anders bestaan er van die backup voedingen voor een paar uur....
Die zou ik zowiezo hebben staan als ik begin niet dat je er ene klap aan hebt want als de stroom uitvalt ligt het internet ook plat maar je server loopt dan wel door.

"potjandikiedosie" Guus
Die back-up voedingen die jij bedoelt heten een UPS wat in het Nederlands zoveel betekent als ononderbroken spanningsvoorziening. Je kan je modem, router en stream pc allemaal achter die UPS hangen. Dan heb je geen stroom probleem meer. Maar er zijn zoveel redenen meer te bedenken waarom een pc uit zou kunnen vallen.

[Kees]

Je schrijft dit...
Enne ik zeg ook niet dat iemand het moet gaan gebruiken maar misschien hebben ze er wel wat aan..
Lees je nu wel wat je schrijft...je zegt dat iemand het niet moet gebruiken maar misschien dat iemand er wel wat aan heeft.
Dit kan ik niet volgen.
De groenteboer legt rotte ananas in de winkel..niet dat iemand er wat aan heeft maar wie weet kan iemand het wel gebruiken.

Script dus alleen plaatsen als iemand er ook echt wat aan hebt.
Niks klakkeloos..anders heeft dit hele forum geen nut.
En als je die zogenaamde ellenlange scripts niet snapt dan a.u.b. niks plaatsen.
In die ellenlange scripts die o.a. van mij komen zit wel een bepaalde logica in en bedoelt voor 24/7 programmering..die van jou voldoet daar zeker niet aan.
SAM heeft met het gebruik van PAL scripts de mogelijkheid om 24/7 te draaien met ale toesters en bellen zoals uurwissels met nieuws, reclame, enz. enz. en kan bij dus bij een eventuele herstart verder gaan waar hij gebleven was.

[Guus]

okee ik snap dat ik het niet helemaal goed uit kan leggen ik hou me wel in hoor..
We moeten allemaal eens beginnen ik wist niet dat je dat dan in achterkamertjes moet doen.
Ik ging er ook misschien ten onrechte vanuit dat beginners hier wel wat mee konden
Misschien is het dan een goed idee om een simpel voor iedereen te begrijpen script ergens neer te zetten die dit wel kan en op tijd begint als sam stopt na bijv. stroomuitval..
Exuses voor de overlast..

[Kees]

Dit is in feite hetzelfde maar dan hoe het wel moet !

Code: Selecteer alles

PAL.Loop := True;
PAL.LockExeCution;

while ((Now >= T['00:59:10']) and (Now <= T['00:59:20'])) or
      ((Now >= T['01:59:10']) and (Now <= T['01:59:20'])) or
      ((Now >= T['02:59:10']) and (Now <= T['02:59:20'])) or
      ((Now >= T['03:59:10']) and (Now <= T['03:59:20'])) or
      ((Now >= T['04:59:10']) and (Now <= T['04:59:20'])) or
      ((Now >= T['05:59:10']) and (Now <= T['05:59:20'])) or
      ((Now >= T['06:59:10']) and (Now <= T['06:59:20'])) or
      ((Now >= T['07:59:10']) and (Now <= T['07:59:20'])) or
      ((Now >= T['08:59:10']) and (Now <= T['08:59:20'])) or
      ((Now >= T['09:59:10']) and (Now <= T['09:59:20'])) or
      ((Now >= T['10:59:10']) and (Now <= T['10:59:20'])) or
      ((Now >= T['11:59:10']) and (Now <= T['11:59:20'])) or
      ((Now >= T['12:59:10']) and (Now <= T['12:59:20'])) or
      ((Now >= T['13:59:10']) and (Now <= T['13:59:20'])) or
      ((Now >= T['14:59:10']) and (Now <= T['14:59:20'])) or
      ((Now >= T['15:59:10']) and (Now <= T['15:59:20'])) or
      ((Now >= T['16:59:10']) and (Now <= T['16:59:20'])) or
      ((Now >= T['17:59:10']) and (Now <= T['17:59:20'])) or
      ((Now >= T['18:59:10']) and (Now <= T['18:59:20'])) or
      ((Now >= T['19:59:10']) and (Now <= T['19:59:20'])) or
      ((Now >= T['20:59:10']) and (Now <= T['20:59:20'])) or
      ((Now >= T['21:59:10']) and (Now <= T['21:59:20'])) or
      ((Now >= T['22:59:10']) and (Now <= T['22:59:20'])) or
      ((Now >= T['23:59:10']) and (Now <= T['23:59:20'])) do
begin
PAL.UnLockexeCution;
PAL.WaitForTime(T['xx:59:32']);
Queue.AddFile('C:\jingels\reclame\reclame1.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.AddFile('C:\jingels\uurbeging.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:10']);
PAL.LockExecution;
end;

while ((Now >= T['00:14:40']) and (Now <= T['00:14:45'])) or
      ((Now >= T['01:14:40']) and (Now <= T['01:14:45'])) or
      ((Now >= T['02:14:40']) and (Now <= T['02:14:45'])) or
      ((Now >= T['03:14:40']) and (Now <= T['03:14:45'])) or
      ((Now >= T['04:14:40']) and (Now <= T['04:14:45'])) or
      ((Now >= T['05:14:40']) and (Now <= T['05:14:45'])) or
      ((Now >= T['06:14:40']) and (Now <= T['06:14:45'])) or
      ((Now >= T['07:14:40']) and (Now <= T['07:14:45'])) or
      ((Now >= T['08:14:40']) and (Now <= T['08:14:45'])) or
      ((Now >= T['09:14:40']) and (Now <= T['09:14:45'])) or
      ((Now >= T['10:14:40']) and (Now <= T['10:14:45'])) or
      ((Now >= T['11:14:40']) and (Now <= T['11:14:45'])) or
      ((Now >= T['12:14:40']) and (Now <= T['12:14:45'])) or
      ((Now >= T['13:14:40']) and (Now <= T['13:14:45'])) or
      ((Now >= T['14:14:40']) and (Now <= T['14:14:45'])) or
      ((Now >= T['15:14:40']) and (Now <= T['15:14:45'])) or
      ((Now >= T['16:14:40']) and (Now <= T['16:14:45'])) or
      ((Now >= T['17:14:40']) and (Now <= T['17:14:45'])) or
      ((Now >= T['18:14:40']) and (Now <= T['18:14:45'])) or
      ((Now >= T['19:14:40']) and (Now <= T['19:14:45'])) or
      ((Now >= T['20:14:40']) and (Now <= T['20:14:45'])) or
      ((Now >= T['21:14:40']) and (Now <= T['21:14:45'])) or
      ((Now >= T['22:14:40']) and (Now <= T['22:14:45'])) or
      ((Now >= T['23:14:40']) and (Now <= T['23:14:45'])) do
begin
PAL.UnLockexeCution;
PAL.WaitForTime(T['xx:14:55']);
Queue.AddFile('C:\jingels\naam5.mp3',ipTop);
PAL.WaitForTime(T['+00:00:10']);
PAL.LockExecution;
end;


while ((Now >= T['00:28:00']) and (Now <= T['00:28:05'])) or
      ((Now >= T['01:28:00']) and (Now <= T['01:28:05'])) or
      ((Now >= T['02:28:00']) and (Now <= T['02:28:05'])) or
      ((Now >= T['03:28:00']) and (Now <= T['03:28:05'])) or
      ((Now >= T['04:28:00']) and (Now <= T['04:28:05'])) or
      ((Now >= T['05:28:00']) and (Now <= T['05:28:05'])) or
      ((Now >= T['06:28:00']) and (Now <= T['06:28:05'])) or
      ((Now >= T['07:28:00']) and (Now <= T['07:28:05'])) or
      ((Now >= T['08:28:00']) and (Now <= T['08:28:05'])) or
      ((Now >= T['09:28:00']) and (Now <= T['09:28:05'])) or
      ((Now >= T['10:28:00']) and (Now <= T['10:28:05'])) or
      ((Now >= T['11:28:00']) and (Now <= T['11:28:05'])) or
      ((Now >= T['12:28:00']) and (Now <= T['12:28:05'])) or
      ((Now >= T['13:28:00']) and (Now <= T['13:28:05'])) or
      ((Now >= T['14:28:00']) and (Now <= T['14:28:05'])) or
      ((Now >= T['15:28:00']) and (Now <= T['15:28:05'])) or
      ((Now >= T['16:28:00']) and (Now <= T['16:28:05'])) or
      ((Now >= T['17:28:00']) and (Now <= T['17:28:05'])) or
      ((Now >= T['18:28:00']) and (Now <= T['18:28:05'])) or
      ((Now >= T['19:28:00']) and (Now <= T['19:28:05'])) or
      ((Now >= T['20:28:00']) and (Now <= T['20:28:05'])) or
      ((Now >= T['21:28:00']) and (Now <= T['21:28:05'])) or
      ((Now >= T['22:28:00']) and (Now <= T['22:28:05'])) or
      ((Now >= T['23:28:00']) and (Now <= T['23:28:05'])) do
begin
PAL.UnLockexeCution;
PAL.WaitForTime(T['xx:28:15']);
Queue.AddFile('C:\jingels\naam2.mp3',ipTop);
PAL.WaitForTime(T['+00:00:10']);
PAL.LockExecution;
end;


while ((Now >= T['00:44:50']) and (Now <= T['00:45:00'])) or
      ((Now >= T['01:44:50']) and (Now <= T['01:45:00'])) or
      ((Now >= T['02:44:50']) and (Now <= T['02:45:00'])) or
      ((Now >= T['03:44:50']) and (Now <= T['03:45:00'])) or
      ((Now >= T['04:44:50']) and (Now <= T['04:45:00'])) or
      ((Now >= T['05:44:50']) and (Now <= T['05:45:00'])) or
      ((Now >= T['06:44:50']) and (Now <= T['06:45:00'])) or
      ((Now >= T['07:44:50']) and (Now <= T['07:45:00'])) or
      ((Now >= T['08:44:50']) and (Now <= T['08:45:00'])) or
      ((Now >= T['09:44:50']) and (Now <= T['09:45:00'])) or
      ((Now >= T['10:44:50']) and (Now <= T['10:45:00'])) or
      ((Now >= T['11:44:50']) and (Now <= T['11:45:00'])) or
      ((Now >= T['12:44:50']) and (Now <= T['12:45:00'])) or
      ((Now >= T['13:44:50']) and (Now <= T['13:45:00'])) or
      ((Now >= T['14:44:50']) and (Now <= T['14:45:00'])) or
      ((Now >= T['15:44:50']) and (Now <= T['15:45:00'])) or
      ((Now >= T['16:44:50']) and (Now <= T['16:45:00'])) or
      ((Now >= T['17:44:50']) and (Now <= T['17:45:00'])) or
      ((Now >= T['18:44:50']) and (Now <= T['18:45:00'])) or
      ((Now >= T['19:44:50']) and (Now <= T['19:45:00'])) or
      ((Now >= T['20:44:50']) and (Now <= T['20:45:00'])) or
      ((Now >= T['21:44:50']) and (Now <= T['21:45:00'])) or
      ((Now >= T['22:44:50']) and (Now <= T['22:45:00'])) or
      ((Now >= T['23:44:50']) and (Now <= T['23:45:00'])) do
begin
PAL.UnLockexeCution;
PAL.WaitForTime(T['xx:45:10']);
Queue.AddFile('C:\jingels\naam3.mp3',ipTop);
PAL.WaitForTime(T['+00:00:10']);
PAL.LockExecution;
end;

PAL.UnLockexeCution;

[Guus]

Owkee
dat is wel iets meer text mag ik vragen waar er hier globaal gebeurt in het script?
Ik zie denk ik dat je er een soort aftel systeem van hebt gebouwd?

Ik snap die while functie niet..
Ik vermoed dat je sam nu de minuten laat controleren tot het moment dat de actie moet gebeuren zoals
bij: PAL.WaitForTime(T['xx:59:32']);
?
en als laatste vraagje wat doet die PAL.LockExecution; hij zorgt er naamr mijn idee voor dat sam dit stukje blijft loopen todat het zover is?
en dan verder gaat naar het volgende blokje?
voorzover ik het heb ontcijfert laat je het optellen tot een kwartier en dan komt er weer een jingeltje
correct me if im wrong
Thanks alvast kees!!

[Kees]

Gewoon laten draaien en goed kijken wat er gebeurt.
Zo heb ik het ook geleerd.
Ik ben begonnen met ASQ scripts (SAM v0.98), veel gelezen, veel fouten gemaakt en veel geleerd en nu +/- 6 jaar later met SAM 4 blijft het precies hetzelfde.
Veel proberen..veel fout gaan maar uiteindelijk toch een goed resultaat verkrijgen.
Het heeft bij mij lang geduurd voor ik iets schreef op het forum.
Zelfs toen de allereerste SAM v2 uitkwam.
Wat een verschil. Was nu met MySQL.
Wat een ramp om te installeren maar na een paar maanden en wat updates is het wel gekukt.
Maar ik heb alles met lezen en zelf uitvogelen geleerd.

PAL.LockExecution en PAL.UnLockExecution zorgen ervoor dat, wanneer er geen actie nodig is, SAM razendsnel door het PAL script gaat, net zo lang tot er wel iets moet gebeuren.
Deze 2 commando's moet je niet zomaar lukraak gebruiken.
Wanneer je deze niet op de juiste manier gebruikt, kan je hele pc muurvast komen te staan.

[frank1964]

Even off topic.

Wat mij opvalt is dat er eigenlijk nergens een goede "handleiding" voor PAL scripts te vinden is en de commando's die daar voor te gebruiken zijn. De helpfunctie in SAM laat je wel een "hello world" script maken maar hoe het precies werkt vertellen ze er niet bij. Zou er ergens een lijst te vinden zijn op het net vraag ik mij zo af met de meest gangbare commando's en hun functie daar van.

[Kees]

Ja Frank....hele goeie opmerkig van jou.
Ik heb er al eens over nagedacht om er 1 te maken maar dit is echt veel werk.
Ik zou wel een goed voorbeeld script kunnen maken en duidelijk proberen uit te leggen wat dit doet.
Ik heb ook al eens na gedacht over een Nederlandstalige Wiki.
Wie weet is dit ook een gooede optie.
Ik ga er nog eens verder over nadenken.
Ik heb vanaf donderdag 16:30 uur 4 weken vakantie dus wie weet kan ik er wel eens een dag aan besteden.

[Guus]

okee Kees bedankt hoor.
Ik heb ook al het een en ander geprobeerd en ook proberen aan te passen maar als je er helemaal nog niets vanaf weet valt het niet mee zeker niet als je idd zoals frank al zij de commando's niet kent of wel kent en niet weet wat ze doen..
Zon voorbeeld scriptje met commentaar erin wat wat doet is op zich al een goed idee met wat globale dingen erin.
sinds een paar jaar ben ik niet zo snel meer met puzzelen vroeger was dat wel anders daarom reageer ik misschien ook wat "wazig".
Maar het is niet boos bedoeld alleen komt het er vaak niet meer uit wat ik wil vragen /zeggen.
En daarom ben ik ook hiermee begonen omdat radio maken vanaf thuis kan zonder reis gedoe enz..
En ik hoop zo meer mensen te kunnen helpen die hetzelfd hebben opgelopen.
weer ontopic maar..
Ik ga morgen je script proberen ik ben benieuwd alvast bedankt hoor!!