     (game-loop)))
 
 (defun init-player ()
-  (setf orc-battle-player-health 30)
-  (setf orc-battle-player-agility 30)
-  (setf orc-battle-player-strength 30))
+  (setq orc-battle-player-health 30)
+  (setq orc-battle-player-agility 30)
+  (setq orc-battle-player-strength 30))
 
 (defun player-dead ()
   (<= orc-battle-player-health 0))

(defun show-player ()
  (newline)
  (insert "You are a valiant knight with a health of ")
  (insert orc-battle-player-health)
  (insert ", an agility of ")
  (insert orc-battle-player-agility)
  (insert ", and a strength of ")
  (insert orc-battle-player-strength))

(defun player-attack ()
  (newline)

(defvar orc-battle-monsters nil)
(defvar orc-battle-monster-builders nil)
(defvar orc-battle-monster-num 12)

;; helper
(defun randval (n)
  (1+ (random (max 1 n))))

(defun orc-battle ()
  (interactive)
