Problem mit I/O Warrior Script

Deutsch / German Scripts
1

Hallo liebe Forengemeinde,
ich habe ein Problem mit Folgendem Script:

Fehlercode: [Error] (126:4): period (’.’) expected

[code]//On Air Light

procedure OnOnAir;
begin
IOWarriorRemote(0).SetPort(01, true);
end;

procedure OnOffAir;
begin
IOWarriorRemote(0).SetPort(01, false);
end;

//EOF Warning Light

procedure OnPlayerStop(PlaylistIndex: integer; PlayerIndex: integer; Duration: TTimeValue; Item: IPlaylistItem);
begin
IOWarriorRemote(0).SetPort(02, false);
end;

procedure OnPlayerEOFWarning(PlaylistIndex: integer; PlayerIndex: integer);
begin
IOWarriorRemote(0).SetPort(02, true);
end;

//MIC On Light - Audio Switch

//Automation Light - Asist Light

procedure OnAutomationOn(PlaylistIndex: integer);
begin
IOWarriorRemote(0).SetPort(04, true);
IOWarriorRemote(0).SetPort(05, false);
end;

procedure OnAutomationOff(PlaylistIndex: integer);
begin
IOWarriorRemote(0).SetPort(04, false);
IOWarriorRemote(0).SetPort(05, true);
end;

//Cart Player On Light

procedure OnCartPlayer1Start(PlayerIndex: integer; Item: IPlaylistItem);
begin
IOWarriorRemote(0).SetPort(06, true);
end;

procedure OnCartPlayer2Start(PlayerIndex: integer; Item: IPlaylistItem);
begin
IOWarriorRemote(0).SetPort(07, true);
end;

procedure OnCartPlayer3Start(PlayerIndex: integer; Item: IPlaylistItem);
begin
IOWarriorRemote(0).SetPort(08, true);
end;

procedure OnCartPlayer4Start(PlayerIndex: integer; Item: IPlaylistItem);
begin
IOWarriorRemote(0).SetPort(09, true);
end;

procedure OnCartPlayer5Start(PlayerIndex: integer; Item: IPlaylistItem);
begin
IOWarriorRemote(0).SetPort(10, true);
end;

procedure OnCartPlayer6Start(PlayerIndex: integer; Item: IPlaylistItem);
begin
IOWarriorRemote(0).SetPort(11, true);
end;

procedure OnCartPlayer7Start(PlayerIndex: integer; Item: IPlaylistItem);
begin
IOWarriorRemote(0).SetPort(12, true);
end;

procedure OnCartPlayer8Start(PlayerIndex: integer; Item: IPlaylistItem);
begin
IOWarriorRemote(0).SetPort(13, true);
end;

procedure OnCartPlayer1Stop(PlayerIndex: integer; Duration: TTimeValue; Item: IPlaylistItem);
begin
IOWarriorRemote(0).SetPort(06, false);
end;

procedure OnCartPlayer2Stop(PlayerIndex: integer; Duration: TTimeValue; Item: IPlaylistItem);
begin
IOWarriorRemote(0).SetPort(07, false);
end;

procedure OnCartPlayer3Stop(PlayerIndex: integer; Duration: TTimeValue; Item: IPlaylistItem);
begin
IOWarriorRemote(0).SetPort(08, false);
end;

procedure OnCartPlayer4Stop(PlayerIndex: integer; Duration: TTimeValue; Item: IPlaylistItem);
begin
IOWarriorRemote(0).SetPort(09, false);
end;

procedure OnCartPlayer5Stop(PlayerIndex: integer; Duration: TTimeValue; Item: IPlaylistItem);
begin
IOWarriorRemote(0).SetPort(10, false);
end;

procedure OnCartPlayer6Stop(PlayerIndex: integer; Duration: TTimeValue; Item: IPlaylistItem);
begin
IOWarriorRemote(0).SetPort(11, false);
end;

procedure OnCartPlayer7Stop(PlayerIndex: integer; Duration: TTimeValue; Item: IPlaylistItem);
begin
IOWarriorRemote(0).SetPort(12, false);
end;

procedure OnCartPlayer8Stop(PlayerIndex: integer; Duration: TTimeValue; Item: IPlaylistItem);
begin
IOWarriorRemote(0).SetPort(13, false);
end;

begin
end;[/code]

Wäre nett wenn mir da jemand helfen könnte und mir zusätzlich sagen könnte wie ich das mit dem Mic On code hinbekomme.

Danke schon einmal im Vorraus :slight_smile:

Gruß,
Marcel

2

Hi,

wie es aussieht, musst Du nur unten das letzte

begin
end;

gegen

begin
end.

austauschen.

[code]//On Air Light

procedure OnOnAir;
begin
IOWarriorRemote(0).SetPort(01, true);
end;

procedure OnOffAir;
begin
IOWarriorRemote(0).SetPort(01, false);
end;

//EOF Warning Light

procedure OnPlayerStop(PlaylistIndex: integer; PlayerIndex: integer; Duration: TTimeValue; Item: IPlaylistItem);
begin
IOWarriorRemote(0).SetPort(02, false);
end;

procedure OnPlayerEOFWarning(PlaylistIndex: integer; PlayerIndex: integer);
begin
IOWarriorRemote(0).SetPort(02, true);
end;

//MIC On Light - Audio Switch

//Automation Light - Asist Light

procedure OnAutomationOn(PlaylistIndex: integer);
begin
IOWarriorRemote(0).SetPort(04, true);
IOWarriorRemote(0).SetPort(05, false);
end;

procedure OnAutomationOff(PlaylistIndex: integer);
begin
IOWarriorRemote(0).SetPort(04, false);
IOWarriorRemote(0).SetPort(05, true);
end;

//Cart Player On Light

procedure OnCartPlayer1Start(PlayerIndex: integer; Item: IPlaylistItem);
begin
IOWarriorRemote(0).SetPort(06, true);
end;

procedure OnCartPlayer2Start(PlayerIndex: integer; Item: IPlaylistItem);
begin
IOWarriorRemote(0).SetPort(07, true);
end;

procedure OnCartPlayer3Start(PlayerIndex: integer; Item: IPlaylistItem);
begin
IOWarriorRemote(0).SetPort(08, true);
end;

procedure OnCartPlayer4Start(PlayerIndex: integer; Item: IPlaylistItem);
begin
IOWarriorRemote(0).SetPort(09, true);
end;

procedure OnCartPlayer5Start(PlayerIndex: integer; Item: IPlaylistItem);
begin
IOWarriorRemote(0).SetPort(10, true);
end;

procedure OnCartPlayer6Start(PlayerIndex: integer; Item: IPlaylistItem);
begin
IOWarriorRemote(0).SetPort(11, true);
end;

procedure OnCartPlayer7Start(PlayerIndex: integer; Item: IPlaylistItem);
begin
IOWarriorRemote(0).SetPort(12, true);
end;

procedure OnCartPlayer8Start(PlayerIndex: integer; Item: IPlaylistItem);
begin
IOWarriorRemote(0).SetPort(13, true);
end;

procedure OnCartPlayer1Stop(PlayerIndex: integer; Duration: TTimeValue; Item: IPlaylistItem);
begin
IOWarriorRemote(0).SetPort(06, false);
end;

procedure OnCartPlayer2Stop(PlayerIndex: integer; Duration: TTimeValue; Item: IPlaylistItem);
begin
IOWarriorRemote(0).SetPort(07, false);
end;

procedure OnCartPlayer3Stop(PlayerIndex: integer; Duration: TTimeValue; Item: IPlaylistItem);
begin
IOWarriorRemote(0).SetPort(08, false);
end;

procedure OnCartPlayer4Stop(PlayerIndex: integer; Duration: TTimeValue; Item: IPlaylistItem);
begin
IOWarriorRemote(0).SetPort(09, false);
end;

procedure OnCartPlayer5Stop(PlayerIndex: integer; Duration: TTimeValue; Item: IPlaylistItem);
begin
IOWarriorRemote(0).SetPort(10, false);
end;

procedure OnCartPlayer6Stop(PlayerIndex: integer; Duration: TTimeValue; Item: IPlaylistItem);
begin
IOWarriorRemote(0).SetPort(11, false);
end;

procedure OnCartPlayer7Stop(PlayerIndex: integer; Duration: TTimeValue; Item: IPlaylistItem);
begin
IOWarriorRemote(0).SetPort(12, false);
end;

procedure OnCartPlayer8Stop(PlayerIndex: integer; Duration: TTimeValue; Item: IPlaylistItem);
begin
IOWarriorRemote(0).SetPort(13, false);
end;

begin
end.[/code]

3

Hallöchen,

Erstmal Vielen Dank, Läuft soweit ganz gut.

das einzige problem was ich jetzt noch habe, ist:

  1. Welchen Code muss ich eintragen um Mic On oder Mic Off abzufragen
  2. Wie ich eine Benachichtigung bekomme das Cartwallplayer 1, 2,… oder 8 laufen da hatte ich es mit einfacher nummerierung versucht funktioniert allerdings überhaupt nicht

Edit: Das Mic Problem ist gelöst :slight_smile:

Lieben Gruß,
Marcel