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

improving the story a bit.

Browse Source
This commit is contained in:
Bryce Covert
2015-01-01 11:04:17 -08:00
parent 1ee46df3f1
commit 9d3772b976
9 changed files with 97 additions and 124 deletions
Download Patch File Download Diff File Expand all files Collapse all files

72
desktop/src-common/advent/screens/rooms/outside_castle.clj
View File

@@ -122,8 +122,41 @@
(defn should-block? [entities]
(and (= :night (get-in @entities [:state :time]))
(actions/has-obtained? entities :spell-component)
(not (castle-gate/payed-toll? entities))))
(actions/has-obtained? entities :flask-2)))
(defn frankie-comment-on-item [entities]
(cond
(actions/has-item? entities :glass-eye) (do
(actions/remove-item entities :glass-eye)
(actions/do-dialogue entities
:frankie "And how about that? A glass eye."
:frankie "And not only that, it's the choicest of glass eyes!"
:frankie "It must be made of the choicest glass, from across the sea!"
:frankie "This'll be perfect for when I punch your eye out Faceplant."
:frankie "Or, I could fetch some real good dough for this."
:frankie "What would you say boys?")
(actions/play-animation entities :frankie :glance)
(actions/do-dialogue entities :frankie "95 sheckles?"))
(actions/has-item? entities :used-earplugs) (do
(actions/remove-item entities :used-earplugs)
(actions/do-dialogue entities
:frankie "And how about that? Some used earplugs."
:frankie "Wow! These are the choicest of earplugs!"
:frankie "They're great for tuning out your voice, Faceplant!"
:frankie "But, I could fetch some real good dough for them."
:frankie "What would you say boys? ")
(actions/play-animation entities :frankie :glance)
(actions/do-dialogue entities :frankie "10 sheckels?"))
(actions/has-item? entities :motivational-tapes) (do
(actions/remove-item entities :motivational-tapes)
(actions/do-dialogue entities
:frankie "And how about that? Some used earplugs."
:frankie "Wow! These are the choicest of earplugs!"
:frankie "They're great for tuning out your voice, Faceplant!"
:frankie "But, I could fetch some real good dough for them."
:frankie "What would you say boys? ")
(actions/play-animation entities :frankie :glance)
(actions/do-dialogue entities :frankie "3 easy payments of 29.99 sheckles?"))))
(defn block-entrance [entities]
(actions/transition-background entities :castle-gate [340 40])
@@ -150,8 +183,39 @@
(actions/do-dialogue entities
:ego "I'm just passing through..."
:frankie "Not tonight you're not."
:frankie "Unless, of course, you can pay the toll.")
(castle-gate/present-frankie-choices entities)))
:frankie "Unless, of course, you can pay the toll."
:frankie "Come here, faceplant."
:ego "Umm, err, I'd rather not."
:frankie "I said, come here."
:frankie "Now.")
(actions/walk-straight-to entities :ego [254 80])
(actions/do-dialogue entities
:frankie "Now what have we got to give us today, Faceplant?"
:frankie "A strength potion, oh very nice!"
:frankie "And some gold..."
:frankie "And what's this?"
:frankie "The Slinger's Shot?"
:ego "No, not the Slinger's Shot!"
:franki "Look like we hit the jackpot tonight boys!")
(frankie-comment-on-item entities)
(actions/give entities :money)
(actions/do-dialogue entities
:frankie "Here's a little tip for your troubles, Faceplant."
:frankie "Bubba, put this stuff in the secret stash."
:frankie "Now move along, Faceplant."
:frankie "Before we decide to take all of your stuff."
:ego "But I need that slingshot!"
:frankie "Too bad. Move along.")
(actions/remove-item entities :flask-1-strength)
(actions/remove-item entities :medal)
(actions/remove-item entities :trophy)
(actions/remove-item entities :slingshot)
(actions/walk-to entities :ego [181 79])
(actions/do-dialogue entities
:ego "Now what am I going to do?"
:ego "How will I break the news to Gandarf that I lost the Slinger's Shot?"
:ego "My sweet Georgia McGorgeous, I will find a way to save you!")))
(actions/update-state entities #(assoc % :seen-frankie? true)))