{
  Combat Style
}
unit UserScript;

var
  csgdList: TStringList;


function Initialize: integer;
begin
  csgdList := TStringList.Create;
  csgdList.Add('CSGD\Equipment Score Mult - Melee');
  csgdList.Add('CSGD\Equipment Score Mult - Magic');
  csgdList.Add('CSGD\Equipment Score Mult - Ranged');
  csgdList.Add('CSGD\Equipment Score Mult - Shout');
  csgdList.Add('CSGD\Equipment Score Mult - Unarmed');
  csgdList.Add('CSGD\Equipment Score Mult - Staff');
end;


function Process(e: IInterface): integer;
var
  m, p, pe: IInterface;
  i: integer;
  d: double;
begin
  // parse only Combat Style record
  if Signature(e) <> 'CSTY' then Exit;

  // remove Strafe Mult
  SetElementNativeValues(e, 'CSLR\Strafe Mult', 0);

  // get master record
  m := Master(e);

  if Assigned(m) then begin
    for i := 0 to csgdList.Count - 1 do begin
      d := GetElementNativeValues(m, csgdList[i]);
	  SetElementNativeValues(e, csgdList[i], d);
	end;
  end;
end;


function Finalize: integer;
begin
	csgdList.Free;
end;


end.