eat mint.

This commit is contained in:
Bryce Covert
2015-08-15 23:51:29 -07:00
parent 77e5cc071b
commit c3ed3d3886

View File

@@ -200,8 +200,7 @@
(actions/talk entities :shopkeep "That's a portrait of my long lost son. "
:shopkeep "Please put it back before you leave.")))
(actions/get-script entities
(actions/talk entities :shopkeep "No thanks, sonny.")))
)
(actions/talk entities :shopkeep "No thanks, sonny."))))
:stand)
:portrait portrait
:beard (assoc (animation->texture screen beard)
@@ -231,7 +230,9 @@
:shopkeep "Go tell Gandarf that I need some more brewed up."
:shopkeep "Pronto!"))
(do (actions/walk-to entities :ego [159 62] :face :right)
(actions/talk entities :ego "I'll just try one of these mints.")
(if (= 0 (get-in @entities [:state :mints-eaten]))
(actions/talk entities :ego "I'll just try one of these mints.")
(actions/talk entities :ego "I'll just try another one of these mints."))
(actions/play-animation entities :ego :reach)
(actions/update-state entities (fn [s] (assoc s :mints-eaten (inc (s :mints-eaten)))))
(sound! (sound (str "inside-antique/fire-" (get-in @entities [:state :mints-eaten]) ".ogg")) :play (utils/current-sound-volume))