 (defmethod render :win
   [state]
   (let [x (int (/ game-x-cells 2))]
-    (draw-text state x 0 win-message "top" "center")))
+    (draw-text state x 0 win-message "top" "center")
+    (draw-text state x 1 reset-message "top" "center")))
 
 (defmethod render :lose
   [state]
   (let [x (int (/ game-x-cells 2))]
-    (draw-text state x 0 lose-message "top" "center")))
+    (draw-text state x 0 lose-message "top" "center")
+    (draw-text state x 1 reset-message "top" "center")))
 
 (defn render-world
   [state]


(defn initial-state
  []
  {:start-time (js/Date.)
   :game-state :playing
   :item-locations (random-spawns)
   :inventory []
   :player start-position} )

(def keycode->key
  {kcs/SPACE :space
   kcs/W :forward
   kcs/A :left
   kcs/S :back
   kcs/D :right})

(def sprites
  {:bones (dom/getElement "bones")

    (.drawImage draw-context sprite x y size size)))

(defn draw-text
  ([state x y text] (draw-text state x y text "middle"))
  ([state x y text baseline] (draw-text state x y text baseline "center"))
  ([state x y text baseline align] (draw-text state x y text baseline align "4em"))
  ([state x y text baseline align font-size]
   (let [[x y] (cell->coords x y)]
     (set! (.-font draw-context) (str "bold " font-size " sans-serif"))
     (set! (.-textBaseline draw-context) baseline)
     (set! (.-textAlign draw-context) align)
     (.fillText draw-context text x y))))
