Advertisement
dAb74

Check form version of TES5 records

Aug 4th, 2018
1,548
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.33 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.    recver: integer;
  10.  
  11. begin
  12.  
  13.     recver := GetElementNativeValues(e, 'Record Header\Form Version');
  14.  
  15.     if recver < 44 then
  16.         AddMessage('Version ' + IntToStr(recver) + ' found on record ' + FullPath(e));
  17.  
  18. end;
  19.  
  20. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement