anchor.diff:      MaxDurability: TMinMax;
       Defense: TMinMax;
       Damage: TBaseDamage;
  +    Life: TMinMax;
     end;
   
   type
  -  TSuffixEnum = (aNone, aDefense1, aDefense2, aDefense3, aDefense4, aDefense5,
  -    aDefense6, aDefense7,
  +  TSuffixEnum = (aNone,
  +    aLife1, aLife2, aLife3, aLife4, aLife5, aLife6, aLife7, 
  +    aDefense1, aDefense2, aDefense3, aDefense4, aDefense5, aDefense6, aDefense7,
       aDamage1, aDamage2, aDamage3, aDamage4, aDamage5, aDamage6, aDamage7,
       aDurability1, aDurability2, aDurability3, aDurability4, aDurability5,
       aDurability6, aDurability7);
  
positive.code:   SuffixBase: array [TSuffixEnum] of TSuffixBase = (
      // None
      (),
      // Defense
      (Level: (Min: 1; Max: 3); Price: 100; Occurence: DefenseTypeItems; Defense: (Min: 1; Max: 4);),
      (Level: (Min: 2; Max: 5); Price: 200; Occurence: DefenseTypeItems; Defense: (Min: 5; Max: 8);),
  
negative.code: function TAffixes.GetSuffixName(SuffixEnum: TSuffixEnum): string;
  begin
    case SuffixEnum of
      aLife1:
        Result := ' of Life I';
      aLife2:
        Result := ' of Life II';
      aLife3:
        Result := ' of Life III';
      aLife4:
        Result := ' of Life IV';
      aLife5:
        Result := ' of Life V';
      aLife6:
        Result := ' of Life VI';
      aLife7:
        Result := ' of Life VII';
      aDefense1:
        Result := ' of Defense I';
      aDefense2:
  