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

11
src/components/farm/Board.jsx
View File

@@ -550,6 +550,11 @@ class Loans extends React.Component {
this.setState({ repay: 0, takeOut: 0 }); this.setState({ repay: 0, takeOut: 0 });
} }
handleEmergencyLoan = e => {
e.preventDefault();
loan(1);
}
componentDidUpdate(prevProps) { componentDidUpdate(prevProps) {
if (this.props.player.debt !== prevProps.player.debt || if (this.props.player.debt !== prevProps.player.debt ||
this.props.game.settings.loanInterest !== prevProps.game.settings.loanInterest || this.props.game.settings.loanInterest !== prevProps.game.settings.loanInterest ||
@@ -566,7 +571,11 @@ class Loans extends React.Component {
/${formatMoney(this.props.game.settings.maxDebt)} /${formatMoney(this.props.game.settings.maxDebt)}
<br /> <br />
{this.props.game.settings.loanInterest > 0 ? '(' + (this.props.game.settings.loanInterest * 100) + '% interest added to each loan)' : ''} {this.props.game.settings.loanInterest > 0 ? '(' + (this.props.game.settings.loanInterest * 100) + '% interest added to each loan)' : ''}
<br /><br /> <br />
{this.props.player.debt >= this.props.game.settings.maxDebt ? (
<><Button onClick={this.handleEmergencyLoan}>Emergency Loan</Button> $1,000 at 100% interest</>
) : (<></>)}
<br />
<form onSubmit={this.handleSubmit}> <form onSubmit={this.handleSubmit}>
<Row collapse='true'> <Row collapse='true'>
<Col width='8'> <Col width='8'>

6
src/server/farm.scm
View File

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