   {[:look :window] {:text "You look outside the window and see your home, the mighty ocean." :action ""}
    [:look :bucket] {:text "You see a bucket. Maybe there is something inside." :action ""}
    [:flap :window] {:text "You're too far away for that"}
-   [:flap :bucket] {:text "You flap against the bucket. BÄM. The bucket falls over and stones spill on the floor." :action ""}
-   })
+   [:flap :bucket] {:text "You flap against the bucket. BÄM. The bucket falls over and stones spill on the floor." :action ""}})
 
 (defn point-in-rect? [entity mx my]
   (and

   (> my (:y entity))
   (< my (+ (:y entity) (:height entity)))))

(defn handle-click-actions [state entity-key]
  (cond
    (= (last (:last-clicked state)) entity-key) state
    (< (count (:last-clicked state)) 2) (update state :last-clicked conj entity-key)
    :else (assoc state :last-clicked [entity-key])))

(defn clicked-on-entity? [mx my state]
  (let [new-state

(defn setup []
  ; Set frame rate to 30 frames per second.
  (q/frame-rate 30)
  {:entities
    {:bucket {:x 50 :y 150 :width 20 :height 50}
     :window {:x 10 :y 10 :width 50 :height 50}
     :look {:x 10 :y (- (q/height) 20) :width 50 :height 20 :label "Look"}
     :flap {:x 60 :y (- (q/height) 20) :width 50 :height 20 :label "Flap"}}
   :current-status "Hello little mermaid."
   :last-clicked []
   })

