PAL script geen idee hoe??

[jortje538]

Dag mensen,

Ik ben best bekend met Sam Broadcaster maar een PAL script maken is nog helemaal onbekend voor me. Daarom zou ik jullie willen vragen of jullie me wille nhelpen, ik zal even uitleggen wat ik precies wil:

Het uur begint met een uuropener daarna uit elk van de volgende categorieen een plaat:

Top 40
2001-2005
Jaren 90
Jingles
Top 40
2001-2005
Tips
Jingles
Top 40
2001-2005
2006
Jingles
Top 40
2001-2005
Albumtracks
Jingles
Top 40
2001-2005
Jaren 90
Jingles
Top 40
2001-2005
Tips
Jingles

Dit zijn 18 nummers . Ik snap dat dat waarschijnlijk niet in een uur past dus moet als het bijna een heel uur is de plaat nog even afgedraait worden en daarna alle bestanden uit de map Reclame en daarna Nieuws dat zich op een html url bevind. Het volgende uur moet dat riedeltje dan weer opnieuw komen. Wie helpt me?

[Kees]

Hallo Jori...welkom op het forum.
Kijk eens op de diverse PAL topics..daar vindt je een heel boel info over hoe PAL scripts werken.
Mocht je er nog niet aan uit komen dan zien we dit graag.

Hier alvast een voorbeeld PAL script om een heel uur te draaien.
Wel even aanpassen voor je eigen categorien

Code: Selecteer alles

PAL.Loop=True;
PAL.WaitForTime(T['xx:59:50']);
Queue.Clear; 
Queue.AddFile('d:\uurwissel\nieuwsloper.mp3',ipTop); 
ActivePlayer.FadeToNext; 
Queue.AddFile('d:\uurwissel\00.mp3',ipBottom); 
Queue.AddFile('d:\uurwissel\opener.mp3',ipBottom); 

var QueueTime : Integer = (60*60*1200); 
While Queue.Duration < QueueTime do 
Begin 

Cat['60'].QueueBottom(smLemmingLogic, EnforceRules); 
Cat['70'].QueueBottom(smLemmingLogic, EnforceRules); 
Cat['Hits'].QueueBottom(smLemmingLogic, EnforceRules); 
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules); 
Cat['80'].QueueBottom(smLemmingLogic, EnforceRules); 
Cat['90'].QueueBottom(smLemmingLogic, EnforceRules); 
Cat['Nederpop'].QueueBottom(smLemmingLogic, EnforceRules); 
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules); 

end

[jortje538]

Ik heb nu dit maar ik krijg een error

PAL.Loop=True;
PAL.WaitForTime(T['xx:59:50']);
Queue.Clear;
Queue.AddFile('C:\Documents and Settings\Robbe\Mijn documenten\Mijn muziek\Reclame\reclame.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.AddFile('C:\Documents and Settings\Robbe\Mijn documenten\Mijn muziek\Nieuws\nieuws.mp3',ipBottom);
Queue.AddFile('C:\Documents and Settings\Robbe\Mijn documenten\Mijn muziek\Jingles\TOTH.mp3',ipBottom);

var QueueTime : Integer = (60*60*1200);
While Queue.Duration < QueueTime do
Begin

Cat['Top 40'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Tips'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['2001-2005'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['Top 40'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jaren 90'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['2001-2005'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['Top 40'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['2006'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['2001-2005'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['Top 40'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jaren 90'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['2001-2005'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['Top 40'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Tips'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['2001-2005'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['Top 40'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jaren 90'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['2001-2005'].QueueBottom(smLemmingLogic, EnforceRules);

end

Ik krijg deze error:

syntax error expected line 1 collumn 9
ofzo

Ik snap er nix van

[Kees]

Queue.AddFile('C:\Documents and Settings\Robbe\Mijn documenten\Mijn muziek\Reclame\reclame.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.AddFile('C:\Documents and Settings\Robbe\Mijn documenten\Mijn muziek\Nieuws\nieuws.mp3',ipBottom);
Queue.AddFile('C:\Documents and Settings\Robbe\Mijn documenten\Mijn muziek\Jingles\TOTH.mp3',ipBottom);
Ik krijg deze error:

syntax error expected line 1 collumn 9
ofzo

Ik snap er nix van

Een goeie tip...
Gebruik niet van die ellenlange directories.

Code: Selecteer alles

Queue.AddFile('C:\Documents and Settings\Robbe\Mijn documenten\Mijn muziek\Nieuws\nieuws.mp3',ipBottom); 

kun je beter vervangen voor b.v.

Code: Selecteer alles

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

Dit kan al een stuk schelen.
Niet alleen voor SAM maar ook voor jezelf.

Suc6

[jortje538]

Queue.AddFile('C:\Documents and Settings\Robbe\Mijn documenten\Mijn muziek\Reclame\reclame.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.AddFile('C:\Documents and Settings\Robbe\Mijn documenten\Mijn muziek\Nieuws\nieuws.mp3',ipBottom);
Queue.AddFile('C:\Documents and Settings\Robbe\Mijn documenten\Mijn muziek\Jingles\TOTH.mp3',ipBottom);
Ik krijg deze error:

syntax error expected line 1 collumn 9
ofzo

Ik snap er nix van

Een goeie tip...
Gebruik niet van die ellenlange directories.

Code: Selecteer alles

Queue.AddFile('C:\Documents and Settings\Robbe\Mijn documenten\Mijn muziek\Nieuws\nieuws.mp3',ipBottom); 

kun je beter vervangen voor b.v.

Code: Selecteer alles

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

Dit kan al een stuk schelen.
Niet alleen voor SAM maar ook voor jezelf.

Suc6

Ok bedankt is veranderd
Maar wat is die fout?

[Kees]

Krijg je hem na het veranderen nog dan ? :smt100
Zet je gewijzigde script nog eens online.
Dan duik ik er nog eens even goed in :smt024

[jortje538]

PAL.Loop=True;
PAL.WaitForTime(T['xx:59:50']);
Queue.Clear;
Queue.AddFile('C:\Reclame\reclame.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.AddFile('C:\Nieuws\nieuws.mp3',ipBottom);
Queue.AddFile('C:\Jingles\TOTH.mp3',ipBottom);

var QueueTime : Integer = (60*60*1200);
While Queue.Duration < QueueTime do
Begin

Cat['Top 40'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Tips'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['2001-2005'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['Top 40'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jaren 90'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['2001-2005'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['Top 40'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['2006'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['2001-2005'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['Top 40'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jaren 90'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['2001-2005'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['Top 40'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Tips'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['2001-2005'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['Top 40'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jaren 90'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['2001-2005'].QueueBottom(smLemmingLogic, EnforceRules);

end


Zo iestie nu en hij zegt dat in de eerste regel een fout zit

[jortje538]

Laat maar het is al gelukt er moest een : achter Loop :censored:

[Kees]

Zo zie je maar, wat een dubbele . niet allemaal kan betekenen :lachtot: