tjhintz/farm
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

AI improvements.

Browse Source
This commit is contained in:
Thomas Hintz
2020-04-29 07:33:08 -07:00
parent 802a0efcbb
commit 9160fdc92a
1 changed files with 23 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
src/server/farm.scm
View File

@@ -1629,12 +1629,20 @@
(define (round-down-1000 val)
(- val (remainder val 1000)))
(define (pct-complete net-worth game)
(/ (min net-worth (game-setting 'audit-threshold game))
(game-setting 'audit-threshold game)))
(define (ai-buy player game)
(print "ai attempting to buy")
(let ((room (+ (- (game-setting 'max-debt game) (player-debt player)) (round-down-1000 (player-cash player))))
(crops (map (lambda (card)
(string->symbol (alist-ref 'crop card)))
(player-otbs player))))
(let* ((net-worth (player-net-worth player))
(pct-complete (pct-complete net-worth game))
(room (if (< pct-complete 0.7)
1000000 ;; basically infinite
(+ (- (game-setting 'max-debt game) (player-debt player)) (round-down-1000 (player-cash player)))))
(crops (map (lambda (card)
(string->symbol (alist-ref 'crop card)))
(player-otbs player))))
(print (conc "room: " room))
(print (conc "crops: " crops))
(let ((to-buy
@@ -1650,7 +1658,8 @@
(= (player-asset 'harvester player) 0))
'(harvester 1 10000))
((and (member 'tractor crops) (>= room 10000)
(= (player-asset 'tractor player) 0))
(= (player-asset 'tractor player) 0)
(<= (player-asset 'cows player) 40))
'(tractor 1 10000))
((and (member 'ridge4 crops) (>= room 50000)
(not (find (lambda (p)
@@ -1676,11 +1685,15 @@
(print "to buy: " to-buy)
(if to-buy
(begin
(print (conc "buying crop: " (first to-buy)))
(print (conc "buying crop: " (first to-buy)))
(when (< (round-down-1000 (player-cash player)) (third to-buy))
(process-message player game "loan" `((amount . ,(/ (- (third to-buy)
(round-down-1000 (player-cash player)))
1000)))))
(if (eq? (buy-crop (normalize-crop (first to-buy))
(first to-buy)
(second to-buy)
(min (third to-buy) (round-down-1000 (player-cash player)))
(third to-buy)
player
game)
#t)
@@ -1741,7 +1754,9 @@
(process-message player game "loan" `((amount . ,(/ (+ (abs (player-cash player))
(remainder (abs (player-cash player)) 1000))
1000)))))
(when (>= (player-cash player) 1000)
(when (and (>= (player-cash player) 1000)
(or (<= (player-debt player) 40000)
(>= (player-cash player) 75000)))
(print "repaying loan")
(process-message player game "loan" `((amount . ,(* (/ (- (player-cash player)
(remainder (player-cash player) 1000))