ignoring self.

This commit is contained in:
2014-11-01 09:27:07 -07:00
parent b865761bd7
commit bfecb62355

View File

@@ -107,13 +107,13 @@
:origin-y 0
: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])
width (.getRegionWidth region)
height (.getRegionHeight region)]
((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
items/flask-with-cream-of-mushroom (actions/get-script entities (actions/talk entities :ego "Yuck. I filled it with backwash."))))
:x 150 :y 95