cannot espace without dropping the ball.

2014-12-27 16:00:45 -08:00
parent e0f4dcf607
commit 193e530567
5 changed files with 32 additions and 12 deletions
--- a/desktop/src-common/advent/screens/rooms/common.clj
+++ b/desktop/src-common/advent/screens/rooms/common.clj
@@ -12,6 +12,7 @@
            [play-clj.g2d :refer :all]))

 (defn go-to-jail [entities]
+  (actions/update-state entities #(assoc % :time :night))
  (actions/update-state entities #(assoc % :chest-contents (concat (remove #{:key} (:inventory %)) (:chest-contents %))))
  (actions/update-state entities #(assoc % :inventory []))
  (actions/update-state entities #(assoc % :opened-bars? false))