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

continueable quest.

Browse Source
This commit is contained in:
Bryce Covert
2015-08-03 21:37:19 -07:00
parent 350ed16cb2
commit ef05405ecf
2 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -66,6 +66,11 @@
(texture! flipped :flip true false)
flipped))
(defn quest-label []
(if (:seen-intro? (scene/get-state))
"Continue quest"
"Begin quest"))
(defscreen title-screen
:on-show
(fn [screen entities]
@@ -73,7 +78,7 @@
(utils/setup-viewport screen 1280 960)
(utils/load-settings!)
(let [font (utils/get-font "ego/font.fnt")
start-playing (assoc (label "Begin quest" (style :label font (color 0.6 1.0 1.0 1.0))) :x 0 :y 280 :height 32 :origin-x 0 :origin-y 0)
start-playing (assoc (label (quest-label) (style :label font (color 0.6 1.0 1.0 1.0))) :x 0 :y 280 :height 32 :origin-x 0 :origin-y 0)
start-playing (center start-playing)
copyright (assoc (label "DEMO - Copyright Bryce Covert - Not for distribution" (style :label font (color 0.6 1.0 1.0 1.0))) :x 0 :y 0 :height 32 :origin-x 0 :origin-y 0)
copyright (center copyright)