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

demo version.

Browse Source
This commit is contained in:
Bryce Covert
2015-08-25 07:51:22 -07:00
parent e956b11dba
commit ecbec4250a
2 changed files with 18 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1125,6 +1125,23 @@ void main()
(tween/tween [target grow-or-shrink :opacity] screen [target :opacity] opacity-from opacity-to 0.15 :ease tween/ease-in-out-quadratic)))
entities)))
(defscreen demo
:on-show
(fn [screen entities]
(let [screen (assoc screen :total-time 0)]
(utils/setup-viewport screen 640 480)
{:label (assoc (label "Demo version - DO NOT COPY" (color :white) ) :y 0 :x 5 :baseline 0 :opacity 0.5)}))
:on-render
(fn [screen [entities]]
(render! screen [(:label entities)])
entities)
:on-resize
(fn [screen entities]
(.update (:viewport screen) (:width screen) (:height screen) true))
)
(defscreen hud
:on-show
(fn [screen entities]

2
desktop/src-common/advent/screens/title.clj
View File

@@ -198,7 +198,7 @@
(tween/tween :fade-out screen [:fade :opacity] 0.0 1.0 1.0
:finish (fn [entities]
(utils/stop-sound (:music entities))
(set-screen! @(resolve 'advent.core/advent) scene/scene scene/hud dialogue/talking-screen dialogue/choice-screen inventory/inventory-screen safe/safe-screen fade/fade-screen)
(set-screen! @(resolve 'advent.core/advent) scene/scene scene/hud dialogue/talking-screen dialogue/choice-screen inventory/inventory-screen safe/safe-screen scene/demo fade/fade-screen)
entities)
:ease tween/ease-in-cubic))
(assoc-in [:tweens :fade-out-music]