     (monster-hit (pick-monster) x)
     (unless (monsters-dead-p)
       (monster-hit (pick-monster) x)))
-  (phase-one))
+  (orc-battle-take-turn))
 
 (defun attack-roundhouse ()
   (interactive)
   (dotimes (x (1+ (randval (truncate (/ orc-battle-player-strength 3)))))
     (unless (monsters-dead-p)
       (monster-hit (random-monster) 1)))
-  (phase-one))
+  (orc-battle-take-turn))
 
 (defun random-monster ()
   (let ((m (aref orc-battle-monsters (random (length orc-battle-monsters)))))

  (init-monsters)
  (init-player))

(defun orc-battle-cycle ()
    (show-player)
    (setq orc-battle-player-turns
          (1+ (truncate (/ (max 0 orc-battle-player-agility) 15))))
    (setq orc-battle-player-current-turn
          (1+ orc-battle-player-turns))
    (phase-one))

(defun phase-one ()
  (when (= orc-battle-player-current-turn 0) (phase-two))
  (unless (or (monsters-dead-p) (player-dead-p))
    (show-monsters)
    (newline)
    (decf orc-battle-player-current-turn)
    (insert "Attack style: [s]tab [d]ouble swing [r]oundhouse:")
    (newline)
    (recenter -2))
  (newline))

(defun phase-two ()
  (newline)
  (map 'list
       (lambda(m)

  (interactive)
  (monster-hit (pick-monster)
               (+ 2 (randval (ash orc-battle-player-strength -1))))
  (orc-battle-take-turn))

(defun attack-double-swing ()
  (interactive)
