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:     destructor Destroy; override;
      property LX: Byte read FLX write FLX;
      property LY: Byte read FLY write FLY;
      property Turn: Word read FTurn write FTurn;
      property Satiation: Word read GetSatiation write FSatiation; // Nutrition
      property Level: Byte read FLevel write FLevel;
  
negative.code:   // Talents
    TalentPrm = 3;
    AttribPrm = 7;
  
  type
    TAtrEnum = (atDef, atDmMn, atDmMx, atLife, atMana, atStr, atDex, atWil, atPer);
  
  type
    TAtr = record
      Value: Word;
      Prm: Word;
    end;
  
  type
    TPlayer = class(TEntity)
  