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

Emergency loan support.

Browse Source
This commit is contained in:
Thomas Hintz
2020-03-28 15:40:21 -07:00
parent 29171875f4
commit a13e26b24c
2 changed files with 50 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/server/farm.scm
View File

@@ -901,12 +901,12 @@
(if (> (+ (player-debt player)
(farming-round (+ amount (* amount (game-setting 'loan-interest game)))))
(game-setting 'max-debt game))
(push-message player "Exceeds max loan.")
(begin (safe-set! (player-cash player) (+ (player-cash player) amount))
(safe-set! (player-debt player) (+ (player-debt player) (* amount 2))))
(begin (safe-set! (player-cash player) (+ (player-cash player) amount))
(safe-set! (player-debt player) (+ (player-debt player)
(farming-round
(+ amount (* amount (game-setting 'loan-interest game))))))
(push-message player (conc "Loan of $" amount " taken out."))))
(+ amount (* amount (game-setting 'loan-interest game))))))))
;; repaying loan
(cond ((> (abs amount) (player-cash player))
(push-message player "Not enough cash to repay loan."))