current/FileClasses/TXAN.pas

unit TXAN;

interface

uses
  _FileTypes;

type
  TFile_TXAN = class(TFile)
    public
      procedure InitDataFields; override;
  end;

implementation

uses
  ConnectionManager, Math, Classes, TypeDefs, _DataTypes;

procedure TFile_TXAN.InitDataFields;
begin
  inherited;
  FDataFields := TBlock.Create(Self, nil, 'Base', '', []);
  with FDataFields do
  begin
    AddField(TFileID, 'FileID', '', []);

    AddField(TLevelID, 'LevelID', '', []);

    AddField(TUnused, 'Unused data', '', [12]);

    AddField(TInt, 'Loop speed', '', [2]);
    AddField(TInt, 'Unknown', '', [2]);
    AddField(TInt, 'Unknown', '', [2]);
    AddField(TUnused, 'Unused', '', [2]);

    with TArray(AddField(TArray, 'AnimTextures array', '', [4])) do
    begin
      AddField(TLinkByID, 'Texture', '', ['*']);
      SetCount;
    end;
  end;
  FDataFields.Update(0, -1);
  FFileStream.Free;
  FFileStream := nil;
end;


end.
Revision:	237
Committed:	Sat Jul 14 14:18:23 2007 UTC (18 years, 3 months ago) by alloc
Content type:	text/x-pascal
File size:	953 byte(s)
Log Message:
#	Content
1	unit TXAN;
2
3	interface
4
5	uses
6	_FileTypes;
7
8	type
9	TFile_TXAN = class(TFile)
10	public
11	procedure InitDataFields; override;
12	end;
13
14	implementation
15
16	uses
17	ConnectionManager, Math, Classes, TypeDefs, _DataTypes;
18
19	procedure TFile_TXAN.InitDataFields;
20	begin
21	inherited;
22	FDataFields := TBlock.Create(Self, nil, 'Base', '', []);
23	with FDataFields do
24	begin
25	AddField(TFileID, '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', '', ['*']);
39	SetCount;
40	end;
41	end;
42	FDataFields.Update(0, -1);
43	FFileStream.Free;
44	FFileStream := nil;
45	end;
46
47
48	end.