explosion

This commit is contained in:
Bryce Covert
2015-11-23 12:51:59 -08:00
parent 137b6b2f66
commit aa6931b4c7
8 changed files with 8 additions and 1 deletions

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@@ -230,6 +230,13 @@
:experiment (rooms/make-entity :experiment (assoc (animation->texture screen experiment-left)
:x 228 :y 60 :scale-x 1.75 :scale-y 1.75 :origin-x 13 :origin-y 0
:experiment experiment-left
:drip-sound (utils/load-sound "wizard/drip.ogg")
:explode-sound (utils/load-sound "wizard/explode.ogg")
:anim-sound-frames {experiment-left {31 [:drip-sound 0.5]
67 [:drip-sound 0.5]
73 [:explode-sound (constantly 0.8)]
}}
:baseline 225))
:collision "inside-house/collision.png"
:scale-fn (utils/scaler-fn-with-baseline 110 0.10 1.75)

View File

@@ -633,7 +633,7 @@
(actions/talk entities :ego "It's locked.")
(do (actions/play-animation entities :door :open)
(actions/transition-background entities :inside-house [237 0] :between (fn [s e]
(if (= 1 (rand-int 4))
(if (= 1 (rand-int 2))
(assoc-in e [:room :entities :experiment] (get-in e [:room :experiment]))
e)))
(when (get-in @entities [:room :entities :experiment])