screen transitions

This commit is contained in:
2014-10-09 19:32:34 -07:00
parent 14d64148be
commit eee1bd601d
2 changed files with 10 additions and 2 deletions

View File

@@ -10,7 +10,13 @@
(defn make [screen]
(rooms/make :interactions
{}
{:right-door {:box [286 140 306 160]
:cursor :right
:script (actions/get-script entities
(actions/walk-to entities :ego [284 145])
(actions/transition-background entities :outside-castle [82 180])
(actions/walk-to entities :ego [129 148]))
}}
:layers [(assoc (texture "inside-castle/background.png") :x 0 :y 0 :baseline 0)
(assoc (texture "inside-castle/pedestal-overlay.png") :x 0 :y 0 :baseline 135)]
:entities {}

View File

@@ -25,7 +25,9 @@
:script (actions/get-script
entities
(actions/walk-to entities :ego [82 180])
(actions/transition-background entities :inside-castle [280 145]))}
(actions/transition-background entities :inside-castle [280 145])
(actions/walk-to entities :ego [245 90]))
:cursor :left}
:garden {:box [103 170 178 200]
:script (actions/get-script
entities