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

more work on intro.

Browse Source
This commit is contained in:
Remington Covert
2015-04-15 19:43:25 -07:00
parent 146ccebdb9
commit 199558e9db
3 changed files with 52 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
desktop/src-common/advent/screens/scene.clj
View File

@@ -616,6 +616,10 @@
(if-let [apply-state (get-in entities [:room :apply-state])]
(apply-state entities)
entities)))))
:on-resume (fn [screen [entities]]
(doseq [[k [start time fn]] (get-in entities [:room :timers])]
(add-timer! screen k start time)))
:on-render
(fn [{:keys [camera] :as screen} [entities]]
@@ -746,7 +750,7 @@
(script entities)
entities)
:hud-active? (fn [{:keys [hud-active?]} [entities]]
(assoc-in entities [:state :hud-active?] hud-active?)))
(assoc-in entities [:state :hud-active?] hud-active?))) ()
(defn grow-hud [screen entities target up?]