               "> " (first (rest (rest (rest msgs)))) "<br><br>"
               "> " (first (rest (rest (rest (rest msgs)))))))))
 
-
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;MECHANICS
 (defn hit-wall [x]
     (cond

            energy (get-trait uid :energy)
            energy-max (get-trait uid :energy-max)
            title (get-trait uid :name)
            ]
        (do
           (draw-matrix info-canvas color 0 0 sprite TILE-SIZE 8)
           (jq/html ($ :#info) (str "<p><br>Name: the " title 
                                    "<br>Energy: " energy 
                                     "<br>Max Energy: " energy-max
                                     "</p>"))))))

(defn update-timer []

    ctx)

(defn draw-point [ctx color x y scale]
  (draw-rect ctx color x y scale scale))

(defn draw-row [ctx color x y row size scale]
    (loop [counter 0]
