anchor.diff:        skBlade, skAxe, skSpear, skMace:
         begin
           Skill(FWeaponSkill, Player.GetSkillValue(skLearning));
  +        Skill(skAthletics, 2);
           Skill(skLearning);
         end;
       end;
  
positive.code:   Gold := 0;
    Level := 1;
    Look := False;
    for I := Low(TSkillEnum) to High(TSkillEnum) do
      with FSkill[I] do
      begin
  
negative.code:   //
    FDamage.Min := Clamp(Dam.Min + Strength div 3, 1, High(Byte) - 1);
    FDamage.Max := Clamp(Dam.Max + Strength div 2, 2, High(Byte));
  end;
  
  constructor TPlayer.Create;
  