unnecessary function.
This commit is contained in:
@@ -61,13 +61,6 @@
|
||||
entities))
|
||||
|
||||
|
||||
(defn walk-override-click [screen entities [x y]]
|
||||
(let [target-location (->> (get-in entities [:background :mouse-overrides])
|
||||
(filter #((:mouse-in? %) x y))
|
||||
first
|
||||
:go-to)]
|
||||
))
|
||||
|
||||
(defn left-click [screen entities]
|
||||
(let [{:keys [x y]} (input->screen screen {:x (:input-x screen) :y (:input-y screen)})
|
||||
interaction (first (filter #(mouse-in? % [x y])
|
||||
|
||||
Reference in New Issue
Block a user