tjhintz
/
farm
1
0
Fork 0
Code Issues 7 Pull Requests Packages Projects Releases Wiki Activity

Don't show $0 fate card followup.

Browse Source
logins
Thomas Hintz 5 years ago
parent 6ad836e325
commit 92d1f7a0e1
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File

5
src/server/farm.scm
Unescape Escape View File

@ -754,11 +754,14 @@
(value . ,(alist-ref 'contents ff)))))) (value . ,(alist-ref 'contents ff))))))
((eq? name 'ff-money) ((eq? name 'ff-money)
(set! (game-actions game) (cdr (game-actions game))) (set! (game-actions game) (cdr (game-actions game)))
(if (= value 0)
(loop)
(begin
(set-ui-action! `((action . "money") (value . ,value)) (set-ui-action! `((action . "money") (value . ,value))
game) game)
(create-ws-response player "action" (create-ws-response player "action"
`((action . "money") `((action . "money")
(value . ,value)))) (value . ,value))))))
((eq? name 'ff-uncle-bert) ((eq? name 'ff-uncle-bert)
(set! (game-actions game) (cdr (game-actions game))) (set! (game-actions game) (cdr (game-actions game)))
(set-ui-action! `((action . "ff-uncle-bert") (value . #f)) (set-ui-action! `((action . "ff-uncle-bert") (value . #f))

Write Preview
Loading…
Cancel
Save