scaling = faster.

This commit is contained in:
=
2014-09-03 00:08:45 -07:00
parent a79651ed04
commit 5c9fb09e2b
4 changed files with 61 additions and 40 deletions

View File

@@ -33,7 +33,7 @@
(defn left-click [screen entities]
(let [{:keys [x y]} (input->screen screen {:x (:input-x screen) :y (:input-y screen)})]
(assoc-in entities [:ego :target-path] (take-nth 10 (advent.pathfind/visit-all
(assoc-in entities [:ego :target-path] (take-nth 2 (advent.pathfind/visit-all
(:collision (:background entities))
[(int (:x (:ego entities))) (int (:y (:ego entities)))]
[(int x) (int y)])))))