From 92d1f7a0e16979c8ea62762a3daf5ecf5b016835 Mon Sep 17 00:00:00 2001 From: Thomas Hintz Date: Fri, 7 Feb 2020 12:22:56 -0800 Subject: [PATCH] Don't show $0 fate card followup. --- src/server/farm.scm | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/src/server/farm.scm b/src/server/farm.scm index 638f961..13cd055 100644 --- 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))