outsidehouse
This commit is contained in:
@@ -44,14 +44,15 @@
|
||||
(fn [screen entities options]
|
||||
(utils/setup-viewport screen 320 240)
|
||||
|
||||
(let [inputed-key (utils/get-texture "inside-house/inputed-key.png")]
|
||||
{:fade (assoc (utils/get-texture "black.png")
|
||||
(let [[screen atlas] (utils/acquire-atlas screen "packed/global.atlas")
|
||||
inputed-key (utils/atlas->texture atlas "safe/inputed-key.png")]
|
||||
{:fade (assoc (utils/atlas->texture atlas "black.png")
|
||||
:scale-x 80
|
||||
:scale-y 80
|
||||
:opacity 0.7
|
||||
:origin-x 0
|
||||
:origin-y 0)
|
||||
:safe (assoc (utils/get-texture "inside-house/safe-screen.png") :x start-x :y start-y)
|
||||
:safe (assoc (utils/atlas->texture atlas "safe/safe-screen") :x start-x :y start-y)
|
||||
:entered-keys (doall (for [i (range 5)]
|
||||
(assoc inputed-key
|
||||
:x (+ start-x 12 (* i 12))
|
||||
|
||||
Reference in New Issue
Block a user