grobal2.pas

乐都SQL版传奇全套代码,绝对可编译

unit Grobal2;

interface
uses
  Windows, Classes;
const
  BufferSize        = 10000;
  RUNGATECODE       = $AA55AA55;
  GM_OPEN           = 1;
  GM_CLOSE          = 2;
  GM_CHECKSERVER    = 3;                // Send check signal to Server
  GM_CHECKCLIENT    = 4;                // Send check signal to Client
  GM_DATA           = 5;
  GM_SERVERUSERINDEX = 6;
  GM_RECEIVE_OK     = 7;
  GM_TEST           = 20;
  DEFBLOCKSIZE      = 16;
  CM_SAY            = 3030;
  CM_THROW          = 3005;
  CM_TURN           = 3010;             //改变方向
  CM_WALK           = 3011;
  CM_SITDOWN        = 3012;
  CM_RUN            = 3013;
  CM_HIT            = 3014;
  CM_HEAVYHIT       = 3015;
  CM_BIGHIT         = 3016;
  CM_SPELL          = 3017;
  CM_POWERHIT       = 3018;
  CM_LONGHIT        = 3019;
  CM_3020           = 3020;
  CM_WIDEHIT        = 3024;
  CM_FIREHIT        = 3025;
  CM_DROPITEM       = 1000;
  CM_PICKUP         = 1001;
type
  TDefaultMessage = record
    Recog: Integer;
    Ident: Word;
    Param: Word;
    tag: Word;
    Series: Word;
  end;
  pTDefaultMessage = ^TDefaultMessage;
  TMsgHeader = record
    dwCode: LongWord;                   //0x00
    nSocket: Integer;                   //0x04
    wGSocketIdx: Word;                  //0x08
    wIdent: Word;                       //0x0A
    wUserListIndex: Word;               //0x0C
    wTemp: Word;                        //0x0E
    nLength: Integer;                   //0x10
  end;
  pTMsgHeader = ^TMsgHeader;
implementation
end.