Ik heb van dit prachtige forum een script geleend en zelf aangepast. Ik wilde op dinsdag (vandaag dus) tussen half 12 en half 1 een uurtje alleen maar liedjes uit een specifieke map hebben.
Probleem is: ik heb het PAL script ingeladen en 'Automatically Start Script' aangevinkt, maar het script wilde toch niet automatisch laden. Ik heb na een paar minuten het script maar handmatig gestart. Enig idee wat ik fout heb gedaan?
Dit is wat ik als script heb ingeladen:
Code: Selecteer alles
PAL.Loop:=True;
PAL.LockExecution;
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
var Dinsdag : Boolean;
var DDays : Boolean;
var Begintijd : string = '11:30:00'; // Begintijd
var Eindtijd : string = '12:29:59'; // Eindtijd
var QueueTimeUur : Integer = 1*(60*60*1200); //1=1uur 2=2uur 3=3uur om X uur muziek te vullen :)
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
// Enkele dag, De Dinsdag
Dinsdag := (DayOfWeek(Now) = Tuesday);
//Hieronder kan je dagen combineren :)
//------------------------------------------------------------------------------
// Alle D-dagen, Dinsdag
DDays := (Dinsdag);
//------------------------------------------------------------------------------
//+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-
while (DDays) and ((Now >= T[Begintijd]) and (Now <= T[Eindtijd])) do
begin
Queue.Clear;
While Queue.Duration < QueueTimeUur do
Begin
Cat['Eurovision2012'].QueueBottom(smLRP, EnforceRules);
Cat['Eurovision2012'].QueueBottom(smLRP, EnforceRules);
end;
ActivePlayer.FadeTonext;
PAL.WaitForTime(T[Eindtijd]);
ActivePlayer.FadeTonext;
end;
// Onderstaand regel altijd als laatste houden.
PAL.UnLockExecution;
Alvast bedankt voor jullie hulp!