D.Max Scripte

Deutsch / German Scripts
1

Moin,

Hat jemand von euch Scripte für das D.Max Pult von BarthKG? Wäre sehr cool wenn mir da jemand helfen kann :slight_smile:

2

Hier mal meine remote.ini sowie ein Script, das ich verwendet, um den Cartwall-Fader fernzusteuern (ON AIR, OFF AIR, PFL durch Klicken im Cartwall-Fenster).

remote.ini

[Remote0]
Type=DMAX
Enabled=on
Port=COM1
FaderOff1=NOVT AIRCHECK OFF;VT RECORD STOP
FaderOn1=NOVT AIRCHECK ON;VT RECORD START
FaderOff11=NOVT PLAYER 1-1 PAUSE/STOP;VT PLAYER A STOP
FaderOn11=NOVT PLAYER 1-1 START;VT PLAYER A START
PFLOff11=PLAYER 1-1 PFL OFF
PFLOn11=PLAYER 1-1 PFL ON
Volume11=VT PLAYER A VOLUME $DB
FaderOff12=NOVT PLAYER 1-2 PAUSE/STOP;VT PLAYER B STOP
FaderOn12=NOVT PLAYER 1-2 START;VT PLAYER B START
PFLOff12=PLAYER 1-2 PFL OFF
PFLOn12=PLAYER 1-2 PFL ON
Volume12=VT PLAYER B VOLUME $DB
FaderOff13=CARTWALL MODE OFF AIR
FaderOn13=CARTWALL MODE ON AIR
PFLOff13=CARTWALL MODE OFF AIR IF PFL
PFLOn13=CARTWALL MODE PFL IF OFF AIR
NextOn13=CARTWALL NEXT

Script:

// Called when the cartwall switches its on air mode (on air, off air, PFL)
procedure OnCartwallOnAirModeChange(OldMode, NewMode: TCartwallOnAirMode);
var
  CartFader: byte;
begin
  // Fader der Cartwall ermitteln
  CartFader := DMAXRemote(0).GetFaderOfChannel(13);

  if NewMode = oamOnAir then begin
    // wenn vorher PFL, dann PFL ganz aus
    if OldMode = oamPFL then
      DMAXRemote(0).SetPFL(0);

    // Cartfader an
    DMAXRemote(0).SetGoStatus(CartFader, true);
  end
  else if NewMode = oamPFL then begin
    DMAXRemote(0).SetGoStatus(CartFader, false);
    DMAXRemote(0).SetPFL(CartFader);
  end
  else begin // off air
    // wenn vorher PFL, dann PFL ganz aus
    if OldMode = oamPFL then
      DMAXRemote(0).SetPFL(0);

    // Cartfader aus
    DMAXRemote(0).SetGoStatus(CartFader, false);
  end;
end;


begin
end.

Kanalnummern musst du natürlich anpassen. Cartwall ist bei mir Input 13 (vergleiche mit remote.ini oben).