Index: /oup/current/FileClasses/ABNA.pas =================================================================== --- /oup/current/FileClasses/ABNA.pas (revision 215) +++ /oup/current/FileClasses/ABNA.pas (revision 215) @@ -0,0 +1,34 @@ +unit ABNA; + +interface + +uses + _FileTypes; + +type + TFile_ABNA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_ABNA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/AGDB.pas =================================================================== --- /oup/current/FileClasses/AGDB.pas (revision 215) +++ /oup/current/FileClasses/AGDB.pas (revision 215) @@ -0,0 +1,34 @@ +unit AGDB; + +interface + +uses + _FileTypes; + +type + TFile_AGDB = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_AGDB.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/AGQC.pas =================================================================== --- /oup/current/FileClasses/AGQC.pas (revision 215) +++ /oup/current/FileClasses/AGQC.pas (revision 215) @@ -0,0 +1,34 @@ +unit AGQC; + +interface + +uses + _FileTypes; + +type + TFile_AGQC = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_AGQC.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/AGQG.pas =================================================================== --- /oup/current/FileClasses/AGQG.pas (revision 215) +++ /oup/current/FileClasses/AGQG.pas (revision 215) @@ -0,0 +1,34 @@ +unit AGQG; + +interface + +uses + _FileTypes; + +type + TFile_AGQG = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_AGQG.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/AGQM.pas =================================================================== --- /oup/current/FileClasses/AGQM.pas (revision 215) +++ /oup/current/FileClasses/AGQM.pas (revision 215) @@ -0,0 +1,34 @@ +unit AGQM; + +interface + +uses + _FileTypes; + +type + TFile_AGQM = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_AGQM.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/AGQR.pas =================================================================== --- /oup/current/FileClasses/AGQR.pas (revision 215) +++ /oup/current/FileClasses/AGQR.pas (revision 215) @@ -0,0 +1,34 @@ +unit AGQR; + +interface + +uses + _FileTypes; + +type + TFile_AGQR = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_AGQR.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/AISA.pas =================================================================== --- /oup/current/FileClasses/AISA.pas (revision 215) +++ /oup/current/FileClasses/AISA.pas (revision 215) @@ -0,0 +1,34 @@ +unit AISA; + +interface + +uses + _FileTypes; + +type + TFile_AISA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_AISA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/AITR.pas =================================================================== --- /oup/current/FileClasses/AITR.pas (revision 215) +++ /oup/current/FileClasses/AITR.pas (revision 215) @@ -0,0 +1,34 @@ +unit AITR; + +interface + +uses + _FileTypes; + +type + TFile_AITR = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_AITR.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/AIWA.pas =================================================================== --- /oup/current/FileClasses/AIWA.pas (revision 215) +++ /oup/current/FileClasses/AIWA.pas (revision 215) @@ -0,0 +1,34 @@ +unit AIWA; + +interface + +uses + _FileTypes; + +type + TFile_AIWA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_AIWA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/AKAA.pas =================================================================== --- /oup/current/FileClasses/AKAA.pas (revision 215) +++ /oup/current/FileClasses/AKAA.pas (revision 215) @@ -0,0 +1,34 @@ +unit AKAA; + +interface + +uses + _FileTypes; + +type + TFile_AKAA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_AKAA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/AKBA.pas =================================================================== --- /oup/current/FileClasses/AKBA.pas (revision 215) +++ /oup/current/FileClasses/AKBA.pas (revision 215) @@ -0,0 +1,34 @@ +unit AKBA; + +interface + +uses + _FileTypes; + +type + TFile_AKBA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_AKBA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/AKBP.pas =================================================================== --- /oup/current/FileClasses/AKBP.pas (revision 215) +++ /oup/current/FileClasses/AKBP.pas (revision 215) @@ -0,0 +1,34 @@ +unit AKBP; + +interface + +uses + _FileTypes; + +type + TFile_AKBP = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_AKBP.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/AKDA.pas =================================================================== --- /oup/current/FileClasses/AKDA.pas (revision 215) +++ /oup/current/FileClasses/AKDA.pas (revision 215) @@ -0,0 +1,34 @@ +unit AKDA; + +interface + +uses + _FileTypes; + +type + TFile_AKDA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_AKDA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/AKEV.pas =================================================================== --- /oup/current/FileClasses/AKEV.pas (revision 215) +++ /oup/current/FileClasses/AKEV.pas (revision 215) @@ -0,0 +1,34 @@ +unit AKEV; + +interface + +uses + _FileTypes; + +type + TFile_AKEV = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_AKEV.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/AKOT.pas =================================================================== --- /oup/current/FileClasses/AKOT.pas (revision 215) +++ /oup/current/FileClasses/AKOT.pas (revision 215) @@ -0,0 +1,34 @@ +unit AKOT; + +interface + +uses + _FileTypes; + +type + TFile_AKOT = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_AKOT.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/AKVA.pas =================================================================== --- /oup/current/FileClasses/AKVA.pas (revision 215) +++ /oup/current/FileClasses/AKVA.pas (revision 215) @@ -0,0 +1,34 @@ +unit AKVA; + +interface + +uses + _FileTypes; + +type + TFile_AKVA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_AKVA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/BINA.pas =================================================================== --- /oup/current/FileClasses/BINA.pas (revision 215) +++ /oup/current/FileClasses/BINA.pas (revision 215) @@ -0,0 +1,34 @@ +unit BINA; + +interface + +uses + _FileTypes; + +type + TFile_BINA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_BINA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/CBPI.pas =================================================================== --- /oup/current/FileClasses/CBPI.pas (revision 215) +++ /oup/current/FileClasses/CBPI.pas (revision 215) @@ -0,0 +1,34 @@ +unit CBPI; + +interface + +uses + _FileTypes; + +type + TFile_CBPI = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_CBPI.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/CBPM.pas =================================================================== --- /oup/current/FileClasses/CBPM.pas (revision 215) +++ /oup/current/FileClasses/CBPM.pas (revision 215) @@ -0,0 +1,34 @@ +unit CBPM; + +interface + +uses + _FileTypes; + +type + TFile_CBPM = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_CBPM.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/CONS.pas =================================================================== --- /oup/current/FileClasses/CONS.pas (revision 215) +++ /oup/current/FileClasses/CONS.pas (revision 215) @@ -0,0 +1,34 @@ +unit CONS; + +interface + +uses + _FileTypes; + +type + TFile_CONS = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_CONS.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/CRSA.pas =================================================================== --- /oup/current/FileClasses/CRSA.pas (revision 215) +++ /oup/current/FileClasses/CRSA.pas (revision 215) @@ -0,0 +1,34 @@ +unit CRSA; + +interface + +uses + _FileTypes; + +type + TFile_CRSA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_CRSA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/DOOR.pas =================================================================== --- /oup/current/FileClasses/DOOR.pas (revision 215) +++ /oup/current/FileClasses/DOOR.pas (revision 215) @@ -0,0 +1,34 @@ +unit DOOR; + +interface + +uses + _FileTypes; + +type + TFile_DOOR = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_DOOR.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/DPge.pas =================================================================== --- /oup/current/FileClasses/DPge.pas (revision 215) +++ /oup/current/FileClasses/DPge.pas (revision 215) @@ -0,0 +1,34 @@ +unit DPge; + +interface + +uses + _FileTypes; + +type + TFile_DPge = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_DPge.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/EDIA.pas =================================================================== --- /oup/current/FileClasses/EDIA.pas (revision 215) +++ /oup/current/FileClasses/EDIA.pas (revision 215) @@ -0,0 +1,34 @@ +unit EDIA; + +interface + +uses + _FileTypes; + +type + TFile_EDIA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_EDIA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/ENVP.pas =================================================================== --- /oup/current/FileClasses/ENVP.pas (revision 215) +++ /oup/current/FileClasses/ENVP.pas (revision 215) @@ -0,0 +1,34 @@ +unit ENVP; + +interface + +uses + _FileTypes; + +type + TFile_ENVP = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_ENVP.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/FILM.pas =================================================================== --- /oup/current/FileClasses/FILM.pas (revision 215) +++ /oup/current/FileClasses/FILM.pas (revision 215) @@ -0,0 +1,34 @@ +unit FILM; + +interface + +uses + _FileTypes; + +type + TFile_FILM = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_FILM.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/FXLR.pas =================================================================== --- /oup/current/FileClasses/FXLR.pas (revision 215) +++ /oup/current/FileClasses/FXLR.pas (revision 215) @@ -0,0 +1,34 @@ +unit FXLR; + +interface + +uses + _FileTypes; + +type + TFile_FXLR = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_FXLR.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/GMAN.pas =================================================================== --- /oup/current/FileClasses/GMAN.pas (revision 215) +++ /oup/current/FileClasses/GMAN.pas (revision 215) @@ -0,0 +1,34 @@ +unit GMAN; + +interface + +uses + _FileTypes; + +type + TFile_GMAN = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_GMAN.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/HPge.pas =================================================================== --- /oup/current/FileClasses/HPge.pas (revision 215) +++ /oup/current/FileClasses/HPge.pas (revision 215) @@ -0,0 +1,34 @@ +unit HPge; + +interface + +uses + _FileTypes; + +type + TFile_HPge = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_HPge.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/IDXA.pas =================================================================== --- /oup/current/FileClasses/IDXA.pas (revision 215) +++ /oup/current/FileClasses/IDXA.pas (revision 215) @@ -0,0 +1,34 @@ +unit IDXA; + +interface + +uses + _FileTypes; + +type + TFile_IDXA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_IDXA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/IGHH.pas =================================================================== --- /oup/current/FileClasses/IGHH.pas (revision 215) +++ /oup/current/FileClasses/IGHH.pas (revision 215) @@ -0,0 +1,34 @@ +unit IGHH; + +interface + +uses + _FileTypes; + +type + TFile_IGHH = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_IGHH.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/IGPA.pas =================================================================== --- /oup/current/FileClasses/IGPA.pas (revision 215) +++ /oup/current/FileClasses/IGPA.pas (revision 215) @@ -0,0 +1,34 @@ +unit IGPA; + +interface + +uses + _FileTypes; + +type + TFile_IGPA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_IGPA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/IGPG.pas =================================================================== --- /oup/current/FileClasses/IGPG.pas (revision 215) +++ /oup/current/FileClasses/IGPG.pas (revision 215) @@ -0,0 +1,34 @@ +unit IGPG; + +interface + +uses + _FileTypes; + +type + TFile_IGPG = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_IGPG.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/IGSA.pas =================================================================== --- /oup/current/FileClasses/IGSA.pas (revision 215) +++ /oup/current/FileClasses/IGSA.pas (revision 215) @@ -0,0 +1,34 @@ +unit IGSA; + +interface + +uses + _FileTypes; + +type + TFile_IGSA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_IGSA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/IGSt.pas =================================================================== --- /oup/current/FileClasses/IGSt.pas (revision 215) +++ /oup/current/FileClasses/IGSt.pas (revision 215) @@ -0,0 +1,34 @@ +unit IGSt; + +interface + +uses + _FileTypes; + +type + TFile_IGSt = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_IGSt.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/IPge.pas =================================================================== --- /oup/current/FileClasses/IPge.pas (revision 215) +++ /oup/current/FileClasses/IPge.pas (revision 215) @@ -0,0 +1,34 @@ +unit IPge; + +interface + +uses + _FileTypes; + +type + TFile_IPge = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_IPge.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/Impt.pas =================================================================== --- /oup/current/FileClasses/Impt.pas (revision 215) +++ /oup/current/FileClasses/Impt.pas (revision 215) @@ -0,0 +1,34 @@ +unit Impt; + +interface + +uses + _FileTypes; + +type + TFile_Impt = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_Impt.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/KeyI.pas =================================================================== --- /oup/current/FileClasses/KeyI.pas (revision 215) +++ /oup/current/FileClasses/KeyI.pas (revision 215) @@ -0,0 +1,34 @@ +unit KeyI; + +interface + +uses + _FileTypes; + +type + TFile_KeyI = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_KeyI.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/M3GA.pas =================================================================== --- /oup/current/FileClasses/M3GA.pas (revision 215) +++ /oup/current/FileClasses/M3GA.pas (revision 215) @@ -0,0 +1,34 @@ +unit M3GA; + +interface + +uses + _FileTypes; + +type + TFile_M3GA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_M3GA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/M3GM.pas =================================================================== --- /oup/current/FileClasses/M3GM.pas (revision 215) +++ /oup/current/FileClasses/M3GM.pas (revision 215) @@ -0,0 +1,34 @@ +unit M3GM; + +interface + +uses + _FileTypes; + +type + TFile_M3GM = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_M3GM.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/M3TA.pas =================================================================== --- /oup/current/FileClasses/M3TA.pas (revision 215) +++ /oup/current/FileClasses/M3TA.pas (revision 215) @@ -0,0 +1,34 @@ +unit M3TA; + +interface + +uses + _FileTypes; + +type + TFile_M3TA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_M3TA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/Mtrl.pas =================================================================== --- /oup/current/FileClasses/Mtrl.pas (revision 215) +++ /oup/current/FileClasses/Mtrl.pas (revision 215) @@ -0,0 +1,34 @@ +unit Mtrl; + +interface + +uses + _FileTypes; + +type + TFile_Mtrl = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_Mtrl.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/NMSA.pas =================================================================== --- /oup/current/FileClasses/NMSA.pas (revision 215) +++ /oup/current/FileClasses/NMSA.pas (revision 215) @@ -0,0 +1,34 @@ +unit NMSA; + +interface + +uses + _FileTypes; + +type + TFile_NMSA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_NMSA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/OBAN.pas =================================================================== --- /oup/current/FileClasses/OBAN.pas (revision 215) +++ /oup/current/FileClasses/OBAN.pas (revision 215) @@ -0,0 +1,34 @@ +unit OBAN; + +interface + +uses + _FileTypes; + +type + TFile_OBAN = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_OBAN.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/OBDC.pas =================================================================== --- /oup/current/FileClasses/OBDC.pas (revision 215) +++ /oup/current/FileClasses/OBDC.pas (revision 215) @@ -0,0 +1,34 @@ +unit OBDC; + +interface + +uses + _FileTypes; + +type + TFile_OBDC = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_OBDC.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/OBLS.pas =================================================================== --- /oup/current/FileClasses/OBLS.pas (revision 215) +++ /oup/current/FileClasses/OBLS.pas (revision 215) @@ -0,0 +1,34 @@ +unit OBLS; + +interface + +uses + _FileTypes; + +type + TFile_OBLS = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_OBLS.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/OBOA.pas =================================================================== --- /oup/current/FileClasses/OBOA.pas (revision 215) +++ /oup/current/FileClasses/OBOA.pas (revision 215) @@ -0,0 +1,34 @@ +unit OBOA; + +interface + +uses + _FileTypes; + +type + TFile_OBOA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_OBOA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/OFGA.pas =================================================================== --- /oup/current/FileClasses/OFGA.pas (revision 215) +++ /oup/current/FileClasses/OFGA.pas (revision 215) @@ -0,0 +1,34 @@ +unit OFGA; + +interface + +uses + _FileTypes; + +type + TFile_OFGA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_OFGA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/ONCC.pas =================================================================== --- /oup/current/FileClasses/ONCC.pas (revision 215) +++ /oup/current/FileClasses/ONCC.pas (revision 215) @@ -0,0 +1,34 @@ +unit ONCC; + +interface + +uses + _FileTypes; + +type + TFile_ONCC = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_ONCC.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/ONCP.pas =================================================================== --- /oup/current/FileClasses/ONCP.pas (revision 215) +++ /oup/current/FileClasses/ONCP.pas (revision 215) @@ -0,0 +1,34 @@ +unit ONCP; + +interface + +uses + _FileTypes; + +type + TFile_ONCP = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_ONCP.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/ONCV.pas =================================================================== --- /oup/current/FileClasses/ONCV.pas (revision 215) +++ /oup/current/FileClasses/ONCV.pas (revision 215) @@ -0,0 +1,34 @@ +unit ONCV; + +interface + +uses + _FileTypes; + +type + TFile_ONCV = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_ONCV.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/ONFA.pas =================================================================== --- /oup/current/FileClasses/ONFA.pas (revision 215) +++ /oup/current/FileClasses/ONFA.pas (revision 215) @@ -0,0 +1,34 @@ +unit ONFA; + +interface + +uses + _FileTypes; + +type + TFile_ONFA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_ONFA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/ONGS.pas =================================================================== --- /oup/current/FileClasses/ONGS.pas (revision 215) +++ /oup/current/FileClasses/ONGS.pas (revision 215) @@ -0,0 +1,34 @@ +unit ONGS; + +interface + +uses + _FileTypes; + +type + TFile_ONGS = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_ONGS.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/ONIA.pas =================================================================== --- /oup/current/FileClasses/ONIA.pas (revision 215) +++ /oup/current/FileClasses/ONIA.pas (revision 215) @@ -0,0 +1,34 @@ +unit ONIA; + +interface + +uses + _FileTypes; + +type + TFile_ONIA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_ONIA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/ONLD.pas =================================================================== --- /oup/current/FileClasses/ONLD.pas (revision 215) +++ /oup/current/FileClasses/ONLD.pas (revision 215) @@ -0,0 +1,34 @@ +unit ONLD; + +interface + +uses + _FileTypes; + +type + TFile_ONLD = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_ONLD.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/ONLV.pas =================================================================== --- /oup/current/FileClasses/ONLV.pas (revision 215) +++ /oup/current/FileClasses/ONLV.pas (revision 215) @@ -0,0 +1,34 @@ +unit ONLV; + +interface + +uses + _FileTypes; + +type + TFile_ONLV = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_ONLV.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/ONMA.pas =================================================================== --- /oup/current/FileClasses/ONMA.pas (revision 215) +++ /oup/current/FileClasses/ONMA.pas (revision 215) @@ -0,0 +1,34 @@ +unit ONMA; + +interface + +uses + _FileTypes; + +type + TFile_ONMA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_ONMA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/ONOA.pas =================================================================== --- /oup/current/FileClasses/ONOA.pas (revision 215) +++ /oup/current/FileClasses/ONOA.pas (revision 215) @@ -0,0 +1,34 @@ +unit ONOA; + +interface + +uses + _FileTypes; + +type + TFile_ONOA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_ONOA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/ONSA.pas =================================================================== --- /oup/current/FileClasses/ONSA.pas (revision 215) +++ /oup/current/FileClasses/ONSA.pas (revision 215) @@ -0,0 +1,34 @@ +unit ONSA; + +interface + +uses + _FileTypes; + +type + TFile_ONSA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_ONSA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/ONSK.pas =================================================================== --- /oup/current/FileClasses/ONSK.pas (revision 215) +++ /oup/current/FileClasses/ONSK.pas (revision 215) @@ -0,0 +1,34 @@ +unit ONSK; + +interface + +uses + _FileTypes; + +type + TFile_ONSK = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_ONSK.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/ONTA.pas =================================================================== --- /oup/current/FileClasses/ONTA.pas (revision 215) +++ /oup/current/FileClasses/ONTA.pas (revision 215) @@ -0,0 +1,34 @@ +unit ONTA; + +interface + +uses + _FileTypes; + +type + TFile_ONTA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_ONTA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/ONVL.pas =================================================================== --- /oup/current/FileClasses/ONVL.pas (revision 215) +++ /oup/current/FileClasses/ONVL.pas (revision 215) @@ -0,0 +1,34 @@ +unit ONVL; + +interface + +uses + _FileTypes; + +type + TFile_ONVL = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_ONVL.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/ONWC.pas =================================================================== --- /oup/current/FileClasses/ONWC.pas (revision 215) +++ /oup/current/FileClasses/ONWC.pas (revision 215) @@ -0,0 +1,34 @@ +unit ONWC; + +interface + +uses + _FileTypes; + +type + TFile_ONWC = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_ONWC.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/OPge.pas =================================================================== --- /oup/current/FileClasses/OPge.pas (revision 215) +++ /oup/current/FileClasses/OPge.pas (revision 215) @@ -0,0 +1,34 @@ +unit OPge; + +interface + +uses + _FileTypes; + +type + TFile_OPge = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_OPge.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/OSBD.pas =================================================================== --- /oup/current/FileClasses/OSBD.pas (revision 215) +++ /oup/current/FileClasses/OSBD.pas (revision 215) @@ -0,0 +1,34 @@ +unit OSBD; + +interface + +uses + _FileTypes; + +type + TFile_OSBD = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_OSBD.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/OTIT.pas =================================================================== --- /oup/current/FileClasses/OTIT.pas (revision 215) +++ /oup/current/FileClasses/OTIT.pas (revision 215) @@ -0,0 +1,34 @@ +unit OTIT; + +interface + +uses + _FileTypes; + +type + TFile_OTIT = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_OTIT.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/OTLF.pas =================================================================== --- /oup/current/FileClasses/OTLF.pas (revision 215) +++ /oup/current/FileClasses/OTLF.pas (revision 215) @@ -0,0 +1,34 @@ +unit OTLF; + +interface + +uses + _FileTypes; + +type + TFile_OTLF = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_OTLF.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/PLEA.pas =================================================================== --- /oup/current/FileClasses/PLEA.pas (revision 215) +++ /oup/current/FileClasses/PLEA.pas (revision 215) @@ -0,0 +1,34 @@ +unit PLEA; + +interface + +uses + _FileTypes; + +type + TFile_PLEA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_PLEA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/PNTA.pas =================================================================== --- /oup/current/FileClasses/PNTA.pas (revision 215) +++ /oup/current/FileClasses/PNTA.pas (revision 215) @@ -0,0 +1,34 @@ +unit PNTA; + +interface + +uses + _FileTypes; + +type + TFile_PNTA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_PNTA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/PSUI.pas =================================================================== --- /oup/current/FileClasses/PSUI.pas (revision 215) +++ /oup/current/FileClasses/PSUI.pas (revision 215) @@ -0,0 +1,34 @@ +unit PSUI; + +interface + +uses + _FileTypes; + +type + TFile_PSUI = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_PSUI.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/PSpL.pas =================================================================== --- /oup/current/FileClasses/PSpL.pas (revision 215) +++ /oup/current/FileClasses/PSpL.pas (revision 215) @@ -0,0 +1,34 @@ +unit PSpL; + +interface + +uses + _FileTypes; + +type + TFile_PSpL = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_PSpL.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/PSpc.pas =================================================================== --- /oup/current/FileClasses/PSpc.pas (revision 215) +++ /oup/current/FileClasses/PSpc.pas (revision 215) @@ -0,0 +1,34 @@ +unit PSpc; + +interface + +uses + _FileTypes; + +type + TFile_PSpc = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_PSpc.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/QTNA.pas =================================================================== --- /oup/current/FileClasses/QTNA.pas (revision 215) +++ /oup/current/FileClasses/QTNA.pas (revision 215) @@ -0,0 +1,34 @@ +unit QTNA; + +interface + +uses + _FileTypes; + +type + TFile_QTNA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_QTNA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/QUDA.pas =================================================================== --- /oup/current/FileClasses/QUDA.pas (revision 215) +++ /oup/current/FileClasses/QUDA.pas (revision 215) @@ -0,0 +1,34 @@ +unit QUDA; + +interface + +uses + _FileTypes; + +type + TFile_QUDA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_QUDA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/SNDD.pas =================================================================== --- /oup/current/FileClasses/SNDD.pas (revision 215) +++ /oup/current/FileClasses/SNDD.pas (revision 215) @@ -0,0 +1,34 @@ +unit SNDD; + +interface + +uses + _FileTypes; + +type + TFile_SNDD = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_SNDD.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/SUBT.pas =================================================================== --- /oup/current/FileClasses/SUBT.pas (revision 215) +++ /oup/current/FileClasses/SUBT.pas (revision 215) @@ -0,0 +1,60 @@ +unit SUBT; + +interface + +uses + _FileTypes; + +type + TFile_SUBT = class(TFile) + public + procedure InitDataFields; override; + procedure InitEditor; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_SUBT.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + + AddField(TLevelID, $04, 'LevelID', '', nil); + + tempi := 16; + AddField(TUnused, $08, 'Unused data', '', @tempi); + + AddField(TRawLink, $18, 'Raw Address', '', nil); + + tempi := 4; + with AddField(TArray, $1C, 'SUBT offsets array', '', @tempi) do + begin + tempi := 4; + AddField(TInt, $00, 'Offset', '', @tempi); + end; + end; +end; + + +procedure TFile_SUBT.InitEditor; +var + lab: TLabel; +begin + FEditor := TFrame.Create(nil); + lab := TLabel.Create(FEditor); + lab.Left := 0; + lab.Top := 0; + lab.Caption := 'Hello World'; + FEditor.InsertControl(lab); +end; + +end. + Index: /oup/current/FileClasses/StNA.pas =================================================================== --- /oup/current/FileClasses/StNA.pas (revision 215) +++ /oup/current/FileClasses/StNA.pas (revision 215) @@ -0,0 +1,34 @@ +unit StNA; + +interface + +uses + _FileTypes; + +type + TFile_StNA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_StNA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/TMFA.pas =================================================================== --- /oup/current/FileClasses/TMFA.pas (revision 215) +++ /oup/current/FileClasses/TMFA.pas (revision 215) @@ -0,0 +1,34 @@ +unit TMFA; + +interface + +uses + _FileTypes; + +type + TFile_TMFA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_TMFA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/TMRA.pas =================================================================== --- /oup/current/FileClasses/TMRA.pas (revision 215) +++ /oup/current/FileClasses/TMRA.pas (revision 215) @@ -0,0 +1,34 @@ +unit TMRA; + +interface + +uses + _FileTypes; + +type + TFile_TMRA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_TMRA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/TRAC.pas =================================================================== --- /oup/current/FileClasses/TRAC.pas (revision 215) +++ /oup/current/FileClasses/TRAC.pas (revision 215) @@ -0,0 +1,34 @@ +unit TRAC; + +interface + +uses + _FileTypes; + +type + TFile_TRAC = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_TRAC.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/TRAM.pas =================================================================== --- /oup/current/FileClasses/TRAM.pas (revision 215) +++ /oup/current/FileClasses/TRAM.pas (revision 215) @@ -0,0 +1,34 @@ +unit TRAM; + +interface + +uses + _FileTypes; + +type + TFile_TRAM = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_TRAM.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/TRAS.pas =================================================================== --- /oup/current/FileClasses/TRAS.pas (revision 215) +++ /oup/current/FileClasses/TRAS.pas (revision 215) @@ -0,0 +1,34 @@ +unit TRAS; + +interface + +uses + _FileTypes; + +type + TFile_TRAS = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_TRAS.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/TRBS.pas =================================================================== --- /oup/current/FileClasses/TRBS.pas (revision 215) +++ /oup/current/FileClasses/TRBS.pas (revision 215) @@ -0,0 +1,34 @@ +unit TRBS; + +interface + +uses + _FileTypes; + +type + TFile_TRBS = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_TRBS.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/TRCM.pas =================================================================== --- /oup/current/FileClasses/TRCM.pas (revision 215) +++ /oup/current/FileClasses/TRCM.pas (revision 215) @@ -0,0 +1,34 @@ +unit TRCM; + +interface + +uses + _FileTypes; + +type + TFile_TRCM = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_TRCM.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/TRFT.pas =================================================================== --- /oup/current/FileClasses/TRFT.pas (revision 215) +++ /oup/current/FileClasses/TRFT.pas (revision 215) @@ -0,0 +1,34 @@ +unit TRFT; + +interface + +uses + _FileTypes; + +type + TFile_TRFT = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_TRFT.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/TRGA.pas =================================================================== --- /oup/current/FileClasses/TRGA.pas (revision 215) +++ /oup/current/FileClasses/TRGA.pas (revision 215) @@ -0,0 +1,34 @@ +unit TRGA; + +interface + +uses + _FileTypes; + +type + TFile_TRGA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_TRGA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/TRGE.pas =================================================================== --- /oup/current/FileClasses/TRGE.pas (revision 215) +++ /oup/current/FileClasses/TRGE.pas (revision 215) @@ -0,0 +1,34 @@ +unit TRGE; + +interface + +uses + _FileTypes; + +type + TFile_TRGE = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_TRGE.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/TRIA.pas =================================================================== --- /oup/current/FileClasses/TRIA.pas (revision 215) +++ /oup/current/FileClasses/TRIA.pas (revision 215) @@ -0,0 +1,34 @@ +unit TRIA; + +interface + +uses + _FileTypes; + +type + TFile_TRIA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_TRIA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/TRIG.pas =================================================================== --- /oup/current/FileClasses/TRIG.pas (revision 215) +++ /oup/current/FileClasses/TRIG.pas (revision 215) @@ -0,0 +1,34 @@ +unit TRIG; + +interface + +uses + _FileTypes; + +type + TFile_TRIG = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_TRIG.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/TRMA.pas =================================================================== --- /oup/current/FileClasses/TRMA.pas (revision 215) +++ /oup/current/FileClasses/TRMA.pas (revision 215) @@ -0,0 +1,34 @@ +unit TRMA; + +interface + +uses + _FileTypes; + +type + TFile_TRMA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_TRMA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/TRSC.pas =================================================================== --- /oup/current/FileClasses/TRSC.pas (revision 215) +++ /oup/current/FileClasses/TRSC.pas (revision 215) @@ -0,0 +1,34 @@ +unit TRSC; + +interface + +uses + _FileTypes; + +type + TFile_TRSC = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_TRSC.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/TRTA.pas =================================================================== --- /oup/current/FileClasses/TRTA.pas (revision 215) +++ /oup/current/FileClasses/TRTA.pas (revision 215) @@ -0,0 +1,34 @@ +unit TRTA; + +interface + +uses + _FileTypes; + +type + TFile_TRTA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_TRTA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/TSFF.pas =================================================================== --- /oup/current/FileClasses/TSFF.pas (revision 215) +++ /oup/current/FileClasses/TSFF.pas (revision 215) @@ -0,0 +1,34 @@ +unit TSFF; + +interface + +uses + _FileTypes; + +type + TFile_TSFF = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_TSFF.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/TSFL.pas =================================================================== --- /oup/current/FileClasses/TSFL.pas (revision 215) +++ /oup/current/FileClasses/TSFL.pas (revision 215) @@ -0,0 +1,34 @@ +unit TSFL; + +interface + +uses + _FileTypes; + +type + TFile_TSFL = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_TSFL.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/TSFT.pas =================================================================== --- /oup/current/FileClasses/TSFT.pas (revision 215) +++ /oup/current/FileClasses/TSFT.pas (revision 215) @@ -0,0 +1,34 @@ +unit TSFT; + +interface + +uses + _FileTypes; + +type + TFile_TSFT = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_TSFT.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/TSGA.pas =================================================================== --- /oup/current/FileClasses/TSGA.pas (revision 215) +++ /oup/current/FileClasses/TSGA.pas (revision 215) @@ -0,0 +1,34 @@ +unit TSGA; + +interface + +uses + _FileTypes; + +type + TFile_TSGA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_TSGA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/TStr.pas =================================================================== --- /oup/current/FileClasses/TStr.pas (revision 215) +++ /oup/current/FileClasses/TStr.pas (revision 215) @@ -0,0 +1,34 @@ +unit TStr; + +interface + +uses + _FileTypes; + +type + TFile_TStr = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_TStr.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/TURR.pas =================================================================== --- /oup/current/FileClasses/TURR.pas (revision 215) +++ /oup/current/FileClasses/TURR.pas (revision 215) @@ -0,0 +1,34 @@ +unit TURR; + +interface + +uses + _FileTypes; + +type + TFile_TURR = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_TURR.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/TXAN.pas =================================================================== --- /oup/current/FileClasses/TXAN.pas (revision 214) +++ /oup/current/FileClasses/TXAN.pas (revision 215) @@ -8,7 +8,4 @@ type TFile_TXAN = class(TFile) - protected - procedure InitDatLinks; override; - procedure InitRawList; override; public procedure InitDataFields; override; @@ -56,25 +53,4 @@ -procedure TFile_TXAN.InitDatLinks; -var - links: Integer; - i: Integer; -begin - ConManager.Connection[FConnectionID].LoadDatFilePart(FFileID, $1C, SizeOf(links), @links); - SetLength(FDatLinks, links); - for i := 0 to links - 1 do - begin - FDatLinks[i].SrcOffset := $20 + $4 * i; - FDatLinks[i].DestID := GetDatLinkValue(FFileStream, FDatLinks[i].SrcOffset); - FDatLinks[i].PosDestExts := 'TXMP'; - end; -end; - - -procedure TFile_TXAN.InitRawList; -begin - SetLength(FRawParts, 0); -end; - end. Index: /oup/current/FileClasses/TXCA.pas =================================================================== --- /oup/current/FileClasses/TXCA.pas (revision 215) +++ /oup/current/FileClasses/TXCA.pas (revision 215) @@ -0,0 +1,34 @@ +unit TXCA; + +interface + +uses + _FileTypes; + +type + TFile_TXCA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_TXCA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/TXMA.pas =================================================================== --- /oup/current/FileClasses/TXMA.pas (revision 215) +++ /oup/current/FileClasses/TXMA.pas (revision 215) @@ -0,0 +1,34 @@ +unit TXMA; + +interface + +uses + _FileTypes; + +type + TFile_TXMA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_TXMA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/TXMB.pas =================================================================== --- /oup/current/FileClasses/TXMB.pas (revision 215) +++ /oup/current/FileClasses/TXMB.pas (revision 215) @@ -0,0 +1,34 @@ +unit TXMB; + +interface + +uses + _FileTypes; + +type + TFile_TXMB = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_TXMB.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/TXMP.pas =================================================================== --- /oup/current/FileClasses/TXMP.pas (revision 214) +++ /oup/current/FileClasses/TXMP.pas (revision 215) @@ -8,7 +8,4 @@ type TFile_TXMP = class(TFile) - protected - procedure InitDatLinks; override; - procedure InitRawList; override; public procedure InitDataFields; override; @@ -109,72 +106,4 @@ -procedure TFile_TXMP.InitDatLinks; -begin - SetLength(FDatLinks, 2); - FDatLinks[0].SrcOffset := $94; - FDatLinks[0].DestID := GetDatLinkValue(FFileStream, $94); - FDatLinks[0].PosDestExts := '*'; - FDatLinks[1].SrcOffset := $98; - FDatLinks[1].DestID := GetDatLinkValue(FFileStream, $98); - FDatLinks[1].PosDestExts := 'TXMP'; -end; - - -procedure TFile_TXMP.InitRawList; -var - link_pc: Integer; - link_mac: Integer; - x, y: Word; - storetype: Byte; - datasize: Integer; - mipmap: Byte; - - function GetImgSize(w,h, storetype: Integer): Integer; - begin - case storetype of - 0, 1, 2: - Result := w*h*2; - 8: - Result := w*h*4; - 9: - Result := Max(1, w div 4) * Max(1, h div 4) * 8; - else - Result := -1; - end; - end; - -begin - ConManager.Connection[FConnectionID].LoadDatFilePart(FFileID, $88, SizeOf(mipmap), @mipmap); - ConManager.Connection[FConnectionID].LoadDatFilePart(FFileID, $8C, SizeOf(x), @x); - ConManager.Connection[FConnectionID].LoadDatFilePart(FFileID, $8E, SizeOf(y), @y); - ConManager.Connection[FConnectionID].LoadDatFilePart(FFileID, $90, SizeOf(storetype), @storetype); - ConManager.Connection[FConnectionID].LoadDatFilePart(FFileID, $9C, 4, @link_pc); - ConManager.Connection[FConnectionID].LoadDatFilePart(FFileID, $A0, 4, @link_mac); - - datasize := GetImgSize(x, y, storetype); - if (mipmap and $01) > 0 then - begin - repeat - x := Max(x div 2, 1); - y := Max(y div 2, 1); - datasize := datasize + GetImgSize(x, y, storetype); - until (x = 1) and (y = 1); - end; - - SetLength(FRawParts, 1); - if ConManager.Connection[FConnectionID].DataOS = DOS_WIN then - begin - FRawParts[0].SrcOffset := $9C; - FRawParts[0].RawAddr := link_pc; - end - else - begin - FRawParts[0].SrcOffset := $A0; - FRawParts[0].RawAddr := link_mac; - end; - FRawParts[0].RawSize := datasize; - FRawParts[0].LocSep := not (ConManager.Connection[FConnectionID].DataOS = DOS_WIN); -end; - end. Index: /oup/current/FileClasses/TXPC.pas =================================================================== --- /oup/current/FileClasses/TXPC.pas (revision 215) +++ /oup/current/FileClasses/TXPC.pas (revision 215) @@ -0,0 +1,34 @@ +unit TXPC; + +interface + +uses + _FileTypes; + +type + TFile_TXPC = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_TXPC.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/TxtC.pas =================================================================== --- /oup/current/FileClasses/TxtC.pas (revision 215) +++ /oup/current/FileClasses/TxtC.pas (revision 215) @@ -0,0 +1,34 @@ +unit TxtC; + +interface + +uses + _FileTypes; + +type + TFile_TxtC = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_TxtC.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/UUEA.pas =================================================================== --- /oup/current/FileClasses/UUEA.pas (revision 215) +++ /oup/current/FileClasses/UUEA.pas (revision 215) @@ -0,0 +1,34 @@ +unit UUEA; + +interface + +uses + _FileTypes; + +type + TFile_UUEA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_UUEA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/UVDL.pas =================================================================== --- /oup/current/FileClasses/UVDL.pas (revision 215) +++ /oup/current/FileClasses/UVDL.pas (revision 215) @@ -0,0 +1,34 @@ +unit UVDL; + +interface + +uses + _FileTypes; + +type + TFile_UVDL = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_UVDL.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/VCRA.pas =================================================================== --- /oup/current/FileClasses/VCRA.pas (revision 215) +++ /oup/current/FileClasses/VCRA.pas (revision 215) @@ -0,0 +1,34 @@ +unit VCRA; + +interface + +uses + _FileTypes; + +type + TFile_VCRA = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_VCRA.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/WMCL.pas =================================================================== --- /oup/current/FileClasses/WMCL.pas (revision 215) +++ /oup/current/FileClasses/WMCL.pas (revision 215) @@ -0,0 +1,34 @@ +unit WMCL; + +interface + +uses + _FileTypes; + +type + TFile_WMCL = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_WMCL.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/WMDD.pas =================================================================== --- /oup/current/FileClasses/WMDD.pas (revision 215) +++ /oup/current/FileClasses/WMDD.pas (revision 215) @@ -0,0 +1,34 @@ +unit WMDD; + +interface + +uses + _FileTypes; + +type + TFile_WMDD = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_WMDD.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/WMMB.pas =================================================================== --- /oup/current/FileClasses/WMMB.pas (revision 215) +++ /oup/current/FileClasses/WMMB.pas (revision 215) @@ -0,0 +1,34 @@ +unit WMMB; + +interface + +uses + _FileTypes; + +type + TFile_WMMB = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_WMMB.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/WMM_.pas =================================================================== --- /oup/current/FileClasses/WMM_.pas (revision 215) +++ /oup/current/FileClasses/WMM_.pas (revision 215) @@ -0,0 +1,34 @@ +unit WMM_; + +interface + +uses + _FileTypes; + +type + TFile_WMM_ = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_WMM_.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/WPge.pas =================================================================== --- /oup/current/FileClasses/WPge.pas (revision 215) +++ /oup/current/FileClasses/WPge.pas (revision 215) @@ -0,0 +1,34 @@ +unit WPge; + +interface + +uses + _FileTypes; + +type + TFile_WPge = class(TFile) + public + procedure InitDataFields; override; + end; + +implementation + +uses + ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls; + +procedure TFile_WPge.InitDataFields; +var + tempi: Integer; +begin + inherited; + FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); + with FDataFields do + begin + AddField(TFileID, $00, 'FileID', '', nil); + AddField(TLevelID, $04, 'LevelID', '', nil); + end; +end; + + +end. + Index: /oup/current/FileClasses/_EmptyFile.pas =================================================================== --- /oup/current/FileClasses/_EmptyFile.pas (revision 214) +++ /oup/current/FileClasses/_EmptyFile.pas (revision 215) @@ -8,7 +8,4 @@ type TFile_Empty = class(TFile) - protected - procedure InitDatLinks; override; - procedure InitRawList; override; public procedure InitDataFields; override; @@ -27,15 +24,4 @@ -procedure TFile_Empty.InitDatLinks; -begin - SetLength(FDatLinks, 0); -end; - - -procedure TFile_Empty.InitRawList; -begin - SetLength(FRawParts, 0); -end; - end. Index: /oup/current/FileClasses/_FileTypes.pas =================================================================== --- /oup/current/FileClasses/_FileTypes.pas (revision 214) +++ /oup/current/FileClasses/_FileTypes.pas (revision 215) @@ -27,6 +27,6 @@ FOpened: Boolean; - procedure InitDatLinks; virtual; abstract; - procedure InitRawList; virtual; abstract; + procedure InitDatLinks; + procedure InitRawList; function GetDatLinkByOffset(Offset: Integer): TDatLink; @@ -101,14 +101,19 @@ FFileStream := TMemoryStream.Create; ConManager.Connection[ConnectionID].LoadDatFile(FileID, TStream(FFileStream)); - end; - - InitDatLinks(); - InitRawList(); - FDataFields := nil; - FEditor := nil; - - if not (Self is TFile_Empty) then + + InitDatLinks(); + InitRawList(); + FDataFields := nil; + FEditor := nil; + FFileStream.Free; - FFileStream := nil; + FFileStream := nil; + end + else + begin + SetLength(FDatLinks, 0); + SetLength(FRawParts, 0); + FEditor := nil; + end; end; @@ -234,7 +239,17 @@ end; +procedure TFile.InitDatLinks; +begin + FDatLinks := ConManager.Connection[FConnectionID].GetDatLinks(FFileID); +end; + procedure TFile.InitEditor; begin Exit; +end; + +procedure TFile.InitRawList; +begin + FRawParts := ConManager.Connection[FConnectionID].GetRawList(FFileID); end; Index: /oup/current/FileClasses/_MetaManager.pas =================================================================== --- /oup/current/FileClasses/_MetaManager.pas (revision 214) +++ /oup/current/FileClasses/_MetaManager.pas (revision 215) @@ -2,5 +2,15 @@ interface -uses _FileTypes, SUBT, TXAN, TXMP, _EmptyFile; +uses _FileTypes, + ABNA, AGDB, AGQC, AGQG, AGQM, AGQR, AISA, AITR, AIWA, AKAA, AKBA, AKBP, AKDA, + AKEV, AKOT, AKVA, BINA, CBPI, CBPM, CONS, CRSA, DOOR, DPge, EDIA, ENVP, FILM, + FXLR, GMAN, HPge, IDXA, IGHH, IGPA, IGPG, IGSA, IGSt, Impt, IPge, KeyI, M3GA, + M3GM, M3TA, Mtrl, NMSA, OBAN, OBDC, OBLS, OBOA, OFGA, ONCC, ONCP, ONCV, ONFA, + ONGS, ONIA, ONLD, ONLV, ONMA, ONOA, ONSA, ONSK, ONTA, ONVL, ONWC, OPge, OSBD, + OTIT, OTLF, PLEA, PNTA, PSpc, PSpL, PSUI, QTNA, QUDA, SNDD, StNA, SUBT, TMFA, + TMRA, TRAC, TRAM, TRAS, TRBS, TRCM, TRFT, TRGA, TRGE, TRIA, TRIG, TRMA, TRSC, + TRTA, TSFF, TSFL, TSFT, TSGA, TStr, TURR, TXAN, TXCA, TXMA, TXMB, TXMP, TXPC, + TxtC, UUEA, UVDL, VCRA, WMCL, WMDD, WMM_, WMMB, WPge, + _EmptyFile; type @@ -12,8 +22,118 @@ const - FileDescs: array[0..2] of TFileDesc = ( + FileDescs: array[0..112] of TFileDesc = ( + (ext: 'ABNA'; ftype: TFile_ABNA), + (ext: 'AGDB'; ftype: TFile_AGDB), + (ext: 'AGQC'; ftype: TFile_AGQC), + (ext: 'AGQG'; ftype: TFile_AGQG), + (ext: 'AGQM'; ftype: TFile_AGQM), + (ext: 'AGQR'; ftype: TFile_AGQR), + (ext: 'AISA'; ftype: TFile_AISA), + (ext: 'AITR'; ftype: TFile_AITR), + (ext: 'AIWA'; ftype: TFile_AIWA), + (ext: 'AKAA'; ftype: TFile_AKAA), + (ext: 'AKBA'; ftype: TFile_AKBA), + (ext: 'AKBP'; ftype: TFile_AKBP), + (ext: 'AKDA'; ftype: TFile_AKDA), + (ext: 'AKEV'; ftype: TFile_AKEV), + (ext: 'AKOT'; ftype: TFile_AKOT), + (ext: 'AKVA'; ftype: TFile_AKVA), + (ext: 'BINA'; ftype: TFile_BINA), + (ext: 'CBPI'; ftype: TFile_CBPI), + (ext: 'CBPM'; ftype: TFile_CBPM), + (ext: 'CONS'; ftype: TFile_CONS), + (ext: 'CRSA'; ftype: TFile_CRSA), + (ext: 'DOOR'; ftype: TFile_DOOR), + (ext: 'DPge'; ftype: TFile_DPge), + (ext: 'EDIA'; ftype: TFile_EDIA), + (ext: 'ENVP'; ftype: TFile_ENVP), + (ext: 'FILM'; ftype: TFile_FILM), + (ext: 'FXLR'; ftype: TFile_FXLR), + (ext: 'GMAN'; ftype: TFile_GMAN), + (ext: 'HPge'; ftype: TFile_HPge), + (ext: 'IDXA'; ftype: TFile_IDXA), + (ext: 'IGHH'; ftype: TFile_IGHH), + (ext: 'IGPA'; ftype: TFile_IGPA), + (ext: 'IGPG'; ftype: TFile_IGPG), + (ext: 'IGSA'; ftype: TFile_IGSA), + (ext: 'IGSt'; ftype: TFile_IGSt), + (ext: 'Impt'; ftype: TFile_Impt), + (ext: 'IPge'; ftype: TFile_IPge), + (ext: 'KeyI'; ftype: TFile_KeyI), + (ext: 'M3GA'; ftype: TFile_M3GA), + (ext: 'M3GM'; ftype: TFile_M3GM), + (ext: 'M3TA'; ftype: TFile_M3TA), + (ext: 'Mtrl'; ftype: TFile_Mtrl), + (ext: 'NMSA'; ftype: TFile_NMSA), + (ext: 'OBAN'; ftype: TFile_OBAN), + (ext: 'OBDC'; ftype: TFile_OBDC), + (ext: 'OBLS'; ftype: TFile_OBLS), + (ext: 'OBOA'; ftype: TFile_OBOA), + (ext: 'OFGA'; ftype: TFile_OFGA), + (ext: 'ONCC'; ftype: TFile_ONCC), + (ext: 'ONCP'; ftype: TFile_ONCP), + (ext: 'ONCV'; ftype: TFile_ONCV), + (ext: 'ONFA'; ftype: TFile_ONFA), + (ext: 'ONGS'; ftype: TFile_ONGS), + (ext: 'ONIA'; ftype: TFile_ONIA), + (ext: 'ONLD'; ftype: TFile_ONLD), + (ext: 'ONLV'; ftype: TFile_ONLV), + (ext: 'ONMA'; ftype: TFile_ONMA), + (ext: 'ONOA'; ftype: TFile_ONOA), + (ext: 'ONSA'; ftype: TFile_ONSA), + (ext: 'ONSK'; ftype: TFile_ONSK), + (ext: 'ONTA'; ftype: TFile_ONTA), + (ext: 'ONVL'; ftype: TFile_ONVL), + (ext: 'ONWC'; ftype: TFile_ONWC), + (ext: 'OPge'; ftype: TFile_OPge), + (ext: 'OSBD'; ftype: TFile_OSBD), + (ext: 'OTIT'; ftype: TFile_OTIT), + (ext: 'OTLF'; ftype: TFile_OTLF), + (ext: 'PLEA'; ftype: TFile_PLEA), + (ext: 'PNTA'; ftype: TFile_PNTA), + (ext: 'PSpc'; ftype: TFile_PSpc), + (ext: 'PSpL'; ftype: TFile_PSpL), + (ext: 'PSUI'; ftype: TFile_PSUI), + (ext: 'QTNA'; ftype: TFile_QTNA), + (ext: 'QUDA'; ftype: TFile_QUDA), + (ext: 'SNDD'; ftype: TFile_SNDD), + (ext: 'StNA'; ftype: TFile_StNA), (ext: 'SUBT'; ftype: TFile_SUBT), + (ext: 'TMFA'; ftype: TFile_TMFA), + (ext: 'TMRA'; ftype: TFile_TMRA), + (ext: 'TRAC'; ftype: TFile_TRAC), + (ext: 'TRAM'; ftype: TFile_TRAM), + (ext: 'TRAS'; ftype: TFile_TRAS), + (ext: 'TRBS'; ftype: TFile_TRBS), + (ext: 'TRCM'; ftype: TFile_TRCM), + (ext: 'TRFT'; ftype: TFile_TRFT), + (ext: 'TRGA'; ftype: TFile_TRGA), + (ext: 'TRGE'; ftype: TFile_TRGE), + (ext: 'TRIA'; ftype: TFile_TRIA), + (ext: 'TRIG'; ftype: TFile_TRIG), + (ext: 'TRMA'; ftype: TFile_TRMA), + (ext: 'TRSC'; ftype: TFile_TRSC), + (ext: 'TRTA'; ftype: TFile_TRTA), + (ext: 'TSFF'; ftype: TFile_TSFF), + (ext: 'TSFL'; ftype: TFile_TSFL), + (ext: 'TSFT'; ftype: TFile_TSFT), + (ext: 'TSGA'; ftype: TFile_TSGA), + (ext: 'TStr'; ftype: TFile_TStr), + (ext: 'TURR'; ftype: TFile_TURR), (ext: 'TXAN'; ftype: TFile_TXAN), - (ext: 'TXMP'; ftype: TFile_TXMP) + (ext: 'TXCA'; ftype: TFile_TXCA), + (ext: 'TXMA'; ftype: TFile_TXMA), + (ext: 'TXMB'; ftype: TFile_TXMB), + (ext: 'TXMP'; ftype: TFile_TXMP), + (ext: 'TXPC'; ftype: TFile_TXPC), + (ext: 'TxtC'; ftype: TFile_TxtC), + (ext: 'UUEA'; ftype: TFile_UUEA), + (ext: 'UVDL'; ftype: TFile_UVDL), + (ext: 'VCRA'; ftype: TFile_VCRA), + (ext: 'WMCL'; ftype: TFile_WMCL), + (ext: 'WMDD'; ftype: TFile_WMDD), + (ext: 'WMM_'; ftype: TFile_WMM_), + (ext: 'WMMB'; ftype: TFile_WMMB), + (ext: 'WPge'; ftype: TFile_WPge) ); Index: /oup/current/Global/DatLinks.pas =================================================================== --- /oup/current/Global/DatLinks.pas (revision 214) +++ /oup/current/Global/DatLinks.pas (revision 215) @@ -494,10 +494,10 @@ Result[i*3 + 0].PosDestExts := 'M3GA'; - Result[i*3 + 0].SrcOffset := $20 + i*240 + 4; - Result[i*3 + 0].DestID := -1; + Result[i*3 + 1].SrcOffset := $20 + i*240 + 4; + Result[i*3 + 1].DestID := -1; Result[i*3 + 1].PosDestExts := 'OBAN'; - Result[i*3 + 0].SrcOffset := $20 + i*240 + 8; - Result[i*3 + 0].DestID := -1; + Result[i*3 + 2].SrcOffset := $20 + i*240 + 8; + Result[i*3 + 2].DestID := -1; Result[i*3 + 2].PosDestExts := 'ENVP'; end;