new cursors and tweaks for chapter save.

This commit is contained in:
Bryce Covert
2015-11-08 09:12:19 -08:00
parent dde94508b8
commit a0846f3618
2 changed files with 3 additions and 1 deletions

View File

@@ -83,7 +83,9 @@
chapters (if (.contains prefs "chapters")
(edn/read-string (.getString prefs "chapters"))
saves/chapters)
chapters (assoc chapters chapter {:state (entities :state)})]
chapters (assoc chapters chapter {:state (assoc (entities :state)
:x (get-in entities [:room :entities :ego :x])
:y (get-in entities [:room :entities :ego :y]))})]
(.putString prefs "chapters" (pr-str chapters))
(.flush prefs)))