just working on this tree.
This commit is contained in:
Bryce Covert
@@ -146,6 +146,26 @@
|
|||||||
(actions/get-script entities
|
(actions/get-script entities
|
||||||
(actions/talk entities :ego "I don't want to put something in there unless I'm sure I need to."))))
|
(actions/talk entities :ego "I don't want to put something in there unless I'm sure I need to."))))
|
||||||
|
|
||||||
|
|
||||||
|
(defn do-frog [entities]
|
||||||
|
(actions/talk entities :wizard "Grenouille KALA!!!" :anim :talk-angry :stop? false)
|
||||||
|
(particle-effect! (get-in @entities [:room :entities :magic-frog-particle]) :reset)
|
||||||
|
(particle-effect! (get-in @entities [:room :entities :magic-frog-particle]) :start)
|
||||||
|
(actions/begin-animation entities :ego :frog)
|
||||||
|
(Thread/sleep 2000)
|
||||||
|
(actions/begin-animation entities :wizard :stand)
|
||||||
|
(Thread/sleep 1000)
|
||||||
|
(actions/do-dialogue entities
|
||||||
|
:wizard "I warned you, Tick."
|
||||||
|
:wizard "Now, I will return you to your true state if you leave me in peace."
|
||||||
|
:wizard "Do you promise?")
|
||||||
|
(actions/play-animation entities :ego :frog-nod :stop? false)
|
||||||
|
(actions/talk entities :wizard "Frustatium DISPOSIUM!!!" :anim :talk-angry :stop? false)
|
||||||
|
(particle-effect! (get-in @entities [:room :entities :magic-frog-particle]) :reset)
|
||||||
|
(particle-effect! (get-in @entities [:room :entities :magic-frog-particle]) :start)
|
||||||
|
(Thread/sleep 1500)
|
||||||
|
(actions/transition-background entities :outside-house [257 90] :face :left))
|
||||||
|
|
||||||
(defn wizard-dialogue [entities]
|
(defn wizard-dialogue [entities]
|
||||||
(if (get-in @entities [:state :has-met-gandarf?])
|
(if (get-in @entities [:state :has-met-gandarf?])
|
||||||
(do (actions/do-dialogue entities :ego "Hello again Gandarf!"
|
(do (actions/do-dialogue entities :ego "Hello again Gandarf!"
|
||||||
@@ -166,22 +186,26 @@
|
|||||||
(actions/begin-animation entities :wizard :magic-hands)))
|
(actions/begin-animation entities :wizard :magic-hands)))
|
||||||
(actions/update-state entities (fn [s] (assoc s :has-met-gandarf? true)))
|
(actions/update-state entities (fn [s] (assoc s :has-met-gandarf? true)))
|
||||||
(actions/present-choices entities
|
(actions/present-choices entities
|
||||||
{:choices ["What do you mean, \"Not you again?\""
|
{:choices ["Surely you can't still be angry with me!"
|
||||||
{:run #(actions/respond entities % :wizard "I mean, you've wrecked my life and I never want to see you again.")
|
{:run #(actions/respond entities % :wizard "I can't?"
|
||||||
|
:wizard "Do you even remember what you did?")
|
||||||
:choices ["You mean the time I set your house on fire with a fire mint?"
|
:choices ["You mean the time I set your house on fire with a fire mint?"
|
||||||
{:run #(do
|
{:run #(do
|
||||||
(actions/respond entities %
|
(actions/respond entities %
|
||||||
:wizard "That was you!?"
|
:wizard "No, of course n...")
|
||||||
:wizard "My house was nearly destroyed!"
|
(Thread/sleep 500)
|
||||||
:wizard "I spent weeks rebuilding my home!"
|
(actions/do-dialogue entities :wizard "Wait... that was you!?" :wizard "My house was completely destroyed!")
|
||||||
)
|
(Thread/sleep 500)
|
||||||
|
(actions/talk entities :wizard "I had to move out of town into this shack!" :anim :talk-angry :stop? false)
|
||||||
(actions/talk entities :wizard "Leave, now, or I'll turn you into a ..." :anim :talk-angry :stop? false)
|
(actions/talk entities :wizard "Leave, now, or I'll turn you into a ..." :anim :talk-angry :stop? false)
|
||||||
(actions/talk entities :wizard "... a ..." :anim :talk-angry :stop? false)
|
(actions/talk entities :wizard "... a ..." :anim :talk-angry :stop? false)
|
||||||
(actions/talk entities :wizard "... a frog!" :anim :talk-angry)
|
(actions/talk entities :wizard "... a pack of matches!" :anim :talk-angry)
|
||||||
|
(actions/begin-animation entities :wizard :magic-hands)
|
||||||
(actions/talk entities :ego "Okay, okay, I'm leaving!")
|
(actions/talk entities :ego "Okay, okay, I'm leaving!")
|
||||||
(actions/transition-background entities :outside-house [257 90] :face :left)
|
(actions/transition-background entities :outside-house [257 90] :face :left)
|
||||||
(actions/do-dialogue entities :ego "I guess he's really upset with me."
|
(actions/play-animation entities :ego :sigh)
|
||||||
:ego "I wonder if I can convince him to let me stay..."))}
|
(actions/do-dialogue entities :ego "It seems like his temper is on fire."
|
||||||
|
:ego "Sort of like his house was."))}
|
||||||
"You're still cross about my stealing your magic cowboy hat?"
|
"You're still cross about my stealing your magic cowboy hat?"
|
||||||
{:run #(do (actions/respond entities %
|
{:run #(do (actions/respond entities %
|
||||||
:wizard "Of course I'm cross! It's irreplaceable!"
|
:wizard "Of course I'm cross! It's irreplaceable!"
|
||||||
@@ -189,12 +213,36 @@
|
|||||||
:wizard "And complemented my skin color."
|
:wizard "And complemented my skin color."
|
||||||
:wizard "And you little pipsqueak stole it from me!"
|
:wizard "And you little pipsqueak stole it from me!"
|
||||||
:wizard "That's why I bought my Magi-Safe 5000, to keep out intruders like you."
|
:wizard "That's why I bought my Magi-Safe 5000, to keep out intruders like you."
|
||||||
:wizard "Now leave, before I get really angry!.")
|
)
|
||||||
|
(actions/talk entities :wizard "Now leave, before I force you out!" :anim :talk-angry :stop? false)
|
||||||
|
(actions/begin-animation entities :wizard :magic-hands)
|
||||||
(actions/transition-background entities :outside-house [257 90] :face :left)
|
(actions/transition-background entities :outside-house [257 90] :face :left)
|
||||||
(actions/do-dialogue entities :ego "I guess he's really upset with me."
|
(actions/do-dialogue entities :ego "I guess he's really upset about that cowboy hat!"))}
|
||||||
:ego "I wonder if I can convince him to let me stay..."))}
|
"Maybe the time I freed your pet dragon?"
|
||||||
"Even an old hoot like you needs a kick in the pants every now and again."
|
{:run #(do (actions/respond entities %
|
||||||
{:run #(actions/respond entities % :wizard "What gives you the right to try to teach me a lesson?")
|
:wizard "Of course I mean that!"
|
||||||
|
:wizard "I've raised Snaggletooth from the day he was born."
|
||||||
|
:wizard "Raised him as my own, I did."
|
||||||
|
:wizard "47 long years."
|
||||||
|
:wizard "All for nothing!")
|
||||||
|
(actions/talk entities :wizard "Give me one reason I shouldn't turn you into a replacement dragon right now!"
|
||||||
|
:anim :talk-angry :stop? false)
|
||||||
|
(actions/begin-animation entities :wizard :magic-hands))
|
||||||
|
:choices ["Frankie Rockfist and his gang made me do it!"
|
||||||
|
{:run #(do (actions/respond entities %
|
||||||
|
:wizard "Frankie Rockfist, eh?"
|
||||||
|
:wizard "What kind of dumb name is Frankie Rockfist?!"
|
||||||
|
)
|
||||||
|
(Thread/sleep 1000)
|
||||||
|
(actions/talk entities :wizard "You think I'm stupid enough to fall for that?!" :anim :talk-angry :stop? false)
|
||||||
|
(actions/talk entities :wizard "It's time to teach you a lesson." :anim :talk-angry :stop? false)
|
||||||
|
(do-frog entities)
|
||||||
|
(actions/do-dialogue entities :ego "Phew!"
|
||||||
|
:ego "I thought I had nearly croaked!"))}
|
||||||
|
|
||||||
|
"I'm on an important quest!"
|
||||||
|
{:run #(actions/respond entities % :wizard "Eh?"
|
||||||
|
:wizard "Pray tell, what kind of quest?")
|
||||||
:choices ["My good looks?"
|
:choices ["My good looks?"
|
||||||
{:run #(do (actions/respond entities %
|
{:run #(do (actions/respond entities %
|
||||||
:wizard "You know, handsome looks aren't all they're chocked up to be."
|
:wizard "You know, handsome looks aren't all they're chocked up to be."
|
||||||
@@ -249,9 +297,24 @@
|
|||||||
:wizard "While your goal sounds noble, no amount of bizarre conversation tree searching will earn my respect."
|
:wizard "While your goal sounds noble, no amount of bizarre conversation tree searching will earn my respect."
|
||||||
:wizard "Now please leave.")
|
:wizard "Now please leave.")
|
||||||
(actions/transition-background entities :outside-house [257 90] :face :left)
|
(actions/transition-background entities :outside-house [257 90] :face :left)
|
||||||
(actions/talk entities :ego "If only Gandarf could be tricked into seeing the valiant side of me..."))}]}]}]}
|
(actions/talk entities :ego "If only Gandarf could be tricked into seeing the valiant side of me..."))}]}]}
|
||||||
"You're not happy to see me, Gandarf?"
|
"Snaggletooth deserved a free life, you old gheezer!"
|
||||||
{:run #(actions/respond entities % :wizard "Of course not, you little brat. You've made my life a living hell!")
|
{:run #(do (actions/respond entities % :wizard "Why, you..."
|
||||||
|
:wizard "Snaggletooth was my friend!")
|
||||||
|
(Thread/sleep 1000)
|
||||||
|
(do-frog entities)
|
||||||
|
(actions/talk entities :ego "Phew!")
|
||||||
|
(actions/talk entities :ego "I thought I had ribbit the dust!"))}
|
||||||
|
|
||||||
|
]}
|
||||||
|
|
||||||
|
]}
|
||||||
|
"But I'm your friend, Gandarf!"
|
||||||
|
{:run #(do (actions/respond entities % :wizard "Friend? "
|
||||||
|
:wizard "What kind of friend would do what you did to me?")
|
||||||
|
(Thread/sleep 500)
|
||||||
|
(actions/talk entities :wizard "You don't even remember what you did, do you?")
|
||||||
|
)
|
||||||
:choices #(-> % zip/left)}
|
:choices #(-> % zip/left)}
|
||||||
"Or else what?"
|
"Or else what?"
|
||||||
{:run #(do (actions/talk entities :ego %)
|
{:run #(do (actions/talk entities :ego %)
|
||||||
@@ -262,23 +325,11 @@
|
|||||||
#(do
|
#(do
|
||||||
(actions/talk entities :ego %)
|
(actions/talk entities :ego %)
|
||||||
(actions/talk entities :wizard "You asked for it, boy." :anim :talk-angry :stop? false)
|
(actions/talk entities :wizard "You asked for it, boy." :anim :talk-angry :stop? false)
|
||||||
(actions/talk entities :wizard "Grenouille KALA!!!" :anim :talk-angry :stop? false)
|
(do-frog entities))
|
||||||
(particle-effect! (get-in @entities [:room :entities :magic-frog-particle]) :reset)
|
}
|
||||||
(particle-effect! (get-in @entities [:room :entities :magic-frog-particle]) :start)
|
"On second thought..."
|
||||||
(actions/begin-animation entities :ego :frog)
|
{:run #(actions/do-dialogue entities :ego %)
|
||||||
(Thread/sleep 2000)
|
:choices actions/something-else}
|
||||||
(actions/begin-animation entities :wizard :stand)
|
|
||||||
(Thread/sleep 1000)
|
|
||||||
(actions/do-dialogue entities
|
|
||||||
:wizard "I warned you, Tick."
|
|
||||||
:wizard "Now, I will return you to your true state if you leave me in peace."
|
|
||||||
:wizard "Do you promise?")
|
|
||||||
(actions/play-animation entities :ego :frog-nod :stop? false)
|
|
||||||
(actions/talk entities :wizard "Frustatium DISPOSIUM!!!" :anim :talk-angry :stop? false)
|
|
||||||
(particle-effect! (get-in @entities [:room :entities :magic-frog-particle]) :reset)
|
|
||||||
(particle-effect! (get-in @entities [:room :entities :magic-frog-particle]) :start)
|
|
||||||
(Thread/sleep 1500)
|
|
||||||
(actions/transition-background entities :outside-house [257 90] :face :left))}
|
|
||||||
"Okay, okay, I'm leaving."
|
"Okay, okay, I'm leaving."
|
||||||
{:run
|
{:run
|
||||||
#(do
|
#(do
|
||||||
@@ -287,7 +338,7 @@
|
|||||||
"Okay, okay, I'm leaving."
|
"Okay, okay, I'm leaving."
|
||||||
{:run #(do
|
{:run #(do
|
||||||
(actions/talk entities :ego %)
|
(actions/talk entities :ego %)
|
||||||
(actions/talk entities :wizard "Okay, okay, I'm leaving." :anim :talk-angry)
|
(actions/talk entities :wizard "Good riddance!" :anim :talk-angry)
|
||||||
(actions/transition-background entities :outside-house [257 90] :face :left))}]}))
|
(actions/transition-background entities :outside-house [257 90] :face :left))}]}))
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user