Fixing bug.

master
Thomas Hintz 4 years ago
parent 1b9e94ba1f
commit 17723fc52c

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

Loading…
Cancel
Save