anchor.diff:      destructor Destroy; override;
       property LX: Byte read FLX write FLX;
       property LY: Byte read FLY write FLY;
  +    property Atr[I: TAtrEnum]: TAtr read GetAtr write SetAtr;
       property Turn: Word read FTurn write FTurn;
       property Satiation: Word read GetSatiation write FSatiation; // Nutrition
       property Level: Byte read FLevel write FLevel;
  
positive.code:     FStatistics: TStatistics;
      FSkills: TSkills;
      FTalentPoint: Boolean;
      procedure GenNPCText;
      function GetDV: Byte;
      function GetPV: Byte;
  
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;
  