⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 m2share.pas

📁 继续更新AFT源代码 现在解决了无法登陆游戏的问题 用0504的dbserver就可以登陆了 去掉了绿字广告 降低内存占用HOO 去掉了大量的验证问题
💻 PAS
📖 第 1 页 / 共 5 页
字号:
  nSC_BODYEFFECT   = 410;

  sSC_UPGRADEMON   ='UPGRADEMON' ;
  nSC_UPGRADEMON   =411;

  sCLEARYS        ='CLEARYS' ;
  nCLEARYS        =412;

  sDECUSESTIME    = 'DECUSESTIME';
  nDECUSESTIME    =413;

  sREPAIRALL      ='REPAIRALL' ;
  nREPAIRALL      =414;

  sYSPOINT      ='YSPOINT' ;
  nYSPOINT       =415;

  sJPPOINT      ='JPPOINT' ;
  nJPPOINT       =416;

  sADDTASK      ='ADDTASK' ;
  nADDTASK      =417;

  sUpdateTask   ='UPDATETASK' ;
  nUpdateTask   =418;

  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;

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -