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');
wie o wie kan me helpen dat ie het ook weer geeft in de nuspeelt script.