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

More entertaining dialogue and no re-open.

Browse Source
This commit is contained in:
Remington Covert
2014-12-14 21:12:33 -08:00
parent 225fc72f36
commit 18bfc55f04
3 changed files with 28 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
desktop/src-common/advent/screens/rooms/inside_cafeteria.clj
View File

@@ -46,12 +46,14 @@
"Can I be a knight like you guys?")
{:run #(actions/respond entities %
:warriors "We thinketh not, young esquire."
:warriors "You lacketh the strength and vigor required for such a task.")
:warriors "Thou lacketh the strength and vigor required for such a task."
:warriors "To becometh a knight, thou wouldst have to best Captain McHulk in battle."
:warriors "And no one durst challeng him!")
:choices ["But I'm on a quest to become a knight!"
{:run #(actions/respond entities %
:warriors "Young esquire, thou art valiant in heart. "
:warriors "Departeth henceforth and go hitherto, unto the gym.")}
"I challenge you to a arm wrestling match to prove my strength."
"I challenge Captain McHulk to an arm wrestling match to prove my strength."
{:run (fn [msg]
(actions/respond entities msg :warriors "Prepare thyself, thy task is not for the faint of heart.")
(if (actions/has-item? @entities :flask-1-strength)
@@ -67,7 +69,9 @@
(do
(play-battle entities :lose)
(actions/do-dialogue entities
:warriors "You lost, young master. Go hitherto, unto thy gym."))))}
:warriors "You lost, young master. Go hitherto, unto thy gym.")
(actions/walk-to entities :ego [160 45])
(actions/do-dialogue entities :ego "Dang! If I only I had some kind of potion to make me strong..."))))}
"Something else."
{:choices actions/something-else}]
}
@@ -127,8 +131,7 @@
{:run #(actions/respond entities % :ladder-guard "I am Took, son of Luke, son of Puke.")
:choices actions/previous-choices}
"Goodbye."
{:run #(actions/respond entities % "Goodbye.")}]})
)
{:run #(actions/respond entities % "Goodbye.")}]}))
(defn make [screen]
(let [warriors-stand-sheet (texture! (texture "inside-cafeteria/warriors-stand.png") :split 66 126)