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]))