| 6 | 
   | 
   _FileTypes; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 7 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 8 | 
   | 
 type | 
 
 
 
 
 
 
 
 
 
 
 
 | 9 | 
 < | 
   TFile_AKVA = class(TFile) | 
 
 
 
 
 
 
 
 
 
 | 9 | 
 > | 
   TFile_AKVA = class(TResource) | 
 
 
 
 
 
 
 
 
 
 
 
 | 10 | 
   | 
     public | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 11 | 
   | 
       procedure InitDataFields; override; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 12 | 
   | 
   end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 22 | 
   | 
   FDataFields := TBlock.Create(Self, nil, 'Base', '', []); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 23 | 
   | 
   with FDataFields do | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 24 | 
   | 
   begin | 
 
 
 
 
 
 
 
 
 
 
 
 | 25 | 
 < | 
     AddField(TFileID, 'FileID', '', []); | 
 
 
 
 
 
 
 
 
 
 | 25 | 
 > | 
     AddField(TResourceID, 'FileID', '', []); | 
 
 
 
 
 
 
 
 
 
 
 
 | 26 | 
   | 
     AddField(TLevelID, 'LevelID', '', []); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 27 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 28 | 
   | 
     AddField(TUnused, 'Unused data', '', [20]); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 40 | 
   | 
       begin | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 41 | 
   | 
         AddField(TInt, 'X-tiles', 'size of pathfinding grid', [4]); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 42 | 
   | 
         AddField(TInt, 'Z-tiles', 'size of pathfinding grid', [4]); | 
 
 
 
 
 
 
 
 
 
 
 
 | 43 | 
 < | 
         AddField(TRawLink, 'RAW offset', 'offset of grid data', []); | 
 
 
 
 
 
 
 
 
 
 | 43 | 
 > | 
         AddField(TRawLink, 'RAW offset', 'offset of grid data', ['AKVA']); | 
 
 
 
 
 
 
 
 
 
 
 
 | 44 | 
   | 
         AddField(TInt, 'RAW size', 'size of grid data', [4]); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 45 | 
   | 
         AddField(TFloat, 'Tile size', 'usually 4 world units', []); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 46 | 
   | 
       end; |