PAL scripts werken niet meer.

Voor vragen over Playlist Automation Language.
Plaats reactie
Gebruikersavatar
BeatFlexx
*
Berichten: 10
Lid geworden op: 14 okt 2017, 09:48
SAM-versie: 4.9.0.*
Database: FireBird
Windows: XP
Locatie: Rotterdam
Contacteer:

PAL scripts werken niet meer.

Ongelezen bericht door BeatFlexx » 27 nov 2018, 17:50

Kan iemand mij vertellen waarom de 2 volgende scripts niet meer werken ?
Heeft dit met de overgang van v1 naar v2 te maken ?

Hide de jingle in song history en now playing

Code: Selecteer alles

while (DayOfWeek(Now) = Tuesday) and ((Now >= T['18:00:00']) and (Now <= T['20:00:00']))  do
begin
PAL.Loop := false;
PAL.WaitForTime('20:00:00');
end;

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

PAL.WaitForTime(T['+00:00:05']);

myCurrentSong := ActivePlayer.GetSongInfo;

If ((myCurrentSong['songtype'] = 'S')) then

begin
    Song := TSongInfo.Create;
    Song['nowplaying'] := myCurrentSong['combine'];
    Encoders.SongChange(Song);
    PAL.WaitForPlayCount(1);
end;

Veranderd de Artist en titel naar mijn LIVE bericht

Code: Selecteer alles

PAL.Loop := True;

while (DayOfWeek(Now) = Tuesday) and ((Now >= T['18:00:00']) and (Now <= T['20:00:00']))  do
begin

var Song : TSongInfo;
var myCurrentSong : TSongInfo;

myCurrentSong := ActivePlayer.GetSongInfo;

Song := TSongInfo.Create;
Song['nowplaying'] := 'LIVE -=ON AIR=-';

Encoders.SongChange(Song);
Song.Free;

PAL.WaitForTime('20:00:00');

end ;
Het heeft altijd perfect gewerkt.
Let The Beat Control Your Mind >> http://beatflexx.com [smilie=music.gif]

Gebruikersavatar
Wout
Moderator
Berichten: 3217
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: PAL scripts werken niet meer.

Ongelezen bericht door Wout » 11 dec 2018, 21:42

Dit lijkt me wel. Maar ik weet ook dit moment geen alternatief ervoor.
Afbeelding

Plaats reactie