filling out jail.
This commit is contained in:
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user