grobal2.pas

传世源码可编译的,功能齐全.是学习的好模版,会DELPHI的朋友们也可以自己修改,弄个自己的引擎.

unit Grobal2;

interface

uses
  Windows, Classes,JSocket,IniFiles;

const
  MAXLEVEL = 65535;
  MAXMAGIC = 40;
  sSTRING_GOLDNAME = '金币' ;
  sENCYPTSCRIPTFLAG = ';AFT_EnCyptScript';
  
  LA_UNDEAD=1;            //?
  ET_FIRE= 5;             //  22;    火海
  ET_HOLYCURTAIN=4;       //困魔咒
  ET_STONEMINE =2   ;
  ET_DIGOUTZOMBI=1  ;     //从地下爬出来
  ET_PILESTONES=3 ;
  ET_SCULPEICE  = 6;

  LOG_GAMEGOLD=1;
  LOG_GAMEPOINT=2;
  MAXBAGITEM=46;             //最大包裹数
  SLAVEMAXLEVEL=8;           //奴隶的最大级别
  sSTATUS_FAIL='+FL/';
  sSTATUS_GOOD='+G/';

  SKILL_FIREBALL = 1;       // 小火球
  SKILL_HEALLING = 2;       // 治疗术
  SKILL_ILKWANG = 3;        // 初级剑法
  SKILL_YEDO = 7;           // 攻杀剑法

  SKILL_FIREBALL2 = 5;      // 火炎刀
  SKILL_AMYOUNSUL = 6;      // 施毒术
  SKILL_ONESWORD = 4;       // 精神战法
  SKILL_FIREWIND = 8;       // 抗拒火环
  SKILL_FIRE = 9;           // 地狱火焰
  SKILL_SHOOTLIGHTEN = 10;  // 疾光电影
  SKILL_LIGHTENING=11;      // 雷电术
  SKILL_ERGUM=12;           // 刺杀剑术
  SKILL_FIRECHARM=13;       // 灵魂道符
  SKILL_HANGMAJINBUB=14;    // 幽灵盾
  SKILL_DEJIWONHO=15;       // 神圣战甲术
  SKILL_HOLYSHIELD=16;      // 困魔咒
  SKILL_SKELLETON=17;       // 骷髅召唤术
  SKILL_CLOAK=18;           // 隐身术
  SKILL_BIGCLOAK=19;        // 集体隐身术
  SKILL_TAMMING=20;         // 诱惑之光
  SKILL_SPACEMOVE=21;       // 瞬间移动
  SKILL_EARTHFIRE=22;       // 火墙
  SKILL_FIREBOOM=23;        // 爆裂火焰
  SKILL_LIGHTFLOWER=24;     // 地狱雷光
  SKILL_BANWOL=25;          // 半月弯刀
  SKILL_FIRESWORD=26;       // 烈火剑法
  SKILL_MOOTEBO=27;         // 野蛮冲撞
  SKILL_SHOWHP=28;          // 不详
  SKILL_BIGHEALLING=29;     // 群体治愈术
  SKILL_SINSU=30;           // 召唤神兽
  SKILL_SHIELD=31;          // 魔法盾
  SKILL_KILLUNDEAD=32;      // 圣言术
  SKILL_SNOWWIND=33;        // 冰咆哮
  SKILL_UNAMYOUNSUL=65;     // 解毒术
  SKILL_WINDTEBO=37;        // 狮子吼
  SKILL_MABE=36;             // 不详
  SKILL_GROUPLIGHTENING=53;  // 五雷轰
  SKILL_GROUPAMYOUNSUL=38;   // 不详
  SKILL_GROUPDEDING=39;      // 不详
  SKILL_40 = 40;   // 残影刀法
  SKILL_41 = 41;   // 血影刀法
  SKILL_35 = 35;   // 化身蝙蝠

  SKILL_42 = 42;   // 护身真气
  SKILL_43 = 43;   // 抱月刀
  SKILL_44 = 44;   // 雷霆剑
  SKILL_45 = 45;   // 诅咒术
  SKILL_46 = 46;   // 赶尸
  SKILL_47 = 47;   // 替身法符
  SKILL_48 = 48;   // 灵魂墙
  SKILL_49 = 49;   // 冰箭术
  SKILL_50 = 50;   // 风火轮
  SKILL_51 = 51;   // 冰龙破
  SKILL_52 = 52;   // 玄冰刃
  SKILL_53 = 53;   // 五雷轰
  SKILL_54 = 54;   // 冰旋风

  SKILL_61 = 61;   // 金刚护体
  SKILL_63 = 63;   // 道心清明
  SKILL_64 = 64;   // 神光术
  SKILL_66 = 66;   // 强化骷髅术
  SKILL_67 = 67;   // 幽冥火咒
  SKILL_68 = 68;   // 法之魄
  SKILL_69 = 69;   // 兽灵术
  SKILL_70 = 70;   // 风影盾
  SKILL_71 = 71;   // 狂龙紫电
  SKILL_72 = 72;   // 心灵召唤
  SKILL_73 = 73;   // 流星火雨
  SKILL_74 = 74;   // 擒龙手
  SKILL_75 = 75;   // 遁地
  SKILL_77 = 77;   // 移形换影
//==================================
  SKILL_78 = 78;   // 怒斩天下
  SKILL_85 = 85;   // 神之召唤
  SKILL_79 = 79;   // 天怒惊雷
  SKILL_80 = 80;   // 天女散花咒
  SKILL_81 = 81;   // 迷光烈焰
  SKILL_83 = 83;   // 火毒攻心剑
//===================================
  SKILL_87 = 87;   // 强化火球术
  SKILL_88 = 88;   // 强化攻杀剑法
  SKILL_89 = 89;   // 强化施毒术
  SKILL_90 = 90;   // 强化诅咒术
//===================================
  RUNGATECODE=$AA55AA55;

//  RUNGATECODE
  GS_QUIT=0;
  GS_USERACCOUNT=1;
  GS_CHANGEACCOUNTINFO=2;

  SG_FORMHANDLE=1000;
  SG_STARTNOW=1001;
  SG_STARTOK=1002;

  SG_USERACCOUNT=1003;
  SG_USERACCOUNTNOTFOUND=1004;
  SG_USERACCOUNTCHANGESTATUS=1005;
  SG_CHECKCODEADDR=1006;

  SS_OPENSESSION=100;
  SS_CLOSESESSION=101;
  SS_SERVERINFO=102;
  SS_LOGINCOST=103;//?
  SS_KEEPALIVE=104;
  SS_SOFTOUTSESSION=105;

  SS_KICKUSER=111;
  SS_SERVERLOAD=113;
  UNKNOWMSG=106;

  SS_200 =200 ;
  SS_201=201 ;
  SS_202=202 ;
  SS_WHISPER=203 ;
  SS_204=204 ;
  SS_205=205 ;
  SS_206=206 ;
  SS_207=207 ;
  SS_208=208 ;
  SS_209=209 ;
  SS_210=210 ;
  SS_211=211 ;
  SS_212=212 ;
  SS_213=213 ;
  SS_214=214;

  DBR_FAIL =2000;          //DBS 调试成功
  DBR_LOADHUMANRCD=1100;
  DBR_SAVEHUMANRCD=1101;
  DBR_NEWYSRCD=1102;
  DBR_LOCALIP=1103;

  DB_LOADHUMANRCD=39100;//100;
  DB_SAVEHUMANRCD=39101;//101;
  DB_SAVEHUMANRCDEX=39102;//102;  //
  DB_NEWYS=39103;//103;
  DB_M2ASKFORLOCALIP=39104;//104;

//////////////////////////////////////////////////
// 方向
  DR_UP         = 0;
  DR_UPRIGHT    = 1;
  DR_RIGHT      = 2;
  DR_DOWNRIGHT  = 3;
  DR_DOWN       = 4;
  DR_DOWNLEFT   = 5;
  DR_LEFT       = 6;
  DR_UPLEFT     = 7;
// 人物身上装备的位置
  U_DRESS       = 0;   // 衣服
  U_WEAPON      = 1;   // 武器
  U_RIGHTHAND   = 2;   //
  U_NECKLACE    = 3;   // 项链
  U_HELMET      = 4;   // 头盔
  U_ARMRINGL    = 5;   // 左手镯
  U_ARMRINGR    = 6;   // 右手镯
  U_RINGL       = 7;   // 左戒指
  U_RINGR       = 8;   // 右戒指
  // 身上4格物品
  U_BOOTS = 9;     // 鞋子
  U_BELT  = 10;    // 腰带
  U_CHARM = 11;    // 宝石
  U_BUJUK = 12;    // 物品

  DEFBLOCKSIZE  = 16;
  BUFFERSIZE    = 10000;
  DATA_BUFSIZE  = 8192;

  GROUPMAX = 11;
  BAGGOLD  = 5000000;
  BODYLUCKUNIT = 10;
  STATE_STONE_MODE      = 1;       // 石化 标志  比如雕像出现的状态
  MAX_STATUS_ATTRIBUTE = 16;       // 传世状态 > 12  =16 [0..15]
// 人物状态数组保存位置
  POISON_DECHEALTH      = 0;       // 中绿毒
  POISON_DAMAGEARMOR    = 1;       // 中红毒
  POISON_LOCKSPELL      = 2;       // 魔法锁定
                                   // =3 未知
  POISON_DAOCAO1       = 4;        // 传世为诅咒状态 蓝色
  POISON_STONE         = 5;        // 麻痹
  POISON_DAOCAO2       = 6;        // 68;  // 传世为诅咒状态 粉红色

  STATE_OPENHEATH        =7;      //
  STATE_TRANSPARENT     = 8;      // 隐身标志

  STATE_DEFENCEUP       = 9;      // 加防御
  STATE_MAGDEFENCEUP    = 10;     // 加魔防
  STATE_BUBBLEDEFENCEUP = 11;     // 魔法盾标志
  STATE_12              = 12;     // 人物箭头标志
                       //13       未知
  STATE_14              = 14;      //14  护身真气
  STATE_15              = 15;      //风火轮标志
///////////////////

  USERMODE_PLAYGAME = 1;            //
  USERMODE_LOGIN    = 2;
  USERMODE_LOGOFF   = 3;
  USERMODE_NOTICE   = 4;           //
 //
  CM_GETGAMELIST=100;
  SM_SENDGAMELIST=101;
 //
  CM_TAKEHORSE    =   64 ;

  CM_42HIT             =42;
  CM_QUERYUSERSTATE     = 82;

  CM_QUERYUSERSET       =83;

  CM_QUERYUSERNAME      = 80;
  CM_QUERYBAGITEMS      = 81;

  CM_HACK               = 40010;
  CM_LOOPDEATH          = 20010;   //10010 for v1.26
  CM_QUERYCHR           = 100;
  CM_NEWCHR             = 101;
  CM_DELCHR             = 102;
  CM_SELCHR             = 103;
  CM_SELECTSERVER       = 104;
  CM_UNDELCHR           = 105;

  CM_DROPITEM           = 1000;
  CM_PICKUP             = 1001;
  CM_OPENDOOR           = 1002;
  CM_TAKEONITEM		      = 1003;
  CM_TAKEOFFITEM        = 1004;
  CM_1005                =1005;
  CM_EAT                = 1006;
  CM_BUTCH              = 1007;
  CM_MAGICKEYCHANGE	    = 1008;
  CM_SOFTCLOSE          = 1009;
  CM_CLICKNPC           = 1010;
  CM_MERCHANTDLGSELECT  = 1011;
  CM_MERCHANTQUERYSELLPRICE = 1012;
  CM_USERSELLITEM       = 1013;
  CM_USERBUYITEM        = 1014;
  CM_USERGETDETAILITEM  = 1015;
  CM_DROPGOLD           = 1016;
  CM_1017               = 1017;
  CM_LOGINNOTICEOK      = 1018;
  CM_GROUPMODE          = 1019;
  CM_CREATEGROUP        = 1020;
  CM_ADDGROUPMEMBER     = 1021;
  CM_DELGROUPMEMBER     = 1022;
  
  CM_GROUPMEMBERXY      = 1055;

  CM_USERREPAIRITEM     = 1023;
  CM_MERCHANTQUERYREPAIRCOST = 1024;
  CM_DEALTRY            = 1025;
  CM_DEALADDITEM        = 1026;
  CM_DEALDELITEM        = 1027;
  CM_DEALCANCEL         = 1028;
  CM_DEALCHGGOLD        = 1029;
  CM_DEALEND            = 1030;
  CM_USERSTORAGEITEM    = 1031;
  CM_USERTAKEBACKSTORAGEITEM = 1032;
  CM_WANTMINIMAP        = 1033;
  CM_USERMAKEDRUGITEM   = 1034;
  CM_OPENGUILDDLG       = 1035;
  CM_GUILDHOME          = 1036;
  CM_GUILDMEMBERLIST    = 1037;
  CM_GUILDADDMEMBER     = 1038;
  CM_GUILDDELMEMBER     = 1039;
  CM_GUILDUPDATENOTICE  = 1040;
  CM_GUILDUPDATERANKINFO = 1041;
  CM_1042                = 1042;
  CM_ADJUST_BONUS       = 1043;
  CM_GUILDALLY          = 1044;
   CM_GUILDBREAKALLY     = 1045;
  CM_SPEEDHACKUSER      = 10430; //??

  CM_PROTOCOL           = 2000;
  CM_IDPASSWORD         = 2001;
  CM_ADDNEWUSER         = 2002;
  CM_CHANGEPASSWORD     = 2003;
  CM_UPDATEUSER         = 2004;
  CM_GETBACKPASSWORD    =2005;

  CM_PASSWORD=     2001;
  CM_CHGPASSWORD=2003;
  CM_SETPASSWORD =    2004;

  CM_THROW              = 3005;
  CM_HORSERUN           =3009        ;  //3013
  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_CRSHIT             = 30200;  //保留未定 3020
   CM_TWNHIT             = 30211;

  CM_WIDEHIT            = 3024;
  CM_FIREHIT            = 3025;
  CM_3026HIT            = 3026;   //

  CM_SAY                = 3030;
  CM_RIDE = 3031;
  CM_26771=26771;   //修改个性化签名
  CM_ADDFRIEND          = 66;
  CM_DELFRIEND          = 67;
  CM_ADDASK             = 68;
  CM_SENDSELL           =24241;   //开始摆摊

  RUNGATEMAX = 200;
  // For Game Gate
  GM_OPEN             = 1;                        //加密 1
  GM_CLOSE            = 2;                                  //加密 2
  GM_CHECKSERVER      = 3;   // Send check signal to Server
  GM_CHECKCLIENT      = 4;   // Send check signal to Client

  GM_DATA             = 5;                           // 加密 5
  GM_SERVERUSERINDEX  = 6;
  GM_RECEIVE_OK       = 7;
                         // 加密 7
  GM_TEST             = 20;

  OS_MOVINGOBJECT = 1;
  OS_ITEMOBJECT   = 2;
  OS_EVENTOBJECT  = 3;
  OS_GATEOBJECT   = 4;
  OS_SWITCHOBJECT = 5;
  OS_MAPEVENT     = 6;
  OS_DOOR         = 7;
  OS_ROON         = 8;

  RC_PLAYOBJECT  = 1;     //OK；
  RC_YSBJECT     =254;
  RC_MONSTER    = 53;      //ok    // ？   会主动攻击的。

  RCC_MERCHANT  =50;            //商人的外观   OK
  RCC_GUARD        = 12;

  RC_ANIMAL     = 50;       //ok     // 不会主动攻击的
  RC_NPC        = 8;     //  OK
  RC_PEACENPC   = 15;     //OK
  RC_ARCHERGUARD    = 112 ;//OK     112
  RC_GUARD         =12;    //OK

  ISM_WHISPER           = 1234;

  //服务器模块之间
  SM_OPENSESSION        = 100;     //这个 作为加密数据。
  SM_CLOSESESSION       = 101;
  CM_CLOSESESSION       = 102;

  SM_PASSWORD          =1;  //?
  SM_PLAYDICE          =2;  /// ?
  SM_PASSWORDSTATUS    =3;   //?
  SM_PUSHX             =5;
  SM_RUSH               = 6;
  SM_RUSHKUNG           = 7;//
  SM_FIREHIT            = 8;    //烈火
  SM_BACKSTEP           = 9;
  SM_TURN               = 10;
  SM_WALK               = 11;   //走
  SM_TAKEHORSE          = 12;                         //骑马，下马   SM_SITDOWN
  SM_RUN                = 13;
  SM_HORSERUN           = 13;       //?
  SM_HIT                = 14;   //砍
  SM_HEAVYHIT           = 15;//
  SM_BIGHIT             = 16;//
  SM_SPELL              = 17;   //使用魔法
  SM_POWERHIT           = 18;
  SM_LONGHIT            = 19;   //刺杀
  SM_DIGUP              = 20;
  SM_DIGDOWN            = 21;
  SM_FLYAXE             = 22;
  SM_LIGHTING           = 23;
  SM_WIDEHIT            = 24;
  SM_25                 = 25;    //破盾
  SM_ALIVE              =  27;
  SM_MOVEFAIL           = 28;//
  SM_HIDE               = 29;   //金刚护体的绿色血条  ，护身真气的血条。
  SM_DISAPPEAR          = 30;
  SM_STRUCK             = 31;   //被攻击， 后仰一下。
  SM_DEATH              = 32;
  SM_SKELETON           = 33;
  SM_NOWDEATH           = 34;

  SM_ACTION_MIN = SM_RUSH;
  SM_ACTION_MAX = SM_WIDEHIT;
  SM_ACTION2_MIN=65072;
  SM_ACTION2_MAX =65073;
  
  SM_HEAR               = 40;
  SM_FEATURECHANGED     = 41;                               //加密   41
  SM_41                   = 41;
  SM_USERNAME           = 42;
  SM_42                = 42;
  SM_43                 = 43;
  SM_WINEXP             = 44;
  SM_LEVELUP            = 45;
  SM_DAYCHANGING        = 46;
  SM_47                 = 47;     // 这个是 破盾破击 风火轮等新技能的 击中后魔法效果封包

  SM_LOGON              = 50;                                //加密  50
  SM_NEWMAP             = 51;
  SM_ABILITY            = 52;              //能力值
  SM_HEALTHSPELLCHANGED = 53;