deftype.pas

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

   PTSSoundString = ^TSSoundString;

   TSSoundBaseString = record
      rmsg : byte;
      rRoopCount : word;
      rWordString: TWordString;
   end;
   PTSSoundBaseString = ^TSSoundBaseString;

   TSHaveWearItem = record
      rmsg : byte;
      rkey : byte;
      rName : TNameString;
      rColor: byte;
      rShape: word;
   end;
   PTSHaveWearItem = ^TSHaveWearItem;

   TSAttribHeader = record
      rmsg : byte;
      rTrade : TNameString;
      rlevel : byte;
      rexperience : LongInt;
      rnextexperience : LongInt;
      rMoney : Longint;
   end;
   PTSAttribHeader = ^TSAttribHeader;

   TSAttribTail = record
      rmsg : byte;
      rWordString: TWordString;
   end;
   PTSAttribTail = ^TSAttribTail;

   TSAttribMana = record
      rmsg : byte;
      rcurMana : word;
   end;
   PTSAttribMana = ^TSAttribMana;

   TSAttribMoney = record
      rmsg : byte;
      rMoney : LongInt;
   end;
   PTSAttribMoney = ^TSAttribMoney;

   TSAttribExperience = record
      rmsg : byte;
      rExperience : LongInt;
   end;
   PTSAttribExperience = ^TSAttribExperience;

   TSAttribStem = record
      rmsg : byte;
      rcurStem : word;
   end;
   PTSAttribStem = ^TSAttribStem;

   TSSetTilAndObj = record
      rmsg : byte;
      rWordString : TWordString;
   end;
   PTSSetTilAndObj = ^TSSetTilAndObj;

   TSHaveItemInfo = record
      rmsg : byte;
      rkey : byte;
      rShape : word;
      rkind : byte;
      rWordString : TWordString;
   end;
   PTSHaveItemInfo = ^TSHaveItemInfo;

   TSHaveMagicInfo = record
      rmsg : byte;
      rkey : byte;
      rtype : byte;
      rLevel : byte;
      rShape : integer;
      rWordString : TWordString;
   end;
   PTSHaveMagicInfo = ^TSHaveMagicInfo;

   TSMotion = record
      rmsg : byte;
      rId : LongInt;
      rmotion : word;
   end;
   PTSMotion = ^TSMotion;

   TSEffect = record
      rmsg : byte;
      rId : LongInt;
      reffect : byte;
   end;
   PTSEffect = ^TSEffect;

   TSHit = record
      rmsg : byte;
      rid : LongInt;
      rdir : word;
   end;
   PTSHit = ^TSHit;

   TSMagic = record
      rmsg : byte;
      rid : LongInt;
      rdir : word;
   end;
   PTSMagic = ^TSMagic;

   TSMenu = record
      rmsg : byte;
      rid  : LongInt;
      rn : byte;
      rtitlecolor: word;
      rselectcolor :word;
      rdisplaytime : word;
      rIcons : array [0..32-1] of word;
      rMenuTitle : TNameString;
      rWordString: TWordString;
   end;
   PTSMenu = ^TSMenu;

   TSSetPosition = record
      rmsg : byte;
      rid : LongInt;
      rdir : word;
      rx : word;
      ry : word;
   end;
   PTSSetPosition = ^TSSetPosition;

   TSSendDelay = record
      rmsg : byte;
      rsenddelay: word;
   end;
   PTSSendDelay = ^TSSendDelay;

   TSScrollText = record
      rmsg : byte;
      rWordString: TWordString;
   end;
   PTSScrollText = ^TSScrollText;

   TSReEnterAddress = record
      rmsg : byte;
      rWordString: TWordString;
   end;
   PTSReEnterAddress = ^TSReEnterAddress;

   TSLogItem = record
      rmsg : byte;
      rkey : byte;
      rName : TNameString;
      rCount : word;
      rColor: byte;
      rShape: word;
   end;
   PTSLogItem = ^TSLogItem;

   TSCheck = record
      rMsg : Byte;
      rCheck : Byte; // 1捞搁 甘颇老 眉农, 2搁 努扼捞攫飘 Tick 眉农
   end;
   PTSCheck = ^TSCheck;

   TWordInfoString = record
      rmsg : byte;
      rWordString: TWordString;
   end;
   PTWordInfoString = ^TWordInfoString;

///////////////////////////////////
//        Client Structure       //
///////////////////////////////////

   TCKey = record
      rmsg : byte;
      rkey : word;
   end;
   PTCKey = ^TCKey;

   TCVer = record
      rmsg : byte;
      rVer : word;
      rNation : word;
   end;
   PTCVer = ^TCVer;

   TCIdPass = record
      rmsg : byte;
      rId : TNameString;
      rPass : TNameString;
   end;
   PTCIdPass = ^TCIdPass;

   TCIdPassAzacom = record
      rmsg : byte;
      rId : TNameString;
      rPass : TNameString;
      rAzaComid : TNameString;
   end;
   PTCIdPassAzaCom = ^TCIdPassAzaCom;

   TCCreateIdPass = record
      rmsg : byte;
      rid : TNameString;
      rPass : TNameString;
      rName : TNameString;
      rTelephone : TNameString;
      rBirth : TNameString;
   end;
   PTCCreateIdPass = ^TCCreateIdPass;

   TCCreateIdPass2 = record
      rmsg : byte;
      rid : TNameString;
      rPass : TNameString;
      rName : TNameString;
      rMasterKey : TNameString;
      rNativeNumber : TNameString;
   end;
   PTCCreateIdPass2 = ^TCCreateIdPass2;

   TCCreateIdPass3 = record
      rMsg : Byte;
      rID : String [12];
      rPass : String [12];
      rName : String [12];
      rNativeNumber : String [15];
      rMasterKey : String [12];
      rEmail : String [32];
      rPhone : String [15];
      rParentName : String [12];
      rParentNativeNumber : String [15];
   end;
   PTCCreateIDPass3 = ^TCCreateIDPass3;

   TCChangePassWord = record
      rmsg : byte;
      rNewPass : TNameString;
   end;
   PTCChangePassWord = ^TCChangePassWord;

   TCCreateChar = record
      rmsg : byte;
      rchar : TNameString;
      rSex : byte;
      rVillage : TNameString;
      rServer : TNameString;
   end;
   PTCCreateChar = ^TCCreateChar;

   TCDeleteChar = record
      rmsg : byte;
      rchar : TNameString;
   end;
   PTCDeleteChar = ^TCDeleteChar;

   TCSelectChar = record
      rmsg : byte;
      rchar : TNameString;
   end;
   PTCSelectChar = ^TCSelectChar;

   TCSay = record
      rmsg : byte;
      rWordString : TWordString;
   end;
   PTCSay = ^TCSay;

   TCMove = record
      rmsg : byte;
      rdir : word;
      rx, ry : word;
   end;
   PTCMove = ^TCMove;

   TCClick = record
      rmsg : byte;
      rwindow : byte;
      rShift : TShiftState;
      rclickedId : LongInt;
      rkey : word;
   end;
   PTCClick = ^TCClick;

   TCDragDrop = record
      rmsg : byte;
      rsourwindow : byte;
      rdestwindow : byte;
      rsourId : LongInt;
      rdestId : LongInt;
      rsx, rsy : word;
      rdx, rdy : word;
      rsourkey : word;
      rdestkey : word;
   end;
   PTCDragDrop = ^TCDragDrop;

   TCHit = record
      rmsg : byte;
      rkey : word;
      rtid : integer;
      rtx, rty: word;
   end;
   PTCHit = ^TCHit;

   TCWindowConfirm = record
      rMsg : Byte;
      rWindow : Word;
      rboCheck : Boolean;
      rButton : Byte;
      rText : String [30];
   end;
   PTCWindowConfirm = ^TCWindowConfirm;

   TCGiveItem = record
      rmsg: byte;
      rkey : word;
      rid : LongInt;
   end;
   PTCGiveItem = ^TCGiveItem;

   TCChangeItem = record
      rmsg : byte;
      rfir, rsec : word;
   end;
   PTCChangeItem = ^TCChangeItem;

   TCChangeMagic = record
      rmsg : byte;
      rfir, rsec : word;
   end;
   PTCChangeMagic = ^TCChangeMagic;

   TCMouseEvent = record
     rmsg : byte;
     revent: array [0..10-1] of integer;
   end;
   PTCMouseEvent = ^TCMouseEvent;

   TCCheck = record
      rMsg : Byte;
      rCheck : Byte;
      rTick : Integer;
      // rCheck啊 1捞搁 rTick = 0 (甘颇老绝澜) or 1 (甘颇老乐澜)
      // rCheck啊 2捞搁 rTick = timeGetTime();
   end;
   PTCCheck = ^TCCheck;

   TCMakeGuildData = record
      rMsg : Byte;
      rGuildName : String [20];
      rSubSysop : array [0..3 - 1] of String [20];
      rAgreeChar : array [0..6 - 1] of String [20];
   end;
   PTCMakeGuildData = ^TCMakeGuildData;

   TCGuildInfoData = record
      rMsg : Byte;
      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;
      rGuildWear1 : String [40];
      rGuildWear2 : String [40];
   end;
   PTCGuildInfoData = ^TCGuildInfoData;

   TCGuildWarData = record
      rMsg : Byte;
      rWGName : String [20];
      rWGSysop : String [20];
      rTime : Byte;
   end;
   PTCGuildWarData = ^TCGuildWarData;

   TSNetState = record
      rMsg : Byte;
      rID : Integer;
      rMadeTick : Integer;
   end;
   PTSNetState = ^TSNetState;

   TCNetState = record
      rMsg : Byte;
      rID : Integer;
      rMadeTick : Integer;
      rCurTick : Integer;
   end;
   PTCNetState = ^TCNetState;


/////////    FSSockM SocketFunction    //////////////

   TSocketSendFunction = procedure (cnt:integer; pb:pbyte) of object;


   // LoginDb Type
   TGMGuildData = record
      rmsg : byte;
      rGuildId: integer;
      rboAllow : Boolean;
      rGuildName: string[20];
      rSysopName: string [20];
   end;
   PTGMGuildData = ^TGMGuildData;

   TGMData = record
      rmsg : byte;
      rLogInId: string[20];
      rLogInPass: string[20];
      rCharName: string[20];
      rWordString : TWordString;
   end;
   PTGMData = ^TGMData;

   TLeaveData = record
      reventTick : integer;
      rboSendSaveAndClose : Boolean;
      GMD : TGMData;
   end;
   PTLeaveData = ^TLeaveData;

///////////////    udp type   ////////////////

  TStringData = record
    rmsg : byte;
    rWordString : TWordString;
  end;
  PTStringData = ^TStringData;

const
   PM_NONE         = 0;
   PM_CHECKPAID    = 1;
   PM_CHECKRESULT  = 2;
   PM_CHECKPAID2    = 3;

type
  TPDData = record
    rmsg : byte;
    rConId : integer;
    rLoginId : string[20];
    rIpaddr : string[20];
    rRemainDay : integer;
    rboTimePay : Boolean;
    rSenderPort : integer;
  end;
  PTPDData = ^TPDData;

  TPDData2 = record
    rmsg : byte;
    rConId : integer;
    rLoginId : string[20];
    rIpaddr : string[20];
    rRemainDay : integer;
    rboTimePay : Boolean;
    rSenderPort : integer;
    rMakeDate : string[20];
  end;
  PTPDData2 = ^TPDData2;


////////////////////////////////////
// Game Server and Notice Server
////////////////////////////////////
const
   GNM_NONE             = 0;
   GNM_INUSER           = 1;
   GNM_OUTUSER          = 2;
   GNM_ALLCLEAR         = 3;

   NGM_NONE             = 0;
   NGM_REQUESTCLOSE     = 1;
   NGM_REQUESTALLUSER   = 2;

   // Login Server Message
   LG_INSERT            =   0;
   LG_SELECT            =   1;
   LG_DELETE            =   2;
   LG_UPDATE            =   3;

   // DB Server Message
   DB_INSERT            =   0;
   DB_SELECT            =   1;
   DB_DELETE            =   2;
   DB_UPDATE            =   3;
   DB_LOCK              =   4;
   DB_UNLOCK            =   5;
   DB_CONNECTTYPE       =   6;
   DB_ITEMSELECT        =   7;
   DB_ITEMUPDATE        =   8;

   // Game Server Message
   GM_CONNECT           =   0;
   GM_DISCONNECT        =   1;
   GM_SENDUSERDATA      =   2;
   GM_SENDGAMEDATA      =   3;
   GM_DUPLICATE         =   4;
   GM_SENDALL           =   5;
   GM_UNIQUEVALUE       =   6;

   // Balance Server Message
   BM_GATEINFO          =   0;

   DB_OK                =   0;
   DB_ERR               =   1;
   DB_ERR_NOTFOUND      =   2;
   DB_ERR_DUPLICATE     =   3;
   DB_ERR_IO            =   4;
   DB_ERR_INVALIDDATA   =   5;
   DB_ERR_NOTENOUGHSPACE =  6;

type
   TConnectInfo = record
      RemoteIP : String;
      RemotePort : Integer;
      LocalPort : Integer;
   end;

   TPaidType = ( pt_none, pt_invalidate, pt_validate, pt_test, pt_timepay, pt_namemoney, pt_nametime, pt_ipmoney, pt_iptime );

   TPaidData = record
      rLoginId : String [20];
      rIpAddr : String [20];
      rRemainDay : Integer;
      rMakeDate : String [20];
      rPaidType : TPaidType;
      rCode : Byte;
   end;
   PTPaidData = ^TPaidData;

   TNoticeData = record
      rMsg : Byte;
      rLoginID : String [20];
      rCharName : String [20];
      rIpAddr : String [20];
      rPaidType : TPaidType;
      rCode : Byte;
   end;
   PTNoticeData = ^TNoticeData;

   TBalanceData = record
      rMsg : Byte;
      rIpAddr : array [0..20 - 1] of char;
      rPort : Integer;
      rUserCount : Integer;
   end;
   PTBalanceData = ^TBalanceData;

   TComData = record
      Size : Integer;
      Data : array [0..4096 - 1] of Byte;
   end;
   PTComData = ^TComData;

   TWordComData = record
      Size : Word;
      Data : array [0..4096 - 1] of Byte;
   end;
   PTWordComData = ^TWordComData; 

implementation

end.