 
 (defclass hydra (monster) nil
   "An hydra")
-;;(defun make-hydra () (make-instance 'hydra))
 (push 'hydra orc-battle-monster-builders)
 
 (defmethod monster-show ((m hydra))


(defclass orc (monster) ((club-level (randval 8)))
  "An orc")
;;(defun make-orc () (make-instance 'orc))
(push 'orc orc-battle-monster-builders)

(defmethod monster-show ((m orc))


(defclass slime-mold (monster) ((sliminess (randval 5)))
  "A slime mold")
(push 'slime-mold orc-battle-monster-builders)

(defmethod monster-show ((m slime-mold))
