Improving AI buying algorithm.

src/server/farm.scm

@@ -1640,7 +1640,7 @@
   (print "ai attempting to buy")
   (let* ((net-worth (player-net-worth player))
          (pct-complete (pct-complete net-worth game))
-         (room (if (< pct-complete 0.7)
+         (room (if (< pct-complete 0.55)
                    1000000 ;; basically infinite
                    (+ (- (game-setting 'max-debt game) (player-debt player)) (round-down-1000 (player-cash player)))))
          (crops (map (lambda (card)
@@ -1648,8 +1648,12 @@
                      (player-otbs player))))
     (print (conc "room: " room))
     (print (conc "crops: " crops))
+    (print (conc "pct complete: " pct-complete))
     (let ((to-buy
-           (cond ((and (member 'cows crops) (>= room 5000))
+           (cond ((and (member 'cows crops) (>= room 5000)
+                       (< (- (player-asset 'cows player)
+                             (fold + 0 (map cdr (player-ridges player))))
+                          20))
                   '(cows 10 5000))
                  ((and (member 'fruit crops) (>= room 25000))
                   '(fruit 5 25000))
@@ -1724,7 +1728,8 @@
               (not (player-processing-turn player)))
          (begin (set! (player-processing-turn player) #t)
                 ;; time to buy
-                (when (and (>= (player-space player) 9) (<= (player-space player) 14))
+                (when (and (>= (player-space player) 9) (<= (player-space player) 14)
+                           (< (player-debt player) 125000))
                   (let loop ((cont (ai-buy player game)))
                     (when cont (loop (ai-buy player game)))))
                 (let ((res (process-message player game "roll" '((type . "roll")))))