fixed overlap issue and tweaked dialogue.

This commit is contained in:
Bryce Covert
2016-04-27 08:59:05 -07:00
parent 7e7c6b1992
commit 1ff25e1430

View File

@@ -305,10 +305,15 @@
(defn distract [entities message subject] (defn distract [entities message subject]
(actions/respond entities message (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 "Err..."
:ego "Umm..." :ego "Umm...")
)
(actions/play-animation entities :ego :idea) (actions/play-animation entities :ego :idea)
(actions/do-dialogue entities (actions/do-dialogue entities
:ego "On that island over there!" :ego "On that island over there!"
@@ -316,7 +321,7 @@
:fairy-godfather "I've got to see it to believe it." :fairy-godfather "I've got to see it to believe it."
:fairy-godfather "You better not be messing with me, Tick.") :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/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] (defn talk-to-fairy [entities]
(do (do