| 
						
						
							
								
							
						
						
					 | 
					 | 
					@ -1738,7 +1738,9 @@
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					
 | 
					 | 
					 | 
					 | 
					
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					(define (make-player-pays-per-unit unit amount)
 | 
					 | 
					 | 
					 | 
					(define (make-player-pays-per-unit unit amount)
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					  (lambda (player)
 | 
					 | 
					 | 
					 | 
					  (lambda (player)
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					    (let ((to-pay (* (player-asset (normalize-crop unit) player) amount)))
 | 
					 | 
					 | 
					 | 
					    (let ((to-pay (farming-round-down
 | 
				
			
			
				
				
			
		
	
		
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					 | 
					 | 
					 | 
					 | 
					                   (inexact->exact
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					 | 
					 | 
					 | 
					 | 
					                    (round (* (player-asset (normalize-crop unit) player) amount))))))
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					      (safe-set! (player-cash player)
 | 
					 | 
					 | 
					 | 
					      (safe-set! (player-cash player)
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					        (- (player-cash player) to-pay)))))
 | 
					 | 
					 | 
					 | 
					        (- (player-cash player) to-pay)))))
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					
 | 
					 | 
					 | 
					 | 
					
 | 
				
			
			
		
	
	
		
		
			
				
					| 
						
							
								
							
						
						
							
								
							
						
						
					 | 
					 | 
					@ -2382,6 +2384,3 @@
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					;; TODO
 | 
					 | 
					 | 
					 | 
					;; TODO
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					;; make sure two players can't have the same name
 | 
					 | 
					 | 
					 | 
					;; make sure two players can't have the same name
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					;; info actions should look better
 | 
					 | 
					 | 
					 | 
					;; info actions should look better
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					;; you can get $50 from operating expense
 | 
					 | 
					 | 
					 | 
					 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					
 | 
					 | 
					 | 
					 | 
					 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					;; mark spaces
 | 
					 | 
					 | 
					 | 
					 | 
				
			
			
		
	
	
		
		
			
				
					| 
						
							
								
							
						
						
						
					 | 
					 | 
					
 
 |