Airlite - Script Issue nach Update von 6.3.3 auf 6.3.5

Deutsch / German Scripts
1

Hallo,

nach dem Update von 6.3.3 nach 6.3.5 funktioniert mein Scrip nicht mehr richtig.

Es soll bei den Control Buttons 8A PFL aufrufen und gleichzeigt Kanal 8 auf PFL schalten. Dabei soll der Schalter von Grün auf Rot gehen. Grün wird beim Start gesetzt(was mit der neuen Version nicht mehr geht). PFL geht zwar auf aber die LED Steuerung geht nicht.
Bei 8B soll ich Online Bzw. Online gehen was auch funktioniert, aber beim Start soll Grün blinkend gesetzt werden (geht nicht) und bei Online soll Rot blinkend gesetzt werden (geht auch nicht).

In der 6.3.3 geht es wunderbar bei Version 6.3.4 und 6.3.5 nicht.

Hier die Remote Einstellungen:
image

Und hier das Script:

    //  Called after Script Load
    procedure OnLoad;
    begin
    AirliteRemote(0).SetLEDBlink(16, alcNone, alcGreen, albsSlow);
    AirliteRemote(0).SetLED(8, alcGreen);
    end;

    // Called when mAirList goes ON AIR
    procedure OnOnAir;
    begin
    AirliteRemote(0).SetLEDBlink(16, alcNone, alcRed, albsSlow);
    end;

    // Called when mAirList goes OFF AIR
    procedure OnOffAir;
    begin
    AirliteRemote(0).SetLEDBlink(16, alcNone, alcGreen, albsSlow);
    end;

    // when Extra-PFL is launched Voip CUE On 
    procedure OnExtPFLOn(Item: IPlaylistItem; ExtPFLCount: integer);
    begin
      if ExtPFLCount = 1 then
        AirliteRemote(0).RemoteCue(actModule8, alaActivate);
        AirliteRemote(0).SetLED(8, alcRed);
    end;

    // Extra-PFL is closed Voip CUE OFF
    procedure OnExtPFLOff(Item: IPlaylistItem; ExtPFLCount: integer);
    begin
      if ExtPFLCount = 0 then
        AirliteRemote(0).RemoteCue(actModule8, alaDeactivate);
        AirliteRemote(0).SetLED(8, alcGreen);
    end;

    begin
    end.

Viele Grüße
CoolSpot

Edit by Mod: Script-Teil passend formatiert. Bitte zukünftig selber darauf achten (</>).

Edit by Admin: Wenn man es mit ``` formatiert, dann kriegt man sogar Syntax Highlighting :stuck_out_tongue:

2

In Build 4372 behoben. Danke für’s Melden. (Das Script-Interface war nach Einführung der Modul-Befehle in 6.3.4 nicht mehr aktuell und hat ein paar Methoden verschluckt.)

Noch ein Tipp zu deinem Code:

// when Extra-PFL is launched Voip CUE On 
procedure OnExtPFLOn(Item: IPlaylistItem; ExtPFLCount: integer);
begin
  if ExtPFLCount = 1 then
    AirliteRemote(0).RemoteCue(actModule8, alaActivate);
    AirliteRemote(0).SetLED(8, alcRed);
end;

Ich nehme an, dass beide Befehle (RemoteCue und SetLED) nur ausgeführt werden sollen, wenn ExtPFLCount=1 ist? Dann musst du einen Block aus begin/end daraus machen - nur eine Einrückung reicht nicht.

// when Extra-PFL is launched Voip CUE On 
procedure OnExtPFLOn(Item: IPlaylistItem; ExtPFLCount: integer);
begin
  if ExtPFLCount = 1 then begin
    AirliteRemote(0).RemoteCue(actModule8, alaActivate);
    AirliteRemote(0).SetLED(8, alcRed);
  end;
end;

(Betrifft gleichermaßen OnExtPFLOff.)

3

:+1:
Build 4372 behebt den Fehler. Vielen Dank auch für den Tipp.