unit JobCraftman;

//鍛冶士class

interface

uses
   Classes, SysUtils, JobCommon, Misc, Uutils;

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

{ TCraftman }

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

{$ELSE}
  Self.SetJobDatas(opHP,0,0,0);
  Self.SetJobDatas(opAP,0,0,0);
  Self.SetJobDatas(opATTACK,0,0,0);
  Self.SetJobDatas(opMAGIC,0,0,0);
  Self.SetJobDatas(opHIT,0,0,0);
  Self.SetJobDatas(opEVASION,0,0,0);
  Self.SetJobDatas(opCRITICAL,0,0,0);
  Self.SetJobDatas(opRHP,-1,-1,-1);
  Self.SetJobDatas(opRAP,-1,-1,-1);
{$ENDIF}
  inherited UseSkillLv := False;
end;

destructor TCraftman.Destroy;
begin

  inherited;
end;

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

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

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

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

end.
 

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

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