m2share.pas

传奇源代码的delphi版本

unit M2Share;

interface

uses
  svn, Windows, Messages, Classes, SysUtils, StdCtrls, Graphics, RunSock, Envir, ItmUnit, Magic, NoticeM, Guild, Event, Forms,
  Castle, FrnEngn, UsrEngn, MudUtil, Grobal2, ObjBase, ObjRobot, ObjNpc, SyncObjs, IniFiles, SDK, EncryptUnit, WinSock, MD5Unit, GuildTerritory;

ResourceString
  g_sTitleName   = 'Lom2 M2测试版';
  g_sProductName = 'Lom2 M2测试版';
  g_sVersion     = '版本:1.0(CN) Build 20080322';
  g_sUpDateTime  = '日期:2008/03/22';
  g_sProgram     = '程序制作:Lom2';
  g_sWebSite     = '网站:http://www.lom2.net';

const
  DEBUG        = 1;
  CHECKNEWMSG  = 0;

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

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

  IniSystem    = 0; //0:Old, 1:New

  OLDMONSTERMODE    = 0;
  NEWMONSTERMODE    = 1;
  PROCESSMONSTMODE  = NEWMONSTERMODE;

  THREADENGINE      = 0;
  TIMERENGINE       = 1;
  DBSOCKETMODE      = TIMERENGINE;
  IDSOCKETMODE      = TIMERENGINE;
  USERENGINEMODE    = TIMERENGINE;

  MAXUPLEVEL  = 500;
  MAXHUMPOWER = 1000;

  BODYLUCKUNIT = 5000;

  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           = 4358;
  SIZEOFTHUMAN           = 6404;

  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_SCULTURE       = 101;
  MONSTER_SCULTUREKING   = 102;
  MONSTER_BEEQUEEN       = 103;
  MONSTER_ARCHERGUARD    = 112;
  MONSTER_ELFMONSTER     = 113;
  MONSTER_ELFWARRIOR     = 114;
  MONSTER_BEE            = 125;
  MONSTER_CLONE          = 142;
  MONSTER_MAGUNGSA       = 143;
  MONSTER_STONE          = 153;

  sMAN        = 'MAN';
  sWOMAN      = 'WOMAN';
  sMALE       = 'MALE';
  sFEMALE     = 'FEMALE';


  sSUNRISE    = 'SUNRISE';
  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';

//NPC 命令
  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;
  sSC_CHECKSLAVECOUNT     = 'CHECKSLAVECOUNT';
  nSC_CHECKSLAVECOUNT     = 154;
  sSC_CHECKCASTLEMASTER   = 'ISCASTLEMASTER';
  nSC_CHECKCASTLEMASTER   = 155;
  sSC_ISNEWHUMAN          = 'ISNEWHUMAN';
  nSC_ISNEWHUMAN          = 156;
  sSC_CHECKMEMBERTYPE     = 'CHECKMEMBERTYPE';
  nSC_CHECKMEMBERTYPE     = 157;
  sSC_CHECKMEMBERLEVEL    = 'CHECKMEMBERLEVEL';
  nSC_CHECKMEMBERLEVEL    = 158;
  sSC_CHECKGAMEGOLD       = 'CHECKGAMEGOLD';
  nSC_CHECKGAMEGOLD       = 159;
  sSC_CHECKGAMEPOINT      = 'CHECKGAMEPOINT';
  nSC_CHECKGAMEPOINT      = 160;
  sSC_CHECKNAMELISTPOSITION   = 'CHECKNAMELISTPOSITION';
  nSC_CHECKNAMELISTPOSITION   = 161;
  sSC_CHECKGUILDLIST      = 'CHECKGUILDLIST';
  nSC_CHECKGUILDLIST      = 162;
  sSC_CHECKRENEWLEVEL     = 'CHECKRENEWLEVEL';
  nSC_CHECKRENEWLEVEL     = 163;
  sSC_CHECKSLAVELEVEL     = 'CHECKSLAVELEVEL';
  nSC_CHECKSLAVELEVEL     = 164;
  sSC_CHECKSLAVENAME      = 'CHECKSLAVENAME';
  nSC_CHECKSLAVENAME      = 165;
  sSC_CHECKCREDITPOINT    = 'CHECKCREDITPOINT';
  nSC_CHECKCREDITPOINT    = 166;