From bfecb623555ec8c68fae17143d20340453923068 Mon Sep 17 00:00:00 2001 From: Remington Covert Date: Sat, 1 Nov 2014 09:27:07 -0700 Subject: [PATCH] ignoring self. --- desktop/src-common/advent/screens/scene.clj | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/desktop/src-common/advent/screens/scene.clj b/desktop/src-common/advent/screens/scene.clj index f586e6b7..30abec78 100644 --- a/desktop/src-common/advent/screens/scene.clj +++ b/desktop/src-common/advent/screens/scene.clj @@ -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