m2share.pas

传世源码可编译的,功能齐全.是学习的好模版,会DELPHI的朋友们也可以自己修改,弄个自己的引擎.

  sEndTask    ='ENDTASK' ;
  nEndTask   = 419;

  sHasTask   ='HASTASK';
  nHasTask   =420;

  sYSFENGHAO = 'YSFENGHAO' ;
  nYSFENGHAO =421;

  sADDYQ ='ADDYQ' ;
  nADDYQ = 422;

  sBOOSFS='BOSSFS';
  nBOOSFS=423;

  sTAKEB='TAKEB';
  nTAKEB=424;

  sGROUPMOVE='GROUPMOVE';
  nGROUPMOVE =425;

  sCHECKBT     ='CHECKBT';
  nCHECKBT     = 426;

  sADDVARLIST  ='ADDVARLIST';
  nADDVARLIST  =427;

  sDELVARLIST  ='DELVARLIST';
  nDELVARLIST  =428;

  sCHECKVARLIST          = 'CHECKVARLIST';
  nCHECKVARLIST          = 429;

////////////////////////////////////////
  sSL_SENDMSG      = '@@sendmsg';
  sSUPERREPAIR     = '@s_repair';
  sSUPERREPAIROK   = '~@s_repair';
  sSUPERREPAIRFAIL = '@fail_s_repair';
  sREPAIR          = '@repair';
  sREPAIROK        = '~@repair';
  scallboard       ='@callboard';
  sBUY             = '@buy';
  sSELL            = '@sell';
  sMAKEDURG        = '@makedrug';
  sPRICES          = '@prices';
  sSTORAGE         = '@storage';
  sGETBACK         = '@getback';
  sUPGRADENOW      = '@upgradenow';
  sUPGRADEING      = '~@upgradenow_ing';
  sUPGRADEOK       = '~@upgradenow_ok';
  sUPGRADEFAIL     = '~@upgradenow_fail';
  sGETBACKUPGNOW   = '@getbackupgnow';
  sGETBACKUPGOK    = '~@getbackupgnow_ok';
  sGETBACKUPGFAIL  = '~@getbackupgnow_fail';
  sGETBACKUPGFULL  = '~@getbackupgnow_bagfull';
  sGETBACKUPGING   = '~@getbackupgnow_ing';
  sEXIT            = '@exit';
  sBACK            = '@back';
  sMAIN            = '@main';
  sFAILMAIN        = '~@main';

  sGETMASTER       = '@@getmaster';
  sGETMARRY        = '@@getmarry';
  sUSEITEMNAME     = '@@useitemname';

  sBUILDGUILDNOW   = '@@buildguildnow';
  sSCL_GUILDWAR    = '@@guildwar';
  sDONATE          = '@@donate';
  sREQUESTCASTLEWAR= '@requestcastlewarnow';

  sCASTLENAME      = '@@castlename';
  sWITHDRAWAL      = '@@withdrawal';
  sRECEIPTS        = '@@receipts';
  sOPENMAINDOOR    = '@openmaindoor';
  sCLOSEMAINDOOR   = '@closemaindoor';
  sREPAIRDOORNOW   = '@repairdoornow';
  sREPAIRWALLNOW1  = '@repairwallnow1';
  sREPAIRWALLNOW2  = '@repairwallnow2';
  sREPAIRWALLNOW3  = '@repairwallnow3';
  sHIREARCHERNOW   = '@hirearchernow';
  sHIREGUARDNOW    = '@hireguardnow';
  sHIREGUARDOK     = '@hireguardok';
  sMarket_Def      = 'Market_Def\';
  sNpc_def         = 'Npc_def\';

type
  TItemBind = record
    nMakeIdex:Integer;
    nItemIdx :Integer;
    sBindName:String[20];
  end;
  pTItemBind = ^TItemBind;

  TConsoleData = packed record
    nCrcExtInt   :Integer;
    nCrcDllInt   :Integer;
  end;
  pTConsoleData = ^TConsoleData;

  TLevelInfo = record
    wHP        :Word;
    wMP        :Word;
    dwExp      :LongWord;
    wAC        :Word;
    wMaxAC     :Word;
    wACLimit   :Word;
    wMAC       :Word;
    wMaxMAC    :Word;
    wMACLimit  :Word;
    wDC        :Word;
    wMaxDC     :Word;
    wDCLimit   :Word;
    dwDCExp    :LongWord;
    wMC        :Word;
    wMaxMC     :Word;
    wMCLimit   :Word;
    dwMCExp    :LongWord;
    wSC        :Word;
    wMaxSC     :Word;
    wSCLimit   :Word;
    dwSCExp    :LongWord;
  end;

  TLevelNeedExp=array[0..499]of longword;
  Tshapearray = array[0..4,0..4]of byte;

  TClientConf = record
    boClientCanSet    :boolean;
    boRunHuman        :boolean;
    boRunMon          :boolean;
    boRunNpc          :boolean;
    boWarRunAll       :boolean;
    btDieColor        :integer;
    wSpellTime        :integer;
    wHitIime          :integer;
    wItemFlashTime    :integer;
    btItemSpeed       :integer; {60}
    boCanStartRun     :boolean;
    boParalyCanRun    :boolean;
    boParalyCanWalk   :boolean;
    boParalyCanHit    :boolean;
    boParalyCanSpell  :boolean;
    boShowRedHPLable  :boolean;
    boShowHPNumber    :boolean;
    boShowJobLevel    :boolean;
    boDuraAlert       :boolean;
    boMagicLock       :boolean;
    boAutoPuckUpItem  :boolean;
  end;

  Tcmd=record
    sCmd:string[20];
    nPerMissionMin:integer;
    nPerMissionMax:integer;
  end;

  TGameCommand = record
    DATA                   :Tcmd;
    PRVMSG                 :Tcmd;
    ALLOWMSG               :Tcmd;
    LETSHOUT               :Tcmd;
    LETTRADE               :Tcmd;
    LETGUILD               :Tcmd;
    ENDGUILD               :Tcmd;
    BANGUILDCHAT           :Tcmd;
    AUTHALLY               :Tcmd;
    AUTH                   :Tcmd;
    AUTHCANCEL             :Tcmd;
    DIARY                  :Tcmd;
    USERMOVE               :Tcmd;
    SEARCHING              :Tcmd;
    ALLOWGROUPCALL         :Tcmd;
    GROUPRECALLL           :Tcmd;
    ALLOWGUILDRECALL       :Tcmd;
    GUILDRECALLL           :Tcmd;
    UNLOCKSTORAGE          :Tcmd;
    UNLOCK                 :Tcmd;
    LOCK                   :Tcmd;
    PASSWORDLOCK           :Tcmd;
    SETPASSWORD            :Tcmd;
    CHGPASSWORD            :Tcmd;
    CLRPASSWORD            :Tcmd;
    UNPASSWORD             :Tcmd;
    MEMBERFUNCTION         :Tcmd;
    MEMBERFUNCTIONEX       :Tcmd;
    DEAR                   :Tcmd;
    ALLOWDEARRCALL         :Tcmd;
    DEARRECALL             :Tcmd;
    MASTER                 :Tcmd;
    ALLOWMASTERRECALL      :Tcmd;
    MASTERECALL            :Tcmd;
    ATTACKMODE             :Tcmd;
    REST                   :Tcmd;
    TAKEONHORSE            :Tcmd;
    TAKEOFHORSE            :Tcmd;
    HUMANLOCAL             :Tcmd;
    MOVE                   :Tcmd;
    POSITIONMOVE           :Tcmd;
    INFO                   :Tcmd;
    MOBLEVEL               :Tcmd;
    MOBCOUNT               :Tcmd;
    HUMANCOUNT             :Tcmd;
    MAP                    :Tcmd;
    KICK                   :Tcmd;
    TING                   :Tcmd;
    SUPERTING              :Tcmd;
    MAPMOVE                :Tcmd;
    SHUTUP                 :Tcmd;
    RELEASESHUTUP          :Tcmd;
    SHUTUPLIST             :Tcmd;
    GAMEMASTER             :Tcmd;
    OBSERVER               :Tcmd;
    SUEPRMAN               :Tcmd;
    LEVEL                  :Tcmd;
    SABUKWALLGOLD          :Tcmd;
    RECALL                 :Tcmd;
    REGOTO                 :Tcmd;
    SHOWFLAG               :Tcmd;
    SHOWOPEN               :Tcmd;
    SHOWUNIT               :Tcmd;
    ATTACK                 :Tcmd;
    MOB                    :Tcmd;
    MOBNPC                 :Tcmd;
    DELNPC                 :Tcmd;
    NPCSCRIPT              :Tcmd;
    RECALLMOB              :Tcmd;
    LUCKYPOINT             :Tcmd;
    LOTTERYTICKET          :Tcmd;
    RELOADGUILD            :Tcmd;
    RELOADLINENOTICE       :Tcmd;
    RELOADABUSE            :Tcmd;
    BACKSTEP               :Tcmd;
    BALL                   :Tcmd;
    FREEPENALTY            :Tcmd;
    PKPOINT                :Tcmd;
    INCPKPOINT             :Tcmd;
    CHANGELUCK             :Tcmd;
    HUNGER                 :Tcmd;
    HAIR                   :Tcmd;
    TRAINING               :Tcmd;
    DELETESKILL            :Tcmd;
    CHANGEJOB              :Tcmd;
    CHANGEGENDER           :Tcmd;
    NAMECOLOR              :Tcmd;
    MISSION                :Tcmd;
    MOBPLACE               :Tcmd;
    TRANSPARECY            :Tcmd;
    DELETEITEM             :Tcmd;
    LEVEL0                 :Tcmd;
    CLEARMISSION           :Tcmd;
    SETFLAG                :Tcmd;
    SETOPEN                :Tcmd;
    SETUNIT                :Tcmd;
    RECONNECTION           :Tcmd;
    DISABLEFILTER          :Tcmd;
    CHGUSERFULL            :Tcmd;
    CHGZENFASTSTEP         :Tcmd;
    CONTESTPOINT           :Tcmd;
    STARTCONTEST           :Tcmd;
    ENDCONTEST             :Tcmd;
    ANNOUNCEMENT           :Tcmd;
    OXQUIZROOM             :Tcmd;
    GSA                    :Tcmd;
    CHANGEITEMNAME         :Tcmd;
    DISABLESENDMSG         :Tcmd;
    ENABLESENDMSG          :Tcmd;
    DISABLESENDMSGLIST     :Tcmd;
    KILL                   :Tcmd;
    MAKE                   :Tcmd;
    SMAKE                  :Tcmd;
    BONUSPOINT             :Tcmd;
    DELBONUSPOINT          :Tcmd;
    RESTBONUSPOINT         :Tcmd;
    FIREBURN               :Tcmd;
    TESTFIRE               :Tcmd;
    TESTSTATUS             :Tcmd;
    DELGOLD                :Tcmd;
    ADDGOLD                :Tcmd;
    DELGAMEGOLD            :Tcmd;
    ADDGAMEGOLD            :Tcmd;
    GAMEGOLD               :Tcmd;
    GAMEPOINT              :Tcmd;
    CREDITPOINT            :Tcmd;
    BigBag                 :Tcmd;       //增加命令
    TESTGOLDCHANGE         :Tcmd;
    REFINEWEAPON           :Tcmd;
    RELOADADMIN            :Tcmd;
    RELOADNPC              :Tcmd;
    RELOADMANAGE           :Tcmd;
    RELOADROBOTMANAGE      :Tcmd;
    RELOADROBOT            :Tcmd;
    RELOADMONITEMS         :Tcmd;
    RELOADDIARY            :Tcmd;
    RELOADITEMDB           :Tcmd;
    RELOADMAGICDB          :Tcmd;
    RELOADMONSTERDB        :Tcmd;
    RELOADMINMAP           :Tcmd;
    REALIVE                :Tcmd;
    ADJUESTLEVEL           :Tcmd;
    ADJUESTEXP             :Tcmd;
    ADDGUILD               :Tcmd;
    DELGUILD               :Tcmd;
    CHANGESABUKLORD        :Tcmd;
    FORCEDWALLCONQUESTWAR  :Tcmd;
    ADDTOITEMEVENT         :Tcmd;
    ADDTOITEMEVENTASPIECES :Tcmd;
    ITEMEVENTLIST          :Tcmd;
    STARTINGGIFTNO         :Tcmd;
    DELETEALLITEMEVENT     :Tcmd;
    STARTITEMEVENT         :Tcmd;
    ITEMEVENTTERM          :Tcmd;
    ADJUESTTESTLEVEL       :Tcmd;
    TRAININGSKILL          :Tcmd;
    OPDELETESKILL          :Tcmd;
    CHANGEWEAPONDURA       :Tcmd;
    RELOADGUILDALL         :Tcmd;
    WHO                    :Tcmd;
    TOTAL                  :Tcmd;
    TESTGA                 :Tcmd;
    MAPINFO                :Tcmd;
    SBKDOOR                :Tcmd;
    CHANGEDEARNAME         :Tcmd;
    CHANGEMASTERNAME       :Tcmd;
    STARTQUEST             :Tcmd;
    SETPERMISSION          :Tcmd;
    CLEARMON               :Tcmd;
    RENEWLEVEL             :Tcmd;
    DENYIPLOGON            :Tcmd;
    DENYACCOUNTLOGON       :Tcmd;
    DENYCHARNAMELOGON      :Tcmd;
    DELDENYIPLOGON         :Tcmd;
    DELDENYACCOUNTLOGON    :Tcmd;
    DELDENYCHARNAMELOGON   :Tcmd;
    SHOWDENYIPLOGON        :Tcmd;
    SHOWDENYACCOUNTLOGON   :Tcmd;
    SHOWDENYCHARNAMELOGON  :Tcmd;
    VIEWWHISPER            :Tcmd;
    SPIRIT                 :Tcmd;
    SPIRITSTOP             :Tcmd;
    SETMAPMODE             :Tcmd;
    SHOWMAPMODE            :Tcmd;
    TESTSERVERCONFIG       :Tcmd;
    SERVERSTATUS           :Tcmd;
    TESTGETBAGITEM         :Tcmd;
    CLEARBAG               :Tcmd;
    SHOWUSEITEMINFO        :Tcmd;
    BINDUSEITEM            :Tcmd;
    MOBFIREBURN            :Tcmd;
    TESTSPEEDMODE          :Tcmd;
    LOCKLOGON              :Tcmd;
  end;

  TRecallMigic=record
    nHumLevel: Integer;
    sMonName :  String[14] ;
    nCount   : Integer;
    nLevel  : Integer;
  end;

  TConfig = record
    nClientFile1_CRC:integer;
    nClientFile2_CRC:integer;
    nClientFile3_CRC:integer;
    nServerFile_CRCA  :integer;
    boCheckFail:boolean;
    nLoadDBCount         :integer;
    nLoadDBErrorCount     :integer;
    nSaveDBCount           :integer;
    nDBQueryID           :integer;
    GlobaDyMval:array[0..499]of integer;

    AllocMemSize            :integer;
    AllocMemCount            :integer;
    UserEngineThread          :tThreadInfo;