squat talk

desktop/src-common/advent/actions.clj

@@ -957,3 +957,10 @@
                     (constantly (get-in @entities [:cam :zoom]))
                     nil
                     (* 0.01 (inc n)))))
+
+(defn squat-talk [entities & msgs]
+  (when (seq msgs)
+    (do
+      (actions/talk entities :ego (first msgs) :anim :squat-talk :stop? false)
+      (Thread/sleep 200)
+      (recur entities (rest msgs)))))