xEdit Script for adding items to a leveled list. Based on a script by Sernmet.

Add Items To Leveled List.pas

unit userscript;

uses 'lib\mteFunctions';
 
var
  slFormList: TStringList;

function Initialize: integer;
begin
  slFormList := TStringList.create;
end;
 
function Process(e: IInterface): Integer;
begin
  slFormList.AddObject(HexFormID(e), TObject(e));
end;
 
procedure CreateTransferFormList(lvli: IInterface);
var
  flo, fli, flj: IInterface;
  g: IInterface;
  i: Integer;
  bNoEntries: Boolean;
begin
  bNoEntries := not ElementExists(lvli, 'Leveled List Entries');
  fli := Add(lvli, 'Leveled List Entries', false);
  while slFormList.Count > 0 do begin
    flj := ElementAssign(fli, HighInteger, nil, false);
    seev(flj, 'LVLO\Reference', slFormList[0]);
    seev(flj, 'LVLO\Count', 1);
    seev(flj, 'LVLO\Level', 1);
    slFormList.Delete(0);
  end;
  if bNoEntries then
    RemoveByIndex(fli, 0, true);
end;
 
function Finalize: Integer;
var
  lvli: IInterface;
begin
  lvli := RecordSelect('', 'LVLI');
  CreateTransferFormList(lvli);
  slFormList.free;
end;
 
end.