📄 objbase.pas
字号:
procedure CmdDisableFilter(sCmd,sParam1:String);
procedure CmdChangeUserFull(sCmd,sUserCount:String);
procedure CmdChangeZenFastStep(sCmd,sFastStep:String);
procedure CmdReconnection(sCmd,sIPaddr,sPort:String);
procedure CmdContestPoint(Cmd:pTGameCmd;sGuildName:String);
procedure CmdStartContest(Cmd:pTGameCmd;sParam1:String);
procedure CmdEndContest(Cmd:pTGameCmd;sParam1:String);
procedure CmdAnnouncement(Cmd:pTGameCmd;sGuildName:String);
procedure CmdKill(Cmd:pTGameCmd;sHumanName:String);
procedure CmdMakeItem(Cmd:pTGameCmd;sItemName:String;nCount:Integer);
procedure CmdSmakeItem(Cmd:pTGameCmd;nWhere,nValueType,nValue:Integer);
procedure CmdBonuPoint(Cmd:pTGameCmd;sHumName:String;nCount:Integer);
procedure CmdDelBonuPoint(Cmd:pTGameCmd;sHumName:String);
procedure CmdRestBonuPoint(Cmd:pTGameCmd;sHumName:String);
procedure CmdFireBurn(nInt,nTime,nN:Integer);
procedure CmdTestFire(sCmd:String;nRange,nType,nTime,nPoint:Integer);
procedure CmdTestStatus(sCmd:String;nType,nTime:Integer);
procedure CmdDelGold(Cmd:pTGameCmd;sHumName:String;nCount:Integer);
procedure CmdAddGold(Cmd:pTGameCmd;sHumName:String;nCount:Integer);
procedure CmdDelGameGold(sCmd,sHumName:String;nPoint:Integer);
procedure CmdAddGameGold(sCmd,sHumName:String;nPoint:Integer);
procedure CmdGameGold(Cmd:pTGameCmd;sHumanName:String;sCtr:String;nGold:Integer);
procedure CmdGamePoint(Cmd:pTGameCmd;sHumanName:String;sCtr:String;nPoint:Integer);
procedure CmdCreditPoint(Cmd:pTGameCmd;sHumanName:String;sCtr:String;nPoint:Integer);
procedure CmdMob(Cmd:pTGameCmd;sMonName:String;nCount,nLevel:Integer; nExpRatio:Integer = -1);
procedure CmdRefineWeapon(Cmd:pTGameCmd;nDC,nMC,nSC,nHit:Integer);
procedure CmdRecallMob(Cmd:pTGameCmd;sMonName:String;nCount,nLevel,nAutoChangeColor,nFixColor:Integer);
procedure CmdLuckPoint(sCmd:String;nPerMission:Integer;sHumanName,sCtr,sPoint:String);
procedure CmdLotteryTicket(sCmd:String;nPerMission:Integer;sParam1:String);
procedure CmdReloadGuild(sCmd:String;nPerMission:Integer;sParam1:String);
procedure CmdReloadLineNotice(sCmd:String;nPerMission:Integer;sParam1:String);
procedure CmdReloadAbuse(sCmd:String;nPerMission:Integer;sParam1:String);
procedure CmdMobNpc(sCmd:String;nPermission:Integer;sParam1,sParam2,sParam3,sParam4:String);
procedure CmdNpcScript(sCmd:String;nPermission:Integer;sParam1,sParam2,sParam3:String);
procedure CmdDelNpc(sCmd:String;nPermission:Integer;sParam1:String);
procedure CmdKickHuman(Cmd:pTGameCmd;sHumName:String);
procedure CmdTing(Cmd:pTGameCmd;sHumanName:String);
procedure CmdSuperTing(Cmd:pTGameCmd;sHumanName,sRange:String);
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 SendWhisperMsg(PlayObject:TPlayObject);
end;
TPlayCloneObject=class(TPlayObject)
public
m_dwRunTime :LongWord;
m_dwRunNextTick :LongWord;
public
constructor Create(PlayObject:TPlayObject);
destructor Destroy; override;
function Operate(ProcessMsg:pTProcessMessage):Boolean;override;
end;
procedure AddUserLog(sMsg:String);
implementation
uses M2Share, Guild, HUtil32, EDcode, ObjNpc, IdSrvClient, 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 := jWarr;
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_boRedUseHalfMoon := False;
m_boFireHitSkill := False;
m_boTwinHitSkill := 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;
m_boNoTame := 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_MagicRedBanwolSkill := nil;
m_MagicFireSwordSkill := nil;
m_MagicCrsSkill := nil;
m_Magic41Skill := nil;
m_MagicTwnHitSkill := 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 ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -