Hmm, just downloaded and testet b901. There seems something to be broken with GETPLAYERCONTROL
Doesn’t work anymore with the Carts and Players fadeout themselves.
I’m up since 4am and too tired to look deeper into this, maybe the doctor has a clue
On startup I get the following error message:
Fehler beim Laden des Benachrichtigungs-Scripts C:\MymAirListScripts\FadePlayers.mls: [Error] (17:35): Unknown identifier ‘GETPLAYERCONTROL’
and here’s the corresponding code.
regards:
-Serge-
[code]procedure OnCartPlayerStart(PlayerIndex: integer; Item: IPlaylistItem);
var
i: integer;
begin
//stop players
for i := 0 to Engine.GetPlayBackControl(0).GetPlayerCount - 1 do
if CurrentPlaybackControl.GetAutomation = false then begin
Engine.GetPlayBackControl(0).GetPlayer(i).Fadeout;
end;
//stop carts > 0
if PlayerIndex = 0 then begin
for i := 1 to Engine.GetCartwallControl.GetPlayerCount - 1 do
if CurrentPlaybackControl.GetAutomation = false then begin
Engine.GetCartwallControl.GetPlayerControl(i).FadeOut;
end;
end;
//stop cart 0 and cart > 1
if PlayerIndex = 1 then begin
Engine.GetCartwallControl.GetPlayerControl(0).FadeOut;
for i := 2 to Engine.GetCartwallControl.GetPlayerCount - 1 do
if CurrentPlaybackControl.GetAutomation = false then begin
Engine.GetCartwallControl.GetPlayerControl(i).FadeOut;
end
end;
//stop cart < 2 and cart >2
if PlayerIndex = 2 then begin
Engine.GetCartwallControl.GetPlayerControl(3).FadeOut;
for i := 0 to PlayerIndex - 1 do
if CurrentPlaybackControl.GetAutomation = false then begin
Engine.GetCartwallControl.GetPlayerControl(i).FadeOut;
end;
end;
//stop cart < 3
if PlayerIndex = 3 then begin
for i := 0 to PlayerIndex - 1 do
if CurrentPlaybackControl.GetAutomation = false then begin
Engine.GetCartwallControl.GetPlayerControl(i).FadeOut;
end;
end;
end;
procedure OnPlayerStart(PlaylistIndex: integer; PlayerIndex: integer; Item: IPlaylistItem);
var
i: integer;
begin
for i := 0 to Engine.GetCartwallControl.GetPlayerCount - 1 do
if CurrentPlaybackControl.GetAutomation = false then begin
Engine.GetCartwallControl.GetPlayerControl(i).FadeOut;
end;
if PlayerIndex = 0 then begin
if CurrentPlaybackControl.GetAutomation = false then begin
Engine.GetPlayBackControl(0).GetPlayer(1).Fadeout;
end;
end;
if PlayerIndex = 1 then begin
if CurrentPlaybackControl.GetAutomation = false then begin
Engine.GetPlayBackControl(0).GetPlayer(0).Fadeout;
end;
end;
end;
begin
end.[/code]