m2share.~pas
来自「2009最新 传奇汉化0599代码 传奇汉化」· ~PAS 代码 · 共 1,719 行 · 第 1/5 页
~PAS
1,719 行
$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.lomcn.com';
sBbsSite :'http://www.lomcn.com';
sClientDownload :'http://www.lomcn.com';
sQQ :'N/A';
sPhone :'07961 981456';
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 :'BaseDress(M)';
sClothsWoman :'BaseDress(F)';
sWoodenSword :'WoodenSword';
sCandle :'Candle';
sBasicDrug :'(HP)DrugSmall';
sGoldStone :'GoldOre';
sSilverStone :'SilverOre';
sSteelStone :'IronOre';
sCopperStone :'CopperOre';
sBlackStone :'BlackIronOre';
sGemStone1 :'RubyOre';
sGemStone2 :'AmethystOre';
sGemStone3 :'NephriteOre';
sGemStone4 :'PlatinumOre';
sZuma :('ZumaGuardian','ZumaStatue','ZumaArcher','WedgeMoth');
sBee :'BugBat';
sSpider :'BombSpider';
sWoomaHorn :'WoomaHorn';
sZumaPiece :'ZumaRelic';
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 :'Fireball';
sHealSkill :'Healing';
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; //08/08 - Damian
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;
nMonRandomAddValue :10;
nMakeRandomAddValue :10;
nWeaponDCAddValueMaxLimit :12;
nWeaponDCAddValueRate :15;
nWeaponMCAddValueMaxLimit :12;
nWeaponMCAddValueRate :15;
nWeaponSCAddValueMaxLimit :12;
nWeaponSCAddValueRate :15;
nDressDCAddRate :40;
nDressDCAddValueMaxLimi⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?