filling out jail.

This commit is contained in:
2014-12-26 20:05:26 -08:00
parent e4a02813f8
commit f2fcfa8963
2 changed files with 13 additions and 1 deletions

View File

@@ -55,6 +55,7 @@
(defn left-click [screen entities]
(let [{:keys [x y]} (input->screen screen {:x (:input-x screen) :y (:input-y screen)})]
(println "clicked " [x y])
(if ((:mouse-in? (:inventory entities)) x y)
(click-inventory screen entities)
(let [interaction (first (filter #((:mouse-in? %) entities x y)