unit AKEV; interface uses _FileTypes; type TFile_AKEV = class(TResource) public procedure InitDataFields; override; end; implementation uses ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; procedure TFile_AKEV.InitDataFields; begin inherited; FDataFields := TBlock.Create(Self, nil, 'Base', '', []); with FDataFields do begin AddField(TResourceID, 'FileID', '', []); AddField(TLevelID, 'LevelID', '', []); AddField(TLinkByID, 'PNTA-link', 'Link to the 3D Point Array', ['PNTA']); AddField(TLinkByID, 'PLEA-link', 'Link to the Plane Equation Array', ['PLEA']); AddField(TLinkByID, 'TXCA-link', 'Link to the Texture Coordinate Array', ['TXCA']); AddField(TLinkByID, 'AGQG-link', 'Link to the Gunk Quad General Array', ['AGQG']); AddField(TLinkByID, 'AGQR-link', 'Link to the Gunk Quad Render Array', ['AGQR']); AddField(TLinkByID, 'AGQC-link', 'Link to the Gunk Quad Collision Array', ['AGQC']); AddField(TLinkByID, 'AGDB-link', 'Link to the Gunk Quad Debug Array', ['AGDB']); AddField(TLinkByID, 'TXMA-link', 'Link to the Texture Map Array', ['TXMA']); AddField(TLinkByID, 'AKVA-link', 'Link to the BNV Node Array', ['AKVA']); AddField(TLinkByID, 'AKBA-link', 'Link to the Side Array', ['AKBA']); AddField(TLinkByID, 'IDXA-link', 'Link to the Index Array', ['IDXA']); AddField(TLinkByID, 'IDXA-link', 'Link to the Index Array', ['IDXA']); AddField(TLinkByID, 'AKBP-link', 'Link to the BSP Node Array', ['AKBP']); AddField(TLinkByID, 'ABNA-link', 'Link to the BSP Tree Node Array', ['ABNA']); AddField(TLinkByID, 'AKOT-link', 'Link to the Oct Tree', ['AKOT']); AddField(TLinkByID, 'AKAA-link', 'Link to the Adjacency Array', ['AKAA']); AddField(TLinkByID, 'AKDA-link', 'Link to the Door Frame Array', ['AKDA']); AddField(TFloat, 'AABB X-', 'Minimal x-coordinate of the level model', []); AddField(TFloat, 'AABB Y-', 'Minimal y-coordinate of the level model', []); AddField(TFloat, 'AABB Z-', 'Minimal z-coordinate of the level model', []); AddField(TFloat, 'AABB X+', 'Maximal x-coordinate of the level model', []); AddField(TFloat, 'AABB Y+', 'Maximal y-coordinate of the level model', []); AddField(TFloat, 'AABB Z+', 'Maximal z-coordinate of the level model', []); AddField(TUnused, 'Not used', '', [1024]); AddField(TFloat, 'Unknown', 'Unknown; maybe the tolerance', []); end; FDataFields.Update(0, -1); FFileStream.Free; FFileStream := nil; end; end.