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

don't stop while quaking, added logo

Browse Source
This commit is contained in:
Bryce Covert
2016-03-08 07:44:40 -08:00
parent 5980a31706
commit e89d3ffbc8
19 changed files with 3125 additions and 3153 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -110,8 +110,8 @@
(defn quest-label []
(if (seq (utils/snapshot-list))
"Continue quest"
"Begin quest"))
"Continue Quest"
"Begin Quest"))
(defn start-playing [screen entities save]
(do (log/info "Starting/Continuing quest.")
@@ -214,7 +214,7 @@
(defn main-menu []
(let [start-playing-label (quest-label)
is-starting? (= "Begin quest" start-playing-label)]
is-starting? (= "Begin Quest" start-playing-label)]
(make-table [[(make-button start-playing-label :key :continue-or-start) :height 56 :pad-bottom 4 :width 250]
:row
[(doto (make-button "Load" :key :load)
@@ -230,7 +230,7 @@
[(make-button "Settings" :key :settings) :height 56 :pad-bottom 4 :width 250]
:row
[(make-button "End quest" :key :end-quest) :height 56 :width 250]
[(make-button "End Quest" :key :end-quest) :height 56 :width 250]
])))
(defn chapters-menu []
@@ -481,7 +481,7 @@
(quit screen entities)
(= :continue-or-start actor-key)
(start-playing screen entities (if (= "Begin quest" (quest-label))
(start-playing screen entities (if (= "Begin Quest" (quest-label))
nil
(first (utils/snapshot-list))))
(= :continue actor-key)