ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/current/FileClasses/AKVA.pas

Comparing oup/current/FileClasses/AKVA.pas (file contents):
Revision 215 by alloc, Tue Jun 12 20:31:54 2007 UTC vs.
Revision 237 by alloc, Sat Jul 14 14:18:23 2007 UTC

#	Line 17 | Line 17 | uses
17		ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls;
18
19		procedure TFile_AKVA.InitDataFields;
20	–	var
21	–	tempi: Integer;
20		begin
21		inherited;
22	<	FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil);
22	>	FDataFields := TBlock.Create(Self, nil, 'Base', '', []);
23		with FDataFields do
24		begin
25	<	AddField(TFileID, $00, 'FileID', '', nil);
26	<	AddField(TLevelID, $04, 'LevelID', '', nil);
25	>	AddField(TFileID, 'FileID', '', []);
26	>	AddField(TLevelID, 'LevelID', '', []);
27	>
28	>	AddField(TUnused, 'Unused data', '', [20]);
29	>
30	>	with TArray(Addfield(TArray, 'BNV nodes', '', [4])) do
31	>	begin
32	>	AddField(TInt, 'AKBP index', 'BSP tree for this BNV', [4]);
33	>	AddField(TInt, 'AKVA index', 'index of this BNV', [4]);
34	>	AddField(TInt, 'AKBA index', '"side" range start', [4]);
35	>	AddField(TInt, 'AKBA index', '"side" range end', [4]);
36	>	AddField(TInt, 'AKVA index', 'first child BNV', [4]);
37	>	AddField(TInt, 'AKVA index', 'next sibling BNV', [4]);
38	>	AddField(TInt, 'Unknown', 'always -1', [4]);
39	>	with TBlock(AddField(TBlock, 'RAW link', '', [])) do
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', []);
44	>	AddField(TInt, 'RAW size', 'size of grid data', [4]);
45	>	AddField(TFloat, 'Tile size', 'usually 4 world units', []);
46	>	end;
47	>	AddField(TFloat, 'AABB X-', 'BNV AABB', []);
48	>	AddField(TFloat, 'AABB Y-', 'BNV AABB', []);
49	>	AddField(TFloat, 'AABB Z-', 'BNV AABB', []);
50	>	AddField(TFloat, 'AABB X+', 'BNV AABB', []);
51	>	AddField(TFloat, 'AABB Y+', 'BNV AABB', []);
52	>	AddField(TFloat, 'AABB Z+', 'BNV AABB', []);
53	>	AddField(TInt, 'Unknown', 'always -2', [2]);
54	>	AddField(TInt, 'Unknown', 'always -2', [2]);
55	>	AddField(TInt, 'AKVA index', 'index of this BNV again', [4]);
56	>	AddField(TInt, 'Unknown', 'always 0', [4]);
57	>	AddField(TInt, 'Unknown', 'always 0', [4]);
58	>	AddField(TInt, 'Unknown', 'always 0 (was a RAW offset once?)', [4]);
59	>	AddField(TBitSet, 'Bitset', '', ['sloped', 'unknown', 'unknown, always set',
60	>	'unknown', 'unknown, "no raw data"', 'unknown', 'unknown', 'unknown']);
61	>	AddField(TBitSet, 'Bitset', '', ['unknown', 'unknown', 'unknown', 'unknown',
62	>	'unknown', 'unknown', 'unknown', 'unknown']);
63	>	AddField(TBitSet, 'Bitset', '', ['unknown', 'unknown', 'unknown', 'unknown',
64	>	'unknown', 'unknown', 'unknown', 'unknown']);
65	>	AddField(TBitSet, 'Bitset', '', ['unknown', 'unknown', 'unknown', 'unknown',
66	>	'unknown', 'unknown', 'unknown', 'unknown']);
67	>	AddField(TFloat, 'Plane X', 'floor and ceiling normal', []);
68	>	AddField(TFloat, 'Plane Y', 'floor and ceiling normal', []);
69	>	AddField(TFloat, 'Plane Z', 'floor and ceiling normal', []);
70	>	AddField(TFloat, 'Plane D', 'distance of floor to origin', []);
71	>	AddField(TFloat, 'Plane D', 'distance of ceiling to origin', []);
72	>	SetCount;
73	>	end;
74		end;
75	+	FDataFields.Update(0, -1);
76	+	FFileStream.Free;
77	+	FFileStream := nil;
78		end;
79
80
81		end.
34	–

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines (old)
>	Changed lines (new)