ViewVC Help

View File | Revision Log | View Changeset | Root Listing

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

Comparing oup/current/FileClasses/TXAN.pas (file contents):
Revision 234 by alloc, Fri Jun 29 17:23:56 2007 UTC vs.
Revision 236 by alloc, Fri Jul 13 23:15:47 2007 UTC

#	Line 17 | Line 17 | uses
17		ConnectionManager, Math, Classes, TypeDefs, _DataTypes;
18
19		procedure TFile_TXAN.InitDataFields;
20	–	var
21	–	tempi: Integer;
22	–	arrargs: TArrayArgs;
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);
25	>	AddField(TFileID, 'FileID', '', []);
26
27	<	AddField(TLevelID, $04, 'LevelID', '', nil);
27	>	AddField(TLevelID, 'LevelID', '', []);
28
29	<	tempi := 12;
33	<	AddField(TUnused, $08, 'Unused data', '', @tempi);
29	>	AddField(TUnused, 'Unused data', '', [12]);
30
31	<	tempi := 2;
32	<	AddField(TInt, $14, 'Loop speed', '', @tempi);
31	>	AddField(TInt, 'Loop speed', '', [2]);
32	>	AddField(TInt, 'Unknown', '', [2]);
33	>	AddField(TInt, 'Unknown', '', [2]);
34	>	AddField(TUnused, 'Unused', '', [2]);
35
36	<	tempi := 2;
39	<	AddField(TInt, $16, 'Unknown', '', @tempi);
40	<
41	<	tempi := 2;
42	<	AddField(TInt, $18, 'Unknown', '', @tempi);
43	<
44	<	tempi := 2;
45	<	AddField(TUnused, $1A, 'Unused', '', @tempi);
46	<
47	<	arrargs.CounterSize := 2;
48	<	arrargs.BlockLength := 4;
49	<	with TArray(AddField(TArray, $1C, 'AnimTextures array', '', @arrargs)) do
36	>	with TArray(AddField(TArray, 'AnimTextures array', '', [4, 0])) do
37		begin
38	<	AddField(TLinkByID, $00, 'Texture', '', nil);
38	>	AddField(TLinkByID, 'Texture', '', ['*']);
39	>	SetCount;
40		end;
41		end;
42	+	FDataFields.Update(0, -1);
43		FFileStream.Free;
44		FFileStream := nil;
45		end;

Diff Legend

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