m2share.pas

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

unit M2Share;

interface
uses
  Windows, Messages, Classes, SysUtils, StdCtrls, Graphics, RunSock, Envir,
  ItmUnit, Magic, NoticeM, Guild, Event,
  Castle, FrnEngn, UsrEngn, MudUtil, Grobal2, ObjBase, ObjRobot, ObjNpc,
  SyncObjs, IniFiles, EncryptUnit, WinSock,mylist,ADODB,RUNDB,TlHelp32;
//以上内容不可随便修改
const
 // HardNumber='yppqg76JWlXsh50kZgdbqaNil+zE9N+q0fidN7AaEADHzr5lqIenR6HLMOuEoU2eQJOFC+NkLC9i6x9n0tEG8ngXeMnYiZfLtS9v5I4oqvof/NfHuNIiTSsfnvsXQFA0Y8tS2ibzc/4+SZGpDv0RMRhB+jcuk+d+';
 //  HardNumber='zJrXru5hL2v5JtpZcnautMQMZox9nrd/s3E/38w24L+nMQDkI8HqSB9CXjWt0p+k3Bdzcexjbq0i5vQBdNssS9KesPolzeWse2nJCcr+uG44p4fAt602J+VllpfzzSwdLJG/OG/nIa6+NCXiDg0YXaNhbZSQjcXSkNAFM3S5eWcDRqd71lM/zomQV+zVKeCn6w0QMGrstpFAmeR/tPTdrfDzoSF/pkwbAwJVGoSp2TEZ6nf8pb/jo8ReO14=';

  sHumRun:array[0..2] of String=('穿人穿怪','穿怪','穿人');
  DEBUG                                 = 0;                //调试模式
  SHowErr                               = 1;
  CHECKNEWMSG                           = 0; //是否显示未处理的客户端消息

  NOEXCEPTION                           = 0;
  TRYEXCEPTION                          = 1;
  CATEXCEPTION                          = TRYEXCEPTION;

  DEMOCLIENT                            = 0;                //是否演示客户端

  VERDEMO                               = 0;
  VERFREE                               = 1;
  VERSTD                                = 2;
  VEROEM                                = 3;
  VERPRO                                = 4;
  VERENT                                = 5;
  SoftVersion                           = VERSTD;           //程序版本类型
  CLIENTFLAG                            = 9;




  USELOCALCODE                          = 0;
  USEREMOTECODE                         = 1;

  USECODE                               = USELOCALCODE;
  RequestVersion                        = 5;


  wl                                    =5;
  VEROWNER                              = 0;                //WL;

  OEM                                   = 0;
  OEM775                                = 1;
  OEMVER                                = OEM;

  ENDYEAR                               = 2005;
  ENDMONTH                              = 4;
  ENDDAY                                = 8;

  OLDMONSTERMODE                        = 0;
  NEWMONSTERMODE                        = 1;
  PROCESSMONSTMODE                      = NEWMONSTERMODE;   //处理怪物模式

  THREADENGINE                          = 0; //DB数据库SOCKET连接使用线程
  TIMERENGINE                           = 1; //DB数据库SOCKET连接使用控件
  {  DBSOCKETMODE      = THREADENGINE;//TIMERENGINE;
    IDSOCKETMODE      = THREADENGINE;//TIMERENGINE;
    USERENGINEMODE    = THREADENGINE;//TIMERENGINE;     TIMERENGINE;//
  {}
  DBSOCKETMODE                          = TIMERENGINE;
  IDSOCKETMODE                          = TIMERENGINE;
  USERENGINEMODE                        = TIMERENGINE;



  //最高可升级等级
{$IF SoftVersion = VERDEMO}
  MAXUPLEVEL                            = High(Word) {65535};
  MAXHUMPOWER                           = High(Word) {65535};
{$ELSEIF SoftVersion = VERFREE}
  MAXUPLEVEL                            = 280;
  MAXHUMPOWER                           = 300;
{$ELSEIF SoftVersion = VERSTD}
  MAXUPLEVEL                            = High(Word);
  MAXHUMPOWER                           = High(Word);
{$ELSEIF SoftVersion = VEROEM}
  MAXUPLEVEL                            = 350;
  MAXHUMPOWER                           = 500;
{$ELSEIF SoftVersion = VERPRO}
  MAXUPLEVEL                            = 450;
  MAXHUMPOWER                           = 1000;
{$ELSEIF SoftVersion = VERENT}
  MAXUPLEVEL                            = High(Word) {65535};
  MAXHUMPOWER                           = High(Word) {65535};
{$IFEND}



  BODYLUCKUNIT                          = 5.0E3;



  HAM_ALL                               = 0;
  HAM_PEACE                             = 1;
  HAM_DEAR                              = 2;
  HAM_MASTER                            = 3;
  HAM_GROUP                             = 4;
  HAM_GUILD                             = 5;
  HAM_PKATTACK                          = 6;

  DEFHIT                                = 5;
  DEFSPEED                              = 15;
  WARR                                  = 0;
  WIZARD                                = 1;
  TAOS                                  = 2;



 

  MONSTER_SANDMOB                       = 3;
  MONSTER_ROCKMAN                       = 4;
  MONSTER_RON                           = 9;
  MONSTER_MINORNUMA                     = 18;
  ANIMAL_CHICKEN                        = 20;
  ANIMAL_DEER                           = 21;
  MONSTER_OMA                           = 23;
  MONSTER_OMAKNIGHT                     = 25;
  MONSTER_OMAWARRIOR                    = 27;
  MONSTER_SPITSPIDER                    = 30;
  MONSTER_STICK                         = 39;
  MONSTER_DUALAXE                       = 42;
  MONSTER_THONEDARK                     = 74;
  MONSTER_LIGHTZOMBI                    = 78;
  MONSTER_WHITESKELETON                 = 94;
  MONSTER_BEEQUEEN                      = 124;
  MONSTER_BEE                           = 125;
  MONSTER_MAGUNGSA                      = 143;
  MONSTER_SCULTURE1                     = 145;
  MONSTER_SCULTURE2                     = 148;
  MONSTER_SCULTUREKING                  = 152;
  MONSTER_ELFMONSTER                    = 161;
  MONSTER_ELFWARRIOR                    = 162;
  MAXMAGIC                              = 20;
  SUPREGUARD                            = 11;
  CHICKEN                               = 51;
  DEER                                  = 52;
  WOLF                                  = 53;
  TRAINER                               = 55;

  sMAN                                  = 'MAN';
  sSUNRAISE                             = 'SUNRAISE';
  sDay                                  = 'DAY';
  sSUNSET                               = 'SUNSET';
  sNIGHT                                = 'NIGHT';
  sWARRIOR                              = 'WARRIOR';
  sWIZARD                               = 'WIZARD';
  sTAOS                                 = 'TAOIST';
  sSUN                                  = 'SUN';
  sMON                                  = 'MON';
  sTUE                                  = 'TUE';
  sWED                                  = 'WED';
  sTHU                                  = 'THU';
  sFRI                                  = 'FRI';
  sSAT                                  = 'SAT';

  //脚本常量
  sCHECK                                = 'CHECK';
  nCHECK                                = 1;
  sRANDOM                               = 'RANDOM';
  nRANDOM                               = 2;
  sGENDER                               = 'GENDER';
  nGENDER                               = 3;
  sDAYTIME                              = 'DAYTIME';
  nDAYTIME                              = 4;
  sCHECKOPEN                            = 'CHECKOPEN';
  nCHECKOPEN                            = 5;
  sCHECKUNIT                            = 'CHECKUNIT';
  nCHECKUNIT                            = 6;
  sCHECKLEVEL                           = 'CHECKLEVEL';
  nCHECKLEVEL                           = 7;
  sCHECKJOB                             = 'CHECKJOB';
  nCHECKJOB                             = 8;
  sCHECKBBCOUNT                         = 'CHECKBBCOUNT';
  nCHECKBBCOUNT                         = 9;

  sCHECKITEM                            = 'CHECKITEM';
  nCHECKITEM                            = 20;
  sCHECKITEMW                           = 'CHECKITEMW';
  nCHECKITEMW                           = 21;
  sCHECKGOLD                            = 'CHECKGOLD';
  nCHECKGOLD                            = 22;
  sISTAKEITEM                           = 'ISTAKEITEM';
  nISTAKEITEM                           = 23;
  sCHECKDURA                            = 'CHECKDURA';
  nCHECKDURA                            = 24;
  sCHECKDURAEVA                         = 'CHECKDURAEVA';
  nCHECKDURAEVA                         = 25;
  sDAYOFWEEK                            = 'DAYOFWEEK';
  nDAYOFWEEK                            = 26;
  sHOUR                                 = 'HOUR';
  nHOUR                                 = 27;
  sMIN                                  = 'MIN';
  nMIN                                  = 28;
  sCHECKPKPOINT                         = 'CHECKPKPOINT';
  nCHECKPKPOINT                         = 29;
  sCHECKLUCKYPOINT                      = 'CHECKLUCKYPOINT';
  nCHECKLUCKYPOINT                      = 30;
  sCHECKMONMAP                          = 'CHECKMONMAP';
  nCHECKMONMAP                          = 31;
  sCHECKMONAREA                         = 'CHECKMONAREA';
  nCHECKMONAREA                         = 32;
  sCHECKHUM                             = 'CHECKHUM';
  nCHECKHUM                             = 33;
  sCHECKBAGGAGE                         = 'CHECKBAGGAGE';
  nCHECKBAGGAGE                         = 34;

  sEQUAL                                = 'EQUAL';
  nEQUAL                                = 35;
  sLARGE                                = 'LARGE';
  nLARGE                                = 36;
  sSMALL                                = 'SMALL';
  nSMALL                                = 37;
  //sSC_CHECKMAGIC                        = 'CHECKMAGIC';
  //nSC_CHECKMAGIC                        = 38;
 // sSC_CHKMAGICLEVEL                     = 'CHKMAGICLEVEL';
 // nSC_CHKMAGICLEVEL                     = 39;
 // sSC_CHECKMONRECALL                    = 'CHECKMONRECALL';
 // nSC_CHECKMONRECALL                    = 40;
//  sSC_CHECKHORSE                        = 'CHECKHORSE';
 // nSC_CHECKHORSE                        = 41;
//  sSC_CHECKRIDING                       = 'CHECKRIDING';
 // nSC_CHECKRIDING                       = 42;
 // sSC_STARTDAILYQUEST                   = 'STARTDAILYQUEST';
//  nSC_STARTDAILYQUEST                   = 45;
 // sSC_CHECKDAILYQUEST                   = 'CHECKDAILYQUEST';
 // nSC_CHECKDAILYQUEST                   = 46;
 // sSC_RANDOMEX                          = 'RANDOMEX';
//  nSC_RANDOMEX                          = 47;
  sCHECKNAMELIST                        = 'CHECKNAMELIST';
  nCHECKNAMELIST                        = 48;
 // sSC_CHECKWEAPONLEVEL                  = 'CHECKWEAPONLEVEL';
 // nSC_CHECKWEAPONLEVEL                  = 49;
//  sSC_CHECKWEAPONATOM                   = 'CHECKWEAPONATOM';
//  nSC_CHECKWEAPONATOM                   = 50;
 // sSC_CHECKREFINEWEAPON                 = 'CHECKREFINEWEAPON';
 // nSC_CHECKREFINEWEAPON                 = 51;
//  sSC_CHECKWEAPONMCTYPE                 = 'CHECKWEAPONMCTYPE';
//  nSC_CHECKWEAPONMCTYPE                 = 52;
//  sSC_CHECKREFINEITEM                   = 'CHECKREFINEITEM';
//  nSC_CHECKREFINEITEM                   = 53;
 // sSC_HASWEAPONATOM                     = 'HASWEAPONATOM';
 // nSC_HASWEAPONATOM                     = 54;

  sSC_ISGUILDMASTER                     = 'ISGUILDMASTER';
  nSC_ISGUILDMASTER                     = 55;
//  sSC_CANPROPOSECASTLEWAR               = 'CANPROPOSECASTLEWAR';
 // nSC_CANPROPOSECASTLEWAR               = 56;
//  sSC_CANHAVESHOOTER                    = 'CANHAVESHOOTER';
//  nSC_CANHAVESHOOTER                    = 57;
//  sSC_CHECKFAME                         = 'CHECKFAME';
 // nSC_CHECKFAME                         = 58;
//  sSC_ISONCASTLEWAR                     = 'ISONCASTLEWAR';
//  nSC_ISONCASTLEWAR                     = 59;
//  sSC_ISONREADYCASTLEWAR                = 'ISONREADYCASTLEWAR';
//  nSC_ISONREADYCASTLEWAR                = 60;
  sSC_ISCASTLEGUILD                     = 'ISCASTLEGUILD';
  nSC_ISCASTLEGUILD                     = 61;
  sSC_ISATTACKGUILD                     = 'ISATTACKGUILD';  //是否为攻城方
  nSC_ISATTACKGUILD                     = 63;
  sSC_ISDEFENSEGUILD                    = 'ISDEFENSEGUILD'; //是否为守城方
  nSC_ISDEFENSEGUILD                    = 65;
//  sSC_CHECKSHOOTER                      = 'CHECKSHOOTER';
 // nSC_CHECKSHOOTER                      = 66;
 // sSC_CHECKSAVEDSHOOTER                 = 'CHECKSAVEDSHOOTER';
 // nSC_CHECKSAVEDSHOOTER                 = 67;
  sSC_HASGUILD                          = 'HAVEGUILD';      //是否加入行会
  nSC_HASGUILD                          = 68;
  sSC_CHECKCASTLEDOOR                   = 'CHECKCASTLEDOOR'; //检查城门
  nSC_CHECKCASTLEDOOR                   = 69;