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

Ensure operating expense value is always at least divisible by 100.

Browse Source
This commit is contained in:
Thomas Hintz
2020-04-23 21:22:09 -07:00
parent 90f4e959cd
commit 2599c6fa33
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/server/farm.scm
View File

@@ -1738,7 +1738,9 @@
(define (make-player-pays-per-unit unit amount) (define (make-player-pays-per-unit unit amount)
(lambda (player) (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) (safe-set! (player-cash player)
(- (player-cash player) to-pay))))) (- (player-cash player) to-pay)))))
@@ -2382,6 +2384,3 @@
;; TODO ;; TODO
;; make sure two players can't have the same name ;; make sure two players can't have the same name
;; info actions should look better ;; info actions should look better
;; you can get $50 from operating expense
;; mark spaces