From 2599c6fa331764e7f58ea4558d9d518354a6a1a6 Mon Sep 17 00:00:00 2001 From: Thomas Hintz Date: Thu, 23 Apr 2020 21:22:09 -0700 Subject: [PATCH] Ensure operating expense value is always at least divisible by 100. --- src/server/farm.scm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/src/server/farm.scm b/src/server/farm.scm index 835eda2..679d3cb 100644 --- a/src/server/farm.scm +++ b/src/server/farm.scm @@ -1738,7 +1738,9 @@ (define (make-player-pays-per-unit unit amount) (lambda (player) - (let ((to-pay (* (player-asset (normalize-crop unit) player) amount))) + (let ((to-pay (farming-round-down + (inexact->exact + (round (* (player-asset (normalize-crop unit) player) amount)))))) (safe-set! (player-cash player) (- (player-cash player) to-pay))))) @@ -2382,6 +2384,3 @@ ;; TODO ;; make sure two players can't have the same name ;; info actions should look better -;; you can get $50 from operating expense - -;; mark spaces