Pal rds in nu speelt script

Voor vragen over Playlist Automation Language.
Plaats reactie
Studioschuttevaer
*
Berichten: 11
Lid geworden op: 26 dec 2016, 00:22
SAM-versie: 4.2.2.*
Database: MySQL 5.1
Windows: Windows 10

Pal rds in nu speelt script

Ongelezen bericht door Studioschuttevaer » 15 okt 2017, 20:41

Beste leden
Ik heb een RDS pal script die laat alleen alles zien in winamp..
is het ook mogelijk dat ie dat doet in een nu speelt script

Zie hier onder de RDS.pal

Code: Selecteer alles

PAL.Loop := True;
var Song : TSongInfo;
var myCurrentSong : TSongInfo;

Song := TSongInfo.Create;
Song['rds'] := '     .:. Je Luistert Naar .:.    ';
Encoders.SongChange(Song);
PAL.WaitForTime('+00:00:14');
Song := TSongInfo.Create;
Song['rds'] := '      .:.  radionaam .:.    ';
Encoders.SongChange(Song);
PAL.WaitForTime('+00:00:14');
Song := TSongInfo.Create;
Song['rds'] := '      .:.  Nu NONSTOP met onze Nonstop - Jukebox  .:.    ';
Encoders.SongChange(Song);
PAL.WaitForTime('+00:00:14');
myCurrentSong := ActivePlayer.GetSongInfo;
Song := TSongInfo.Create;
Song['rds'] := '      .:.  Wij draaaien nu: ' + myCurrentSong['combine'] + '  .:.    ';
Encoders.SongChange(Song);
PAL.WaitForTime('+00:00:15');
WriteLn('New song started');
WriteLn('Waiting 5 Seconds before checking if it is a Request');
PAL.WaitForTime(T['+00:00:14']);
PAL.LockExecution;
Song := TSongInfo.Create;
WriteLn('Checking if song has been Requested......');
if ((ActivePlayer.GetSongInfo['requestID']) = 0) then WriteLn('Song is not a Request');
if ((ActivePlayer.GetSongInfo['requestID']) > 0) then
  Begin
      WriteLn('Song is a Request');
      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 := 'Luisteraar';
      If (Dedication_Message = '') then Dedication_Message := 'Voor iedereen die mee luistert';
      If ((Requested_by = 'Anoniem') and (Dedication_Message = 'Voor iedereen die mee luistert')) then
         Begin
           WriteLn('Song is a Request without Dedication');
           WriteLn(Requested_by); // This should aways echo Anonymous
           WriteLn(Dedication_Message); // This should aways echo Nothing...
           Song['rds'] := ActivePlayer.GetSongInfo['artist'] + ' - ' + ActivePlayer.GetSongInfo['title'];
           Song['rds'] := ' **Verzoekje** ';
           Encoders.SongChange(Song);
         End
     else
         Begin
           WriteLn('Song is a Request with a Dedication');
           WriteLn(Requested_by);
           WriteLn(Dedication_Message);
           Song['rds'] := '      .:.  Aangevraagd door:  ' + Requested_by +
           '    Voor: ' + Dedication_Message + '  .:.    ';
           Encoders.SongChange(Song);
        End;
  End;
PAL.UnlockExecution;
WriteLn('Done....');
PAL.WaitForTime(T['+00:00:14']);
Song := TSongInfo.Create;
Song['rds'] := '      .:.  Je kunt tijdens onze Nonstop uitzendingen .:.    ';
Encoders.SongChange(Song);
PAL.WaitForTime('+00:00:14');
Song := TSongInfo.Create;
Song['rds'] := '      .:.  verzoekjes aanvragen via optie JUKEBOX in het menu .:.    ';
Encoders.SongChange(Song);
PAL.WaitForTime('+00:00:14');
Song := TSongInfo.Create;
Song['rds'] := '      .:.  Wij wensen jullie .:.    ';
Encoders.SongChange(Song);
PAL.WaitForTime('+00:00:14');
Song := TSongInfo.Create;
Song['rds'] := '      .:.  Veel luister plezier toe  .:.    ';
Encoders.SongChange(Song);
PAL.WaitForTime('+00:00:14');
Song := TSongInfo.Create;
Song['rds'] := '      .:.   Namens radio naam .:.    ';
Encoders.SongChange(Song);
PAL.WaitForTime('+00:00:14');

zie de bijlage voor de nu speelt script

wie o wie kan me helpen dat ie het ook weer geeft in de nuspeelt script.
Je hebt niet voldoende permissies om de bijlagen van dit bericht te bekijken.

Plaats reactie
  • Vergelijkbare Onderwerpen
    Reacties
    Weergaves
    Laatste bericht