m2share.pas

继续更新AFT源代码 现在解决了无法登陆游戏的问题 用0504的dbserver就可以登陆了 去掉了绿字广告 降低内存占用HOO 去掉了大量的验证问题

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, PlugIn,SDK,EncryptUnit,WinSock;
ResourceString
  g_sTitleName = 'a`:fPi@b_a@ga.';
  g_sProductName = '';//'翎风网络反外挂数据引擎'; //MD5 82700a24a055c27073062735c233d6e5
  g_sVersion     = '引擎版本: 5.00 Build 20070630%d'; //MD5 dfd2a178f1728b926f1c748cfb1dfd94
  g_sUpDateTime  = '更新日期: 2007/06/30'; //MD5 232f01e601371133e5668734c385ae59
  g_sProgram     = '程序制作: 阳光';  //MD5 eb8c6063b27da4f3906e96c4882a20ac
  g_sWebSite     = '';//'程序网站: http://www.gameofmir.com'; //MD5 98802f43ff881556bb02ad2ca116198b
  g_sBbsSite     = '';//'程序论坛: http://bbs.gameofmir.com'; //MD5 34eacca1b042f154e6c8807aa6b11727
  g_aftEncodeSriptcode = '#;;;#';//';aftecd';
  //以上内容不可随便修改
const

  DEBUG        = 0; //调试模式=1   发行模式=0
  CHECKNEWMSG  = 0; //是否显示未处理的客户端消息

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

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

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

  BDE          = 0;
  ADO          = 1;

  DBTYPE       = BDE;

  USERREGTEST  ='';
  USERREGOFF   ='';


  USELOCALCODE   = 0;
  USEREMOTECODE  = 1;

  USECODE        = USELOCALCODE;
  RequestVersion = 5;


  LF           = 0;
  LD           = 1;
  ZQ           = 2;
  DUDU         = 3;
  ZYL          = 4;
  WL           = 5;
  TEST         = 53;

  VEROWNER     = WL;
//   VEROWNER     = MMF;

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

  ENDYEAR      = 2108;   //过期时间
  ENDMONTH     = 10;
  ENDDAY       = 30;


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

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

  CHECKENDYEAR      = ENDYEAR;
  CHECKENDMONTH     = ENDMONTH;
  CHECKENDDAY       = ENDDAY;
{$IF OEMVER = OEM775}

{$ELSE}

{$IFEND}

//最高可升级等级
{$IF SoftVersion = VERFREE}
  //MAXUPLEVEL = 280;
 //MAXHUMPOWER = 300;
   MAXUPLEVEL = 1500;
  MAXHUMPOWER = 2000;
{$ELSEIF SoftVersion = VERSTD}
  MAXUPLEVEL = 1500;
  MAXHUMPOWER = 2000;
{$ELSEIF SoftVersion = VEROEM}
  //MAXUPLEVEL = 350;
  //MAXHUMPOWER = 500;
    MAXUPLEVEL = 1500;
  MAXHUMPOWER = 2000;
{$ELSEIF SoftVersion = VERPRO}
 // MAXUPLEVEL = 450;
 // MAXHUMPOWER = 1000;
   MAXUPLEVEL = 1500;
  MAXHUMPOWER = 2000;
{$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       = 6;     //5
  DEFSPEED     = 15;
  WARR         = 0;
  WIZARD       = 1;
  TAOS         = 2;



  SIZEOFTHUMAN           = $C5C;

  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;

  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;
  sSC_CHECKCASTLEDOOROPEN = 'CHECKCASTLEDOOROPEN'; //城门是否打开
  nSC_CHECKCASTLEDOOROPEN = 70;
  sSC_CHECKPOS            = 'CHECKPOS';
  nSC_CHECKPOS            = 71;
  sSC_CANCHARGESHOOTER    = 'CANCHARGESHOOTER';
  nSC_CANCHARGESHOOTER    = 72;
  sSC_ISATTACKALLYGUILD   = 'ISATTACKALLYGUILD'; //是否为攻城方联盟行会
  nSC_ISATTACKALLYGUILD   = 73;
  sSC_ISDEFENSEALLYGUILD  = 'ISDEFENSEALLYGUILD'; //是否为守城方联盟行会
  nSC_ISDEFENSEALLYGUILD  = 74;  
  sSC_TESTTEAM            = 'TESTTEAM';
  nSC_TESTTEAM            = 75;
  sSC_ISSYSOP             = 'ISSYSOP';
  nSC_ISSYSOP             = 76;  
  sSC_ISADMIN             = 'ISADMIN';
  nSC_ISADMIN             = 77;  
  sSC_CHECKBONUS          = 'CHECKBONUS';
  nSC_CHECKBONUS          = 78;
  sSC_CHECKMARRIAGE       = 'CHECKMARRIAGE';
  nSC_CHECKMARRIAGE       = 79;
  sSC_CHECKMARRIAGERING   = 'CHECKMARRIAGERING';
  nSC_CHECKMARRIAGERING   = 80;

  sSC_CHECKGMETERM        = 'CHECKGMETERM';
  nSC_CHECKGMETERM        = 100;
  sSC_CHECKOPENGME        = 'CHECKOPENGME';
  nSC_CHECKOPENGME        = 101;
  sSC_CHECKENTERGMEMAP    = 'CHECKENTERGMEMAP';
  nSC_CHECKENTERGMEMAP    = 102;  
  sSC_CHECKSERVER         = 'CHECKSERVER';
  nSC_CHECKSERVER         = 103;
  sSC_ELARGE              = 'ELARGE';
  nSC_ELARGE              = 104;
  sSC_ESMALL              = 'ESMALL';
  nSC_ESMALL              = 105;
  sSC_CHECKGROUPCOUNT     = 'CHECKGROUPCOUNT';
  nSC_CHECKGROUPCOUNT     = 106;
  sSC_CHECKACCESSORY      = 'CHECKACCESSORY';
  nSC_CHECKACCESSORY      = 107;
  sSC_ONERROR             = 'ONERROR';
  nSC_ONERROR             = 108;
  sSC_CHECKARMOR          = 'CHECKARMOR';
  nSC_CHECKARMOR          = 109;





  sCHECKACCOUNTLIST       = 'CHECKACCOUNTLIST';
  nCHECKACCOUNTLIST       = 135;
  sCHECKIPLIST            = 'CHECKIPLIST';
  nCHECKIPLIST            = 136;
  sCHECKCREDITPOINT       = 'CHECKCREDITPOINT';
  nCHECKCREDITPOINT       = 137;
  sSC_CHECKPOSEDIR        = 'CHECKPOSEDIR';
  nSC_CHECKPOSEDIR        = 138;
  sSC_CHECKPOSELEVEL      = 'CHECKPOSELEVEL';
  nSC_CHECKPOSELEVEL      = 139;
  sSC_CHECKPOSEGENDER     = 'CHECKPOSEGENDER';
  nSC_CHECKPOSEGENDER     = 140;
  sSC_CHECKLEVELEX        = 'CHECKLEVELEX';
  nSC_CHECKLEVELEX        = 141;
  sSC_CHECKBONUSPOINT     = 'CHECKBONUSPOINT';
  nSC_CHECKBONUSPOINT     = 142;
  sSC_CHECKMARRY          = 'CHECKMARRY';
  nSC_CHECKMARRY          = 143;
  sSC_CHECKPOSEMARRY      = 'CHECKPOSEMARRY';
  nSC_CHECKPOSEMARRY      = 144;
  sSC_CHECKMARRYCOUNT     = 'CHECKMARRYCOUNT';
  nSC_CHECKMARRYCOUNT     = 145;
  sSC_CHECKMASTER         = 'CHECKMASTER';
  nSC_CHECKMASTER         = 146;
  sSC_HAVEMASTER          = 'HAVEMASTER';
  nSC_HAVEMASTER          = 147;
  sSC_CHECKPOSEMASTER     = 'CHECKPOSEMASTER';
  nSC_CHECKPOSEMASTER     = 148;
  sSC_POSEHAVEMASTER      = 'POSEHAVEMASTER';
  nSC_POSEHAVEMASTER      = 149;
  sSC_CHECKISMASTER       = 'CHECKPOSEISMASTER';
  nSC_CHECKISMASTER       = 150;
  sSC_CHECKPOSEISMASTER   = 'CHECKISMASTER';
  nSC_CHECKPOSEISMASTER   = 151;
  sSC_CHECKNAMEIPLIST     = 'CHECKNAMEIPLIST';
  nSC_CHECKNAMEIPLIST     = 152;
  sSC_CHECKACCOUNTIPLIST  = 'CHECKACCOUNTIPLIST';
  nSC_CHECKACCOUNTIPLIST  = 153;