started intro.

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

@@ -346,7 +346,9 @@
      :obtained-items #{} 
      :inventory []
      :clues #{}
-     :mints-eaten 0}))
+     :mints-eaten 0
+     :seen-intro? false}))
+
 (defscreen scene
   :on-timer
   (fn [screen [entities]]
@@ -402,6 +404,8 @@
 
         (doseq [[k [start time fn]] (get-in entities [:room :timers])]
           (add-timer! screen k start time))        
+        (when (not (get-in entities [:state :seen-intro?]))
+          ((actions/get-script entities (rooms.dream/do-intro entities)) entities))
         (if-let [apply-state (get-in entities [:room :apply-state])]
           (apply-state entities)
           entities))))