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

Adding AI.

Browse Source
master
Thomas Hintz 5 years ago
parent 250fdb9ca7
commit db47e5e6e9
3 changed files with 387 additions and 264 deletions
Show Stats Download Patch File Download Diff File

468
src/components/farm/Board.jsx
Unescape Escape View File

@ -34,7 +34,7 @@ import { FontAwesomeIcon } from '@fortawesome/react-fontawesome'
import { faUser, faUsers, faTractor, faWindowRestore, import { faUser, faUsers, faTractor, faWindowRestore,
faDollarSign, faTimes, faExchangeAlt, faDollarSign, faTimes, faExchangeAlt,
faInfoCircle, faArrowUp, faArrowDown, faAward, faInfoCircle, faArrowUp, faArrowDown, faAward,
faBan, faArrowCircleLeft } from '@fortawesome/free-solid-svg-icons' faBan, faArrowCircleLeft, faPlusCircle } from '@fortawesome/free-solid-svg-icons'
import { GroupBox, Row, Col, Button } from '../widgets.jsx' import { GroupBox, Row, Col, Button } from '../widgets.jsx'
import SpaceNode from './SpaceNode.jsx' import SpaceNode from './SpaceNode.jsx'
@ -48,21 +48,22 @@ import { setSelectedCard, setMessagePanelSpace, setMPDims, movePlayer,
import { buy, roll, endTurn, loan, trade, submitTradeAccept, import { buy, roll, endTurn, loan, trade, submitTradeAccept,
submitTradeDeny, submitTradeCancel, audit, submitTradeDeny, submitTradeCancel, audit,
buyUncleBert, skip, endAiTurn, startGame, readyToStart, buyUncleBert, skip, endAiTurn, startGame, readyToStart,
leaveGame, kickPlayer, toggleRevealForTrade } from './interface.js' leaveGame, kickPlayer, toggleRevealForTrade,
addAIPlayer } from './interface.js'
function netWorth(player) { function netWorth(player) {
return ((player.assets.hay + player.assets.grain) * 2000) + return ((player.assets.hay + player.assets.grain) * 2000) +
(player.assets.fruit * 5000) + (player.assets.fruit * 5000) +
(player.assets.cows * 500) + (player.assets.cows * 500) +
((player.assets.harvester + player.assets.tractor) * 10000) + ((player.assets.harvester + player.assets.tractor) * 10000) +
player.displayCash - player.debt; player.displayCash - player.debt;
} }
function assetsValue(player) { function assetsValue(player) {
return ((player.assets.hay + player.assets.grain) * 2000) + return ((player.assets.hay + player.assets.grain) * 2000) +
(player.assets.fruit * 5000) + (player.assets.fruit * 5000) +
(player.assets.cows * 500) + (player.assets.cows * 500) +
((player.assets.harvester + player.assets.tractor) * 10000); ((player.assets.harvester + player.assets.tractor) * 10000);
} }
class ResourceUnit extends React.Component { class ResourceUnit extends React.Component {
@ -617,227 +618,227 @@ class TradeContainer extends React.Component {
return ( return (
<GroupBox title='Trade'> <GroupBox title='Trade'>
{this.state.showCards ? ( {this.state.showCards ? (
<TradeCards player={this.state.showCardsPlayer} <TradeCards player={this.state.showCardsPlayer}
me={player} me={player}
tradeCard={this.tradeCard} tradeCard={this.tradeCard}
goBack={this.viewPlayerCards} goBack={this.viewPlayerCards}
cardsBeingTraded={this.state.sendCards.map(c => c.id).concat(this.state.receiveCards.map(c => c.id))} cardsBeingTraded={this.state.sendCards.map(c => c.id).concat(this.state.receiveCards.map(c => c.id))}
/> />
) : ( ) : (
<> <>
<Row> <Row>
<Col width="12"> <Col width="12">
<div className="trade-player-container"> <div className="trade-player-container">
<h4> <h4>
{player.name} {player.name}
{player.cards.length > 0 ? ( {player.cards.length > 0 ? (
<> <>
{' - '} {' - '}
<a onClick={e => this.viewPlayerCards(e, player)}> <a onClick={e => this.viewPlayerCards(e, player)}>
<FontAwesomeIcon icon={faWindowRestore} /> Trade Cards <FontAwesomeIcon icon={faWindowRestore} /> Trade Cards
</a> </a>
</> </>
) : (<></>)} ) : (<></>)}
</h4> </h4>
{Object.keys(player.ridges).map((ridge, idx) => ( {Object.keys(player.ridges).map((ridge, idx) => (
<Fragment key={'player-trade' + ridge}> <Fragment key={'player-trade' + ridge}>
{!tradeProposed && (player.ridges[ridge] > 0) && !toTrade[ridge] ? ( {!tradeProposed && (player.ridges[ridge] > 0) && !toTrade[ridge] ? (
<Button className="tiny" <Button className="tiny"
onClick={() => this.tradeAsset(ridge, player.ridges[ridge], true)}> onClick={() => this.tradeAsset(ridge, player.ridges[ridge], true)}>
<FontAwesomeIcon icon={faArrowDown} /> {ridgeNames[idx]} {'('}{player.ridges[ridge]} cows{')'} <FontAwesomeIcon icon={faArrowDown} /> {ridgeNames[idx]} {'('}{player.ridges[ridge]} cows{')'}
</Button> </Button>
) : (<></>)} ) : (<></>)}
{' '} {' '}
</Fragment> </Fragment>
))} ))}
<div className='resource-unit-container'> <div className='resource-unit-container'>
{this.resources.map((o, i) => { {this.resources.map((o, i) => {
let amount = o.key === 'money' ? Math.floor(player.cash / 1000) : player.assets[o.key]; let amount = o.key === 'money' ? Math.floor(player.cash / 1000) : player.assets[o.key];
if (o.key === 'cows') { amount = player.assets.cows - playerRidgeCows(player); } if (o.key === 'cows') { amount = player.assets.cows - playerRidgeCows(player); }
return ( return (
<ResourceUnit img={o.img ? o.img : false} h={o.h} s={o.s} label={o.label} <ResourceUnit img={o.img ? o.img : false} h={o.h} s={o.s} label={o.label}
key={i} key={i}
className={o.key === 'money' ? 'double-width' : false} className={o.key === 'money' ? 'double-width' : false}
amount={amount + Math.min(0, toTrade[o.key])} amount={amount + Math.min(0, toTrade[o.key])}
> >
{o.icon ? ( {o.icon ? (
<> <>
<FontAwesomeIcon icon={o.icon} />(K) <FontAwesomeIcon icon={o.icon} />(K)
<br /> <br />
</> </>
) : ''} ) : ''}
{amount + Math.min(0, toTrade[o.key])} {amount + Math.min(0, toTrade[o.key])}
{o.icon ? (<br />) : ''} {o.icon ? (<br />) : ''}
{!tradeProposed && ((amount + Math.min(0, toTrade[o.key])) > 0 || toTrade[o.key] > 0) ? ( {!tradeProposed && ((amount + Math.min(0, toTrade[o.key])) > 0 || toTrade[o.key] > 0) ? (
<> <>
<Button className="tiny" <Button className="tiny"
onClick={() => this.tradeAsset(o.key, o.amount * -1)}> onClick={() => this.tradeAsset(o.key, o.amount * -1)}>
<FontAwesomeIcon icon={faArrowDown} /> <FontAwesomeIcon icon={faArrowDown} />
</Button> </Button>
{o.key === 'money' && (amount + Math.min(0, toTrade[o.key])) >= 10 ? ( {o.key === 'money' && (amount + Math.min(0, toTrade[o.key])) >= 10 ? (
<Button className="tiny" <Button className="tiny"
onClick={() => this.tradeAsset(o.key, o.amount * -10)}> onClick={() => this.tradeAsset(o.key, o.amount * -10)}>
<FontAwesomeIcon icon={faArrowDown} /> <FontAwesomeIcon icon={faArrowDown} />
<FontAwesomeIcon icon={faArrowDown} /> <FontAwesomeIcon icon={faArrowDown} />
</Button> </Button>
) : ''} ) : ''}
</> </>
) : (<></>)} ) : (<></>)}
</ResourceUnit> </ResourceUnit>
); );
})} })}
</div> </div>
</div> </div>
</Col> </Col>
</Row> </Row>
<Row> <Row>
<Col width="12"> <Col width="12">
{Object.keys(otherPlayer ? otherPlayer.ridges : []).map((ridge, idx) => ( {Object.keys(otherPlayer ? otherPlayer.ridges : []).map((ridge, idx) => (
<Fragment key={'to-trade' + ridge}> <Fragment key={'to-trade' + ridge}>
{(otherPlayer.ridges[ridge] > 0) && toTrade[ridge] ? ( {(otherPlayer.ridges[ridge] > 0) && toTrade[ridge] ? (
<Button className="tiny"
onClick={() => this.tradeAsset(ridge, false)}>
<FontAwesomeIcon icon={faArrowDown} /> {ridgeNames[idx]} {'('}{otherPlayer.ridges[ridge]} cows{')'}
</Button>
) : (<></>)}
{' '}
</Fragment>
))}
{this.state.receiveCards.map((card, idx) => (
<Button className="tiny" <Button className="tiny"
onClick={() => this.tradeAsset(ridge, false)}> key={idx}
<FontAwesomeIcon icon={faArrowDown} /> {ridgeNames[idx]} {'('}{otherPlayer.ridges[ridge]} cows{')'} onClick={() => this.unTradeCard(card.id)}>
{card.summary}
</Button> </Button>
) : (<></>)} ))}
{' '} </Col>
</Fragment> </Row>
))} <Row>
{this.state.receiveCards.map((card, idx) => ( <Col width="12">
<Button className="tiny" <div className='resource-unit-container resources-to-trade'>
key={idx} {this.resources.map((o, i) => (
onClick={() => this.unTradeCard(card.id)}> <ResourceUnit h={o.h} s={o.s} label={o.label}
{card.summary} key={i}
</Button> className={(this.tradeClass(toTrade[o.key])) + (o.key === 'money' ? ' double-width' : '')}
))} amount={toTrade[o.key]}
</Col> >
</Row> {Math.abs(toTrade[o.key])}
<Row> </ResourceUnit>
<Col width="12"> ))}
<div className='resource-unit-container resources-to-trade'> </div>
{this.resources.map((o, i) => ( </Col>
<ResourceUnit h={o.h} s={o.s} label={o.label} </Row>
key={i} <Row>
className={(this.tradeClass(toTrade[o.key])) + (o.key === 'money' ? ' double-width' : '')} <Col width="12">
amount={toTrade[o.key]} {Object.keys(player.ridges).map((ridge, idx) => (
> <Fragment key={'to-trade' + ridge}>
{Math.abs(toTrade[o.key])} {(player.ridges[ridge] > 0) && toTrade[ridge] ? (
</ResourceUnit> <Button className="tiny"
))} onClick={() => this.tradeAsset(ridge, false)}>
</div> <FontAwesomeIcon icon={faArrowUp} /> {ridgeNames[idx]} {'('}{player.ridges[ridge]} cows{')'}
</Col> </Button>
</Row> ) : (<></>)}
<Row> {' '}
<Col width="12"> </Fragment>
{Object.keys(player.ridges).map((ridge, idx) => ( ))}
<Fragment key={'to-trade' + ridge}> {this.state.sendCards.map((card, idx) => (
{(player.ridges[ridge] > 0) && toTrade[ridge] ? (
<Button className="tiny" <Button className="tiny"
onClick={() => this.tradeAsset(ridge, false)}> key={idx}
<FontAwesomeIcon icon={faArrowUp} /> {ridgeNames[idx]} {'('}{player.ridges[ridge]} cows{')'} onClick={() => this.unTradeCard(card.id)}>
{card.summary}
</Button> </Button>
) : (<></>)} ))}
{' '} </Col>
</Fragment> </Row>
))} <Row>
{this.state.sendCards.map((card, idx) => ( <Col width="12">
<Button className="tiny" <div className="trade-player-container">
key={idx} {otherPlayer ? (
onClick={() => this.unTradeCard(card.id)}> <div className='resource-unit-container'>
{card.summary} {this.resources.map((o, i) => {
</Button> let amount = o.key === 'money' ? 99 : otherPlayer.assets[o.key];
))} if (o.key === 'cows') { amount = otherPlayer.assets.cows - playerRidgeCows(otherPlayer); }
</Col> return (
</Row> <ResourceUnit img={o.img ? o.img : false} h={o.h} s={o.s} label={o.label}
<Row> key={i}
<Col width="12"> className={o.key === 'money' ? 'double-width' : false}
<div className="trade-player-container"> amount={amount - Math.max(0, toTrade[o.key])}
{otherPlayer ? ( >
<div className='resource-unit-container'> {o.icon ? (
{this.resources.map((o, i) => { <>
let amount = o.key === 'money' ? 99 : otherPlayer.assets[o.key]; <FontAwesomeIcon icon={o.icon} />(K)
if (o.key === 'cows') { amount = otherPlayer.assets.cows - playerRidgeCows(otherPlayer); } <br />
return ( </>
<ResourceUnit img={o.img ? o.img : false} h={o.h} s={o.s} label={o.label}
key={i}
className={o.key === 'money' ? 'double-width' : false}
amount={amount - Math.max(0, toTrade[o.key])}
>
{o.icon ? (
<>
<FontAwesomeIcon icon={o.icon} />(K)
<br />
</>
) : ''}
{amount - Math.max(0, toTrade[o.key])}
{o.icon ? (<br />) : ''}
{!tradeProposed && ((amount - Math.max(0, toTrade[o.key])) > 0 || toTrade[o.key] < 0) ? (
<>
<Button className="tiny"
onClick={() => this.tradeAsset(o.key, o.amount)}>
<FontAwesomeIcon icon={faArrowUp} />
</Button>
{o.key === 'money' && (amount - Math.min(0, toTrade[o.key])) >= 10 ? (
<Button className="tiny"
onClick={() => this.tradeAsset(o.key, o.amount * 10)}>
<FontAwesomeIcon icon={faArrowUp} />
<FontAwesomeIcon icon={faArrowUp} />
</Button>
) : ''} ) : ''}
</> {amount - Math.max(0, toTrade[o.key])}
) : (<></>)} {o.icon ? (<br />) : ''}
</ResourceUnit> {!tradeProposed && ((amount - Math.max(0, toTrade[o.key])) > 0 || toTrade[o.key] < 0) ? (
); <>
})} <Button className="tiny"
onClick={() => this.tradeAsset(o.key, o.amount)}>
<FontAwesomeIcon icon={faArrowUp} />
</Button>
{o.key === 'money' && (amount - Math.min(0, toTrade[o.key])) >= 10 ? (
<Button className="tiny"
onClick={() => this.tradeAsset(o.key, o.amount * 10)}>
<FontAwesomeIcon icon={faArrowUp} />
<FontAwesomeIcon icon={faArrowUp} />
</Button>
) : ''}
</>
) : (<></>)}
</ResourceUnit>
);
})}
</div>
) : (<></>)}
{Object.keys(otherPlayer ? otherPlayer.ridges : []).map((ridge, idx) => (
<Fragment key={'other-player-trade' + ridge}>
{!tradeProposed && ((otherPlayer.ridges[ridge] > 0) && !toTrade[ridge]) ? (
<Button className="tiny"
onClick={() => this.tradeAsset(ridge, otherPlayer.ridges[ridge], true)}>
<FontAwesomeIcon icon={faArrowUp} /> {ridgeNames[idx]} {'('}{otherPlayer.ridges[ridge]} cows{')'}
</Button>
) : (<></>)}
{' '}
</Fragment>
))}
<select onChange={this.selectPlayer}
value={otherPlayer.name}>
{this.props.game.otherPlayers.map(p => (
<option key={p.player.name} value={p.player.name}>
{p.player.name}
</option>
))}
</select>
{otherPlayer && otherPlayer.revealedCards.length > 0 ? (
<a onClick={e => this.viewPlayerCards(e, otherPlayer)}>
<FontAwesomeIcon icon={faWindowRestore} /> Trade Cards
</a>
) : (<></>)}
</div> </div>
) : (<></>)} </Col>
{Object.keys(otherPlayer ? otherPlayer.ridges : []).map((ridge, idx) => ( </Row>
<Fragment key={'other-player-trade' + ridge}> <Row>
{!tradeProposed && ((otherPlayer.ridges[ridge] > 0) && !toTrade[ridge]) ? ( <Col width="12">
<Button className="tiny" {player.trade.error ? (
onClick={() => this.tradeAsset(ridge, otherPlayer.ridges[ridge], true)}> <p><b>ERROR:</b> {player.trade.error}</p>
<FontAwesomeIcon icon={faArrowUp} /> {ridgeNames[idx]} {'('}{otherPlayer.ridges[ridge]} cows{')'} ) : (<></>)}
</Button> {tradeProposed && player.trade.originator === player.name ? (
) : (<></>)} <Button onClick={submitTradeCancel}>Cancel trade</Button>
{' '} ) : (<></>)}
</Fragment> {tradeProposed && player.trade.originator !== player.name ? (
))} <>
<select onChange={this.selectPlayer} <Button onClick={submitTradeAccept}>Accept trade</Button>{' '}
value={otherPlayer.name}> <Button onClick={submitTradeCancel}>Deny trade</Button>
{this.props.game.otherPlayers.map(p => ( </>
<option key={p.player.name} value={p.player.name}> ) : (<></>)}
{p.player.name} {!tradeProposed ? (
</option> <Button onClick={this.propose}>Propose Trade</Button>
))} ) : (<></>)}
</select> </Col>
{otherPlayer && otherPlayer.revealedCards.length > 0 ? ( </Row>
<a onClick={e => this.viewPlayerCards(e, otherPlayer)}> </>)}
<FontAwesomeIcon icon={faWindowRestore} /> Trade Cards
</a>
) : (<></>)}
</div>
</Col>
</Row>
<Row>
<Col width="12">
{player.trade.error ? (
<p><b>ERROR:</b> {player.trade.error}</p>
) : (<></>)}
{tradeProposed && player.trade.originator === player.name ? (
<Button onClick={submitTradeCancel}>Cancel trade</Button>
) : (<></>)}
{tradeProposed && player.trade.originator !== player.name ? (
<>
<Button onClick={submitTradeAccept}>Accept trade</Button>{' '}
<Button onClick={submitTradeCancel}>Deny trade</Button>
</>
) : (<></>)}
{!tradeProposed ? (
<Button onClick={this.propose}>Propose Trade</Button>
) : (<></>)}
</Col>
</Row>
</>)}
</GroupBox> </GroupBox>
); );
} }
@ -1340,7 +1341,7 @@ class Harvest extends React.Component {
Get ready to harvest <b>{this.props.acres} Get ready to harvest <b>{this.props.acres}
{this.props.crop === 'cows' ? ' head of cow' : ' acres'}</b>! {this.props.crop === 'cows' ? ' head of cow' : ' acres'}</b>!
</div> </div>
{isCurrentPlayer ? ( {isCurrentPlayer || this.props.currentPlayer.ai ? (
<Button onClick={() => this.nextView('roll')}> <Button onClick={() => this.nextView('roll')}>
Roll for harvest! Roll for harvest!
</Button> </Button>
@ -1356,7 +1357,7 @@ class Harvest extends React.Component {
view = (<Die decay={true} num={this.props.rolled} ms={2000} roll={true} view = (<Die decay={true} num={this.props.rolled} ms={2000} roll={true}
rolls={this.props.rolls} rolls={this.props.rolls}
showScreen={() => this.nextView('income')} showScreen={() => this.nextView('income')}
skip={this.props.player.name === this.props.game.currentPlayer} skip={this.props.player.name === this.props.game.currentPlayer || this.props.currentPlayer.ai}
autoSkip={this.props.autoSkip === 'die'} autoSkip={this.props.autoSkip === 'die'}
showScreenDelay={2000} />); showScreenDelay={2000} />);
break; break;
@ -1372,7 +1373,7 @@ class Harvest extends React.Component {
</div> </div>
</div> </div>
</div> </div>
{isCurrentPlayer ? ( {isCurrentPlayer || this.props.currentPlayer.ai ? (
<div className='center spacer'> <div className='center spacer'>
<Button onClick={() => this.nextView('operating-expense')}>Draw Operating Expense</Button> <Button onClick={() => this.nextView('operating-expense')}>Draw Operating Expense</Button>
</div> </div>
@ -1389,7 +1390,7 @@ class Harvest extends React.Component {
dangerouslySetInnerHTML={{__html: this.props.contents}} /> dangerouslySetInnerHTML={{__html: this.props.contents}} />
</GroupBox> </GroupBox>
</div> </div>
{isCurrentPlayer ? ( {isCurrentPlayer || this.props.currentPlayer.ai ? (
<div className='center spacer'> <div className='center spacer'>
<Button onClick={() => this.nextView('expense-value')}>Continue</Button> <Button onClick={() => this.nextView('expense-value')}>Continue</Button>
</div> </div>
@ -1424,7 +1425,7 @@ class Harvest extends React.Component {
</div> </div>
</div> </div>
</div> </div>
{isCurrentPlayer ? {isCurrentPlayer || this.props.currentPlayer.ai ?
( (
<div className='center spacer'> <div className='center spacer'>
<Button onClick={this.props.nextAction}>Continue</Button> <Button onClick={this.props.nextAction}>Continue</Button>
@ -1488,7 +1489,7 @@ class Action extends React.Component {
bertSubmit = (e) => { bertSubmit = (e) => {
e.preventDefault(); e.preventDefault();
if (this.state.bertChoice === 'accept') { if (this.state.bertChoice === 'accept' || this.props.currentPlayer.ai) {
buyUncleBert(); buyUncleBert();
this.props.showNextAction(); this.props.showNextAction();
} else if (this.state.bertChoice === 'deny') { } else if (this.state.bertChoice === 'deny') {
@ -1550,6 +1551,11 @@ class Action extends React.Component {
</form> </form>
</> </>
); );
const aiButton = (
<form onSubmit={this.bertSubmit}>
<Button type="submit">Continue</Button>
</form>
);
view = ( view = (
<GroupBox title={`Uncle Bert's inheritance`}> <GroupBox title={`Uncle Bert's inheritance`}>
<div className='center'> <div className='center'>
@ -1567,6 +1573,7 @@ class Action extends React.Component {
<div> <div>
{(this.props.player.name === this.props.game.currentPlayer) ? {(this.props.player.name === this.props.game.currentPlayer) ?
ffButtons : (<Fragment />)} ffButtons : (<Fragment />)}
{currentPlayer.ai ? aiButton : (<></>)}
</div> </div>
</div> </div>
</GroupBox> </GroupBox>
@ -1937,6 +1944,11 @@ class StartGame extends React.Component {
): (<></>)} ): (<></>)}
</li> </li>
))} ))}
<li>
<span className="add-ai" onClick={addAIPlayer}>
<FontAwesomeIcon icon={faPlusCircle} />AI
</span>
</li>
</ul> </ul>
<h4>Game Settings</h4> <h4>Game Settings</h4>
<ul> <ul>

7
src/components/farm/interface.js
Unescape Escape View File

@ -31,7 +31,8 @@ import { itemCard, fateCard } from 'game.js'
export { initialize, buy, roll, endTurn, loan, trade, submitTradeAccept, export { initialize, buy, roll, endTurn, loan, trade, submitTradeAccept,
submitTradeDeny, submitTradeCancel, audit, handleMessage, submitTradeDeny, submitTradeCancel, audit, handleMessage,
nextAction, buyUncleBert, actionsFinished, skip, endAiTurn, nextAction, buyUncleBert, actionsFinished, skip, endAiTurn,
startGame, readyToStart, leaveGame, kickPlayer, toggleRevealForTrade } startGame, readyToStart, leaveGame, kickPlayer, toggleRevealForTrade,
addAIPlayer }
let store; let store;
let movingTimer = 0; let movingTimer = 0;
@ -217,6 +218,10 @@ function kickPlayer(name) {
sendCommand({ type: 'kick-player', name }); sendCommand({ type: 'kick-player', name });
} }
function addAIPlayer() {
sendCommand({ type: 'add-ai-player' });
}
function toggleRevealForTrade(id) { function toggleRevealForTrade(id) {
sendCommand({ type: 'toggle-reveal-for-trading', id }); sendCommand({ type: 'toggle-reveal-for-trading', id });
} }

176
src/server/farm.scm
Unescape Escape View File

@ -120,7 +120,7 @@
(next-year-rules initform: '() accessor: player-next-year-rules) (next-year-rules initform: '() accessor: player-next-year-rules)
(color initform: #f accessor: player-color) (color initform: #f accessor: player-color)
(name initform: "PLAYER X" accessor: player-name) (name initform: "PLAYER X" accessor: player-name)
(user-id initform: #f accessor: player-user-id) (user-id initform: -1 accessor: player-user-id)
(trade initform: '() accessor: player-trade) (trade initform: '() accessor: player-trade)
(last-updated initform: 0 accessor: player-last-updated) (last-updated initform: 0 accessor: player-last-updated)
(last-cash initform: 5000 accessor: player-last-cash) (last-cash initform: 5000 accessor: player-last-cash)
@ -202,7 +202,8 @@
(last-cash . ,(player-cash player)) (last-cash . ,(player-cash player))
(hay-doubled . ,(player-hay-doubled player)) (hay-doubled . ,(player-hay-doubled player))
(corn-doubled . ,(player-corn-doubled player)) (corn-doubled . ,(player-corn-doubled player))
(stats . ,(player-stats player)))) (stats . ,(player-stats player))
(ai . ,(ai-player? player))))
(define (game->sexp g) (define (game->sexp g)
`((id . ,(game-id g)) `((id . ,(game-id g))
@ -317,7 +318,7 @@
(set! *app* (sexp->app (read)))))) (set! *app* (sexp->app (read))))))
(define (sexp->player x) (define (sexp->player x)
(let ((p (apply make <player> (let ((p (apply make (if (alist-ref 'ai x) <ai> <player>)
'farmers-fates (let ((ffs (alist-ref 'farmers-fates x))) 'farmers-fates (let ((ffs (alist-ref 'farmers-fates x)))
(list-copy (list-copy
(filter (lambda (card) (filter (lambda (card)
@ -422,7 +423,7 @@
(define (add-ai-to-game game color name) (define (add-ai-to-game game color name)
(let ((player (make <ai> (let ((player (make <ai>
'cash 10000 'cash (game-setting 'starting-cash game)
'display-cash (game-setting 'starting-cash game) 'display-cash (game-setting 'starting-cash game)
'debt (game-setting 'starting-debt game) 'debt (game-setting 'starting-debt game)
'color color 'color color
@ -555,6 +556,7 @@
(state . ,(symbol->string (player-state p))) (state . ,(symbol->string (player-state p)))
(cards . ,(list->vector (append (player-farmers-fates p) (cards . ,(list->vector (append (player-farmers-fates p)
(player-otbs p)))) (player-otbs p))))
(revealedCards . ,(list->vector (player-revealed-cards p)))
(color . ,(symbol->string (player-color p))) (color . ,(symbol->string (player-color p)))
(name . ,(player-name p)) (name . ,(player-name p))
(user-id . ,(player-user-id p)) (user-id . ,(player-user-id p))
@ -1044,6 +1046,10 @@
game-in-memory game-in-memory
(let ((db-game (sexp->game (db-fetch-game id)))) (let ((db-game (sexp->game (db-fetch-game id))))
(push! db-game (app-games *app*)) (push! db-game (app-games *app*))
(for-each (lambda (p)
(when (ai-player? p)
(thread-start! (make-ai-push-receiver db-game p))))
(game-players db-game))
db-game)))) db-game))))
(define (next-roll last-roll) (define (next-roll last-roll)
@ -1261,9 +1267,13 @@
((and (string=? type "next-action") ((and (string=? type "next-action")
(ai-player? (game-current-player game))) (ai-player? (game-current-player game)))
(print "ai next action trigger") (print "ai next action trigger")
(print (player-name (game-current-player game)))
(message-players! game player '() type: "ai-next-action") (message-players! game player '() type: "ai-next-action")
(create-ws-response player "update" `())) (create-ws-response player "update" `()))
((and (string=? type "buy-uncle-bert")
(ai-player? (game-current-player game)))
(print "ai uncle bert trigger")
(message-players! game player '() type: "ai-uncle-bert")
(create-ws-response player "update" `()))
((string=? type "end-ai-turn") ((string=? type "end-ai-turn")
(message-players! game player '() type: "end-ai-turn") (message-players! game player '() type: "end-ai-turn")
(create-ws-response player "update" `())) (create-ws-response player "update" `()))
@ -1469,6 +1479,21 @@
(set-startup-otbs game player (alist-ref 'starting-otbs (game-settings game))) (set-startup-otbs game player (alist-ref 'starting-otbs (game-settings game)))
(message-players! game player '() type: "update") (message-players! game player '() type: "update")
(create-start-response "new-game-started"))) (create-start-response "new-game-started")))
((string=? type "add-ai-player")
(let* ((user (fetch-user-by-id (session-ref (sid) 'user-id)))
(name (conc "AI Player "
(+ 1 (length (filter ai-player? (game-players game))))))
(game (*game*))
(color (car (game-colors game)))
(player (add-ai-to-game game
color
name)))
(safe-set! (game-colors game) (filter (cut neq? <> color) (game-colors game)))
(set-startup-otbs game player (alist-ref 'starting-otbs (game-settings game)))
(safe-set! (player-ready-to-start player) #t)
(thread-start! (make-ai-push-receiver game player))
(message-players! game player '() type: "update")
(create-ws-response (*player*) "update" '())))
((string=? type "join-as-existing") ((string=? type "join-as-existing")
(let* ((id (or (alist-ref 'gameId msg) (let* ((id (or (alist-ref 'gameId msg)
(session-ref (sid) 'game-id))) (session-ref (sid) 'game-id)))
@ -1547,6 +1572,79 @@
(message-players! (*game*) (*player*) '() type: "update") (message-players! (*game*) (*player*) '() type: "update")
(create-ws-response (*player*) "update" '())))) (create-ws-response (*player*) "update" '()))))
(define (round-down-1000 val)
(- val (remainder val 1000)))
(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))))
(print (conc "room: " room))
(print (conc "crops: " crops))
(let ((to-buy
(cond ((and (member 'cows crops) (>= room 5000))
'(cows 10 5000))
((and (member 'fruit crops) (>= room 25000))
'(fruit 5 25000))
((and (member 'grain crops) (>= room 20000))
'(grain 10 20000))
((and (member 'hay crops) (>= room 20000))
'(hay 10 20000))
((and (member 'harvester crops) (>= room 10000)
(= (player-asset 'harvester player) 0))
'(harvester 1 10000))
((and (member 'tractor crops) (>= room 10000)
(= (player-asset 'tractor player) 0))
'(tractor 1 10000))
((and (member 'ridge4 crops) (>= room 50000)
(not (find (lambda (p)
(> (player-asset 'ridge4 p) 0))
(game-players game))))
'(ridge4 50 50000))
((and (member 'ridge3 crops) (>= room 40000)
(not (find (lambda (p)
(> (player-asset 'ridge3 p) 0))
(game-players game))))
'(ridge3 40 40000))
((and (member 'ridge2 crops) (>= room 30000)
(not (find (lambda (p)
(> (player-asset 'ridge2 p) 0))
(game-players game))))
'(ridge2 30 30000))
((and (member 'ridge1 crops) (>= room 20000)
(not (find (lambda (p)
(> (player-asset 'ridge1 p) 0))
(game-players game))))
'(ridge1 20 20000))
(else #f))))
(print "to buy: " to-buy)
(if to-buy
(begin
(print (conc "buying crop: " (first to-buy)))
(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)))
player
game)
#t)
(let ((id (alist-ref 'id
(find (lambda (c) (equal? (alist-ref 'crop c) (symbol->string (first to-buy))))
(player-otbs player)))))
(safe-set! (game-otbs game)
(append (game-otbs game)
(filter (lambda (x) (= id (alist-ref 'id x)))
(player-otbs player))))
(safe-set! (player-otbs player)
(filter (lambda (x) (not (= id (alist-ref 'id x))))
(player-otbs player)))
#t)
#f))
#f)))
)
(define (process-ai-push-message player game msg) (define (process-ai-push-message player game msg)
(print (player-name player)) (print (player-name player))
(print msg) (print msg)
@ -1555,47 +1653,55 @@
(if (and (eq? (player-state player) 'pre-turn) (if (and (eq? (player-state player) 'pre-turn)
(not (ai-processing-turn player))) (not (ai-processing-turn player)))
(begin (set! (ai-processing-turn player) #t) (begin (set! (ai-processing-turn player) #t)
;; time to buy
(when (and (>= (player-space player) 9) (<= (player-space player) 14))
(let loop ((cont (ai-buy player game)))
(when cont (loop (ai-buy player game)))))
(let ((res (process-message player game "roll" '((type . "roll"))))) (let ((res (process-message player game "roll" '((type . "roll")))))
(print "rolled a " (alist-ref 'value res)) (print "rolled a " (alist-ref 'value res))))))
;; (process-message player game "next-action" '((type . "next-action")))
;; (let loop ((msg (process-message player game "next-action" '((type . "next-action")))))
;; (if (alist-ref 'action msg)
;; (loop (process-message player game "next-action" '((type . "next-action"))))
;; (print "done with actions")))
))))
((auto-skip) ((auto-skip)
(print "ai auto-skip") (print "ai auto-skip"))
;; (when (ai-processing-turn player)
;; (process-message player game "next-action" '((type . "next-action"))))
)
((ai-next-action) ((ai-next-action)
(print "ai-next-action") (print "ai-next-action")
(when (ai-processing-turn player) (when (ai-processing-turn player)
(let ((res (process-message player game "next-action" '((type . "next-action"))))) (let ((res (process-message player game "next-action" '((type . "next-action")))))
(display "res: ") res
(write res) ;; (display "res: ")
(newline) ;; (write res)
;; (print "res1: " (eq? (alist-ref 'event res) 'action)) ;; (newline)
;; (print "res2: " (not (alist-ref 'action res)))
;; (print "res3: " (and (eq? (alist-ref 'event res) 'action)
;; (not (alist-ref 'action res))))
;; (when (and (string=? (alist-ref 'event res) "action")
;; (not (alist-ref 'action res)))
;; (print "ending turn")
;; (thread-sleep! 0.5)
;; (set! (ai-processing-turn player) #f)
;; (process-message player game "turn-ended" '()))
))) )))
((end-ai-turn) ((ai-uncle-bert)
(print "ai-uncle-bert")
(when (ai-processing-turn player) (when (ai-processing-turn player)
(print "ending turn") (safe-set! (player-debt player) (+ (player-debt player) 10000))
(thread-sleep! 0.5) (safe-set! (player-assets player)
(set! (ai-processing-turn player) #f) (alist-update 'hay (+ (alist-ref 'hay (player-assets player)) 10)
(process-message player game "turn-ended" '()) (player-assets player)))))
)))) ((end-ai-turn)
(if (eq? (player-state player) 'pre-turn)
(process-ai-push-message player game '((type . "update"))) ;; restarting at AI player's turn
(when (ai-processing-turn player)
(when (< (player-cash player) 0)
(print "taking out loan")
(process-message player game "loan" `((amount . ,(/ (+ (abs (player-cash player))
(remainder (abs (player-cash player)) 1000))
1000)))))
(when (>= (player-cash player) 1000)
(print "repaying loan")
(process-message player game "loan" `((amount . ,(* (/ (- (player-cash player)
(remainder (player-cash player) 1000))
1000)
-1)))))
(print "ending turn")
;; (thread-sleep! 0.5)
(set! (ai-processing-turn player) #f)
(process-message player game "turn-ended" '())
)))))
(define (make-ai-push-receiver game player) (define (make-ai-push-receiver game player)
(lambda () (lambda ()
(*game* game)
(*player* player)
(let loop ((msg (mailbox-receive! (player-mailbox player)))) (let loop ((msg (mailbox-receive! (player-mailbox player))))
(process-ai-push-message player game msg) (process-ai-push-message player game msg)
(loop (mailbox-receive! (player-mailbox player)))))) (loop (mailbox-receive! (player-mailbox player))))))

Write Preview
Loading…
Cancel
Save