몬스터 클래스 정보

  TMonsterData = class(TObject)
  public
    MonID : Integer;
    Name : String;               //몬스터 이름
    Level : Integer;             //몬스터 레벨
    MaxHP : Integer;             //최고체력
    Attack : Integer;            //공격력
    AttackType : Integer;        //공격방식
    Defence : Integer;           //방어력
    AttackTime : Integer;        //공격시간
    NAttackTime : Integer;       //공격텀시간
    MoveTime : Integer;          //이동속도
    AttackReaTime : Integer;     //공격반응시간
    ItemDropPerc : Integer;      //ITEM DROP 확률
    ItemDropCount : Integer;     //ITEM DROP 갯수
    Ether : Integer;             //에테르
    Money : Integer;             //Money
    MDLName : String;            //MDL 이름

    procedure LoadFromDataSet( DS: TDataSet );
    procedure WriteToFile( Handle: Integer );
  end;

  TGMonster = class(TGMovable)
  private
    FMonData : TMonsterData;

  public
    constructor Create( Id: String; AData: TMonsterData; AX,AY,AZ: Integer );
    function GetKind: Byte; override;
    function GetSpeed: Integer; override; // 이동 속도
    function GetJob: Integer; override;

    function Attack( Target: TGMovable; AttackType: Integer ): Boolean; override;
    procedure Defence( Attacker: TGMovable; AAbility: TAbility; StrikePoint : Integer ); override;

  end;