notid/gitea-docker
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

improving the story a bit.

Browse Source
This commit is contained in:
Bryce Covert
2015-01-01 11:04:17 -08:00
parent 1ee46df3f1
commit 9d3772b976
9 changed files with 97 additions and 124 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
desktop/src-common/advent/screens/rooms/outside_house.clj
View File

@@ -133,19 +133,24 @@
:wizard "There's only one way to neutralize it:"
:wizard "The Slinger's Shot."
:wizard "It's a magical slingshot that has long lost its power."
:wizard "Here, take it.")
(actions/give entities :slingshot)
(actions/do-dialogue entities
:wizard "Whatever happens, do not lose that slingshot!"
:wizard "You and me, boy, we're going to return it to its powerful state."
:wizard "Then you can beat Blergh, come sunrise."
:wizard "Now, time is of the essence."
:wizard "Take this flask. Fill it with water from the fountain.")
:wizard "Take this flask. Fill it with water from the fountain."
:wizard "And remember. Don't lose the slingshot.")
(actions/give entities :flask-2))))
(defn add-wizard-if-necessary [entities]
(if (actions/has-obtained? entities :flask-water)
(if (actions/has-obtained? entities :money)
entities
(update-in entities [:room :entities] #(assoc % :wizard (get-in entities [:room :wizard])))))
(defn add-note-if-necessary [entities]
(if (and (actions/has-obtained? entities :flask-water)
(if (and (actions/has-obtained? entities :money)
(not (actions/has-obtained? entities :note-1)))
(update-in entities [:room :entities] #(assoc % :note (get-in entities [:room :note])))
entities))