From 5f31bca6064236a62786e06023368e5e7a26f2b9 Mon Sep 17 00:00:00 2001 From: Remington Covert Date: Sat, 8 Nov 2014 16:36:04 -0800 Subject: [PATCH] selection. --- .../advent/screens/rooms/outside_castle.clj | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/desktop/src-common/advent/screens/rooms/outside_castle.clj b/desktop/src-common/advent/screens/rooms/outside_castle.clj index 77df7330..2bd72145 100644 --- a/desktop/src-common/advent/screens/rooms/outside_castle.clj +++ b/desktop/src-common/advent/screens/rooms/outside_castle.clj @@ -99,6 +99,18 @@ "Nevermind." {:run #(actions/respond entities % :peddler "Goodbye, sir.")}]})) :scripts {:teddy (actions/get-script entities (actions/remove-item entities items/teddy) + (actions/do-dialogue entities + :peddler "That is the choicest of teddy bears!" + :peddler "True to my word, I will give you one of my wares." + :peddler "What would you like?") + (actions/present-choices entities + {:choices ["The glass eye." + {:run #(do (actions/respond entities % :peddler "Of course sir. Here you go."))} + "The motivational tapes." + {:run #(do (actions/respond entities % :peddler "Of course sir. Here you go."))} + "The used earplugs." + {:run #(do (actions/respond entities % :peddler "Of course sir. Here you go."))}]}) + (actions/talk entities :peddler "And, of course, here is your balloon.") (actions/give entities items/balloon) (actions/talk entities :peddler "Thank you for your business!"))}}} :layers [(assoc (texture "outside-castle/background.png") :x 0 :y 0 :baseline 0)]