 (defmethod monster-hit ((m hydra) x)
   (decf (oref m health) x)
   (if (monster-dead m)
-      (progn (insert "The corpse of the fully decapitated and decapacitated hydra
-falls to the floor!")
+      (progn (insert "The corpse of the fully decapitated and decapacitated hydra falls to the floor!")
              (newline))
     (progn (insert "You lop off ")
            (insert (int-to-string x))

  (switch-to-buffer "*orc-battle*")
  (orc-battle-mode)
  (font-lock-mode)
  (orc-battle-init)
  (let ((inhibit-read-only t))
    (game-loop)
    (when (player-dead)
      (insertc "You have been killed. Game Over." "red" nil))
    (when (monsters-dead)
      (insertc "Congratulations! You have vanquished all of your foes." "green" t))))

(define-derived-mode orc-battle-mode
  special-mode "Orc Battle"


(defmethod monster-attack ((m slime-mold))
  (let ((x (randval (oref m sliminess))))
       (insert "A slime mold wraps around your legs and decreases your agility by ")
       (insert (int-to-string x))
       (insert "! ")
       (newline)
