diff --git a/desktop/src-common/advent/screens/rooms/inside_antique.clj b/desktop/src-common/advent/screens/rooms/inside_antique.clj index 5e18ef59..1a3734b6 100644 --- a/desktop/src-common/advent/screens/rooms/inside_antique.clj +++ b/desktop/src-common/advent/screens/rooms/inside_antique.clj @@ -83,12 +83,24 @@ :choices son-choices} "Something else." {:choices actions/something-else}]} - "Are those lava mints on the desk?" + (when (= 3 (get-in @entities [:state :mints-eaten])) + "Do you still need those lava mints?") + {:run #(actions/respond entities % + :shopkeep "Of course!" + :shopkeep "How am I going to keep all my customers happy?" + :ego "But you don't have any customers." + :shopkeep "No matter." + :shopkeep "Tell Gandarf I need some more." + :shopkeep "Pronto!") + :choices actions/previous-choices} + + (when (not= 3 (get-in @entities [:state :mints-eaten])) + "Are those lava mints on the desk?") {:run #(actions/respond entities % :shopkeep "They're the finest lava mints in all of Remington." :shopkeep "Hand-brewed and delivered by none other than Gandarf himself!" :shopkeep "They're free for customers." - :shopkeep "We're not open for business, but I'll let you have one.") + :shopkeep "We're not open for business, but I'll let you have one or two.") :choices actions/previous-choices} (when (and (get-in @entities [:state :wants-toy]) (not (get-in @entities [:state :allowed-to-keep-teddy?]))) @@ -135,7 +147,12 @@ :shopkeep "I was afraid you might say that.")) :choices #(-> % zip/up zip/up zip/up)}])))}]} - "Nevermind." {:run #(actions/respond entities % :shopkeep "Feel free to look around.")}]}))) + "Nevermind." {:run (fn [m] + + (if (= 3 (get-in @entities [:state :mints-eaten])) + (actions/respond entities m :shopkeep "Make sure to tell Gandarf to bring more lava mints.") + (actions/respond entities m :shopkeep "Feel free to look around.")) + ) }]}))) (defn return-portrait [ entities] (actions/walk-to entities :ego [143 64] :face :left)