much more natural screen transitions with regards to zoom.
This commit is contained in:
@@ -712,9 +712,10 @@
|
||||
(if-not (get-in entities [:cam :paused?])
|
||||
(-> e
|
||||
(update-in [:tweens] dissoc :cam-zoom :cam-x :cam-y)
|
||||
(assoc-in [:cam :x] 160)
|
||||
(assoc-in [:cam :y] 120)
|
||||
(assoc-in [:cam :zoom] utils/max-zoom))
|
||||
(assoc-in [:cam :ideal-x] x)
|
||||
(assoc-in [:cam :ideal-y] y)
|
||||
(assoc-in [:cam :x] (utils/bound-to-camera x 320 (get-in entities [:cam :zoom])))
|
||||
(assoc-in [:cam :y] (utils/bound-to-camera y 240 (get-in entities [:cam :zoom]))))
|
||||
e)
|
||||
|
||||
(if music-changed?
|
||||
|
||||
@@ -501,7 +501,7 @@
|
||||
:update-fn (partial utils/update-path-location 0.33)
|
||||
|
||||
:baseline 240
|
||||
:laber "Shovel"
|
||||
:label "Shovel"
|
||||
:cursor :hand
|
||||
:script (actions/get-script entities
|
||||
(if ((get-in @entities [:state :plaques-read]) :shovel)
|
||||
|
||||
Reference in New Issue
Block a user