             [goog.events.KeyCodes :as kcs]
             [goog.events.EventType :as event-type]))
 
-(def game-width 800)
-(def game-height 600)
-(def cell-size 32)
+(def game-width 2560)
+(def game-height 1440)
+(def cell-size 128)
 (def aspectRatio (float (/ 4 3)))
 (def time-limit 10)
 (def number-bones-needed 10)
 (def win-message "You won and can build a dragon")
 (def lose-message "You lost! The villagers will kill you now :(")
+(def reset-message "[Press n to start over]")
+(def title-message "Dragon Spawn")
+(def start-message ["You stole all the cabages! Oh noes!"
+                    "Some villagers are coming to find and kill you."
+                    (str "You have " time-limit " seconds to find " number-bones-needed)
+                    "dragon bones to build a dragon to defend yourself."
+                    "[Press any key to begin]"])
 
 (defn abs
   [number]


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