unit UserScript;

var
    slList: TStringList;

function Initialize: integer;
begin
    slList := TStringList.Create;
    slList.LoadFromFile('SkyoutConversionData.csv');
end;

function Process(e: IInterface): integer;
var
  i: integer;
begin
    Result := 0;
    // use square brackets [] on formid to prevent Excel from treating them as a numbers
    slList.Add(Format('%s,%s,0x%s', [
        // FixedFormID depends only on explicit masters and not affected by plugin's load order
        Signature(e),
        IntToHex(GetLoadOrderFormID(e), 6),
        GetElementEditValues(e, 'EDID - Editor ID')
    ]));
end;

function Finalize: integer;
begin
    Result := 0;

    // save export file only if we have any data besides header line
    if (slList.Count >= 1) then
    begin
        // ask for file to export to
        slList.SaveToFile('SkyoutConversionData.csv');
    end;

    slList.Free;
end;

end.