anchor.diff:      FLife: Word;
       FMaxLife: Word;
       FLook: Boolean;
  -    FSkill: array [Byte] of TSkill;
  +    FSkill: array [TSkillEnum] of TSkill;
     public
       constructor Create;
       destructor Destroy; override;
  
positive.code:     procedure AddTurn;
      function GetRadius: Byte;
      function SaveCharacterDump(AReason: string): string;
    end;
  
  var
  
negative.code: implementation
  
  uses Classes, SysUtils, Dialogs, Math, uCommon, uMap;
  
  const
    SkillMin = 5;
    SkillMax = 75;
    SkillExp = 100;
  
  { TPlayer }
  
  