diff --git a/desktop/src-common/advent/screens/rooms/inside_house.clj b/desktop/src-common/advent/screens/rooms/inside_house.clj index de44a86f..7027af77 100644 --- a/desktop/src-common/advent/screens/rooms/inside_house.clj +++ b/desktop/src-common/advent/screens/rooms/inside_house.clj @@ -46,10 +46,10 @@ :wizard "It's used to keep whipper-snappers like you out of my precious belongings." :wizard "It's a magical safe only opened when the correct musical password is entered." :ego "What's the password?" - :wizard "That's for me to know.") + :wizard "That's for me to know, and you not to find out.") :choices actions/previous-choices} (when (not (actions/has-obtained-all-of? entities [:trophy :medal :kiss])) - "Will you help me become a knight?") + "About that prophecy...") {:run #(actions/respond entities % :wizard "To become a knight you will need to be worthy in courage, wisdom, and might." :wizard "Only then can you become worthy to pull the Sword of Blergh.") @@ -63,12 +63,16 @@ :choices actions/previous-choices} (when (not (actions/has-obtained? entities :medal)) "Can you make some kind of potion to make me strong?") - {:run #(actions/respond entities % - :wizard "Of course I could." - :wizard "I keep all sorts of potion recipes in my MagiSafe 5000." - :wizard "I can turn a weakling into an olympic lifter." - :wizard "But that would be cheating wouldn't it?" - :wizard "Unfortunately, you're on your own.") + {:run #(do (actions/respond entities % + :wizard "Of course I could." + :wizard "I keep all sorts of potion recipes in my MagiSafe 5000.") + + (actions/talk entities :wizard "I can turn a weakling into an olympic lifter." :anim :talk-angry :stop? false) + (actions/talk entities :wizard "A flea into a lion!" :anim :talk-angry :stop? false) + (actions/talk entities :wizard "A klutz into a ballet dancer!" :anim :talk-angry :stop? true) + (actions/do-dialogue entities + :wizard "But that would be cheating wouldn't it?" + :wizard "You need to concoct your own way to become strong.")) :choices actions/previous-choices} (when (not (actions/has-obtained? entities :kiss)) "Aren't I already courageous enough?") @@ -83,6 +87,16 @@ :ego "I haven't done any of those things!" :wizard "Seems to me you have to go do some heroic deeds!") :choices actions/previous-choices} + "But what about that last part?" + {:run #(actions/respond entities % + :ego "You know, 'One final test remains, behold!'" + :ego "What final test, Gandarf?" + :wizard "Nobody knows, boy." + :wizard "Some say you must fight the ghost of its prior owner." + :wizard "Some say you'll be struck by lightning." + :wizard "Others say you'll go through an inter-dimensional portal to a land filled with snake men." + :wizard "Whatever it is, it won't be easy for you!") + :choices actions/previous-choices} "Something else." {:choices actions/something-else}]} (when (actions/has-obtained-all-of? entities [:trophy :medal :kiss])