--- oup/current/FileClasses/AKVA.pas 2007/07/14 14:18:23 237 +++ oup/current/FileClasses/AKVA.pas 2007/11/26 11:02:28 248 @@ -6,7 +6,7 @@ uses _FileTypes; type - TFile_AKVA = class(TFile) + TFile_AKVA = class(TResource) public procedure InitDataFields; override; end; @@ -22,7 +22,7 @@ begin FDataFields := TBlock.Create(Self, nil, 'Base', '', []); with FDataFields do begin - AddField(TFileID, 'FileID', '', []); + AddField(TResourceID, 'FileID', '', []); AddField(TLevelID, 'LevelID', '', []); AddField(TUnused, 'Unused data', '', [20]); @@ -40,7 +40,7 @@ begin begin AddField(TInt, 'X-tiles', 'size of pathfinding grid', [4]); AddField(TInt, 'Z-tiles', 'size of pathfinding grid', [4]); - AddField(TRawLink, 'RAW offset', 'offset of grid data', []); + AddField(TRawLink, 'RAW offset', 'offset of grid data', ['AKVA']); AddField(TInt, 'RAW size', 'size of grid data', [4]); AddField(TFloat, 'Tile size', 'usually 4 world units', []); end;