anchor.diff:      of_Willpower6, of_Willpower7,
       // Perception I - VII
       of_Perception1, of_Perception2, of_Perception3, of_Perception4,
  -    of_Perception5, of_Perception6, of_Perception7
  +    of_Perception5, of_Perception6, of_Perception7,
       //
  +    of_the_Sky, of_the_Meteor, of_the_Comet, of_the_Heavens, of_the_Galaxy,
  +    of_the_Universe, of_the_Infinite
       //
       );
   
  
positive.code: procedure TAffixes.DoSuffix(var AItem: Item);
  var
    SB: TSuffixBase;
    Value: Byte;
  
    procedure SetLife();
  
negative.code:     // (Strength III)
      (Level: (Min: 3; Max: 7); Price: 600; Occurence: SmithTypeItems;
      Strength: (Min: 6; Max: 9);),
      // (Strength IV)
      (Level: (Min: 4; Max: 9); Price: 800; Occurence: SmithTypeItems;
      Strength: (Min: 10; Max: 14);),
      // (Strength V)
  