Temperatuur PAL! (weer-PAL)

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

Temperatuur PAL! (weer-PAL)

Ongelezen bericht door Wout » 14 aug 2011, 03:28

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 » 14 aug 2011, 10:39

uuuhhhh Wout, regelt deze PAL ook of het ZOMERS weer wordt ?
:lol: :-D [smilie=yahoo.gif]
Groedjez,
drO

qradio
****
Berichten: 98
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 » 15 aug 2011, 11:03

Ik vind dit toch wel grappig hoor. Zodra ik tijd heb ga ik hem inladen (y)

hitradioliberty
****
Berichten: 94
Lid geworden op: 21 apr 2010, 19:30
SAM-versie: SAM 2014.5
Database: MySQL 5.4
Windows: 7 64-bits

Re: Temperatuur PAL! (weer-PAL)

Ongelezen bericht door hitradioliberty » 30 aug 2011, 20:28

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

qradio
****
Berichten: 98
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 » 07 sep 2011, 19:15

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 ;)

hitradioliberty
****
Berichten: 94
Lid geworden op: 21 apr 2010, 19:30
SAM-versie: SAM 2014.5
Database: MySQL 5.4
Windows: 7 64-bits

Re: Temperatuur PAL! (weer-PAL)

Ongelezen bericht door hitradioliberty » 07 sep 2011, 19:54

Wout, werkte prima en vooral afgelopen weekend, we wachten af op het komend weekend want dan gaat de temperatuur weer tijdelijk omhoog.

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 » 13 sep 2011, 07:42

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: 3227
Lid geworden op: 03 dec 2007, 14:17
SAM-versie: SAM 2018.10
Database: MySQL 8.0
Windows: Windows 10
Locatie: Bergen op Zoom
Contacteer:

Re: Temperatuur PAL! (weer-PAL)

Ongelezen bericht door Wout » 02 feb 2012, 22:52

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

hitradioliberty
****
Berichten: 94
Lid geworden op: 21 apr 2010, 19:30
SAM-versie: SAM 2014.5
Database: MySQL 5.4
Windows: 7 64-bits

Re: Temperatuur PAL! (weer-PAL)

Ongelezen bericht door hitradioliberty » 02 feb 2012, 23:18

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: 3227
Lid geworden op: 03 dec 2007, 14:17
SAM-versie: SAM 2018.10
Database: MySQL 8.0
Windows: Windows 10
Locatie: Bergen op Zoom
Contacteer:

Re: Temperatuur PAL! (weer-PAL)

Ongelezen bericht door Wout » 04 feb 2012, 21:01

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

qradio
****
Berichten: 98
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 » 05 feb 2012, 00:38

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: 4.3.6.*
Database: MySQL 4.1
Windows: 7 32-bits
Locatie: Veenendaal
Contacteer:

Re: Temperatuur PAL! (weer-PAL)

Ongelezen bericht door Gerrit » 05 feb 2012, 21:24

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 » 07 feb 2012, 08:26

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

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 » 08 feb 2012, 10:34

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: 3227
Lid geworden op: 03 dec 2007, 14:17
SAM-versie: SAM 2018.10
Database: MySQL 8.0
Windows: Windows 10
Locatie: Bergen op Zoom
Contacteer:

Re: Temperatuur PAL! (weer-PAL)

Ongelezen bericht door Wout » 08 feb 2012, 13:05

[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: 3227
Lid geworden op: 03 dec 2007, 14:17
SAM-versie: SAM 2018.10
Database: MySQL 8.0
Windows: Windows 10
Locatie: Bergen op Zoom
Contacteer:

Re: Temperatuur PAL! (weer-PAL)

Ongelezen bericht door Wout » 08 feb 2012, 22:13

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 » 09 feb 2012, 08:23

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 » 09 feb 2012, 12:03

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

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 » 09 feb 2012, 15:36

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, 08: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 » 09 feb 2012, 21:49

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