anchor.diff:  procedure TAffixes.DoSuffix(var AItem: Item);
   var
     SB: TSuffixBase;
  +  BT: TBonusType;
     Value: Byte;
   
     procedure SetLife();
  
positive.code:     // (Strength III)
      (Level: (Min: 3; Max: 7); Price: 600; Occurence: SmithTypeItems;
      Strength: (Min: 6; Max: 9);),
      // (Strength VI)
      (Level: (Min: 4; Max: 9); Price: 800; Occurence: SmithTypeItems;
      Strength: (Min: 10; Max: 14);),
      // (Strength V)
  
negative.code:     // Perception
      of_Perception1 .. of_Perception7:
        SetAtr(btPer, SB.Perception.Min, SB.Perception.Max);
      // Additional All Attributes
      of_the_Sky .. of_the_Infinite:
        for BT := btStr to btPer do
          SetAtr(BT, SB.Level.Min, SB.Level.Max);
      // Defense
      of_Defense1 .. of_Defense7:
        begin
  