   (> (get-in state [:sv :soc-lonely] 0.0) 0.5))
 
 (defn lonely-reaction
-  [robot complete-chan]
+  [robot state complete-chan]
   (->
    (nao/say robot "Is anyone there? I'm feeling lonely.")
    (nao/future-callback-wrapper

          hand-chan (chan)
          foot-chan (chan)
          clients-atom (atom [display-chan])]
      (nao/say robot "I'm starting to feel quite emotional")
      (let [ev-robot
            (-> robot

  (> (get-in state [:sv :phys-anger] 0.0) 0.75))

(defn anger-reaction
  [robot state complete-chan]
  (nao/run-behaviour robot "dsnowdon-angry" complete-chan))

(defn anger-reaction-percept
