diff --git a/desktop/src-common/advent/screens/rooms/dream.clj b/desktop/src-common/advent/screens/rooms/dream.clj index 1f7f9da2..9fcd3f4c 100644 --- a/desktop/src-common/advent/screens/rooms/dream.clj +++ b/desktop/src-common/advent/screens/rooms/dream.clj @@ -305,10 +305,15 @@ (defn distract [entities message subject] (actions/respond entities message - :fairy-godfather (str "A " subject "!? Where?") + :fairy-godfather (str "A " subject "!?")) + (actions/walk-straight-to entities :fairy-godfather [230 120] :speed 2.0 :update-baseline? false) + (Thread/sleep 500) + (actions/walk-straight-to entities :fairy-godfather [180 120] :speed 2.0 :update-baseline? false) + (Thread/sleep 500) + (actions/do-dialogue entities + :fairy-godfather "Where?" :ego "Err..." - :ego "Umm..." - ) + :ego "Umm...") (actions/play-animation entities :ego :idea) (actions/do-dialogue entities :ego "On that island over there!" @@ -316,7 +321,7 @@ :fairy-godfather "I've got to see it to believe it." :fairy-godfather "You better not be messing with me, Tick.") (actions/update-entities entities (fn [e] (update-in e [:room :entities :fairy-godfather] assoc :distracted? true :distracted-time 0))) - (actions/walk-straight-to entities :fairy-godfather [211 210] :face :left)) + (actions/walk-straight-to entities :fairy-godfather [211 210] :face :left :update-baseline? false)) (defn talk-to-fairy [entities] (do