objmon2.pas

传奇源代码的delphi版本

unit ObjMon2;

interface
uses
  svn, Windows,Classes,Grobal2,ObjBase, ObjMon, sysutils;
type
  TStickMonster = class(TAnimalObject)
    n54C    :Integer;
    bo550   :Boolean;
    nComeOutValue   :Integer;
    nAttackRange    :Integer;
  private

  public
    constructor Create();override;
    destructor Destroy; override;
    function  AttackTarget():Boolean;virtual;
    function  CheckComeOut:Boolean;virtual;
    procedure ComeOut;virtual;
    procedure ComeDown;virtual;//FFE8
    function  Operate(ProcessMsg:pTProcessMessage):Boolean; override;//FFFC
    procedure Run;override;
  end;
  TBeeQueen = class(TAnimalObject)
    n54C      :Integer;
    BBList   :TList;
  private
    procedure MakeChildBee;
  public
    constructor Create();override;
    destructor Destroy; override;
    function  Operate(ProcessMsg:pTProcessMessage):Boolean; override;//FFFC
    procedure Run;override;
  end;
  TCentipedeKingMonster = class(TStickMonster)
    m_dwAttickTick    :LongWord; //0x560
  private
    function sub_4A5B0C: Boolean;
  public
    constructor Create();override;
    destructor Destroy; override;
    function  AttackTarget():Boolean;override;
    procedure ComeOut;override;
    procedure Run;override;
  end;
  TBigHeartMonster = class(TAnimalObject)
  private

  public
    constructor Create();override;
    destructor Destroy; override;

    function AttackTarget():Boolean;virtual;
    procedure Run;override;
  end;

  TBamTreeMonster = class(TAnimalObject)
  private
    m_nStruckCount :Integer;  //0x798
    m_nHealth      :Integer;  //0x79C

  public
    constructor Create();override; //0x00504AD8
    destructor Destroy; override;

    procedure Struck(hiter: TBaseObject);override; //0x00504B3C
    procedure Run;override; //0x00504B60
    procedure StruckDamage(nDamage:integer);override;
  end;

  TSpiderHouseMonster = class(TAnimalObject)
    n54C    :Integer;
    BBList  :TList;
  private
    procedure GenBB;
  public
    constructor Create();override;
    destructor Destroy; override;
    function  Operate(ProcessMsg:pTProcessMessage):Boolean; override;//FFFC
    procedure Run;override;
  end;
  TExplosionSpider = class(TMonster)
    dw558    :LongWord;
  private
    procedure sub_4A65C4;

  public
    constructor Create();override;
    destructor Destroy; override;
    procedure Run; override;
    function AttackTarget():Boolean; override; //FFEB
  end;
  TGuardUnit = class(TAnimalObject)
    dw54C              :LongWord;       //0x54C
    m_nX550            :Integer;      //0x550
    m_nY554            :Integer;      //0x554
    m_nDirection       :Integer;      //0x558
  public
    function  IsProperTarget(BaseObject:TBaseObject):boolean; override; //FFF4
    procedure Struck(hiter: TBaseObject);override; //FFEC
  end;
  TArcherGuard = class(TGuardUnit)
  private
    procedure sub_4A6B30(TargeTBaseObject:TBaseObject);

  public
    constructor Create();override;
    destructor Destroy; override;
    procedure Run;override;
  end;
  TArcherPolice = class(TArcherGuard)
  private
  public
    constructor Create();override;
    destructor Destroy; override;
  end;
  TCastleDoor = class(TGuardUnit)
    dw55C              :LongWord;      //0x55C
    dw560              :LongWord;      //0x560
    m_boOpened         :Boolean;      //0x564
    bo565n             :Boolean;      //0x565
    bo566n             :Boolean;      //0x566
    bo567n             :Boolean;      //0x567
  private
    procedure SetMapXYFlag(nFlag:Integer);
  public
    constructor Create();override;
    destructor Destroy; override;
    procedure Die;override;
    procedure Run;override;
    procedure Initialize();override;
    procedure Close;
    procedure Open;
    procedure RefStatus;
  end;
  TWallStructure = class(TGuardUnit)
    n55C:Integer;
    dw560:LongWord;
    boSetMapFlaged:Boolean;
  private
  public
    constructor Create();override;
    destructor Destroy; override;
    procedure Initialize;override;
    procedure Die;override;
    procedure Run;override;
    procedure RefStatus;    
  end;
  TSoccerBall = class(TAnimalObject)
    nMoveCount:Integer;
  private

  public
    constructor Create();override;
    destructor Destroy; override;
    procedure Struck(hiter: TBaseObject);override;
    procedure Run;override;
  end;


  TEvilMir = class(TAnimalObject)
    m_dwSpellTick  :LongWord;
    boSlaves:Boolean;
  private
      procedure FlameCircle(nDir: Integer);
      procedure MassThunder();
      procedure CallSlaves();
  public
    constructor Create();override;
    destructor Destroy; override;
    function  Operate(ProcessMsg:pTProcessMessage):Boolean; override;
    procedure Run;override;
    procedure Die; override;
  end;

  TFoxOrbSpirit = class(TAnimalObject)
    m_dwSpellTick  :LongWord;
    boSlaves:Boolean;
  private
      procedure FlameCircle(nDir: Integer);
      procedure MassThunder();
//      procedure CallSlaves();
      procedure FoxYell();
  public
    constructor Create();override;
    destructor Destroy; override;
//    function  Operate(ProcessMsg:pTProcessMessage):Boolean; override;
    procedure Run;override;
//    procedure Die; override;
  end;

  THellGuard = class(TAnimalObject)
  private
    m_dwSpellTick:LongWord;
    procedure RepulseCircle();
  public
    constructor Create();override;
    destructor Destroy; override;

    function AttackTarget():Boolean;virtual;
    procedure Run;override;
  end;

  TGuardianRock = class(TAnimalObject)
  private
  public
    constructor Create();override;
    destructor Destroy; override;
    function AttackTarget():Boolean;virtual;
    procedure Run;override;
  end;

var
  g_DragonSearchPath:Array[0..41,0..1] of Integer = (
  (0, -5), (1, -5), (-1, -4), (0, -4),
  (1, -4), (2, -4), (-2, -3), (-1, -3),
  (0, -3), (1, -3), (2, -3),  (-3, -2),
  (-2, -2),(-1, -3),(0, -2),  (1, -2),
  (2, -2), (-3, -1),(-2, -1), (-1, -1),
  (0, -1), (1, -1), (2, -1),  (-3, 0),
  (-2, 0), (-1, 0), (0, 0),   (1, 0),
  (2, 0),  (3, 0),  (-2, 1),  (-1, 1),
  (0, 1),  (1, 1),  (2, 1),   (3, 1),
  (-1, 2), (0, 2),  (1, 2),   (2, 2),
  (0, 3),  (1, 3)
  );

implementation

uses
  M2Share, HUtil32, Castle, Guild;


{ TStickMonster }
constructor TStickMonster.Create;//004A51C0
begin
  inherited;
  bo550:=False;
  m_nViewRange:=7;
  m_nRunTime:=250;
  m_dwSearchTime:=Random(1500) + 2500;
  m_dwSearchTick:=GetTickCount();
  nComeOutValue:=4;
  nAttackRange:=4;
  m_boFixedHideMode:=True;
  m_boStickMode:=True;
  m_boAnimal:=True;
end;

destructor TStickMonster.Destroy;//004A5290
begin

  inherited;
end;
function TStickMonster.AttackTarget: Boolean;
var
  btDir:Byte;
begin
  Result:=False;
  if m_TargetCret = nil then exit;
  if GetAttackDir(m_TargetCret,btDir) then begin
    if GetCurrentTime - m_dwHitTick > GetHitSpeed then begin
      m_dwHitTick:=GetCurrentTime;
      m_dwTargetFocusTick:=GetTickCount();
      Attack(m_TargetCret,btDir);
    end;
    Result:=True;
    exit;
  end;
  if m_TargetCret.m_PEnvir = m_PEnvir then begin
    SetTargetXY(m_TargetCret.m_nCurrX,m_TargetCret.m_nCurrY); {0FFF0h}
  end else begin
    DelTargetCreat();{0FFF1h}
  end;
end;

procedure TStickMonster.ComeOut();
begin
  m_boFixedHideMode:=False;
  SendRefMsg(RM_DIGUP,m_btDirection,m_nCurrX,m_nCurrY,0,'');
end;
procedure TStickMonster.ComeDown();//004A53E4
var
  I:Integer;
ResourceString
  sExceptionMsg = '[Exception] TStickMonster::VisbleActors Dispose';
begin
  SendRefMsg(RM_DIGDOWN,m_btDirection,m_nCurrX,m_nCurrY,0,'');
  try
    for I := 0 to m_VisibleActors.Count - 1 do begin
      Dispose(pTVisibleBaseObject(m_VisibleActors.Items[I]));
    end;
    m_VisibleActors.Clear;
  except
    MainOutMessage(sExceptionMsg);
  end;
  m_boFixedHideMode:=True;
end;
function TStickMonster.CheckComeOut():Boolean;//004A53E4
var
  I:Integer;
  BaseObject:TBaseObject;
begin
  Result := FALSE;
  for I := 0 to m_VisibleActors.Count - 1 do begin
    BaseObject:=TBaseObject(pTVisibleBaseObject(m_VisibleActors.Items[I]).BaseObject);
    if BaseObject.m_boDeath then Continue;
    if IsProperTarget(BaseObject) then begin
      if not BaseObject.m_boHideMode or m_boCoolEye then begin
        if (abs(m_nCurrX - BaseObject.m_nCurrX) < nComeOutValue) and (abs(m_nCurrY - BaseObject.m_nCurrY) < nComeOutValue) then begin
          Result := TRUE;
          break;
        end;
      end;
    end;
  end;    // for
end;

function TStickMonster.Operate(ProcessMsg: pTProcessMessage):Boolean;
begin
  Result:=inherited Operate(ProcessMsg);
end;

procedure TStickMonster.Run;//004A5614
var
  bo05:Boolean;
begin
  if CanMove then begin
    if (GetCurrentTime - m_dwWalkTick > GetWalkSpeed) then begin
      m_dwWalkTick:=GetCurrentTime;
      if m_boFixedHideMode then begin
        if CheckComeOut() then
          ComeOut();
      end else begin
        if GetCurrentTime - m_dwHitTick > GetHitSpeed then begin
          SearchTarget();
        end;
        bo05:=False;
        if m_TargetCret <> nil then begin
          if (abs(m_TargetCret.m_nCurrX - m_nCurrX) > nAttackRange) or
             (abs(m_TargetCret.m_nCurrY - m_nCurrY) > nAttackRange) then begin
            bo05:=True;
          end;
        end else bo05:=True;
        if bo05 then begin
          ComeDown();
        end else begin
          if AttackTarget then begin
            inherited;
            exit;
          end;
        end;
      end;
    end;
  end;
  inherited;
end;



{ TSoccerBall }

constructor TSoccerBall.Create;//004A764C
begin
  inherited;
  m_boAnimal:=False;
  m_boSuperMan:=True;
  nMoveCount:=0;
  m_nTargetX:= -1;
end;

destructor TSoccerBall.Destroy;
begin

  inherited;
end;



procedure TSoccerBall.Run;
var
  nX,nY:Integer;
begin
  if nMoveCount > 0 then begin
    if m_PEnvir.GetNextPosition(m_nCurrX,m_nCurrY,m_btDirection,1,nX,nY) then begin
      if m_PEnvir.CanWalk(nX,nY,True) then begin
        case m_btDirection of    //
          0: m_btDirection:=4;
          1: m_btDirection:=7;
          2: m_btDirection:=6;
          3: m_btDirection:=5;
          4: m_btDirection:=0;
          5: m_btDirection:=3;
          6: m_btDirection:=2;
          7: m_btDirection:=1;
        end;    // case
        m_PEnvir.GetNextPosition(m_nCurrX,m_nCurrY,m_btDirection,nMoveCount,nX,nY);
      end;
    end;
  end else begin//004A78A1
    m_nTargetX:= -1;
  end;
  if m_nTargetX <> -1 then begin
    GotoTargetXY();
    if (m_nTargetX = m_nCurrX) and (m_nTargetY = m_nCurrY) then
      nMoveCount:=0;
  end;
  inherited;
end;

procedure TSoccerBall.Struck(hiter: TBaseObject);
begin
  if hiter = nil then exit;
  m_btDirection:=hiter.m_btDirection;
  nMoveCount:=Random(4) + (nMoveCount + 4);
  nMoveCount:=_MIN(20,nMoveCount);