-(defvar *player-health* nil)
-(defvar *player-agility* nil)
-(defvar *player-strength* nil)
-
-(defvar *monsters* nil)
-(defvar *monster-builders* nil)
-(defvar *monster-num* 12)
+(defvar orc-battle-player-health nil)
+(defvar orc-battle-player-agility nil)
+(defvar orc-battle-player-strength nil)
+
+(defvar orc-battle-monsters nil)
+(defvar orc-battle-monster-builders nil)
+(defvar orc-battle-monster-num 12)
 
 (defun orc-battle ()
   (interactive)

                         (insert (monster-health m))
                         (insert ") ")
                         (monster-show m))))
         *monsters*)))

(defclass monster nil ((health (randval 10))))


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

(defclass hydra (monster) ())
(push 'make-hydra orc-battle-monster-builders)

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