                          (insert ") ")
                          (monster-show m))))
          orc-battle-monsters))
-  (newline))
+  (newline 2))
 
 ;; base monster class
 (defclass monster nil ((health :initform (randval 10)))

       (lambda(m)
         (or (monster-dead-p m) (monster-attack m)))
       orc-battle-monsters)
  (orc-battle-cycle))

(defun end-game ()

        m)))

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

