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

squat talk

Browse Source
This commit is contained in:
Bryce Covert
2016-02-17 22:25:24 -08:00
parent c59cfc5f92
commit 93910187ab
19 changed files with 1125 additions and 1077 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
desktop/src-common/advent/screens/rooms/dream.clj
View File

@@ -84,17 +84,21 @@
(actions/do-stop entities :ego :face :left)
(actions/do-stop entities :ego :face :right)))
(defn read-sword-plaque [entities]
(actions/walk-to entities :ego [168 76] :face :left)
(if-not (get-in @entities [:state :plaques-read :sword])
(do
(actions/talk entities :ego "There's a plaque here.")
(actions/play-animation entities :ego :squat)
(actions/play-animation entities :ego :start-squat-2 :stop? false)
(actions/squat-talk entities
"\"A noble choice to be a knight.\nStrength and valor guard thee from fright."
"There’s no need to shove\nTo find thy true love,"
"'Cause maidens swoon for guys with might.\"")
(actions/play-animation entities :ego :end-squat)
(actions/do-dialogue entities
:ego "\"A noble choice to be a knight.\nStrength and valor guard thee from fright."
:ego "There’s no need to shove\nTo find thy true love,"
:ego "'Cause maidens swoon for guys with might.\""
:ego "Awesome!"
:ego "If I become a knight, maybe Georgia McGorgeous will love me!")
(actions/in-love entities))
@@ -112,14 +116,17 @@
:fairy-godfather "And you're just not cut out for it!"))
(actions/update-state entities #(update-in % [:plaques-read] conj :sword)))
(defn read-broom-plaque [entities]
(actions/walk-to entities :ego [267 70] :face :right)
(actions/talk entities :ego "There's a plaque here.")
(actions/play-animation entities :ego :squat)
(actions/do-dialogue entities
:ego "\"Grab thy broom, son, and sweep that dirt!\nSweep and mop till thy armpits hurt."
:ego "Thou smell like a hog,\nWith stench like a fog,"
:ego "So with thou no cute babes wouldst flirt.\"")
(actions/play-animation entities :ego :start-squat-2 :stop? false)
(actions/squat-talk entities
"\"Grab thy broom, son, and sweep that dirt!\nSweep and mop till thy armpits hurt."
"Thou smell like a hog,\nWith stench like a fog,"
"So with thou no cute babes wouldst flirt.\"")
(actions/play-animation entities :ego :end-squat)
(actions/play-animation entities :ego :sigh)
(when-not (get-in @entities [:room :entities :fairy-godfather :distracted?])
@@ -136,11 +143,12 @@
(defn read-shovel-plaque [entities]
(actions/walk-to entities :ego [61 72] :face :left)
(actions/talk entities :ego "There's a plaque here.")
(actions/play-animation entities :ego :squat)
(actions/do-dialogue entities
:ego "\"With thy shovel thou will enroll\nFor the dead man a resting hole."
:ego "Thou doth own the night\nBut beware the plight:"
:ego "Thou will not wed, if twas thy goal.\"")
(actions/play-animation entities :ego :start-squat-2 :stop? false)
(actions/squat-talk entities
"\"With thy shovel thou will enroll\nFor the dead man a resting hole."
"Thou doth own the night\nBut beware the plight:"
"Thou will not wed, if twas thy goal.\"")
(actions/play-animation entities :ego :end-squat)
(actions/play-animation entities :ego :sigh)
(when-not (get-in @entities [:room :entities :fairy-godfather :distracted?])
(face-fairy entities)

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

@@ -314,11 +314,12 @@
(actions/do-dialogue entities
:ego "I can't pull it out!"
:ego "It looks like there's an inscription here.")
(actions/play-animation entities :ego :squat)
(actions/do-dialogue entities
:ego "\"In the day when I shall be pulled,\nWith much strength a knight will take hold."
:ego "Courage will he need,\nWisdom he shall heed."
:ego "A final test remains, behold!\"")
(actions/play-animation entities :ego :start-squat-2 :stop? false)
(actions/squat-talk entities
"\"In the day when I shall be pulled,\nWith much strength a knight will take hold."
"Courage will he need,\nWisdom he shall heed."
"A final test remains, behold!\"")
(actions/play-animation entities :ego :end-squat)
(if (= 3 (count missing-items))
(do
(actions/walk-to entities :ego [115 54])