m2share.~pas

翎风世界..传奇服务端..DELPHI源代码 包括DBServer,LogDataServer,LoginGate,LoginSrv,M2Server等..内容齐全.

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, SDK, EncryptUnit, WinSock, MD5Unit;

ResourceString
  g_sTitleName   = 'DiamondM2';
  g_sProductName = 'DiamondM2';
  g_sVersion     = 'Version: 1.10 Build 20060621%d';
  g_sUpDateTime  = 'Date: 2006/06/21';
  g_sProgram     = 'Programmers: Damian, Nick';
  g_sWebSite     = 'Web: http://www.gameofmir.com';
  g_sBbsSite     = 'Bbs: http://bbs.gameofmir.com';

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

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

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

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


  USELOCALCODE   = 0;
  USEREMOTECODE  = 1;

  USECODE        = USELOCALCODE;
  RequestVersion = 5;


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

  VEROWNER     = WL;
  
  OEM          = 0;
  OEM775       = 1;
  OEMVER       = OEM;

{$IF SoftVersion = VERENT}
  ENDYEAR      = 2005;
  ENDMONTH     = 5;
  ENDDAY       = 20;
{$ELSE}
  ENDYEAR      = 2005;
  ENDMONTH     = 6;
  ENDDAY       = 20;
{$IFEND}


  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}


  MAXUPLEVEL  = 500;
  MAXHUMPOWER = 1000;



  BODYLUCKUNIT = 5000;   //10?



  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;
  jWarr        = 0;
  jWizard      = 1;
  jTaos        = 2;


  SIZEOFTHUMAN           = 3588;

  MONSTER_SANDMOB        = 3;
  MONSTER_ROCKMAN        = 4;
  MONSTER_RON            = 9;
  MONSTER_MINORNUMA      = 18;
  ARCHER_POLICE          = 20;

  SUPREGUARD             = 11;
  PETSUPREGUARD          = 12;

  ANIMAL_CHICKEN         = 51;
  ANIMAL_DEER            = 52;
  ANIMAL_WOLF            = 53;

  TRAINER                = 55;

  MONSTER_OMA            = 80;
  MONSTER_OMAKNIGHT      = 81;
  MONSTER_SPITSPIDER     = 82;
  MONSTER_STICK          = 85;
  MONSTER_DUALAXE        = 87;
  MONSTER_THONEDARK      = 93;
  MONSTER_LIGHTZOMBI     = 94;
  MONSTER_DIGOUTZOMBI    = 95;
  MONSTER_ZILKINZOMBI    = 96;
  MONSTER_WHITESKELETON  = 100;
  MONSTER_BEEQUEEN       = 103;
  MONSTER_BEE            = 125;
  MONSTER_MAGUNGSA       = 143;
  MONSTER_SCULTURE       = 101;
  MONSTER_SCULTUREKING   = 102;
  MONSTER_ARCHERGUARD    = 112;
  MONSTER_ELFMONSTER     = 113;
  MONSTER_ELFWARRIOR     = 114;



  

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