started intro.

desktop/src-common/advent/screens/rooms/dream.clj

@@ -1,5 +1,7 @@
 (ns advent.screens.rooms.dream
-  (:require [advent.screens.rooms :as rooms]
+  (:require 
+   [clojure.core.async :as a]
+   [advent.screens.rooms :as rooms]
             [advent.screens.rooms.common :as common]
             [advent.actions :as actions]
             [advent.screens.items :as items]
@@ -12,12 +14,22 @@
             [play-clj.utils :refer :all]
             [play-clj.g2d :refer :all]))
 
+(def walk-chan (a/chan))
 
+(defn do-intro [entities]
+  (a/go
+    (actions/do-dialogue entities
+                         :ego "Oh hi there!"
+                         :ego "I'm Faceplant, the great knight, and this is my dream!"
+                         :ego "Just like in real life, I can walk around if you just click somewhere on the screen."
+                         :ego "Give it a shot, whydontya?")
+    (actions/walk-to entities :ego [100 100])
+    (actions/talk entities :ego "I can also pick up stuff by clicking on it.")))
 
 (defn make [screen]
   (rooms/make :music :town-1
-              :interactions
-              {}
+              :interactions {:floor {:box [0 0 320 170]
+                                     :script (actions/get-script entities (a/>! [100 100]))}}
               :layers [(assoc (texture "dream/background.png") :x 0 :y 0 :baseline 0)]
               :entities {}
               :collision "space/background.png"