anchor.diff:      FStatistics: TStatistics;
       FSkills: TSkills;
       FTalentPoint: Boolean;
  +    FAtr: array [TAtrEnum] of TAtr;
  +    function GetAtr(I: TAtrEnum): TAtr;
  +    procedure SetAtr(I: TAtrEnum; const Value: TAtr);
       procedure GenNPCText;
       function GetDV: Byte;
       function GetPV: Byte;
  
positive.code:   // Talents
    TalentPrm = 3;
    AttribPrm = 7;
  
  type
    TPlayer = class(TEntity)
  
negative.code:   Scenes.SetScene(scAmount);
  end;
  
  procedure TPlayer.SetAtr(I: TAtrEnum; const Value: TAtr);
  begin
    FAtr[I] := Value;
  end;
  
  procedure TPlayer.Spawn;
  begin
    Self.Clear;
  