From 54021e18f87fa86f21ad51a8eb439685a90efb8c Mon Sep 17 00:00:00 2001 From: Bryce Covert Date: Sat, 27 Dec 2014 15:26:33 -0800 Subject: [PATCH] making go to jail work. --- .../src-common/advent/screens/rooms/common.clj | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 desktop/src-common/advent/screens/rooms/common.clj diff --git a/desktop/src-common/advent/screens/rooms/common.clj b/desktop/src-common/advent/screens/rooms/common.clj new file mode 100644 index 00000000..736fab63 --- /dev/null +++ b/desktop/src-common/advent/screens/rooms/common.clj @@ -0,0 +1,18 @@ +(ns advent.screens.rooms.common + (:require [clojure.core.async :refer [chan]] + [advent.screens.rooms :as rooms] + [advent.actions :as actions] + [advent.screens.items :as items] + [advent.utils :as utils] + [advent.pathfind] + [clojure.zip :as zip] + [play-clj.core :refer :all] + [play-clj.ui :refer :all] + [play-clj.utils :refer :all] + [play-clj.g2d :refer :all])) + +(defn go-to-jail [entities] + (actions/update-state entities #(assoc % :chest-contents (remove #{:key} (:inventory %)))) + (actions/update-state entities #(assoc % :inventory [])) + (actions/update-state entities #(assoc % :opened-bars? false)) + (actions/transition-background entities :inside-jail [130 85]))