PAL scrip laten werken

[drentseboer]

Wie kan mij helpen met deze PAL.. zou graag dat die een nummer uit een aparte categorie map pakt als dat lukt met deze PAL of dat er een andere PAL voor is



PAL.Loop := True ;

// Begin het script op elk uur vanaf 5 voor het uur
PAL.WaitForTime(T['xx:54:45']) ;

// Speed some things up
PAL.LockExecution ;

// Wat variabele instellen
var RestTijd : Integer ;
var Now_minutes : String ;
var D : TDataSet ;

// Alleen de minuten van het uur
Now_minutes := FormatDateTime('n', Now) ;

// De aantal minuten afhalen van 1 uur en waar rekening is gehouden met de spelende nummer in miliseconden
RestTijd := ( (60 - Now_minutes ) * 60000) - ( Activeplayer.Duration - ActivePlayer.CurTime ) ;

// Hier zoek ie de nummer met de juiste lengte + een beetje meer
D := QUERY('SELECT ' +
'songlist.artist, songlist.filename, songlist.duration ' +
'FROM ' +
'songlist ' +
'WHERE ' +
'date_played <= DATE_SUB( NOW( ), INTERVAL 1 HOUR )' + // Alleen nummers die al 1 uur niet zijn gespeeld
'AND '+
'duration '+
'BETWEEN '+
':RestTijd '+
'AND '+
':RestTijd + 9000 ' + // Hier wat speling op de lengte van het gezochte nummer met 9 seconden
'ORDER BY RAND() ' + // Hij pakt een willekeurige nummer die voldoet aan de eisen
'LIMIT 1', [RestTijd], True ) ;

D.First ;

if not D.EOF then
begin
Queue.Addfile(+D['filename'], IpTop) ;
D.next ;
end
else
WriteLn('Geen Resultaat');

D.free ;

// Slow some things down
PAL.UnLockExecution ;