   (read-only-mode -1)
   (orc-battle-init)
   (let ((inhibit-read-only t))
-    (phase-one)))
+    (orc-battle-cycle)))
 
 (defun end-game ()
   (when (player-dead)

             (insert (int-to-string (incf x)))
             (insert ". ")
             (if (monster-dead m)
                 (insertc "**dead**" "dark grey" nil)
                 (progn (insert "(Health=")
                         (insert (int-to-string (monster-health m)))
                         (insert ") ")


(defmethod monster-attack (m))

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