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

fixing dbh credits

Browse Source
This commit is contained in:
Bryce Covert
2017-09-21 09:02:07 -07:00
parent bc18d85ad1
commit 95afad3756
8 changed files with 48 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
desktop/src-common/advent/screens/credits.clj
View File

@@ -33,7 +33,7 @@
["CEO"
"Cesar Bittar"]
["General Manager"
"Scott Steinburg"]]
"Scott Steinberg"]]
[:pos ["QA"
"Dane Tippman"
"Henri Hänninen"
@@ -153,25 +153,27 @@
:on-show
(fn [screen entities options]
(utils/setup-viewport screen 1280 960)
(graphics! :set-cursor (utils/cursor "cursor.png" :main))
(let [[screen atlas] (utils/acquire-atlas screen "packed/global.atlas")
[screen credits-atlas] (utils/acquire-atlas screen "packed/credits.atlas")
font (bitmap-font "ego/font.fnt" )]
{:font font
:bg (assoc (utils/atlas->texture atlas "black")
:scale-x 80
:scale-y 80
:opacity 1.0
:origin-x 0
:origin-y 0)
:scale-x 80
:scale-y 80
:opacity 1.0
:origin-x 0
:origin-y 0)
:fade (assoc (utils/atlas->texture atlas "black")
:scale-x 80
:scale-y 80
:opacity 0.0
:origin-x 0
:origin-y 0)
:scale-x 80
:scale-y 80
:opacity 0.0
:origin-x 0
:origin-y 0)
:pos (assoc (utils/atlas->texture atlas "black") :x 640 :y 700 :scale-x 1 :scale-y 1 :origin-x 145 :origin-y 0 :z 1 :opacity 0.0)
:dbh (assoc (utils/atlas->texture atlas "black") :x 640 :y 500 :scale-x 0.5 :scale-y 0.5 :origin-x 640 :origin-y 0 :z 1 :opacity 0.0)
:pos (assoc (utils/atlas->texture credits-atlas "pos.png") :x 640 :y 700 :scale-x 1 :scale-y 1 :origin-x 145 :origin-y 0 :z 1 :opacity 0.0)
:dbh (assoc (utils/atlas->texture credits-atlas "dbh.png") :x 640 :y 500 :scale-x 2 :scale-y 2 :origin-x 160 :origin-y 0 :z 1 :opacity 0.0)
:remaining-messages (cond (= @saved-took? :died)
(conj credit-messages [nil
@@ -209,5 +211,7 @@
(set-screen! @(resolve 'advent.core/advent) @(resolve 'advent.screens.title/title-screen)))
:on-resize (fn [{:keys [^FitViewport viewport]} entities {:keys [width height]}]
(.update viewport width height)))
(.update viewport width height))
:on-hide (fn [screen entities options]
(utils/release-resources screen)))