seems a bit more legit.
This commit is contained in:
@@ -242,7 +242,9 @@
|
||||
:cursor :right
|
||||
:script (actions/get-script entities
|
||||
(actions/walk-to entities :ego [284 145])
|
||||
(actions/transition-background entities :outside-castle [82 180])
|
||||
(actions/walk-straight-to entities :ego [295 145])
|
||||
(actions/transition-background entities :outside-castle [61 182])
|
||||
(actions/walk-straight-to entities :ego [82 180])
|
||||
(actions/walk-to entities :ego [129 148]))}
|
||||
:up-door {:box [50 150 70 170]
|
||||
:script (actions/get-script entities
|
||||
|
||||
@@ -222,10 +222,13 @@
|
||||
(actions/update-state entities #(assoc % :seen-frankie? true)))
|
||||
|
||||
(defn go-through-gate [entities]
|
||||
(actions/walk-to entities :ego [82 180])
|
||||
(if (should-block? entities)
|
||||
(block-entrance entities)
|
||||
(do
|
||||
(actions/walk-to entities :ego [82 180])
|
||||
(block-entrance entities))
|
||||
(do
|
||||
(actions/walk-to entities :ego [82 180])
|
||||
(actions/walk-straight-to entities :ego [61 182])
|
||||
(actions/transition-background entities :inside-castle [295 145])
|
||||
(actions/walk-to entities :ego [245 90]))))
|
||||
|
||||
@@ -290,9 +293,12 @@
|
||||
(actions/play-animation entities :ego :squat)
|
||||
(actions/talk entities :ego "No one will notice one missing.")
|
||||
(actions/give entities :carrot))))}}
|
||||
:layers {:day [(assoc (texture "outside-castle/background.png") :x 0 :y 0 :baseline 0)]
|
||||
:night [(assoc (texture "outside-castle/background-dark.png") :x 0 :y 0 :baseline 0)]
|
||||
:sunrise [(assoc (texture "outside-castle/background.png") :x 0 :y 0 :baseline 0)]}
|
||||
:layers {:day [(assoc (texture "outside-castle/background.png") :x 0 :y 0 :baseline 0)
|
||||
(assoc (texture "outside-castle/walk-behind.png") :x 0 :y 0 :baseline 240)]
|
||||
:night [(assoc (texture "outside-castle/background-dark.png") :x 0 :y 0 :baseline 0)
|
||||
(assoc (texture "outside-castle/walk-behind-dark.png") :x 0 :y 0 :baseline 240)]
|
||||
:sunrise [(assoc (texture "outside-castle/background.png") :x 0 :y 0 :baseline 0)
|
||||
(assoc (texture "outside-castle/walk-behind.png") :x 0 :y 0 :baseline 240)]}
|
||||
:entities {:peddler (actions/start-animation screen
|
||||
(assoc (texture "outside-castle/peddler.png") :x 110 :y 90 :baseline 150 :anim nil
|
||||
:anim-sound-frames {peddler-stand {23 [:scratch 1.0]}
|
||||
|
||||
Reference in New Issue
Block a user