goon drops coin.

2015-07-29 23:05:07 -07:00
parent 3f354a6515
commit e7629b8c96
3 changed files with 18 additions and 11 deletions
--- a/desktop/src-common/advent/actions.clj
+++ b/desktop/src-common/advent/actions.clj
@@ -433,10 +433,12 @@
            (recur  (next-choices zipper))
            (recur zipper)))))))

-(defn update-entities [entities f]
+(defn update-entities [entities f & {:keys [use-screen?] :or {use-screen? false}}]
  (run-action entities
              (begin [this screen entities]
-                     (f entities))
+                     (if use-screen?
+                       (f screen entities)
+                       (f entities)))
              (continue [this screen entities] entities)
              (done? [this screen entities] true)
              (terminate [this screen entities]