deftype.pas

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

      DurationLifeTick : integer;
      Width : Integer;
      NeedAge : Integer;
      AgeNeedItem : Integer;
      NeedItem : array[0..5] of TCheckItem;
      Quest : Integer;
      QuestNotice : String[128];
      RegenInterval : Integer;
      ActiveInterval : Integer;
      EjectNotice : String[128];
      RandomPosCount : Byte;
      RandomX : array [0..10 - 1] of Word;
      RandomY : array [0..10 - 1] of Word;
   end;
   PTCreateGateData = ^TCreateGateData;

   TCreateMirrorData = record
      Name : String [32];
      X, Y, MapID : Integer;
      boActive : Boolean;
   end;
   PTCreateMirrorData = ^TCreateMirrorData;

   TCreateDoorData = record
      Name : String [20];
      DoorName : String [20];
      Shape : Integer;
      MapID, X, Y : Word;
      TMapID, TX, TY : Word;
      Width : Integer;
      NeedAge : Integer;
      NeedItem : String [64];
      NeedQuest : Integer;
      NeedGuild : String [64];
      RegenInterval : Integer;
      ActiveInterval : Integer;
   end;
   PTCreateDoorData = ^TCreateDoorData;

   TGuildNpcData = record
     rName: string [20];
     rX, rY : Integer;
     rSex : Byte;
   end;
   PTGuildNpcData = ^TGuildNpcData;

   TCreateGuildData = record
     Name : string [20];
     Title : String [80];
     MapID : Integer;
     x, y  : integer;
     Durability : Integer;
     MaxDurability : Integer;
     GuildMagic : string [20];
     MagicExp : integer;
     MakeDate : string [20];
     Sysop : string [20];
     SubSysop : array [0..3 - 1] of string [20];
     GuildNpc : array [0..5 - 1] of TGuildNpcData;
     GuildWear : array [0..2 - 1] of TAtomItem;
     BasicPoint, AwardPoint : Integer;
     BattleRejectCount : Word;
     ChallengeGuild : String [20];
     ChallengeGuildUser : String [20];
     ChallengeDate : String [20];
   end;
   PTCreateGuildData = ^TCreateGuildData;

   TMakeGuildData = record
      GuildName : String [20];
      Sysop : String [20];
      AgreeChar : array [0..9 - 1] of String [20];
      boAgree : array [0..9 - 1] of Boolean;
   end;
   PTMakeGuildData = ^TMakeGuildData;

   TSpecialWindowSt = record
      rWindow : Byte;
      rAgreeType : Byte;
      rSenderID : Integer;
   end;
   PTSpecialWindowSt = ^TSpecialWindowSt;

   TNpcFunctionData = record
      Index : Integer;
      FuncType : Byte;
      Text : String [32];
      FileName : String [64];
      StartQuest, NextQuest : Integer;
   end;
   PTNpcFunctionData = ^TNpcFunctionData;

   {
   TCreateGateData = record
      mName : string[64];
      index : integer;
      x, y : integer;
      targetx, targety: integer;
      EjectX, EjectY : integer;
      targetserverid : integer;
      shape : integer;
      Interval : integer;
      DurationLifeTick : integer;
      Width : Integer;
      NeedAge : Integer;
      AgeNeedItem : Integer;
      NeedItem : array[0..5] of TCheckItem;
      Quest : Integer;
      QuestNotice : String [128];
      RegenInterval : Integer;
      ActiveInterval : Integer;
      EjectNotice : String [128];
   end;
   PTCreateGateData = ^TCreateGateData;
   }

   TCreateAreaData = record
      mName : string[64];
      ServerID : Integer;
      X, Y : integer;
      TargetServerID : Integer;
      TargetX, TargetY : Integer;
      Width : Integer;
   end;
   PTCreateAreaData = ^TCreateAreaData;

   TItemGenData = record
      Name : String [20];
      
      ItemName : String [20];
      ItemCount : Integer;

      CreateInterval : Integer;
      RegenInterval : Integer;

      ItemCreateX, ItemCreateY, ItemCreateW : Word;
      ItemRegenX, ItemRegenY, ItemRegenW : Word;
   end;
   PTItemGenData = ^TItemGenData;

   TCreateSoundObjData = record
      Name : String [20];
      SoundName : String [20];
      MapID : Integer;
      X, Y : Word;
      PlayInterval : Integer;
   end;
   PTCreateSoundObjData = ^TCreateSoundObjData;

   {
   TGuildNpcData = record
     rName: string [64];
     rIndex : Integer;
     rX, rY : Integer;
   end;
   PTGuildNpcData = ^TGuildNpcData;

   TCreateGuildData = record
     mName : string [64];
     index : integer;
     x, y  : integer;
     Sysop : string [64];
     SubSysop0, SubSysop1, SubSysop2: string [64];
     Durability : integer;
     GuildMagic : string [64];
     MakeDate : string [64];
     MagicExp : integer;
     GuildNpcDataArr : array [0..5-1] of TGuildNpcData;
   end;
   PTCreateGuildData = ^TCreateGuildData;
   }

///////////////////////////////////
//        Server Structure       //
///////////////////////////////////
   TSExChange = record
      rmsg : byte;
      rIcons : Array [0..8-1] of word;
      rColors : Array [0..8-1] of byte;
      rCheckLeft, rCheckRight: Boolean;
      rWordString: TWordString;   // left name, right name, item name ,,,,
   end;
   PTSExChange = ^TSExChange;

   TSShowInputString = record
      rmsg : byte;
      rInputStringid : LongInt;
      rWordString: TWordString;    // CaptionString, ListString,,,,
   end;
   PTSShowInputString = ^TSShowInputString;

   TSShowSpecialWindow = record
      rMsg : Byte;
      rWindow : Byte;
      rCaption : TNameString;
      rWordString: TWordString;
   end;
   PTSShowSpecialWindow = ^TSShowSpecialWindow;

   // saset
   TSHideSpecialWindow = record
      rMsg : Byte;
      rWindow : Byte;
   end;
   PTSHideSpecialWindow = ^TSHideSpecialWindow;

   TSShowMakeGuildWindow = record
      rMsg : Byte;
      rWindow : Byte;
      rSysopName : String [20];
   end;
   PTSShowMakeGuildWindow = ^TSShowMakeGuildWindow;

   TSShowGuildInfoWindow = record
      rMsg : Byte;
      rWindow : Byte;
      rboEdit : Byte; // if 1 for sysop else for others 
      rGuildName : String [20];
      rGuildX, rGuildY : Word;
      rCreateDate : String [20];
      rSysop : String [20];
      rSubSysop : array [0..3 - 1] of String [20];
      rGuildNpc : array [0..5 - 1] of String [20];
      rGuildNpcX, rGuildNpcY : array [0..5 - 1] of Word;
      rGuildTitle : String [80];
      rGuildMagic : String [20];
      rGuildAward : String [20];
      rGuildDura : Integer;
   end;
   PTSShowGuildInfoWindow = ^TSShowGuildInfoWindow;

   TSShowGuildWarWindow = record
      rMsg : Byte;
      rWindow : Byte;
   end;
   PTSShowGuildWarWindow = ^TSShowGuildWarWindow;

   TSShowGuildMagicWindow = record
      rMsg : Byte;
      rWindow : Byte;
      rSpeed, rDamageBody : Word;                              // 100
      rRecovery, rAvoid : Word;                                // 100
      rDamageHead, rDamageArm, rDamageLeg : Word;
      rArmorBody, rArmorHead, rArmorArm, rArmorLeg : Word;     // 228
      rOutPower, rInPower, rMagicPower, rLife : Word;          // 80
   end;
   PTSShowGuildMagicWindow = ^TSShowGuildMagicWindow;

   TCGuildMagicData = record
      rMsg : Byte;
      rWindow : Byte;
      rMagicName : String [20];
      rMagicType : Byte;   // MAGICTYPE_WRESTLING, MAGICTYPE_FENCING, MAGICTYPE_SWORDSHIP,
                           // MAGICTYPE_HAMMERING, MAGICTYPE_SPEARING
      rSpeed, rDamageBody : Word;                              // 100
      rRecovery, rAvoid : Word;                                // 100
      rDamageHead, rDamageArm, rDamageLeg : Word;
      rArmorBody, rArmorHead, rArmorArm, rArmorLeg : Word;     // 228
      rOutPower, rInPower, rMagicPower, rLife : Word;          // 80
   end;
   PTCGuildMagicData = ^TCGuildMagicData;

   TSShowBattleBar = record
      rMsg : Byte;
      rWinType : Byte;   // 1 : 备浇1俺 (1魄) 2 : 2俺 (3魄) 3 : 3俺 (5魄)
      rLeftName : array [0..60 - 1] of Char;
      rLeftWin : Byte;
      rLeftPercent : Byte;
      rRightName : array [0..60 - 1] of Char;
      rRightWin : Byte;
      rRightPercent : Byte;
   end;
   PTSShowBattleBar = ^TSShowBattleBar;

   TSShowCenterMsg = record
      rMsg : Byte;
      rColor : Word;
      rText : TWordString;
   end;
   PTSShowCenterMsg = ^TSShowCenterMsg;

   TSCount = record
      rmsg : byte;
      rCountid  : LongInt;
      rsourkey : word;
      rdestkey : word;
      rCountCur : LongInt;
      rCountMax : LongInt;
      rCountName: TWordString;
   end;
   PTSCount = ^TSCount;

   TCSelectCount = record
      rmsg : byte;
      rboOk : Boolean;
      rsourkey : word;
      rdestkey : word;
      rCountid  : LongInt;
      rCount : LongInt;
   end;
   PTCSelectCount = ^TCSelectCount;

   TCInputString = record
      rmsg : byte;
      rInputStringId : LongInt;
      rSelectedList : TNameString;
      rInputString : TWordString;
   end;
   PTCInputString = ^TCInputString;

   TSReConnect = record
      rmsg : byte;
      rId : TNameString;
      rPass : TNameString;
      rCharName : TNameString;    // LendName
      rIpAddr : TNameString;      // addr
      rPort : integer;            // port
   end;
   PTSReConnect = ^TSReConnect;

   TSConnectThru = record
      rMsg : Byte;
      rIpAddr : TNameString;
      rPort : Integer;
   end;
   PTSConnectThru = ^TSConnectThru;

   TSRainning = record
      rmsg : byte;
      rspeed: integer;
      rCount: integer;
      rOverray: integer;
      rTick: integer;
      rRainType : byte;
   end;
   PTSRainning = ^TSRainning;

   TSMessage = record
      rmsg : byte;
      rkey : word;
      rWordString : TWordString;
   end;
   PTSMessage = ^TSMessage;

   TSWindow = record
      rmsg : byte;
      rwindow : byte;
      rboShow : Boolean;
   end;
   PTSWindow = ^TSWindow;

   TSNewMap = record
      rmsg : byte;
      rMapName : TNameString;
      rCharName : TNameString;
      rId : LongInt;
      rx, ry: word;
      rObjName : TNameString;
      rTilName : TNameString;
      rRofName : TNameString;
   end;
   PTSNewMap = ^TSNewMap;

   TSShow = record
      rmsg : byte;
      rId : LongInt;
      rNameString: array [0..60 - 1] of byte;
      rdir, rx, ry: word;
      rFeature: TFeature;
      rWordString : TWordString;
   end;
   PTSShow = ^TSShow;

   // AniItem 010102 ankudo
   TDynamicObjectState = (dos_Closed, dos_Openning, dos_Openned, dos_Scroll);
   TSShowDynamicObject = record
      rmsg : byte;
      rId : LongInt;
      rNameString: TNameString;
      rx, ry: word;
      rShape : word;
      rState : Byte;
      rFrameStart, rFrameEnd : Word;
      rGuardX : array [0..10 - 1] of ShortInt;
      rGuardY : array [0..10 - 1] of ShortInt;
   end;
   PTSShowDynamicObject = ^TSShowDynamicObject;

   TSShowItem = record
      rmsg : byte;
      rId : LongInt;
      rNameString: TNameString;
      rx, ry: word;
      rshape : word;
      rcolor: byte;
      rRace : byte;
   end;
   PTSShowItem = ^TSShowItem;

   TSShowMonster = record
      rmsg : byte;
      rId : LongInt;
      rNameString: TNameString;
      rdir, rx, ry: word;
      rshape : word;
      rcolor: byte;
   end;
   PTSShowMonster = ^TSShowMonster;

   TSHide = record
      rmsg : byte;
      rId : LongInt;
   end;
   PTSHide = ^TSHide;

   TSTurn = record
      rmsg : byte;
      rId : LongInt;
      rdir, rx, ry: word;
   end;
   PTSTurn = ^TSTurn;

   TSMove = record
      rmsg : byte;
      rId : LongInt;
      rdir, rx, ry: word;
   end;
   PTSMove = ^TSMove;

   TSSay = record
      rmsg : byte;
      rId : LongInt;
      rkind : byte;
      rWordString: TWordString;
   end;
   PTSSay = ^TSSay;

   TSChatMessage = record
      rmsg : byte;
      rFColor: word;
      rBColor: word;
      rWordString : TWordString;
   end;
   PTSChatMessage = ^TSChatMessage;

   TSChangeFeature = record
      rmsg : byte;
      rId : LongInt;
      rFeature: TFeature;
   end;
   PTSChangeFeature = ^TSChangeFeature;

   TSChangeState = record
      rmsg : byte;
      rId : LongInt;
      rState : byte;
      rFrameStart, rFrameEnd : Word;
   end;
   PTSChangeState = ^TSChangeState;

   TSChangeProperty = record
      rmsg : byte;
      rId : LongInt;
      rNameString: TNameString;
   end;
   PTSChangeProperty = ^TSChangeProperty;

   TSHaveItem = record
      rmsg : byte;
      rkey : byte;
      rName : TNameString;
      rCount : word;
      rColor: byte;
      rShape: word;
   end;
   PTSHaveItem = ^TSHaveItem;

   TSWearItem = record
      rmsg : byte;
      rkey : byte;
      rName : TNameString;
      rColor: byte;
      rShape: word;
   end;
   PTSWearItem = ^TSWearItem;

   TSHaveMagic = record
      rmsg : byte;
      rkey : byte;
      rShape: word;
      rName : TNameString;
      rSkillLevel : word;
      rpercent : byte;
   end;
   PTSHaveMagic = ^TSHaveMagic;

   TSAttribBase = record
      rmsg    : byte;
      rAge    : word;
      rCurEnergy, rEnergy : word;
      rCurInPower, rInPower : word;
      rCurOutPower, rOutPower : word;
      rCurMagic, rMagic : word;
      rCurLife, rLife   : word;
   end;
   PTSAttribBase = ^TSAttribBase;

   TSAttribValues = record
      rmsg      : byte;
      rLight    : word;
      rDark     : word;
      rMagic    : word;
      rtalent   : word;
      rGoodChar : word;
      rBadChar  : word;
      rlucky    : word;
      radaptive : word;      // 利览
      rRevival  : word;      // 犁积
      rimmunity : word;
      rvirtue   : word;      // 龋楷瘤扁

      rhealth    : word;
      rsatiety   : word;
      rpoisoning : word;
      rheadseak  : word;
      rarmseak   : word;
      rlegseak   : word;
   end;
   PTSAttribValues = ^TSAttribValues;
   
   TSAttribFightBasic = record
      rmsg      : byte;
      rWordString : TWordString;
   end;
   PTSAttribFightBasic = ^TSAttribFightBasic;

   TSAttribLife = record
      rmsg : byte;
      rcurLife : word;
   end;
   PTSAttribLife = ^TSAttribLife;

   TSEventString = record
      rmsg : byte;
      rWordString: TWordString;
   end;
   PTSEventString = ^TSEventString;

   TSStructed = record
      rmsg : byte;
      rId : LongInt;
      rRace : Byte;
      rpercent : Byte;
   end;
   PTSStructed = ^TSStructed;

   TSMovingMagic = record
      rmsg : byte;
      rsid, reid : LongInt;            // 金荤恩   , 嘎篮荤恩
      rtx, rty : word;                 // 档馒瘤 (嘎篮荤恩捞 绝阑版快)
      rMoveingStyle: byte;             // 朝扼啊绰 葛剧
      rsf, rmf, ref: byte;             // 矫累 朝扼皑 档馒矫 葛剧
      rspeed : byte;                   // 加档
      rafterimage : byte;              // 儡惑
      rafterover : byte;               // 儡惑 坷滚饭捞
      rtype : byte;                    // 0 : default, 1 : 归蓖具青贱
    end;
   PTSMovingMagic = ^TSMovingMagic;

   TSSoundString = record
      rmsg : byte;
      rHiByte, rLoByte : byte;
      rSoundName : array[0..12] of byte;
      rX, rY : Word;
   end;