diff --git a/desktop/src-common/advent/screens/scene.clj b/desktop/src-common/advent/screens/scene.clj index 5be37a18..38bcbc3a 100644 --- a/desktop/src-common/advent/screens/scene.clj +++ b/desktop/src-common/advent/screens/scene.clj @@ -1008,13 +1008,13 @@ void main() :inventory (assoc (texture "inventory.png") :x 278 :y 0 :baseline 9000 :mouse-in? (zone/box 278 0 320 42) :opacity 0.8) - :fps (assoc (label "Copyright Bryce Covert 2015" (color :white) ) :x 5 :baseline 0 :opacity 0.1)})) + :fps (assoc (label "" (color :white) ) :x 5 :baseline 0 :opacity 0.1)})) :on-render (fn [screen [entities]] (let [entities (utils/apply-tweens screen entities (:tweens entities))] #_(label! (:fps entities) :set-text (str (game :fps))) - (render! screen [(:fps entities) (:inventory entities) (:close entities)]) + (render! screen [ (:inventory entities) (:close entities)]) entities)) :on-resize diff --git a/desktop/src-common/advent/screens/title.clj b/desktop/src-common/advent/screens/title.clj index 4940083f..e8582200 100644 --- a/desktop/src-common/advent/screens/title.clj +++ b/desktop/src-common/advent/screens/title.clj @@ -75,6 +75,8 @@ (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 (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) fullscreen (assoc (label "Windowed" (style :label font (color 0.6 1.0 1.0 1.0))) :x 0 :y (- 280 (* 32 5)) :height 32 :origin-x 0 :origin-y 0) fullscreen (center fullscreen) quit (assoc (label "End quest" (style :label font (color 0.6 1.0 1.0 1.0))) :x 0 :y (- 280 (* 32 6)) :height 32 :origin-x 0 :origin-y 0) @@ -139,6 +141,7 @@ :start-playing start-playing :quit quit :fullscreen fullscreen + :copyright copyright :tweens {:fade-in (tween/tween :fade-in screen [:fade :opacity] 1.0 0.0 1.0 :finish #(do (utils/play-sound (:music %)) %) :ease tween/ease-in-quadratic)}})) @@ -151,7 +154,7 @@ entities (fly-ego screen entities)] (music! (:music entities) :set-volume (utils/current-music-volume (:volume entities))) - (render! screen [(:background entities) (:particle-clouds entities) (:cloud-background entities) (:ego-jet entities) (:flying-ego entities) (:logo entities) (:toolbox entities) (:start-playing entities) (:quit entities) (:fullscreen entities) (:music-label entities) (:music-volume-slider entities) (:sound-label entities) (:sound-volume-slider entities) (:fade entities) ]) + (render! screen [(:background entities) (:particle-clouds entities) (:cloud-background entities) (:ego-jet entities) (:flying-ego entities) (:logo entities) (:toolbox entities) (:start-playing entities) (:quit entities) (:fullscreen entities) (:music-label entities) (:music-volume-slider entities) (:sound-label entities) (:sound-volume-slider entities) (:copyright entities) (:fade entities) ]) entities)) :show-screen (fn [entities]