Fixing bug.

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) from-player)
-                                                    ((make-player-stat equipment 2000) 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)>