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

ignoring self.

Browse Source
This commit is contained in:
Remington Covert
2014-11-01 09:27:07 -07:00
parent b865761bd7
commit bfecb62355
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -107,13 +107,13 @@
:origin-y 0 :origin-y 0
:scaled true :scaled true
:mouse-in? (fn [entities x y] #_:mouse-in? #_(fn [entities x y]
(let [{entity-x :x entity-y :y region :object} (get-in entities [:room :entities :ego]) (let [{entity-x :x entity-y :y region :object} (get-in entities [:room :entities :ego])
width (.getRegionWidth region) width (.getRegionWidth region)
height (.getRegionHeight region)] height (.getRegionHeight region)]
((zone/box entity-x entity-y (+ entity-x width) (+ entity-y height)) x y))) ((zone/box entity-x entity-y (+ entity-x width) (+ entity-y height)) x y)))
:get-script (fn [cursor [x y]] #_:get-script #_(fn [cursor [x y]]
(case cursor (case cursor
items/flask-with-cream-of-mushroom (actions/get-script entities (actions/talk entities :ego "Yuck. I filled it with backwash.")))) items/flask-with-cream-of-mushroom (actions/get-script entities (actions/talk entities :ego "Yuck. I filled it with backwash."))))
:x 150 :y 95 :x 150 :y 95