[xEdit] [pascal] Save Female NPCs

unit UserScript;

uses 'lib\mxpf';

function Initialize: Integer;
var
  i: integer;
  sl, files: TStringList;
  rec: IInterface;
  fn: string;
begin
  // initialize stringlists
  sl := TStringList.Create;
  files := TStringList.Create;

  // get user file selection
  MultiFileSelect(files, 'Select the files you want to save female NPCs from');
  InitializeMXPF;
  DefaultOptionsMXPF;
  SetInclusions(files.CommaText);
  LoadRecords('NPC_');
  for i := 0 to MaxRecordIndex do begin
    rec := GetRecord(i);
    fn := GetFileName(GetFile(rec));
    if geev(rec, 'ACBS/Flags/Female') = '1' then
      sl.Add(Format('%s|%s', [fn, IntToHex(FormID(rec), 8)]));
  end;

  // clean up
  FinalizeMXPF;
  sl.SaveToFile('Female NPCs.xml');
  files.Free;
  sl.Free;
end;

end.