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