📄 objbase.~pas
字号:
procedure CmdMapMoveHuman(Cmd:pTGameCmd;sSrcMap,sDenMap:String);
procedure CmdShutup(Cmd:pTGameCmd;sHumanName,sTime:String);
procedure CmdShowMapInfo(Cmd:pTGameCmd;sParam1:String);
procedure CmdShutupRelease(Cmd:pTGameCmd;sHumanName:String;boAll:Boolean);
procedure CmdShutupList(Cmd:pTGameCmd;sParam1:String);
procedure CmdShowSbkGold(Cmd:pTGameCmd;sCastleName,sCtr,sGold:String);
procedure CmdRecallHuman(Cmd:pTGameCmd;sHumanName:String);
procedure CmdReGotoHuman(Cmd:pTGameCmd;sHumanName:String);
procedure CmdShowHumanFlag(sCmd:String;nPermission:Integer;sHumanName,sFlag:String);
procedure CmdShowHumanUnitOpen(sCmd:String;nPermission:Integer;sHumanName,sUnit:String);
procedure CmdShowHumanUnit(sCmd:String;nPermission:Integer;sHumanName,sUnit:String);
procedure CmdChangeAdminMode(sCmd:String;nPermission:Integer;sParam1:String;boFlag:Boolean);
procedure CmdChangeObMode(sCmd:String;nPermission:Integer;sParam1:String;boFlag:Boolean);
procedure CmdChangeSuperManMode(sCmd:String;nPermission:Integer;sParam1:String;boFlag:Boolean);
procedure CmdChangeLevel(Cmd:pTGameCmd;sParam1:String);
procedure CmdChangeDearName(Cmd:pTGameCmd;sHumanName:String;sDearName:String);
procedure CmdChangeMasterName(Cmd:pTGameCmd;sHumanName:String;sMasterName,sIsMaster:String);
procedure CmdStartQuest(Cmd:pTGameCmd;sQuestName:String);
procedure CmdSetPermission(Cmd:pTGameCmd;sHumanName,sPermission:String);
procedure CmdClearMapMonster(Cmd:pTGameCmd;sMapName,sMonName,sItems:String);
procedure CmdReNewLevel(Cmd:pTGameCmd;sHumanName,sLevel:String);
procedure CmdDenyIPaddrLogon(Cmd:pTGameCmd;sIPaddr,sFixDeny:String);
procedure CmdDelDenyIPaddrLogon(Cmd:pTGameCmd;sIPaddr,sFixDeny:String);
procedure CmdShowDenyIPaddrLogon(Cmd:pTGameCmd;sIPaddr,sFixDeny:String);
procedure CmdDenyAccountLogon(Cmd:pTGameCmd;sAccount,sFixDeny:String);
procedure CmdDelDenyAccountLogon(Cmd:pTGameCmd;sAccount,sFixDeny:String);
procedure CmdShowDenyAccountLogon(Cmd:pTGameCmd;sAccount,sFixDeny:String);
procedure CmdDenyCharNameLogon(Cmd:pTGameCmd;sCharName,sFixDeny:String);
procedure CmdDelDenyCharNameLogon(Cmd:pTGameCmd;sCharName,sFixDeny:String);
procedure CmdShowDenyCharNameLogon(Cmd:pTGameCmd;sCharName,sFixDeny:String);
procedure CmdViewWhisper(Cmd:pTGameCmd;sCharName,sParam2:String);
procedure CmdSpirtStart(sCmd:String;sParam1:String);
procedure CmdSpirtStop(sCmd:String;sParam1:String);
procedure CmdSetMapMode(sCmd:String;sMapName,sMapMode,sParam1,sParam2:String);
procedure CmdShowMapMode(sCmd:String;sMapName:String);
procedure CmdClearHumanPassword(sCmd:String;nPermission:Integer;sHumanName:String);
procedure CmdChangeItemName(sCmd,sMakeIndex,sItemIndex,sItemName:String);
procedure CmdDisableSendMsg(Cmd:pTGameCmd;sHumanName:String);
procedure CmdEnableSendMsg(Cmd:pTGameCmd;sHumanName:String);
procedure CmdDisableSendMsgList(Cmd:pTGameCmd);
procedure CmdTestGetBagItems(Cmd:pTGameCmd;sParam:String);
procedure CmdMobFireBurn(Cmd:pTGameCmd;sMap,sX,sY,sType,sTime,sPoint:String);
procedure CmdTestSpeedMode(Cmd:pTGameCmd);
procedure ProcessUserCmd(sParam1,sParam2,sParam3,sParam4,sParam5,sParam6,sParam7:String);
end;
procedure AddUserLog(sMsg:String);
implementation
uses M2Share, Guild, HUtil32, EDcode, ObjNpc, IdSrvClient, ItmUnit, Event,
ObjMon, LocalDB, Castle, EncryptUnit, svMain;
{ TBaseObject }
constructor TBaseObject.Create; //4B780C
begin
m_boGhost := False;
m_dwGhostTick := 0;
m_boDeath := False;
m_dwDeathTick := 0;
m_SendRefMsgTick := GetTickCount();
m_btDirection := 4;
m_btRaceServer := RC_ANIMAL;
m_btRaceImg := 0;
m_btHair := 0;
m_btJob := 0;
m_nGold := 0;
m_wAppr := 0;
bo2B9 := True;
m_nViewRange := 5;
m_sHomeMap := '0';
bo94 := False;
m_btPermission := 0;
m_nLight := 0;
m_btNameColor := 255;
m_nHitPlus := 0;
m_nHitDouble := 0;
m_dBodyLuck := 0;
m_wGroupRcallTime := 0;
m_dwGroupRcallTick := GetTickCount();
m_boRecallSuite := False;
bo245 := False;
m_boTestGa := False;
m_boGsa := False;
bo2BA := False;
m_boAbilSeeHealGauge := False;
m_boPowerHit := False;
m_boUseThrusting := False;
m_boUseHalfMoon := False;
m_boFireHitSkill := False;
m_btHitPoint := 5;
m_btSpeedPoint := 15;
m_nHitSpeed := 0;
m_btLifeAttrib := 0;
m_btAntiPoison := 0;
m_nPoisonRecover := 0;
m_nHealthRecover := 0;
m_nSpellRecover := 0;
m_nAntiMagic := 0;
m_nLuck := 0;
m_nIncSpell := 0;
m_nIncHealth := 0;
m_nIncHealing := 0;
m_nPerHealth := 5;
m_nPerHealing := 5;
m_nPerSpell := 5;
m_dwIncHealthSpellTick := GetTickCount();
m_btGreenPoisoningPoint := 0;
m_nFightZoneDieCount := 0;
// m_nGoldMax := 5000000;
m_nGoldMax := g_Config.nHumanMaxGold;
m_nCharStatus := 0;
m_nCharStatusEx := 0;
FillChar(m_wStatusTimeArr,SizeOf(TStatusTime),#0); //004B7A83
FillChar(m_BonusAbil, SizeOf(TNakedAbility), #0);
FillChar(m_CurBonusAbil, SizeOf(TNakedAbility), #0);
FillChar(m_wStatusArrValue, Sizeof(m_wStatusArrValue), 0);
FillChar(m_dwStatusArrTimeOutTick, SizeOf(m_dwStatusArrTimeOutTick), #0);
m_boAllowGroup := False;
m_boAllowGuild := False;
btB2 := 0;
m_btAttatckMode := 0;
m_boInFreePKArea := False;
m_boGuildWarArea := False;
bo2B0 := False;
m_boSuperMan := False;
m_boSkeleton := False;
bo2BF := False;
m_boHolySeize := False;
m_boCrazyMode := False;
m_boShowHP := False;
bo2F0 := False;
m_boAnimal := False;
m_boNoItem := False;
m_nBodyLeathery := 50;
m_boFixedHideMode := False;
m_boStickMode := False;
m_boNoAttackMode := False;
bo2C1 := False;
m_boPKFlag := False;
m_nMoXieSuite := 0;
m_nHongMoSuite := 0;
m_db3B0 := 0;
FillChar(m_AddAbil, SizeOf(TAddAbility), #0);
m_MsgList := TList.Create;
m_VisibleHumanList := TList.Create;
LIst_3EC := TList.Create;
m_VisibleActors := TList.Create;
m_VisibleItems := TList.Create;
m_VisibleEvents := TList.Create;
m_ItemList := TList.Create;
m_DealItemList := TList.Create;
m_boIsVisibleActive := False;
m_nProcessRunCount := 0;
m_nDealGolds := 0;
m_MagicList := TList.Create;
m_StorageItemList := TList.Create;
FillChar(m_UseItems, SizeOf(THumanUseItems), 0);
m_MagicOneSwordSkill := nil;
m_MagicPowerHitSkill := nil;
m_MagicErgumSkill := nil;
m_MagicBanwolSkill := nil;
m_MagicFireSwordSkill := nil;
m_MagicCrsSkill := nil;
m_Magic41Skill := nil;
m_Magic42Skill := nil;
m_Magic43Skill := nil;
m_GroupOwner := nil;
m_Castle := nil;
m_Master := nil;
n294 := 0;
m_btSlaveExpLevel := 0;
bt2A0 := 0;
m_GroupMembers := TStringList.Create;
m_boHearWhisper := True;
m_boBanShout := True;
m_boBanGuildChat := True;
m_boAllowDeal := True;
m_boAllowGroupReCall := False;
m_BlockWhisperList := TStringList.Create;
m_SlaveList := TList.Create;
FillChar(m_WAbil, SizeOf(TAbility), #0);
FillChar(m_QuestUnitOpen, SizeOf(TQuestUnit),#0);
FillChar(m_QuestUnit,SizeOf(TQuestUnit),#0);
m_Abil.Level := 1;
m_Abil.AC := 0;
m_Abil.MAC := 0;
m_Abil.DC := MakeLong(1,4);
m_Abil.MC := MakeLong(1,2);
m_Abil.SC := MakeLong(1,2);
m_Abil.HP := 15;
m_Abil.MP := 15;
m_Abil.MaxHP := 15;
m_Abil.MaxMP := 15;
m_Abil.Exp := 0;
m_Abil.MaxExp := 50;
m_Abil.Weight := 0;
m_Abil.MaxWeight := 100;
m_boWantRefMsg := False;
m_boDealing := False;
m_DealCreat := nil;
m_MyGuild := nil;
m_nGuildRankNo := 0;
m_sGuildRankName := '';
m_sScriptLable := '';
m_boMission := False;
m_boHideMode := False;
m_boStoneMode := False;
m_boCoolEye := False;
m_boUserUnLockDurg := False;
m_boTransparent := False;
m_boAdminMode := False;
m_boObMode := False;
m_dwRunTick := GetTickCount + LongWord(Random(1500));
m_nRunTime := 250;
m_dwSearchTime := Random(2000) + 2000;
m_dwSearchTick := GetTickCount;
m_dwDecPkPointTick := GetTickCount;
m_DecLightItemDrugTick := GetTickCount();
m_dwPoisoningTick := GetTickCount;
m_dwVerifyTick := GetTickCount();
m_dwCheckRoyaltyTick := GetTickCount();
m_dwDecHungerPointTick := GetTickCount();
m_dwHPMPTick := GetTickCount();
m_dwShoutMsgTick := 0;
m_dwTeleportTick := 0;
m_dwProbeTick := 0;
m_dwMapMoveTick := GetTickCount();
m_dwMasterTick := 0;
m_nWalkSpeed := 1400;
m_nNextHitTime := 2000;
m_nWalkCount := 0;
m_dwWalkWaitTick := GetTickCount();
m_boWalkWaitLocked := False;
m_nHealthTick := 0;
m_nSpellTick := 0;
m_TargetCret := nil;
m_LastHiter := nil;
m_ExpHitter := nil;
m_SayMsgList := nil;
m_boDenyRefStatus := False;
m_btHorseType := 0;
m_b⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -