This commit is contained in:
Bryce Covert
2015-11-02 09:21:22 -08:00
parent 24d8fa7d23
commit 7aa2db4261
11 changed files with 73 additions and 73 deletions

View File

@@ -88,9 +88,9 @@
(actions/talk entities :ego "There's a plaque here.")
(actions/play-animation entities :ego :squat)
(actions/do-dialogue entities
:ego "'A noble choice to be a knight,\nBe a hero, do what's right.'"
:ego "'There's no need to shove,\nTo find your true love,'"
:ego "'Because maidens love guys with might.'"
:ego "'A noble choice to be a knight.\nStrength and valor guard thee from fright.'"
:ego "Theres no need to shove\nTo find thy true love,'"
:ego "''Cause maidens swoon for guys with might.'" ; TODO - QUOTES
:ego "Awesome!"
:ego "If I become a knight, maybe Georgia McGorgeous will love me!")
(actions/in-love entities))
@@ -113,9 +113,9 @@
(actions/talk entities :ego "There's a plaque here.")
(actions/play-animation entities :ego :squat)
(actions/do-dialogue entities
:ego "'Grab the broom, and sweep that dirt!\nSweep, and mop till your arms hurt.'"
:ego "'You'll smell like a hog,\nwith stench like a fog,'"
:ego "'So with you, no girl will flirt.'")
: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 :sigh)
(when-not (get-in @entities [:room :entities :fairy-godfather :distracted?])
@@ -134,9 +134,9 @@
(actions/talk entities :ego "There's a plaque here.")
(actions/play-animation entities :ego :squat)
(actions/do-dialogue entities
:ego "'Choose the shovel, dig some holes,\ntis the boringest of roles,'"
:ego "'You can work by night,\nBut suffer a plight:'"
:ego "'Gals dislike guys who bury souls.'")
: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 :sigh)
(when-not (get-in @entities [:room :entities :fairy-godfather :distracted?])
(face-fairy entities)
@@ -218,7 +218,7 @@
(actions/update-entities entities #(update-in % [:room :entities :fairy-godfather] dissoc :path))
(actions/walk-straight-to entities :fairy-godfather [87 120] :speed 1.75 :update-baseline? false)
(actions/update-entities entities (fn [e] (update-in e [:room :entities :fairy-godfather] assoc :path (catmull-rom-spline (map #(apply vector-2* %) [[87 120] [87 124]]) true))))
(actions/do-dialogue entities :fairy-godfather "This shovel represents the job of grave-digger."
(actions/do-dialogue entities :fairy-godfather "This shovel represents the job of gravedigger."
:fairy-godfather "A simple job, for a simple fellow."
:ego "Hey! "
:ego "I'm not simple.")
@@ -236,8 +236,8 @@
:fairy-godfather "Sword...?"
:fairy-godfather "Uh, oh. There must be some mistake."
:fairy-godfather "Ahem."
:fairy-godfather "You must choose between being a janitor and grave-digger."
:ego "But I want that sword, and be a knight!"
:fairy-godfather "You must choose between being a janitor and a gravedigger."
:ego "But I want that sword so that I can be a knight!"
:ego "And you said that these destinies are never mistaken!"
:fairy-godfather "Nevermind that."
:fairy-godfather "Choose the broom or shovel, and cast it into the pit of fate."
@@ -312,7 +312,7 @@
(actions/do-dialogue entities :fairy-godfather "Young Tick, you must choose your destiny!")
(actions/present-choices entities {:choices ["What if I don't like any of these choices?"
{:run #(do (actions/respond entities %
:fairy-godfather "Who wouldn't want to be a grave digger or janitor?"
:fairy-godfather "Who wouldn't want to be a gravedigger or janitor?"
:fairy-godfather "That's the problem with kids these days."
:fairy-godfather "Always complaining about what they can't have."
:fairy-godfather "You need an attitude adjustment, mister."))
@@ -334,10 +334,10 @@
{:run #(actions/respond entities % :fairy-godfather "Don't worry, Tick.")}]})))
(defn describe-shovel [entities]
(actions/do-dialogue entities :fairy-godfather "Grave-digging is just the thing for you, Tick."
(actions/do-dialogue entities :fairy-godfather "Gravedigging is just the thing for you, Tick."
:fairy-godfather "Just think about it."
:fairy-godfather "You'll have your own little shack at the cemetery..."
:fairy-godfather "... where you can stay at not see another person for months on end ..."
:fairy-godfather "... where you can stay and not see another person for months on end ..."
:fairy-godfather "well, another alive person anyways."))
(defn describe-broom [entities]
@@ -357,7 +357,7 @@
(actions/talk entities :ego "Wow! That's a long way down."))
:scripts {:shovel (actions/get-script entities
(actions/walk-to entities :ego [154 41])
(actions/talk entities :ego "I guess I'm doomed to be a grave-digger.")
(actions/talk entities :ego "I guess I'm doomed to be a gravedigger.")
(actions/play-animation entities :ego :sigh)
(actions/play-animation entities :ego :reach-start :stop? false)
(describe-shovel entities)