cleaning up dialogue a bit.

2014-10-03 21:11:14 -07:00
parent 098891dd42
commit 1b487edc2b
2 changed files with 17 additions and 15 deletions
--- a/desktop/src-common/advent/actions.clj
+++ b/desktop/src-common/advent/actions.clj
@@ -320,7 +320,8 @@
 (defn do-dialogue [entities & pairs]
  (loop [pairs (partition 2 pairs)]
    (let [[[target line]] pairs
-          result (actions/talk entities target line)]
+          next-speaker-is-different (not= target (ffirst (next pairs)))
+          result (talk entities target line :stop? next-speaker-is-different)]
      (if (seq (rest pairs))
        (recur (rest pairs))
        result))))