unit JobMagician;

//魔法士class

interface

uses
   Classes, SysUtils, JobCommon, Misc, Uutils;

type
  TMagician = Class(TjobClass)
  private
    function GetfRecoveryAp: double;
    function GetfRecoveryHp: double;
    procedure SetfRecoveryAp(const Value: double);
    procedure SetfRecoveryHp(const Value: double);
  public
    constructor Create;
    destructor Destroy; override;

    //procedure DataChange;override;
    
    property fRecoveryHp: double read GetfRecoveryHp write SetfRecoveryHp;
    property fRecoveryAp: double read GetfRecoveryAp write SetfRecoveryAp;
  published

  end;

implementation

{ TMagician }

constructor TMagician.Create;
begin
  inherited;
{$IFDEF LoadIniJobData}

{$ELSE}
  Self.SetJobDatas(opHP,50,8,20);
  Self.SetJobDatas(opAP,30,10,5);
  Self.SetJobDatas(opATTACK,5,0.667,0);
  Self.SetJobDatas(opMAGIC,0,0.77,0);
  Self.SetJobDatas(opHIT,40,1.5,1.9);
  Self.SetJobDatas(opEVASION,15,0.4,1.8);
  Self.SetJobDatas(opCRITICAL,0,0.1,0);
  Self.SetJobDatas(opRHP,-1,-1,-1);
  Self.SetJobDatas(opRAP,-1,-1,-1);
{$ENDIF}
  inherited UseSkillLv := False;
end;

destructor TMagician.Destroy;
begin

  inherited;
end;

function TMagician.GetfRecoveryAp: double;
begin
  Result := inherited fRecoveryAp;
end;

function TMagician.GetfRecoveryHp: double;
begin
  Result := inherited fRecoveryHp;
end;

procedure TMagician.SetfRecoveryAp(const Value: double);
begin
  inherited fRecoveryAp := Value;
end;

procedure TMagician.SetfRecoveryHp(const Value: double);
begin
  inherited fRecoveryHp := Value;
end;

end.
 

PC用眼鏡【管理人も使ってますがマジで疲れません】 解約手数料０円【あしたでんき】 Yahoo 楽天 NTT-X Store

無料ホームページ 無料のクレジットカード 海外格安航空券 ふるさと納税 海外旅行保険が無料！ 海外ホテル