new screen.

desktop/src-common/advent/screens/scene.clj

@@ -155,13 +155,24 @@
                                        (aget peddler-sheet 0 i)))
         peddler-stand (animation 0.2 (for [i (flatten [(repeat 5 0) 6])]
                                      (aget peddler-sheet 0 i)))] 
-    {:outside-house
+    {:inside-house
+     (make-background :interactions
+                      {
+                      }
+                      :layers [(assoc (texture "inside-house/background.png") :x 0 :y 0 :baseline 0)
+                               (assoc (texture "inside-house/desk.png") :x 0 :y 0 :baseline 200)
+                               (assoc (texture "inside-house/sillhoute.png") :x 0 :y 0 :baseline 240)]
+                      :entities {}
+                      :collision "inside-house/collision.png"
+                      :scale-fn (scaler-fn-with-baseline 110 0.10 1.75))
+     :outside-house
      (make-background :interactions
                       {:door {:box [258 100 281 160]
                               :script (actions/get-script
                                        entities
                                        (actions/walk-to entities :ego [262 88])
-                                       (actions/talk entities :ego (str "Anyone home?")))}
+                                       (actions/talk entities :ego (str "Anyone home?"))
+                                       (actions/transition-background entities :inside-house [237 0]))}
                        :sword {:box [274 55 305 88]
                                :script (actions/get-script
                                         entities