new title
This commit is contained in:
Binary file not shown.
|
Before Width: | Height: | Size: 1.6 KiB After Width: | Height: | Size: 1.9 KiB |
Binary file not shown.
@@ -63,6 +63,11 @@
|
||||
:opacity 1.0
|
||||
:origin-x 0
|
||||
:origin-y 0)
|
||||
:flying-ego (assoc (texture "ego/flying.png")
|
||||
:scale-x 5
|
||||
:scale-y 5
|
||||
:x 450
|
||||
:y 650)
|
||||
:clouds (assoc (particle-effect "titleclouds" :reset :start) :x 640 :y 480 )
|
||||
:toolbox (center (assoc (nine-patch {:region (:object (texture "talk-bg-2.png")) :left 9 :top 9 :right 9 :bottom 9})
|
||||
:y 90 :width 500 :height 250))
|
||||
@@ -106,7 +111,7 @@
|
||||
(let [entities (utils/apply-tweens screen entities (:tweens entities))]
|
||||
(music! (:music entities) :set-volume (utils/current-music-volume (:volume entities)))
|
||||
()
|
||||
(render! screen [(:overlay entities) (:clouds entities) (:toolbox entities) (:start-playing entities) (:quit entities) (:music-label entities) (:music-volume-slider entities) (:sound-label entities) (:sound-volume-slider entities) (:fade entities) ])
|
||||
(render! screen [(:overlay entities) (:clouds entities) (:flying-ego entities) (:toolbox entities) (:start-playing entities) (:quit entities) (:music-label entities) (:music-volume-slider entities) (:sound-label entities) (:sound-volume-slider entities) (:fade entities) ])
|
||||
entities))
|
||||
|
||||
:show-screen (fn [entities]
|
||||
|
||||
Reference in New Issue
Block a user