|
|
@ -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
|
|
|
|
|
|
|
|