Hello,
I’ve already tryed this but it’s not working…
I got this information: [Error] (94:4): Identifier expected
[code]//On Air Light
procedure OnOnAir;
begin
IOWarriorRemote(0).SetPort(31, true);
end;
procedure OnOffAir;
begin
IOWarriorRemote(0).SetPort(31, false);
end;
//EOF Warning Light
procedure OnPlayerStop(PlaylistIndex: integer; PlayerIndex: integer; Duration: TTimeValue; Item: IPlaylistItem);
begin
IOWarriorRemote(0).SetPort(30, false);
end;
procedure OnPlayerEOFWarning(PlaylistIndex: integer; PlayerIndex: integer);
begin
IOWarriorRemote(0).SetPort(30, true);
end;
//MIC On Light - Audio Switch
procedure OnLoad;
begin
MidiOutOpen(1);
end;
procedure OnUnload;
begin
MidiOutClose(1);
end;
procedure OnMidiMessage(Device: integer; Status, Data1, Data2: byte);
begin
if (Status = $B0) and (Data1 = $07) and (Data2 >= $01) then
IOWarriorRemote(0).SetPort(26, true);
if (Status = $B0) and (Data1 = $07) and (Data2 = $00) then
IOWarriorRemote(0).SetPort(26, false);
if (Status = $B0) and (Data1 = $07) and (Data2 >= $01) then
IOWarriorRemote(0).SetPort(25, true);
if (Status = $B0) and (Data1 = $07) and (Data2 = $00) then
IOWarriorRemote(0).SetPort(25, false);
end;
//Automation Light - Asist Light
procedure OnAutomationOn(PlaylistIndex: integer);
begin
IOWarriorRemote(0).SetPort(29, true);
IOWarriorRemote(0).SetPort(28, false);
end;
procedure OnAutomationOff(PlaylistIndex: integer);
begin
IOWarriorRemote(0).SetPort(29, false);
IOWarriorRemote(0).SetPort(28, true);
end;
//Cart Player On Light
// Called when the state of a player on the current cartwall page changes
// (or the user switches to another page).
procedure OnCartwallPlayerStateChange(PlayerIndex: integer;
OldState: TPlayerState; NewState: TPlayerState;
Item: IAudioCartwallItem; PlaylistItem: IPlaylistItem;
OnAirMode: TCartwallOnAirMode);
begin
if (PlayerIndex = 1) then begin
if NewState = psPlaying then
IOWarriorRemote(0).SetPort(19, true);
else if NewState = psStopped then
IOWarriorRemote(0).SetPort(19, false);
end;
begin
end.[/code]
94 is the last
begin
end.
It would be nice if anyone try’s to help me.
Thanks