more updates.

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

@@ -225,6 +225,7 @@
 (defn make-ladder-area [box]
   {:box box
    :cursor :hand
+   :label "Tree"
    :script (actions/get-script entities
                                (actions/walk-to entities :ego [144 58] )
                                (actions/talk entities :ego "Maybe I can climb it!")
@@ -270,7 +271,7 @@
                 :ladder ladder-entity
                 :blank (rooms/make-entity :blank
                                           {:object nil :x 0 :y 0 :width 320 :height 240 :baseline 240
-                                           :script (actions/get-script entities
+                                           :only-script (actions/get-script entities
                                                                        (when (get-in @entities [:room :entities :ladder])
                                                                          (actions/talk entities :ego "I'll get down.")
                                                                          (get-down entities)))})
@@ -293,6 +294,7 @@
 
                  :rock {:box [62 83 101 103]
                         :cursor :hand
+                        :label "Suspicous looking rock"
                         :script (actions/get-script entities
                                                     (when (and (actions/has-obtained? entities :note-1)
                                                                (not (actions/has-obtained? entities :walkie-talkies)))
@@ -313,6 +315,7 @@
                                                       (actions/do-dialogue entities :ego "I wonder what all of these magic devices do.")))}
                  :grass {:box [26 105 60 160]
                          :cursor :hand
+                         :label "Grass"
                          :script (actions/get-script entities
                                                      (if (not (actions/has-obtained? entities :grass))
                                                        (do
@@ -324,6 +327,7 @@
                                                        (actions/talk entities :ego "I don't really need any more grass.")))}
                  :grandma {:box [109 33 132 98] 
                            :cursor :talk
+                           :label "Damsel"
                            :script (actions/get-script entities (do-grandma-dialogue entities))
                            :scripts #(condp = %
                                        :kiss 
@@ -348,6 +352,7 @@
                            :cat (actions/start-animation screen
                                                          (assoc (animation->texture screen cat-stand)
                                                            :x 184 :y 173 :baseline 1000
+                                                           :label "Smuffle Wuffles"
                                                            :cursor :talk
                                                            :walk cat-walk
                                                            :stand cat-stand
@@ -426,6 +431,7 @@
                                    :x 194 :y 188 :baseline 241)}
                 :owl (rooms/make-entity :owl (assoc (animation->texture screen owl-stand)
                                                :x 187 :y 172 :baseline 241
+                                               :label "Owl"
                                                :stand owl-stand
                                                :talk owl-talk
                                                :puke owl-puke