diff --git a/desktop/src-common/advent/screens/scene.clj b/desktop/src-common/advent/screens/scene.clj index ff511056..f6723123 100644 --- a/desktop/src-common/advent/screens/scene.clj +++ b/desktop/src-common/advent/screens/scene.clj @@ -126,9 +126,13 @@ :cursor-override :left :go-to [0 80]}] :interactions [{:mouse-in? (zone/box 258 100 281 160) - :look (fn [screen entities [x y]] + :look (fn [screen entities _] (assoc-in entities [:ego :actions] [(actions/stop :ego) - (actions/talk :ego (str "The last time I went through that door, Fangald turned me into a frog."))]))}] + (actions/talk :ego (str "The last time I went through that door, Fangald turned me into a frog."))])) + :touch (fn [screen entities _] + (assoc-in entities [:ego :actions] (concat + (actions/from-path screen entities :ego [262 88]) + [(actions/talk :ego (str "Anyone home?"))])))}] :scale-fn (scaler-fn-with-baseline 110 0.10 1.00) :layers [(assoc background :x 0 :y 0 :baseline 0) (assoc house :x 0 :y 0 :baseline 122)