deftype.pas

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

   CM_DELETECHAR      =  7;
   CM_SELECTCHAR      =  8;
   CM_SOUND           =  9;
   CM_TURN            = 10;
   CM_MOVE            = 11;
   CM_SAY             = 12;
   CM_HIT             = 13;
   CM_PICKUP          = 14;
   CM_KEYDOWN         = 19;
   CM_CLICK           = 20;
   CM_DBLCLICK        = 21;
   CM_DRAGDROP        = 22;
   CM_CLICKPERCENT    = 23;
   CM_CREATEIDPASS2   = 24;
   CM_IDPASSAZACOM    = 25;
   CM_INPUTSTRING     = 26;
   CM_SELECTCOUNT     = 27;
   CM_CANCELEXCHANGE  = 28;
   CM_MOUSEEVENT      = 29;
   CM_WINDOWCONFIRM   = 30;
   CM_CHECK           = 31;
   CM_MAKEGUILDDATA   = 32;
   CM_GUILDINFODATA   = 33;
   CM_AGREEDATA       = 34;
   CM_MAKEGUILDMAGIC  = 35;
   CM_NETSTATE        = 36;
   CM_CREATEIDPASS3   = 37;

   DB_CHECKCONNECT     = 1;
   DB_STRING           = 2;
   DB_CHECKCONNECT_OK  = 3;
   DB_USERFIELDS       = 4;

   HAVEITEMMAXCOUNT     = 3;

   RAINTYPE_RAIN        = 0;
   RAINTYPE_SNOW        = 1;

   NPCFT_NONE           = 0;
   NPCFT_SELL           = 1;
   NPCFT_BUY            = 2;
   NPCFT_DEAL           = 3;
   NPCFT_SAY            = 4;
   NPCFT_HELP           = 5;
   NPCFT_QUEST          = 6;

   NPCFT_GUILDWAR       = 7;

type

   TEffectData = record
     rWavNumber : integer;
     rPercent : integer; // 100盒啦
   end;
   PTEffectData = ^TEffectData;

   TDbkey = record
     rmsg : byte;
     rconid: integer;
     rkey : word;
   end;
   PTDbKey = ^TDbKey;

   TDbString = record
     rmsg : byte;
     rconid: integer;
     rWordString : TWordString;
   end;
   PTDbString = ^TDbString;

   TNameString = array [0..NAME_SIZE-1] of byte;       // 茄臂 9臂磊

   TLightDark = (gld_light, gld_dark);
   TFeatureState = (wfs_normal, wfs_care, wfs_sitdown, wfs_die, wfs_running, wfs_running2);
   THiddenState = (hs_100, hs_0, hs_1, hs_99 );
   TActionState = (as_free, as_ice, as_slow );
   TLightEffectKind = ( lek_none, lek_follow, lek_future ); 

   TFeature = record
     rrace: byte;                     // 荤恩, 酒捞袍, 悼拱,
     raninumber: byte;
     rfeaturestate : TFeatureState;          // 0 = normal, 1 = fight, 2 = die
     rboman : Boolean;
     rhitmotion : byte;
     rArr : array [0..31] of byte;    // 荤恩备己 娄荐 捞固瘤 圈荐 祸惑   >> 赣府墨遏, 个, ...
     rImageNumber : word;             // 悼拱捞唱, 酒捞袍老版快.
     rImageColorIndex : byte;         // 阁胶磐 祸惑
     rTeamColor: word;                // 辨靛 祸惑
     rNameColor: word;                // 捞抚 祸惑
     rHideState : THiddenState;
     rActionState : TActionState;
     rEffectNumber : word;
     rEffectKind : TLightEffectKind;
   end;

   TBasicData = record
     P : Pointer;
     id : longint;
     Feature : TFeature;
     dir, x, y, nx, ny: word;
     Name : TNameString;
     ViewName : TNameString;
     Guild: TNameString;
     ClassKind : Byte;
     LifePercent : Byte;
     GuardX : array [0..10 - 1] of ShortInt;
     GuardY : array [0..10 - 1] of ShortInt;
   end;
   PTBasicData = ^TBasicData;

   TLifeData = record
     damageBody : integer;
     damageHead : integer;
     damageArm : integer;
     damageLeg : integer;
     armorBody : integer;
     armorHead : integer;
     armorArm : integer;
     armorLeg : integer;
     AttackSpeed : integer;
     avoid : integer;
     recovery : integer;
     HitArmor : Integer;
   end;

   THitData = record
      damageBody: integer;
      damageHead: integer;
      damageArm : integer;
      damageLeg : integer;
      ToHit : integer;
      HitType : integer;
      HitLevel : integer;
      boHited : Boolean;
      HitedCount : integer;
      HitFunction : integer;
      HitFunctionSkill : integer;
   end;

   TItemData = record
     rName, rViewName : TNameString;

     rSoundEvent : TEffectData;
     rSoundDrop : TEffectData;

     rNeedGrade : integer;
     rcolor : byte;
     rKind : byte;
     rWearArr : byte;
     rWearShape : byte;
     rHitMotion : byte;
     rHitType : byte;

     rLifeData : TLifeData;

     rDurability : integer;
     rCurDurability : integer;
     
     rPrice : integer;
     rCount : integer;
     rShape : word;
     rActionImage : Word;
     rboDouble : Boolean;
     rboColoring : Boolean;
     rSex: integer;
     rNameParam : array [0..2 - 1] of String [20];
     rServerId : integer;
     rx, ry: integer;

     rOwnerRace : Byte;
     rOwnerServerID : Integer;
     rOwnerName : array [0..20 - 1] of byte;
     rOwnerIP : array [0..20 - 1] of byte;
     rOwnerX, rOwnerY : Integer;
   end;
   PTItemdata = ^TItemData;

   TAtomItem = record
      rItemName: String[64];
      rItemCount : Integer;
      rColor : Integer;
   end;
   TCheckSkill = record
      rName : String[64];
      rLevel : Integer;
   end;
   TCheckItem = record
      rName : String[64];
      rCount : Integer;
   end;

   TDynamicObjectData = record
     rName : String[64];
     rViewName : String [20];
     rKind : Byte;
     rShape : Word;
     rLife : Integer;
     rSStep : array [0..3 - 1] of Byte;
     rEStep : array [0..3 - 1] of Byte;
     rSoundEvent : TEffectData;
     rSoundSpecial : TEffectData;
     rGuardX : array [0..10 - 1] of ShortInt;
     rGuardY : array [0..10 - 1] of ShortInt;
     rEventItem : TCheckItem;
     rEventDropItem : TCheckItem;
     rEventSay : String [64];
     rEventAnswer : String [64];
     rboRemove : Boolean;
     rOpennedInterval : Integer;
     rRegenInterval : Integer;
   end;
   PTDynamicObjectData = ^TDynamicObjectData;

   TCreateDynamicObjectData = record
      rBasicData : TDynamicObjectData;
      {
      rState : Integer;
      rRegenInterval : Integer;
      rLife : Integer;
      }
      rNeedAge : Integer;
      rNeedSkill : array[0..5 - 1] of TCheckSkill;
      rNeedItem : array[0..5 - 1] of TCheckItem;
      rGiveItem : array[0..5 - 1] of TCheckItem;
      rDropItem : array[0..5 - 1] of TCheckItem;
      rDropMop : array[0..5 - 1] of TCheckItem;
      rCallNpc : array[0..5 - 1] of TCheckItem;

      rServerId : integer;
      rX, rY: array[0..5] of Integer;
      rDropX, rDropY : Word;
   end;
   PTCreateDynamicObjectData = ^TCreateDynamicObjectData;

   TItemDrugData = record
     rName : TNameString;
     rUsedCount : integer;
     rEventEnergy : integer;        // 锭府芭唱 嘎芭唱 殿殿狼 捞亥飘锭 家厚登绰剧.
     rEventInPower: integer;
     rEventOutPower: integer;
     rEventMagic : integer;
     rEventLife : integer;
     rEventHeadLife : integer;
     rEventArmLife : integer;
     rEventLegLife : integer;
   end;
   PTItemDrugdata = ^TItemDrugData;

   TMagicData = record
     rname : TNameString;
     rGuildMagictype : byte;
     rBowImage : integer;
     rBowSpeed : integer;
     rBowType : Byte;
     // rPercent : integer;
     rShape : integer;
     rMagicType : integer;
     rFunction: byte;

     rSkillExp : integer;
     rcSkillLevel : integer;

     rGoodChar : integer;
     rBadChar : integer;

     rLifeData : TLifeData;
{
     rArmorHead : integer;
     rArmorBody : integer;
     rArmorArm : integer;
     rArmorLeg : integer;
     rDamageHead : integer;
     rDamageBody : integer;
     rDamageArm : integer;
     rDamageLeg : integer;

     ravoid : integer;
     rrecovery : integer;
     rAttackSpeed : integer;
}
     rcLifeData : TLifeData;

     rEventDecEnergy : integer;        // 锭府芭唱 嘎芭唱 殿殿狼 捞亥飘锭 家厚登绰剧.
     rEventDecInPower: integer;
     rEventDecOutPower: integer;
     rEventDecMagic : integer;
     rEventDecLife : integer;

     r5SecDecEnergy : integer;         // 蜡瘤且锭 5檬付促 林绰 剧
     r5SecDecInPower: integer;
     r5SecDecOutPower: integer;
     r5SecDecMagic : integer;
     r5SecDecLife : integer;

     rEventBreathngEnergy : integer;
     rEventBreathngInPower : integer;
     rEventBreathngOutPower : integer;
     rEventBreathngMagic : integer;
     rEventBreathngLife : integer;

     rKeepEnergy : integer;            // 秦瘤 登瘤 救阑 弥家剧.
     rKeepInPower: integer;
     rKeepOutPower: integer;
     rKeepMagic : integer;
     rKeepLife : integer;

     rMagicProcessTick : integer;

     rSoundStrike : TEffectData;
     rSoundSwing : TEffectData;
     rSoundStart : TEffectData;
     rSoundEvent : TEffectData;
     rSoundEnd : TEffectData;
   end;
   PTMagicData = ^TMagicData;

   TMagicParamData = record
      ObjectName : String [20];
      MagicName : String [20];
      NameParam : array [0..5 - 1] of String [20];
      NumberParam : array [0..5 - 1] of Integer;
   end;
   PTMagicParamData = ^TMagicParamData;

   TMonsterData = record
     rName : TNameString;
     rViewName : TNameString;
     rSoundNormal : TEffectData;
     rSoundAttack : TEffectData;
     rSoundDie : TEffectData;
     rSoundStructed : TEffectData;

     rAttackName: TNameString;
     rIdleName: TNameString;

     rAnimate : integer;
     rWalkSpeed : integer;
     rdamage : integer;
     rAttackSpeed : integer;
     ravoid : integer;
     rrecovery : integer;
     rspendlife : integer;
     rarmor : integer;
     rHitArmor : Integer;
     rLife : integer;
     rShape: integer;

     rboViewHuman : Boolean;
     rboAutoAttack : Boolean;
     rboAttack : Boolean;
     rEscapeLife : integer;
     rViewWidth : integer;
     rboChangeTarget: Boolean;
     rboBoss: Boolean;
     rboVassal: Boolean;
     rVassalCount: integer;
     rHaveItem : array [0..5 - 1] of TCheckItem;
     rAttackMagic : TMagicData;
     rHaveMagic : String [64];
   end;
   PTMonsterData = ^TMonsterData;

   TNpcData = record                         
     rName : TNameString;
     rViewName : TNameString;
     rAnimate : integer;
     rShape: integer;
     rdamage : integer;
     rAttackSpeed : integer;
     ravoid : integer;
     rrecovery : integer;
     rspendlife : integer;
     rarmor : integer;
     rHitArmor : Integer;
     rLife : integer;
     rboSeller: Boolean;
     rboProtecter: Boolean;
     rboAutoAttack : Boolean;
     rActionWidth : integer;
     rHaveItem : array[0..5] of TCheckItem;

     rSoundNormal : TEffectData;
     rSoundAttack : TEffectData;
     rSoundDie : TEffectData;
     rSoundStructed : TEffectData;

     rNpcText: array [0..64] of byte;
   end;
   PTNpcData = ^TNpcData;

   {
   TNpcData = record
     rname : TNameString;
     rdamage : integer;
     rAttackSpeed : integer;
     ravoid : integer;
     rrecovery : integer;
     rspendlife : integer;
     rarmor : integer;
     rLife : integer;
     rboMan : Boolean;
     rboSeller: Boolean;
     rboProtecter: Boolean;
     rActionWidth : integer;
     rNpcText: TNameString;
     rItemDataArr : array [0..10] of TItemData;
   end;
   PTNpcData = ^TNpcData;
   }
   
   TLifeObjectState = (los_init, los_exit, los_none, los_die, los_escape,
                       los_Attack, los_moveattack, los_deadattack,
                       los_follow, los_stop, los_rest, los_movework,
                       los_eat, los_move, los_kill );

   TExpData = record
      Exp : integer;
      ExpType : integer;
   end;

   TSubData = record
     TargetId : integer;
     VassalCount: integer; // 磊脚捞 荤侩窍霸登搁 临绢惦...
     ServerId : integer;
     tx, ty: integer;
     ItemData : TItemData;
     HitData : THitData;
     ExpData : TExpData;
     motion : integer;
     percent : byte;
     sysopscope: integer;
     attacker : integer;
     BowImage : integer;
     BowSpeed : integer;
     BowType : Byte;
     SubName: TNameString;
     GuildName : TNameString;
     SayString : TWordString;
     ShoutColor : integer;
   end;

   TCurAttribData = record
     CurEnergy : integer;        // 盔扁
     CurInPower : integer;       // 郴傍
     CurOutPower: integer;       // 寇傍
     CurMagic : integer;         // 公傍
     CurLife : integer;          // 劝仿

     CurHealth : integer;
     CurSatiety : integer;
     CurPoisoning : integer;
     CurHeadSeak : integer;
     CurArmSeak : integer;
     CurLegSeak : integer;
   end;

   TAttribData = record
      Age, cAge : integer;
      Light, cLight : integer;
      Dark, cDark : integer;
      Energy, cEnergy : integer;
      InPower, cInPower: integer;
      OutPower, cOutPower: integer;
      Magic, cMagic: integer;
      Life, cLife: integer;

      cHeadSeak: integer;
      cArmSeak: integer;
      cLegSeak: integer;

      cHealth: integer;
      cSatiety: integer;
      cPoisoning: integer;

      Talent, cTalent : integer;
      GoodChar, cGoodChar : integer;
      BadChar, cBadChar  : integer;
      lucky, clucky    : integer;
      adaptive, cadaptive : integer;      // 利览
      Revival, cRevival : integer;
      immunity, cimmunity : integer;
      virtue, cvirtue   : integer;      // 龋楷瘤扁
   end;

   TExChangeItem = record
      rIcon: word;
      rItemName : string[64];
      rItemViewName : String [64];
      rItemCount : integer;
      rColor : integer;
      rkey : word;
   end;

   TExChangeData = record
      rExChangeId : LongInt;
      rExChangeName : string [32];
      rboCheck : boolean;
      rItems : array [0..3] of TExChangeItem;
   end;
   PTExChangeData = ^TExChangeData;

   TPosByDieData = record
      rServerID : Integer;
      rDestServerID : Integer;
      rDestX, rDestY : Word;
   end;
   PTPosByDieData = ^TPosByDieData;

   // 巩颇措傈 滚傈
   {
   TCreateMonsterData = record
      Name : string[64];
      x, y  : Integer;
      Width : Integer;
      Count : integer;
      Member : String;
      Interval : integer;
      DurationLifeTick : integer;
   end;
   PTCreateMonsterData = ^TCreateMonsterData;

   TCreateNpcData = record
      Name : String [20];
      MapID : Integer;
      X, Y  : Integer;
      Width : Integer;
      RegenInterval : Integer;
      FuncNo : Integer;
      BookName : String [64];
   end;
   PTCreateNpcData = ^TCreateNpcData;
   }

   // 2001.5.31 滚傈
   TCreateMonsterData = record
      mName : string[64];
      Index : integer;
      x, y  : integer;
      Width, CurCount, Count : integer;
      Member : String[64];
      Interval : integer;
      DurationLifeTick : integer;
   end;
   PTCreateMonsterData = ^TCreateMonsterData;

   TCreateNpcData = record
      mName : string[64];
      Index : integer;
      x, y  : integer;
      Width, CurCount, Count : integer;
      Interval : Integer;
      DurationLifeTick : integer;
      BookName : String[64];
   end;
   PTCreateNpcData = ^TCreateNpcData;

   TAreaClassData = record
      Name : String [32];
      Index : Byte;
      Func : String [64];
      Desc : String [128];
   end;
   PTAreaClassData = ^TAreaClassData;

   TCreateGateData = record
      Name : string [64];
      ViewName : String [20];
      MapID : Integer;
      X, Y : integer;
      TargetX, TargetY: integer;
      EjectX, EjectY : integer;
      targetserverid : integer;
      Kind : Byte;
      shape : integer;
      Interval : integer;