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

📄 m2share.pas

📁 传奇源代码的delphi版本
💻 PAS
📖 第 1 页 / 共 5 页
字号:
	$00, $21, $18, $00, $00, $31, $18, $00, $10, $39, $18, $00, $4A, $84, $63, $00,
	$4A, $BD, $6B, $00, $4A, $B5, $63, $00, $4A, $BD, $63, $00, $4A, $9C, $5A, $00,
	$39, $8C, $4A, $00, $4A, $C6, $63, $00, $4A, $D6, $63, $00, $4A, $84, $52, $00,
	$29, $73, $31, $00, $5A, $C6, $63, $00, $4A, $BD, $52, $00, $00, $FF, $10, $00,
	$18, $29, $18, $00, $4A, $88, $4A, $00, $4A, $E7, $4A, $00, $00, $5A, $00, $00,
	$00, $88, $00, $00, $00, $94, $00, $00, $00, $DE, $00, $00, $00, $EE, $00, $00,
	$00, $FB, $00, $00, $94, $5A, $4A, $00, $B5, $73, $63, $00, $D6, $8C, $7B, $00,
	$D6, $7B, $6B, $00, $FF, $88, $77, $00, $CE, $C6, $C6, $00, $9C, $94, $94, $00,
	$C6, $94, $9C, $00, $39, $31, $31, $00, $84, $18, $29, $00, $84, $00, $18, $00,
	$52, $42, $4A, $00, $7B, $42, $52, $00, $73, $5A, $63, $00, $F7, $B5, $CE, $00,
	$9C, $7B, $8C, $00, $CC, $22, $77, $00, $FF, $AA, $DD, $00, $2A, $B4, $F0, $00,
	$9F, $00, $DF, $00, $B3, $17, $E3, $00, $F0, $FB, $FF, $00, $A4, $A0, $A0, $00,
	$80, $80, $80, $00, $00, $00, $FF, $00, $00, $FF, $00, $00, $00, $FF, $FF, $00,
	$FF, $00, $00, $00, $FF, $00, $FF, $00, $FF, $FF, $00, $00, $FF, $FF, $FF, $00
        );

  g_GMRedMsgCmd            :Char = '!';
  g_nGMREDMSGCMD           :Integer = 6;

  g_dwSendOnlineTick         :LongWord;

  g_HighLevelHuman     :TObject = nil;
  g_HighPKPointHuman   :TObject = nil;
  g_HighDCHuman        :TObject = nil;
  g_HighMCHuman        :TOBject = nil;
  g_HighSCHuman        :TObject = nil;
  g_HighOnlineHuman    :TObject = nil;

  g_dwSpiritMutinyTick      :LongWord;

  g_Config                  :TM2Config = (
    nConfigSize             :SizeOf(TM2Config);
    sServerName             :'ktest';
    sServerIPaddr           :'127.0.0.1';
    sWebSite                :'http://www.lom2.net';
    sBbsSite                :'http://www.lom2.net';
    sClientDownload         :'http://www.lom2.net';
    sQQ                     :'N/A';
    sPhone                  :'N/A';
    sBankAccount0           :'N/A';
    sBankAccount1           :'N/A';
    sBankAccount2           :'N/A';
    sBankAccount3           :'N/A';
    sBankAccount4           :'N/A';
    sBankAccount5           :'N/A';
    sBankAccount6           :'N/A';
    sBankAccount7           :'N/A';
    sBankAccount8           :'N/A';
    sBankAccount9           :'N/A';
    nServerNumber           :0;
    boVentureServer         :False;
    boTestServer            :True;
    boServiceMode           :False;
    boNonPKServer           :False;
    nTestLevel              :1;
    nTestGold               :0;
    nTestUserLimit          :1000;
    nSendBlock              :1024;
    nCheckBlock             :8000;
    nAvailableBlock         :8000;
    nGateLoad               :0;
    nUserFull               :1000;
    nZenFastStep            :300;
    sGateAddr               :'127.0.0.1';
    nGatePort               :5000;
    sDBAddr                 :'127.0.0.1';
    nDBPort                 :6000;
    sIDSAddr                :'127.0.0.1';
    nIDSPort                :5600;
    sMsgSrvAddr             :'127.0.0.1';
    nMsgSrvPort             :4900;
    sLogServerAddr          :'127.0.0.1';
    nLogServerPort          :10000;
    boDiscountForNightTime  :False;
    nHalfFeeStart           :2;
    nHalfFeeEnd             :10;
    boViewHackMessage       :False;
    boViewAdmissionFailure  :False;
    sBaseDir                :'.\Share\';
    sGuildDir               :'.\GuildBase\Guilds\';
    sGuildFile              :'.\GuildBase\GuildList.txt';
    sVentureDir             :'.\ShareV\';
    sConLogDir              :'.\ConLog\';
    sCastleDir              :'.\Envir\Castle\';
    sCastleFile             :'.\Envir\Castle\List.txt';
    sEnvirDir               :'.\Envir\';
    sMapDir                 :'.\Map\';
    sNoticeDir              :'.\Notice\';
    sLogDir                 :'.\Log\';
    sPlugDir                :'.\Plug-in\';
    sClientFile1            :'mir.exe';
    sClientFile2            :'mir2.exe';
    sClientFile3            :'mir3.exe';

    sClothsMan              :'布衣(男)';
    sClothsWoman            :'布衣(女)';
    sWoodenSword            :'木剑';
    sCandle                 :'蜡烛';
    sBasicDrug              :'(HP)DrugSmall';
    sGoldStone              :'金矿';
    sSilverStone            :'银矿';
    sSteelStone             :'金刚石';
    sCopperStone            :'铜矿';
    sBlackStone             :'黑铁';
    sGemStone1              :'红宝石矿';
    sGemStone2              :'紫水晶矿';
    sGemStone3              :'软玉矿石';
    sGemStone4              :'白金矿石';
    sZuma                   :('祖玛卫士','祖玛雕像','祖玛弓箭手','楔蛾');
    sBee                    :'蝙蝠';
    sSpider                 :'爆裂蜘蛛';
    sWoomaHorn              :'沃玛号角';
    sZumaPiece              :'祖玛头像';
    sGameGoldName           :'GameGold';
    sGamePointName          :'GamePoint';
    sPayMentPointName       :'PaymentPoint';
    DBSocket                :INVALID_SOCKET;
    nHealthFillTime         :300;
    nSpellFillTime          :800;
    nMonUpLvNeedKillBase    :100;
    nMonUpLvRate            :16;
    MonUpLvNeedKillCount    :(0,0,50,100,200,300,600,1200);
    SlaveColor              :($FF,$FE,$93,$9A,$E5,$A8,$B4,$FC,249);
//    dwNeedExps              :TLevelNeedExp;
    WideAttack              :(7,1,2);
    CrsAttack               :(7,1,2,3,4,5,6);
    SpitMap                 :(
                    ((0, 0, 1, 0, 0),     //DR_UP
                     (0, 0, 1, 0, 0),
                     (0, 0, 0, 0, 0),
                     (0, 0, 0, 0, 0),
                     (0, 0, 0, 0, 0)),
                    ((0, 0, 0, 0, 1),     //DR_UPRIGHT
                     (0, 0, 0, 1, 0),
                     (0, 0, 0, 0, 0),
                     (0, 0, 0, 0, 0),
                     (0, 0, 0, 0, 0)),
                    ((0, 0, 0, 0, 0),     //DR_RIGHT
                     (0, 0, 0, 0, 0),
                     (0, 0, 0, 1, 1),
                     (0, 0, 0, 0, 0),
                     (0, 0, 0, 0, 0)),
                    ((0, 0, 0, 0, 0),     //DR_DOWNRIGHT
                     (0, 0, 0, 0, 0),
                     (0, 0, 0, 0, 0),
                     (0, 0, 0, 1, 0),
                     (0, 0, 0, 0, 1)),
                    ((0, 0, 0, 0, 0),     //DR_DOWN
                     (0, 0, 0, 0, 0),
                     (0, 0, 0, 0, 0),
                     (0, 0, 1, 0, 0),
                     (0, 0, 1, 0, 0)),
                    ((0, 0, 0, 0, 0),     //DR_DOWNLEFT
                     (0, 0, 0, 0, 0),
                     (0, 0, 0, 0, 0),
                     (0, 1, 0, 0, 0),
                     (1, 0, 0, 0, 0)),
                    ((0, 0, 0, 0, 0),     //DR_LEFT
                     (0, 0, 0, 0, 0),
                     (1, 1, 0, 0, 0),
                     (0, 0, 0, 0, 0),
                     (0, 0, 0, 0, 0)),
                    ((1, 0, 0, 0, 0),     //DR_UPLEFT
                     (0, 1, 0, 0, 0),
                     (0, 0, 0, 0, 0),
                     (0, 0, 0, 0, 0),
                     (0, 0, 0, 0, 0))
                    );

    sHomeMap                :'0';
    nHomeX                  :289;
    nHomeY                  :618;
    sRedHomeMap             :'3';
    nRedHomeX               :845;
    nRedHomeY               :674;
    sRedDieHomeMap          :'3';
    nRedDieHomeX            :839;
    nRedDieHomeY            :668;
    boJobHomePoint          :False;
    sWarriorHomeMap         :'0';
    nWarriorHomeX           :289;
    nWarriorHomeY           :618;
    sWizardHomeMap          :'0';
    nWizardHomeX            :650;
    nWizardHomeY            :631;
    sTaoistHomeMap          :'0';
    nTaoistHomeX            :334;
    nTaoistHomeY            :266;
    dwDecPkPointTime        :2 * 60 * 1000;
    nDecPkPointCount        :1;
    dwPKFlagTime            :60 * 1000;
    nKillHumanAddPKPoint    :100;
    nKillHumanDecLuckPoint  :500;
    dwDecLightItemDrugTime  :500;
    nSafeZoneSize           :10;
    nStartPointSize         :2;
    dwHumanGetMsgTime       :200;
    nGroupMembersMax        :10;
    sFireBallSkill          :'火球术';
    sHealSkill              :'治疗术';
    ReNewNameColor          :($FF,$FE,$93,$9A,$E5,$A8,$B4,$FC,$B4,$FC);
    dwReNewNameColorTime    :2000;
    boReNewChangeColor      :True;
    boReNewLevelClearExp    :True;
    BonusAbilofWarr         :(DC:17;MC:20;SC:20;AC:20;MAC:20;HP:1;MP:3;Hit:20;Speed:35;X2:0);
    BonusAbilofWizard       :(DC:17;MC:25;SC:30;AC:20;MAC:15;HP:2;MP:1;Hit:25;Speed:35;X2:0);
    BonusAbilofTaos         :(DC:20;MC:30;SC:17;AC:20;MAC:15;HP:2;MP:1;Hit:30;Speed:30;X2:0);
    NakedAbilofWarr         :(DC:512;MC:2560;SC:20;AC:768;MAC:1280;HP:0;MP:0;Hit:0;Speed:0;X2:0);
    NakedAbilofWizard       :(DC:512;MC:512;SC:2560;AC:1280;MAC:768;HP:0;MP:0;Hit:5;Speed:0;X2:0);
    NakedAbilofTaos         :(DC:20;MC:30;SC:17;AC:20;MAC:15;HP:2;MP:1;Hit:30;Speed:30;X2:0);
    nUpgradeWeaponMaxPoint  :20;
    nUpgradeWeaponPrice     :10000;
    dwUPgradeWeaponGetBackTime     :60 * 60 * 1000;
    nClearExpireUpgradeWeaponDays  :8;
    nUpgradeWeaponDCRate           :100;
    nUpgradeWeaponDCTwoPointRate   :30;
    nUpgradeWeaponDCThreePointRate :200;
    nUpgradeWeaponSCRate           :100;
    nUpgradeWeaponSCTwoPointRate   :30;
    nUpgradeWeaponSCThreePointRate :200;
    nUpgradeWeaponMCRate           :100;
    nUpgradeWeaponMCTwoPointRate   :30;
    nUpgradeWeaponMCThreePointRate :200;
    dwProcessMonstersTime          :10;
    dwRegenMonstersTime            :200;
    nMonGenRate                    :10;
    nProcessMonRandRate            :5;
    nProcessMonLimitCount          :5;
    nSoftVersionDate               :20020522;
    boCanOldClientLogon            :True;
    dwConsoleShowUserCountTime     :10 * 60 * 1000;
    dwShowLineNoticeTime           :5 * 60 * 1000;
    nLineNoticeColor               :2;
    nStartCastleWarDays            :4;
    nStartCastlewarTime            :20;
    dwShowCastleWarEndMsgTime      :10 * 60 * 1000;
    dwCastleWarTime                :3 * 60 * 60 * 1000;
    dwGetCastleTime                :10 * 60 * 1000;
    dwGuildWarTime                 :3 * 60 * 60 * 1000;
    nBuildGuildPrice               :1000000;
    nGuildWarPrice                 :30000;
    nMakeDurgPrice                 :100;
    nHumanMaxGold                  :50000000;
    nHumanTryModeMaxGold           :100000;
    nTryModeLevel                  :7;
    boTryModeUseStorage            :False;
    nCanShoutMsgLevel              :7;
    boShowMakeItemMsg              :False;
    boShutRedMsgShowGMName         :False;
    nSayMsgMaxLen                  :80;
    dwSayMsgTime                   :3 * 1000;
    nSayMsgCount                   :2;
    dwDisableSayMsgTime            :60 * 1000;
    nSayRedMsgMaxLen               :255;
    boShowGuildName                :True;
    boShowRankLevelName            :False;
    boMonSayMsg                    :False;
    nStartPermission               :0;
    boKillHumanWinLevel            :False;
    boKilledLostLevel              :False;
    boKillHumanWinExp              :False;
    boKilledLostExp                :False;
    nKillHumanWinLevel             :1;
    nKilledLostLevel               :1;
    nKillHumanWinExp               :100000;
    nKillHumanLostExp              :100000;
    nHumanLevelDiffer              :10;
    nMonsterPowerRate              :10;
    nItemsPowerRate                :10;
    nItemsACPowerRate              :10;
    boSendOnlineCount              :True;
    nSendOnlineCountRate           :10;
    dwSendOnlineTime               :5 * 60 * 1000;
    dwSaveHumanRcdTime             :10 * 60 * 1000;
    dwHumanFreeDelayTime           :5 * 60 * 1000;
    dwMakeGhostTime                :3 * 60 * 1000;
    dwClearDropOnFloorItemTime     :60 * 60 * 1000;
    dwFloorItemCanPickUpTime       :2 * 60 * 1000;
    boPasswordLockSystem           :False;
    boLockDealAction               :False;
    boLockDropAction               :False;
    boLockGetBackItemAction        :False;
    boLockHumanLogin               :False;
    boLockWalkAction               :False;
    boLockRunAction                :False;
    boLockHitAction                :False;
    boLockSpellAction              :False;
    boLockSendMsgAction            :False;
    boLockUserItemAction           :False;
    boLockInObModeAction           :False;
    nPasswordErrorCountLock        :3;
    boPasswordErrorKick            :False;
    nSendRefMsgRange               :12;
    boDecLampDura                  :True;
    boHungerSystem                 :False;
    boHungerDecHP                  :False;
    boHungerDecPower               :False;
    boDiableHumanRun               :False;
    boRunHuman                     :False;
    boRunMon                       :False;
    boRunNpc                       :False;
    boRunGuard                     :False;
    boWarDisHumRun                 :False;
    boGMRunAll                     :True;
    dwTryDealTime                  :3000;
    dwDealOKTime                   :1000;
    boCanNotGetBackDeal            :True;
    boDisableDeal                  :False;
    nMasterOKLevel                 :500;
    nMasterOKCreditPoint           :0;
    nMasterOKBonusPoint            :0;
    boPKLevelProtect               :False;
    nPKProtectLevel                :10;
    nRedPKProtectLevel             :10;
    nItemPowerRate                 :10000;
    nItemExpRate                   :10000;
    nScriptGotoCountLimit          :30;
    btHearMsgFColor                :$00;
    btHearMsgBColor                :$FF;
    btWhisperMsgFColor             :$FC;
    btWhisperMsgBColor             :$FF;
    btGMWhisperMsgFColor           :$FF;
    btGMWhisperMsgBColor           :$38;
    btCryMsgFColor                 :$0;
    btCryMsgBColor                 :$97;
    btGreenMsgFColor               :$DB;
    btGreenMsgBColor               :$FF;
    btBlueMsgFColor                :$FF;
    btBlueMsgBColor                :$FC;
    btRedMsgFColor                 :$FF;
    btRedMsgBColor                 :$38;
    btGuildMsgFColor               :$DB;
    btGuildMsgBColor               :$FF;
    btGroupMsgFColor               :$C4;
    btGroupMsgBColor               :$FF;
    btCustMsgFColor                :$FC;
    btCustMsgBColor                :$FF;
 

⌨️ 快捷键说明

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