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

better ladder dialogue.

Browse Source
This commit is contained in:
Bryce Covert
2014-12-10 19:48:39 -08:00
parent 65f8b4a828
commit 4283d06728
3 changed files with 34 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -61,7 +61,8 @@
(actions/do-dialogue entities
:ego "Hello."
:ladder-guard "'Ello, young sire.")
(actions/present-choices entities {:choices ["Nice ladder."
(actions/present-choices entities {:choices [(when (not (actions/has-obtained? entities :ladder))
"Nice ladder.")
{:run #(actions/respond entities %
:ladder-guard "Tis nice, indeed!"
:ladder-guard "Belongeth to the Duke of Remington, it doth.")
@@ -79,7 +80,9 @@
:choices ["Pretty pretty pretty please?"
{:run #(do (actions/respond entities %
:ladder-guard "Well, okay."
:ladder-guard "Do not darest telleth a soul, or the Duke will haveth my head!")
:ladder-guard "Do not darest telleth a soul, or thou wilst bring my family dishonor!"
:ladder-guard "I will shame the name of my father, Luke, and his father, Puke."
:ladder-guard "Not to mention, the duke will have my head!")
(actions/walk-to entities :ego [245 75] :face :right)
(actions/play-animation entities :ego :reach)
(actions/remove-entity entities :ladder)
@@ -95,14 +98,15 @@
"Something else."
{:choices actions/something-else}]}
"Why aren't you sitting and eating?"
{:run #(actions/respond entities %
:ladder-guard "I'm oneth duty, young sire."
:ladder-guard "Dost thou seeth this ladder?"
:ladder-guard "Tis my duty to guardeth it."
:ladder-guard "Why, if I didst sit and dineth with my friends, a hoodlum wouldst steal it.")
{:run #(do (actions/respond entities % :ladder-guard "I'm on duty, young sire.")
(when (not (actions/has-obtained? :ladder))
(actions/do-dialogue entities
:ladder-guard "Dost thou seeth this ladder?"
:ladder-guard "Tis my duty to guardeth it."
:ladder-guard "Why, if I didst sit and dineth with my friends, a hoodlum wouldst steal it.")))
:choices actions/previous-choices}
"What's your name?"
{:run #(actions/respond entities % :ladder-guard "Tim.")
{: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.")}]})