grobal2.pas

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

unit Grobal2;

interface
uses
  Windows;

const
  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;

  DEFBLOCKSIZE                          = 16;
  BUFFERSIZE                            = 10000;

  LOGICALMAPUNIT                        = 40;

  UNITX                                 = 48;
  UNITY                                 = 32;

  HALFX                                 = 24;
  HALFY                                 = 16;

  MAXBAGITEM                            = 52;

  STATE_STONE_MODE                      = 1;
  STATE_OPENHEATH                       = 1;                //jacky ??



  ET_DIGOUTZOMBI                        = 1;
  ET_PILESTONES                         = 3;
  ET_HOLYCURTAIN                        = 4;
  ET_FIRE                               = 5;
  ET_SCULPEICE                          = 6;

  //  RCC_MERCHANT     = 24; //Jacky ??
  RCC_MERCHANT                          = 50;
  RCC_GUARD                             = 12;

  VERSION_NUMBER_0522                   = 20020522;


  CM_QUERYUSERSTATE                     = 82;



  CM_QUERYUSERNAME                      = 80;
  CM_QUERYBAGITEMS                      = 81;

  CM_QUERYCHR                           = 100;
  CM_NEWCHR                             = 101;
  CM_DELCHR                             = 102;
  CM_SELCHR                             = 103;
  CM_SELECTSERVER                       = 104;

  CM_OPENDOOR                           = 1002;
  CM_SOFTCLOSE                          = 1009;

  CM_DROPITEM                           = 1000;
  CM_PICKUP                             = 1001;
  CM_TAKEONITEM                         = 1003;
  CM_TAKEOFFITEM                        = 1004;
  CM_EAT                                = 1006;
  CM_BUTCH                              = 1007;
  CM_MAGICKEYCHANGE                     = 1008;

  CM_CLICKNPC                           = 1010;
  CM_MERCHANTDLGSELECT                  = 1011;
  CM_MERCHANTQUERYSELLPRICE             = 1012;
  CM_USERSELLITEM                       = 1013;
  CM_USERBUYITEM                        = 1014;
  CM_USERGETDETAILITEM                  = 1015;
  CM_DROPGOLD                           = 1016;
  CM_LOGINNOTICEOK                      = 1018;
  CM_GROUPMODE                          = 1019;
  CM_CREATEGROUP                        = 1020;
  CM_ADDGROUPMEMBER                     = 1021;
  CM_DELGROUPMEMBER                     = 1022;
  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_ADJUST_BONUS                       = 1043;
  CM_SPEEDHACKUSER                      = 10430;            //??

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

  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_WIDEHIT                            = 3024;
  CM_FIREHIT                            = 3025;

  CM_SAY                                = 3030;


  SM_RUSH                               = 6;
  SM_RUSHKUNG                           = 7;                //
  SM_FIREHIT                            = 8;                //烈火
  SM_BACKSTEP                           = 9;
  SM_TURN                               = 10;
  SM_WALK                               = 11;               //走
  SM_SITDOWN                            = 12;
  SM_RUN                                = 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_ALIVE                              = 27;               //
  SM_MOVEFAIL                           = 28;               //
  SM_HIDE                               = 29;               //
  SM_DISAPPEAR                          = 30;
  SM_STRUCK                             = 31;               //弯腰
  SM_DEATH                              = 32;
  SM_SKELETON                           = 33;
  SM_NOWDEATH                           = 34;

  SM_HEAR                               = 40;
  SM_FEATURECHANGED                     = 41;
  SM_USERNAME                           = 42;
  SM_WINEXP                             = 44;
  SM_LEVELUP                            = 45;
  SM_DAYCHANGING                        = 46;

  SM_LOGON                              = 50;
  SM_NEWMAP                             = 51;
  SM_ABILITY                            = 52;
  SM_HEALTHSPELLCHANGED                 = 53;
  SM_MAPDESCRIPTION                     = 54;
  SM_SPELL2                             = 117;

  SM_SYSMESSAGE                         = 100;
  SM_GROUPMESSAGE                       = 101;
  SM_CRY                                = 102;
  SM_WHISPER                            = 103;
  SM_GUILDMESSAGE                       = 104;

  SM_ADDITEM                            = 200;
  SM_BAGITEMS                           = 201;
  SM_DELITEM                            = 202;
  SM_UPDATEITEM                         = 203;
  SM_ADDMAGIC                           = 210;
  SM_SENDMYMAGIC                        = 211;
  SM_DELMAGIC                           = 212;

  SM_CERTIFICATION_FAIL                 = 501;
  SM_ID_NOTFOUND                        = 502;
  SM_PASSWD_FAIL                        = 503;
  SM_NEWID_SUCCESS                      = 504;
  SM_NEWID_FAIL                         = 505;
  SM_CHGPASSWD_SUCCESS                  = 506;
  SM_CHGPASSWD_FAIL                     = 507;
  SM_QUERYCHR                           = 520;
  SM_NEWCHR_SUCCESS                     = 521;
  SM_NEWCHR_FAIL                        = 522;
  SM_DELCHR_SUCCESS                     = 523;
  SM_DELCHR_FAIL                        = 524;
  SM_STARTPLAY                          = 525;
  SM_STARTFAIL                          = 526;              //SM_USERFULL
  SM_QUERYCHR_FAIL                      = 527;
  SM_OUTOFCONNECTION                    = 528;              //?
  SM_PASSOK_SELECTSERVER                = 529;
  SM_SELECTSERVER_OK                    = 530;
  SM_NEEDUPDATE_ACCOUNT                 = 531;
  SM_UPDATEID_SUCCESS                   = 532;
  SM_UPDATEID_FAIL                      = 533;



  SM_DROPITEM_SUCCESS                   = 600;
  SM_DROPITEM_FAIL                      = 601;

  SM_ITEMSHOW                           = 610;
  SM_ITEMHIDE                           = 611;
  SM_DOOROPEN                           = 612;
  SM_CLOSEDOOR                          = 65022;
  SM_OPENDOOR_LOCK                      = 613;
  SM_OPENDOOR_OK                        = 614;              //
  SM_TAKEON_OK                          = 615;
  SM_TAKEON_FAIL                        = 616;
  SM_TAKEOFF_OK                         = 619;
  SM_TAKEOFF_FAIL                       = 620;
  SM_SENDUSEITEMS                       = 621;
  SM_WEIGHTCHANGED                      = 622;
  SM_CLEAROBJECTS                       = 633;
  SM_CHANGEMAP                          = 634;
  SM_EAT_OK                             = 635;
  SM_EAT_FAIL                           = 636;
  SM_BUTCH                              = 637;
  SM_MAGICFIRE                          = 638;
  SM_MAGICFIRE_FAIL                     = 639;
  SM_MAGIC_LVEXP                        = 640;
  SM_DURACHANGE                         = 642;
  SM_MERCHANTSAY                        = 643;
  SM_MERCHANTDLGCLOSE                   = 644;
  SM_SENDGOODSLIST                      = 645;
  SM_SENDUSERSELL                       = 646;
  SM_SENDBUYPRICE                       = 647;
  SM_USERSELLITEM_OK                    = 648;
  SM_USERSELLITEM_FAIL                  = 649;
  SM_BUYITEM_SUCCESS                    = 650;              //?
  SM_BUYITEM_FAIL                       = 651;              //?
  SM_SENDDETAILGOODSLIST                = 652;
  SM_GOLDCHANGED                        = 653;
  SM_CHANGELIGHT                        = 654;
  SM_LAMPCHANGEDURA                     = 655;
  SM_CHANGENAMECOLOR                    = 656;
  SM_CHARSTATUSCHANGED                  = 657;
  SM_SENDNOTICE                         = 658;
  SM_GROUPMODECHANGED                   = 659;              //
  SM_CREATEGROUP_OK                     = 660;
  SM_CREATEGROUP_FAIL                   = 661;
  SM_GROUPADDMEM_OK                     = 662;
  SM_GROUPDELMEM_OK                     = 663;
  SM_GROUPADDMEM_FAIL                   = 664;
  SM_GROUPDELMEM_FAIL                   = 665;
  SM_GROUPCANCEL                        = 666;
  SM_GROUPMEMBERS                       = 667;
  SM_SENDUSERREPAIR                     = 668;
  SM_USERREPAIRITEM_OK                  = 669;
  SM_USERREPAIRITEM_FAIL                = 670;
  SM_SENDREPAIRCOST                     = 671;
  SM_DEALMENU                           = 673;
  SM_DEALTRY_FAIL                       = 674;
  SM_DEALADDITEM_OK                     = 675;
  SM_DEALADDITEM_FAIL                   = 676;
  SM_DEALDELITEM_OK                     = 677;
  SM_DEALDELITEM_FAIL                   = 678;
  SM_DEALCANCEL                         = 681;
  SM_DEALREMOTEADDITEM                  = 682;
  SM_DEALREMOTEDELITEM                  = 683;
  SM_DEALCHGGOLD_OK                     = 684;
  SM_DEALCHGGOLD_FAIL                   = 685;
  SM_DEALREMOTECHGGOLD                  = 686;
  SM_DEALSUCCESS                        = 687;
  SM_SENDUSERSTORAGEITEM                = 700;
  SM_STORAGE_OK                         = 701;
  SM_STORAGE_FULL                       = 702;
  SM_STORAGE_FAIL                       = 703;
  SM_SAVEITEMLIST                       = 704;
  SM_TAKEBACKSTORAGEITEM_OK             = 705;
  SM_TAKEBACKSTORAGEITEM_FAIL           = 706;
  SM_TAKEBACKSTORAGEITEM_FULLBAG        = 707;

  SM_AREASTATE                          = 766;
  SM_MYSTATUS                           = 708;

  SM_DELITEMS                           = 709;
  SM_READMINIMAP_OK                     = 710;
  SM_READMINIMAP_FAIL                   = 711;
  SM_SENDUSERMAKEDRUGITEMLIST           = 712;
  SM_MAKEDRUG_SUCCESS                   = 713;
  SM_MAKEDRUG_FAIL                      = 65036;

  SM_CHANGEGUILDNAME                    = 750;
  SM_SENDUSERSTATE                      = 751;              //
  SM_SUBABILITY                         = 752;
  SM_OPENGUILDDLG                       = 753;              //