quick put to leveledlist

unit userscript;
uses mtefunctions;

var
slformlist:tstringlist;
currfile:iinterface;
function Initialize: integer;
begin
  slformlist := tstringlist.create;
end;

function Process(e: IInterface): integer;
var
i:integer;
c, s:string;
begin
currfile:=getfile(e);
slformlist.addobject(hexformid(e),tobject(e));
end;

procedure CreateTransferFormList(sDestNPCName:string);
var
  fl, flo, fli, flj: IInterface;
begin
  fl := RecordByFormID(FileByIndex(0),$65a73,false);
  flo := wbCopyElementToFile(fl,currfile,true,true);
  seev(flo, 'EDID', ''+sDestNPCName+'''s records');
  fli := Add(flo, 'Leveled List Entries', true);
  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;
  removebyindex(fli, 0, true);
end;

function Finalize: integer;
var
i:integer;
begin
CreateTransferFormList(getfilename(currfile));
  slformlist.free;
end;

end.