adding cursors everywhere!

desktop/src-common/advent/screens/rooms/cat_tree.clj

@@ -224,6 +224,7 @@
                        :ego "Thanks, I guess."))
 (defn make-ladder-area [box]
   {:box box
+   :cursor :hand
    :script (actions/get-script entities
                                (actions/walk-to entities :ego [144 58] )
                                (actions/talk entities :ego "Maybe I can climb it!")
@@ -275,7 +276,7 @@
                                                                          (get-down entities)))})
                 :interactions
                 {:down-dir {:box [150 0 270 20]
-                            :script (actions/get-script entities
+                            :only-script (actions/get-script entities
                                                              (if (get-in @entities [:room :entities :ladder])
                                                                (do
                                                                  (actions/talk entities :ego "I'll get down.")
@@ -291,6 +292,7 @@
                  :ladder-area-3 (make-ladder-area [133 69 205 92])
 
                  :rock {:box [62 83 101 103]
+                        :cursor :hand
                         :script (actions/get-script entities
                                                     (when (and (actions/has-obtained? entities :note-1)
                                                                (not (actions/has-obtained? entities :walkie-talkies)))
@@ -310,6 +312,7 @@
                                                       (actions/talk entities :ego "Tin cans connected with string?")
                                                       (actions/do-dialogue entities :ego "I wonder what all of these magic devices do.")))}
                  :grass {:box [26 105 60 160]
+                         :cursor :hand
                          :script (actions/get-script entities
                                                      (if (not (actions/has-obtained? entities :grass))
                                                        (do
@@ -320,6 +323,7 @@
                                                                               :ego "It's a high protein variety."))
                                                        (actions/talk entities :ego "I don't really need any more grass.")))}
                  :grandma {:box [109 33 132 98] 
+                           :cursor :talk
                            :script (actions/get-script entities (do-grandma-dialogue entities))
                            :scripts #(condp = %
                                        :kiss 
@@ -344,6 +348,7 @@
                            :cat (actions/start-animation screen
                                                          (assoc (animation->texture screen cat-stand)
                                                            :x 184 :y 173 :baseline 1000
+                                                           :cursor :talk
                                                            :walk cat-walk
                                                            :stand cat-stand
                                                            :script (actions/get-script entities
@@ -425,6 +430,7 @@
                                                :talk owl-talk
                                                :puke owl-puke
                                                :eye owl-eye
+                                               :cursor :talk
                                                :talk-color (color 0.5 0.5 1.0 1.0)
                                                :anim owl-stand
                                                :anim-start 0