Advertisement
Guest User

Untitled

a guest
Aug 3rd, 2018
58
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.38 KB | None | 0 0
  1. {
  2.   Check form version of TES5 records
  3. }
  4. unit userscript;
  5.  
  6. function Process(e: IInterface): Integer;
  7.  
  8. var
  9.    i, recordver: integer;
  10.  
  11. begin
  12.     i := 0;
  13.     recordver := GetElementNativeValues(e, 'Record Header\Form Version');
  14.  
  15.     if recordver < 44 then begin
  16.         AddMessage('Version ' + IntToStr(recordver) + ' found on record ' + FullPath(e));
  17.         inc(i);
  18.     end;
  19.  
  20. end;
  21.  
  22. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement