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

      (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)

                  orc-battle-player-strength))
  (newline))

;; Attacks
(defun attack-stab ()
  (interactive)
  (monster-hit (pick-monster)
