screen transitions
This commit is contained in:
@@ -10,7 +10,13 @@
|
|||||||
|
|
||||||
(defn make [screen]
|
(defn make [screen]
|
||||||
(rooms/make :interactions
|
(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)
|
: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)]
|
(assoc (texture "inside-castle/pedestal-overlay.png") :x 0 :y 0 :baseline 135)]
|
||||||
:entities {}
|
:entities {}
|
||||||
|
|||||||
@@ -25,7 +25,9 @@
|
|||||||
:script (actions/get-script
|
:script (actions/get-script
|
||||||
entities
|
entities
|
||||||
(actions/walk-to entities :ego [82 180])
|
(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]
|
:garden {:box [103 170 178 200]
|
||||||
:script (actions/get-script
|
:script (actions/get-script
|
||||||
entities
|
entities
|
||||||
|
|||||||
Reference in New Issue
Block a user