PAL voor weerbericht !!!

[Henk]

Ben op zoek naar een PAL script dat het volgende doet:

gedurend 6 uur elk heel uur een url in de que zetten dan volgende 6 uur elk heel uur een ander url in de que te zetten vervolgens volgende uren weer ander url in de que te zetten tot PAL weer is waar het is begonnen.
Moeilijkheid is dat PAL bij opstarten van sam ook gelijk met goede uur moet beginnen.
Wie weet raad of kan mij helpen.
Voor een url elk heel uur gebruikte ik volgende PAL:

Code: Selecteer alles

PAL.Loop := True;
PAL.WaitForTime(T['xx:59:53']);
Queue.AddURL('http://www.radiopromotions.nl/weer4a.mp3',ipTop);
ActivePlayer.FadeToNext;ActivePlayer.FadeToNext;

Alvast bedankt Henk

[Wout]

Code: Selecteer alles

PAL.Loop := True;

//00:00 t/m 06:00
while (Now >= T['00:00:01']) and (Now <= T['05:59:50'])
do
 begin
PAL.WaitForTime(T['xx:59:53']);
Queue.AddURL('http://www.radiopromotions.nl/weer4a.mp3',ipTop);
ActivePlayer.FadeToNext;
 end;

//06:00 t/m 12:00
while (Now >= T['06:00:01']) and (Now <= T['11:59:50'])
do
 begin
PAL.WaitForTime(T['xx:59:53']);
Queue.AddURL('http://www.radiopromotions.nl/weer4a.mp3',ipTop);
ActivePlayer.FadeToNext;
 end;

//12:00 t/m 18:00
while (Now >= T['12:00:01']) and (Now <= T['17:59:50'])
do
 begin
PAL.WaitForTime(T['xx:59:53']);
Queue.AddURL('http://www.radiopromotions.nl/weer4a.mp3',ipTop);
ActivePlayer.FadeToNext;
 end;

//18:00 t/m 00:00
while (Now >= T['18:00:01']) and (Now <= T['23:59:50'])
do
 begin
PAL.WaitForTime(T['xx:59:53']);
Queue.AddURL('http://www.radiopromotions.nl/weer4a.mp3',ipTop);
ActivePlayer.FadeToNext;
 end; 

[Henk]

Bedankt Milo precies wat ik zocht.

Henk