anchor.diff:  
   (defmethod monster-attack ((m orc))
     (let ((x (randval (orc-club-level m))))
  -       (princ "An orc swings his club at you and knocks off ")
  -       (princ x)
  -       (princ " of your health points. ")
  -       (decf *player-health* x)))
  +    (princ "An orc swings his club at you and knocks off ")
  +    (princ x)
  +    (princ " of your health points. ")
  +    (decf *player-health* x)))
   
   ;; hydra
   
  
positive.code: 
  (defmethod monster-attack ((m slime-mold))
    (let ((x (randval (slime-mold-sliminess m))))
         (princ "A slime mold wraps around your legs and decreases your agility
  by ")
         (princ x)
         (princ "! ")
         (decf *player-agility* x)
         (when (zerop (random 2))
           (princ "It also squirts in your face, taking away a health point! ")
           (decf *player-health*))))
  
  ;; brigand
  
  
negative.code:       (princ "The corpse of the fully decapitated and decapacitated hydra
  falls to the floor!")
        (progn (princ "You lop off ")
               (princ x)
               (princ " of the hydra's heads! "))))
  
  (defmethod monster-attack ((m hydra))
    (let ((x (randval (ash (monster-health m) -1))))
  