직업 관련 클래스 정보

   TJobBase = class(TObject)
  public
    JOBID : Byte;           // 직업의ID
    Lvl : Word;             // 레벨
    REther : Integer;       // 요구에테르
    BHP : Integer;          // 기본 체력
    BMP : Integer;          // 기본 마력
    BIP : Integer;          // 기본 지능
    BPP : Integer;          // 기본 힘
    BSP : Integer;          // 기본 속도
    BHPRgnTime : LongWord;  // 기본 체력 회복 시간
    BHPRgnValue : Integer;  // 기본 체력 회복 값
    BMPRgnTime : LongWord;  // 기본 마나 회복 시간
    BMPRgnValue : Integer;  // 기본 마나 회복 값
    BPrecision : Integer;   // 기본 명중력
    BDodge : Integer;       // 기본 회피력
    BPAP : Integer;         // 기본 물리 공격력
    BPDP : Integer;         // 기본 물리 방어력
    BMAP : Integer;         // 기본 마법 공격력
    BMDP : Integer;         // 기본 마법 방어력

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

  TJobData = class(TObject)
  private
    FLevelDatas: TList;

  public
    JOBID : Byte;           // 직업 ID
    Name : String;          // 직업 명
    EngName : String;       // 직업 영문명
    MaxLvl : Word;          // 직업의 최고 레벨
    Description : String;   // 설명
    EDescription : String;  // 영문 설명

    constructor Create;
    destructor Destroy;
    procedure Append( AJobBase: TJobBase );
    function GetJobBase( ALevel : Integer ): TJobBase;
    procedure LoadFromDataSet( DS: TDataSet );
    procedure WriteToFile( Handle: Integer );
  end;