From 3c48592b56af104530165b551a6cc36a4e979607 Mon Sep 17 00:00:00 2001 From: Thomas Hintz Date: Fri, 7 Feb 2020 11:39:33 -0800 Subject: [PATCH] Fixing bug where ridges cost half as much as they should. --- src/server/farm.scm | 21 ++++++++++----------- 1 file changed, 10 insertions(+), 11 deletions(-) diff --git a/src/server/farm.scm b/src/server/farm.scm index 1d371ba..7590198 100644 --- a/src/server/farm.scm +++ b/src/server/farm.scm @@ -343,17 +343,16 @@ )) (define (buy-crop crop unnormalized-crop amount cash-value player game) - ;; TODO bug when buying ridge, the full amount isn't accounted for - ;; because 'crop' is 'cows' not 'ridge-cows' or the ridge - (let ((total-cost (* amount (alist-ref crop '((hay . 2000) (grain . 2000) - (fruit . 5000) (cows . 500) - (ridge-cows . 1000) - (tractor . 10000) - (harvester . 10000) - (ridge4 . 1000) - (ridge3 . 1000) - (ridge2 . 1000) - (ridge1 . 1000))))) + (let ((total-cost (* amount (alist-ref unnormalized-crop + '((hay . 2000) (grain . 2000) + (fruit . 5000) (cows . 500) + (ridge-cows . 1000) + (tractor . 10000) + (harvester . 10000) + (ridge4 . 1000) + (ridge3 . 1000) + (ridge2 . 1000) + (ridge1 . 1000))))) (ridges '(ridge1 ridge2 ridge3 ridge4))) (cond ((and (member unnormalized-crop ridges) (not (ridge-available? game unnormalized-crop)))