Hohoho Forengemeinde,
ich bin auf der Suche nach jemanden der Spaß daran hat mir ein bestehendes Script umzuschreiben denn ich habe davon leider keinen Plan.
Das vorhandene Script löst auf dem Pult und an der Signalampel jeweils eine gelb blinkende EOF Signalanzeige aus. (Siehe Bild)
Alles funktioniert wunderbar. Aaaaaber…
Während einer Sendung oder in der Vorbereitung nutze ich auch gern mal den Mixeditor und setze dann die grünen Verlinkungspunkte (Assist-Modus). Beim vorhandenen Script verhält es sich nun so, das die EOF Anzeige beim aktuell laufenden Element 30 Sekunden vor Ende des Songs anfängt zu blinken und bis zum letzten verlinkten Element durchblinkt. Im Automatikmodus habe ich das Problem nicht. Ich möchte aber nicht immer zwischen Assist und Automatik umschalten müssen. Hilfreich wäre also das Script so zu verändern das es wirklich erst beim letzten verlinkten Element aktiv wird. Vielleicht kann man ja den roten VerlinkungsPunkt für das Script irgendwo abgreifen damit es aktiv wird?
Jemand eine Idee? Und hier ist das aktuelle Script… ausgelegt natürlich für mein Studio (was die USB Ports/Io Warrior usw angeht). Darf gern verwendet werden.
const
PORT_COUNT = 24;
var
Portflashing: array[0…PORT_COUNT-1] of boolean;
FlashCounter: integer;
procedure OnTimer;
var
i: integer;
begin
FlashCounter:= FlashCounter+1;
if FlashCounter = 2 then FlashCounter := 0;
for i := 0 to PORT_COUNT -1 do
if PortFlashing[i] then
IOWarriorRemote(2).SetPort(i, FlashCounter = 1);
end;
procedure OnLoad;
var
i: integer;
begin
for i:= 0 to PORT_COUNT -1 do
Portflashing[i] := false;
EnableTimer(500);
end;
procedure OnPlayerEOFWarning(PlaylistIndex: integer; PlayerIndex: integer);
var
i : integer;
begin
if (CurrentPlaybackControl.GetAutomation = false) then begin
PortFlashing[5] := true;
end;
end;
procedure OnPlayerStop(PlaylistIndex: integer; PlayerIndex: integer);
var
i : integer;
begin
PortFlashing[5] := false;
IOWarriorRemote(2).SetPort(5, false);
end;
procedure OnAutomationOn(PlaylistIndex: integer);
begin
PortFlashing[5] := false;
IOWarriorRemote(2).SetPort(5, false);
end;
begin
end.
Danke und eine schöne Vorweihnachtszeit Euch allen…
