PAL om top 10, 20 of 30 Request uit te zenden.

[robindonderwinkel]

Is er een palscript dat automatisch op een bepaalde tijd de top 10, 20, of 30 van de meest aangevraagde platen kan afspelen?

[Wout]

Geplukt van de Wiki van Spacialaudio

Tijd sta nu om 8:00 s ochtends, kan je veranderen naar elke gewenste tijd (bv. 22:05)
De top 10 kan je veranderen, door na limit, in jouw, gewenste top te maken. (bv top8 = ORDER BY cnt DESC LIMIT 8 )

Code: Selecteer alles

PAL.Loop := True;
PAL.WaitForTime(T['08:00:00']); {Wait for 8am}
{==================================================}
var D : TDataSet;
var C : Integer;
D := Query('SELECT songlist.*, count(*) as cnt '+
              'FROM songlist,requestlist '+
              'WHERE songlist.ID = requestlist.songID '+
              '      AND requestlist.code < 700 '+
              'GROUP BY songlist.ID '+
              'ORDER BY cnt DESC LIMIT 10',[],True);
{Add requests to Queue.
We add to the top of the Queue, effectively reversing the
order of the requests - playing #10 first and #1 last}
C := 0;
D.First;
while not D.EOF do
begin
C := C + 1;
WriteLn('#'+IntToStr(C)+'. '+D['artist']+' - '+D['title']);
Queue.AddFile(D['filename'],ipTop);
D.Next;
end;
              
{==================================================}
PAL.WaitForTime(T['23:59:59']); {Wait for next day}
 

opslaan als top10.PAL

[cyberneticorganism]

Leuk speelgoed Dat is wel een idee... voor als m'n top 10 weer is gevuld dan Ik heb hem laatst ff geleegd omdat ik de database helemaal opnieuw had aangemaakt.

[dischabbo]

Hallo,

Waar en hoe moet je een top 10 aanmaken

Zal zoals gewoonlijk een noob vraag zijn

[robindonderwinkel]

Dankje:)