summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThomas Hintz <t@thintz.com>2020-11-20 13:23:06 -0800
committerThomas Hintz <t@thintz.com>2020-11-20 13:23:06 -0800
commit17723fc52c3fbe283d522632190ab5658df6bd1f (patch)
treee77fea96a0385533d1e3b27fcefad9fcde1ede81
parent1b9e94ba1fbee928ddbb47c63e368f7fb88fb5e4 (diff)
downloadfarm-17723fc52c3fbe283d522632190ab5658df6bd1f.tar.gz
Fixing bug.
-rw-r--r--src/server/farm.scm29
1 files 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 <--
+;; #<condition: (exn i/o net)>