Week Script

John Winter

Hoi, ik ben bezig om het weekscript naar eigen formaat te zetten, maar ik kom niet uit....

while DayOfWeek(Now) = Saturday and ((Now >= T['22:59:15']) and (Now <= T['22:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['22:59:45']);
Queue.AddFile('D:\Databank\Tunes\Nieuws\Nieuwsloper.mp3',ipTop);
ActivePlayer.FadeTonext;
Queue.Clear;
Queue.AddFile('D:\Databank\Tunes\Niet Actief\Jingel 18 - Adverteren + Reclame Pingle + Uurafsluiter (Stefan Collaris).mp3',ipBottom);
Queue.AddFile('D:\Databank\Novum Nieuws\nieuws.mp3',ipBottom);
Cat['uur-promo'].QueueBottom(smRandom,NoRules);
Queue.AddFile('D:\Databank\Tunes\Niet Actief\Jingel 18 - Adverteren + Reclame Pingle + Uurafsluiter (Stefan Collaris).mp3',ipBottom);
PAL.LockExecution;
end;

Ik zie elk uur, en elke dag en nacht, de volgende erinstaan :

Cat['uur-promo'].QueueBottom(smRandom,NoRules);

Wordt de uurpromo, bedoel als reclame, of de schijf van de week ?

en opdan1.wav, is dit dan de uuropener?

Groetjes Johnny

Ongelezen bericht door **Gerrit** » 08 jan 2009, 18:55

Als je het week-script gebruik van Omroep Tholen dan verwijs ik je hier ff naar:

http://www.broadcasterforum.nl/viewtopi ... =81&t=1677

Misschien dat dat de fout is met de "end;" aan het eind !!!

John Winter

Gerrit schreef:Als je het week-script gebruik van Omroep Tholen dan verwijs ik je hier ff naar:

viewtopic.php?f=81&t=1677

Misschien dat dat de fout is met de "end;" aan het eind !!!

Hoi Gerrit, het loopt bijna perfect, alleen doet hij de nieuwsloper niet samen met het nieuws, ik heb idd, het omroep tholen script wat op die link stond,

Hoe krijg ik nu de nieuwsloper, over het nieuws heen ?

Groetjes
Johnny

Ongelezen bericht door **Kees** » 08 jan 2009, 19:19

http://www.rtvsoftware.nl/producten/bulletinnews/

Ongelezen bericht door **Gerrit** » 08 jan 2009, 19:27

Ik denk niet dat tie dat bedoeld , kees.
zo tezien gebruikt hij het Novum-nieuws al.

Hij bedoeld volgens mij dat de muziek van de openings Jingle onder het nieuws door moet lopen !!
"Correct me if i'm wrong".......

BTW, Kan dit wel ???

EDIT: misschien een heeeeelee lange uit-fade tijd aan de jingle geven ????????? (is maar een idee

)

John Winter

Gerrit schreef:Ik denk niet dat tie dat bedoeld , kees.
zo tezien gebruikt hij het Novum-nieuws al.

Hij bedoeld volgens mij dat de muziek van de openings Jingle onder het nieuws door moet lopen !!
"Correct me if i'm wrong".......

BTW, Kan dit wel ???

EDIT: misschien een heeeeelee lange uit-fade tijd aan de jingle geven ????????? (is maar een idee )

Hij bedoeld volgens mij dat de muziek van de openings Jingle onder het nieuws door moet lopen !!
"Correct me if i'm wrong".......

Inderdaad dat bedoel ik, bij de lokale omroep waar ik werk `hoby´ hebben ze dit namelijk ook

alleen werken ze daar niet met sam, dus ik vraag me af hoe ik dit moet doen....

"Correct me if i'm wrong"....... You RIght.... :finga:

Greetz...

Ongelezen bericht door **Gerrit** » 08 jan 2009, 21:49

Dat zou ik niet weten, hoe dat moet (als het kan), zoveel weet ik van PAL-scripts nog niet af !

:ka:

Daar moet je toch een PALscript-expert voor hebben, en die hebben ze hier wel ?!?! :afraid:

Suc6 ermee, ik lees het wel of het gelukt is.

Ongelezen bericht door **Kees** » 08 jan 2009, 22:12

Met dat tooltje kan het wel degelijk.
Op die manier doen ze het bij o.a. Omroep Tholen ook.
Het enige waar je voor moet zorgen is dat de muziek die onder het nieuws loopt, lang genoeg duurt en dat het volume wordt gehalveerd.
Anders hoor je de muziek net zo hard als de stem van de nieuwslezer.
Mocht je toch perse voor een PAL script kiezen dan is hier een simpel voorbeeld.
Wel zelf aanpassen..

Code: Selecteer alles

Queue.AddFile('k:\nieuws\nieuwsloper.mp3',ipTop);
PAL.WaitForPlayCount(1);
var P1, P2 : TPlayer;
var Song : TSongInfo;
var theSong : TSongInfo;
P1 := ActivePlayer;
P2 := IdlePlayer;
Song := CAT['nieuws'].ChooseSong(smRandom,NoRules);
P2.QueueSong(Song);
P2.play;

Ongelezen bericht door **Gerrit** » 09 jan 2009, 20:21

Hee, dat is weer een leuke uitdaging !

Eens kijken of dat lukken wil voor de gein, want gebruiken gaan we het toch niet,
het is mega irritant als je niet het goeie muziekje eronder gebruik !!!! (en wat is goed)
Want over smaak valt niet te twisten !!! dus doen we het niet.

John Winter

Gerrit schreef:Hee, dat is weer een leuke uitdaging !

Eens kijken of dat lukken wil voor de gein, want gebruiken gaan we het toch niet,
het is mega irritant als je niet het goeie muziekje eronder gebruik !!!! (en wat is goed)
Want over smaak valt niet te twisten !!! dus doen we het niet.

Leuk idd, om te testen, maar of ik het daadwerkelijk zal gaan gebruiken, heb wel een goede nieuwsloper daarvan afgezien, maar ga eerst eens goed het weekscript in orde maken, zodat het echt perfect werkt, vanaf volgende week worden de eerste programmas, gevoictrackt, hiero, en ingepland... ben benieuwd, zaterdag al een uitzending van 3 uur die gevoictrackt is, en daarna elke vrijdag....

vind sam een zeer mooi en uitgebrijd systeem, sam blijft gewoon leuk... en zeker een aanrader voor lokale omroepen !

Groetjes johnny,en kees bedankt voor je hulp ook gerrit, ps kees, heb je dit script zelf getypt, raak al in de war met deeerste regels maar toch mooi dat je goede suport levert. ! :drinkers:

John Winter

Gerrit schreef:Als je het week-script gebruik van Omroep Tholen dan verwijs ik je hier ff naar:

viewtopic.php?f=81&t=1677

Misschien dat dat de fout is met de "end;" aan het eind !!!

// Zaterdag 23:00 uur
while DayOfWeek(Now) = Saturday and ((Now >= T['22:59:15']) and (Now <= T['22:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['22:59:45']);
ActivePlayer.FadeTonext;
Queue.Clear;
Queue.AddFile('D:\Databank\Tunes\Niet Actief\Jingel 18 - Adverteren + Reclame Pingle + Uurafsluiter (Stefan Collaris).mp3',ipBottom);
Queue.AddFile('D:\Databank\Novum Nieuws\nieuws.mp3',ipBottom);
Queue.AddFile('D:\Databank\Tunes\Niet Actief\Jingel 15 - Uuropener Nonstop (Stefan Collaris).mp3',ipBottom);
PAL.LockExecution;
end;

// einde zaterdag

Het week script draait nu wel, alleen gaat hij niet over op adverteer spotje, maar pakt hij nog een nummer, ertussen ?

Heeft kees, of iemand anders hier een oplossing voor ?

Groetjes
Johnny

Ongelezen bericht door **Borg** » 10 jan 2009, 17:33

Config>playlist rotation rules> Keep 0 songs in queue ?

Jos

Ongelezen bericht door **Kees** » 10 jan 2009, 18:03

Code: Selecteer alles

while DayOfWeek(Now) = Saturday and ((Now >= T['22:59:15']) and (Now <= T['22:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['22:59:45']);
ActivePlayer.FadeTonext;
Queue.Clear;

Wat moet er gefade worden ?
Blijkbaar wil je in jou voorbeeld gewoon het volgende faden wat er klaar staat in de queue !!

John Winter

Kees schreef:
Code: Selecteer alles
while DayOfWeek(Now) = Saturday and ((Now >= T['22:59:15']) and (Now <= T['22:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['22:59:45']);
ActivePlayer.FadeTonext;
Queue.Clear;
Wat moet er gefade worden ?
Blijkbaar wil je in jou voorbeeld gewoon het volgende faden wat er klaar staat in de queue !!

Enigste wat ik wil is, dat hij

De uurafsluiter ...

Jingel 18 - Adverteren + Reclame Pingle + Uurafsluiter (Stefan Collaris)

die 0.00:15 seconder duurt, dan het nieuws...

nieuws

dat gemidelt 2 minuten duurt en dan de uuropner

Jingel 15 - Uuropener Nonstop (Stefan Collaris)

die 0.00.22 seconden duur...

Wat hij nu doet, is hij plant ze in, maar dan gooit hij de uurafsluiter erin, maar tussen uurafsluiter en nieuws komt nog steeds een nummer, het zelfde geld voor de afsluiter, hier pakt hij een nummer voor, en daarna pas de uurafsluiter...

T is schijnbaar simpeler gezegd dan gedaan, want het ene uur is alles pcies op tijd, en ander uur is het weer te laat...

Hopelijk kan iemand mij uit de brand helpen, want als ik sponsoren, heb binnekort, kan het ook niet altijd mislopen....

wordt zon beetje radeloos ervan...

Heb al paar script geprbeerd en bewerkt.... maar niets....

Grtjes
Johnny

Ongelezen bericht door **Kees** » 10 jan 2009, 20:29

Goed kijken John...je loopt de boel te verbouwen maar weet niet wat je aan het doen bent.
uursluiter
deckfade
de rest...
En waarschijnlijk staat er nog een clockwheel aan.

John Winter

Kees schreef:Goed kijken John...je loopt de boel te verbouwen maar weet niet wat je aan het doen bent.
uursluiter
deckfade
de rest...
En waarschijnlijk staat er nog een clockwheel aan.

Zie hier :

http://www.radiowaubach.nl/img/samvoorb ... aubach.JPG

Ongelezen bericht door **Kees** » 10 jan 2009, 20:48

Wat je aan het sjouwen bent weet ik niet maar ik geef maar 1 tip..begin opnieuw met het hele originele script eerst eens goed te bekijken !!!!
Als je dan echt weet hoe het zit begin dan pas met het wijzigen er van.

Ongelezen bericht door **Gerrit** » 10 jan 2009, 23:52

John Winter schreef:
Kees schreef:
Code: Selecteer alles
while DayOfWeek(Now) = Saturday and ((Now >= T['22:59:15']) and (Now <= T['22:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['22:59:45']);
ActivePlayer.FadeTonext;
Queue.Clear;
Wat moet er gefade worden ?
Blijkbaar wil je in jou voorbeeld gewoon het volgende faden wat er klaar staat in de queue !!
Enigste wat ik wil is, dat hij

De uurafsluiter ...
Jingel 18 - Adverteren + Reclame Pingle + Uurafsluiter (Stefan Collaris)
die 0.00:15 seconder duurt, dan het nieuws...
nieuws
dat gemidelt 2 minuten duurt en dan de uuropner
Jingel 15 - Uuropener Nonstop (Stefan Collaris)
die 0.00.22 seconden duur...

Wat hij nu doet, is hij plant ze in, maar dan gooit hij de uurafsluiter erin, maar tussen uurafsluiter en nieuws komt nog steeds een nummer, het zelfde geld voor de afsluiter, hier pakt hij een nummer voor, en daarna pas de uurafsluiter...

T is schijnbaar simpeler gezegd dan gedaan, want het ene uur is alles pcies op tijd, en ander uur is het weer te laat...

Hopelijk kan iemand mij uit de brand helpen, want als ik sponsoren, heb binnekort, kan het ook niet altijd mislopen.... wordt zon beetje radeloos ervan...

Heb al paar script geprbeerd en bewerkt.... maar niets....

Grtjes
Johnny

John, de dik gedrukte regel mis ik in jouw verhaal:

// Zaterdag 21:00 uur

while DayOfWeek(Now) = Saturday and ((Now >= T['20:59:15']) and (Now <= T['20:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['20:59:40']);
Queue.AddFile('E:\Midland\uursluiter.wav',ipTop);
ActivePlayer.FadeTonext;
Queue.Clear;
Queue.AddFile('C:\NOVUM-NIEUWS\NOVUM-NIEUWS.mp3',ipBottom);
Queue.AddFile('E:\Midland\uuropener.wav',ipBottom);
PAL.LockExecution;
end;

Suc6, Gerrit.

John Winter

Gerrit schreef:
John Winter schreef:
Kees schreef:
Code: Selecteer alles
while DayOfWeek(Now) = Saturday and ((Now >= T['22:59:15']) and (Now <= T['22:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['22:59:45']);
ActivePlayer.FadeTonext;
Queue.Clear;
Wat moet er gefade worden ?
Blijkbaar wil je in jou voorbeeld gewoon het volgende faden wat er klaar staat in de queue !!
Enigste wat ik wil is, dat hij

De uurafsluiter ...
Jingel 18 - Adverteren + Reclame Pingle + Uurafsluiter (Stefan Collaris)
die 0.00:15 seconder duurt, dan het nieuws...
nieuws
dat gemidelt 2 minuten duurt en dan de uuropner
Jingel 15 - Uuropener Nonstop (Stefan Collaris)
die 0.00.22 seconden duur...

Wat hij nu doet, is hij plant ze in, maar dan gooit hij de uurafsluiter erin, maar tussen uurafsluiter en nieuws komt nog steeds een nummer, het zelfde geld voor de afsluiter, hier pakt hij een nummer voor, en daarna pas de uurafsluiter...

T is schijnbaar simpeler gezegd dan gedaan, want het ene uur is alles pcies op tijd, en ander uur is het weer te laat...

Hopelijk kan iemand mij uit de brand helpen, want als ik sponsoren, heb binnekort, kan het ook niet altijd mislopen.... wordt zon beetje radeloos ervan...

Heb al paar script geprbeerd en bewerkt.... maar niets....

Grtjes
Johnny
John, de dik gedrukte regel mis ik in jouw verhaal:

// Zaterdag 21:00 uur

while DayOfWeek(Now) = Saturday and ((Now >= T['20:59:15']) and (Now <= T['20:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['20:59:40']);
Queue.AddFile('E:\Midland\uursluiter.wav',ipTop);
ActivePlayer.FadeTonext;
Queue.Clear;
Queue.AddFile('C:\NOVUM-NIEUWS\NOVUM-NIEUWS.mp3',ipBottom);
Queue.AddFile('E:\Midland\uuropener.wav',ipBottom);
PAL.LockExecution;
end;

Suc6, Gerrit.

// Zaterdag 21:00 uur

while DayOfWeek(Now) = Saturday and ((Now >= T['20:59:15']) and (Now <= T['20:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['20:59:40']);
Queue.AddFile('E:\Midland\uursluiter.wav',ipTop);
ActivePlayer.FadeTonext;
Queue.Clear;
Queue.AddFile('C:\NOVUM-NIEUWS\NOVUM-NIEUWS.mp3',ipBottom);
Queue.AddFile('E:\Midland\uuropener.wav',ipBottom);
PAL.LockExecution;
end;

Dit script werkt, alleen na de uuropener hangt het hele systeem zich op...

Gerrit en kees bedankt voor jullie medewerking tot dusver...

Hoe zou dit komen ?

Gr
Johnny
Groetjes

Ongelezen bericht door **Kees** » 13 jan 2009, 19:49

Staat er onderin je script een

Code: Selecteer alles

PAL.UnLockExecution;

Deze hoort er te staan !

BroadcasterForum Nederland

Week Script

Week Script

Re: Week Script

Re: Week Script

Re: Week Script

Re: Week Script

Re: Week Script

Re: Week Script

Re: Week Script

Re: Week Script

Re: Week Script

Re: Week Script

Re: Week Script

Re: Week Script

Re: Week Script

Re: Week Script

Re: Week Script

Re: Week Script

Re: Week Script

Re: Week Script

Re: Week Script