adding parallax

This commit is contained in:
2015-05-02 18:49:16 -07:00
parent 55259389f7
commit c3d2c4058d
13 changed files with 20 additions and 8 deletions

View File

@@ -93,8 +93,8 @@
:script (actions/get-script entities
(actions/walk-to entities :ego [159 5])
(actions/walk-straight-to entities :ego [159 -20])
(actions/transition-background entities :inside-castle [79 145]
)
(actions/transition-background entities :inside-castle [92 150])
(actions/walk-straight-to entities :ego [79 145] :stop? false)
(actions/walk-to entities :ego [159 74]))
:cursor :down}
:door {:box [22 42 46 124]
@@ -133,7 +133,10 @@
(actions/walk-to entities :ego [170 71] :face :right)
(actions/walk-straight-to entities :ego [188 71] :face :right)
(actions/play-animation entities :ego :reach)
(actions/remove-entity entities :axe)
(actions/play-animation entities :ego :axe-wood)
(actions/play-animation entities :ego :reach)
(actions/add-entity entities :axe (get-in @entities [:room [:axe (get-in @entities [:state :time])]]))
(actions/walk-straight-to entities :ego [170 71]))
:scripts {:alarm-clock (actions/get-script entities
(actions/walk-to entities :ego [170 71] :face :right)
@@ -163,9 +166,7 @@
:script (actions/get-script entities
(actions/walk-to entities :ego [151 119] :face :right)
(actions/play-animation entities :ego :reach)
(actions/do-dialogue entities :ego "Ahh, life-giving water."
:ego "I feel strength."
:ego "And renewal!"))
(actions/do-dialogue entities :ego "Ahh, life-giving water."))
:scripts {:flask-2 (actions/get-script entities
(actions/walk-to entities :ego [151 119] :face :right)
(actions/play-animation entities :ego :reach)
@@ -188,6 +189,9 @@
:x 172
:y 140
:baseline 114)}
[:axe :day] (rooms/make-entity :axe (assoc (texture "outside-jail/axe.png") :x 213 :y 63 :baseline 176))
[:axe :night] (rooms/make-entity :axe (assoc (texture "outside-jail/axe-dark.png") :x 213 :y 63 :baseline 176))
:guard (rooms/make-entity :guard (assoc (animation->texture screen guard-stand)
:x 70 :y 55 :baseline 185
:stand guard-stand
@@ -217,6 +221,7 @@
:start-pos [145 15]
:apply-state (fn [entities]
(as-> entities entities
(assoc-in entities [:room :entities :axe] (get-in entities [:room [:axe (get-in entities [:state :time])]]))
(if (= :night (get-in entities [:state :time]))
(make-night entities)
entities)