Limiting to 20 cows on farm.

src/server/farm.scm

@@ -372,6 +372,12 @@
            (push-message player
                          (conc "Could not buy " unnormalized-crop ". Not enough credit."))
            #f)
+          ((and (eq? unnormalized-crop 'cows)
+                (= (- (player-asset 'cows player)
+                      (fold + 0 (map cdr (player-ridges player))))
+                   20))
+           (push-message player (conc "Could not buy " unnormalized-crop " because it would exceed maximum allowed on farm."))
+           #f)
           (else
            (let ((assets (player-assets player)))
              (set!
@@ -1698,9 +1704,6 @@
 ;; make sure two players can't have the same name
 ;; bug: harvest action multiplayer doesn't flow right for other players
 ;; info actions should look better
-;; limit to 20 cows
-;; don't give extra money for extra tractors
 ;; you can get $50 from harvest
-;; buy ifs with blank box
 ;; ran out of otbs
 ;; bug: new websocket messages should not reset IFS card selection