   (decf orc-battle-remaining-turns)
   (unless (or (monsters-dead-p) (player-dead-p))
     (show-monsters)
-    (newline)
     (insert "Attack style: [s]tab [d]ouble swing [r]oundhouse:")
     (newline)
     (recenter -2))

        m)))

(defun pick-monster ()
  (newline)
  (insert "Monster #:")
  (recenter -2)
  (let ((x (read-number "Number: ")))
    (if (not (and (integerp x) (>= x 1) (<= x orc-battle-monster-num)))
        (progn (newline)
               (insert "That is not a valid monster number.")
               (pick-monster))
        (let ((m (aref orc-battle-monsters (1- x))))
          (if (monster-dead-p m)
              (progn (newline)
                     (insert "That monster is already dead.")
                     (pick-monster))
              m)))))


                         (insert ") ")
                         (monster-show m))))
         orc-battle-monsters))
  (newline 2))

;; base monster class
(defclass monster nil ((health :initform (randval 10)))
