source: oup/current/FileClasses/TXAN.pas@ 883

Last change on this file since 883 was 248, checked in by alloc, 17 years ago
File size: 964 bytes
Line 
1unit TXAN;
2
3interface
4
5uses
6 _FileTypes;
7
8type
9 TFile_TXAN = class(TResource)
10 public
11 procedure InitDataFields; override;
12 end;
13
14implementation
15
16uses
17 ConnectionManager, Math, Classes, TypeDefs, _DataTypes;
18
19procedure TFile_TXAN.InitDataFields;
20begin
21 inherited;
22 FDataFields := TBlock.Create(Self, nil, 'Base', '', []);
23 with FDataFields do
24 begin
25 AddField(TResourceID, 'FileID', '', []);
26
27 AddField(TLevelID, 'LevelID', '', []);
28
29 AddField(TUnused, 'Unused data', '', [12]);
30
31 AddField(TInt, 'Loop speed', '', [2]);
32 AddField(TInt, 'Unknown', '', [2]);
33 AddField(TInt, 'Unknown', '', [2]);
34 AddField(TUnused, 'Unused', '', [2]);
35
36 with TArray(AddField(TArray, 'AnimTextures array', '', [4])) do
37 begin
38 AddField(TLinkByID, 'Texture', '', ['TXMP']);
39 SetCount;
40 end;
41 end;
42 FDataFields.Update(0, -1);
43 FFileStream.Free;
44 FFileStream := nil;
45end;
46
47
48end.
Note: See TracBrowser for help on using the repository browser.