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

bloodclot scene.

Browse Source
This commit is contained in:
Bryce Covert
2015-05-11 23:12:27 -07:00
parent c6aad2a33b
commit 31d2dbf5e9
8 changed files with 90 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

71
desktop/src-common/advent/screens/rooms/held.clj
View File

@@ -14,22 +14,75 @@
[play-clj.math :refer :all]
[play-clj.g2d :refer :all]))
(defn bloodclot-choices [entities]
(actions/present-choices entities {:choices ["I'm just a kid! You wouldn't eat a kid, would you?"
{:run #(actions/respond entities %
:bloodclot-head "But I love eating young, tender children!"
:bloodclot-head "My mother would sing while making children stew."
:bloodclot-head "'Eat the humans while they're young,'\n'Eat the liver, spleen, and lung!'"
:bloodclot-head "Just singing that makes my mouth water.")
:choices actions/previous-choices}
"I'm covered in poison!"
{:run #(actions/respond entities %
:bloodclot-head "Actually, us goblins quite enjoy poison."
:bloodclot-head "It's like a good hotsauce."
:bloodclot-head "A good poison makes the meal pack a punch.")
:choices actions/previous-choices}
"I've got something in my pocket you might be interested in."
{:run #(do (actions/respond entities %
:bloodclot-head "Oh yeah, like what?")
(actions/update-entities entities (fn [e] (assoc-in e [:room :bloodclot-timer] 0))))}]}))
(defn add-second [screen entities]
(when (and (not (get-in entities [:actions :script-running?]))
(get-in entities [:state :active?]))
(if (> (get-in entities [:room :bloodclot-timer] 0) 7)
(do
((actions/get-script entities (actions/talk entities :bloodclot-head "Time is up, runt.")
(bloodclot-choices entities)) entities)
nil)
(update-in entities [:room :bloodclot-timer] (fnil inc 0)))))
(defn bloodclot-talk-script [entities]
(actions/talk entities :ego "Let me down Bloodclot!" :anim :suspended-talk)
(actions/do-dialogue entities :bloodclot-head "Not a chance."
:bloodclot-head "It's dinnertime, runt."))
(actions/do-dialogue entities :bloodclot-head "You've been a nuisance since I first met you!"
:bloodclot-head "Why shouldn't I gobble you up?")
(bloodclot-choices entities))
(defn fail-item [who msg]
(actions/get-script entities
(actions/talk entities who msg)))
(defn make [screen]
(let [bloodclot-talk (utils/make-anim "held/bloodclot-head.png" [114 82] 0.1 [0 1 2 1 0 3 3 0 1 2 1 0 3 4 5 6 5 3 3 1 2 1 3 3 3 3 3 0 0 0 7 8 7])
bloodclot-stand (utils/make-anim "held/bloodclot-head.png" [114 82] 0.1 (flatten [(repeat 15 0) 7 8 7]))]
(rooms/make :music :fight
:interactions {}
:layers [(assoc (texture "held/background.png") :x 0 :y 0 :baseline 0)]
:interactions {:bloodclot {:box [182 42 270 196]
:script (actions/get-script entities
(bloodclot-talk-script entities))
:scripts #(condp = %
:magic-slingshot (fail-item :ego "I only had one bullet!")
:spear (fail-item :ego "I'm not strong enough to reach it!")
:sword (fail-item :ego "I'm not strong enough to reach it!")
:crowbar (fail-item :ego "I'm not strong enough to reach it!")
:medal (fail-item :bloodclot-head "Where is your might now, runt?")
:trophy (fail-item :bloodclot-head "Seems like your wisdom has failed you today.")
:kiss (fail-item :bloodclot-head "Your bravery won't save you from my belly!")
:note-1 (fail-item :bloodclot-head "I'm afraid Gandarf will be of no use to you now.")
:note-2 (fail-item :bloodclot-head "I'm afraid Gandarf will be of no use to you now.")
:flask-1-strength (common/win)
(actions/get-script entities
(actions/talk entities :bloodclot-head "Don't make me laugh kid!")))
}}
:timers {:taunt [5.0 1.0 add-second]}
:layers [(assoc (texture "held/background.png") :x 0 :y 0 :baseline 0)
(assoc (texture "held/hand.png") :x 0 :y 0 :baseline 240)]
:entities {:bloodclot-head (assoc (animation->texture screen bloodclot-stand)
:x 211 :y 114 :baseline 240
:x 211 :y 115 :baseline 240
:origin-x 57 :origin-y 0
:script (actions/get-script entities
(bloodclot-talk-script entities))
:stand bloodclot-stand
:talk bloodclot-talk
:anim bloodclot-stand
@@ -41,4 +94,6 @@
(-> e
(assoc-in [:cam :paused? ] true)
(update-in [:tweens] dissoc :cam-x :cam-y)
(update-in [:room :entities :ego] #(actions/start-animation screen % :suspended)))))))
(update-in [:room :entities :ego] #(actions/start-animation screen % :suspended))
(assoc-in [:room :entities :ego :stand-override] :suspended)
(assoc-in [:room :entities :ego :talk-override] :suspended-talk))))))