Temperatuur PAL! (weer-PAL)

Voor vragen over Playlist Automation Language.
Gebruikersavatar
Wout
Moderator
Berichten: 3332
Lid geworden op: 03 dec 2007, 14:17
Answers: 1
SAM-versie: SAM 2019.3
Database: MySQL 8.0
Windows: Windows 10
Locatie: Bergen op Zoom
Contacteer:

Temperatuur PAL! (weer-PAL)

Ongelezen bericht door Wout »

Alweer een PAL, inderdaad de weer-PAL. :D

Wat doet deze PAL?
-Deze PAL regelt in de broeierige zomer-maanden of in de ijzige wintermaanden de muziek.
Als in de zomer de temperatuur boven de 25 graden uitkomt dan speelt hij een liedje af uit de map zomer.
En in de winter als de temperatuur onder de 5 graden uitkomt dan een liedje uit de map winter.
Dat doet het elke half uur van 7 uur `s ochtends tot 10 uur `s avonds.

Wat heb ik nodig ervoor?
-Onderstaande PAL en 1 map zomer met zomer-hits en 1 map winter met winter-hits.

Nog problemen?
-PAL werkt nu, het kan zijn dat ik in de toekomst nog uitbreid met regen/mist etc..
Probeer niet de URL te forceren en ook niet om de 5 minuten te laten refreshen.
Daarmee overbelast je me hoster ermee en kan het zijn dat andere er problemen mee ondervinden.

Voor de rest veel plezier ermee.

Code: Selecteer alles

PAL.Loop := True ;

    while ((Now >= T['07:00:00']) and (Now <= T['22:00:00'])) do
    begin
        var S : String ;
        var Song : TSongInfo ;
        Song := TSongInfo.Create ;

        // Hier haalt ie de temperatuur mee op
        S := WebToStr( 'http://woutfm.nl/wout/weer2.php' ) ;

        // Hier laat ie bij output zien de temperatuur
        WriteLn(s) ;    
        
        // artiest wordt aantal graden, het was niet anders ;)    
        Song['artist'] := S ;

        // als het kouder is dan 5 graden dan de map winter
        if  Song['artist'] <= 5 then
            Begin
                Cat['winter'].QueueTop(smLRP, EnforceRules) ;
                WriteLn('Brrr weer') ;
            End

        // als het warmer wordt dan 25 graden dan map zomer
        else if  Song['artist'] >= 25 then
            Begin
                Cat['zomer'].QueueTop(smLRP, NoRules) ;
                WriteLn('blote billen weer :)') ;
            End    ;
        
        // geheugen schoonmaken
        Song.Free ;    
        
        // en hier wacht ie steeds een half uurtje
        PAL.WaitForTime(T['NEXT30']) ;
    end;
// Wout Franken, Broadcasterforum.nl, 3 juli 2011      
Afbeelding
Gebruikersavatar
drOhimself
Moderator
Berichten: 2941
Lid geworden op: 27 mar 2010, 11:44
SAM-versie: SAM 2014.7
Database: MySQL 5.0
Windows: 2000

Re: Temperatuur PAL! (weer-PAL)

Ongelezen bericht door drOhimself »

uuuhhhh Wout, regelt deze PAL ook of het ZOMERS weer wordt ?
:lol: :-D [smilie=yahoo.gif]
Groedjez,
drO
Gebruikersavatar
qradio
****
Berichten: 99
Lid geworden op: 18 dec 2009, 21:07
SAM-versie: SAM 2013.6
Database: MySQL 5.5
Windows: 8.1

Re: Temperatuur PAL! (weer-PAL)

Ongelezen bericht door qradio »

Ik vind dit toch wel grappig hoor. Zodra ik tijd heb ga ik hem inladen (y)
Gebruikersavatar
hitradioliberty
****
Berichten: 94
Lid geworden op: 21 apr 2010, 20:30
SAM-versie: SAM 2014.5
Database: MySQL 5.4
Windows: 7 64-bits

Re: Temperatuur PAL! (weer-PAL)

Ongelezen bericht door hitradioliberty »

Hallo Woud,

Een heel interessant PAL script, ga hem ook deze week erin zetten.
Ik ben nu nog in het buitenland op vakantie.
Heb je ook voor ons het weer2.php script?


Groeten Ron
Gebruikersavatar
qradio
****
Berichten: 99
Lid geworden op: 18 dec 2009, 21:07
SAM-versie: SAM 2013.6
Database: MySQL 5.5
Windows: 8.1

Re: Temperatuur PAL! (weer-PAL)

Ongelezen bericht door qradio »

Werkt prima (y) Helaas komt de temperatuur de laatste tijd niet boven de 25 graden. Kan je daar ook een PAL voor schrijven [smilie=beach.gif] :) Ik heb de temperatuur dus als test enige tijd wat lager ingesteld en dat gaat prima. Uitbreiding op deze PAL is altijd welkom ;)
Gebruikersavatar
hitradioliberty
****
Berichten: 94
Lid geworden op: 21 apr 2010, 20:30
SAM-versie: SAM 2014.5
Database: MySQL 5.4
Windows: 7 64-bits

Re: Temperatuur PAL! (weer-PAL)

Ongelezen bericht door hitradioliberty »

Wout, werkte prima en vooral afgelopen weekend, we wachten af op het komend weekend want dan gaat de temperatuur weer tijdelijk omhoog.
Gebruikersavatar
Robert
****
Berichten: 92
Lid geworden op: 19 dec 2008, 11:29
SAM-versie: SAM 2014.5
Database: MySQL 5.0
Windows: 7 64-bits
Locatie: Loon op Zand

Re: Temperatuur PAL! (weer-PAL)

Ongelezen bericht door Robert »

Hé Wout,

Weer een mooi script van je. Kan je het script "weer2.php" ook online zetten ?
In mijn omgeving zit WeerstationKaatsheuvel.nl en daar mag ik de temperatuur vandaan halen.

Alvast bedankt,
Robert
Gebruikersavatar
Wout
Moderator
Berichten: 3332
Lid geworden op: 03 dec 2007, 14:17
Answers: 1
SAM-versie: SAM 2019.3
Database: MySQL 8.0
Windows: Windows 10
Locatie: Bergen op Zoom
Contacteer:

Re: Temperatuur PAL! (weer-PAL)

Ongelezen bericht door Wout »

Robert schreef:Kan je het script "weer2.php" ook online zetten ?
Heb het anders gedaan ook om bandbreedte te besparen op mijn site.
kan je vanaf heden via google je weer op laten zoeken.
Verander bergen%20op%20zoom naar jouw gewenste woonplaats.

Code: Selecteer alles

PAL.Loop := True ;

    var S : String ;
    var starts, ends : Integer;
    var Song : TSongInfo ;
    Song := TSongInfo.Create ;

    // Hier haalt ie de temperatuur mee op
    S := WebToStr( 'http://www.google.com/ig/api?weather=bergen%20op%20zoom' ) ;
    PAL.WaitForTime('+00:00:05');

    starts := Pos('<temp_c data',S);
        
    if starts > 0 then
        Begin
            Delete(S, 1, starts + 13);
            ends := Pos('"/>', S);
            if ends > 0 then
                Begin
                    Delete(S, ends, 1000);
                End;
        End;

    // Hier laat ie bij output zien de temperatuur
    WriteLn(s) ;

    // artiest wordt aantal graden, het was niet anders ;)
    Song['artist'] := S ;

    // als het kouder is dan 5 graden dan de map winter
    if  Song['artist'] <= 5 then
        Begin
            Cat['winter'].QueueTop(smLRP, EnforceRules) ;
            WriteLn('Brrr weer') ;
        End

    // als het warmer wordt dan 25 graden dan map zomer
    else if  Song['artist'] >= 25 then
        Begin
            Cat['zomer'].QueueTop(smLRP, NoRules) ;
            WriteLn('blote billen weer :)') ;
        End ;

    // geheugen schoonmaken
    Song.Free ;

    // en hier wacht ie steeds een half uurtje
    PAL.WaitForTime(T['NEXT30']) ;

// Wout Franken, Broadcasterforum.nl, 3 juli 2011
// Wout Franken & inspiratie dankzij Evertje , Broadcasterforum.nl, 2 Februari 2012   
Afbeelding
Gebruikersavatar
hitradioliberty
****
Berichten: 94
Lid geworden op: 21 apr 2010, 20:30
SAM-versie: SAM 2014.5
Database: MySQL 5.4
Windows: 7 64-bits

Re: Temperatuur PAL! (weer-PAL)

Ongelezen bericht door hitradioliberty »

Wout bedankt, mooi script, ik heb deze meteen bij mij aangepast.
Scheelt voor jou weer bandbreedte.

Bedankt voor het delen van dit script.
Gebruikersavatar
Wout
Moderator
Berichten: 3332
Lid geworden op: 03 dec 2007, 14:17
Answers: 1
SAM-versie: SAM 2019.3
Database: MySQL 8.0
Windows: Windows 10
Locatie: Bergen op Zoom
Contacteer:

Re: Temperatuur PAL! (weer-PAL)

Ongelezen bericht door Wout »

Weer een kleine aanpassing gemaakt.
Nu hoef je geen extra mappen/categorieën te maken.

Hij kijkt nu naar de titel van een plaat en plaats het in je queue.

Het is iets makkelijker gemaakt met een config erin.
In de config kan je alles naar wens veranderen.

Maar let op!
woonplaats := 'bergen%20op%20zoom' ;
De spatie moeten worden veranderd in %20

Dan kan je de juiste temperatuur instellen waarbij het moet activeren.
winter_temp := '5' ;
Als het kouder wordt dan 5 graden dan krijg je een winter-plaatje
En bij de zomer is het net andersom.
Probeer niet de getallen van zomer & winter gelijk of te overlappen.

De zoekwoorden waarbij het zoekt in de titel`s van de muziek.
winter_woord_1 := '%winter%' ;

Hij zoekt alle nummers op met het woord winter erin.
de % is dat hij de hele titel kan zoeken, anders zoekt hij alleen met een nummer met 1 woord, winter.
Maar Winter In America willen we ook horen, daarom %

En het mag geen nummer pakken die al binnen 3 uur is geweest.
uur := '3' ;

Code: Selecteer alles

PAL.Loop := True ;

    var S, woonplaats, uur, winter_woord_1, winter_woord_2, winter_woord_3, zomer_woord_1, zomer_woord_2, zomer_woord_3, winter_temp, zomer_temp  : String ;
    var starts, ends : Integer;
    var Song : TSongInfo ;
    var Q : TDataSet;
    Song := TSongInfo.Create ;
    
    //*******CONFIG*******
    //********************
    
    woonplaats := 'bergen%20op%20zoom' ;     //spatie = %20
    
    winter_temp := '5' ;
    winter_woord_1 := '%winter%' ;
    winter_woord_2 := 'ice%' ;
    winter_woord_3 := '%cold%' ;
    
    zomer_temp := '25' ;
    zomer_woord_1 := '%zomer%' ;
    zomer_woord_2 := '%summer%' ;
    zomer_woord_3 := '%hot%' ;    
    
    uur := '3' ;   // alleen platen pakken die al 3 uur niet zijn geweest
    
    //********************
    //*****END*CONFIG*****

    // Hier haalt ie de temperatuur mee op
    S := WebToStr( 'http://www.google.com/ig/api?weather='+woonplaats ) ;
    PAL.WaitForTime('+00:00:05');

    starts := Pos('<temp_c data',S);
        
    if starts > 0 then
        Begin
            Delete(S, 1, starts + 13);
            ends := Pos('"/>', S);
            if ends > 0 then
                Begin
                    Delete(S, ends, 1000);
                End;
        End;

    // Hier laat ie bij output zien de temperatuur
    WriteLn(s) ;

    // artiest wordt aantal graden, het was niet anders ;)
    Song['artist'] := S ;

    // als het kouder is dan x graden dan de map winter
    if  Song['artist'] <= winter_temp then
        Begin
            WriteLn('Brrr weer') ;
            Q := Query('SELECT * FROM songlist where date_played <= DATE_SUB( NOW( ), INTERVAL :uur HOUR ) and  title like :1 or title like :2 or title like :3 LIMIT 1',[uur, winter_woord_1, winter_woord_2, winter_woord_3],False);
            Q.First;
            while not Q.EOF do
                begin
                    Queue.Addfile(Q['filename'],IpTop);
                    Q.Next;
                end;
            Q.Free;             
        End

    // als het warmer wordt dan x graden dan map zomer
    else if  Song['artist'] >= zomer_temp then
        Begin
            WriteLn('blote billen weer :)') ;        
            Q := Query('SELECT * FROM songlist where date_played <= DATE_SUB( NOW( ), INTERVAL :uur HOUR ) and  title like :1 or title like :2 or title like :3 LIMIT 1',[uur, zomer_woord_1, zomer_woord_2, zomer_woord_3],False);
            Q.First;
            while not Q.EOF do
                begin
                    Queue.Addfile(Q['filename'],IpTop);
                    Q.Next;
                end;
            Q.Free;                 
        End ;

    // geheugen schoonmaken
    Song.Free ;

    // en hier wacht ie steeds een half uurtje
    PAL.WaitForTime(T['NEXT30']) ;

// Wout Franken & inspiratie dankzij Evertje , Broadcasterforum.nl
// 3 juli 2011, 2 Februari 2012, 4 Februari 2012
 
Afbeelding
Gebruikersavatar
qradio
****
Berichten: 99
Lid geworden op: 18 dec 2009, 21:07
SAM-versie: SAM 2013.6
Database: MySQL 5.5
Windows: 8.1

Re: Temperatuur PAL! (weer-PAL)

Ongelezen bericht door qradio »

Die Wout he! GEWELDIG!!! [smilie=good.gif] [smilie=good.gif]
Zucht, welke zal ik nou kiezen :-D

Bedankt man [smilie=wink3.gif]
Gebruikersavatar
Gerrit
Moderator
Berichten: 882
Lid geworden op: 16 nov 2008, 00:08
SAM-versie: SAM 2018.7
Database: MySQL 5.7
Windows: Windows 10
Locatie: Veenendaal
Contacteer:

Re: Temperatuur PAL! (weer-PAL)

Ongelezen bericht door Gerrit »

Ik weet het wel, ik kies voor de laatste, die andere zijn mij teveel werk.

Gerrit.
Vroeger was ik een twijfelaar, ik ben daar nu niet meer zo zeker van.
en
Ik houd van kritiek, maar ik moet het er wel mee eens zijn.
Gebruikersavatar
RealTech
**
Berichten: 32
Lid geworden op: 02 feb 2011, 21:09
SAM-versie: 4.2.2.*
Database: MySQL 5.1
Windows: 7 32-bits
Contacteer:

Re: Temperatuur PAL! (weer-PAL)

Ongelezen bericht door RealTech »

Wout,

Script draait, maar hij pakt iedere keer hetzelfde nummer (Acda & De Munnik - Voicemail) uit mijn lijst (en ik heb er echt 50.000 instaan). Enig idee waar dit in kan zitten?
http://myradiostream.com/clubhuisradio

Smoothest Soul, Funkiest R&B and Best Dance Classics
Gebruikersavatar
Robert
****
Berichten: 92
Lid geworden op: 19 dec 2008, 11:29
SAM-versie: SAM 2014.5
Database: MySQL 5.0
Windows: 7 64-bits
Locatie: Loon op Zand

Re: Temperatuur PAL! (weer-PAL)

Ongelezen bericht door Robert »

Hé Wout,

Je hebt het weer voor elkaar...... Helaas heb ik hetzelfde probleem als bij RealTech. Het script kiest steeds hetzelfde nummer uit. Enig idee waar dat aan ligt ? Ben zelf al aan het stoeien geweest maar tot dusver zonder resultaat.

Alvast bedankt Wout !!!
Gebruikersavatar
Wout
Moderator
Berichten: 3332
Lid geworden op: 03 dec 2007, 14:17
Answers: 1
SAM-versie: SAM 2019.3
Database: MySQL 8.0
Windows: Windows 10
Locatie: Bergen op Zoom
Contacteer:

Re: Temperatuur PAL! (weer-PAL)

Ongelezen bericht door Wout »

[s]Denk dat het aan :uur lig.
Zal vanavond een update maken.

Je kan de :uur vervangen door 3 (select * blabla 3 bla bla)[/s]
gedaan
Afbeelding
Gebruikersavatar
Wout
Moderator
Berichten: 3332
Lid geworden op: 03 dec 2007, 14:17
Answers: 1
SAM-versie: SAM 2019.3
Database: MySQL 8.0
Windows: Windows 10
Locatie: Bergen op Zoom
Contacteer:

Re: Temperatuur PAL! (weer-PAL)

Ongelezen bericht door Wout »

Was vergeten wat () te plaatsen. :D

Tevens hoef je nu geen %20 gebruiken voor de spatie voor je woonplaats.
Dat mag nu weer met spatie`s.

Code: Selecteer alles

    PAL.Loop := True ;

        var S, woonplaats, uur, winter_woord_1, winter_woord_2, winter_woord_3, zomer_woord_1, zomer_woord_2, zomer_woord_3, winter_temp, zomer_temp  : String ;
        var starts, ends : Integer;
        var Song : TSongInfo ;
        var Q : TDataSet;
        Song := TSongInfo.Create ;

        //*******CONFIG*******
        //********************

        woonplaats := 'bergen op zoom' ;

        winter_temp := '5' ;
        winter_woord_1 := '%winter%' ;
        winter_woord_2 := 'ice%' ;
        winter_woord_3 := '%cold%' ;

        zomer_temp := '25' ;
        zomer_woord_1 := '%zomer%' ;
        zomer_woord_2 := '%summer%' ;
        zomer_woord_3 := '%hot%' ;

        uur := '3' ;   // alleen platen pakken die al 3 uur niet zijn geweest

        //********************
        //*****END*CONFIG*****

        // Hier haalt ie de temperatuur mee op
        S := WebToStr( 'http://www.google.com/ig/api?weather='+URLencode(woonplaats) ) ;
        PAL.WaitForTime('+00:00:05');

        starts := Pos('<temp_c data',S);

        if starts > 0 then
            Begin
                Delete(S, 1, starts + 13);
                ends := Pos('"/>', S);
                if ends > 0 then
                    Begin
                        Delete(S, ends, 1000);
                    End;
            End;

        // Hier laat ie bij output zien de temperatuur
        WriteLn(s) ;

        // artiest wordt aantal graden, het was niet anders ;)
        Song['artist'] := S ;

        // als het kouder is dan x graden dan de map winter
        if  Song['artist'] <= winter_temp then
            Begin
                WriteLn('Brrr weer') ;
                Q := Query('SELECT * FROM songlist where date_played <= DATE_SUB( NOW( ), INTERVAL :uur HOUR ) and  (title like :1 or title like :2 or title like :3) LIMIT 1',[uur, winter_woord_1, winter_woord_2, winter_woord_3],False);
                Q.First;
                while not Q.EOF do
                    begin
                        Queue.Addfile(Q['filename'],IpTop);
                        Q.Next;
                    end;
                Q.Free;
            End

        // als het warmer wordt dan x graden dan map zomer
        else if  Song['artist'] >= zomer_temp then
            Begin
                WriteLn('blote billen weer :)') ;
                Q := Query('SELECT * FROM songlist where date_played <= DATE_SUB( NOW( ), INTERVAL :uur HOUR ) and (title like :1 or title like :2 or title like :3) LIMIT 1',[uur, zomer_woord_1, zomer_woord_2, zomer_woord_3],False);
                Q.First;
                while not Q.EOF do
                    begin
                        Queue.Addfile(Q['filename'],IpTop);
                        Q.Next;
                    end;
                Q.Free;
            End ;

        // geheugen schoonmaken
        Song.Free ;

        // en hier wacht ie steeds een half uurtje
        PAL.WaitForTime(T['NEXT30']) ;

    // Wout Franken & inspiratie dankzij Evertje , Broadcasterforum.nl
    // 3 juli 2011, 2 Februari 2012, 4 Februari 2012

 
RealTech schreef: hij pakt iedere keer hetzelfde nummer (Acda & De Munnik - Voicemail) uit mijn lijst
Waarschijnlijk nu niet meer, ik heb ook nog 1 % verwijderd.
Hij reageer ook op Acda & De Munnik - Voicemail, dat is ook weer niet goed. [smilie=no.gif]
Afbeelding
Gebruikersavatar
RealTech
**
Berichten: 32
Lid geworden op: 02 feb 2011, 21:09
SAM-versie: 4.2.2.*
Database: MySQL 5.1
Windows: 7 32-bits
Contacteer:

Re: Temperatuur PAL! (weer-PAL)

Ongelezen bericht door RealTech »

Wout, heel veel dank. Hij gaat vandaag op de testbank. Eerste test ziet er goed uit (Koos Alberts - Wintertijd).

Grtz,
RealTech
http://myradiostream.com/clubhuisradio

Smoothest Soul, Funkiest R&B and Best Dance Classics
Gebruikersavatar
RealTech
**
Berichten: 32
Lid geworden op: 02 feb 2011, 21:09
SAM-versie: 4.2.2.*
Database: MySQL 5.1
Windows: 7 32-bits
Contacteer:

Re: Temperatuur PAL! (weer-PAL)

Ongelezen bericht door RealTech »

Script lijkt nu prima te werken. Heb een kleine aanpassing in de SQL selectie gemaakt omdat heel veel echte kerstnummers de genoemde woorden in de titel hebben en die wil ik momenteel niet draaien.

Voor iedereen die dit ook niet wil hierbij de aanpassing.

Code: Selecteer alles

Q := Query('SELECT * FROM songlist where date_played <= DATE_SUB( NOW( ), INTERVAL :uur HOUR ) and  (title like :1 or title like :2 or title like :3) and (genre != "Christmas") LIMIT 1',[uur, winter_woord_1, winter_woord_2, winter_woord_3],False);
Overigens is de laatste selectie die voor mij gemaakt is door dit script wel een aardige: The Baseballs - Hot 'n' Cold [smilie=yahoo.gif]
Zomer of winter.... altijd goed!
http://myradiostream.com/clubhuisradio

Smoothest Soul, Funkiest R&B and Best Dance Classics
Gebruikersavatar
Robert
****
Berichten: 92
Lid geworden op: 19 dec 2008, 11:29
SAM-versie: SAM 2014.5
Database: MySQL 5.0
Windows: 7 64-bits
Locatie: Loon op Zand

Re: Temperatuur PAL! (weer-PAL)

Ongelezen bericht door Robert »

Het werkt toppie, bedankt voor het script en ook bedankt voor de laatste aanpassing !!!
Gebruikersavatar
Eagle 1974
****
Berichten: 82
Lid geworden op: 02 okt 2011, 09:34
SAM-versie: 4.2.2.*
Database: MySQL 5.0
Windows: 7 64-bits
Locatie: Delft

Re: Temperatuur PAL! (weer-PAL)

Ongelezen bericht door Eagle 1974 »

Script werkt idd toppie
heb er enkel nog klein stukkie aantoegevoegt

Code: Selecteer alles


    PAL.Loop := True ;

        var S, woonplaats, uur, winter_woord_1, winter_woord_2, winter_woord_3, zomer_woord_1, zomer_woord_2, zomer_woord_3, winter_temp, zomer_temp  : String ;
        var starts, ends : Integer;
        var Song : TSongInfo ;
        var Q : TDataSet;
        Song := TSongInfo.Create ;

        //*******CONFIG*******
        //********************


BEGIN    //toeVeogd
  IF (Encoders[0].Status='Encoding') THEN      //toeVeogd

    Begin     //toeVeogd


 

        woonplaats := 'Delft' ;

        winter_temp := '5' ;
        winter_woord_1 := '%winter%' ;
        winter_woord_2 := 'ice%' ;
        winter_woord_3 := '%cold%' ;

        zomer_temp := '20' ;
        zomer_woord_1 := '%zomer%' ;
        zomer_woord_2 := '%summer%' ;
        zomer_woord_3 := '%hot%' ;

        uur := '3' ;   // alleen platen pakken die al 3 uur niet zijn geweest

        //********************
        //*****END*CONFIG*****

        // Hier haalt ie de temperatuur mee op
        S := WebToStr( 'http://www.google.com/ig/api?weather='+URLencode(woonplaats) ) ;
        PAL.WaitForTime('+00:00:05');

        starts := Pos('<temp_c data',S);

        if starts > 0 then
            Begin
                Delete(S, 1, starts + 13);
                ends := Pos('"/>', S);
                if ends > 0 then
                    Begin
                        Delete(S, ends, 1000);
                    End;
            End;

        // Hier laat ie bij output zien de temperatuur
        WriteLn(s) ;

        // artiest wordt aantal graden, het was niet anders ;)
        Song['artist'] := S ;

        // als het kouder is dan x graden dan de map winter
        if  Song['artist'] <= winter_temp then
            Begin
                WriteLn('Brrr weer') ;
                Q := Query('SELECT * FROM songlist where date_played <= DATE_SUB( NOW( ), INTERVAL :uur HOUR ) and  (title like :1 or title like :2 or title like :3) and (genre != "Kerst") LIMIT 1',[uur, winter_woord_1, winter_woord_2, winter_woord_3],False);
                Q.First;
                while not Q.EOF do
                    begin
                        Queue.Addfile(Q['filename'],IpTop);
                        Q.Next;
                    end;
                Q.Free;
            End

        // als het warmer wordt dan x graden dan map zomer
        else if  Song['artist'] >= zomer_temp then
            Begin
                WriteLn('blote billen weer :)') ;
                Q := Query('SELECT * FROM songlist where date_played <= DATE_SUB( NOW( ), INTERVAL :uur HOUR ) and (title like :1 or title like :2 or title like :3) LIMIT 1',[uur, zomer_woord_1, zomer_woord_2, zomer_woord_3],False);
                Q.First;
                while not Q.EOF do
                    begin
                        Queue.Addfile(Q['filename'],IpTop);
                        Q.Next;
                    end;
                Q.Free;
            End ;

        // geheugen schoonmaken
        Song.Free ;

        // en hier wacht ie steeds een half uurtje
        PAL.WaitForTime(T['NEXT30']) ;

    // Wout Franken & inspiratie dankzij Evertje , Broadcasterforum.nl
    // 3 juli 2011, 2 Februari 2012, 4 Februari 2012

    END:   //toeVeogd
END;    //toeVeogd
       
 
de regels met de tekst //toeVeogd erachter zodat hij niet werkt als je niet aan het encode bent.
zodat die niet elk half uur een nummer in je queue zet als er een live dj draait.
Plaats reactie
  • Vergelijkbare Onderwerpen
    Reacties
    Weergaves
    Laatste bericht