Diverse PAL-scripts!

[Wout]

Heb door mijn computer even de bezem door gehaald en kwam diverse PAL`s tegen.
Vandaar dat ik ze heb ingepakt .
Sommige zijn bekend andere zijn onbekend, sommige werken en andere weer niet.
Maar om ze zo maar weg te gooien vond ik weer zonde, misschien dat andere inspiratie ervan door krijgen.

[qradio]

Dank je wel Wout. [smilie=good2.gif]

[Wout]

Nog eentje om het af te leren.

Code: Selecteer alles

PAL.loop := True ;
    
    // array voor categorie-naam
    var C : Array of string = ['O_FLAC', 'HQ_WMA', 'FLAC', 'FLAC', 'HQ_WMA'];
    var temp, max : integer;

    // aantal categorie-namen tellen in de array
    max := C.length ;

    While Queue.Count <= 6 do
    begin
        Cat[C[temp]].QueueBottom(smRandom, EnforceRules);
        temp := temp + 1 ;
        if (temp >= max) then temp := 0 ;
    end; 

[Wout]

Een automatisch seizoen-PAL.
Geeft aan in welke seizoen we zitten.

Code: Selecteer alles

PAL.Loop := True ;

// function wordt pas aangesproken/werken als men het aanvraagt d.m.v. seizoen;
function seizoen :string ;
begin
    // variabele jaar, maand, dag als getal
    var jaar, maand, dag : Integer ;
    // de datum wordt ontleed van mm-dd-yy naar losse getallen
    decodedate (date, jaar, maand, dag) ;

    // als de dag & maand een match geeft dan writeln naar juiste seizoen
    if ((maand = 12) and (dag >= 21)) or (maand = 1) or (maand = 2) or ((maand = 3) and (dag <= 20)) then Result := 'winter'
    else if ((maand = 3) and (dag >= 21)) or (maand = 4) or (maand = 5) or ((maand = 6) and (dag <= 20)) then Result := 'lente'
    else if ((maand = 6) and (dag >= 21)) or (maand = 7) or (maand = 8) or ((maand = 9) and (dag <= 20)) then Result := 'zomer'
    else if ((maand = 9) and (dag >= 21)) or (maand = 10) or (maand = 11) or ((maand = 12) and (dag <= 20)) then Result := 'herfst'
    else Result := 'een fout die nooit zichtbaar kan worden!' ;
end ;

// onderstaand gaat in de fuction zoeken naar de juiste seizoen.
WriteLn(seizoen) ; 

[Qtronix]

misschien zit er iets tussen waarmee ik erachter kom hoe ik een tijd zou moeten instellen in het jingle script.


thnx ervoor iig

[Wout]

Kleine PAL gemaakt die feat. & [] verwijderd uit artiest & titel.

Let op! Is voor de gevorderde PAL gebruiker.

Code: Selecteer alles

var temp, ends, start, max : integer ;
var C : Array of string = [' [', ' (', ',', ' feat.', ' &'] ;

max := C.length ;

function cleanup(a :string) : string ;
begin
    a := lowercase(a) ;
    temp := 0 ;
    repeat
        Ends := Pos(C[temp], a) ;
        Delete(a, Ends, 100) ;
        temp := temp + 1 ;
    until temp >= max ;
    //a :=  URLencode(a) ;
    Result := a ;
end ;

WriteLn(cleanup('ABBA & friends'));
WriteLn(cleanup('Summer Night City [radio edit]')); 

[valkenier]

bedankt ervoor

[Wout]

Leuk scriptje gemaakt,
dat automatisch kijkt naar de dag van vandaag (b.v. vrijdag) en in de SQL gaat zoeken naar een nummer met in de titel vrijdag of friday in het.

Code: Selecteer alles

{ /*
Een dag-checker :)
voorbeeld:
    vandaag is het zondag, dan zoekt de script naar liedje met de woorden zondag & sunday
    is het vrijdag, dan zoekt de script naar liedje met de woorden vrijdag & Friday etc..
    
Tijden mag je zelf invullen ;) */
}
PAL.Loop := False ;

var Q : TDataSet ;
var A : Array of string =[
    'pasen & pinksteren op 1 dag',
    'zondag|sunday',
    'maandag|monday',
    'dinsdag|tuesday',
    'woensdag|wednesday',
    'donderdag|thursday',
    'vrijdag|friday',
    'zaterdag|saturday'
];
var dag : string = A[dayofweek(now)] ;

Q := Query('SELECT filename FROM songlist WHERE title REGEXP :dag GROUP BY artist ORDER BY rand() LIMIT 1',[dag],True) ;
if not Q.IsEmpty then
    Queue.Addfile(+Q['filename'], IpTop)
else
    WriteLn('geen '+dag+' beschikbaar in SQL') ;
// broadcasterforum.nl 26/12/2013          

Wil je dat het op meer woorden gaat zoeken dan een | achter het laatste woord.