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

getting ready for godfather sequence.

Browse Source
This commit is contained in:
Bryce Covert
2015-03-24 16:47:43 -07:00
parent f528688f8c
commit be18b75d87
5 changed files with 929 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
desktop/src-common/advent/screens/rooms/dream.clj
View File

@@ -246,8 +246,11 @@
:fairy-godfather (assoc (animation->texture screen fairy-godfather-anim)
:x 200 :y 130
:baseline 240
:origin-x 31
:origin-y 0
:anim fairy-godfather-anim :anim-start 0
:path (catmull-rom-spline (map #(apply vector-2* %) [[200 130] [200 134]]) true)
:scaled true
:left {:walk fairy-godfather-anim
:talk fairy-godfather-talk-anim
:stand fairy-godfather-anim}
@@ -260,9 +263,29 @@
e))
:script (actions/get-script entities
(actions/do-dialogue entities :fairy-godfather "Young Tick, you must choose your destiny!")))}
(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 "Tough luck"))
:choices actions/previous-choices}
"Look out!"
{:run #(do (actions/respond entities %
:fairy-godfather "What is it?"
:ego "Err... Um..."
:ego "I saw a, um..."))
:choices ["... a dragon!"
{:run #(do (actions/respond entities %
:ego "Yes, that's it! A dragon!"
:fairy-godfather "Over there on that island!?!")
(actions/update-entities entities (fn [e] (update-in e [:room :entities :fairy-godfather] dissoc :path)))
(actions/walk-straight-to entities :fairy-godfather [211 210] )
(actions/talk entities :fairy-godfather "Test"))}] }
"Nevermind."
{:run #(actions/respond entities % :fairy-godfather "Don't worry, Tick.")}]})))}
:collision "dream/collision.png"
:scale-fn (utils/scaler-fn-with-baseline 40 0.5 1.6)
:scale-fn (utils/scaler-fn-from-image "dream/scale.png" 0.1 1.3)
:apply-state (fn [entities]
(if (get-in entities [:state :seen-intro?])
(set-opacity entities 1.0 1.0)