Lumikit - Fixed dimmer at 255 and variable strobo in groups

// Author: Gabriel Klabunde
// Date: 22/05/2019
// Script: Fixed dimmer at 255 and variable strobo in groups

procedure OnRegister;
begin
   RegisterUIGroupBox(0, 'Select Group:');
   RegisterUIValue(1, 'Dimmer Level', 255, 0, 255);
   RegisterUIValue(2, 'Max Strobe Level', 255, 0, 255);
end;

procedure OnExecute;
var
  i: integer;
begin
  i := GetDimmer;
  if i > GetUIValue(2) then
  i:= GetUIValue(2);
  SetGroupParam(GetUIValue(0), CT_DIMMER, GetUIValue(1));
  SetGroupParam(GetUIValue(0), CT_STROBE, i);
end;

procedure OnTerminate;
begin
  DoTerminate;
end;