 
 (defn fear-reaction-percept
   [done-signal]
-  {:name "Got scared" :satisfaction-vector
-   {:phys-fear -0.2
-    :saf-bored -0.5}})
+  {:name "Got scared"
+   :satisfaction-vector {:phys-fear -0.2
+                         :saf-bored -0.5}
+   :timestamp (t/now)
+   :locations @location
+   :other-agents #{}})
 
 (defn fear-management
   [robot percept-chan]

    :other-agents #{:steve_ballmer}
    :satisfaction-vector {:phys-anger 0.1
                          :phys-hunger 0.0
                          :phys-fear 0.4
                          :saf-bored -0.1
                          :saf-delight 0.0
                          :saf-playful -0.1
                          :soc-lonely -0.1}}


(defn bored-reaction-percept
  [done-signal]
  {:name "Bored"
   :satisfaction-vector {:soc-lonely 0.05
                         :saf-bored -0.1}
   :timestamp (t/now)
   :locations @location
   :other-agents #{}})

(defn react-scared?
  [state]
