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

started save menu.

Browse Source
This commit is contained in:
Bryce Covert
2015-09-25 22:16:29 -07:00
parent edd7e59fdd
commit c732d15750
1 changed files with 21 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -93,7 +93,7 @@
"Continue quest" "Continue quest"
"Begin quest")) "Begin quest"))
(defn start-playing [screen entities] (defn start-playing [screen entities save]
(do (input! :set-cursor-image (utils/cursor "cursor.png" :hourglass) 0 0) (do (input! :set-cursor-image (utils/cursor "cursor.png" :hourglass) 0 0)
(-> entities (-> entities
(assoc-in [:tweens :fade-out] (assoc-in [:tweens :fade-out]
@@ -162,8 +162,15 @@
(defn saves-menu [] (defn saves-menu []
{"Where we left off" (-> (make-label "Where we left off") {"Where we left off" (-> (make-label "Where we left off")
(stack-y 280 0) (stack-y 280 0)
(assoc :z 8))}) (assoc :z 8
:interactable true
:save "Where we left off"))
"Our tale's beginning" (-> (make-label "Our tale's beginning")
(stack-y 280 1)
(assoc :z 8
:interactable true
:save "Our tale's beginning"))})
(defscreen title-screen (defscreen title-screen
:on-show :on-show
@@ -213,6 +220,7 @@
:z 7) :z 7)
center) center)
:main-menu (main-menu) :main-menu (main-menu)
:saves-menu (saves-menu)
:font font :font font
:music music :music music
:volume 1.0 :volume 1.0
@@ -224,7 +232,7 @@
(utils/play-sound (:music %)) %) (utils/play-sound (:music %)) %)
:ease tween/ease-in-quadratic)}} :ease tween/ease-in-quadratic)}}
] ]
(merge entities (:main-menu entities))))) (merge entities (:main-menu entities)))))
:on-render :on-render
(fn [{:keys [^FitViewport viewport] :as screen} [entities]] (fn [{:keys [^FitViewport viewport] :as screen} [entities]]
@@ -273,17 +281,25 @@
entities) entities)
:on-touch-up (fn [screen [entities]] :on-touch-up (fn [screen [entities]]
(println "HERE")
(when-not (get-in entities [:tweens :fade-out]) (when-not (get-in entities [:tweens :fade-out])
(let [[x y] (utils/unproject screen)] (let [[x y] (utils/unproject screen)]
(cond (cond
(utils/intersects? (:start-playing entities) [x y]) (utils/intersects? (:start-playing entities) [x y])
(start-playing screen entities) (-> (apply dissoc entities (keys (:main-menu entities)))
(merge (:saves-menu entities)))
(utils/intersects? (:quit entities) [x y]) (utils/intersects? (:quit entities) [x y])
(quit screen entities) (quit screen entities)
(utils/intersects? (:fullscreen entities) [x y]) (utils/intersects? (:fullscreen entities) [x y])
(utils/toggle-fullscreen!) (utils/toggle-fullscreen!)
(utils/intersects? (entities "Where we left off") [x y])
(start-playing screen entities "Where we left off")
(utils/intersects? (entities "Our tale's beginning") [x y])
(start-playing screen entities "Our tale's beginning")
:else :else
nil)))) nil))))