some ending goodness

2015-09-02 23:27:53 -07:00
parent 5990959900
commit 3dfbd9b408
10 changed files with 350 additions and 30 deletions
--- a/desktop/src-common/advent/actions.clj
+++ b/desktop/src-common/advent/actions.clj
@@ -347,7 +347,7 @@
      (do-stop entities :ego :face face))))

 (defn get-text-duration [text]
-  (max 1.5 (* (count (s/split text #" ")) 0.5)))
+  (max 1.5 (* (count (s/split text #"[ \-]")) 0.5)))

 (defn talk [entities target-id text & {:keys [stop? animate? anim wait] :or {wait true}}]
  (let [initial-time (atom nil)