     (insert x)
     (insert " of its heads! It also grows back one more head! ")
     (incf (monster-health m))
-    (decf *player-health* x)))
+    (decf orc-battle-player-health x)))
 
 (defclass slime-mold (monster) ((sliminess (randval 5))))
-(push 'make-slime-mold *monster-builders*)
+(push 'make-slime-mold orc-battle-monster-builders)
 
 (defmethod monster-show ((m slime-mold))
   (insert "A slime mold with a sliminess of ")

       (insert "An orc swings his club at you and knocks off ")
       (insert x)
       (insert " of your health points. ")
       (decf *player-health* x)))

(defclass hydra (monster) ())
(push 'make-hydra *monster-builders*)

(defmethod monster-show ((m hydra))
  (insert "A malicious hydra with ")

(defun game-loop ()
  (unless (or (player-dead) (monsters-dead))
    (show-player)
    (dotimes (k (1+ (truncate (/ (max 0 orc-battle-player-agility) 15))))
      (unless (monsters-dead)
        (show-monsters)
        (player-attack)))
