dAb - SetItemsAndNPCLevelto1.pas

{
  dAb - SetItemsAndNPCLevelto1.pas

  Does what its name says. This script is meant to be used on the entire ESP.
}

unit userscript;

function Initialize: integer;
begin
  Result := 0;
end;

var
  i: integer;
  ent, entries: IInterface;

function Process(e: IInterface): integer;
begin
  Result := 0;

  if (Signature(e) <> 'LVLN') and (Signature(e) <> 'LVLI') then // apply to both NPC and items
  Exit;

  AddMessage('Processing: ' + FullPath(e));

if not ElementExists(e, 'LLCT') then  // skip empty lists
        Exit;

  entries := ElementByName(e, 'Leveled List Entries');

  for i := 0 to ElementCount(entries) - 1 do begin
    ent := ElementByIndex(entries, i);
    SetElementEditValues(ent, 'LVLO\Level', 1); // set every NPC and item level to 1
  end;
end;

function Finalize: integer;
begin
  Result := 0;
end;

end.