unit JobNovice;

//無職class

interface

uses
   Classes, SysUtils, JobCommon, Misc, Uutils;

type
  TNovice = 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

{ TNovice }

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

{$ELSE}
  Self.SetJobDatas(opHP,50,8,20);
  Self.SetJobDatas(opAP,30,3,5);
  Self.SetJobDatas(opATTACK,5,0.667,0);
  Self.SetJobDatas(opMAGIC,0,0.77,0);
  Self.SetJobDatas(opHIT,40,1.0,1.5);
  Self.SetJobDatas(opEVASION,10,0.4,2.0);
  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 TNovice.Destroy;
begin

  inherited;
end;

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

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

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

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

end.
 

テレワークならECナビ Yahoo 楽天 LINEがデータ消費ゼロで月額500円〜！
無料ホームページ 無料のクレジットカード 海外格安航空券　海外旅行保険が無料！ 海外ホテル