cleaned up clock and forced right direction.
This commit is contained in:
@@ -191,7 +191,7 @@
|
||||
(aget shopkeep-sheet 0 i)))
|
||||
shopkeep-sigh (utils/make-anim "inside-antique/antique-sigh.png" [22 21] 0.12 (flatten [ (range 9) 0 0 ]))
|
||||
|
||||
beard (utils/make-anim "inside-antique/beard.png" [26 52] 0.5 [0 1 0 2])
|
||||
beard (utils/make-anim "inside-antique/beard.png" [28 54] 0.5 [0 1 0 2])
|
||||
teddy (assoc (utils/get-texture "inside-antique/teddy.png")
|
||||
:x 255
|
||||
:y 95
|
||||
@@ -246,7 +246,7 @@
|
||||
:window {:box [195 121 256 190]
|
||||
:script (actions/get-script entities
|
||||
|
||||
(actions/walk-to entities :ego [207 68])
|
||||
(actions/walk-to entities :ego [207 68] :face :right)
|
||||
(actions/play-animation entities :ego :reach)
|
||||
(actions/update-state entities (fn [s] (assoc s :opened-blinds? (not (:opened-blinds? s)))))
|
||||
(actions/update-entities entities (fn [screen e]
|
||||
@@ -338,7 +338,7 @@
|
||||
:beard (assoc (animation->texture screen beard)
|
||||
:anim beard
|
||||
:anim-start 0
|
||||
:x 70
|
||||
:x 69
|
||||
:y 86
|
||||
:baseline 120)
|
||||
:smoke-particle (doto (assoc (particle-effect "particles/smoke-particle") :x 162 :y 108
|
||||
|
||||
Reference in New Issue
Block a user