PAL script een playlist laten lopen op een uur

Ongelezen bericht door **Kees** » 11 jul 2008, 01:25

Ik heb hem aangepast dus nu zou het Douglas gedeelte moeten werken.
En je moet het non-stop gedeelte onderin aanpassen.
Hier komt je inhoud van je clockwheel in te staan.
Je clockwheel kan dan leeg.
Deze heb je niet meer nodig.

Cootje81 · Ongelezen bericht door **Cootje81** » 11 jul 2008, 10:05

Bedankt kee,,
Ik ga het een van deze dagen uitesten

Groeten

netmeet · Ongelezen bericht door **netmeet** » 11 jul 2008, 12:00

Hey kees heel erg bedankt alvast.

Maar ik heb het niet goed uitgelegt

Dat tussen 18 - 19 uur mocht blijven staan
maar tusssen 17 - 18 uur heb ik ook iemand maar had ook de naam douglas gebruikt.

Dus ik heb ook nog een nonstop tussen 17 - 18 uur maar van een rudy.
Dus de dir zal rudy noemen en waar de nonstop staat is de file rudy_nonstop.mp3

kan je dat regelen aub ... met dank

Cootje81 · Ongelezen bericht door **Cootje81** » 11 jul 2008, 12:44

hoe kan ik een andere playlist laten draaien voor de zaterdag en de zondag.. zaterdag dance dag dus alles met dance... de zondag moeten er ook nonstops komen op een paar uur en de rest is Easy beat rustige muziek.. hoe kunnen we dat doen ?

Alvast bedankt

MvG

netmeet · Ongelezen bericht door **netmeet** » 11 jul 2008, 13:04

Hey kees..

Ik heb nu deze draaien.. maar de nonstop van 13 uur wil hij niet draaien.
Dus ik vrees ervoor dat het hetzelfde zal zijn voor die andere uren.

Code: Selecteer alles

PAL.Loop:=True;
PAL.LockExecution;

while ((Now >= T['23:59:53']) and (Now <= T['23:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
PAL.Lockexecution;
end;

while ((Now >= T['00:59:53']) and (Now <= T['00:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
PAL.Lockexecution;
end;

while ((Now >= T['01:59:53']) and (Now <= T['01:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
PAL.Lockexecution;
end;

while ((Now >= T['02:59:53']) and (Now <= T['02:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
PAL.Lockexecution;
end;

while ((Now >= T['03:59:53']) and (Now <= T['03:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
PAL.Lockexecution;
end;

while ((Now >= T['04:59:53']) and (Now <= T['04:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
PAL.Lockexecution;
end;

while ((Now >= T['05:59:53']) and (Now <= T['05:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
PAL.Lockexecution;
end;

while ((Now >= T['06:59:53']) and (Now <= T['06:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
PAL.Lockexecution;
end;

while ((Now >= T['07:59:53']) and (Now <= T['07:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.Lockexecution;
end;

while ((Now >= T['08:59:53']) and (Now <= T['08:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
PAL.Lockexecution;
end;

while ((Now >= T['09:59:53']) and (Now <= T['09:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
PAL.Lockexecution;
end;

while ((Now >= T['10:59:53']) and (Now <= T['10:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
PAL.Lockexecution;
end;

while ((Now >= T['11:59:53']) and (Now <= T['11:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['new mp3'].QueueBottom(smLemmingLogic, EnforceRules);
end;
PAL.Lockexecution;
end;

[color=#FF0000]while ((Now >= T['12:59:53']) and (Now <= T['12:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
Queue.AddFile('D:\Rudy\rudy_nonstop.mp3',ipTop);
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['love'].QueueBottom(smLemmingLogic, EnforceRules);
end;
PAL.Lockexecution;
end;[/color]

while ((Now >= T['13:59:53']) and (Now <= T['13:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['R&B'].QueueBottom(smLemmingLogic, EnforceRules);
end;
PAL.Lockexecution;
end;

while ((Now >= T['14:59:53']) and (Now <= T['14:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['techno'].QueueBottom(smLemmingLogic, EnforceRules);
end;
PAL.Lockexecution;
end;

while ((Now >= T['15:59:53']) and (Now <= T['15:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['va'].QueueBottom(smLemmingLogic, EnforceRules);
end;
PAL.Lockexecution;
end;

while ((Now >= T['16:59:53']) and (Now <= T['16:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
Queue.AddFile('D:\Douglas\douglas_nonstop.mp3',ipTop);
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['va'].QueueBottom(smLemmingLogic, EnforceRules);
end;
PAL.Lockexecution;
end;

Code: Selecteer alles

while ((Now >= T['17:59:53']) and (Now <= T['17:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
Queue.AddFile('D:\Rudy\rudy_nonstop.mp3',ipTop);
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['love'].QueueBottom(smLemmingLogic, EnforceRules);
end;
PAL.Lockexecution;
end;

[/color]

Code: Selecteer alles

while ((Now >= T['18:59:53']) and (Now <= T['18:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
Queue.AddFile('D:\Douglas\douglas_nonstop.mp3',ipTop);
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['love'].QueueBottom(smLemmingLogic, EnforceRules);
end;
PAL.Lockexecution;
end;

[/color]

Code: Selecteer alles

while ((Now >= T['19:59:53']) and (Now <= T['19:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
PAL.Lockexecution;
end;

while ((Now >= T['20:59:53']) and (Now <= T['20:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
PAL.Lockexecution;
end;

while ((Now >= T['21:59:53']) and (Now <= T['21:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
PAL.Lockexecution;
end;

while ((Now >= T['22:59:53']) and (Now <= T['22:59:57'])) do
begin

Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
PAL.Lockexecution;
end;

// LET OP...HIERONDER STAAT DE NON-STOP DIE NORMAAL IN JE CLOCKWHEEL STAAT..ZELF EVEN AANPASSEN DUS !!
// DIT BETEKENT DAT JE DE INHOUD VAN JE CLOCKWHEEL HIER MOET INVULLEN EN..
// DAT JE DE CLOKWHEEL MOET LEEGHALEN


while (queue.count <3) do
begin
PAL.UnlockExecution;
Cat['new mp3'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['advertisements (All)'].QueueBottom(smRandom, NoRules);
Cat['retrohouse'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['collecties'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['Nederlands'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['collecties'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['house'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['club'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['artist'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['advertisements (All)'].QueueBottom(smRandom, NoRules);
Cat['va'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['summer dance'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['trance'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['advertisements (All)'].QueueBottom(smRandom, NoRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['new mp3'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['club'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['foute muziek'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['collecties'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['dance'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Nederlands'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['retrohouse'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['advertisements (All)'].QueueBottom(smRandom, NoRules);
Cat['summer dance'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['trance'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['collecties'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['advertisements (All)'].QueueBottom(smRandom, NoRules);
Cat['club'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['dance'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['advertisements (All)'].QueueBottom(smRandom, NoRules);
Cat['va'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Nederlands'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['summer dance'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
PAL.lockExecution;
END;
PAL.UnlockExecution;

wat moet draaien heb ik in het rood gezet.
EN ik zie ook dat hij geen jingles meer draait en geen advertise... is daar ook een oplossing voor ???
EN dat script heb ik volledig in de PAL staan

Bedankt kees voor de support

netmeet · Ongelezen bericht door **netmeet** » 11 jul 2008, 13:44

Sam was ook uitgevallen...
IEts van een probleem met de playlist...
Dus denk dat er daar een probs inzit in dat script...

Bedankt kees

Ongelezen bericht door **Kees** » 11 jul 2008, 13:55

Vreemd..ik heb het script hier uitgetest en werkte gewoon.
Heb je nog een script draaien dat mogelijk conflicten veroorzaakt ?
En voor Cootje81...
Het wijzigen van bepaalde items zul je zelf moeten doen anders kan ik elke dag wel scripts van gebruikers gaan wijzigen.
Het script is een groot voorbeeld dus kijk goed naar de andere uren hoe het in elkaar steekt.
Daar leer je het beste van.
Deze SAM gek is ook zo begonnen.
Veel lezen en fouten maken om het daarna wel goed te doen.

netmeet · Ongelezen bericht door **netmeet** » 11 jul 2008, 14:00

Beste Kees...
Nee anders geen meer lopen...

Dit is wat er nu aan het lopen is op de radio...

Maar start geen programma...

Heb ze in het rood gezet wat er echt moet starten..

Bedankt man

netmeet · Ongelezen bericht door **netmeet** » 11 jul 2008, 14:15

Kees ik heb ze nu zo staan.

Dus om 17 Uur moet rudy starten met NONSTOP
dan van 18 Uur moet douglas starten...

while ((Now >= T['16:59:53']) and (Now <= T['16:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
Queue.AddFile('D:\Rudy\rudy_nonstop.mp3',ipTop);
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['va'].QueueBottom(smLemmingLogic, EnforceRules);
end;
PAL.Lockexecution;
end;

while ((Now >= T['17:59:53']) and (Now <= T['17:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
Queue.AddFile('D:\Douglas\douglas_nonstop.mp3',ipTop);
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['love'].QueueBottom(smLemmingLogic, EnforceRules);
end;
PAL.Lockexecution;
end;

is dat niet het probleem die er in staat

Cat['love'].QueueBottom(smLemmingLogic, EnforceRules);

Ik zie waar hij nonstop moet draaien
dat er dus ook staat waar hij een map kan kiezen...

Cat['love'].QueueBottom(smLemmingLogic, EnforceRules);

Hier zet ik nog eens het script...

En kunnen daar ook jingles ingedraaid worden alsook advertise ????

Ik zie nu met zijn Cat dat hij pakt dat hij niks meer draait van jingles en advertise.

Hier nog eens het script die nu aan het draaien is op de radio.

PAL.Loop:=True;
PAL.LockExecution;

while ((Now >= T['23:59:53']) and (Now <= T['23:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
PAL.Lockexecution;
end;

while ((Now >= T['00:59:53']) and (Now <= T['00:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
PAL.Lockexecution;
end;

while ((Now >= T['01:59:53']) and (Now <= T['01:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
PAL.Lockexecution;
end;

while ((Now >= T['02:59:53']) and (Now <= T['02:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
PAL.Lockexecution;
end;

while ((Now >= T['03:59:53']) and (Now <= T['03:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
PAL.Lockexecution;
end;

while ((Now >= T['04:59:53']) and (Now <= T['04:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
PAL.Lockexecution;
end;

while ((Now >= T['05:59:53']) and (Now <= T['05:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
PAL.Lockexecution;
end;

while ((Now >= T['06:59:53']) and (Now <= T['06:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
PAL.Lockexecution;
end;

while ((Now >= T['07:59:53']) and (Now <= T['07:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.Lockexecution;
end;

while ((Now >= T['08:59:53']) and (Now <= T['08:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
PAL.Lockexecution;
end;

while ((Now >= T['09:59:53']) and (Now <= T['09:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
PAL.Lockexecution;
end;

while ((Now >= T['10:59:53']) and (Now <= T['10:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
PAL.Lockexecution;
end;

while ((Now >= T['11:59:53']) and (Now <= T['11:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['new mp3'].QueueBottom(smLemmingLogic, EnforceRules);
end;
PAL.Lockexecution;
end;

while ((Now >= T['12:59:53']) and (Now <= T['12:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
Queue.AddFile('D:\Rudy\rudy_nonstop.mp3',ipTop);
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['love'].QueueBottom(smLemmingLogic, EnforceRules);
end;
PAL.Lockexecution;
end;

while ((Now >= T['13:59:53']) and (Now <= T['13:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['R&B'].QueueBottom(smLemmingLogic, EnforceRules);
end;
PAL.Lockexecution;
end;

while ((Now >= T['14:59:53']) and (Now <= T['14:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['techno'].QueueBottom(smLemmingLogic, EnforceRules);
end;
PAL.Lockexecution;
end;

while ((Now >= T['15:59:53']) and (Now <= T['15:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['va'].QueueBottom(smLemmingLogic, EnforceRules);
end;
PAL.Lockexecution;
end;

while ((Now >= T['16:59:53']) and (Now <= T['16:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
Queue.AddFile('D:\Rudy\rudy_nonstop.mp3',ipTop);
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['va'].QueueBottom(smLemmingLogic, EnforceRules);
end;
PAL.Lockexecution;
end;

while ((Now >= T['17:59:53']) and (Now <= T['17:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
Queue.AddFile('D:\Douglas\douglas_nonstop.mp3',ipTop);
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['love'].QueueBottom(smLemmingLogic, EnforceRules);
end;
PAL.Lockexecution;
end;

while ((Now >= T['18:59:53']) and (Now <= T['18:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
PAL.Lockexecution;
end;

while ((Now >= T['19:59:53']) and (Now <= T['19:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
PAL.Lockexecution;
end;

while ((Now >= T['20:59:53']) and (Now <= T['20:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
PAL.Lockexecution;
end;

while ((Now >= T['21:59:53']) and (Now <= T['21:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
PAL.Lockexecution;
end;

while ((Now >= T['22:59:53']) and (Now <= T['22:59:57'])) do
begin

Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
PAL.Lockexecution;
end;

// LET OP...HIERONDER STAAT DE NON-STOP DIE NORMAAL IN JE CLOCKWHEEL STAAT..ZELF EVEN AANPASSEN DUS !!
// DIT BETEKENT DAT JE DE INHOUD VAN JE CLOCKWHEEL HIER MOET INVULLEN EN..
// DAT JE DE CLOKWHEEL MOET LEEGHALEN

while (queue.count <3) do
begin
PAL.UnlockExecution;
Cat['new mp3'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['advertisements (All)'].QueueBottom(smRandom, NoRules);
Cat['retrohouse'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['collecties'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['Nederlands'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['collecties'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['house'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['club'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['artist'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['advertisements (All)'].QueueBottom(smRandom, NoRules);
Cat['va'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['summer dance'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['trance'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['advertisements (All)'].QueueBottom(smRandom, NoRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['new mp3'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['club'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['foute muziek'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['collecties'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['dance'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Nederlands'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['retrohouse'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['advertisements (All)'].QueueBottom(smRandom, NoRules);
Cat['summer dance'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['trance'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['collecties'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['advertisements (All)'].QueueBottom(smRandom, NoRules);
Cat['club'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['dance'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['advertisements (All)'].QueueBottom(smRandom, NoRules);
Cat['va'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Nederlands'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['summer dance'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
PAL.lockExecution;
END;
PAL.UnlockExecution;

netmeet · Ongelezen bericht door **netmeet** » 11 jul 2008, 15:29

Het uur tussen 15 - 16 uur klopt niet met de dir die er staat...
Zie nu nederlands tussen staan ook... Zag eerst op het begin dat het er goed uitzag, maar blijkbaar niet.
Daarnet was ik te radp daarhij aan het uur alles klaar zette.. Maar klopt blijkbaar niet...
Daarom was men eerste post weg.

Greets

Ongelezen bericht door **Kees** » 11 jul 2008, 15:41

Het script staan nu te draaien hier dus ik wacht even tot 4 uur en kijk wat hij doet.

netmeet · Ongelezen bericht door **netmeet** » 11 jul 2008, 15:45

Beste Kees

Ok heel erg bedankt alvast.

En ik hoop dat het lukt voor die programma's die van 12 uur was een test..
die mag er eigenlijk uit.
En zou dat lukken voor jingles en advertise tussen die uuren te steken waar er een dir staat...
Dan heb ik weer alles...
En ik meen het man... zet een donatie online op je site...
Ge doet werk genoeg voor ons...
Dus wil een donatie doen voor je

Ongelezen bericht door **Kees** » 11 jul 2008, 16:18

Ik heb het script met succes draaien hier dus vraag me niet waar het mis gaat.
Eigenlijk is dit een copie van een ander script wat bij een lokale omroep draait maar daar is hij intussen 20 x zo groot.
Dus wist ik gewoon zeker dat het moest werken.
Wat je kan proberen is het script eerst te laten draaien zonder al die extra's er in.
Kijk dan eens of hij de queue bij vult als er minder dan 3 platen in staan.

netmeet · Ongelezen bericht door **netmeet** » 11 jul 2008, 16:22

Ja ja ok das al goed.
Alleen dat die nonstops niet draaien...
Heb ook gezien dat er daar een dir bijstaat... klopt dat dan ook ???

while ((Now >= T['16:59:53']) and (Now <= T['16:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
Queue.AddFile('D:\Rudy\rudy_nonstop.mp3',ipTop);
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['va'].QueueBottom(smLemmingLogic, EnforceRules);
end;
PAL.Lockexecution;
end;

netmeet · Ongelezen bericht door **netmeet** » 11 jul 2008, 17:03

Hey kees.

Ik heb nog een probleem gevonden..

Nu bij de nonstop na hij eerst het andere uur :-s :-s:-s

while ((Now >= T['16:59:53']) and (Now <= T['16:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
Queue.AddFile('D:\Rudy\rudy_nonstop.mp3',ipTop);
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['va'].QueueBottom(smLemmingLogic, EnforceRules);
end;
PAL.Lockexecution;
end;

while ((Now >= T['17:59:53']) and (Now <= T['17:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
Queue.AddFile('D:\Douglas\douglas_nonstop.mp3',ipTop);
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['love'].QueueBottom(smLemmingLogic, EnforceRules);
end;
PAL.Lockexecution;
end;

Hij na eerst Douglas... heb ik vlug moeten veranderen

Ongelezen bericht door **Kees** » 11 jul 2008, 18:03

netmeet schreef:Ja ja ok das al goed.
Alleen dat die nonstops niet draaien...
Heb ook gezien dat er daar een dir bijstaat... klopt dat dan ook ???

while ((Now >= T['16:59:53']) and (Now <= T['16:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('C:\scripts\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.Clear;
Queue.AddFile('D:\Rudy\rudy_nonstop.mp3',ipTop);
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['va'].QueueBottom(smLemmingLogic, EnforceRules);
end;
PAL.Lockexecution;
end;

Waar zie jij die dir staan ?
Ik zie hem nergens !

netmeet · Ongelezen bericht door **netmeet** » 11 jul 2008, 18:08

Heb die tekst in het rood gezet.. maar is gelijk goed nu...

Kees heb je soms een script die ook kan omschakelen op zaterdag en zondag ???

Op zaterdag is het dance day
op zondag Easy day

Waar ik 1 dir kan gebruiken met jingles

Thx

Ongelezen bericht door **Kees** » 11 jul 2008, 18:14

Lijkt me het niet verstandinger dat je eerst deze onder de knie krijgt voordat je je gaat storten op een script wat 7 x zo groot is.

netmeet · Ongelezen bericht door **netmeet** » 11 jul 2008, 18:32

Wel miss wel kees...

Maar laat hem maar eens komen...

Zo zal ik het dan ook leren...
Dan heb ik alles volledig.... dan drinken we ereen op

Ongelezen bericht door **Kees** » 11 jul 2008, 18:52

Deze komt uit mijn archief.
Dus als je het al aandurft om hem aan te passen, ga je gang.

voorbeeld.PAL

BroadcasterForum Nederland

PAL script een playlist laten lopen op een uur

Re: PAL script een playlist laten lopen op een uur

Re: PAL script een playlist laten lopen op een uur

Re: PAL script een playlist laten lopen op een uur

Re: PAL script een playlist laten lopen op een uur

Re: PAL script een playlist laten lopen op een uur

Re: PAL script een playlist laten lopen op een uur

Re: PAL script een playlist laten lopen op een uur

Re: PAL script een playlist laten lopen op een uur

Re: PAL script een playlist laten lopen op een uur

Re: PAL script een playlist laten lopen op een uur

Re: PAL script een playlist laten lopen op een uur

Re: PAL script een playlist laten lopen op een uur

Re: PAL script een playlist laten lopen op een uur

Re: PAL script een playlist laten lopen op een uur

Re: PAL script een playlist laten lopen op een uur

Re: PAL script een playlist laten lopen op een uur

Re: PAL script een playlist laten lopen op een uur

Re: PAL script een playlist laten lopen op een uur

Re: PAL script een playlist laten lopen op een uur

Re: PAL script een playlist laten lopen op een uur