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

refinement.

Browse Source
This commit is contained in:
=
2014-09-08 19:22:30 -07:00
parent 4f1f881c0f
commit 356e802dec
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -126,9 +126,13 @@
:cursor-override :left :cursor-override :left
:go-to [0 80]}] :go-to [0 80]}]
:interactions [{:mouse-in? (zone/box 258 100 281 160) :interactions [{:mouse-in? (zone/box 258 100 281 160)
:look (fn [screen entities [x y]] :look (fn [screen entities _]
(assoc-in entities [:ego :actions] [(actions/stop :ego) (assoc-in entities [:ego :actions] [(actions/stop :ego)
(actions/talk :ego (str "The last time I went through that door, Fangald turned me into a frog."))]))}] (actions/talk :ego (str "The last time I went through that door, Fangald turned me into a frog."))]))
:touch (fn [screen entities _]
(assoc-in entities [:ego :actions] (concat
(actions/from-path screen entities :ego [262 88])
[(actions/talk :ego (str "Anyone home?"))])))}]
:scale-fn (scaler-fn-with-baseline 110 0.10 1.00) :scale-fn (scaler-fn-with-baseline 110 0.10 1.00)
:layers [(assoc background :x 0 :y 0 :baseline 0) :layers [(assoc background :x 0 :y 0 :baseline 0)
(assoc house :x 0 :y 0 :baseline 122) (assoc house :x 0 :y 0 :baseline 122)