notid/gitea-docker
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

accidentally disabled collision detection.

Browse Source
This commit is contained in:
=
2014-09-15 16:54:18 -07:00
parent 73c273afad
commit 5982d9e2fe
1 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
desktop/src-common/advent/actions.clj
View File

@@ -46,11 +46,13 @@
(defn walk-to [entities target-id [final-x final-y]] (defn walk-to [entities target-id [final-x final-y]]
(let [c (chan) (let [c (chan)
entity (entities target-id) entity (entities target-id)
path (conj (vec (take-nth 5 (advent.pathfind/visit-all path (vec (take-nth 5 (advent.pathfind/visit-all
(:collision (:background entities)) (:collision (:background entities))
[(int (:x entity)) (int (:y entity))] [(int (:x entity)) (int (:y entity))]
[(int final-x) (int final-y)]))) [(int final-x) (int final-y)])))
[(int final-x) (int final-y)])] path (if (seq path)
(conj path [(int final-x) (int final-y)])
[])]
(doseq [[target-x target-y] path] (doseq [[target-x target-y] path]
(put! (get-in entities [:actions :channel]) (put! (get-in entities [:actions :channel])
(reify (reify