diff --git a/desktop/resources/ego/base.png b/desktop/resources/ego/base.png
index ee0cd586..c84ed251 100644
Binary files a/desktop/resources/ego/base.png and b/desktop/resources/ego/base.png differ
diff --git a/desktop/resources/ego/suspended.png b/desktop/resources/ego/suspended.png
new file mode 100644
index 00000000..f54fbebc
Binary files /dev/null and b/desktop/resources/ego/suspended.png differ
diff --git a/desktop/resources/ego/suspended.pxa/0.pxi b/desktop/resources/ego/suspended.pxa/0.pxi
new file mode 100644
index 00000000..1d1994bb
Binary files /dev/null and b/desktop/resources/ego/suspended.pxa/0.pxi differ
diff --git a/desktop/resources/ego/suspended.pxa/CelData.plist b/desktop/resources/ego/suspended.pxa/CelData.plist
new file mode 100644
index 00000000..0e12daec
--- /dev/null
+++ b/desktop/resources/ego/suspended.pxa/CelData.plist
@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<array>
+	<dict>
+		<key>duration</key>
+		<real>1</real>
+	</dict>
+</array>
+</plist>
diff --git a/desktop/resources/held/background.png b/desktop/resources/held/background.png
new file mode 100644
index 00000000..20851566
Binary files /dev/null and b/desktop/resources/held/background.png differ
diff --git a/desktop/resources/held/background.psd b/desktop/resources/held/background.psd
new file mode 100644
index 00000000..cc0d5ce6
Binary files /dev/null and b/desktop/resources/held/background.psd differ
diff --git a/desktop/resources/held/collision.png b/desktop/resources/held/collision.png
new file mode 100644
index 00000000..c298e76e
Binary files /dev/null and b/desktop/resources/held/collision.png differ
diff --git a/desktop/src-common/advent/actions.clj b/desktop/src-common/advent/actions.clj
index 9ccff3ec..398fa74e 100644
--- a/desktop/src-common/advent/actions.clj
+++ b/desktop/src-common/advent/actions.clj
@@ -640,7 +640,7 @@
                              new-music (get-music (get-in entities [:room :music]) (get-in entities [:state :time]))
                              apply-state (get-in entities [:room :apply-state])
                              entities (if apply-state
-                                        (apply-state entities)
+                                        (apply-state screen entities)
                                         entities)
                              entities (utils/update-override screen entities)]
                          (when (and (not= new-music old-music) transition-music?)
diff --git a/desktop/src-common/advent/screens/#scene.clj# b/desktop/src-common/advent/screens/#scene.clj#
new file mode 100644
index 00000000..a933a739
--- /dev/null
+++ b/desktop/src-common/advent/screens/#scene.clj#
@@ -0,0 +1,1025 @@
+(ns advent.screens.scene
+  (:refer-clojure :exclude [load])
+  (:require [play-clj.core :refer :all]
+            [play-clj.ui :refer :all]
+            [play-clj.utils :refer :all]
+            [play-clj.math :refer :all]
+            [play-clj.entities :as entities]
+            [play-clj.g2d :refer :all]
+            [clojure.zip :as zip]
+            [clojure.pprint]
+            [clojure.java.io :as io]
+            [advent.pathfind]
+            [advent.actions :as actions]
+            [advent.zone :as zone]
+            [advent.utils :as utils]
+            [advent.tween :as tween]
+            [advent.screens.rooms :as rooms]
+            [advent.screens.fade :refer [fade-screen]]
+            [advent.screens.items :as items]
+            [advent.screens.rooms.dream :as rooms.dream]
+            [advent.screens.rooms.castle-gate :as rooms.castle-gate]
+            [advent.screens.rooms.common :as common]
+            [advent.screens.rooms.outside-house :as rooms.outside-house]
+            [advent.screens.rooms.inside-house :as rooms.inside-house]
+            [advent.screens.rooms.inside-stash :as rooms.inside-stash]
+            [advent.screens.rooms.inside-castle :as rooms.inside-castle]
+            [advent.screens.rooms.inside-jail :as rooms.inside-jail]
+            [advent.screens.rooms.outside-jail :as rooms.outside-jail]
+            [advent.screens.rooms.inside-cafeteria :as rooms.inside-cafeteria]
+            [advent.screens.rooms.inside-antique :as rooms.inside-antique]
+            [advent.screens.rooms.behind-house :as rooms.behind-house]
+            [advent.screens.rooms.outside-castle :as rooms.outside-castle]
+            [advent.screens.rooms.space :as rooms.space]
+            [advent.screens.rooms.held :as rooms.held]
+            [advent.screens.rooms.cat-tree :as rooms.cat-tree]
+            [advent.screens.dialogue :refer [talking-screen]]
+            [advent.screens.inventory :refer [inventory-screen]]
+            [clojure.core.async :refer [put! <! <!! >! chan go thread take! alts!!]])
+  (:import [com.badlogic.gdx.graphics Pixmap Pixmap$Filter Texture Texture$TextureFilter GL20 GL30]
+           [com.badlogic.gdx.graphics.g2d TextureRegion Animation Batch]
+           [com.badlogic.gdx.math Vector3 Matrix4]
+           [com.badlogic.gdx.utils.viewport FitViewport]
+           [com.badlogic.gdx.scenes.scene2d Actor Stage]
+           [com.badlogic.gdx.graphics.glutils ShaderProgram]
+           [java.lang Object]
+           [com.badlogic.gdx Gdx]
+           [com.badlogic.gdx.graphics Camera Color GL20 OrthographicCamera
+            PerspectiveCamera Pixmap Pixmap$Format PixmapIO Texture
+            VertexAttributes$Usage]
+           [com.badlogic.gdx.scenes.scene2d Actor Stage]))
+
+(declare hud)
+
+(def v-shader "attribute vec4 a_position;
+attribute vec4 a_color;
+attribute vec2 a_texCoord0;
+
+uniform mat4 u_projTrans;
+
+varying vec4 v_color;
+varying vec2 v_texCoords;
+
+void main() {
+    v_color = a_color;
+    v_texCoords = a_texCoord0;
+    gl_Position = u_projTrans * a_position;
+}")
+
+
+
+(def pix-shader "
+#ifdef GL_ES
+#define LOWP lowp
+    precision mediump float;
+#else
+    #define LOWP
+#endif
+
+varying LOWP vec4 v_color;
+varying vec2 v_texCoords;
+uniform float multiply_amount;
+uniform float hue_amount;
+
+uniform sampler2D u_texture;
+
+vec3 RGBToHSL(vec3 color)
+{
+  vec3 hsl; // init to 0 to avoid warnings ? (and reverse if + remove first part)
+  
+  float fmin = min(min(color.r, color.g), color.b);    //Min. value of RGB
+  float fmax = max(max(color.r, color.g), color.b);    //Max. value of RGB
+  float delta = fmax - fmin;             //Delta RGB value
+
+  hsl.z = (fmax + fmin) / 2.0; // Luminance
+
+  if (delta == 0.0)//This is a gray, no chroma...
+  {
+  hsl.x = 0.0;// Hue
+  hsl.y = 0.0;// Saturation
+  }
+  else                                    //Chromatic data...
+  {
+  if (hsl.z < 0.5)
+  hsl.y = delta / (fmax + fmin); // Saturation
+else
+hsl.y = delta / (2.0 - fmax - fmin); // Saturation
+
+float deltaR = (((fmax - color.r) / 6.0) + (delta / 2.0)) / delta;
+float deltaG = (((fmax - color.g) / 6.0) + (delta / 2.0)) / delta;
+float deltaB = (((fmax - color.b) / 6.0) + (delta / 2.0)) / delta;
+
+if (color.r == fmax )
+hsl.x = deltaB - deltaG; // Hue
+else if (color.g == fmax)
+hsl.x = (1.0 / 3.0) + deltaR - deltaB; // Hue
+else if (color.b == fmax)
+  hsl.x = (2.0 / 3.0) + deltaG - deltaR; // Hue
+
+  if (hsl.x < 0.0)
+  hsl.x += 1.0; // Hue
+  else if (hsl.x > 1.0)
+  hsl.x -= 1.0; // Hue
+  }
+
+  return hsl;
+}
+
+float HueToRGB(float f1, float f2, float hue)
+{
+  if (hue < 0.0)
+  hue += 1.0;
+  else if (hue > 1.0)
+  hue -= 1.0;
+  float res;
+  if ((6.0 * hue) < 1.0)
+  res = f1 + (f2 - f1) * 6.0 * hue;
+  else if ((2.0 * hue) < 1.0)
+  res = f2;
+  else if ((3.0 * hue) < 2.0)
+  res = f1 + (f2 - f1) * ((2.0 / 3.0) - hue) * 6.0;
+  else
+  res = f1;
+  return res;
+}
+
+vec3 HSLToRGB(vec3 hsl)
+{
+  vec3 rgb;
+  
+  if (hsl.y == 0.0)
+  rgb = vec3(hsl.z); // Luminance
+  else
+  {
+  float f2;
+  
+  if (hsl.z < 0.5)
+  f2 = hsl.z * (1.0 + hsl.y);
+  else
+  f2 = (hsl.z + hsl.y) - (hsl.y * hsl.z);
+  
+  float f1 = 2.0 * hsl.z - f2;
+  
+  rgb.r = HueToRGB(f1, f2, hsl.x + (1.0/3.0));
+  rgb.g = HueToRGB(f1, f2, hsl.x);
+  rgb.b= HueToRGB(f1, f2, hsl.x - (1.0/3.0));
+  }
+  
+  return rgb;
+}
+
+vec3 BlendHue(vec3 base, vec3 blend)
+{
+  if (blend.r == blend.g && blend.g == blend.b) {
+    return base;
+  }
+  else {
+    vec3 baseHSL = RGBToHSL(base);
+    return HSLToRGB(vec3(RGBToHSL(blend).r, baseHSL.g, baseHSL.b));
+  }
+}
+
+// Color Mode keeps the brightness of the base color and applies both the hue and saturation of the blend color.
+vec3 BlendColor(vec3 base, vec3 blend)
+{
+  vec3 blendHSL = RGBToHSL(blend);
+  return HSLToRGB(vec3(blendHSL.r, blendHSL.g, RGBToHSL(base).b));
+}
+
+#define BlendOpacity(base, blend, F, O) (F(base, blend) * O + blend * (1.0 - O))
+
+void main()
+{
+
+
+    vec3 multiplied = mix(texture2D(u_texture, v_texCoords).rgb, v_color.rgb * texture2D(u_texture, v_texCoords).rgb, multiply_amount * 0.67 );
+    vec3 hued =  mix(multiplied,  BlendHue(multiplied.rgb, v_color.rgb), hue_amount * 0.67);
+    vec3 final = hued;
+  
+    gl_FragColor = vec4(final[0], final[1], final[2], texture2D(u_texture, v_texCoords).a * v_color.a);
+}
+")
+;
+
+(def default-interaction
+  {:get-script (fn [cursor [x y]] (if (= :main cursor)
+                                   (actions/get-script entities
+                                                       (actions/walk-to entities :ego [x y] :can-skip? true))
+                                   (actions/get-script entities
+                                                       (actions/talk entities :ego "I don't know what to do with that."))))})
+
+
+
+
+(defn click-inventory [screen entities]
+  (when (not (get-in entities [:actions :script-running?]))
+    (if (= (get-in entities [:cursor :current] ) :main) 
+      (do
+        (screen! inventory-screen :show-screen :items (map (entities :all-items) (get-in entities [:state :inventory])))
+        (-> entities
+            (assoc-in [:state :active?] false)
+            (assoc-in [:cursor :override] nil)))
+      (assoc-in entities [:cursor :current] :main))))
+
+
+(defn left-click [screen entities]
+  (let [[x y] (utils/unproject screen)]
+    (println "clicked " x y)
+    (let [interaction (first (filter #((:mouse-in? %) entities x y)
+                                     (get-in entities [:room :interactions])))
+          interactable-entities (if (= (doto (get-in entities [:cursor :current]) println) :main)
+                                  (vals (dissoc (get-in entities [:room :entities]) :ego))
+                                  (vals (get-in entities [:room :entities])))
+          interacting-entity (first (sort-by (comp - :baseline)
+                                             (filter #(and (:mouse-in? %)
+                                                           (:get-script %)
+                                                           ((:mouse-in? %) entities x y))
+                                                     interactable-entities)))
+          current-action (get-in entities [:actions :current])
+          
+          ;; TODO - hacky way of resetting queue
+          entities  (if (and current-action (actions/can-skip? current-action screen entities))
+                      (let [terminated-entities (actions/terminate current-action screen entities)]
+                        (do (put! (actions/get-channel current-action) terminated-entities)
+                            (-> terminated-entities
+                                (assoc-in [:actions :current] nil)
+                                (assoc-in [:actions :started?] false)))) 
+                      entities)]
+      
+      (if (get-in entities [:actions :script-running?])
+        entities
+        ((or (when interacting-entity
+               ((:get-script interacting-entity) (get-in entities [:cursor :current]) [x y]))
+             (when interaction
+               ((:get-script interaction) (or (when (:cursor interaction) :main)
+                                              (get-in entities [:cursor :current]))
+                [x y]))
+             
+             ((:get-script default-interaction) (get-in entities [:cursor :current]) [x y])) entities))
+      entities))) 
+
+(defn drink-blergh [entities]
+    (actions/walk-straight-to entities :ego [205 45])
+    (sound! (sound "ego/potion.ogg") :play (utils/current-sound-volume))
+    (actions/play-animation entities :ego :grow :stop? false)
+    (actions/do-dialogue entities
+                         :blergh "What this? A potion of strength?"
+                         :blergh "You're still no match for me."
+                         :blergh "Give it to me, or I'll make you regret it!")
+    (actions/present-choices entities {:choices ["Ok."
+                                                 {:run (fn [_]
+                                                         (actions/talk entities :ego "Ok." :anim :grow-talk :stop? false)
+                                                         (actions/talk entities :ego "Here you go." :anim :grow-talk)
+                                                         (actions/do-dialogue entities
+                                                                              :blergh "Yes! Now I can drink this whole thing and can become powerful enough to rule the world!"
+                                                                              :blergh "[#AAFFAAFF]*gulp*[]"
+                                                                              :blergh "What's this? What's happening?")
+                                                         (actions/talk entities :ego "Uh oh." :anim :grow-talk :stop? false)
+                                                         (actions/walk-straight-to entities :ego [100 45] :face :right)
+                                                         (actions/play-animation entities :blergh :grow :stop? false)
+                                                         (actions/do-dialogue entities :ego "'Not more than that do drink,\nOr you'll push your body to the brink.'"
+                                                                              :ego "Brilliant! I win!")
+                                                         (actions/walk-straight-to entities :ego [800 75] :face :right)
+                                                         (actions/update-state entities (fn [s] (assoc s :blergh-dead? true))))}
+                                                 "No way!"
+                                                 {:run (fn [_]
+                                                         (actions/talk entities :ego "No way!" :anim :grow-talk)
+                                                         (actions/talk entities :blergh "Then take this!")
+                                                         (actions/play-animation entities :blergh :swing)
+                                                         (actions/walk-straight-to entities :ego [100 45] :anim :squat :override-dir :right :speed 3.0)
+                                                         (actions/do-dialogue entities :ego "Yeow!!"
+                                                                              :ego "Even with that potion, I'm not strong enough."))}]}))
+
+
+(defn get-ego [screen start-pos start-scale]
+  (let [player-sheet (texture! (texture "player.png") :split 18 36)
+        talk-sheet (texture! (texture "ego/talk.png") :split 18 36)
+        stand-sheet (texture! (texture "ego/stand.png") :split 18 36)
+        squat-sheet (texture! (texture "ego/squat.png") :split 18 36)
+        reach-sheet (texture! (texture "ego/reach.png") :split 18 36)
+        grow-sheet (texture! (texture "ego/grow.png") :split 18 36)
+        cat-toy-sheet (texture! (texture "ego/cat-toy.png") :split 41 50)
+        fire-sheet (texture! (texture "ego/fire.png") :split 18 36)
+        walk-right (animation 0.075 (for [i (range 8)]
+                                      (texture  (aget player-sheet 0 i))))
+
+        stand-anim (animation 0.1 (for [i (flatten [(repeat 6 [(repeat 10 0) (repeat 3 1) (repeat 20 0)]) 3 4 5 5 5 6 5 6 5 6 5 4 3 ])]
+                                    (texture (aget stand-sheet 0 i))))
+        reach-up (animation 0.1 (for [i [0 3 4 5]]
+                                  (texture (aget stand-sheet 0 i))))
+        reach-down (animation 0.1 (for [i [5 4 3 0]]
+                                    (texture (aget stand-sheet 0 i))))
+        talk-anim (animation 0.2 (for [i (range 8)]
+                                   (texture  (aget talk-sheet 0 i))))
+        start-squat (animation 0.05 (for [i [0 1 2 3 4]]
+                                      (texture  (aget squat-sheet 0 i))))
+        start-squat-2 (animation 0.05 (for [i [0 1 2 3]]
+                                      (texture (aget squat-sheet 0 i))))
+        end-squat (animation 0.05 (for [i [3 2 1 0]]
+                                    (texture  (aget squat-sheet 0 i))))
+        squat-anim (animation 0.05 (for [i [0 1 2 3 3 3 3 3 3 3 3 3 3 3 3 2 1] ]
+                                     (texture  (aget squat-sheet 0 i))))
+        reach-anim (animation 0.1 (for [i [0 1 2 3 3 3 3 3 3  2 1 0]]
+                                    (texture  (aget reach-sheet 0 i))))
+        reach-start (animation 0.1 (for [i [0 1 2 3 ]]
+                                     (texture  (aget reach-sheet 0 i))))
+        reach-stop (animation 0.1 (for [i [3 2 1 0]]
+                                    (texture (aget reach-sheet 0 i))))
+        cat-toy-anim (animation 0.1 (for [i [0 0 1 1 2 2 3 4 3 2 3 4 3 2 3 4 3 2 3 4 3 2 2 1 1 0 0]]
+                                      (texture  (aget cat-toy-sheet 0 i))))
+        cat-toy-first-half (animation 0.1 (for [i [0 0 1 1 2 2 3]]
+                                            (texture  (aget cat-toy-sheet 0 i))))
+        cat-toy-last-half (animation 0.1 (for [i [3 3 3 2 1 1 0 0]]
+                                           (texture  (aget cat-toy-sheet 0 i))))
+        fire-1-anim (animation 0.1 (for [i [0 1 2 2 2 3 2 3 2 2 2 2 2 2 2 2 2 2 1 0]]
+                                     (texture  (aget fire-sheet 0 i))))
+        fire-2-anim (animation 0.1 (for [i [0 1 2 2 2 3 2 3 2 2 2 2 2 2 2 4 4  4 5 6 7  4 4 4 2 2 2 2 2 2 2 2 1 0]]
+                                     (texture  (aget fire-sheet 0 i))))
+        fire-3-anim (animation 0.1 (for [i [0 1 2 2 2 3 2 3 2 2 2 2 2 2 4 4 4 4 4 4 5 6 7 4 4 4 4 4 8 9 10 11 4 4 4 2 2 2 2 2 2 2 2 0]]
+                                     (texture  (aget fire-sheet 0 i)))) 
+        grow (animation 0.1 (for [i [0 1 1 1 1 1 1 1 1 1 1 0 0 0 0 3 0 0  0 0 3 0 0 0 3 3 0 0 0 2 2 0 0 2 0 0 2 0 2 0 2 0 2 0 2 0 2 3 2 3 2 3 2 3 2 4 3 4 3 4 3 4]]
+                              (texture (aget grow-sheet 0 i))))
+        hold-up-to-window (utils/make-anim "ego/hold-up-to-window.png" [18 36] 0.1 [0 1 2 3 3 3 3 3 3 3 3 3 3  3 3 3 3 3 3 2 1 0 0 0 0 0 0])
+        jump (utils/make-anim "ego/swing.png" [36 75] 0.2 (flatten [[1 2]]))
+        swing (utils/make-anim "ego/swing.png" [36 75] 0.145 (flatten [[3 4 5 6 7 ]]))
+        grow-talk (utils/make-anim "ego/grow-talk.png" [18 36] 0.2 (range 2))
+        get-sick (animation 0.3 (map (partial get [(aget talk-sheet 0 0 ) (texture "ego/get-sick.png")]) [0 1 1 1 1 1 1 1 1 1 1 1]) )
+        spear (utils/make-anim "ego/spear.png" [18 100] 0.2 [0 1 2 3 2 3 2 3 2 3 2 1 0])
+        crowbar (utils/make-anim "ego/crowbar.png" [36 36] 0.1 [0 0 0 1 1  2 2 2 2 2 3 2 3 2 3 2 3 2 3 3 3 1 1 0 0 0])
+        shoot (utils/make-anim "ego/shoot.png" [24 36] 0.075 [0 0 0 1 1 2 2 2 2 2 2 2 2 3 4 5 4])
+        pant (utils/make-anim "ego/pant.png" [31 36] 0.5 [0 1])
+        shock (utils/make-anim "ego/shock.png" [40 48] 0.075 (flatten (repeat 2 [(repeat 5 [0 1 2]) (repeat 5 [3 4 5]) (repeat 5 [6 7 8])])))
+        burnt (utils/make-anim "ego/burnt.png" [40 46] 0.12 [1 2 3 2 1 2 3 2 1 0 2 0 4 5 6 7 8 9 10 11 10 9 10 11])
+        passed-out (utils/make-anim "ego/burnt.png" [40 46] 0.12 [9 10 11 10])
+        scared (utils/make-anim "ego/scared.png" [18 36] 0.05 [0 1])
+        scared-talk (utils/make-anim "ego/scared.png" [18 36] 0.05 [0 1 0 1 0 1 0 1 2 3 2 3 2 3 2 3])
+        scared-walk (utils/make-anim "ego/scared-walk.png" [16 36] 0.05 (range 6))
+        sigh (utils/make-anim "ego/sigh.png" [18 36] 0.08 [0 0 0 0 1 1 1 2 3 4 5 6 7 8 8 8 8 8 8 8 8 8 0 0 0 0 ])
+        glad (utils/make-anim "ego/glad.png" [20 46] 0.04 (flatten [0 1 2 3 4 (repeat 8 [5 5 5]) (repeat 20 0)]))
+        milk (utils/make-anim "ego/squat.png" [18 36] 0.05 [0 1 2  2 3 3 3 3 3 3 6 5 6 5 6 5 6 5 6 5 6 5 6 5 6 5 6 5 6 5 3 3 3 3 3 3 3 3 3 3 3 2 1 0])
+        idea (utils/make-anim "ego/idea.png" [18 70] 0.3 [2 0 0 0 0 0 0  2])
+        throw (utils/make-anim "ego/throw.png" [18 36] 0.04 (flatten [[(repeat 5 0) (repeat 10 1)]  (repeat 3 [2 2 2 3 3 3 4 4 4 5 5 5]) (repeat 5 [2 2 3 3 4 4 5 5]) (repeat 10 [2 3 4 5]) [2 3  3] (repeat 33 6)]))
+        swing-shovel (utils/make-anim "ego/swing-shovel.png" [70 70] 0.1 (range 9))
+        love (utils/make-anim "ego/love.png" [50 70] 0.1 (flatten [0 0 1 1 2 2 3 3 4 4 5 5 6 6 (repeat 10 7) (repeat 5 8) (repeat 5 7) (repeat 5 8) (repeat 5 7) (repeat 10 [23 24 25 24]) (repeat 30 9) 10 11 12 13 14 15 16 17 18 19 20 21 21 21 22 22 22 21 21 21 21 21 21 21 21 22 22 22 22 22 21 21 21 21 22 22 22 22 22 22  21  21 21 21 21  6 6 5 5 4 4 3 3 2 2 1 1 0]))
+        axe (utils/make-anim "ego/axe.png" [60 70] 0.10 (flatten [1 1 1 1 1 0 0 0 1 1 1 1 1 0 0 0 0 (range 7)]))
+        axe-wood (utils/make-anim "ego/axe-wood.png" [60 70] 0.10 (flatten [1 1 1 1 1 0 0 0 1 1 1 1 1 0 0 0 0  (range 11)]))
+        suspended (utils/make-anim "ego/suspended.png" [18 36] 0.10 [0])
+
+        ego {:right {:walk walk-right
+                     :stand stand-anim
+                     :talk talk-anim
+                     :squat squat-anim
+                     :start-squat start-squat
+                     :start-squat-2 start-squat-2
+                     :end-squat end-squat
+                     :reach reach-anim
+                     :cat-toy cat-toy-anim
+                     :cat-toy-first-half cat-toy-first-half
+                     :cat-toy-last-half cat-toy-last-half
+                     :grow grow
+                     :crowbar crowbar
+                     :get-sick get-sick
+                     :hold-up-to-window hold-up-to-window
+                     :swing swing
+                     :grow-talk grow-talk
+                     :reach-up reach-up
+                     :reach-down reach-down
+                     :reach-start reach-start
+                     :jump jump
+                     :reach-stop reach-stop
+                     :shoot shoot
+                     [:fire 1] fire-1-anim
+                     [:fire 2] fire-2-anim
+                     [:fire 3] fire-3-anim
+                     :spear spear
+                     :pant pant
+                     :shock shock
+                     :burnt burnt
+                     :passed-out passed-out
+                     :scared scared
+                     :scared-talk scared-talk
+                     :scared-walk scared-walk
+                     :sigh sigh
+                     :glad glad
+                     :milk milk
+                     :throw throw
+                     :swing-shovel swing-shovel
+                     :love love
+                     :idea idea
+                     :axe axe
+                     :axe-wood axe-wood
+                     :suspended suspended
+                     }
+             :left {:walk  (utils/flip walk-right)
+                    :stand (utils/flip stand-anim)
+                    :talk (utils/flip talk-anim)
+                    :start-squat (utils/flip start-squat)
+                    :start-squat-2 (utils/flip start-squat-2)
+                    :end-squat (utils/flip end-squat)
+                    :squat (utils/flip squat-anim)
+                    :reach (utils/flip reach-anim)
+                    :cat-toy (utils/flip cat-toy-anim)
+                    :get-sick (utils/flip get-sick)
+                    :cat-toy-first-half (utils/flip cat-toy-first-half)
+                    :cat-toy-last-half (utils/flip cat-toy-last-half)
+                    :grow (utils/flip grow)
+                    :hold-up-to-window (utils/flip hold-up-to-window)
+                    :grow-talk (utils/flip grow-talk)
+                    :reach-up (utils/flip reach-up)
+                    :reach-down (utils/flip reach-down)
+                    :reach-start (utils/flip reach-start)
+                    :reach-stop (utils/flip reach-stop)
+                    :shoot (utils/flip shoot)
+                    [:fire 1] (utils/flip fire-1-anim)
+                    [:fire 2] (utils/flip fire-2-anim)
+                    [:fire 3] (utils/flip fire-3-anim)
+                    :spear (utils/flip spear)
+                    :pant (utils/flip pant)
+                    :sigh (utils/flip sigh)
+                    :glad (utils/flip glad)
+                    :milk (utils/flip milk)
+                    :throw (utils/flip throw)
+                    :swing-shovel (utils/flip swing-shovel)
+                    :love (utils/flip love)
+                    :idea (utils/flip idea)
+                    :axe (utils/flip axe)
+                    :axe-wood (utils/flip axe-wood)
+                    :suspended (utils/flip suspended)} 
+             :baseline (- 240 (last start-pos))
+             :facing :right
+             :night-profile :sprite
+             :origin-x 9
+             :origin-y 0 
+             :scaled true
+             :milk-sound (sound "outsidehouse/milk.ogg")
+             :step-sound-1 (sound "ego/step-1.ogg")
+             :step-sound-2 (sound "ego/step-2.ogg")
+             :sigh-sound (sound "ego/sigh.ogg")
+             :blink (sound "blink.ogg")
+             :scale-x start-scale
+             :scale-y start-scale
+             :talk-color (color 0.6 1.0 1.0 1.0) 
+
+             
+             
+             :mouse-in? (fn [entities x y]
+                          (let [{entity-x :x entity-y :y region :object scale :scale-x} (get-in entities [:room :entities :ego]) 
+                                half-width (/ (* (.getRegionWidth region) (or scale 1.0)) 2)
+                                height (* (.getRegionHeight region) (or scale 1.0))]
+                            #_(clojure.pprint/pprint [["point" x y]
+                                                      ["entity " (- entity-x half-width) entity-y (+ entity-x half-width) (+ entity-y height)]])
+                            
+                            ((zone/box (- entity-x half-width) entity-y (+ entity-x half-width) (+ entity-y height)) x y)))
+             :get-script (fn [cursor [x y]]
+                           (condp = (:value cursor)
+                             :flask-1-with-cream-of-mushroom (actions/get-script entities (actions/talk entities :ego "Blegh! Gross!"))
+                             :flask-1-strength (actions/get-script entities 
+                                                                   (cond (and (actions/has-item? entities :magic-slingshot)
+                                                                              (get-in @entities [:room :blergh]))
+                                                                         (drink-blergh entities)
+
+                                                                         (get-in @entities [:room :blergh])
+                                                                         (actions/talk entities :ego "There's no time!")
+                                                                         
+                                                                         :else
+                                                                         (do
+                                                                           (actions/talk entities :ego "I'll just take a sip!")
+                                                                           (sound! (sound "ego/potion.ogg") :play (utils/current-sound-volume))
+                                                                           (actions/play-animation entities :ego :grow :stop? false))))
+                             :recipe (actions/get-script entities (actions/do-dialogue entities
+                                                                                            :ego "The recipe says:"
+                                                                                            :ego "'For strength beyond measure,\nyou must mix, at your leisure:'"
+                                                                                            :ego "'1. Cream of mushroom soup.'"
+                                                                                            :ego "'2. Saliva of the creature whose strength you want to match.'"
+                                                                                            :ego "'3. Mandrake root.'"
+                                                                                            :ego "'A word of warning, before you go.\nA sip is all it takes to grow.'"
+                                                                                            :ego "'Not more than that do drink,\nOr you'll push your body to the brink.'"
+                                                                                            :ego "Hmm. I wonder what that last part means?"))
+                             :note-1 (actions/get-script entities (common/read-note-1 entities))
+                             :note-2 (actions/get-script entities (common/read-note-2 entities))
+                             :camera (actions/get-script entities (actions/talk entities :ego "It's some sort of magical device that captures images."))
+                             :alarm-clock (actions/get-script entities (actions/talk entities :ego "It's a magic device that tells the time."))
+                             :walkie-talkies (actions/get-script entities (actions/do-dialogue entities :ego "If I talk in one of these devices, I can hear it in the other one!"))
+                             nil))
+             :x (first start-pos) :y (last start-pos)
+             :id "ego"}
+        
+        ego (assoc ego :anim-sound-frames {(get-in ego [:left :walk]) {2 [:step-sound-1 1.0]
+                                                                       6 [:step-sound-2 0.8]}
+                                           (get-in ego [:right :walk]) {2 [:step-sound-1 1.0]
+                                                                        6 [:step-sound-2 0.8]}
+
+                                           (get-in ego [:left :talk] ) {2 [:blink 0.15]}
+                                           (get-in ego [:right :talk] ) {2 [:blink 0.15]}
+        
+                                           (get-in ego [:left :stand]) {11 [:blink 0.15]
+                                                                        44 [:blink 0.15] 
+                                                                        77 [:blink 0.15] 
+                                                                        110 [:blink 0.15] 
+                                                                        143 [:blink 0.15] 
+                                                                        176 [:blink 0.15]}
+                                           (get-in ego [:right :stand]) {11 [:blink 0.15]
+                                                                        44 [:blink 0.15] 
+                                                                        77 [:blink 0.15] 
+                                                                        110 [:blink 0.15] 
+                                                                        143 [:blink 0.15] 
+                                                                        176 [:blink 0.15]}
+                                           (get-in ego [:left :sigh]) {1 [:sigh-sound 0.4]}
+                                           (get-in ego [:right :sigh]) {1 [:sigh-sound 0.4]}
+                                           (get-in ego [:left :milk]) {8 [:milk-sound 1.0]}
+                                           (get-in ego [:right :milk]) {8 [:milk-sound 1.0]}
+                                           }
+                   :anim-merges {(get-in ego [:right :shock]) {:origin-x 15}
+                                 (get-in ego [:left :swing-shovel]) {:origin-x 26}
+                                 (get-in ego [:right :swing-shovel]) {:origin-x 26}
+                                 (get-in ego [:right :axe]) {:origin-x 17}
+                                 (get-in ego [:right :axe-wood]) {:origin-x 17}
+                                 (get-in ego [:left :love]) {:origin-x 36}
+                                 (get-in ego [:left :suspended]) {:origin-x 0 :origin-y 0}
+                                 (get-in ego [:right :suspended]) {:origin-x  :origin-y 0} 
+                                 :default {:origin-x 9}})]
+    (actions/start-animation screen
+                             (merge (animation->texture screen (:stand (:right ego))) ego)
+                             :stand)))
+
+(defn update-from-script [screen {{:keys [current started? channel]} :actions :as entities}]
+  (if current
+    (let [entities (if started? entities (actions/begin current screen entities))
+          entities (actions/continue current screen entities)]
+      (if (actions/done? current screen entities)
+        (let [terminated (actions/terminate current screen entities)]
+          (put! (actions/get-channel current) terminated)
+          (recur screen (assoc terminated
+                          :actions {:channel channel :current nil :started? false :script-running? (get-in entities [:actions :script-running?])})))
+        (assoc-in entities [:actions :started?] true)))
+    (let [[current _] (alts!! [channel] :default nil)]
+      (assoc entities :actions {:channel channel :current current :started? false :script-running? (get-in entities [:actions :script-running?])}))))
+
+
+(defn update-from-hotspots [screen entities]
+  (if-let [hot-spots (get-in entities [:room :hotspots])]
+    (if-let [hotspot-hit (first (filter #((apply zone/box (:box %)) (get-in entities [:room :entities :ego :x]) (get-in entities [:room :entities :ego :y])) hot-spots))]
+      ((:fn hotspot-hit) screen entities)
+      entities)
+    entities))
+
+(defn update-cursor [screen {{:keys [current override last]} :cursor :as entities}]
+  (let [new-current (or override current)]
+    (when-not (= new-current
+                 last)
+      (input! :set-cursor-image (utils/cursor "cursor.png" (or (:cursor new-current) new-current)) 0 0))
+    (assoc-in entities [:cursor :last] new-current)))
+
+
+
+(defn get-animation-point [^Animation animation total-time]
+  (loop [time total-time]
+    (if (> (- time (animation! animation :get-animation-duration)) 0)
+      (recur (- time (animation! animation :get-animation-duration)))
+      time)))
+
+(defn animate [entity screen]
+  (merge entity (animation->texture (update-in screen [:total-time] #(- % (:anim-start entity)))
+                                    (:anim entity))
+         {:current-frame-index (texture! (:anim entity) :get-key-frame-index (get-animation-point (:anim entity) (- (:total-time screen) (:anim-start entity))))
+          :previous-frame-index (texture! (:anim entity) :get-key-frame-index (get-animation-point (:anim entity) (- (:total-time screen) (:anim-start entity) (or (:delta-time screen) 0))))
+          :origin-x (or (get-in entity [:anim-origins (:anim entity) 0])
+                        (:base-origin-x entity)
+                        (:origin-x entity))
+          :origin-y (or (get-in entity [:anim-origins (:anim entity) 1])
+                        (:base-origin-y entity)
+                        (:origin-y entity))}
+         (or (get-in entity [:anim-merges (:anim entity)])
+             (get-in entity [:anim-merges :default]))))
+
+
+(defn get-layers [entities]
+  (let [layers (get-in entities [:room :layers])]
+    (if (map? layers)
+      ((get-in entities [:state :time]) layers)
+      layers)))
+
+(defn get-state []
+  (if (.exists (io/file "save.edn"))
+    (utils/load)
+    {:object nil
+     :active? true
+     :last-room :dream
+     :time :day
+     :obtained-items #{} 
+     :inventory []
+     :plaques-read #{}
+     :clues #{}
+     :mints-eaten 0
+     :seen-intro? false}))
+
+(defn fade-in-first-time-if-necessary [screen entities]
+  (if (not (get-in entities [:started? :value]))
+    (do (music! (utils/get-current-music entities) :set-volume (utils/current-music-volume (get-in entities [:volume :value])))
+        (utils/play-sound (get-in entities [:musics (actions/get-music (get-in entities [:room :music]) (get-in entities [:state :time]))]))
+        (assoc entities
+               :tweens {:fade-in (tween/tween :fade-in screen [:fade :opacity] 1.0 0.0 1.0 :ease tween/ease-in-cubic
+                                              :finish #(if (not (get-in % [:state :seen-intro?]))
+                                                         (do ((actions/get-script % (rooms.dream/do-intro %)) entities)
+                                                             (assoc-in % [:actions :script-running?] true))
+                                                          %))
+                        :fade-in-music (tween/tween :fade-in-music screen [:volume :value] 0.0 1.0 1.0 :ease tween/ease-in-cubic)}
+               :started? {:value true
+                          :object nil}))
+    entities))
+
+(defn play-key-sounds [entities]
+  (doseq [[target {:keys [previous-frame-index current-frame-index anim-sound-frames anim x y] :as e}] (get-in entities [:room :entities])]
+    (when (and (not= previous-frame-index current-frame-index)
+               ((set (keys anim-sound-frames)) anim))
+      (when-let [[snd vol-scale] (get-in anim-sound-frames [anim current-frame-index])]
+        (let [vol (if (= target :ego)
+                       (* (/ (get-in entities [:room :entities :ego :scale-x]) 1.5) 0.75)
+                       (max 0.0
+                            (- 1.0 (/ (utils/dist x y
+                                                  (get-in entities [:room :entities :ego :x])
+                                                  (get-in entities [:room :entities :ego :y])
+                                                  :y-sign 2.0
+                                                  :x-sign (/ 1.0 (get-in entities [:room :entities :ego :scale-x])))
+                                      175.0))))
+              pan (/ (- (:x e) 160 ) 160)
+              vol (* vol vol-scale)
+              vol (max vol 0.005)]
+          (sound! (or (snd e)
+                      (snd (:sounds entities))) :play (utils/current-sound-volume vol) 1.0 pan))))))
+
+(defn update-from-room [screen entities]
+  (if-let [update-fn (get-in entities [:room :update-fn])]
+    (update-fn screen entities)
+    entities))
+
+(defn render-parallax [{:keys [^OrthographicCamera camera ^Stage renderer ^ShaderProgram shader] :as screen} {:keys [parallax ^float multiply-amount ^float hue-amount] :as e }]
+  
+  (let [tmp (Vector3.)
+        tmp2 (Vector3.)
+        parallax-view (Matrix4.)
+        parallax-combined (Matrix4.)]
+    (.update camera)
+
+    (.set tmp (.position camera))
+    (set! (.x tmp) (* (.x tmp) parallax))
+    (set! (.y tmp) (* (.y tmp) parallax))
+    (.setToLookAt parallax-view tmp (-> tmp2
+                                          (.set tmp)
+                                          (.add (.direction camera)))
+                  (.up camera))
+    (.set parallax-combined (.projection camera))
+    (Matrix4/mul (.val parallax-combined) (.val parallax-view))
+    
+    
+    (let [^Batch batch (.getBatch renderer)]
+
+      (.begin batch)
+      (.setProjectionMatrix batch parallax-combined)
+      (.setShader batch shader)
+      (when shader
+        (.setUniformf shader "multiply_amount" (float (or multiply-amount 1.0)))
+        (.setUniformf shader "hue_amount" (float (or hue-amount 1.0)))) 
+      (.setColor batch (color (:r e 1.0) (:g e 1.0) (:b e 1.0) (:opacity e 1.0)))
+      
+      
+      (entities/draw! (assoc e :x (+ (/ (:x e) (.zoom camera))
+                                     (- (* 320 parallax 0.5)
+                                        (/ 160 (.zoom camera)) ))
+                             :y (+ (/ (:y e) (.zoom camera))
+                                   (- (* 240 parallax 0.5)
+                                      (/ 120 (.zoom camera))))) screen batch)
+      (.setColor batch (color 1 1 1 1))
+      (.end batch))))
+
+(defn get-rendered [entities e]
+  (merge e
+         (when (not= :day (get-in entities [:state :time]))
+           (get-in entities [:time-profiles (:night-profile e :default)]))))
+
+
+(defn shift-range-to-bounds [x1 x2 min max]
+  (println x1 x2 "->" (cond (and (< x1 min)
+                                 (> x2 max))
+                            [min max]
+                            (< x1 min)
+                            [min (+ x2 (- min x1))]
+                            (> x2 max)
+                            [(- x1 (- x2 max)) max]
+                            :else
+                            [x1 x2]))
+  (cond (and (< x1 min)
+             (> x2 max))
+        [min max]
+        (< x1 min)
+        [min (+ x2 (- min x1))]
+        (> x2 max)
+        [(- x1 (- x2 max)) max]
+        :else
+        [x1 x2]))
+
+(defscreen scene
+  :on-timer
+  (fn [screen [entities]]
+    (when-let [timer-fn (get-in entities [:room :timers (:id screen) 2])]
+      (timer-fn screen entities)))
+
+  :on-show
+  (fn [screen entities]
+    (let [screen (assoc screen :total-time 0)]
+      (let [[cam] (utils/setup-viewport screen 320 240)]
+        (set! (. cam zoom) 0.95)
+        (let [_ (input! :set-cursor-image (utils/cursor "cursor.png" :main) 0 0) 
+              shader (ShaderProgram. v-shader pix-shader)
+              _ (println (.getLog shader))
+              _ (update! screen :shader shader)
+              rooms {:inside-house (rooms.inside-house/make screen)
+                     :inside-stash (rooms.inside-stash/make screen)
+                     :outside-house (rooms.outside-house/make screen)
+                     :behind-house (rooms.behind-house/make screen)
+                     :cat-tree (rooms.cat-tree/make screen)
+                     :inside-castle (rooms.inside-castle/make screen)
+                     :space (rooms.space/make screen)
+                     :held (rooms.held/make screen)
+                     :inside-cafeteria (rooms.inside-cafeteria/make screen)
+                     :inside-antique (rooms.inside-antique/make screen)
+                     :inside-jail (rooms.inside-jail/make screen)
+                     :dream (rooms.dream/make screen)
+                     :castle-gate (rooms.castle-gate/make screen)
+                     :outside-jail (rooms.outside-jail/make screen)
+                     :outside-castle (rooms.outside-castle/make screen)}
+              entities {:rooms rooms
+                        :step-particles (assoc (particle-effect "ego/step") :x 100 :y 100 :baseline 241)  
+                        :cam {:zoom 0.95
+                              :paused? false
+                              :object nil}
+                        :musics {:object nil
+                                 :inside-antique (utils/make-music "inside-antique.ogg")
+                                 :town-1 (utils/make-music "town-music-1.ogg")
+                                 :town-2 (utils/make-music "town-music-2.ogg")
+                                 :love (utils/make-music "love.ogg")
+                                 :inside-fangald (utils/make-music "inside-fangald.ogg")
+                                 :fight (utils/make-music "megaboss.mp3")
+                                 :pull-sword (utils/make-music "pull-sword.ogg")
+                                 :night (utils/make-music "night.ogg")}
+                        :state (get-state) 
+                        :time-profiles {:object nil
+                                        :default utils/default-night-merge
+                                        :sprite utils/default-night-merge-sprite
+                                        :none {}}
+
+                        :sounds {:blink (sound "blink-other.ogg")
+                                 :object nil}
+                        :fade {:object nil
+                               :opacity 0.0} 
+                        :white-fade (assoc (texture "white.png")
+                                           :scale-x 20
+                                           :scale-y 20
+                                           :baseline 9500
+                                           :opacity 0.0
+                                           :origin-x 0
+                                           :origin-y 0)
+                        :actions {:object nil
+                                  :channel (chan)
+                                  :current nil
+                                  :script-running? false
+                                  :started? false}
+                        :volume {:object nil
+                                 :value 0.0}
+                        :music-override {:object nil
+                                         :value nil}
+                        :cursor {:id "cursor"
+                                 :current :main
+                                 :last :main
+                                 :override nil
+                                 :last-pos [0 0]}
+                        
+                        :all-items (assoc items/items :object nil)
+                        :started? {:value false
+                                   :object nil}
+                        :room (as-> (get rooms (:last-room (get-state))) room 
+                                (assoc-in room [:entities :ego] (get-ego screen (:start-pos room) ((:scale-fn room) (:start-pos room)))))}]
+
+          (doseq [[k [start time fn]] (get-in entities [:room :timers])]
+            (add-timer! screen k start time))        
+          
+
+
+          (if-let [apply-state (get-in entities [:room :apply-state])]
+            (apply-state screen entities)
+            entities)))))
+
+  :on-resume (fn [screen [entities]]
+               (doseq [[k [start time fn]] (get-in entities [:room :timers])]
+                 (add-timer! screen k start time)))
+  
+  :on-render
+  (fn [{:keys [camera] :as screen} [entities]]
+    (clear!) 
+    
+    (let [entities (fade-in-first-time-if-necessary screen entities)
+          entities (utils/apply-tweens screen entities (:tweens entities))
+          entities (update-cursor screen entities)
+          entities (update-from-script screen entities)
+          entities (update-from-room screen entities)
+          entities (update-from-hotspots screen entities)
+          entities (assoc-in entities [:room :entities :ego :last-frame] (get-in entities [:room :entities :ego :object]))
+          entities (update-in entities [:room :entities] (fn [entities]
+                                                                 (into entities
+                                                                       (for [[id entity] entities]
+                                                                         (if (:anim entity)
+                                                                           [id (animate entity screen)]
+                                                                           [id entity])))))
+          entities (update-in entities [:room :entities] (fn [entities]
+                                                           (into entities
+                                                                 (for [[id entity] entities]
+                                                                   (if (:update-fn entity)
+                                                                     [id ((:update-fn entity) screen entities entity)]
+                                                                     [id entity]))))) 
+
+          entities (if (and (not (get-in entities [:cam :paused?]))
+                            (nil? (get-in entities [:tweens :cam-x]))
+                            (= 1 (rand-int 20)))
+                     (if (= (rand-int 2) 1)
+                       (actions/pan-to screen entities
+                                       (get-in entities [:room :entities :ego :x])
+                                       (get-in entities [:room :entities :ego :y])
+                                       (constantly (get-in entities [:room :entities :ego :scale-x])) 
+                                       tween/ease-in-out-quadratic
+                                       5.0)
+                       (actions/pan-to screen entities
+                                       (+ (get-in entities [:cam :x] 0)
+                                          (- 10 (rand-int 20)))
+                                       (+ (get-in entities [:cam :y] 0)
+                                          (- 10 (rand-int 20)))
+                                       (constantly (get-in entities [:room :entities :ego :scale-x])) 
+                                       tween/ease-in-out-quadratic
+                                       5.0)) 
+                     entities)
+          
+          
+          layers (get-layers entities)
+          
+          all-entities (concat (vals entities) layers (vals (get-in entities [:room :entities])))]
+      (screen! talking-screen :on-update-camera :scene-viewport (:viewport screen) :scene-camera (:camera screen))
+      (screen! fade-screen :update-fade :opacity (get-in entities [:fade :opacity]))
+      (when true #_(not (get-in entities [:cam :paused?]))
+        (set! (. camera zoom) (:zoom (:cam entities)))
+        (set! (.. camera position x) (:x (:cam entities) 160.0))
+        (set! (.. camera position y) (:y (:cam entities) 120.0)))
+      (let [entities (utils/update-override screen entities)]
+        
+        
+        (when (= (get-in entities [:fade :opacity])
+                 0.0)
+          (play-key-sounds entities))
+        (doseq [m (vals (get-in entities [:musics]))]
+          (when m
+            (music! m :set-volume (utils/current-music-volume (get-in entities [:volume :value])))))
+        (doseq [e (sort-by :baseline all-entities)]
+          (if (:parallax e)
+            (render-parallax screen (get-rendered entities e))
+            (render! screen [(get-rendered entities e)]))) 
+        
+        entities)))
+
+  :on-resize (fn [{:keys [viewport width height]} [entities]]
+               (.update viewport width height))
+
+  :on-hide (fn [screen [entities]]
+             (doseq [snd (->> (get-in entities [:musics])
+                              vals
+                              (filter identity))]
+               (utils/stop-sound snd)))
+
+  :on-mouse-moved
+  (fn [{:keys [input-x input-y viewport] :as screen} [entities]]
+    (if (utils/contains-point? (.getScreenX viewport) (.getScreenY viewport)
+                           (.getScreenWidth viewport) (.getScreenHeight viewport)
+                           input-x input-y)
+      
+      (utils/update-override screen (assoc-in entities [:cursor :last-pos] [input-x input-y]))
+      (assoc-in entities [:cursor :override] nil)))
+
+  :on-touch-up (fn [{:keys [input-x input-y viewport] :as screen} [entities]]
+                 (when (utils/contains-point? (.getScreenX viewport) (.getScreenY viewport)
+                                        (.getScreenWidth viewport) (.getScreenHeight viewport)
+                                        input-x input-y)
+                   (if (= (button-code :right)
+                          (:button screen)) 
+                     (assoc-in entities [:cursor :current] :main)
+                     (when (and (get-in entities [:state :active?])
+                                (not (get-in entities [:state :hud-active?]))
+                                (= 0.0 (get-in entities [:fade :opacity])))
+                       (left-click screen entities)))))
+
+  :on-deactivate (fn [screen [entities]]
+                   (assoc-in entities [:state :active?] false))
+
+  :on-reactivate (fn [screen [entities]]
+                   (-> entities
+                       (assoc-in [:state :active?] true)
+                       (assoc-in [:cursor :override] nil)))
+
+  :on-chose-item (fn [{:keys [item]} [entities]]
+                   (assoc-in entities [:cursor :current] item))
+
+  :on-show-inventory (fn [screen [entities]]
+                       (click-inventory screen entities))
+  :on-menu (fn [screen [entities]]
+             (when-not (get-in entities [:tweens :fade-out])
+               (-> entities
+                   (assoc-in [:cursor :override] nil)
+                   (assoc-in [:tweens :fade-out-music]
+                             (tween/tween :fade-out-music screen [:volume :value] 1.0 0.0 1.0))
+                   (assoc-in [:tweens :fade-out]
+                             (tween/tween :fade-out screen [:fade :opacity] 0.0 1.0 1.0
+                                          :finish #(do (.clear @(resolve 'advent.core/am))
+                                                       (input! :set-cursor-image (utils/cursor "cursor.png" :main) 0 0)
+                                                       (set-screen! @(resolve 'advent.core/advent) @(resolve 'advent.screens.title/title-screen))
+                                                       %))))))
+
+  :on-start-script (fn [{:keys [script]} [entities]]
+                     (script entities)
+                     entities)
+  :hud-active? (fn [{:keys [hud-active?]} [entities]]
+                 (assoc-in entities [:state :hud-active?] hud-active?))) ()
+
+
+(defn grow-hud [screen entities target up?]
+  
+  (let [grow-or-shrink (if up? :grow :shrink)
+        scale-from (if up? 1.0 1.1)
+        scale-to (if up? 1.1 1.0)
+        opacity-from (if up? 0.8 1.0)
+        opacity-to (if up? 1.0 0.8)]
+    (if (and (not (get-in entities [:tweens [target grow-or-shrink :x]]))
+               (not= scale-to (get-in entities [target :scale-y] 1.0)))
+      (-> entities
+          (assoc-in [:tweens [target grow-or-shrink :y]]
+                    (tween/tween [target grow-or-shrink :y] screen [target :scale-y] scale-from scale-to 0.15 :ease tween/ease-in-out-quadratic))
+          (assoc-in [:tweens [target grow-or-shrink :x]]
+                    (tween/tween [target grow-or-shrink :x] screen [target :scale-x] scale-from scale-to 0.15 :ease tween/ease-in-out-quadratic))
+          (assoc-in [:tweens [target grow-or-shrink :opacity]]
+                    (tween/tween [target grow-or-shrink :opacity] screen [target :opacity] opacity-from opacity-to 0.15 :ease tween/ease-in-out-quadratic)))
+      entities)))
+
+(defscreen hud
+  :on-show
+  (fn [screen entities]
+    (let [screen (assoc screen :total-time 0)] 
+      (utils/setup-viewport screen 320 240)
+      
+      {:close (assoc (texture "close.png")
+                     :x 304 :y 224
+                     :width 16 :height 16
+                     :baseline 9000
+                     :opacity 0.8) 
+       :inventory (assoc (texture "inventory.png") :x 278 :y 0 :baseline 9000
+                         :mouse-in? (zone/box 278 0 320 42)
+                         :opacity 0.8)
+       :fps (assoc (label "" (color :white) ) :x 5 :baseline 0 :opacity 0.3)}))
+  
+  :on-render
+  (fn [screen [entities]]
+    (let [entities (utils/apply-tweens screen entities (:tweens entities))]
+      #_(label! (:fps entities) :set-text (str (game :fps))) 
+      (render! screen [#_(:fps entities) (:inventory entities) (:close entities)]) 
+      entities))
+
+  :on-resize
+  (fn [screen entities]
+    (.update (:viewport screen) (:width screen) (:height screen) true))
+
+  :on-mouse-moved
+  (fn [screen [entities]]
+    (let [[x y] (utils/unproject screen)
+          hovered-inventory? ((:mouse-in? (:inventory entities)) x y)
+          hovered-close? (utils/intersects? (:close entities) [x y])]
+      (screen! scene :hud-active? :hud-active? (or hovered-close? hovered-inventory?))
+      (cond hovered-inventory?
+            (grow-hud screen entities :inventory true)
+
+            hovered-close?
+            (grow-hud screen entities :close true)
+
+            :else
+            (let [entities (update-in entities [:tweens] dissoc :inventory-grow-x :inventory-grow-y)
+                  entities (grow-hud screen entities :inventory false)
+                  entities (grow-hud screen entities :close false)] 
+              entities
+              ))))
+
+  
+  :on-touch-up
+  (fn [screen [entities]]
+    (if (= (button-code :left) (:button screen)) 
+      (let [[x y] (utils/unproject screen)]
+        (cond ((:mouse-in? (:inventory entities)) x y)
+              (screen! scene :on-show-inventory)
+
+              (utils/intersects? (:close entities) [x y])
+              (screen! scene :on-menu)
+
+              :else
+              nil)))))
diff --git a/desktop/src-common/advent/screens/.#scene.clj b/desktop/src-common/advent/screens/.#scene.clj
new file mode 120000
index 00000000..bc288428
--- /dev/null
+++ b/desktop/src-common/advent/screens/.#scene.clj
@@ -0,0 +1 @@
+bryce@bryce-pc.hsd1.wa.comcast.net.5560
\ No newline at end of file
diff --git a/desktop/src-common/advent/screens/rooms/behind_house.clj b/desktop/src-common/advent/screens/rooms/behind_house.clj
index afadd3f9..f7dbb819 100644
--- a/desktop/src-common/advent/screens/rooms/behind_house.clj
+++ b/desktop/src-common/advent/screens/rooms/behind_house.clj
@@ -88,7 +88,7 @@
                          :bird (utils/make-bird screen [[50 235] [80 220] [100 239] [180 235] [85 225]])}
               :collision "behindhouse/collision.png"
               :scale-fn (utils/scaler-fn-with-baseline 110 0.10 1.00)
-              :apply-state (fn [entities]
+              :apply-state (fn [_ entities]
                              (as-> entities entities
                                    (if (get-in entities [:state :opened-crack?])
                                      (assoc-in entities [:room :entities :peeling :opacity] 0)
diff --git a/desktop/src-common/advent/screens/rooms/castle_gate.clj b/desktop/src-common/advent/screens/rooms/castle_gate.clj
index 3f73dea8..ac660cbd 100644
--- a/desktop/src-common/advent/screens/rooms/castle_gate.clj
+++ b/desktop/src-common/advent/screens/rooms/castle_gate.clj
@@ -174,7 +174,7 @@
                 
                 :collision "castle-gate/collision.png"
                 :scale-fn (utils/scaler-fn-with-baseline 110 0.10 1.30)
-                :apply-state (fn [entities]
+                :apply-state (fn [_ entities]
                                (as-> entities entities
                                  (if (= :night (get-in entities [:state :time]))
                                    (make-night entities)
diff --git a/desktop/src-common/advent/screens/rooms/cat_tree.clj b/desktop/src-common/advent/screens/rooms/cat_tree.clj
index 2548ca46..084e7bba 100644
--- a/desktop/src-common/advent/screens/rooms/cat_tree.clj
+++ b/desktop/src-common/advent/screens/rooms/cat_tree.clj
@@ -329,7 +329,7 @@
                                                            nil)))
                 :collision "cat-tree/collision.png"
                 :scale-fn (utils/scaler-fn-with-baseline 110 0.10 1.20)
-                :apply-state (fn [entities]
+                :apply-state (fn [_ entities]
                                (as-> entities entities
                                      (if (actions/has-item? entities :kiss) 
                                        (update-in entities [:room :entities] #(dissoc % :cat))
diff --git a/desktop/src-common/advent/screens/rooms/dream.clj b/desktop/src-common/advent/screens/rooms/dream.clj
index 7ec3e52b..9b11e782 100644
--- a/desktop/src-common/advent/screens/rooms/dream.clj
+++ b/desktop/src-common/advent/screens/rooms/dream.clj
@@ -436,7 +436,7 @@
                                                                                          (actions/play-animation entities :ego :sigh))})}
                 :collision "dream/collision.png"
                 :scale-fn (utils/scaler-fn-from-image "dream/scale.png" 0.1 1.3)
-                :apply-state (fn [entities]
+                :apply-state (fn [_ entities]
                                (as-> entities entities
                                  (if (get-in entities [:state :seen-intro?]) 
                                    (set-opacity entities 1.0 1.0)
diff --git a/desktop/src-common/advent/screens/rooms/held.clj b/desktop/src-common/advent/screens/rooms/held.clj
new file mode 100644
index 00000000..af4b1dfb
--- /dev/null
+++ b/desktop/src-common/advent/screens/rooms/held.clj
@@ -0,0 +1,29 @@
+(ns advent.screens.rooms.held
+  (:require [advent.screens.rooms :as rooms]
+            [advent.screens.rooms.common :as common]
+            [advent.actions :as actions]
+            [advent.screens.items :as items]
+            [advent.utils :as utils]
+            [advent.tween :as tween]
+            [clojure.zip :as zip]
+            [clojure.set :as set]
+            [clojure.string :as str]
+            [play-clj.core :refer :all]
+            [play-clj.ui :refer :all]
+            [play-clj.utils :refer :all]
+            [play-clj.math :refer :all]
+            [play-clj.g2d :refer :all]))
+
+(defn make [screen]
+  (rooms/make :music :fight
+              :interactions {}
+              :layers [(assoc (texture "held/background.png") :x 0 :y 0 :baseline 0)]
+              :entities {}
+              :collision "held/collision.png"
+              :scale-fn (constantly 1.5) 
+              :start-pos [113 120]
+              :apply-state (fn [screen e]
+                             (-> e 
+                                 (assoc-in [:cam :paused? ] true)
+                                 (update-in [:tweens] dissoc :cam-x :cam-y)
+                                 (update-in [:room :entities :ego] #(actions/start-animation screen % :suspended))))))
diff --git a/desktop/src-common/advent/screens/rooms/inside_antique.clj b/desktop/src-common/advent/screens/rooms/inside_antique.clj
index 900dd7a7..fb0dbb91 100644
--- a/desktop/src-common/advent/screens/rooms/inside_antique.clj
+++ b/desktop/src-common/advent/screens/rooms/inside_antique.clj
@@ -220,7 +220,7 @@
                                                                        (actions/talk entities :shopkeep "Since you ate the last one, you have to go tell Gandarf to bring me some more."))))))
                            :teddy teddy}
                 :collision "inside-antique/collision.png"
-                :apply-state (fn [entities]
+                :apply-state (fn [_ entities]
                                (as-> entities entities
                                      (if (or (actions/has-item? entities :teddy)
                                              (actions/has-obtained? entities :balloon)) 
diff --git a/desktop/src-common/advent/screens/rooms/inside_cafeteria.clj b/desktop/src-common/advent/screens/rooms/inside_cafeteria.clj
index 23444858..4601efff 100644
--- a/desktop/src-common/advent/screens/rooms/inside_cafeteria.clj
+++ b/desktop/src-common/advent/screens/rooms/inside_cafeteria.clj
@@ -211,7 +211,7 @@
                                :win hands-fight-win
                                :lose hands-fight-lose)
                 :scale-fn (utils/scaler-fn-with-baseline 110 0.10 1.3)
-                :apply-state (fn [entities]
+                :apply-state (fn [_ entities]
                                (as-> entities entities
                                      (if (actions/has-item? entities :ladder) 
                                        (update-in entities [:room :entities] #(dissoc % :ladder))
diff --git a/desktop/src-common/advent/screens/rooms/inside_castle.clj b/desktop/src-common/advent/screens/rooms/inside_castle.clj
index 551ff1c1..2b31d620 100644
--- a/desktop/src-common/advent/screens/rooms/inside_castle.clj
+++ b/desktop/src-common/advent/screens/rooms/inside_castle.clj
@@ -475,7 +475,7 @@
                 :chorus {:sound (sound "inside-castle/chorus.wav")}
                 :collision "inside-castle/collision.png"
                 :scale-fn (utils/scaler-fn-from-image "inside-castle/scale.png" 0.25 1.00)
-                :apply-state (fn [entities]
+                :apply-state (fn [_ entities]
                                (as-> entities entities
                                      (if (actions/has-obtained? entities :trophy) 
                                        (update-in entities [:room :entities] #(dissoc % :trophy))
diff --git a/desktop/src-common/advent/screens/rooms/inside_house.clj b/desktop/src-common/advent/screens/rooms/inside_house.clj
index 16e0e03f..d8e5a5f5 100644
--- a/desktop/src-common/advent/screens/rooms/inside_house.clj
+++ b/desktop/src-common/advent/screens/rooms/inside_house.clj
@@ -203,7 +203,7 @@
                                                              :baseline 225))
                 :collision "inside-house/collision.png"
                 :scale-fn (utils/scaler-fn-with-baseline 110 0.10 1.75)
-                :apply-state (fn [entities]
+                :apply-state (fn [_ entities]
                               (particle-effect! (get-in entities [:room :entities :candle-smoke] ) :reset)
                               (particle-effect! (get-in entities [:room :entities :candle-smoke] ) :start) 
 
diff --git a/desktop/src-common/advent/screens/rooms/inside_jail.clj b/desktop/src-common/advent/screens/rooms/inside_jail.clj
index 6c2402cc..9018203f 100644
--- a/desktop/src-common/advent/screens/rooms/inside_jail.clj
+++ b/desktop/src-common/advent/screens/rooms/inside_jail.clj
@@ -319,7 +319,7 @@
                 :collision-free (advent.pathfind/map-from-resource "inside-jail/collision-free.png")
                 :scale-fn (utils/scaler-fn-with-baseline 0 0.50 1.5)
                 :start-pos [130 85]
-                :apply-state (fn [entities]
+                :apply-state (fn [_ entities]
                                (as-> entities entities
                                      (if (actions/has-obtained? entities :ball-n-chain) 
                                        (update-in entities [:room :entities] #(dissoc % :ball-n-chain))
diff --git a/desktop/src-common/advent/screens/rooms/inside_stash.clj b/desktop/src-common/advent/screens/rooms/inside_stash.clj
index 185cf369..638f922c 100644
--- a/desktop/src-common/advent/screens/rooms/inside_stash.clj
+++ b/desktop/src-common/advent/screens/rooms/inside_stash.clj
@@ -69,7 +69,7 @@
               :collision "inside-stash/collision.png"
               :scale-fn (utils/scaler-fn-with-baseline 110 0.10 1.00)
               :start-pos [143 96]
-              :apply-state (fn [entities]
+              :apply-state (fn [_ entities]
                              (if (get-in entities [:state :broke-lock?])
                                (update-in entities [:room :entities] #(dissoc % :lid))
                                entities))))
diff --git a/desktop/src-common/advent/screens/rooms/outside_castle.clj b/desktop/src-common/advent/screens/rooms/outside_castle.clj
index 96786f99..5b1c7bd4 100644
--- a/desktop/src-common/advent/screens/rooms/outside_castle.clj
+++ b/desktop/src-common/advent/screens/rooms/outside_castle.clj
@@ -394,7 +394,7 @@
                 :collision "outside-castle/collision.png"
                 :scale-fn (utils/scaler-fn-from-image "outside-castle/scale-map.png" 0.20 1.00)
                 :start-pos [310 80]
-                :apply-state (fn [entities]
+                :apply-state (fn [_ entities]
                                (if (#{:night :sunrise} (get-in entities [:state :time]))
                                  (make-night entities)
                                  entities)))))
diff --git a/desktop/src-common/advent/screens/rooms/outside_house.clj b/desktop/src-common/advent/screens/rooms/outside_house.clj
index c1ec6363..037b4f22 100644
--- a/desktop/src-common/advent/screens/rooms/outside_house.clj
+++ b/desktop/src-common/advent/screens/rooms/outside_house.clj
@@ -504,7 +504,7 @@
                                                                              (common/read-note-1 entities))))
                 :collision "outsidehouse/collision.png"
                 :scale-fn scaler
-                :apply-state (fn [entities]
+                :apply-state (fn [_ entities]
                                (as-> entities entities
                                      (if (get-in entities [:state :coaxed-sheep?]) 
                                        (let [scale ((get-in entities [:room :scale-fn]) [90 138])]
diff --git a/desktop/src-common/advent/screens/rooms/outside_jail.clj b/desktop/src-common/advent/screens/rooms/outside_jail.clj
index 114576df..7afb3e26 100644
--- a/desktop/src-common/advent/screens/rooms/outside_jail.clj
+++ b/desktop/src-common/advent/screens/rooms/outside_jail.clj
@@ -224,7 +224,7 @@
                 :collision "outside-jail/collision.png"
                 :scale-fn (utils/scaler-fn-with-baseline 40 0.001 1.3)
                 :start-pos [145 15]
-                :apply-state (fn [entities]
+                :apply-state (fn [_ entities]
                                (as-> entities entities
                                      (if (= :night (get-in entities [:state :time]))
                                        (make-night entities)
diff --git a/desktop/src-common/advent/screens/rooms/space.clj b/desktop/src-common/advent/screens/rooms/space.clj
index 3fb46592..620e352f 100644
--- a/desktop/src-common/advent/screens/rooms/space.clj
+++ b/desktop/src-common/advent/screens/rooms/space.clj
@@ -187,7 +187,7 @@
                 {}
                 :layers [(assoc (texture "space/background.png") :x 0 :y 0 :baseline 0)]
                 :timers {:taunt [10.0 8.0 taunt]
-                         :shock [5.0 1.0 shock]}
+                         :shock [5.0 15.0 shock]}
                 :entities {:appear (assoc effect
                                           :x 240 :y 50
                                           :baseline 200)
@@ -262,7 +262,9 @@
                                                                                             (Thread/sleep 5000)
                                                                                             (actions/do-dialogue entities
                                                                                                                  :bloodclot-head "Argh! My lightning gem!"
-                                                                                                                 :bloodclot-head "No matter. I will rip you apart with my bare hands!"))})}
+                                                                                                                 :bloodclot-head "No matter. I will rip you apart with my bare hands!")
+                                                                                            (actions/pause-camera entities)
+                                                                                            (actions/transition-background entities :held [125 170]))})}
                 :bullet (assoc (animation->texture screen bullet)
                           :x 37 :y 85 :baseline 241
                           :walk bullet)
@@ -271,7 +273,7 @@
                 :collision "space/collision.png"
                 :scale-fn (constantly 1.5) 
                 :start-pos [35 45]
-                :apply-state (fn [e]
+                :apply-state (fn [_ e]
                                (as-> e e
                                      (if (get-in e [:state :broke-jewel?])
                                        (assoc-in e [:room :entities :broken-jewel] (get-in e [:room :entities :broken-jewel]))
diff --git a/desktop/src-common/advent/screens/scene.clj b/desktop/src-common/advent/screens/scene.clj
index 8281684d..c19762cd 100644
--- a/desktop/src-common/advent/screens/scene.clj
+++ b/desktop/src-common/advent/screens/scene.clj
@@ -31,6 +31,7 @@
             [advent.screens.rooms.behind-house :as rooms.behind-house]
             [advent.screens.rooms.outside-castle :as rooms.outside-castle]
             [advent.screens.rooms.space :as rooms.space]
+            [advent.screens.rooms.held :as rooms.held]
             [advent.screens.rooms.cat-tree :as rooms.cat-tree]
             [advent.screens.dialogue :refer [talking-screen]]
             [advent.screens.inventory :refer [inventory-screen]]
@@ -362,6 +363,7 @@ void main()
         love (utils/make-anim "ego/love.png" [50 70] 0.1 (flatten [0 0 1 1 2 2 3 3 4 4 5 5 6 6 (repeat 10 7) (repeat 5 8) (repeat 5 7) (repeat 5 8) (repeat 5 7) (repeat 10 [23 24 25 24]) (repeat 30 9) 10 11 12 13 14 15 16 17 18 19 20 21 21 21 22 22 22 21 21 21 21 21 21 21 21 22 22 22 22 22 21 21 21 21 22 22 22 22 22 22  21  21 21 21 21  6 6 5 5 4 4 3 3 2 2 1 1 0]))
         axe (utils/make-anim "ego/axe.png" [60 70] 0.10 (flatten [1 1 1 1 1 0 0 0 1 1 1 1 1 0 0 0 0 (range 7)]))
         axe-wood (utils/make-anim "ego/axe-wood.png" [60 70] 0.10 (flatten [1 1 1 1 1 0 0 0 1 1 1 1 1 0 0 0 0  (range 11)]))
+        suspended (utils/make-anim "ego/suspended.png" [18 36] 0.10 [0])
 
         ego {:right {:walk walk-right
                      :stand stand-anim
@@ -406,6 +408,7 @@ void main()
                      :idea idea
                      :axe axe
                      :axe-wood axe-wood
+                     :suspended suspended
                      }
              :left {:walk  (utils/flip walk-right)
                     :stand (utils/flip stand-anim)
@@ -440,7 +443,8 @@ void main()
                     :love (utils/flip love)
                     :idea (utils/flip idea)
                     :axe (utils/flip axe)
-                    :axe-wood (utils/flip axe-wood)} 
+                    :axe-wood (utils/flip axe-wood)
+                    :suspended (utils/flip suspended)} 
              :baseline (- 240 (last start-pos))
              :facing :right
              :night-profile :sprite
@@ -531,6 +535,8 @@ void main()
                                  (get-in ego [:right :axe]) {:origin-x 17}
                                  (get-in ego [:right :axe-wood]) {:origin-x 17}
                                  (get-in ego [:left :love]) {:origin-x 36}
+                                 (get-in ego [:left :suspended]) {:origin-x 0 :origin-y 0}
+                                 (get-in ego [:right :suspended]) {:origin-x 0 :origin-y 0} 
                                  :default {:origin-x 9}})]
     (actions/start-animation screen
                              (merge (animation->texture screen (:stand (:right ego))) ego)
@@ -734,6 +740,7 @@ void main()
                      :cat-tree (rooms.cat-tree/make screen)
                      :inside-castle (rooms.inside-castle/make screen)
                      :space (rooms.space/make screen)
+                     :held (rooms.held/make screen)
                      :inside-cafeteria (rooms.inside-cafeteria/make screen)
                      :inside-antique (rooms.inside-antique/make screen)
                      :inside-jail (rooms.inside-jail/make screen)
@@ -799,7 +806,7 @@ void main()
 
 
           (if-let [apply-state (get-in entities [:room :apply-state])]
-            (apply-state entities)
+            (apply-state screen entities)
             entities)))))
 
   :on-resume (fn [screen [entities]]