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

Fixing bug where ridges cost half as much as they should.

Browse Source
This commit is contained in:
Thomas Hintz
2020-02-07 11:39:33 -08:00
parent d2349ff575
commit 3c48592b56
1 changed files with 10 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
src/server/farm.scm
View File

@@ -343,17 +343,16 @@
)) ))
(define (buy-crop crop unnormalized-crop amount cash-value player game) (define (buy-crop crop unnormalized-crop amount cash-value player game)
;; TODO bug when buying ridge, the full amount isn't accounted for (let ((total-cost (* amount (alist-ref unnormalized-crop
;; because 'crop' is 'cows' not 'ridge-cows' or the ridge '((hay . 2000) (grain . 2000)
(let ((total-cost (* amount (alist-ref crop '((hay . 2000) (grain . 2000) (fruit . 5000) (cows . 500)
(fruit . 5000) (cows . 500) (ridge-cows . 1000)
(ridge-cows . 1000) (tractor . 10000)
(tractor . 10000) (harvester . 10000)
(harvester . 10000) (ridge4 . 1000)
(ridge4 . 1000) (ridge3 . 1000)
(ridge3 . 1000) (ridge2 . 1000)
(ridge2 . 1000) (ridge1 . 1000)))))
(ridge1 . 1000)))))
(ridges '(ridge1 ridge2 ridge3 ridge4))) (ridges '(ridge1 ridge2 ridge3 ridge4)))
(cond ((and (member unnormalized-crop ridges) (cond ((and (member unnormalized-crop ridges)
(not (ridge-available? game unnormalized-crop))) (not (ridge-available? game unnormalized-crop)))