udbrecorddef.pas

千年源代码,只缺少控件,可以做二次开发用,好不容易得来的

unit uDBRecordDef;

interface

type
   TDBHeader = record
      ID : array[0..4 - 1] of byte;
      RecordCount : Integer;
      RecordDataSize : Integer;
      RecordFullSize : Integer;
      boSavedIndex : Boolean;
      Dummy : array [0..32 - 1] of byte;
   end;
   PTDBHeader = ^TDBHeader;

   TDBItemData = record
      Name : array [0..20-1] of byte;
      Count : Integer;
      Color : Byte;
      Durability : Byte;
      UpGrade : array [0..4-1] of Byte;
      Dummy : Byte;
   end;

   TDBMagicData = record
      Name : array [0..20-1] of byte;
      Skill : Integer;
   end;
   TDBBasicMagicData = record
      Skill : integer;
   end;

   TDBRecord = record
      PrimaryKey     : array [0..20 - 1] of byte;              // 某腐疙

      MasterName     : array [0..20 - 1] of byte;              // 拌沥疙
      Guild          : array [0..20 - 1] of byte;              // 巩颇疙
      LastDate       : array [0..12 - 1] of byte;              // 弥辆立加老
      CreateDate     : array [0..12 - 1] of byte;              // 弥檬立加老
      Sex            : array [0..6 - 1] of byte;               // 己喊

      ServerId       : byte;                                   // Map 锅龋
      x              : word;                                   // X 谅钎
      y              : word;                                   // Y 谅钎

      Light          : Integer;                                // 剧扁
      Dark           : Integer;                                // 澜扁
      Energy         : Integer;                                // 盔扁
      InPower        : Integer;                                // 郴傍
      OutPower       : Integer;                                // 寇傍
      Magic          : Integer;                                // 公傍
      Life           : Integer;                                // 劝仿

      Talent         : integer;                                // 犁瓷
      GoodChar       : integer;                                // 脚己
      BadChar        : integer;                                // 付己
      Adaptive       : integer;                                // 郴己
      Revival        : integer;                                // 犁积
      Immunity       : integer;                                // 搁开
      Virtue         : integer;                                // 龋楷瘤扁

      CurEnergy      : integer;                                // 泅犁 盔扁
      CurInPower     : integer;                                // 泅犁 郴傍
      CurOutPower    : integer;                                // 泅犁 寇傍
      CurMagic       : integer;                                // 泅犁 公傍
      CurLife        : integer;                                // 泅犁 劝仿
      CurHealth      : integer;                                // 泅犁
      CurSatiety     : integer;                                // 泅犁
      CurPoisoning   : integer;                                // 泅犁
      CurHeadSeek    : integer;                                // 泅犁 赣府 劝仿
      CurArmSeek     : integer;                                // 泅犁 迫 劝仿
      CurLegSeek     : integer;                                // 泅犁 促府 劝仿

      BasicMagicArr  : array [0..10 - 1] of TDBBasicMagicData; // 扁夯公傍
      WearItemArr    : array [0..8 - 1] of TDBItemData;        // 馒侩酒捞袍
      HaveItemArr    : array [0..30 - 1] of TDBItemData;       // 家蜡酒捞袍
      HaveMagicArr   : array [0..30 - 1] of TDBMagicData;      // 家蜡公傍

      Dummy : array[0..66 - 1] of byte;
   end;
   PTDBRecord = ^TDBRecord;

   TDBRecordNew = record
      PrimaryKey     : array [0..20 - 1] of byte;              // 某腐疙

      MasterName     : array [0..20 - 1] of byte;              // 拌沥疙
      Guild          : array [0..20 - 1] of byte;              // 巩颇疙
      LastDate       : array [0..12 - 1] of byte;              // 弥辆立加老
      CreateDate     : array [0..12 - 1] of byte;              // 弥檬立加老
      Sex            : byte;                                   // 己喊
      
      ServerName     : array [0..6 - 1] of byte;               // 辑滚疙
      ServerID       : byte;                                   // Map 锅龋
      x              : word;                                   // X 谅钎
      y              : word;                                   // Y 谅钎

      LifeTime       : Integer;                                // 醚 立加矫埃(檬)
      
      Energy         : Word;                                   // 盔扁
      InPower        : Word;                                   // 郴傍
      OutPower       : Word;                                   // 寇傍
      Magic          : Word;                                   // 公傍
      Life           : Word;                                   // 劝仿
      Light          : Word;                                   // 剧扁
      Dark           : Word;                                   // 澜扁

      Talent         : Word;                                   // 犁瓷
      GoodChar       : Word;                                   // 脚己
      BadChar        : Word;                                   // 付己
      Adaptive       : Word;                                   // 郴己
      Revival        : Word;                                   // 犁积
      Immunity       : Word;                                   // 搁开
      LightVirtue    : Word;                                   // 剧 龋楷瘤扁
      DarkVirtue     : Word;                                   // 澜 龋楷瘤扁

      CurEnergy      : Word;                                   // 泅犁 盔扁
      CurInPower     : Word;                                   // 泅犁 郴傍
      CurOutPower    : Word;                                   // 泅犁 寇傍
      CurMagic       : Word;                                   // 泅犁 公傍
      CurBodyLife    : Word;                                   // 泅犁 个烹 劝仿
      CurHeadLife    : Word;                                   // 泅犁 赣府 劝仿
      CurArmLife     : Word;                                   // 泅犁 迫 劝仿
      CurLegLife     : Word;                                   // 泅犁 促府 劝仿
      CurLight       : Word;                                   // 泅犁 剧扁
      CurDark        : Word;                                   // 泅犁 澜扁

      BasicMagicArr  : array [0..10 - 1] of TDBBasicMagicData; // 扁夯公傍
      WearItemArr    : array [0..8 - 1] of TDBItemData;        // 馒侩酒捞袍
      HaveItemArr    : array [0..30 - 1] of TDBItemData;       // 家蜡酒捞袍
      HaveMagicArr   : array [0..30 - 1] of TDBMagicData;      // 家蜡公傍

      Dummy : array[0..66 - 1] of byte;
   end;
   PTDBRecordNew = ^TDBRecordNew;

implementation

end.