should make rendering work again.

This commit is contained in:
2015-04-17 08:07:51 -07:00
parent 505655ea01
commit adbdd2ee1d
9 changed files with 27 additions and 13 deletions

View File

@@ -251,7 +251,7 @@
(actions/play-animation entities :ego :sigh)
(actions/play-animation entities :ego :reach)
(actions/talk entities :ego "Wait a second! If I become a janitor, I'll never win Georgia McGorgeous' heart!"))}}}
:timers {:return [1.0 10.0 return-from-island]}
:timers {:return [30.0 30.0 return-from-island]}
:layers [(assoc (texture "dream/clouds1.png") :x -10 :y 0 :baseline -1 :parallax 0.2 :scale-x 1.1 :scale-y 1.1)
(assoc (texture "dream/island.png") :x 180 :y 180 :baseline 0 :parallax 0.3 :scale-x 1.1 :scale-y 1.1)
(assoc (texture "dream/cliff.png") :x 50 :y 133 :baseline 1 :parallax 0.6 :scale-x 1.2 :scale-y 1.2)
@@ -319,6 +319,7 @@
:baseline 240
:origin-x 31
:origin-y 0
:test true
:anim fairy-godfather-anim :anim-start 0
:path (catmull-rom-spline (map #(apply vector-2* %) [[200 130] [200 134]]) true)
:scaled true

View File

@@ -226,7 +226,7 @@
(if (should-block? entities)
(block-entrance entities)
(do
(actions/transition-background entities :inside-castle [280 145])
(actions/transition-background entities :inside-castle [295 145])
(actions/walk-to entities :ego [245 90]))))

View File

@@ -25,10 +25,12 @@
[:dawn :opacity]
1.0)))
(defn walk-to-castle [entities]
(defn walk-to-castle [entities dawn?]
(actions/walk-to entities :ego [0 80])
(actions/walk-straight-to entities :ego [-20 80])
(actions/transition-background entities :outside-castle [330 80] :between dawn-fade)
(if dawn?
(actions/transition-background entities :outside-castle [330 80] :between dawn-fade)
(actions/transition-background entities :outside-castle [330 80]))
(actions/walk-straight-to entities :ego [310 80]))
(def ego-sheep-loc
@@ -94,7 +96,7 @@
:ego "I now have The Slinger's Shot."
:ego "And just in time, too. It's getting light.")
(actions/update-state entities #(assoc % :next-time :sunrise))
(walk-to-castle entities)
(walk-to-castle entities true)
(outside-castle/go-through-gate entities)
(actions/update-state entities #(assoc % :next-time :day))
(inside-castle/walk-to-blergh entities)
@@ -348,7 +350,7 @@
:left-dir {:box [0 40 20 140]
:script (actions/get-script
entities
(walk-to-castle entities))
(walk-to-castle entities false))
:cursor :left}}
:layers {:day [(assoc (texture "outsidehouse/background.png") :x 0 :y 0 :baseline 0)
(assoc (texture "outsidehouse/house.png") :x 0 :y 0 :baseline 122)