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

ready for second level.

Browse Source
This commit is contained in:
Bryce Covert
2015-09-25 21:43:58 -07:00
parent df20373be5
commit a75aa068b6
1 changed files with 29 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -117,6 +117,15 @@
center center
(doto (label! :set-alignment Align/center)))))) (doto (label! :set-alignment Align/center))))))
(defn make-slider [initial-value]
(let [ui-skin (skin "ui/ui.json")]
(->
(slider {:min 0 :max 100 :step 1} ui-skin :set-value initial-value)
(assoc :width 300
:hover (skin! ui-skin :get "default-horizontal-hover" Slider$SliderStyle)
:default (skin! ui-skin :get "default-horizontal" Slider$SliderStyle)
:z 8))))
(defn stack-y [label base index] (defn stack-y [label base index]
(assoc label :y (- 280 (* 32 index)))) (assoc label :y (- 280 (* 32 index))))
@@ -126,15 +135,7 @@
(utils/setup-viewport screen 1280 960) (utils/setup-viewport screen 1280 960)
(utils/load-settings!) (utils/load-settings!)
(let [font (utils/get-font "ego/font.fnt") (let [font (utils/get-font "ego/font.fnt")
start-playing (-> (make-label (quest-label))
(stack-y 280 0))
copyright (make-label "DEMO - Copyright Bryce Covert - Not for distribution")
fullscreen (-> (make-label "Fullscreen")
(stack-y 280 5))
quit (-> (make-label "End quest")
(stack-y 280 6))
music (utils/make-music "music/intro.ogg") music (utils/make-music "music/intro.ogg")
ui-skin (skin "ui/ui.json")
balloon (utils/make-anim "title/balloon.png" [15 30] 0.45 (range 4))] balloon (utils/make-anim "title/balloon.png" [15 30] 0.45 (range 4))]
(input! :set-cursor-image (utils/cursor "cursor.png" :hourglass) 0 0) (input! :set-cursor-image (utils/cursor "cursor.png" :hourglass) 0 0)
@@ -166,39 +167,36 @@
:z 3) :z 3)
:particle-clouds (assoc (particle-effect "particles/particle-clouds" :reset :start) :x 640 :y 480 :z 1) :particle-clouds (assoc (particle-effect "particles/particle-clouds" :reset :start) :x 640 :y 480 :z 1)
:ego-jet (assoc (particle-effect "particles/jet" :reset :start) :x 450 :y 650 :z 4) :ego-jet (assoc (particle-effect "particles/jet" :reset :start) :x 450 :y 650 :z 4)
:toolbox (center (assoc (nine-patch {:region (:object (utils/get-texture "talk-bg-2.png")) :left 9 :top 9 :right 9 :bottom 9})
:toolbox (-> (assoc (nine-patch {:region (:object (utils/get-texture "talk-bg-2.png")) :left 9 :top 9 :right 9 :bottom 9})
:y 58 :width 500 :height 282 :y 58 :width 500 :height 282
:z 7)) :z 7)
center)
:start-playing (-> (make-label (quest-label))
(stack-y 280 0))
:music-label (-> (make-label "Music" (color :white)) :music-label (-> (make-label "Music" (color :white))
(stack-y 280 1)) (stack-y 280 1))
:music-volume-slider (-> (slider {:min 0 :max 100 :step 1} ui-skin :set-value (:music-volume @utils/settings))
(assoc :x (- (/ 1280 2) 150) :music-volume-slider (-> (make-slider (:music-volume @utils/settings))
:width 300 center
:y (- 280 (* 32 2)) (stack-y 280 2))
:hover (skin! ui-skin :get "default-horizontal-hover" Slider$SliderStyle)
:default (skin! ui-skin :get "default-horizontal" Slider$SliderStyle)
:z 8))
:sound-label (-> (make-label "FX" (color :white)) :sound-label (-> (make-label "FX" (color :white))
(stack-y 280 3)) (stack-y 280 3))
:sound-volume-slider (-> (make-slider (:sound-volume @utils/settings))
center
(stack-y 280 4))
:fullscreen (-> (make-label "Fullscreen")
(stack-y 280 5))
:quit (-> (make-label "End quest")
(stack-y 280 6))
:sound-volume-slider (assoc (slider {:min 0 :max 100 :step 1 } ui-skin :set-value (:sound-volume @utils/settings))
:width 300
:x ( - (/ 1280 2)
150)
:y (- 280 (* 32 4))
:z 8
:hover (skin! ui-skin :get "default-horizontal-hover" Slider$SliderStyle)
:default (skin! ui-skin :get "default-horizontal" Slider$SliderStyle))
:font font :font font
:music music :music music
:volume 1.0 :volume 1.0
:start-playing start-playing :copyright (make-label "DEMO - Copyright Bryce Covert - Not for distribution")
:quit quit
:fullscreen fullscreen
:copyright copyright
:tweens {:fade-in (tween/tween :fade-in screen [:fade :opacity] 1.0 0.0 1.0 :tweens {:fade-in (tween/tween :fade-in screen [:fade :opacity] 1.0 0.0 1.0
:finish #(do :finish #(do