Changeset 236 for oup/current/FileClasses/TXAN.pas

Timestamp:

Jul 14, 2007, 1:15:47 AM (17 years ago)

Author:

alloc

Message:

 

File:

• oup/current/FileClasses/TXAN.pas (modified) (1 diff)

oup/current/FileClasses/TXAN.pas

@@ -18 +18 @@
 
 procedure TFile_TXAN.InitDataFields;
-var
-  tempi: Integer;
-  arrargs: TArrayArgs;
 begin
   inherited;
-  FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil);
+  FDataFields := TBlock.Create(Self, nil, 'Base', '', []);
   with FDataFields do
   begin
-    AddField(TFileID, $00, 'FileID', '', nil);
+    AddField(TFileID, 'FileID', '', []);
 
-    AddField(TLevelID, $04, 'LevelID', '', nil);
+    AddField(TLevelID, 'LevelID', '', []);
 
-    tempi := 12;
-    AddField(TUnused, $08, 'Unused data', '', @tempi);
+    AddField(TUnused, 'Unused data', '', [12]);
 
-    tempi := 2;
-    AddField(TInt, $14, 'Loop speed', '', @tempi);
+    AddField(TInt, 'Loop speed', '', [2]);
+    AddField(TInt, 'Unknown', '', [2]);
+    AddField(TInt, 'Unknown', '', [2]);
+    AddField(TUnused, 'Unused', '', [2]);
 
-    tempi := 2;
-    AddField(TInt, $16, 'Unknown', '', @tempi);
-
-    tempi := 2;
-    AddField(TInt, $18, 'Unknown', '', @tempi);
-
-    tempi := 2;
-    AddField(TUnused, $1A, 'Unused', '', @tempi);
-
-    arrargs.CounterSize := 2;
-    arrargs.BlockLength := 4;
-    with TArray(AddField(TArray, $1C, 'AnimTextures array', '', @arrargs)) do
+    with TArray(AddField(TArray, 'AnimTextures array', '', [4, 0])) do
     begin
-      AddField(TLinkByID, $00, 'Texture', '', nil);
+      AddField(TLinkByID, 'Texture', '', ['*']);
+      SetCount;
     end;
   end;
+  FDataFields.Update(0, -1);
   FFileStream.Free;
   FFileStream := nil;