antique refinements.

This commit is contained in:
2014-12-14 18:48:39 -08:00
parent 3ca729d2f7
commit 94884b68fa
2 changed files with 5 additions and 4 deletions

View File

@@ -110,9 +110,6 @@
(defn stop [screen entities target-id & {:keys [face]}]
(update-in entities [:room :entities target-id] (comp #(start-animation screen % :stand) (if face #(assoc % :facing face) identity))))
(defn walk-straight-to [entities target-id [final-x final-y] & {:keys [update-baseline? face speed]}]
(let [{start-x :x start-y :y} (get-in @entities [:room :entities target-id])
final-x (int final-x)