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

preparing for quittable scripts.

Browse Source
This commit is contained in:
Bryce Covert
2015-08-13 12:48:11 -07:00
parent 919695de81
commit ac3b8665ef
6 changed files with 66 additions and 66 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -72,8 +72,8 @@
(terminate [this screen entities]
entities)
(can-skip? [this screen entities]
false)))
(skip-type [this screen entities]
:none)))
(defn swing-at-blergh [entities]
(let [jump-path (bezier (map #(apply vector-2* %) [[35 45] [110 145] [195 180]]))
@@ -127,8 +127,8 @@
(terminate [this screen entities]
(assoc-in entities [:room :entities :ego :move-pct] 0.0))
(can-skip? [this screen entities]
false))
(skip-type [this screen entities]
:none))
(actions/run-action entities
(begin [this screen entities]
@@ -153,9 +153,9 @@
(-> entities
(assoc-in [:room :entities :ego :move-pct] 0.0)
(update-in [:room :entities :ego] #(actions/start-animation screen % :pant))))
(can-skip? [this screen entities]
(skip-type [this screen entities]
false))
:none))
(actions/run-action entities
(begin [this screen entities]
(assoc-in entities [:tweens :flash] (tween/tween :flash screen [:white-fade :opacity] 1.0 0.0 3.0 :ease tween/ease-in-quadratic)))
@@ -168,8 +168,8 @@
(terminate [this screen entities]
entities)
(can-skip? [this screen entities]
false))))
(skip-type [this screen entities]
:none))))