anchor.diff:  
   implementation
   
  -uses SysUtils, uLanguage, uSkill, uGame, uScenes, uPlayer, uAttribute;
  +uses SysUtils, TypInfo, uLanguage, uSkill, uGame, uScenes, uPlayer, uAttribute;
  +
  +const
  +  TalentHint: array [TTalentEnum] of string = (
  +  '', 'Athletics', 'Dodge', 'Concentration', 'Toughness',
  +  'Gold', 'Blade', 'Axe', 'Spear', 'Mace',
  +  'x2 to Gold', 'DV', 'PV', 'Life', 'Mana'
  +  );
   
   { TTalents }
   
  
positive.code:   private
      FIsPoint: Boolean;
      FTalent: array [0 .. TalentMax - 1] of TTalent;
      function GetTalent(I: Byte): TTalent;
      procedure SetTalent(I: Byte; const Value: TTalent);
    public
  
negative.code: const
    F = '+%d to %s';
  begin
    case TalentBase[I].TalentBonus of
      tbNone:
        Result := _(TalentHint[I]);
      tbGold:
        Result := Format(F, [StartGold, _(TalentHint[I])]);
      tbSkill:
        Result := Format(F, [StartSkill, _(TalentHint[I])]);
      tbTalent:
        Result := Format(F, [TalentPrm, _(TalentHint[I])]);
      tbAttrib:
        Result := Format(F, [AttribPrm, _(TalentHint[I])]);
    else
      Result := '-';
    end;
  