anchor.diff:      // (Willpower III)
       (Level: (Min: 3; Max: 7); Price: 600; Occurence: SmithTypeItems;
       Willpower: (Min: 6; Max: 9);),
  -    // (Willpower VI)
  +    // (Willpower IV)
       (Level: (Min: 4; Max: 9); Price: 800; Occurence: SmithTypeItems;
       Willpower: (Min: 10; Max: 14);),
       // (Willpower V)
  
positive.code:     // (Perception III)
      (Level: (Min: 3; Max: 7); Price: 600; Occurence: SmithTypeItems;
      Perception: (Min: 6; Max: 9);),
      // (Perception VI)
      (Level: (Min: 4; Max: 9); Price: 800; Occurence: SmithTypeItems;
      Perception: (Min: 10; Max: 14);),
      // (Perception V)
  
negative.code: procedure TAffixes.DoSuffix(var AItem: Item);
  var
    SB: TSuffixBase;
    BT: TBonusType;
    Value: Byte;
  
    procedure SetLife();
  