m2share.pas

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

    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;
  //  nItemNumber           :integer;
  //  nItemNumberEx            :integer;
   

 //   GlobalVal:array[0..9]of integer;
   AllocMemSize            :integer;
   AllocMemCount            :integer;
   UserEngineThread          :tThreadInfo;
   IDSocketThread             :tThreadInfo;
   DBSocketThread              :tThreadInfo;


    IDSocket                :integer;
    nIDSocketRecvIncLen     :integer;
    nIDSocketRecvMaxLen     :integer;
    nIDSocketRecvCount      :integer;
    nIDReceiveMaxTime       :integer;
    nIDSocketWSAErrCode     :integer;
    nIDSocketErrorCount     :integer;
    sIDSocketRecvText       :string;
    nConfigSize             :integer;
    sServerName             :string;
    sServerIPaddr           :string;
    sRegServerAddr          :string;
    nRegServerPort          :integer;
    sRegKey                 :string;
    sWebSite                :string;
    sBbsSite                :string;
    sClientDownload         :string;
    sQQ                     :string;
    sPhone                  :string;
    sBankAccount0           :string;
    sBankAccount1           :string;
    sBankAccount2           :string;
    sBankAccount3           :string;
    sBankAccount4           :string;
    sBankAccount5           :string;
    sBankAccount6           :string;
    sBankAccount7           :string;
    sBankAccount8           :string;
    sBankAccount9           :string;
    nServerNumber           :integer;
    boVentureServer         :boolean;
    boTestServer            :boolean;
    boServiceMode           :boolean;
    boNonPKServer           :boolean;
    boIDSocketConnected     :boolean;
    UserIDSection           :TRTLCriticalSection;
    nTestLevel              :integer;
    nTestGold               :integer;
    nTestUserLimit          :integer;
    nSendBlock              :integer;
    nCheckBlock             :integer;
    nAvailableBlock         :integer;
    nGateLoad               :integer;
    nUserFull               :integer;
    nZenFastStep            :integer;
    sGateAddr               :string;
    nGatePort               :integer;
    sDBAddr                 :string;
    nDBPort                 :integer;
    sIDSAddr                :string;
    nIDSPort                :integer;
    sMsgSrvAddr             :string;
    nMsgSrvPort             :integer;
    sLogServerAddr          :string;
    nLogServerPort          :integer;
    boDiscountForNightTime  :boolean;
    nHalfFeeStart           :integer;
    nHalfFeeEnd             :integer;
    boViewHackMessage       :boolean;
    boViewAdmissionFailure  :boolean;
    sBaseDir                :string;
    sGuildDir               :string;
    sGuildFile              :string;
    sVentureDir             :string;
    sConLogDir              :string;
    sCastleDir              :string;
    sCastleFile             :string;
    sEnvirDir               :string;
    sFriendsDir              :string;
    sMapDir                 :string;
    sNoticeDir              :string;
    sLogDir                 :string;
    sPlugDir                :string;
    sClientFile1            :string;
    sClientFile2            :string;
    sClientFile3            :string;

    sClothsMan              :string;
    sClothsWoman            :string;
    sWoodenSword            :string;
    sCandle                 :string;
    sBasicDrug              :string;
    sGoldStone              :string;
    sSilverStone            :string;
    sSteelStone             :string;
    sCopperStone            :string;
    sBlackStone             :string;
    sZuma                   :array[0..3]of string;//('祖玛卫士','祖玛雕像','祖玛弓箭手','楔蛾');
    sBee                    :string;
    sSeeBee1                 :String;
    sSeeBee2                 :String;
    sSeeBee3                 :String;
    scallboss1               :String;
    scallboss2               :String;
    scallboss3               :String;
    scallboss4               :String;
    scallboss5               :String;

    nClbADDTrains           :integer;      //吃豹粮增加的点数
    nClbLevelUpTrains       :integer;       //每次升级需要的点数
    sSpider                 :string;
    sWomaHorn               :string;
    sZumaPiece              :string;
    sGameGoldName           :string;
    sGamePointName          :string;
    sPayMentPointName       :string;
    ClbADDTrains            :integer;
    ClbLevelUpTrains        :integer;
    PushTEBOTime            :integer;
    RushMotaeboTime         :integer;
    nMagPowerDefenceRate    :integer;
    nMagBubbleDefenceRate   :integer;

    ShowHitHp               :integer;
    SafeAreaHint            :integer;
    ShowHpPresent           : boolean;
    OffLineSuper            : boolean;
    PlayerSkillTree         : boolean;
    YSSkillTree             : boolean;
    boUsePaihang            : boolean;
    boAllwayYsskill         : boolean;

    boUseSelfDecodeScript    : boolean;
    GoldAddinBag            :Integer;
    DBSocket                :integer;
    nHealthFillTime         :integer;
    nSpellFillTime          :integer;
    nMonUpLvNeedKillBase    :integer;
    nMonUpLvRate            :integer;
    MonUpLvNeedKillCount    :array[0..7]of word;//(0,0,50,100,200,300,600,1200);
    SlaveColor              :array[0..8]of word;//($FF,$FE,$93,$9A,$E5,$A8,$B4,$FC,249);
    WideAttack              :array[0..2]of byte;//(7,1,2);
    CrsAttack               :array[0..6]of byte;//(7,1,2,3,4,5,6);
    SpitMap                 :array[0..7] of Tshapearray;//(
    sHomeMap                :string;
    nHomeX                  :integer;
    nHomeY                  :integer;
    sRedHomeMap             :string;
    nRedHomeX               :integer;
    nRedHomeY               :integer;
    sRedDieHomeMap          :string;
    nRedDieHomeX            :integer;
    nRedDieHomeY            :integer;
    dwDecPkPointTime        :integer;
    nDecPkPointCount        :integer;
    dwPKFlagTime            :integer;
    nKillHumanAddPKPoint    :integer;
    nKillHumanDecLuckPoint  :integer;
    dwDecLightItemDrugTime  :integer;
    nSafeZoneSize           :integer;
    nStartPointSize         :integer;
    dwHumanGetMsgTime       :LongWord;
    nGroupMembersMax        :integer;
    sFireBallSkill          :string;
    sHealSkill              :string;
    ReNewNameColor          :array[0..9]of byte;//($FF,$FE,$93,$9A,$E5,$A8,$B4,$FC,$B4,$FC);
    dwReNewNameColorTime    :integer;
    boReNewChangeColor      :boolean;
    boReNewLevelClearExp    :boolean;
    BonusAbilofWarr         :TNakedAbility;//(DC:17;MC:20;SC:20;AC:20;MAC:20;HP:1;MP:3;Hit:20;Speed:35;X2:0);
    BonusAbilofWizard       :TNakedAbility;//(DC:17;MC:25;SC:30;AC:20;MAC:15;HP:2;MP:1;Hit:25;Speed:35;X2:0);
    BonusAbilofTaos         :TNakedAbility;//(DC:20;MC:30;SC:17;AC:20;MAC:15;HP:2;MP:1;Hit:30;Speed:30;X2:0);
    NakedAbilofWarr         :TNakedAbility;//(DC:512;MC:2560;SC:20;AC:768;MAC:1280;HP:0;MP:0;Hit:0;Speed:0;X2:0);
    NakedAbilofWizard       :TNakedAbility;//(DC:512;MC:512;SC:2560;AC:1280;MAC:768;HP:0;MP:0;Hit:5;Speed:0;X2:0);
    NakedAbilofTaos         :TNakedAbility;//(DC:20;MC:30;SC:17;AC:20;MAC:15;HP:2;MP:1;Hit:30;Speed:30;X2:0);
    nUpgradeWeaponMaxPoint  :integer;
    nUpgradeWeaponPrice     :integer;
    dwUPgradeWeaponGetBackTime     :integer;
    nClearExpireUpgradeWeaponDays  :integer;
    nUpgradeWeaponDCRate           :integer;
    nUpgradeWeaponDCTwoPointRate   :integer;
    nUpgradeWeaponDCThreePointRate :integer;
    nUpgradeWeaponSCRate           :integer;
    nUpgradeWeaponSCTwoPointRate   :integer;
    nUpgradeWeaponSCThreePointRate :integer;
    nUpgradeWeaponMCRate           :integer;
    nUpgradeWeaponMCTwoPointRate   :integer;
    nUpgradeWeaponMCThreePointRate :integer;
    dwProcessMonstersTime          :integer;
    dwRegenMonstersTime            :integer;
    nMonGenRate                    :integer;
    nProcessMonRandRate            :integer;
    nProcessMonLimitCount          :integer;
    nSoftVersionDate               :integer;
    boCanOldClientLogon            :boolean;
    boUseSafeZoneLight             :boolean;
    nUseSafeZoneLightType          :integer;

    dwConsoleShowUserCountTime     :integer;
    dwShowLineNoticeTime           :integer;

    ShowBannerNoticeTime           :integer;
    HideBannerNoticeTime           :integer;


    nLineNoticeColor               :integer;
    nStartCastleWarDays            :integer;
    nStartCastlewarTime            :integer;
    dwShowCastleWarEndMsgTime      :integer;
    dwCastleWarTime                :integer;
    dwGetCastleTime                :integer;
    dwGuildWarTime                 :integer;
    nBuildGuildPrice               :integer;
    nGuildWarPrice                 :integer;
    nMakeDurgPrice                 :integer;
    nHumanMaxGold                  :integer;
    nHumanTryModeMaxGold           :integer;
    nTryModeLevel                  :integer;
    boTryModeUseStorage            :boolean;
    nCanShoutMsgLevel              :integer;
    boShowMakeItemMsg              :boolean;
    boShutRedMsgShowGMName         :boolean;
    nSayMsgMaxLen                  :integer;
    dwSayMsgTime                   :integer;
    nSayMsgCount                   :integer;
    dwDisableSayMsgTime            :integer;
    nSayRedMsgMaxLen               :integer;
    boShowGuildName                :boolean;
    boShowRankLevelName            :boolean;
    boMonSayMsg                    :boolean;
    nStartPermission               :integer;
    boKillHumanWinLevel            :boolean;
    boKilledLostLevel              :boolean;
    boKillHumanWinExp              :boolean;
    boKilledLostExp                :boolean;
    nKillHumanWinLevel             :integer;
    nKilledLostLevel               :integer;
    nKillHumanWinExp               :integer;
    nKillHumanLostExp              :integer;
    nHumanLevelDiffer              :integer;
    nMonsterPowerRate              :integer;
    nItemsPowerRate                :integer;
    nItemsACPowerRate              :integer;
    boSendOnlineCount              :boolean;
    nSendOnlineCountRate           :integer;
    dwSendOnlineTime               :LongWord;
    dwSaveHumanRcdTime             :LongWord;
    dwHumanFreeDelayTime           :LongWord;
    dwMakeGhostTime                :LongWord;
    dwClearDropOnFloorItemTime     :LongWord;
    dwFloorItemCanPickUpTime       :LongWord;
    boPasswordLockSystem           :boolean;  //是否启用密码保护系统
    boLockDealAction               :boolean;  //是否锁定交易操作
    boLockDropAction               :boolean;  //是否锁定扔物品操作
    boLockGetBackItemAction        :boolean;  //是否锁定取仓库操作
    boLockHumanLogin               :boolean;  //是否锁定走操作
    boLockWalkAction               :boolean;  //是否锁定走操作
    boLockRunAction                :boolean;  //是否锁定跑操作
    boLockHitAction                :boolean;  //是否锁定攻击操作
    boLockSpellAction              :boolean;  //是否锁定魔法操作
    boLockSendMsgAction            :boolean;  //是否锁定发信息操作
    boLockUserItemAction           :boolean;  //是否锁定使用物品操作
    boLockInObModeAction           :boolean;  //锁定时进入隐身状态
    nPasswordErrorCountLock        :integer; //输入密码错误超过 指定次数则锁定密码
    boPasswordErrorKick            :boolean; //输入密码错误超过限制则踢下线
    nSendRefMsgRange               :integer;
    boDecLampDura                  :boolean;
    boHungerSystem                 :boolean;
    boHungerDecHP                  :boolean;
    boHungerDecPower               :boolean;
    boDiableHumanRun               :boolean;
    boRunHuman                     :boolean;
    boRunMon                       :boolean;
    boRunNpc                       :boolean;
    boRunGuard                     :boolean;
    boWarDisHumRun                 :boolean;
    boGMRunAll                     :boolean;
    dwTryDealTime                  :integer;
    dwDealOKTime                   :integer;
    boCanNotGetBackDeal            :boolean;
    boDisableDeal                  :boolean;
    nMasterOKLevel                 :integer;
    nMasterOKCreditPoint           :integer;
    nMasterOKBonusPoint            :integer;
    boPKLevelProtect               :boolean;
    nPKProtectLevel                :integer;
    nRedPKProtectLevel             :integer;
    nItemPowerRate                 :integer;
    nItemExpRate                   :integer;
    nScriptGotoCountLimit          :integer;
    btHearMsgFColor                :integer; //前景
    btHearMsgBColor                :integer; //背景
    btWhisperMsgFColor             :integer; //前景
    btWhisperMsgBColor             :integer; //背景
    btGMWhisperMsgFColor           :integer; //前景
    btGMWhisperMsgBColor           :integer; //背景
    btCryMsgFColor                 :integer; //前景
    btCryMsgBColor                 :integer; //背景
    btGreenMsgFColor               :integer; //前景
    btGreenMsgBColor               :integer; //背景
    btBlueMsgFColor                :integer; //前景
    btBlueMsgBColor                :integer; //背景
    btRedMsgFColor                 :integer; //前景
    btRedMsgBColor                 :integer; //背景
    btGuildMsgFColor               :integer; //前景
    btGuildMsgBColor               :integer; //背景
    btGroupMsgFColor               :integer; //前景
    btGroupMsgBColor               :integer; //背景
    btCustMsgFColor                :integer; //前景
    btCustMsgBColor                :integer; //背景
    nMonRandomAddValue             :integer;
    nMakeRandomAddValue            :integer;
    nWeaponDCAddValueMaxLimit      :integer;
    nWeaponDCAddValueRate          :integer;
    nWeaponMCAddValueMaxLimit      :integer;
    nWeaponMCAddValueRate          :integer;
    nWeaponSCAddValueMaxLimit      :integer;
    nWeaponSCAddValueRate          :integer;
    nDressDCAddRate                :integer;
    nDressDCAddValueMaxLimit       :integer;
    nDressDCAddValueRate           :integer;
    nDressMCAddRate                :integer;
    nDressMCAddValueMaxLimit       :integer;
    nDressMCAddValueRate           :integer;
    nDressSCAddRate                :integer;
    nDressSCAddValueMaxLimit       :integer;
    nDressSCAddValueRate           :integer;
    nNeckLace202124DCAddRate                    :integer;
    nNeckLace202124DCAddValueMaxLimit           :integer;
    nNeckLace202124DCAddValueRate               :integer;
    nNeckLace202124MCAddRate                    :integer;
    nNeckLace202124MCAddValueMaxLimit           :integer;
    nNeckLace202124MCAddValueRate               :integer;
    nNeckLace202124SCAddRate                    :integer;
    nNeckLace202124SCAddValueMaxLimit           :integer;
    nNeckLace202124SCAddValueRate               :integer;
    nNeckLace19DCAddRate                    :integer;
    nNeckLace19DCAddValueMaxLimit           :integer;
    nNeckLace19DCAddValueRate               :integer;
    nNeckLace19MCAddRate                    :integer;
    nNeckLace19MCAddValueMaxLimit           :integer;
    nNeckLace19MCAddValueRate               :integer;
    nNeckLace19SCAddRate                    :integer;
    nNeckLace19SCAddValueMaxLimit           :integer;
    nNeckLace19SCAddValueRate               :integer;
    nArmRing26DCAddRate                    :integer;
    nArmRing26DCAddValueMaxLimit           :integer;
    nArmRing26DCAddValueRate               :integer;