progress on ending.
This commit is contained in:
Bryce Covert
@@ -19,106 +19,18 @@
|
||||
(defn make-night [entities]
|
||||
entities)
|
||||
|
||||
(defn walk-to-frankie [entities]
|
||||
(actions/walk-to entities :ego [268 61] :face :left))
|
||||
|
||||
|
||||
(defn drop-walkie-talkie [entities]
|
||||
(actions/talk entities :ego "I'll drop one of these off in here.")
|
||||
(actions/walk-to entities :ego [155 64])
|
||||
(actions/walk-straight-to entities :ego [106 18] :face :left)
|
||||
(actions/play-animation entities :ego :squat)
|
||||
(actions/remove-item entities :walkie-talkies)
|
||||
(actions/give entities :walkie-talkie)
|
||||
(actions/walk-straight-to entities :ego [155 64]))
|
||||
|
||||
|
||||
|
||||
(defn present-frankie-choices [entities]
|
||||
(actions/present-choices entities {:choices ["Please, Frankie. Give me my stuff back!"
|
||||
{:run #(do (actions/respond entities %
|
||||
:frankie "Not a chance, Dipstick."
|
||||
:frankie "Burglers like us gotta eat too, you know."
|
||||
:ego "But it's a matter of life and death!"
|
||||
:ego "Plus, Georgia's counting on me!")
|
||||
(actions/georgia-say entities "I'm counting on you, Tick!")
|
||||
(actions/do-dialogue entities
|
||||
:frankie "Georgia's going steady with me now, Dipstick."
|
||||
:frankie "No day-dreaming about my girlfriend!")
|
||||
(actions/play-animation entities :frankie :laugh)
|
||||
(actions/do-dialogue entities :frankie "You'd be better off if you just packed your bags and left town."
|
||||
:frankie "Ain't that right, boys?")
|
||||
(actions/play-animation entities :frankie :glance))
|
||||
:choices actions/previous-choices}
|
||||
|
||||
"You guys are nothing but a bunch of crooks!"
|
||||
{:run #(do (actions/respond entities %
|
||||
:frankie "Oh please."
|
||||
:frankie "Like you're so different."
|
||||
:frankie "Am I right, boys?")
|
||||
(actions/play-animation entities :frankie :glance)
|
||||
(actions/do-dialogue entities
|
||||
:frankie "We steal gold, diamonds, and relic slingshots."
|
||||
:frankie "And you steal teddy bears.")
|
||||
(actions/play-animation entities :frankie :laugh))
|
||||
:choices actions/previous-choices}
|
||||
|
||||
"Where is your secret stash?"
|
||||
{:run #(do (actions/respond entities % :frankie "Like I'd ever tell you, Dipstick.")
|
||||
(actions/play-animation entities :frankie :laugh)
|
||||
(actions/do-dialogue entities :frankie "That's only for people in the 'Super secret cool club'!"))
|
||||
:choices actions/previous-choices}
|
||||
|
||||
(when-not (get-in @entities [:state :bubba-gone?])
|
||||
"I found your secret stash!")
|
||||
{:run #(do (actions/respond entities %
|
||||
:frankie "What?!"
|
||||
:frankie "Impossible!")
|
||||
(actions/play-animation entities :frankie :laugh)
|
||||
(actions/update-state entities (fn [s] (assoc s :bubba-gone? true)))
|
||||
(actions/do-dialogue entities :frankie "Bubba, go check to make sure our stuff is safe."
|
||||
:goon-2 "You got it, boss.")
|
||||
(actions/walk-straight-to entities :goon-2 [0 100]))}
|
||||
|
||||
"Nevermind."
|
||||
{:run #(actions/respond entities % :frankie "Come back when you've got some good valuables.")}]}))
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
(defn make-frankie [screen]
|
||||
(let [stand (utils/make-anim "castle-gate/frankie.png" [24 35] 0.19 [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1])
|
||||
talk (utils/make-anim "castle-gate/frankie.png" [24 35] 0.2 [2 0 2 0 2 0 2 0 0 1 0])
|
||||
laugh (utils/make-anim "castle-gate/frankie.png" [24 35] 0.1 [1 3 4 3 4 3 4 3 4 3 4 3 4 1 0])
|
||||
glance (utils/make-anim "castle-gate/frankie.png" [24 35] 0.25 [0 6 0 6 5 5 5 6 7 7 7 6 ])
|
||||
reach (utils/make-anim "castle-gate/frankie.png" [24 35] 0.2 [0 8 9 9 9 9 8])
|
||||
flex (utils/make-anim "castle-gate/frankie.png" [24 35] 0.2 [0 10 11 12 12 12 12 11 10])]
|
||||
(assoc (animation->texture screen stand)
|
||||
:x 235 :y 90 :baseline 150
|
||||
:origin-x 12
|
||||
:origin-y 0
|
||||
:anim stand
|
||||
:anim-start 0
|
||||
:night-profile :sprite
|
||||
:scale-x 1.4
|
||||
:scale-y 1.4
|
||||
:talk-color common/frankie-color
|
||||
:talk talk
|
||||
:flex flex
|
||||
:stand stand
|
||||
:laugh laugh
|
||||
:glance glance
|
||||
:reach reach
|
||||
:script (actions/get-script entities
|
||||
(walk-to-frankie entities)
|
||||
(actions/talk entities :ego "Listen, Frankie...")
|
||||
(present-frankie-choices entities))
|
||||
|
||||
:scripts {:walkie-talkies (actions/get-script entities
|
||||
(actions/do-dialogue entities :frankie "Tin cans? What do I need walkie talkies for?"))
|
||||
:default (actions/get-script entities
|
||||
(actions/do-dialogue entities :frankie "What? Wanting to give up more of your goodies?"))})))
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
(defn make-coin-flip [screen]
|
||||
(let [coin-flip (utils/make-anim "castle-gate/coinflip.png" [10 10] 0.05 (range 5))]
|
||||
@@ -277,7 +189,7 @@
|
||||
(assoc (utils/get-texture "castle-gate/overlay.png") :x 0 :y 0 :baseline 240)]
|
||||
:night [(assoc (utils/get-texture "castle-gate/background.png") :x 0 :y 0 :baseline 0)
|
||||
(assoc (utils/get-texture "castle-gate/overlay.png") :x 0 :y 0 :baseline 240)]}
|
||||
:entities {:frankie (make-frankie screen)
|
||||
:entities {:frankie (common/make-frankie screen)
|
||||
:goon-1 (make-goon-1 screen)
|
||||
:goon-2 (make-goon-2 screen)
|
||||
:outside-particles (common/make-outside-particles)
|
||||
|
||||
Reference in New Issue
Block a user