     (incf (oref m health))
     (decf orc-battle-player-health x)))
 
+;; slime mold
 (defclass slime-mold (monster) ((sliminess :initform (randval 5)))
   "A slime mold")
 (push 'slime-mold orc-battle-monster-builders)


(defmethod monster-attack (m))

(defclass orc (monster) ((club-level :initform (randval 8)))
  "An orc")
(push 'orc orc-battle-monster-builders)

         orc-battle-monsters))
  (newline))

;; monster
(defclass monster nil ((health :initform (randval 10)))
  "A monster")

(defmethod monster-dead (m)
  (<= (monster-health m) 0))

(defmethod monster-health (m)
  (oref m health))

(defmethod monster-hit (m x)
  (decf (oref m health) x)
