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

save icon.

Browse Source
This commit is contained in:
Bryce Covert
2015-11-04 16:03:27 -08:00
parent 3762502cb0
commit 996c9770c8
11 changed files with 154 additions and 127 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
desktop/src-common/advent/screens/scene.clj
View File

@@ -1316,6 +1316,11 @@ void main ()
:width 16 :height 16
:baseline 9000
:opacity 0.8)
:save (assoc (utils/get-texture "save.png")
:x 286 :y 224
:width 16 :height 16
:baseline 9000
:opacity 0.8)
:inventory (assoc (utils/get-texture "inventory.png") :x 278 :y 0 :baseline 9000
:mouse-in? (zone/box 278 0 320 42)
:opacity 0.8)
@@ -1326,7 +1331,7 @@ void main ()
(.apply viewport)
(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 [ (:save entities) (:inventory entities) (:close entities)])
entities))
:on-resize
@@ -1337,18 +1342,23 @@ void main ()
(fn [screen [entities]]
(let [[x y] (utils/unproject screen)
hovered-inventory? ((:mouse-in? (:inventory entities)) x y)
hovered-close? (utils/intersects? (:close entities) [x y])]
(screen! scene :hud-active? :hud-active? (or hovered-close? hovered-inventory?))
hovered-close? (utils/intersects? (:close entities) [x y])
hovered-save? (utils/intersects? (:save entities) [x y])]
(screen! scene :hud-active? :hud-active? (or hovered-close? hovered-inventory? hovered-save?))
(cond hovered-inventory?
(grow-hud screen entities :inventory true)
hovered-close?
(grow-hud screen entities :close true)
hovered-save?
(grow-hud screen entities :save true)
:else
(let [entities (update-in entities [:tweens] dissoc :inventory-grow-x :inventory-grow-y)
entities (grow-hud screen entities :inventory false)
entities (grow-hud screen entities :close false)]
entities (grow-hud screen entities :close false)
entities (grow-hud screen entities :save false)]
entities
))))