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

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