ViewVC Help

View File | Revision Log | View Changeset | Root Listing

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

Comparing oup/current/FileClasses/TXMP.pas (file contents):
Revision 206 by alloc, Sun May 27 23:31:26 2007 UTC vs.
Revision 207 by alloc, Tue May 29 19:39:15 2007 UTC

#	Line 3 | Line 3 | unit TXMP;
3		interface
4
5		uses
6	<	TypeDefs, _DataTypes, _FileTypes;
6	>	TypeDefs, _FileTypes, _DataTypes;
7
8		type
9		TFile_TXMP = class(TFile)
#	Line 16 | Line 16 | type
16		implementation
17
18		uses
19	<	ConnectionManager, Math;
19	>	ConnectionManager, Math, Classes;
20
21		{ TFile_SNDD }
22
#	Line 36 | Line 36 | procedure TFile_TXMP.InitDataFields;
36		var
37		tempi: Integer;
38		temps: String;
39	+	templist: TStringList;
40		begin
41		FDataFields := TBlock.Create(Self, 0, 'Base', '', nil);
42	+	templist := TStringList.Create;
43		with FDataFields do
44		begin
45		AddField(TFileID, $00, 'FileID', '', nil);
46	+
47		AddField(TLevelID, $04, 'LevelID', '', nil);
48	+
49		tempi := 128;
50		AddField(TString, $08, 'FileName', '', @tempi);
51	<	tempi := 4;
52	<	AddField(TInt, $88, 'Flags', '', @tempi);
51	>
52	>	templist.Add('MipMapping enabled');
53	>	templist.Add('unknown');
54	>	templist.Add('U wrapping disabled');
55	>	templist.Add('V wrapping disabled');
56	>	templist.Add('EnvMapped/EnvMap');
57	>	templist.Add('unused');
58	>	templist.Add('Play anim back to back');
59	>	templist.Add('Random anim order + frame time');
60	>	AddField(TBitSet, $88, 'Flags1', '', @templist);
61	>
62	>	templist.Clear;
63	>	templist.Add('Random anim time offset');
64	>	templist.Add('High byte as EnvMap');
65	>	templist.Add('High byte as alpha');
66	>	templist.Add('Different alpha formula');
67	>	templist.Add('Data swapping (always set)');
68	>	templist.Add('used at runtime');
69	>	templist.Add('TXAN looping on/off');
70	>	templist.Add('16 bit blue');
71	>	AddField(TBitSet, $89, 'Flags2', '', @templist);
72	>
73	>	templist.Clear;
74	>	templist.Add('16 bit alpha');
75	>	templist.Add('16 bit red');
76	>	templist.Add('unknown');
77	>	templist.Add('unknown');
78	>	templist.Add('unknown');
79	>	templist.Add('unknown');
80	>	templist.Add('unknown');
81	>	templist.Add('unknown');
82	>	AddField(TBitSet, $8A, 'Flags3', '', @templist);
83	>
84	>	templist.Clear;
85	>	templist.Add('unknown');
86	>	templist.Add('unknown');
87	>	templist.Add('unknown');
88	>	templist.Add('unknown');
89	>	templist.Add('unknown');
90	>	templist.Add('unknown');
91	>	templist.Add('unknown');
92	>	templist.Add('unknown');
93	>	AddField(TBitSet, $8B, 'Flags4', '', @templist);
94	>
95		tempi := 2;
96		AddField(TInt, $8C, 'Width', '', @tempi);
97	+
98		tempi := 2;
99		AddField(TInt, $8E, 'Height', '', @tempi);
100	+
101		tempi := 4;
102		AddField(TInt, $90, 'StoreType', '', @tempi);
103	<	temps := 'TXAN';
103	>
104	>	temps := '*';
105		AddField(TLinkByID, $94, 'TXAN', '', @temps);
106	+
107		temps := 'TXMP';
108		AddField(TLinkByID, $98, 'TXMP', '', @temps);
109	+
110		AddField(TRawLink, $9C, 'RawLink', '', nil);
111	+
112		AddField(TRawLink, $A0, 'SepLink', '', nil);
113	+
114		tempi := $1C;
115		AddField(TUnused, $A4, 'Unused', '', @tempi);
116		end;
117	+	templist.Free;
118		end;
119
120

Diff Legend

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