Set PC Level Mult

unit UserScript;

procedure SetFlag(element: IInterface; index: Integer; state: boolean);
var
  mask: Integer;
begin
  mask := 1 shl index;
  if state then
    SetNativeValue(element, GetNativeValue(element) or mask)
  else
    SetNativeValue(element, GetNativeValue(element) and not mask);
end;

function Process(e: IInterface): Integer;
begin
  SetFlag(ElementByPath(e, 'ACBS\Flags'), 7, true);
end;

end.