                   orc-battle-player-strength))
   (newline))
 
+;; Attacks
 (defun attack-stab ()
   (interactive)
   (monster-hit (pick-monster)

      (monster-hit (random-monster) 1)))
  (orc-battle-take-turn))

(defun random-monster ()
  (let ((m (aref orc-battle-monsters (random (length orc-battle-monsters)))))
    (if (monster-dead-p m)

             (newline))
    (progn (insertc (format "You hit the %s, knocking off %d health points!"
                            (symbol-name (object-class m))
                            x)
                    "cyan" nil)
           (newline))))

