More entertaining dialogue and no re-open.

This commit is contained in:
2014-12-14 21:12:33 -08:00
parent 225fc72f36
commit 18bfc55f04
3 changed files with 28 additions and 15 deletions

View File

@@ -13,14 +13,24 @@
(defn open-safe [entities]
(screen! safe/safe-screen :show-screen
:success (actions/get-script entities
(actions/talk entities :ego "Yes! That worked.")
(actions/play-animation entities :ego :squat)
(actions/give entities :recipe)
(actions/talk entities :ego "I found a recipe for a strength potion!")
(actions/talk entities :ego "Looks like there's something else in here too...")
(actions/play-animation entities :ego :squat)
(actions/give entities :frog-legs)
(actions/talk entities :ego "Eww. Frog legs."))
(if (actions/has-item? entities :recipe)
(do
(actions/play-animation entities :ego :squat)
(actions/talk entities :ego "It's empty now."))
(do
(actions/talk entities :ego "Yes! That worked.")
(actions/talk entities :ego "Let's see here...")
(actions/play-animation entities :ego :squat)
(actions/talk entities :ego "No, that's a recipe to turn someone into a professional dancer...")
(actions/play-animation entities :ego :squat)
(actions/talk entities :ego "Here's a recipe to make everything taste like cotton candy. I'll just put that back.")
(actions/play-animation entities :ego :squat)
(actions/give entities :recipe)
(actions/talk entities :ego "Aha! Here it is! I found a recipe for a strength potion!")
(actions/talk entities :ego "Looks like there's something else in here too...")
(actions/play-animation entities :ego :squat)
(actions/give entities :frog-legs)
(actions/talk entities :ego "Eww. Frog legs."))))
:failure (actions/get-script entities
(actions/talk entities :ego "I don't think that worked...")))
(actions/update-state entities #(assoc % :active? false)))