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

better job at showing hotspots.

Browse Source
This commit is contained in:
Bryce Covert
2015-08-06 13:20:53 -07:00
parent 9a8078c183
commit 145197c33e
5 changed files with 52 additions and 281 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
desktop/src-common/advent/screens/rooms/outside_house.clj
View File

@@ -578,7 +578,7 @@
(actions/transition-background entities :behind-house [122 140])
(actions/walk-to entities :ego [172 122]))
:cursor :right}
:up-dir {:box [60 180 224 240]
:up-dir {:box [105 180 203 240]
:script (actions/get-script
entities
(actions/walk-to entities :ego [137 204])

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

@@ -611,11 +611,13 @@ void main()
entities)
entities))
(defn update-cursor [screen {{:keys [current override last]} :cursor :as entities}]
(defn update-cursor [screen {{:keys [current override last active was-active]} :cursor :as entities}]
(let [new-current (or override current)]
(when-not (= new-current
last)
(input! :set-cursor-image (utils/cursor "cursor.png" (or (:cursor new-current) new-current)) 0 0))
(when-not (and (= new-current
last)
(= active was-active))
(let [image-path (if active "cursor_light.png" "cursor.png")]
(input! :set-cursor-image (utils/cursor image-path (or (:cursor new-current) new-current)) 0 0)))
(assoc-in entities [:cursor :last] new-current)))