fixed a couple glitches.
This commit is contained in:
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -1 +1 @@
|
|||||||
58
|
59
|
||||||
|
|||||||
@@ -190,6 +190,7 @@
|
|||||||
:wizard "Do you promise?")
|
:wizard "Do you promise?")
|
||||||
(actions/play-animation entities :ego :frog-nod :stop? false)
|
(actions/play-animation entities :ego :frog-nod :stop? false)
|
||||||
(actions/talk entities :wizard "Frustatium DISPOSIUM!!!" :anim :talk-angry :stop? false)
|
(actions/talk entities :wizard "Frustatium DISPOSIUM!!!" :anim :talk-angry :stop? false)
|
||||||
|
(actions/play-sound entities "ending-castle/georgia-appear.ogg" 0.5 false)
|
||||||
(particle-effect! (get-in @entities [:room :entities :magic-frog-particle]) :reset)
|
(particle-effect! (get-in @entities [:room :entities :magic-frog-particle]) :reset)
|
||||||
(particle-effect! (get-in @entities [:room :entities :magic-frog-particle]) :start)
|
(particle-effect! (get-in @entities [:room :entities :magic-frog-particle]) :start)
|
||||||
(Thread/sleep 1500)
|
(Thread/sleep 1500)
|
||||||
|
|||||||
@@ -25,15 +25,15 @@
|
|||||||
|
|
||||||
(defn fade-in [screen e thing then]
|
(defn fade-in [screen e thing then]
|
||||||
(assoc-in e [:tweens :fade-in]
|
(assoc-in e [:tweens :fade-in]
|
||||||
(tween/tween :fade-in screen [thing :opacity] 0.0 1.0 1.0
|
(tween/tween :fade-in screen [thing :opacity] 0.0 1.0 0.5
|
||||||
:finish then
|
:finish then
|
||||||
:ease tween/ease-in-quadratic)))
|
:ease tween/ease-in-quadratic)))
|
||||||
|
|
||||||
(defn fade-out [screen e thing then]
|
(defn fade-out [screen e thing then]
|
||||||
(assoc-in e [:tweens :fade-out]
|
(assoc-in e [:tweens :fade-out]
|
||||||
(tween/tween :fade-out screen [thing :opacity] 1.0 0.0 1.0
|
(tween/tween :fade-out screen [thing :opacity] 1.0 0.0 0.5
|
||||||
:finish then
|
:finish then
|
||||||
:ease tween/ease-in-quadratic)))
|
:ease tween/ease-out-quadratic)))
|
||||||
|
|
||||||
(defn get-texture [path]
|
(defn get-texture [path]
|
||||||
(let [atlas-name (str/replace path #".png" "")
|
(let [atlas-name (str/replace path #".png" "")
|
||||||
|
|||||||
Reference in New Issue
Block a user