notid/gitea-docker
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

peddler.

Browse Source
This commit is contained in:
Remington Covert
2014-09-18 13:05:23 -07:00
parent 0c63f85553
commit b2b42a4e71
1 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
desktop/src-common/advent/screens/scene.clj
View File

@@ -172,9 +172,15 @@
entities entities
(actions/walk-to entities :ego [310 80]) (actions/walk-to entities :ego [310 80])
(actions/transition-background entities :outside-house [0 80])) (actions/transition-background entities :outside-house [0 80]))
:cursor :right}} :cursor :right}
:peddler {:box [110 90 128 146]
:script (actions/get-script
entities
(actions/walk-to entities :ego [191 90])
(actions/talk entities :ego "Hello there."))}}
:layers [(assoc (texture "outside-castle/background.png") :x 0 :y 0 :baseline 0)] :layers [(assoc (texture "outside-castle/background.png") :x 0 :y 0 :baseline 0)]
:collision "behindhouse/collision.png" :entities [(assoc (texture "outside-castle/peddler.png") :x 110 :y 90 :baseline 150)]
:collision "outside-castle/collision.png"
:scale-fn (scaler-fn-with-baseline 110 0.10 1.00))})) :scale-fn (scaler-fn-with-baseline 110 0.10 1.00))}))
(defn animate [entity screen] (defn animate [entity screen]
@@ -188,7 +194,7 @@
(update! screen :renderer (stage) :camera (orthographic)) (update! screen :renderer (stage) :camera (orthographic))
(let [_ (input! :set-cursor-image (utils/cursor "cursor.png" :main) 0 0) (let [_ (input! :set-cursor-image (utils/cursor "cursor.png" :main) 0 0)
music (sound "town-music.mp3") music (sound "town-music.mp3")
_ (sound! music :loop 0.20) ;; _ (sound! music :loop 0.20)
backgrounds (backgrounds screen)] backgrounds (backgrounds screen)]
{:backgrounds backgrounds {:backgrounds backgrounds
:actions {:object nil :actions {:object nil