From 17723fc52c3fbe283d522632190ab5658df6bd1f Mon Sep 17 00:00:00 2001 From: Thomas Hintz Date: Fri, 20 Nov 2020 13:23:06 -0800 Subject: [PATCH] Fixing bug. --- src/server/farm.scm | 29 ++++++++++++++++++++++++++--- 1 file changed, 26 insertions(+), 3 deletions(-) diff --git a/src/server/farm.scm b/src/server/farm.scm index 8a1439d..0083d48 100644 --- a/src/server/farm.scm +++ b/src/server/farm.scm @@ -435,7 +435,8 @@ (define session-cookie-setter (make-parameter (lambda (sid) (set-cookie! (session-cookie-name) sid)))) -(session-lifetime (* 60 60 24 7 4)) +;; TODO make cookie last forever +(session-lifetime (* 60 60 60 24 7 4)) ;; (access-log (current-output-port)) (access-log "access.log") @@ -2244,8 +2245,8 @@ (for-each (lambda (from-player) (when (not (eq? player from-player)) (when (not (player-has-asset? 'harvester from-player)) - ((make-player-stat equipment -2000) from-player) - ((make-player-stat equipment 2000) player) + ((make-player-stat 'equipment -2000) from-player) + ((make-player-stat 'equipment 2000) player) (safe-set! (player-cash from-player) (- (player-cash from-player) 2000)) (safe-set! (player-cash player) @@ -2743,3 +2744,25 @@ ;; Error: (mailbox-send!) bad argument type - not a mailbox: "redhead91 ;; farmers luck can cause display cash to be out of sync + +;; start of fruit harvest +;; error:Server error: +;; Error: unbound variable: equipment + +;; last month of december and i had a harvester, chris has a tractor and i don't +;; error:Server error: +;; Error: unbound variable: equipment + +;; when landing on farmers fate drew IRS +;; Error: unbound variable: equipment + +;; Call history: + +;; farm.scm:1896: websockets#send-message +;; farm.scm:1885: k6114 +;; farm.scm:1885: g6118 +;; farm.scm:1891: log-error +;; farm.scm:1162: spiffy#error-log +;; farm.scm:1162: with-output-to-file +;; farm.scm:1164: print-call-chain <-- +;; #