--- oup/current/FileClasses/AKEV.pas	2007/06/12 20:31:54	215
+++ oup/current/FileClasses/AKEV.pas	2007/08/18 15:51:42	245
@@ -17,18 +17,52 @@ uses
   ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls;
 
 procedure TFile_AKEV.InitDataFields;
-var
-  tempi: Integer;
 begin
   inherited;
-  FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil);
+  FDataFields := TBlock.Create(Self, nil, 'Base', '', []);
   with FDataFields do
   begin
-    AddField(TFileID, $00, 'FileID', '', nil);
-    AddField(TLevelID, $04, 'LevelID', '', nil);
+    AddField(TFileID, '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, 'Neg. x-coordinate', 'Maximal negative x-coordinate of the level model', []);
+    AddField(TFloat, 'Neg. y-coordinate', 'Maximal negative y-coordinate of the level model', []);
+    AddField(TFloat, 'Neg. z-coordinate', 'Maximal negative z-coordinate of the level model', []);
+
+    AddField(TFloat, 'Pos. x-coordinate', 'Maximal positive x-coordinate of the level model', []);
+    AddField(TFloat, 'Pos. y-coordinate', 'Maximal positive y-coordinate of the level model', []);
+    AddField(TFloat, 'Pos. z-coordinate', 'Maximal positive 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.
-