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

iprogress

Browse Source
This commit is contained in:
Bryce Covert
2018-02-11 18:56:33 -08:00
parent c52784d5e5
commit 1c6f61c5d2
20 changed files with 18 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -459,20 +459,26 @@
entities)
(skip-type [this screen entities]
:none))
(actions/play-sound entities :swallow 0.5)
(Thread/sleep 1500)
(actions/update-entities entities (fn [e]
(-> e
(assoc-in [:room :entities :falling-bg :opacity] 1)
(assoc-in [:room :entities :falling-ego :opacity] 1))))
(actions/play-sound entities :falling-ego 0.2)
(Thread/sleep 4000)
(show-big-bloodclot entities 1000)
(actions/update-entities entities (fn [e]
(-> e
(assoc-in [:room :entities :falling-bg :opacity] 1)
(assoc-in [:room :entities :falling-ego :opacity] 0)
(assoc-in [:room :entities :sword-spin :opacity] 1))))
(actions/play-sound entities :swoosh 0.5)
(Thread/sleep 2000))
(defn do-win [entities won?]
@@ -493,6 +499,7 @@
(fall-in entities))
(show-big-bloodclot entities 1000)
(actions/play-sound entities :big-swoosh 0.5)
(actions/update-entities entities (fn [e]
(-> e
@@ -513,12 +520,14 @@
(assoc-in [:room :entities :belly-bottom :opacity] 0))))
(show-big-bloodclot entities 0)
(Thread/sleep 1000)
(actions/play-sound entities :impact 0.5)
(actions/update-entities entities (fn [e]
(-> e
(update-in [:room :entities :bloodclot-swallow-top] #(actions/start-animation % :uhoh))
(update-in [:room :entities :bloodclot-swallow-bottom] #(actions/start-animation % :uhoh)))))
(Thread/sleep 2000)
(actions/play-sound entities :explode-sound 0.5)
(actions/update-entities entities (fn [e]
(-> e