anchor.diff:      Player.Life := EnsureRange(Player.Life - Dam, 0, High(Word));
       MsgLog.Add(Format(_('%s hits you (%d).'), [The, Dam]));
       if ((Math.RandomRange(0, 9 - Ord(Game.Difficulty)) = 0) and not Game.Wizard) then
  -    case Math.RandomRange(0, 5) of
  +    case Math.RandomRange(0, 7) of
         0:
           Player.BreakItem(stHead);
         1:
  
positive.code: var
    The: string;
    Dam: Word;
    L, V: Byte;
  begin
    if (Self.Life = 0) or (Player.Life = 0) or (Force <> fcEnemy) then
      Exit;
  
negative.code:         Player.BreakItem(stFeet);
        4:
          Player.BreakItem(stOffHand);
        5:
          Player.BreakItem(stNeck);
        6:
          Player.BreakItem(stFinger);
      end;
      if (Player.Life = 0) then
        Player.Defeat(Mobs.GetName(TMobEnum(ID)));
    end
    else
  