2 uur uit dezelfde catagorie

[radioacht]

Beste Broadcaster Leden,

Even een vraagje....
Elke zondag hebben wij een carnavalsuitzendingkje;)
Dan draaien wij 2 uur apresski
dat is elke zondag van 10.00 t/m 12.00
uit de catagorie apresski

heeft iemand een PAL dat die automatisch tussen die tijd die catagorie pakt..



Groetjes
Dave
www.radioacht.nl

[Gerrit]

En waarmee draai je de rest van de week ?
ES of Clockwheel of met een weekpal ??

[Gerrit]

Probeer deze maar eens :

Code: Selecteer alles

//PAL script voor 2 uur Apreski op zondag

Code:
PAL.Loop:=True;
PAL.LockExecution;
var TodayIsMyDayE1 : Boolean;
TodayIsMyDayE1 := ((DayOfWeek(Now) = Sunday));
                              


while (TodayIsMyDayE1) and ((Now >= T['11:59:25']) and (Now <= T['11:59:42'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['12:00:00']);
Cat['apreski'].QueueBottom(smLRP, EnforceRules);
Cat['apreski'].QueueBottom(smLRP, EnforceRules);
Cat['apreski'].QueueBottom(smLRP, EnforceRules);
Cat['apreski'].QueueBottom(smLRP, EnforceRules);
Cat['apreski'].QueueBottom(smLRP, EnforceRules);
Cat['apreski'].QueueBottom(smLRP, EnforceRules);
Cat['apreski'].QueueBottom(smLRP, EnforceRules);
Cat['apreski'].QueueBottom(smLRP, EnforceRules);
Cat['apreski'].QueueBottom(smLRP, EnforceRules);
Cat['apreski'].QueueBottom(smLRP, EnforceRules);
Cat['apreski'].QueueBottom(smLRP, EnforceRules);
Cat['apreski'].QueueBottom(smLRP, EnforceRules);
Cat['apreski'].QueueBottom(smLRP, EnforceRules);
Cat['apreski'].QueueBottom(smLRP, EnforceRules);
Cat['apreski'].QueueBottom(smLRP, EnforceRules);
Cat['apreski'].QueueBottom(smLRP, EnforceRules);
Cat['apreski'].QueueBottom(smLRP, EnforceRules);
Cat['apreski'].QueueBottom(smLRP, EnforceRules);
ActivePlayer.FadeToNext;
Queue.clear;
PAL.LockExecution;
end;



while (TodayIsMyDayE1) and ((Now >= T['12:59:25']) and (Now <= T['12:59:42'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['13:00:00']);
Cat['apreski'].QueueBottom(smLRP, EnforceRules);
Cat['apreski'].QueueBottom(smLRP, EnforceRules);
Cat['apreski'].QueueBottom(smLRP, EnforceRules);
Cat['apreski'].QueueBottom(smLRP, EnforceRules);
Cat['apreski'].QueueBottom(smLRP, EnforceRules);
Cat['apreski'].QueueBottom(smLRP, EnforceRules);
Cat['apreski'].QueueBottom(smLRP, EnforceRules);
Cat['apreski'].QueueBottom(smLRP, EnforceRules);
Cat['apreski'].QueueBottom(smLRP, EnforceRules);
Cat['apreski'].QueueBottom(smLRP, EnforceRules);
Cat['apreski'].QueueBottom(smLRP, EnforceRules);
Cat['apreski'].QueueBottom(smLRP, EnforceRules);
Cat['apreski'].QueueBottom(smLRP, EnforceRules);
Cat['apreski'].QueueBottom(smLRP, EnforceRules);
Cat['apreski'].QueueBottom(smLRP, EnforceRules);
Cat['apreski'].QueueBottom(smLRP, EnforceRules);
Cat['apreski'].QueueBottom(smLRP, EnforceRules);
Cat['apreski'].QueueBottom(smLRP, EnforceRules);
Queue.clear;
ActivePlayer.FadeToNext;
PAL.LockExecution;
end;
PAL.UnLockExecution;

Ik hoop dat hij het doet, ik heb hem niet getest !

Als je even de tijden aanpast dan kun je hem op ieder ander uur testen.......

Suc6.