Leuke 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:

Leuke PAL!

Ongelezen bericht door Wout » 14 aug 2011, 20:41

En meer verklap ik er niet over. :-D
Alleen ik & DrO weet wat het doet.

Als je het gebruikt, maak dan een map aan c:\test
waarbij je de nu.mp3 in plaatst.

Dan in SAM maak je een nieuwe map aan genaamd nu
en plaats je de nu.mp3 in van je map c:\test.

En dan wacht je op het resultaat.
[smilie=music.gif]

Code: Selecteer alles

PAL.Loop := True ;

    var verzoek, song : TSongInfo;
    var map, almost, ready : string ;

    Song := ActivePlayer.GetSongInfo;

    if (Song['songtype'] = 'J') then
        begin
            PAL.WaitForTime('+00:00:10');
        end
    else
     Song.Free;
        Song := ActivePlayer.GetSongInfo;

        map :=  'c:\test\nu.mp3' ;
        verzoek := CAT['nu'].ChooseSong(smRandom, NoRules) ;

        almost := 'Now Playing.'+Song['artist']+'. with.'+Song['title']+'.' ;
        ready := URLEncode(almost) ;

        WebToFile(map,'http://translate.google.com/translate_tts?tl=en&q='+ready) ;

        Aux2.QueueSong(verzoek);
        Aux2.Play;

        PAL.WaitForPlayCount(1) ; 
Je hebt niet voldoende permissies om de bijlagen van dit bericht te bekijken.
Afbeelding

Gebruikersavatar
pergo
VIP
Berichten: 437
Lid geworden op: 11 mei 2009, 19:47
SAM-versie: 4.9.1.*
Database: MySQL 5.5
Windows: 7 32-bits
Locatie: kopstad
Contacteer:

Re: Leuke PAL!

Ongelezen bericht door pergo » 14 aug 2011, 20:44

ojee nou ligt zo alle op zijn kont (reet)

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: Leuke PAL!

Ongelezen bericht door drOhimself » 14 aug 2011, 20:52

Effe voor de duidelijkheid, gebruik van deze pal is voor eigen risico. :-D :-D :-D
(Brengt geen schade aan je pc / studio / gezondheid toe)
Echt een hele mooie toevoeging aan je radio.
Groedjez,
drO

Gebruikersavatar
pergo
VIP
Berichten: 437
Lid geworden op: 11 mei 2009, 19:47
SAM-versie: 4.9.1.*
Database: MySQL 5.5
Windows: 7 32-bits
Locatie: kopstad
Contacteer:

Re: Leuke PAL!

Ongelezen bericht door pergo » 14 aug 2011, 20:55

geweldig dit lol lol

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: Leuke PAL!

Ongelezen bericht door Gerrit » 14 aug 2011, 21:38

Dat klinkt grappig met een nederlandse plaat !!! lol

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
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: Leuke PAL!

Ongelezen bericht door Wout » 14 aug 2011, 22:10

Gerrit schreef:Dat klinkt grappig met een nederlandse plaat !!! lol

Code: Selecteer alles

tl=en&q
veranderen in

Code: Selecteer alles

tl=nl&q
en dan spreekt het 'goed' Nederlands.
Afbeelding

Gebruikersavatar
pergo
VIP
Berichten: 437
Lid geworden op: 11 mei 2009, 19:47
SAM-versie: 4.9.1.*
Database: MySQL 5.5
Windows: 7 32-bits
Locatie: kopstad
Contacteer:

Re: Leuke PAL!

Ongelezen bericht door pergo » 14 aug 2011, 22:16

hoor nu iets wat ik niet wil lol
whahahaha

Gebruikersavatar
pergo
VIP
Berichten: 437
Lid geworden op: 11 mei 2009, 19:47
SAM-versie: 4.9.1.*
Database: MySQL 5.5
Windows: 7 32-bits
Locatie: kopstad
Contacteer:

Re: Leuke PAL!

Ongelezen bericht door pergo » 19 aug 2011, 17:16

er zit trouwns nog een klein foutje in deze regel

Code: Selecteer alles

almost := 'Now Playing.'+Song['artist']+'. with.'+Song['title']+'.' ;
de punt achter Now playing en with graag verwijderen.

dus regel wordt zo

Code: Selecteer alles

almost := 'Now Playing'+Song['artist']+'. with'+Song['title']+'.' ;

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: Leuke PAL!

Ongelezen bericht door Wout » 19 aug 2011, 20:17

Die zaten bewust erin. ;)

Anders noemt ze alles in 1 adem,
maar nu zit er een 'soort' van pauze in.

Maar zeker goed opgemerkt van je!
Afbeelding

Gebruikersavatar
pergo
VIP
Berichten: 437
Lid geworden op: 11 mei 2009, 19:47
SAM-versie: 4.9.1.*
Database: MySQL 5.5
Windows: 7 32-bits
Locatie: kopstad
Contacteer:

Re: Leuke PAL!

Ongelezen bericht door pergo » 19 mar 2012, 22:38

ja maar van anita maakt hij anita punt en in het engels anita dot whahahahaha

dus heb er een spatie tussen gezet dan is probleem ook over. :-D

Bertjuhh66
*****
Berichten: 176
Lid geworden op: 18 jun 2011, 10:57
SAM-versie: SAM 2013.6
Database: MySQL 5.0
Windows: XP
Locatie: Stadskanaal
Contacteer:

Re: Leuke PAL!

Ongelezen bericht door Bertjuhh66 » 19 mar 2012, 23:18

En als je AUX2 nu niet gebruikt? ;-) Alle gekheid op een stokje, ik zie dat AUX2 het bestandje nu.mp3 'afspeelt', maar hoor niks noppes nada...

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: Leuke PAL!

Ongelezen bericht door Robert » 20 mar 2012, 16:41

Heb je goed gelezen en ook de CAT "nu" in sam aangemaakt ?
Anders doet hij niets :-)

Bertjuhh66
*****
Berichten: 176
Lid geworden op: 18 jun 2011, 10:57
SAM-versie: SAM 2013.6
Database: MySQL 5.0
Windows: XP
Locatie: Stadskanaal
Contacteer:

Re: Leuke PAL!

Ongelezen bericht door Bertjuhh66 » 20 mar 2012, 21:29

Yep, alles gedaan zoals het er staat...aantal keren gecheckt...ahum, gevonden..Moet je natuurlijk wel de nu.mp3 vanuit de GOEDE map erin zetten....;)

Gebruikersavatar
hopparadio
**
Berichten: 46
Lid geworden op: 28 sep 2011, 08:14
SAM-versie: 4.9.7.
Database: MariaDB
Windows: 7 32-bits
Locatie: wijchen
Contacteer:

Re: Leuke PAL!

Ongelezen bericht door hopparadio » 21 mar 2012, 15:43

leuke pal gebrekig nederlands hihihihihi
Maar ik heb een vraag
Kan ik ook het verzoekje voor laten lezen
IZou helemaal geweldig zijn als dat kon

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: Leuke PAL!

Ongelezen bericht door Eagle 1974 » 26 mar 2012, 10:21

ik heb met die pal wat zitten prutsen
en gecombineerd met een pal die de verzoek teksten enzo mee stuurd het net op
daar heb ik dit script tussen gevoegd op de plek dat hij de ingevulde teksten (naam verzoeker, tekst verzoeker) mee het internet opstuurde met de verzoek. (ik hoop dat mijn logica van denken klopt hierbij!)
Is nog niet getest

Code: Selecteer alles

PAL.Loop := True;
WriteLn('Nieuw nummer gestart');
PAL.LockExecution;
//var Song : TSongInfo;
//*************
var verzoek, song : TSongInfo;
var map, almost, ready : string ;
//*************
Song := TSongInfo.Create;
WriteLn('Controleren of het eenverzoekje is');
if ((ActivePlayer.GetSongInfo['requestID']) = 0) then WriteLn('Nummer is geen verzoekje');
if ((ActivePlayer.GetSongInfo['requestID']) > 0) then
  Begin
      WriteLn('Nummer is verzoekje');
      var reqInfo : TDataSet = Query('SELECT name, msg FROM requestlist WHERE id = ' + ActivePlayer.GetSongInfo['requestID'], [], true);
      var Requested_by : String = reqInfo['name'];
      var Dedication_Message : String = reqInfo['msg'];
      reqInfo.Free;

      If (Requested_by = '') then Requested_by := 'Anonymous';
      If (Dedication_Message = '') then Dedication_Message := 'Nothing...';

      If ((Requested_by = 'Anonymous') and (Dedication_Message = 'Nothing...')) then
         Begin
           WriteLn('Verzoekje');
           WriteLn(Requested_by);
           WriteLn(Dedication_Message);
           Song['artist'] := ActivePlayer.GetSongInfo['artist'] + ' - ' + ActivePlayer.GetSongInfo['title'];
           Song['title'] := '~Verzoekje~';
           Encoders.SongChange(Song);
         End
     else
         Begin
           WriteLn('Verzoekje met tekst');
           WriteLn(Requested_by);
           WriteLn(Dedication_Message);
           Song['artist'] := ActivePlayer.GetSongInfo['artist'] + ' - ' + ActivePlayer.GetSongInfo['title'];
           Song['title'] := 'Aangevraagd door ' + Requested_by + ' : Voor wie ?: ' + Dedication_Message + ' !';
           Encoders.SongChange(Song);
//***********
          Song := ActivePlayer.GetSongInfo;
          map :=  'g:\pal script\lol\test\nu.mp3' ;  // <- deze aanpassen naar jouw schijflocatie !!!!
          almost :=  'Aangevraagd door ' + Requested_by + ' : Voor wie ?: ' + Dedication_Message  ;
          ready := URLEncode(almost) ;
          WebToFile(map,'http://translate.google.com/translate_tts?tl=nl&q='+ready) ;
          Aux2.QueueSong(verzoek);
          Aux2.Play;
//***********
        End;
  End;

PAL.UnlockExecution;
WriteLn('Klaar');

Song.Free;

WriteLn('Wachten tot het volgende nummer draait');
PAL.WaitForPlayCount(1);
Is nog niet getest

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: Leuke PAL!

Ongelezen bericht door drOhimself » 26 mar 2012, 15:10

Geweldig idee Eagle !
Heb hem ook nog niet getest, dus ben benieuwd of iemand dat aan durft......!
Je weet, hier is ook geen censuur op mogelijk, hè ?
M.a.w. alles wat de mensen intypen, wordt meegenomen....
Groedjez,
drO

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: Leuke PAL!

Ongelezen bericht door Eagle 1974 » 26 mar 2012, 15:41

heb al wat zitten testen maar krijg song titel niet te horen en de rest van de tekst ook niet ,der wordt wel iets gezegt maar wat heb ik nog niet kunnen ontcijferen/letteren.
hij doet het wel enkel op het moment iemand daadwerkelijk tekst in heeft gevuld bij het verzoekje en de andere keren doet hij het niet.
dus de activering ervan klopt (dus enkel wanneer iemand ook tekst invuld bij zijn/haar verzoekje)
enkel om dan ook die tekst gesproken te krijgen is me nog niet gelukt.
wordt nog ff verder puzzelen dus.

ojee66
******
Berichten: 224
Lid geworden op: 20 jul 2006, 21:42
SAM-versie: 4.2.2.*
Database: MySQL 4.1
Windows: 2000
Locatie: Waddinxveen
Contacteer:

Re: Leuke PAL!

Ongelezen bericht door ojee66 » 26 mar 2012, 22:39

pergo schreef:ojee nou ligt zo alle op zijn kont (reet)
Wordt ik geroepen???

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: Leuke PAL!

Ongelezen bericht door Eagle 1974 » 27 mar 2012, 18:04

heb script nu zover dat hij de tekst die ingevuld is bij het verzoekje voor leest,
enkel .....
1ste keer gaat goed (het nu bestand bestaat nog niet)
2de keer laat hij het 1ste bestandje weer horen.
dus bestandje wordt niet vervangen.
op 1 of andere manier wordt die dus niet ''geupdate'' dat bestand.
script is voor als nu zo

Code: Selecteer alles

PAL.Loop := True;
WriteLn('Nieuw nummer gestart');
PAL.LockExecution;
var verzoek, song : TSongInfo;
var map, almost, ready : string ;
Song := TSongInfo.Create;
WriteLn('Controleren of het een verzoekje is');
if ((ActivePlayer.GetSongInfo['requestID']) = 0) then WriteLn('Nummer is geen verzoekje');
if ((ActivePlayer.GetSongInfo['requestID']) > 0) then
  Begin
      WriteLn('Nummer is verzoekje');
      var reqInfo : TDataSet = Query('SELECT name, msg FROM requestlist WHERE id = ' + ActivePlayer.GetSongInfo['requestID'], [], true);
      var Requested_by : String = reqInfo['name'];
      var Dedication_Message : String = reqInfo['msg'];
      reqInfo.Free;

      If (Requested_by = '') then Requested_by := 'Anonymous';
      If (Dedication_Message = '') then Dedication_Message := 'Nothing...';

      If ((Requested_by = 'Anonymous') and (Dedication_Message = 'Nothing...')) then
         Begin
           WriteLn('Verzoekje');
           WriteLn(Requested_by);
           WriteLn(Dedication_Message);
           Song['artist'] := ActivePlayer.GetSongInfo['artist'] + ' - ' + ActivePlayer.GetSongInfo['title'];
           Song['title'] := '~Verzoekje~';
           Encoders.SongChange(Song);
         End
     else
         Begin
           WriteLn('Verzoekje met tekst');
           WriteLn(Requested_by);
           WriteLn(Dedication_Message);
           Song['artist'] := ActivePlayer.GetSongInfo['artist'] + ' - ' + ActivePlayer.GetSongInfo['title'];
           Song['title'] := 'Aangevraagd door ' + Requested_by + ' : Voor wie ? : ' + Dedication_Message + ' !';
           Encoders.SongChange(Song);

          Song := ActivePlayer.GetSongInfo;

          map :=  'g:\pal script\lol\test\nu.mp3' ;
          verzoek := CAT['nu'].ChooseSong(smRandom, NoRules) ;

          almost :=  'Aangevraagd door ' + Requested_by + ' : Voor : ' + Dedication_Message  ;
          ready := URLEncode(almost) ;

        WebToFile(map,'http://translate.google.com/translate_tts?tl=nl&q='+ready) ;

        WriteLn(ready);
        Aux2.QueueSong(verzoek);
        Aux2.Play;
        End;
  End;

PAL.UnlockExecution;
WriteLn('Klaar');

Song.Free;

WriteLn('Wachten tot het volgende nummer draait');
PAL.WaitForPlayCount(1);

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: Leuke PAL!

Ongelezen bericht door Wout » 27 mar 2012, 18:54

Al geprobeerd zonder PAL.LockExecution; & PAL.UnLockExecution;?
Afbeelding

Plaats reactie