Ignore:
Timestamp:
Jul 14, 2007, 4:18:23 PM (17 years ago)
Author:
alloc
Message:
 
Location:
oup/current/FileClasses
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • oup/current/FileClasses/AKVA.pas

    r233 r237  
    1818
    1919procedure TFile_AKVA.InitDataFields;
    20 var
    21   tempi: Integer;
    2220begin
    2321  inherited;
    24   FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil);
     22  FDataFields := TBlock.Create(Self, nil, 'Base', '', []);
    2523  with FDataFields do
    2624  begin
    27     AddField(TFileID, $00, 'FileID', '', nil);
    28     AddField(TLevelID, $04, 'LevelID', '', nil);
     25    AddField(TFileID, 'FileID', '', []);
     26    AddField(TLevelID, 'LevelID', '', []);
     27
     28    AddField(TUnused, 'Unused data', '', [20]);
     29
     30    with TArray(Addfield(TArray, 'BNV nodes', '', [4])) do
     31    begin
     32      AddField(TInt, 'AKBP index', 'BSP tree for this BNV', [4]);
     33      AddField(TInt, 'AKVA index', 'index of this BNV', [4]);
     34      AddField(TInt, 'AKBA index', '"side" range start', [4]);
     35      AddField(TInt, 'AKBA index', '"side" range end', [4]);
     36      AddField(TInt, 'AKVA index', 'first child BNV', [4]);
     37      AddField(TInt, 'AKVA index', 'next sibling BNV', [4]);
     38      AddField(TInt, 'Unknown', 'always -1', [4]);
     39      with TBlock(AddField(TBlock, 'RAW link', '', [])) do
     40      begin
     41        AddField(TInt, 'X-tiles', 'size of pathfinding grid', [4]);
     42        AddField(TInt, 'Z-tiles', 'size of pathfinding grid', [4]);
     43        AddField(TRawLink, 'RAW offset', 'offset of grid data', []);
     44        AddField(TInt, 'RAW size', 'size of grid data', [4]);
     45        AddField(TFloat, 'Tile size', 'usually 4 world units', []);
     46      end;
     47      AddField(TFloat, 'AABB X-', 'BNV AABB', []);
     48      AddField(TFloat, 'AABB Y-', 'BNV AABB', []);
     49      AddField(TFloat, 'AABB Z-', 'BNV AABB', []);
     50      AddField(TFloat, 'AABB X+', 'BNV AABB', []);
     51      AddField(TFloat, 'AABB Y+', 'BNV AABB', []);
     52      AddField(TFloat, 'AABB Z+', 'BNV AABB', []);
     53      AddField(TInt, 'Unknown', 'always -2', [2]);
     54      AddField(TInt, 'Unknown', 'always -2', [2]);
     55      AddField(TInt, 'AKVA index', 'index of this BNV again', [4]);
     56      AddField(TInt, 'Unknown', 'always 0', [4]);
     57      AddField(TInt, 'Unknown', 'always 0', [4]);
     58      AddField(TInt, 'Unknown', 'always 0 (was a RAW offset once?)', [4]);
     59      AddField(TBitSet, 'Bitset', '', ['sloped', 'unknown', 'unknown, always set',
     60          'unknown', 'unknown, "no raw data"', 'unknown', 'unknown', 'unknown']);
     61      AddField(TBitSet, 'Bitset', '', ['unknown', 'unknown', 'unknown', 'unknown',
     62          'unknown', 'unknown', 'unknown', 'unknown']);
     63      AddField(TBitSet, 'Bitset', '', ['unknown', 'unknown', 'unknown', 'unknown',
     64          'unknown', 'unknown', 'unknown', 'unknown']);
     65      AddField(TBitSet, 'Bitset', '', ['unknown', 'unknown', 'unknown', 'unknown',
     66          'unknown', 'unknown', 'unknown', 'unknown']);
     67      AddField(TFloat, 'Plane X', 'floor and ceiling normal', []);
     68      AddField(TFloat, 'Plane Y', 'floor and ceiling normal', []);
     69      AddField(TFloat, 'Plane Z', 'floor and ceiling normal', []);
     70      AddField(TFloat, 'Plane D', 'distance of floor to origin', []);
     71      AddField(TFloat, 'Plane D', 'distance of ceiling to origin', []);
     72      SetCount;
     73    end;
    2974  end;
     75  FDataFields.Update(0, -1);
    3076  FFileStream.Free;
    3177  FFileStream := nil;

  • oup/current/FileClasses/TXAN.pas

    r236 r237  
    3434    AddField(TUnused, 'Unused', '', [2]);
    3535
    36     with TArray(AddField(TArray, 'AnimTextures array', '', [4, 0])) do
     36    with TArray(AddField(TArray, 'AnimTextures array', '', [4])) do
    3737    begin
    3838      AddField(TLinkByID, 'Texture', '', ['*']);

  • oup/current/FileClasses/_DataTypes.pas

    r236 r237  
    2121      FParentBlock: TContainer;
    2222      FChanged: Boolean;
     23      FExtraArgs: array of TVarRec;
    2324      function GetValueAsString: String; virtual;
    2425    public
    … …  
    3940  TContainer = class(TDataField)
    4041    public
     42      function AddField(fieldtype: TFieldType; Name, Description: String;
     43          ExtraArgs: array of const): TDataField; virtual; abstract;
    4144      procedure UpdateSize; virtual; abstract;
    4245  end;
    … …  
    5659
    5760      function AddField(fieldtype: TFieldType; Name, Description: String;
    58           ExtraArgs: array of const): TDataField;
     61          ExtraArgs: array of const): TDataField; override;
    5962      procedure UpdateSize; override;
    6063  end;
    … …  
    6770    public
    6871      // ExtraArgs: Pointer auf Integer: Bytes of TInt
     72      constructor Create(ParentFile: TObject; ParentBlock: TContainer;
     73          Name, Description: String; ExtraArgs: array of const); override;
     74      procedure Update(Offset, Length: Integer); override;
     75  end;
     76
     77
     78  TFloat = class(TDataField)
     79    private
     80      FFloat: Single;
     81      function GetValueAsString: String; override;
     82    public
     83      // ExtraArgs: none
    6984      constructor Create(ParentFile: TObject; ParentBlock: TContainer;
    7085          Name, Description: String; ExtraArgs: array of const); override;
    … …  
    147162      function GetFieldByOffset(Offset: Integer): TDataField;
    148163    public
    149       // ExtraArgs: Pointer auf 2 Integer: CounterSize+Count (packed record...)
     164      // ExtraArgs:
     165      // 1. Integer: CounterSize (if 0 then 2. integer is required)
     166      // 2. Integer: BlockCount (for fixed-size arrays)
    150167      constructor Create(ParentFile: TObject; ParentBlock: TContainer;
    151168          Name, Description: String; ExtraArgs: array of const); override;
    … …  
    153170
    154171      function AddField(fieldtype: TFieldType; Name, Description: String;
    155           ExtraArgs: array of const): TDataField;
     172          ExtraArgs: array of const): TDataField; override;
    156173      procedure SetCount; overload;
    157174      procedure SetCount(n: Integer); overload;
    … …  
    188205
    189206uses
    190   SysUtils, Dialogs, _FileTypes, ConnectionManager;
     207  SysUtils, Dialogs, _FileTypes, ConnectionManager, StrUtils;
    191208
    192209
    … …  
    197214constructor TDataField.Create(ParentFile: TObject; ParentBlock: TContainer;
    198215    Name, Description: String; ExtraArgs: array of const);
     216var
     217  i: Integer;
    199218begin
    200219  if Assigned(ParentBlock) then
    … …  
    206225  FParentFile := ParentFile;
    207226  FParentBlock := ParentBlock;
     227  SetLength(FExtraArgs, Length(ExtraArgs));
     228  if Length(ExtraArgs) > 0 then
     229    for i := 0 to High(ExtraArgs) do
     230      FExtraArgs[i] := ExtraArgs[i];
    208231  FConnectionID := TFile(ParentFile).ConnectionID;
    209232end;
    … …  
    300323constructor TArray.Create(ParentFile: TObject; ParentBlock: TContainer;
    301324    Name, Description: String; ExtraArgs: array of const);
    302 var
    303   i: Integer;
    304   fstream: TMemoryStream;
    305325begin
    306326  inherited Create(ParentFile, ParentBlock, Name, Description, ExtraArgs);
    307327  FCounterSize := ExtraArgs[0].VInteger;
    308   FBlockCount  := ExtraArgs[1].VInteger;
     328  if Length(ExtraArgs) = 2 then
     329    FBlockCount := ExtraArgs[1].VInteger
     330  else
     331    FBlockCount := 0;
     332  FTemplate := TBlock.Create(ParentFile, Self, '', '', []);
     333end;
     334
     335function TArray.GetChildCount: Integer;
     336begin
     337  Result := Length(FDataFields);
     338end;
     339
     340function TArray.GetChild(ID: Integer): TTreeElement;
     341begin
     342  Result := FDataFields[ID];
     343end;
     344
     345function TArray.GetFieldByOffset(Offset: Integer): TDataField;
     346begin
     347  Exit;
     348end;
     349
     350procedure TArray.SetCount;
     351var
     352  fstream: TMemoryStream;
     353  arr_index: Integer;
     354  i: Integer;
     355
     356  procedure Add(DestBlock, SrcBlock: TBlock);
     357  var
     358    fid: Integer;
     359    field: TDataField;
     360    result: TDataField;
     361  begin
     362    if Length(SrcBlock.FDataFields) > 0 then
     363    begin
     364      for fid := 0 to High(SrcBlock.FDataFields) do
     365      begin
     366        field := SrcBlock.FDataFields[fid];
     367        result := DestBlock.AddField(TFieldType(field.ClassType), field.Name, field.Description, field.FExtraArgs);
     368        if result is TBlock then
     369          Add(TBlock(result), TBlock(field));
     370      end;
     371    end;
     372  end;
     373
     374begin
    309375  if FCounterSize > 0 then
    310376  begin
    311     fstream := TFile(ParentFile).FileStream;
     377    fstream := TFile(FParentFile).FileStream;
    312378    fstream.Seek(Offset, soFromBeginning);
    313379    FBlockCount := 0;
    314380    fstream.Read(FBlockCount, FCounterSize);
    315381  end;
    316   FTemplate := TBlock.Create(ParentFile, Self, '', '', []);
    317 end;
    318 
    319 function TArray.GetChildCount: Integer;
    320 begin
    321   Result := Length(FDataFields);
    322 end;
    323 
    324 function TArray.GetChild(ID: Integer): TTreeElement;
    325 begin
    326   Result := FDataFields[ID];
    327 end;
    328 
    329 function TArray.GetFieldByOffset(Offset: Integer): TDataField;
    330 begin
    331   Exit;
    332 end;
    333 
    334 procedure TArray.SetCount;
    335 var
    336   fid: Integer;
    337   arr_index: Integer;
    338   field: TDataField;
    339 begin
    340382  FDataLength := FCounterSize;
    341383  if FBlockCount > 0 then
    … …  
    345387      SetLength(FDataFields, arr_index + 1);
    346388      FDataFields[arr_index] := TBlock.Create(FParentFile, Self,
    347           FName + '[' + IntToStr(arr_index) + ']', '', []);
    348       if Length(FTemplate.FDataFields) > 0 then
    349       begin
    350         for fid := 0 to High(FTemplate.FDataFields) do
    351         begin
    352           field := FTemplate.FDataFields[fid];
    353           FDataFields[arr_index].AddField(TFieldType(field.ClassType), field.Name, field.Description, []);
    354         end;
    355       end;
     389          '[' + IntToStr(arr_index) + ']', '', []);
     390      Add(FDataFields[arr_index], FTemplate);
     391    end;
     392  end;
     393  if Pos('[', FName) > 0 then
     394  begin
     395    if Pos(']', FName) = Length(FName) then
     396    begin
     397      i := Pos('[', ReverseString(FName));
     398      FName := MidStr(FName, 1, Length(FName) - i);
    356399    end;
    357400  end;
    … …  
    361404
    362405procedure TArray.SetCount(n: Integer);
    363 begin
    364   FParentBlock.UpdateSize;
     406var
     407  fstream: TMemoryStream;
     408begin
     409  FBlockCount := n;
     410  if FCounterSize > 0 then
     411  begin
     412    fstream := TFile(FParentFile).FileStream;
     413    fstream.Seek(Offset, soFromBeginning);
     414    fstream.Write(FBlockCount, FCounterSize);
     415  end;
     416  SetCount;
    365417end;
    366418
    … …  
    680732end;
    681733
     734
     735
     736{ TFloat }
     737
     738constructor TFloat.Create(ParentFile: TObject; ParentBlock: TContainer; Name,
     739  Description: String; ExtraArgs: array of const);
     740begin
     741  inherited Create(ParentFile, ParentBlock, Name, Description, ExtraArgs);
     742  FDataLength := 4;
     743  FFloat := 0;
     744end;
     745
     746function TFloat.GetValueAsString: String;
     747begin
     748  Result := FloatToStr(FFloat);
     749end;
     750
     751procedure TFloat.Update(Offset, Length: Integer);
     752var
     753  fstream: TMemoryStream;
     754begin
     755  fstream := TFile(FParentFile).FileStream;
     756  fstream.Seek(FOffset, soFromBeginning);
     757  fstream.Read(FFloat, FDataLength);
     758end;
     759
     760
    682761end.

  • oup/current/FileClasses/_Extensions.pas

    r233 r237  
    1717      constructor Create(ConnectionID: Integer; Ext: String); virtual;
    1818      procedure InitList;
     19      property Ext: String read FExt;
    1920  end;
    2021
    … …  
    4849function TExtension.GetCaption: String;
    4950begin
    50   Result := FExt;
     51  Result := FExt + '[' + IntToStr(GetChildCount) + ']';
    5152end;
    5253
    … …  
    100101function TExtensions.GetChild(ID: Integer): TTreeElement;
    101102begin
     103  FExtensions[ID].InitList;
    102104  Result := FExtensions[ID];
    103105end;
    … …  
    141143  if Length(FExtensions) > 0 then
    142144    for i := 0 to High(FExtensions) do
    143       if FExtensions[i].GetCaption = Ext then
     145      if FExtensions[i].Ext = Ext then
    144146      begin
    145147        Result := FExtensions[i];

  • oup/current/FileClasses/_FileTypes.pas

    r233 r237  
    1212      function GetChild(ID: Integer): TTreeElement; override;
    1313      function GetCaption: String; override;
    14   private
    15     FConnectionID: Integer;
    1614    protected
    1715      FFileInfo: TFileInfo;

  • oup/current/FileClasses/_MetaTypes.pas

    r236 r237  
    55uses
    66  _FileTypes, _EmptyFile, _Unlinked, _DataTypes, _Extensions, _TreeElement,
    7   TXAN, TXMP;
     7  AKVA, TXAN, TXMP;
    88//  ABNA, AGDB, AGQC, AGQG, AGQM, AGQR, AISA, AITR, AIWA, AKAA, AKBA, AKBP, AKDA,
    99//  AKEV, AKOT, AKVA, BINA, CBPI, CBPM, CONS, CRSA, DOOR, DPge, EDIA, ENVP, FILM,
    … …  
    3232
    3333const
    34   FileDescs: array[0..1] of TFileDesc = (
     34  FileDescs: array[0..2] of TFileDesc = (
     35    (ext: 'AKVA'; ftype: TFile_AKVA),
    3536    (ext: 'TXAN'; ftype: TFile_TXAN),
    3637    (ext: 'TXMP'; ftype: TFile_TXMP)
Note: See TracChangeset for help on using the changeset viewer.