ignoring self.
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user