Don't show $0 fate card followup.

5 years ago · 92d1f7a0e1
parent 6ad836e325
commit 92d1f7a0e1
1 changed files with 8 additions and 5 deletions
--- a/src/server/farm.scm
+++ b/src/server/farm.scm
@ -754,11 +754,14 @@
                                                (value . ,(alist-ref 'contents ff))))))
                       ((eq? name 'ff-money)
                        (set! (game-actions game) (cdr (game-actions game)))
-                        (set-ui-action! `((action . "money") (value . ,value))
-                                        game)
-                        (create-ws-response player "action"
-                                            `((action . "money")
-                                              (value . ,value))))
+                        (if (= value 0)
+                            (loop)
+                            (begin
+                              (set-ui-action! `((action . "money") (value . ,value))
+                                              game)
+                              (create-ws-response player "action"
+                                                  `((action . "money")
+                                                    (value . ,value))))))
                       ((eq? name 'ff-uncle-bert)
                        (set! (game-actions game) (cdr (game-actions game)))
                        (set-ui-action! `((action . "ff-uncle-bert") (value . #f))