*temp bet 0
*temp payoff 0
*temp npc1 ""
*temp npc2 ""
*temp npc3 ""

*temp employee_emoji "🤵"

*if sound
	*sound dice.wav

🎲 [b]${planet_name} Spaceport Dice Parlor[/b]

You step into a modest room where several people are gathered around some square tables covered in green felt.

A neatly attired employee approaches you as you enter.

${employee_emoji} [i]"Welcome to the ${planet_name} Spaceport Dice Parlor.  Although we encourage all guests to make themselves feel at home, please remember that smoking, eating, and drinking are prohibited in this establishment.[/i]
	
A discreet wooden sign lists the games on offer.

[b]:::[/b] What do you want to do, Captain?

*fake_choice
	#🧦 Play Going to Boston
		*goto boston
	#🛢️ Play Bunco
		*goto bunco
	#↔️ Play Left-Right-Center
		*goto lrc
	#↩️ Leave the dice parlor
		*goto_scene spaceport leave_market
	
*label parlor2

🎲 [b]${planet_name} Spaceport Dice Parlor[/b]

*if sound
	*sound dice.wav

Looking around, you see several clusters of people seated around various gaming tables, smiling and laughing as they toss the dice.

${employee_emoji} [i]"Good to see you enjoying our fine collection of dice games, Captain.  If there is anything else that I can help with, please do not hesitate to let me know."[/i]

A discreet wooden sign lists the games on offer.

[b]:::[/b] What do you want to do, Captain?

*fake_choice
	#🧦 Play Going to Boston
		*goto boston
	#🛢️ Play Bunco
		*goto bunco
	#↔️ Play Left-Right-Center
		*goto lrc
	#↩️ Leave the dice parlor
		*goto_scene spaceport leave_market
	
*label lrc

*temp npc2_emoji ""
*gosub npcs_setup

🎲 [b]Dice Parlor - Left-Right-Center Table[/b]

*if sound
	*sound womanchuckling.wav

As you approach the Left-Right-Center table, you see that three other players are already seated.

Taking your place at the last spot available at the table, you see a small pamphlet that says "How to Play Left-Right-Center."

${npc2_emoji} "Just let us know when you're ready to begin," says one of the players.

[b]:::[/b] What do you want to do, Captain?

*fake_choice
	#↔️ Begin playing Left-Right-Center
		*goto lrc_wager
	#❓ Read the pamphlet
		*goto lrc_instructions
	#↩️  Try a different game
		*goto parlor2
	
*label lrc_instructions

Picking up the pamphlet, you read:

[i]Left-Right-Center is a fun and family friendly game for people of all ages![/i]

[i]Before the game begins, each player will stake an agreed-upon amount, and every player will begin with two chips.[/i]

[i]During a round, each player will roll a special die.  If the player gets "Left," they must pass one chip to the person to their left.  Likewise, if a player gets "Right," they pass a chip to person to their right .[/i]

[i]If a player rolls a "Center," then their chip goes into the central pot.  However, if a player rolls a 🚫 then nothing happens, and their turn ends.[/i]

[i]Play continues until only one player has some chips, and they are the winner of the game.[/i]

[b]:::[/b] What do you want to do, Captain?

*fake_choice
	#↔️ Begin playing Left-Right-Center
		*goto lrc_wager
	#↩️  Try a different game
		*goto parlor2
	
*label lrc_wager
*gosub lrc_cards_setup

🎲 [b]Dice Parlor - Left-Right-Center Table[/b]

*if sound
	*sound betdecider.wav

"Okay, let's play some Left-Right-Center," you announce.

${npc1_emoji} "How much should we stake for this game?  I say two hundred and fifty credits ought to keep it interesting.  Oh, my name's ${npc1}, by the way."

${npc2_emoji} "And I'm ${npc2}.  No way, ${npc1}, that's too high.  Let's go with one hundred credits."

${npc3_emoji} "I'd feel more comfortable with just fifty credits. And you can call me ${npc3}."

${npc1_emoji} "Well, since we cannot agree, let's let the off-worlder decide."

[b]:::[/b] How much do you want to stake on this game, Captain?

*fake_choice
	*selectable_if (credits >= 50) #Stake ¢50 for this game
		*set bet 50
	*selectable_if (credits >= 100) #Stake ¢100 for this game
		*set bet 100
	*selectable_if (credits >= 250) #Stake ¢250 for this game
		*set bet 250
	#↩️  Try a different game
		*goto parlor2
	
*check_achievements
*if choice_achieved_first_dice = false
	*achieve first_dice
	
🎲 [b]Dice Parlor - Left-Right-Center Table[/b]

*if sound
	*sound betdecider.wav

"${greetings}, my name is ${name}.  And I think we should stake ${bet} credits for this game," you say.

*if bet = 50
	${npc3_emoji} "It's so nice to have a sensible player at the table for once.  Thank you for joining us, ${name}!"
	
*if bet = 100
	${npc2_emoji} "I liked your face the minute I saw it, ${name}."
	
*if bet = 250
	${npc1_emoji} "All right!  Finally, a player with some guts.  So happy that you're playing with us, ${name}."
	
"Now that it's agreed, let's play," you say.

*page_break 🎲

*label lrc_npc1_turn

🎲 [b]Dice Parlor - Left-Right-Center Table[/b]

*if npc1_chips = 0
	${npc1} is out of chips and so skips this turn.
	
	*page_break ${npc2_emoji} turn
	*goto lrc_npc2_turn

${npc1_emoji} takes their turn.

*rand dieroll 1 6

*if sound
	*sound diceroll.wav
	
*if dieroll = 1
	${npc1} rolls a ⬅️ and so passes one chip to ${npc2}.
	*set npc1_chips -1
	*set npc2_chips +1
	
*if dieroll = 2
	${npc1} rolls a ➡️ and so passes one chip to you.
	*set npc1_chips -1
	*set player_chips +1
	
*if dieroll = 3
	${npc1} rolls a ⬆️ and so puts one chip into the pot.
	*set npc1_chips -1
	
*if dieroll > 3
	${npc1} rolls a 🚫
	*if sound
		*rand dieroll 1 3
		*if dieroll = 1
			*sound yes1.wav
			
		*if dieroll = 2
			*sound yes1b.wav
			
		*if dieroll = 3
			*sound yes1c.wav
	
Current chip tally:

${npc1_emoji} ${npc1}: ${npc1_chips}
*line_break
${npc2_emoji} ${npc2}: ${npc2_chips}
*line_break
${npc3_emoji} ${npc3}: ${npc3_chips}
*line_break
${player_emoji} Captain ${name}: ${player_chips}
	
*if (npc1_chips > 0) and (npc2_chips = 0)
	*if (npc3_chips = 0) and (player_chips = 0)
		*set credits - bet
		${npc1} has won this game!
		*if sound
			*sound grandloser1.wav
		*goto lrc_wrap_up

*if (npc2_chips > 0) and (npc1_chips = 0)
	*if (npc3_chips = 0) and (player_chips = 0)
		*set credits - bet
		${npc2} has won this game!
		*if sound
			*sound grandloser1.wav
		*goto lrc_wrap_up

*if (npc3_chips > 0) and (npc2_chips = 0)
	*if (npc1_chips = 0) and (player_chips = 0)
		*set credits - bet
		${npc3} has won this game!
		*if sound
			*sound grandloser1.wav
		*goto lrc_wrap_up

*if (player_chips > 0) and (npc2_chips = 0)
	*if (npc3_chips = 0) and (npc1_chips = 0)
		*set credits + bet
		*if sound
			*sound grandwinner.wav
		You won this game!
		*goto lrc_wrap_up
	
*page_break ${npc2_emoji} turn

*label lrc_npc2_turn

🎲 [b]Dice Parlor - Left-Right-Center Table[/b]

*if npc2_chips = 0
	${npc2} is out of chips and so skips this turn.
	
	*page_break ${npc3_emoji} turn
	*goto lrc_npc3_turn

${npc2_emoji} takes their turn.

*rand dieroll 1 6

*if sound
	*sound dicefast.wav
	
*if dieroll = 1
	${npc2} rolls a ⬅️ and so passes one chip to ${npc3}.
	*set npc2_chips -1
	*set npc3_chips +1
	
*if dieroll = 2
	${npc2} rolls a ➡️ and so passes one chip to ${npc1}.
	*set npc2_chips -1
	*set npc1_chips +1
	
*if dieroll = 3
	${npc2} rolls a ⬆️ and so puts one chip into the pot.
	*set npc2_chips -1
	
*if dieroll > 3
	${npc2} rolls a 🚫
	*if sound
		*rand dieroll 1 3
		
		*if dieroll = 1
			*sound yes2.wav
			
		*if dieroll = 2
			*sound yes2b.wav
			
		*if dieroll = 3
			*sound yes2c.wav
	
Current chip tally:

${npc1_emoji} ${npc1}: ${npc1_chips}
*line_break
${npc2_emoji} ${npc2}: ${npc2_chips}
*line_break
${npc3_emoji} ${npc3}: ${npc3_chips}
*line_break
${player_emoji} Captain ${name}: ${player_chips}
	
*if (npc1_chips > 0) and (npc2_chips = 0)
	*if (npc3_chips = 0) and (player_chips = 0)
		*set credits - bet
		${npc1} has won this game!
		*if sound
			*sound grandloser1.wav
		*goto lrc_wrap_up

*if (npc2_chips > 0) and (npc1_chips = 0)
	*if (npc3_chips = 0) and (player_chips = 0)
		*set credits - bet
		${npc2} has won this game!
		*if sound
			*sound grandloser1.wav
		*goto lrc_wrap_up

*if (npc3_chips > 0) and (npc2_chips = 0)
	*if (npc1_chips = 0) and (player_chips = 0)
		*set credits - bet
		${npc3} has won this game!
		*if sound
			*sound grandloser1.wav
		*goto lrc_wrap_up

*if (player_chips > 0) and (npc2_chips = 0)
	*if (npc3_chips = 0) and (npc1_chips = 0)
		*set credits + bet
		You won this game!
		*if sound
			*sound grandwinner.wav
		*goto lrc_wrap_up
	
*page_break ${npc3_emoji} turn

*label lrc_npc3_turn

🎲 [b]Dice Parlor - Left-Right-Center Table[/b]

*if npc3_chips = 0
	${npc3} is out of chips and so skips this turn.
	
	[b]:::[/b] What do you want to do, Captain?

	*fake_choice
		#🎲 Roll the dice
			*goto lrc_player_turn
		#🏳️ Forfeit this game
			*goto forfeit

${npc3_emoji} takes their turn.

*rand dieroll 1 6

*if sound
	*sound dice.wav
	
*if dieroll = 1
	${npc3} rolls a ⬅️ and so passes one chip to you.
	*set npc3_chips -1
	*set player_chips +1
	
*if dieroll = 2
	${npc3} rolls a ➡️ and so passes one chip to ${npc2}.
	*set npc3_chips -1
	*set npc2_chips +1
	
*if dieroll = 3
	${npc3} rolls a ⬆️ and so puts one chip into the pot.
	*set npc3_chips -1
	
*if dieroll > 3
	${npc3} rolls a 🚫
	*if sound
		*rand dieroll 1 3
		
		*if dieroll = 1
			*sound yes3.wav
			
		*if dieroll = 2
			*sound yes3b.wav
			
		*if dieroll = 3
			*sound yes3c.wav
	
Current chip tally:

${npc1_emoji} ${npc1}: ${npc1_chips}
*line_break
${npc2_emoji} ${npc2}: ${npc2_chips}
*line_break
${npc3_emoji} ${npc3}: ${npc3_chips}
*line_break
${player_emoji} Captain ${name}: ${player_chips}
	
*if (npc1_chips > 0) and (npc2_chips = 0)
	*if (npc3_chips = 0) and (player_chips = 0)
		*set credits - bet
		${npc1} has won this game!
		*if sound
			*sound grandloser1.wav
		*goto lrc_wrap_up

*if (npc2_chips > 0) and (npc1_chips = 0)
	*if (npc3_chips = 0) and (player_chips = 0)
		*set credits - bet
		${npc2} has won this game!
		*if sound
			*sound grandloser1.wav
		*goto lrc_wrap_up

*if (npc3_chips > 0) and (npc2_chips = 0)
	*if (npc1_chips = 0) and (player_chips = 0)
		*set credits - bet
		${npc3} has won this game!
		*if sound
			*sound grandloser1.wav
		*goto lrc_wrap_up

*if (player_chips > 0) and (npc2_chips = 0)
	*if (npc3_chips = 0) and (npc1_chips = 0)
		*set credits + bet
		*if sound
			*sound grandwinner.wav
		You won this game!
		*goto lrc_wrap_up

[b]:::[/b] What do you want to do, Captain?

*fake_choice
	#🎲 Roll the dice
	#🏳️ Forfeit this game
		*goto forfeit

*label lrc_player_turn

🎲 [b]Dice Parlor - Left-Right-Center Table[/b]

*if player_chips = 0
	*if sound
		*sound whistling.wav
	You are out of chips and so you skip this turn.
	
	*page_break ${npc1_emoji} turn
	*goto lrc_npc1_turn

You take your turn.

*rand dieroll 1 6

*if sound
	*sound diceroll.wav

*if dieroll > 3
	You roll a 🚫
	*if sound
		*sound winner2.wav
	
*if dieroll = 1
	You roll a ⬅️ and so pass one chip to ${npc1}.
	*set player_chips -1
	*set npc1_chips +1
	
*if dieroll = 2
	You roll a ➡️ and so pass one chip to ${npc3}.
	*set player_chips -1
	*set npc3_chips +1
	
*if dieroll = 3
	You roll a ⬆️ and so put one chip into the pot.
	*set player_chips -1
	
Current chip tally:

${npc1_emoji} ${npc1}: ${npc1_chips}
*line_break
${npc2_emoji} ${npc2}: ${npc2_chips}
*line_break
${npc3_emoji} ${npc3}: ${npc3_chips}
*line_break
${player_emoji} Captain ${name}: ${player_chips}

*if (npc1_chips > 0) and (npc2_chips = 0)
	*if (npc3_chips = 0) and (player_chips = 0)
		*set credits - bet
		${npc1} has won this game!
		*if sound
			*sound grandloser1.wav
		*goto lrc_wrap_up

*if (npc2_chips > 0) and (npc1_chips = 0)
	*if (npc3_chips = 0) and (player_chips = 0)
		*set credits - bet
		${npc2} has won this game!
		*if sound
			*sound grandloser1.wav
		*goto lrc_wrap_up

*if (npc3_chips > 0) and (npc2_chips = 0)
	*if (npc1_chips = 0) and (player_chips = 0)
		*set credits - bet
		${npc3} has won this game!
		*if sound
			*sound grandloser1.wav
		*goto lrc_wrap_up

*if (player_chips > 0) and (npc2_chips = 0)
	*if (npc3_chips = 0) and (npc1_chips = 0)
		*set credits + bet
		You won this game!
		*if sound
			*sound grandwinner.wav
		*goto lrc_wrap_up
	
*page_break ${npc1_emoji} turn

*goto lrc_npc1_turn

*label lrc_wrap_up

Cash on hand: ¢${credits}

::: What do you want to do, Captain?

*fake_choice
	#↔️ Play another game of Left-Right-Center
		*goto lrc_wager2
	#↩️  Try a different game
		*goto parlor2
	
*label lrc_wager2

*set player_chips 2
*set npc1_chips 2
*set npc2_chips 2
*set npc3_chips 2

🎲 [b]Dice Parlor - Left-Right-Center Table[/b]

*if sound
	*sound betdecider.wav

"Let's play another round," you announce to the players at the table.

${npc1_emoji} "Works for me!  I love making easy money."

${npc2_emoji} "Fine.  But I do need to leave, soon."

${npc3_emoji} "I guess I can play one more."

${npc1_emoji} "Since you're a guest here on ${planet_name}, ${name}, you decide how much we'll stake for the next game."

[b]:::[/b] What do you want to do, Captain?

*fake_choice
	*selectable_if (credits >= 50) #Stake ¢50 for this game
		*set bet 50
	*selectable_if (credits >= 100) #Stake ¢100 for this game
		*set bet 100
	*selectable_if (credits >= 250) #Stake ¢250 for this game
		*set bet 250
	#↩️  Try a different game
		*goto parlor2
	
*check_achievements
*if choice_achieved_first_dice = false
	*achieve first_dice
	
*goto lrc_npc1_turn
	
*label bunco
*temp npc2_emoji ""
*gosub npcs_setup

🎲 [b]Dice Parlor - Bunco Table[/b]

*if sound
	*sound womanchuckling.wav

As you approach the Bunco table, you see that three other players are already seated.

Taking your place at the last spot available at the table, you see a small pamphlet that says "How to Play Bunco."

${npc2_emoji} "Just let us know when you're ready to begin," says one of the players.

[b]:::[/b] What do you want to do, Captain?

*fake_choice
	#🛢️ Begin playing Bunco
		*goto bunco_wager
	#❓ Read the pamphlet
		*goto bunco_instructions
	#↩️  Try a different game
		*goto parlor2
	
*label bunco_instructions

Picking up the pamphlet, you read:

[i]Bunco is a fun and family friendly game for people of all ages![/i]

[i]Before the game begins, each player will stake an agreed-upon amount.[/i]

[i]During a round, each player will roll three dice.  If one die matches the round number (i.e. a player rolls a "1" during round 1), the player will earn one point and get to roll again.  Likewise, rolling two dice that match the round number earns two points.[/i]

[i]If a player rolls three-of-a-kind but they don't match the round number (i.e. three "5s" during round 1), the player earns five points and gets to roll again.  If a player rolls three-of-a-kind that DO match the round number, they get 21 points, and their turn is over.[/i]

[i]The player with the most points after SIX rounds wins all the money.[/i]

[b]:::[/b] What do you want to do, Captain?

*fake_choice
	#🛢️ Begin playing Bunco
		*goto bunco_wager
	#↩️  Try a different game
		*goto parlor2
	
*label bunco_wager
*gosub bunco_cards_setup

🎲 [b]Dice Parlor - Bunco Table[/b]

"Okay, let's play some Bunco," you announce.

*if sound
	*sound betdecider.wav

${npc1_emoji} "How much should we stake for this game?  I say two hundred and fifty credits ought to keep it interesting.  Oh, my name's ${npc1}, by the way."

${npc2_emoji} "And I'm ${npc2}.  No way, ${npc1}, that's too high.  Let's go with one hundred credits."

${npc3_emoji} "I'd feel more comfortable with just fifty credits. And you can call me ${npc3}."

${npc1_emoji} "Well, since we cannot agree, let's let the off-worlder decide."

[b]:::[/b] How much do you want to stake on this game, Captain?

*fake_choice
	*selectable_if (credits >= 50) #Stake ¢50 for this game
		*set bet 50
	*selectable_if (credits >= 100) #Stake ¢100 for this game
		*set bet 100
	*selectable_if (credits >= 250) #Stake ¢250 for this game
		*set bet 250
	#↩️  Try a different game
		*goto parlor2
	
🎲 [b]Dice Parlor - Bunco Table[/b]

*check_achievements
*if choice_achieved_first_dice = false
	*achieve first_dice

*if sound
	*sound betdecider.wav

"${greetings}, my name is ${name}.  And I think we should stake ${bet} credits for this game," you say.

*if bet = 50
	${npc3_emoji} "It's so nice to have a sensible player at the table for once.  Thank you for joining us, ${name}!"
	
*if bet = 100
	${npc2_emoji} "I liked your face the minute I saw it, ${name}."
	
*if bet = 250
	${npc1_emoji} "All right!  Finally, a player with some guts.  So happy that you're playing with us, ${name}."
	
"Now that it's agreed, let's play," you say.

*page_break 🎲

*label bunco_npc1_turn

*set round +1

🎲 [b]Dice Parlor - Bunco Round ${round}[/b]

*set round_score 0
*set npc1_hand_score 0

${npc1_emoji} takes their turn.

*if sound
	*sound dice.wav

*gosub bunco_npc1_rolls

*page_break ${npc1_emoji}

🎲 [b]Dice Parlor - Bunco Round ${round}[/b]

*if round_score != 1
	${npc1} scored ${round_score} points this round.
	
*if round_score = 1
	${npc1} scored ${round_score} point this round.

*if round_score < 1
	*gosub npc_disappointed
	${npc1_emoji} "${response}"
	
*if (round_score >= 1) and (round_score < 5)
	*gosub npc_accepts
	${npc1_emoji} "${response}"
	
*if (round_score >= 5) and (round_score < 21)
	*gosub npc_elated
	${npc1_emoji} "${response}"
	
*set npc1_score + round_score
*set npc1_hand_score round_score
	
Score:

${npc1_emoji} ${npc1}: ${npc1_score}
*line_break
${npc2_emoji} ${npc2}: ${npc2_score}
*line_break
${npc3_emoji} ${npc3}: ${npc3_score}
*line_break
${player_emoji} Captain ${name}: ${player_score}

*page_break ${npc2_emoji} turn

*set round_score 0
*set npc2_hand_score 0

🎲 [b]Dice Parlor - Bunco Round ${round}[/b]

${npc2_emoji} takes their turn.

*if sound
	*sound diceroll.wav

*gosub bunco_npc2_rolls

*page_break ${npc2_emoji}

🎲 [b]Dice Parlor - Bunco Round ${round}[/b]

*if round_score != 1
	${npc2} scored ${round_score} points this round.
	
*if round_score = 1
	${npc2} scored ${round_score} point this round.

*if round_score < 2
	*gosub npc_disappointed
	${npc2_emoji} "${response}"
	
*if (round_score >= 2) and (round_score < 5)
	*gosub npc_accepts
	${npc2_emoji} "${response}"
	
*if (round_score >= 5) and (round_score < 21)
	*gosub npc_elated
	${npc2_emoji} "${response}"
	
*set npc2_score + round_score
*set npc2_hand_score round_score
	
Score:

${npc1_emoji} ${npc1}: ${npc1_score}
*line_break
${npc2_emoji} ${npc2}: ${npc2_score}
*line_break
${npc3_emoji} ${npc3}: ${npc3_score}
*line_break
${player_emoji} Captain ${name}: ${player_score}

*page_break ${npc3_emoji} turn

🎲 [b]Dice Parlor - Bunco Round ${round}[/b]

*set round_score 0
*set npc3_hand_score 0

${npc3_emoji} takes their turn.

*if sound
	*sound dicefast.wav

*gosub bunco_npc3_rolls

*page_break ${npc3_emoji}

🎲 [b]Dice Parlor - Bunco Round ${round}[/b]

*if round_score != 1
	${npc3} scored ${round_score} points this round.
	
*if round_score = 1
	${npc3} scored ${round_score} point this round.

*if round_score < 1
	*gosub npc_disappointed
	${npc3_emoji} "${response}"
	
*if (round_score >= 1) and (round_score < 5)
	*gosub npc_accepts
	${npc3_emoji} "${response}"
	
*if (round_score >= 5) and (round_score < 21)
	*gosub npc_elated
	${npc3_emoji} "${response}"
	
*set npc3_score + round_score
*set npc3_hand_score round_score
	
Score:

${npc1_emoji} ${npc1}: ${npc1_score}
*line_break
${npc2_emoji} ${npc2}: ${npc2_score}
*line_break
${npc3_emoji} ${npc3}: ${npc3_score}
*line_break
${player_emoji} Captain ${name}: ${player_score}

[b]:::[/b] What do you want to do, Captain?

*fake_choice
	#🎲 Roll the dice
	#🏳️ Forfeit this game
		*goto forfeit

*label bunco_player_turn

*set round_score 0
*set player_hand_score 0

*if sound
	*sound dice.wav

*gosub bunco_player_rolls

*set player_score + round_score
*set player_hand_score round_score

*if round_score != 1
	You scored a total of ${round_score} points this round.
	
*if round_score = 1
	You scored a total of ${round_score} point this round.

Score:

${npc1_emoji} ${npc1}: ${npc1_score}
*line_break
${npc2_emoji} ${npc2}: ${npc2_score}
*line_break
${npc3_emoji} ${npc3}: ${npc3_score}
*line_break
${player_emoji} Captain ${name}: ${player_score}

*if round = 6
	*page_break Game over
	*goto bunco_over
		
*page_break ${npc1_emoji} turn

*goto bunco_npc1_turn

*label bunco_over

🎲 [b]Dice Parlor - Bunco Table[/b]

This game of Bunco is over!

Final score:

${npc1_emoji} ${npc1}: ${npc1_score}
*line_break
${npc2_emoji} ${npc2}: ${npc2_score}
*line_break
${npc3_emoji} ${npc3}: ${npc3_score}
*line_break
${player_emoji} Captain ${name}: ${player_score}

*if (player_score = npc1_score) and (player_score = npc2_score)
	*if player_score = npc3_score
		It's a four-way tie!
		*set credits + (bet / 4)
		*set credits round(credits)
		*goto cashy
	
*if (player_score > npc1_score) and (player_score > npc2_score)
	*if player_score > npc3_score
		You won!
		*if sound
			*sound grandwinner.wav
		*set credits + bet
		*goto cashy
	
*if (player_score > npc1_score) and (player_score > npc2_score)
	*if player_score = npc3_score
		*if sound
			*sound winner.wav
		You and ${npc3} tied for first, so you two split the winnings.
		*set credits + (bet / 2)
		*set credits round(credits)
		*goto cashy
	
*if (player_score > npc1_score) and (player_score > npc3_score)
	*if player_score = npc2_score
		You and ${npc2} tied for first, so you two split the winnings.
		*if sound
			*sound winner.wav
		*set credits + (bet / 2)
		*set credits round(credits)
		*goto cashy
	
*if (player_score > npc2_score) and (player_score > npc3_score)
	*if player_score = npc1_score
		You and ${npc1} tied for first, so you two split the winnings.
		*if sound
			*sound winner.wav
		*set credits + (bet / 2)
		*goto cashy
	
*if (player_score > npc1_score) and (player_score = npc2_score)
	*if player_score = npc3_score
		It's a three-way tie!
		*set credits + (bet / 3)
		*set credits round(credits)
		*goto cashy
	
*if (player_score > npc2_score) and (player_score = npc1_score)
	*if player_score = npc3_score
		It's a three-way tie!
		*if sound
			*sound winner2.wav
		*set credits + (bet / 3)
		*set credits round(credits)
		*goto cashy
	
*if (player_score > npc3_score) and (player_score = npc2_score)
	*if player_score = npc1_score
		It's a three-way tie!
		*if sound
			*sound winner2.wav
		*set credits + (bet / 3)
		*set credits round(credits)
		*goto cashy
*else
	You didn't win.
	*if sound
		*sound grandloser1.wav
	*set credits - bet
	*goto cashy
		
*label cashy

Cash on hand: ¢${credits}

[b]:::[/b] What do you want to do, Captain?

*fake_choice
	#🛢️ Play another game of Bunco
		*goto bunco_redux
	#↩️  Try a different game
		*goto parlor2
	
*label bunco_redux

*set round 0
*set npc1_score 0
*set npc2_score 0
*set npc3_score 0
*set player_score 0

*set npc1_hand_score 0
*set npc2_hand_score 0
*set npc3_hand_score 0
*set player_hand_score 0

🎲 [b]Dice Parlor - Bunco Table[/b]

*if sound
	*sound betdecider.wav

"Let's play another round," you announce to the players at the table.

${npc1_emoji} "Works for me!  I love making easy money."

${npc2_emoji} "Fine.  But I do need to leave, soon."

${npc3_emoji} "I guess I can play one more."

${npc1_emoji} "Since you're a guest here on ${planet_name}, ${name}, you decide how much we'll stake for the next game."

[b]:::[/b] What do you want to do, Captain?

*fake_choice
	*selectable_if (credits >= 50) #Stake ¢50 for this game
		*set bet 50
	*selectable_if (credits >= 100) #Stake ¢100 for this game
		*set bet 100
	*selectable_if (credits >= 250) #Stake ¢250 for this game
		*set bet 250
	#↩️  Try a different game
		*goto parlor2
	
*check_achievements
*if choice_achieved_first_dice = false
	*achieve first_dice
	
*goto bunco_npc1_turn

*label boston
*temp npc1_emoji ""
*gosub npcs_setup

🎲 [b]Dice Parlor - Going to Boston Table[/b]

*if sound
	*sound womanchuckling.wav

As you approach the Going to Boston table, you see that three other players are already seated.

Taking your place at the last spot available at the table, you see a small pamphlet that says "How to Play Going to Boston."

${npc1_emoji} "Just let us know when you're ready to begin," says one of the players.

[b]:::[/b] What do you want to do, Captain?

*fake_choice
	#🧦 Begin playing Going to Boston
		*goto boston_wager
	#❓ Read the pamphlet
		*goto boston_instructions
	#↩️  Try a different game
		*goto parlor2
	
*label boston_instructions
	
🎲 [b]Dice Parlor - Going to Boston Table[/b]

Picking up the pamphlet, you read:

[i]Going to Boston is a fun and family friendly game for people of all ages![/i]

[i]Before the game begins, each player will stake an agreed-upon amount.[/i]

[i]During a round, each player will roll three dice.  The individual die with the highest number will be recorded.[/i]

[i]Each player gets three rolls.  After all three rolls, the recorded numbers are multiplied to get the score for that round.[/i]

[i]After all the players have completed their three rolls, the round comes to an end.  The player with the most points after FIVE rounds wins all the money.[/i]

[b]:::[/b] What do you want to do, Captain?

*fake_choice
	#🧦 Begin playing Going to Boston
		*goto boston_wager
	#↩️  Try a different game
		*goto parlor2
	
*label boston_wager
*gosub boston_cards_setup

🎲 [b]Dice Parlor - Going to Boston Table[/b]

*if sound
	*sound betdecider.wav

"Okay, I'm ready to play," you announce.

${npc1_emoji} "How much should we stake for this game?  I say two hundred and fifty credits ought to keep it interesting.  Oh, my name's ${npc1}, by the way."

${npc2_emoji} "And I'm ${npc2}.  No way, ${npc1}, that's too high.  Let's go with one hundred credits."

${npc3_emoji} "I'd feel more comfortable with just fifty credits. And you can call me ${npc3}."

${npc1_emoji} "Well, since we cannot agree, let's let the off-worlder decide."

[b]:::[/b] How much do you want to stake on this game, Captain?

*fake_choice
	*selectable_if (credits >= 50) #Stake ¢50 for this game
		*set bet 50
	*selectable_if (credits >= 100) #Stake ¢100 for this game
		*set bet 100
	*selectable_if (credits >= 250) #Stake ¢250 for this game
		*set bet 250
	#↩️  Try a different game
		*goto parlor2
	
*check_achievements
*if choice_achieved_first_dice = false
	*achieve first_dice
	
🎲 [b]Dice Parlor - Going to Boston Table[/b]

*if sound
	*sound betdecider.wav

"${greetings}, my name is ${name}.  And I think we should stake ${bet} credits for this game," you say.

*if bet = 50
	${npc3_emoji} "It's so nice to have a sensible player at the table for once.  Thank you for joining us, ${name}!"
	
*if bet = 100
	${npc2_emoji} "I liked your face the minute I saw it, ${name}."
	
*if bet = 250
	${npc1_emoji} "All right!  Finally, a player with some guts.  So happy that you're playing with us, ${name}."
	
"Now that it's agreed, let's play," you say.

*page_break 🎲

*label boston_npc1_turn

*set round_score 0
*set round +1

🎲 [b]Dice Parlor - Going to Boston Round ${round}[/b]

*gosub npc1_rolls1

*if round = 5
	${npc1_emoji} "Final round, everyone!"
	*if sound
		*sound finalround.wav

${npc1_emoji} ${npc1} rolls the dice three times.

*if round != 5
	*if sound
		*sound diceroll.wav

Their first roll: ${npc1_firstroll} :: ${npc1_secondroll} :: ${npc1_thirdroll}
*gosub npc1_rolls2
Their second roll: ${npc1_firstroll} :: ${npc1_secondroll} :: ${npc1_thirdroll}
*gosub npc1_rolls3
Their third roll: ${npc1_firstroll} :: ${npc1_secondroll} :: ${npc1_thirdroll}

*page_break ${npc1_emoji}

🎲 [b]Dice Parlor - Going to Boston Round ${round}[/b]

*gosub npc1_keepers

*if round_score < 100
	*gosub npc_disappointed
	${npc1_emoji} "${response}"
	
*if (round_score >= 100) and (round_score < 180)
	*gosub npc_accepts
	${npc1_emoji} "${response}"
	
*if round_score >= 180
	*gosub npc_elated
	${npc1_emoji} "${response}"

${npc1} kept a ${npc1_first_keeper} on their first throw, a ${npc1_second_keeper} on their second throw, and a ${npc1_third_keeper} on their third throw for a score this round of [b]${round_score}[/b] points.

Score:

${npc1_emoji} ${npc1}: ${npc1_score}
*line_break
${npc2_emoji} ${npc2}: ${npc2_score}
*line_break
${npc3_emoji} ${npc3}: ${npc3_score}
*line_break
${player_emoji} Captain ${name}: ${player_score}

*page_break ${npc2_emoji} turn

*label boston_npc2_turn

*set round_score 0

🎲 [b]Dice Parlor - Going to Boston Round ${round}[/b]

*gosub npc2_rolls1

${npc2_emoji} ${npc2} rolls the dice three times.

*if sound
	*sound diceroll.wav

Their first roll: ${npc2_firstroll} :: ${npc2_secondroll} :: ${npc2_thirdroll}
*gosub npc2_rolls2
Their second roll: ${npc2_firstroll} :: ${npc2_secondroll} :: ${npc2_thirdroll}
*gosub npc2_rolls3
Their third roll: ${npc2_firstroll} :: ${npc2_secondroll} :: ${npc2_thirdroll}

*page_break ${npc2_emoji}

🎲 [b]Dice Parlor - Going to Boston Round ${round}[/b]

*gosub npc2_keepers

*if round_score < 100
	*gosub npc_disappointed
	${npc2_emoji} "${response}"
	
*if (round_score >= 100) and (round_score < 180)
	*gosub npc_accepts
	${npc2_emoji} "${response}"
	
*if round_score >= 180
	*gosub npc_elated
	${npc2_emoji} "${response}"

${npc2} kept the ${npc2_first_keeper} on their first throw, a ${npc2_second_keeper} on their second throw, and a ${npc2_third_keeper} on their third throw for a score this round of [b]${round_score}[/b] points.

Score:

${npc1_emoji} ${npc1}: ${npc1_score}
*line_break
${npc2_emoji} ${npc2}: ${npc2_score}
*line_break
${npc3_emoji} ${npc3}: ${npc3_score}
*line_break
${player_emoji} Captain ${name}: ${player_score}

*page_break ${npc3_emoji} turn

*label boston_npc3_turn

*set round_score 0

🎲 [b]Dice Parlor - Going to Boston Round ${round}[/b]

*gosub npc3_rolls1

${npc3_emoji} ${npc3} rolls the dice three times.

*if sound
	*sound dicefast.wav

Their first roll: ${npc3_firstroll} :: ${npc3_secondroll} :: ${npc3_thirdroll}
*gosub npc3_rolls2
Their second roll: ${npc3_firstroll} :: ${npc3_secondroll} :: ${npc3_thirdroll}
*gosub npc3_rolls3
Their third roll: ${npc3_firstroll} :: ${npc3_secondroll} :: ${npc3_thirdroll}

*page_break ${npc3_emoji}

🎲 [b]Dice Parlor - Going to Boston Round ${round}[/b]

*gosub npc3_keepers

*if round_score < 100
	*gosub npc_disappointed
	${npc3_emoji} "${response}"
	
*if (round_score >= 100) and (round_score < 180)
	*gosub npc_accepts
	${npc3_emoji} "${response}"
	
*if round_score >= 180
	*gosub npc_elated
	${npc3_emoji} "${response}"

${npc3} kept the ${npc3_first_keeper} on their first throw, a ${npc3_second_keeper} on their second throw, and a ${npc3_third_keeper} on their third throw for a score this round of [b]${round_score}[/b] points.

Score:

${npc1_emoji} ${npc1}: ${npc1_score}
*line_break
${npc2_emoji} ${npc2}: ${npc2_score}
*line_break
${npc3_emoji} ${npc3}: ${npc3_score}
*line_break
${player_emoji} Captain ${name}: ${player_score}

[b]:::[/b] What do you want to do, Captain?

*fake_choice
	#🎲 Roll the dice
	#🏳️ Forfeit this game
		*goto forfeit

*label boston_your_turn

*set round_score 0

🎲 [b]Dice Parlor - Going to Boston Round ${round}[/b]

*if sound
	*sound dice.wav

You toss the three dice into the air.

*rand dieroll 1 6
*set player_firstroll dieroll
*rand dieroll 1 6
*set player_secondroll dieroll
*rand dieroll 1 6
*set player_thirdroll dieroll

*comment *page_break 🎲

*comment 🎲 [b]Dice Parlor - Going to Boston Round ${round}[/b]

*gosub player_rolls1

You roll: ${player_firstroll} :: ${player_secondroll} :: ${player_thirdroll}

You keep the ${player_first_keeper} from your first throw.

*page_break 🎲

🎲 [b]Dice Parlor - Going to Boston Round ${round}[/b]

You toss the three dice into the air.

*if sound
	*sound diceroll.wav
	
*rand dieroll 1 6
*set player_firstroll dieroll
*rand dieroll 1 6
*set player_secondroll dieroll
*rand dieroll 1 6
*set player_thirdroll dieroll

*comment *page_break 🎲

*comment 🎲 [b]Dice Parlor - Going to Boston Round ${round}[/b]

*gosub player_rolls2

You roll: ${player_firstroll} :: ${player_secondroll} :: ${player_thirdroll}

You keep the ${player_second_keeper} from your second throw.

*page_break 🎲

🎲 [b]Dice Parlor - Going to Boston Round ${round}[/b]

You toss the three dice into the air.

*if sound
	*sound diceroll.wav
	
*rand dieroll 1 6
*set player_firstroll dieroll
*rand dieroll 1 6
*set player_secondroll dieroll
*rand dieroll 1 6
*set player_thirdroll dieroll

*comment *page_break 🎲

*gosub player_rolls3

*comment 🎲 [b]Dice Parlor - Going to Boston Round ${round}[/b]

You roll: ${player_firstroll} :: ${player_secondroll} :: ${player_thirdroll}

*gosub player_keepers

You kept the ${player_first_keeper} on your first throw, a ${player_second_keeper} on your second throw, and a ${player_third_keeper} on your third throw for a score this round of [b]${round_score}[/b] points.

*if round = 5
	*page_break Game over
	*goto boston_over

*if round_score < 100
	*page_break 😟

*if (round_score >= 100) and (round_score < 180)
	*page_break 😐
	
*if round_score >= 180
	*page_break 😃 😃 😃
			
*goto boston_npc1_turn

*label boston_over

🎲 [b]Dice Parlor - Going to Boston Table[/b]

Final results:

${npc1_emoji} ${npc1}: ${npc1_score}
*line_break
${npc2_emoji} ${npc2}: ${npc2_score}
*line_break
${npc3_emoji} ${npc3}: ${npc3_score}
*line_break
${player_emoji} Captain ${name}: ${player_score}

*if ((player_score > npc1_score) and (player_score > npc2_score)) and (player_score > npc3_score)
	*if sound
		*sound grandwinner.wav
		
	You won!
	*set credits + bet
	*goto smurf
*else
	*if sound
		*sound grandloser2.wav
		
	Unfortunately, you didn't win.
	*set credits - bet
	*goto smurf

*label smurf

Cash on hand: ¢${credits}
		
[b]:::[/b] What do you want to do, Captain?

*fake_choice
	#🧦 Play another game of Going to Boston
		*goto boston_wager2
	#↩️  Try a different game
		*goto parlor2
	
*label boston_wager2

*set round 0
*set npc1_score 0
*set npc2_score 0
*set npc3_score 0
*set player_score 0

🎲 [b]Dice Parlor - Going to Boston Table[/b]

*if sound
	*sound betdecider.wav

"Let's play another round," you announce to the players at the table.

${npc1_emoji} "Works for me!  I love making easy money."

${npc2_emoji} "Fine.  But I do need to leave, soon."

${npc3_emoji} "I guess I can play one more."

${npc1_emoji} "Since you're a guest here on ${planet_name}, ${name}, you decide how much we'll stake for the next game."

[b]:::[/b] What do you want to do, Captain?

*fake_choice
	*selectable_if (credits >= 50) #Stake ¢50 for this game
		*set bet 50
	*selectable_if (credits >= 100) #Stake ¢100 for this game
		*set bet 100
	*selectable_if (credits >= 250) #Stake ¢250 for this game
		*set bet 250
	#↩️  Try a different game
		*goto parlor2
	
*check_achievements
*if choice_achieved_first_dice = false
	*achieve first_dice
	
*goto boston_npc1_turn

*label npcs_setup

*temp npc1_emoji ""
*temp npc2_emoji ""
*temp npc3_emoji ""

*rand dieroll 1 3

*if dieroll = 1
	*set npc2_emoji "👴🏽"
	
*if dieroll = 2
	*set npc2_emoji "👴🏿"
	
*if dieroll = 3
	*set npc2_emoji "👴🏻"
	
*rand dieroll 1 3

*if dieroll = 1
	*set npc1_emoji "👩🏼"
	
*if dieroll = 2
	*set npc1_emoji "👩🏾"
	
*if dieroll = 3
	*set npc1_emoji "👩🏽"
	
*rand dieroll 1 3

*if dieroll = 1
	*set npc3_emoji "👧"
	
*if dieroll = 2
	*set npc3_emoji "🧛"
	
*if dieroll = 3
	*set npc3_emoji "🧝"
	
*rand dieroll 1 11

*if dieroll = 1
	*set npc1 "Karie"
	
*if dieroll = 2
	*set npc1 "Jennah"
	
*if dieroll = 3
	*set npc1 "Kimberly"
	
*if dieroll = 4
	*set npc1 "Svetlana"
	
*if dieroll = 5
	*set npc1 "Mary"
	
*if dieroll = 6
	*set npc1 "Lisa"
	
*if dieroll = 7
	*set npc1 "Angela"
	
*if dieroll = 8
	*set npc1 "Patricia"
	
*if dieroll = 9
	*set npc1 "Cynthia"
	
*if dieroll = 10
	*set npc1 "Lori"
	
*if dieroll = 11
	*set npc1 "Tammy"
	
*rand dieroll 1 11

*if dieroll = 1
	*set npc2 "George"
	
*if dieroll = 2
	*set npc2 "Charley"
	
*if dieroll = 3
	*set npc2 "Dick"
	
*if dieroll = 4
	*set npc2 "Joe"
	
*if dieroll = 5
	*set npc2 "Jim"
	
*if dieroll = 6
	*set npc2 "Edward"
	
*if dieroll = 7
	*set npc2 "William"
	
*if dieroll = 8
	*set npc2 "Don"
	
*if dieroll = 9
	*set npc2 "Rob"
	
*if dieroll = 10
	*set npc2 "Gino"
	
*if dieroll = 11
	*set npc2 "Arthur"
	
*rand dieroll 1 11

*if dieroll = 1
	*set npc3 "Josh"
	
*if dieroll = 2
	*set npc3 "Jack-E"
	
*if dieroll = 3
	*set npc3 "Ollieo"
	
*if dieroll = 4
	*set npc3 "Sami"
	
*if dieroll = 5
	*set npc3 "Alfine"
	
*if dieroll = 6
	*set npc3 "Sofi"
	
*if dieroll = 7
	*set npc3 "Jess"
	
*if dieroll = 8
	*set npc3 "Emmo"
	
*if dieroll = 9
	*set npc3 "Trinity"
	
*if dieroll = 10
	*set npc3 "Amel"
	
*if dieroll = 11
	*set npc3 "Livio"
	


*return

*label boston_cards_setup

*temp npc1_first_keeper 0
*temp npc1_second_keeper 0
*temp npc1_third_keeper 0

*temp npc2_first_keeper 0
*temp npc2_second_keeper 0
*temp npc2_third_keeper 0

*temp npc3_first_keeper 0
*temp npc3_second_keeper 0
*temp npc3_third_keeper 0

*temp npc1_firstroll 0
*temp npc1_secondroll 0
*temp npc1_thirdroll 0
*temp npc2_firstroll 0
*temp npc2_secondroll 0
*temp npc2_thirdroll 0
*temp npc3_firstroll 0
*temp npc3_secondroll 0
*temp npc3_thirdroll 0

*temp player_firstroll 0
*temp player_secondroll 0
*temp player_thirdroll 0

*temp player_first_keeper 0
*temp player_second_keeper 0
*temp player_third_keeper 0

*temp round_score 0
*temp round 0

*temp npc1_score 0
*temp npc2_score 0
*temp npc3_score 0
*temp player_score 0


*return

*label npc1_rolls1

*rand dieroll 1 6

*set npc1_firstroll dieroll

*rand dieroll 1 6

*set npc1_secondroll dieroll

*rand dieroll 1 6

*set npc1_thirdroll dieroll

*comment all 3 the same

*if (npc1_firstroll = npc1_secondroll) and (npc1_firstroll = npc1_thirdroll)
	*set npc1_first_keeper npc1_firstroll
	*return
	
*comment one dice  is higher than the other two

*if (npc1_firstroll > npc1_secondroll) and (npc1_firstroll > npc1_thirdroll)
	*set npc1_first_keeper npc1_firstroll
	*return
	
*if (npc1_secondroll > npc1_firstroll) and (npc1_secondroll > npc1_thirdroll)
	*set npc1_first_keeper npc1_secondroll
	*return
	
*if (npc1_thirdroll > npc1_firstroll) and (npc1_thirdroll > npc1_secondroll)
	*set npc1_first_keeper npc1_thirdroll
	*return

*comment 1 and 3 are better than 2
	
*if (npc1_firstroll > npc1_secondroll) and (npc1_firstroll = npc1_thirdroll)
	*set npc1_first_keeper npc1_firstroll
	*return
	
*comment 1 and 2 are better than 3

*if (npc1_firstroll > npc1_thirdroll) and (npc1_firstroll = npc1_secondroll)
	*set npc1_first_keeper npc1_firstroll
	*return
	
*comment 2 and 3 are better than 1
	
*if (npc1_secondroll > npc1_firstroll) and (npc1_secondroll = npc1_thirdroll)
	*set npc1_first_keeper npc1_secondroll
	*return
	
Error!

*ending

*label npc1_rolls2

*rand dieroll 1 6

*set npc1_firstroll dieroll

*rand dieroll 1 6

*set npc1_secondroll dieroll

*rand dieroll 1 6

*set npc1_thirdroll dieroll

*comment all 3 the same

*if (npc1_firstroll = npc1_secondroll) and (npc1_firstroll = npc1_thirdroll)
	*set npc1_second_keeper npc1_firstroll
	*return
	
*comment one dice  is higher than the other two

*if (npc1_firstroll > npc1_secondroll) and (npc1_firstroll > npc1_thirdroll)
	*set npc1_second_keeper npc1_firstroll
	*return
	
*if (npc1_secondroll > npc1_firstroll) and (npc1_secondroll > npc1_thirdroll)
	*set npc1_second_keeper npc1_secondroll
	*return
	
*if (npc1_thirdroll > npc1_firstroll) and (npc1_thirdroll > npc1_secondroll)
	*set npc1_second_keeper npc1_thirdroll
	*return

*comment 1 and 3 are better than 2
	
*if (npc1_firstroll > npc1_secondroll) and (npc1_firstroll = npc1_thirdroll)
	*set npc1_second_keeper npc1_firstroll
	*return
	
*comment 1 and 2 are better than 3

*if (npc1_firstroll > npc1_thirdroll) and (npc1_firstroll = npc1_secondroll)
	*set npc1_second_keeper npc1_firstroll
	*return
	
*comment 2 and 3 are better than 1
	
*if (npc1_secondroll > npc1_firstroll) and (npc1_secondroll = npc1_thirdroll)
	*set npc1_second_keeper npc1_secondroll
	*return
	
Error!

*ending

*label npc1_rolls3

*rand dieroll 1 6

*set npc1_firstroll dieroll

*rand dieroll 1 6

*set npc1_secondroll dieroll

*rand dieroll 1 6

*set npc1_thirdroll dieroll

*comment all 3 the same

*if (npc1_firstroll = npc1_secondroll) and (npc1_firstroll = npc1_thirdroll)
	*set npc1_third_keeper npc1_firstroll
	*return
	
*comment one dice  is higher than the other two

*if (npc1_firstroll > npc1_secondroll) and (npc1_firstroll > npc1_thirdroll)
	*set npc1_third_keeper npc1_firstroll
	*return
	
*if (npc1_secondroll > npc1_firstroll) and (npc1_secondroll > npc1_thirdroll)
	*set npc1_third_keeper npc1_secondroll
	*return
	
*if (npc1_thirdroll > npc1_firstroll) and (npc1_thirdroll > npc1_secondroll)
	*set npc1_third_keeper npc1_thirdroll
	*return

*comment 1 and 3 are better than 2
	
*if (npc1_firstroll > npc1_secondroll) and (npc1_firstroll = npc1_thirdroll)
	*set npc1_third_keeper npc1_firstroll
	*return
	
*comment 1 and 2 are better than 3

*if (npc1_firstroll > npc1_thirdroll) and (npc1_firstroll = npc1_secondroll)
	*set npc1_third_keeper npc1_firstroll
	*return
	
*comment 2 and 3 are better than 1
	
*if (npc1_secondroll > npc1_firstroll) and (npc1_secondroll = npc1_thirdroll)
	*set npc1_third_keeper npc1_secondroll
	*return
	
Error!

*ending

*label npc1_keepers

*temp adder 0

*set adder (npc1_first_keeper * npc1_second_keeper)
*set round_score (adder * npc1_third_keeper)

*comment *set round_score + npc1_first_keeper
*comment *set round_score + npc1_second_keeper
*comment *set round_score + npc1_third_keeper

*set npc1_score + round_score

*return

*label npc2_rolls1

*rand dieroll 1 6

*set npc2_firstroll dieroll

*rand dieroll 1 6

*set npc2_secondroll dieroll

*rand dieroll 1 6

*set npc2_thirdroll dieroll

*comment all 3 the same

*if (npc2_firstroll = npc2_secondroll) and (npc2_firstroll = npc2_thirdroll)
	*set npc2_first_keeper npc2_firstroll
	*return
	
*comment one dice  is higher than the other two

*if (npc2_firstroll > npc2_secondroll) and (npc2_firstroll > npc2_thirdroll)
	*set npc2_first_keeper npc2_firstroll
	*return
	
*if (npc2_secondroll > npc2_firstroll) and (npc2_secondroll > npc2_thirdroll)
	*set npc2_first_keeper npc2_secondroll
	*return
	
*if (npc2_thirdroll > npc2_firstroll) and (npc2_thirdroll > npc2_secondroll)
	*set npc2_first_keeper npc2_thirdroll
	*return

*comment 1 and 3 are better than 2
	
*if (npc2_firstroll > npc2_secondroll) and (npc2_firstroll = npc2_thirdroll)
	*set npc2_first_keeper npc2_firstroll
	*return
	
*comment 1 and 2 are better than 3

*if (npc2_firstroll > npc2_thirdroll) and (npc2_firstroll = npc2_secondroll)
	*set npc2_first_keeper npc2_firstroll
	*return
	
*comment 2 and 3 are better than 1
	
*if (npc2_secondroll > npc2_firstroll) and (npc2_secondroll = npc2_thirdroll)
	*set npc2_first_keeper npc2_secondroll
	*return
	
Error!

*ending

*label npc2_rolls2

*rand dieroll 1 6

*set npc2_firstroll dieroll

*rand dieroll 1 6

*set npc2_secondroll dieroll

*rand dieroll 1 6

*set npc2_thirdroll dieroll

*comment all 3 the same

*if (npc2_firstroll = npc2_secondroll) and (npc2_firstroll = npc2_thirdroll)
	*set npc2_second_keeper npc2_firstroll
	*return
	
*comment one dice  is higher than the other two

*if (npc2_firstroll > npc2_secondroll) and (npc2_firstroll > npc2_thirdroll)
	*set npc2_second_keeper npc2_firstroll
	*return
	
*if (npc2_secondroll > npc2_firstroll) and (npc2_secondroll > npc2_thirdroll)
	*set npc2_second_keeper npc2_secondroll
	*return
	
*if (npc2_thirdroll > npc2_firstroll) and (npc2_thirdroll > npc2_secondroll)
	*set npc2_second_keeper npc2_thirdroll
	*return

*comment 1 and 3 are better than 2
	
*if (npc2_firstroll > npc2_secondroll) and (npc2_firstroll = npc2_thirdroll)
	*set npc2_second_keeper npc2_firstroll
	*return
	
*comment 1 and 2 are better than 3

*if (npc2_firstroll > npc2_thirdroll) and (npc2_firstroll = npc2_secondroll)
	*set npc2_second_keeper npc2_firstroll
	*return
	
*comment 2 and 3 are better than 1
	
*if (npc2_secondroll > npc2_firstroll) and (npc2_secondroll = npc2_thirdroll)
	*set npc2_second_keeper npc2_secondroll
	*return
	
Error!

*ending

*label npc2_rolls3

*rand dieroll 1 6

*set npc2_firstroll dieroll

*rand dieroll 1 6

*set npc2_secondroll dieroll

*rand dieroll 1 6

*set npc2_thirdroll dieroll

*comment all 3 the same

*if (npc2_firstroll = npc2_secondroll) and (npc2_firstroll = npc2_thirdroll)
	*set npc2_third_keeper npc2_firstroll
	*return
	
*comment one dice  is higher than the other two

*if (npc2_firstroll > npc2_secondroll) and (npc2_firstroll > npc2_thirdroll)
	*set npc2_third_keeper npc2_firstroll
	*return
	
*if (npc2_secondroll > npc2_firstroll) and (npc2_secondroll > npc2_thirdroll)
	*set npc2_third_keeper npc2_secondroll
	*return
	
*if (npc2_thirdroll > npc2_firstroll) and (npc2_thirdroll > npc2_secondroll)
	*set npc2_third_keeper npc2_thirdroll
	*return

*comment 1 and 3 are better than 2
	
*if (npc2_firstroll > npc2_secondroll) and (npc2_firstroll = npc2_thirdroll)
	*set npc2_third_keeper npc2_firstroll
	*return
	
*comment 1 and 2 are better than 3

*if (npc2_firstroll > npc2_thirdroll) and (npc2_firstroll = npc2_secondroll)
	*set npc2_third_keeper npc2_firstroll
	*return
	
*comment 2 and 3 are better than 1
	
*if (npc2_secondroll > npc2_firstroll) and (npc2_secondroll = npc2_thirdroll)
	*set npc2_third_keeper npc2_secondroll
	*return
	
Error!

*ending

*label npc2_keepers

*temp adder 0

*set adder (npc2_first_keeper * npc2_second_keeper)
*set round_score (adder * npc2_third_keeper)

*comment *set round_score + npc2_first_keeper
*comment *set round_score + npc2_second_keeper
*comment *set round_score + npc2_third_keeper

*set npc2_score + round_score

*return

*label npc3_rolls1

*rand dieroll 1 6

*set npc3_firstroll dieroll

*rand dieroll 1 6

*set npc3_secondroll dieroll

*rand dieroll 1 6

*set npc3_thirdroll dieroll

*comment all 3 the same

*if (npc3_firstroll = npc3_secondroll) and (npc3_firstroll = npc3_thirdroll)
	*set npc3_first_keeper npc3_firstroll
	*return
	
*comment one dice  is higher than the other two

*if (npc3_firstroll > npc3_secondroll) and (npc3_firstroll > npc3_thirdroll)
	*set npc3_first_keeper npc3_firstroll
	*return
	
*if (npc3_secondroll > npc3_firstroll) and (npc3_secondroll > npc3_thirdroll)
	*set npc3_first_keeper npc3_secondroll
	*return
	
*if (npc3_thirdroll > npc3_firstroll) and (npc3_thirdroll > npc3_secondroll)
	*set npc3_first_keeper npc3_thirdroll
	*return

*comment 1 and 3 are better than 2
	
*if (npc3_firstroll > npc3_secondroll) and (npc3_firstroll = npc3_thirdroll)
	*set npc3_first_keeper npc3_firstroll
	*return
	
*comment 1 and 2 are better than 3

*if (npc3_firstroll > npc3_thirdroll) and (npc3_firstroll = npc3_secondroll)
	*set npc3_first_keeper npc3_firstroll
	*return
	
*comment 2 and 3 are better than 1
	
*if (npc3_secondroll > npc3_firstroll) and (npc3_secondroll = npc3_thirdroll)
	*set npc3_first_keeper npc3_secondroll
	*return
	
Error!

*ending

*label npc3_rolls2

*rand dieroll 1 6

*set npc3_firstroll dieroll

*rand dieroll 1 6

*set npc3_secondroll dieroll

*rand dieroll 1 6

*set npc3_thirdroll dieroll

*comment all 3 the same

*if (npc3_firstroll = npc3_secondroll) and (npc3_firstroll = npc3_thirdroll)
	*set npc3_second_keeper npc3_firstroll
	*return
	
*comment one dice  is higher than the other two

*if (npc3_firstroll > npc3_secondroll) and (npc3_firstroll > npc3_thirdroll)
	*set npc3_second_keeper npc3_firstroll
	*return
	
*if (npc3_secondroll > npc3_firstroll) and (npc3_secondroll > npc3_thirdroll)
	*set npc3_second_keeper npc3_secondroll
	*return
	
*if (npc3_thirdroll > npc3_firstroll) and (npc3_thirdroll > npc3_secondroll)
	*set npc3_second_keeper npc3_thirdroll
	*return

*comment 1 and 3 are better than 2
	
*if (npc3_firstroll > npc3_secondroll) and (npc3_firstroll = npc3_thirdroll)
	*set npc3_second_keeper npc3_firstroll
	*return
	
*comment 1 and 2 are better than 3

*if (npc3_firstroll > npc3_thirdroll) and (npc3_firstroll = npc3_secondroll)
	*set npc3_second_keeper npc3_firstroll
	*return
	
*comment 2 and 3 are better than 1
	
*if (npc3_secondroll > npc3_firstroll) and (npc3_secondroll = npc3_thirdroll)
	*set npc3_second_keeper npc3_secondroll
	*return
	
Error!

*ending

*label npc3_rolls3

*rand dieroll 1 6

*set npc3_firstroll dieroll

*rand dieroll 1 6

*set npc3_secondroll dieroll

*rand dieroll 1 6

*set npc3_thirdroll dieroll

*comment all 3 the same

*if (npc3_firstroll = npc3_secondroll) and (npc3_firstroll = npc3_thirdroll)
	*set npc3_third_keeper npc3_firstroll
	*return
	
*comment one dice  is higher than the other two

*if (npc3_firstroll > npc3_secondroll) and (npc3_firstroll > npc3_thirdroll)
	*set npc3_third_keeper npc3_firstroll
	*return
	
*if (npc3_secondroll > npc3_firstroll) and (npc3_secondroll > npc3_thirdroll)
	*set npc3_third_keeper npc3_secondroll
	*return
	
*if (npc3_thirdroll > npc3_firstroll) and (npc3_thirdroll > npc3_secondroll)
	*set npc3_third_keeper npc3_thirdroll
	*return

*comment 1 and 3 are better than 2
	
*if (npc3_firstroll > npc3_secondroll) and (npc3_firstroll = npc3_thirdroll)
	*set npc3_third_keeper npc3_firstroll
	*return
	
*comment 1 and 2 are better than 3

*if (npc3_firstroll > npc3_thirdroll) and (npc3_firstroll = npc3_secondroll)
	*set npc3_third_keeper npc3_firstroll
	*return
	
*comment 2 and 3 are better than 1
	
*if (npc3_secondroll > npc3_firstroll) and (npc3_secondroll = npc3_thirdroll)
	*set npc3_third_keeper npc3_secondroll
	*return
	
Error!

*ending

*label npc3_keepers

*temp adder 0

*set adder (npc3_first_keeper * npc3_second_keeper)
*set round_score (adder * npc3_third_keeper)

*comment *set round_score + npc3_first_keeper
*comment *set round_score + npc3_second_keeper
*comment *set round_score + npc3_third_keeper

*set npc3_score + round_score

*return

*label player_rolls1

*if (player_firstroll = player_secondroll) and (player_firstroll = player_thirdroll)
	*set player_first_keeper player_firstroll
	*return
	
*comment one dice  is higher than the other two

*if (player_firstroll > player_secondroll) and (player_firstroll > player_thirdroll)
	*set player_first_keeper player_firstroll
	*return
	
*if (player_secondroll > player_firstroll) and (player_secondroll > player_thirdroll)
	*set player_first_keeper player_secondroll
	*return
	
*if (player_thirdroll > player_firstroll) and (player_thirdroll > player_secondroll)
	*set player_first_keeper player_thirdroll
	*return

*comment 1 and 3 are better than 2
	
*if (player_firstroll > player_secondroll) and (player_firstroll = player_thirdroll)
	*set player_first_keeper player_firstroll
	*return
	
*comment 1 and 2 are better than 3

*if (player_firstroll > player_thirdroll) and (player_firstroll = player_secondroll)
	*set player_first_keeper player_firstroll
	*return
	
*comment 2 and 3 are better than 1
	
*if (player_secondroll > player_firstroll) and (player_secondroll = player_thirdroll)
	*set player_first_keeper player_secondroll
	*return
	
Error!

*ending

*label player_rolls2

*if (player_firstroll = player_secondroll) and (player_firstroll = player_thirdroll)
	*set player_second_keeper player_firstroll
	*return
	
*comment one dice  is higher than the other two

*if (player_firstroll > player_secondroll) and (player_firstroll > player_thirdroll)
	*set player_second_keeper player_firstroll
	*return
	
*if (player_secondroll > player_firstroll) and (player_secondroll > player_thirdroll)
	*set player_second_keeper player_secondroll
	*return
	
*if (player_thirdroll > player_firstroll) and (player_thirdroll > player_secondroll)
	*set player_second_keeper player_thirdroll
	*return

*comment 1 and 3 are better than 2
	
*if (player_firstroll > player_secondroll) and (player_firstroll = player_thirdroll)
	*set player_second_keeper player_firstroll
	*return
	
*comment 1 and 2 are better than 3

*if (player_firstroll > player_thirdroll) and (player_firstroll = player_secondroll)
	*set player_second_keeper player_firstroll
	*return
	
*comment 2 and 3 are better than 1
	
*if (player_secondroll > player_firstroll) and (player_secondroll = player_thirdroll)
	*set player_second_keeper player_secondroll
	*return
	
Error!

*ending

*label player_rolls3

*if (player_firstroll = player_secondroll) and (player_firstroll = player_thirdroll)
	*set player_third_keeper player_firstroll
	*return
	
*comment one dice  is higher than the other two

*if (player_firstroll > player_secondroll) and (player_firstroll > player_thirdroll)
	*set player_third_keeper player_firstroll
	*return
	
*if (player_secondroll > player_firstroll) and (player_secondroll > player_thirdroll)
	*set player_third_keeper player_secondroll
	*return
	
*if (player_thirdroll > player_firstroll) and (player_thirdroll > player_secondroll)
	*set player_third_keeper player_thirdroll
	*return

*comment 1 and 3 are better than 2
	
*if (player_firstroll > player_secondroll) and (player_firstroll = player_thirdroll)
	*set player_third_keeper player_firstroll
	*return
	
*comment 1 and 2 are better than 3

*if (player_firstroll > player_thirdroll) and (player_firstroll = player_secondroll)
	*set player_third_keeper player_firstroll
	*return
	
*comment 2 and 3 are better than 1
	
*if (player_secondroll > player_firstroll) and (player_secondroll = player_thirdroll)
	*set player_third_keeper player_secondroll
	*return
	
Error!

*ending

*label player_keepers

*temp adder 0

*set adder (player_first_keeper * player_second_keeper)
*set round_score (adder * player_third_keeper)

*comment *set round_score + player_first_keeper
*comment *set round_score + player_second_keeper
*comment *set round_score + player_third_keeper

*set player_score + round_score

*return

*label npc_disappointed

*temp response ""

*rand dieroll 1 7

*if dieroll = 1
	*set response "Blimey!"
	*if sound
		*sound blimey.wav
	
*if dieroll = 2
	*set response "Whatever..."
	*if sound
		*sound whatever.wav
	
*if dieroll = 3
	*set response "I'm not saying who, but somebody got the dice all sweaty."
	*if sound
		*sound diceallsweaty.wav
	
*if dieroll = 4
	*set response "Something is seriously wrong with the dice."
	*if sound
		*sound seriouslywrongwithdice.wav
	
*if dieroll = 5
	*set response "This parlor must be using loaded dice."
	*if sound
		*sound thisparlorloadeddice.wav
	
*if dieroll = 6
	*set response "Darn it!"
	*if sound
		*sound darnit.wav
	
*if dieroll = 7
	*set response "Oh well..."
	*if sound
		*sound ohwell.wav
	
*return

*label npc_accepts

*temp response ""

*rand dieroll 1 7

*if dieroll = 1
	*set response "I guess that'll do."
	*if sound
		*sound iguessthatlldo.wav
	
*if dieroll = 2
	*set response "I can live with that."
	*if sound
		*sound icanlivewiththat.wav
	
*if dieroll = 3
	*set response "That works for me."
	*if sound
		*sound thatworksforme.wav
	
*if dieroll = 4
	*set response "Not too shabby at all."
	*if sound
		*sound nottooshabbyatall.wav
	
*if dieroll = 5
	*set response "I'll do better next time."
	*if sound
		*sound illdobetternexttime.wav
	
*if dieroll = 6
	*set response "I can definitely accept that."
	*if sound
		*sound icandefinitelyacceptthat.wav
	
*if dieroll = 7
	*set response "Well, well, well..."
	*if sound
		*sound wellwellwell.wav
	
*return

*label npc_elated

*temp response ""

*rand dieroll 1 7

*if dieroll = 1
	*set response "Boo-ya!"
	*if sound
		*sound booya.wav
	
*if dieroll = 2
	*set response "The dice are hot today!"
	*if sound
		*sound thedicearehottoday.wav
	
*if dieroll = 3
	*set response "Awesome!"
	*if sound
		*sound awesome.wav
	
*if dieroll = 4
	*set response "Heck yeah!!"
	*if sound
		*sound heckyeah.wav
	
*if dieroll = 5
	*set response "In your face!"
	*if sound
		*sound inyourface.wav

*if dieroll = 6
	*set response "Lady Luck is smiling on me today!"
	*if sound
		*sound ladyluckissmiling.wav
	
*if dieroll = 7
	*set response "I'm so close to winning, I can smell it!"
	*if sound
		*sound imsoclosetowinning.wav
	
	
*return

*label bunco_cards_setup

*temp round 0

*temp firstroll 0
*temp secondroll 0
*temp thirdroll 0

*temp round_score 0
*temp npc1_hand_score 0
*temp npc2_hand_score 0
*temp npc3_hand_score 0
*temp player_hand_score 0

*temp npc1_score 0
*temp npc2_score 0
*temp npc3_score 0
*temp player_score 0

*return

*label bunco_npc1_rolls

*if round_score >= 21
	*return

*rand firstroll 1 6
*rand secondroll 1 6
*rand thirdroll 1 6

${npc1} rolls and gets: ${firstroll} :: ${secondroll} :: ${thirdroll}

*if (firstroll = round) and (secondroll = round)
	*if thirdroll = round
		${npc1_emoji} "Bunco!!!"
		*if sound
			*sound bunco.wav
		*set round_score +21
		*return
		
*if (firstroll = secondroll) and (firstroll = thirdroll)
	*set round_score +5
	*goto bunco_npc1_rolls

*if (firstroll = round) and (secondroll = round)
	*set round_score +2
	*goto bunco_npc1_rolls

*if (firstroll = round) and (thirdroll = round)
	*set round_score +2
	*goto bunco_npc1_rolls

*if (secondroll = round) and (thirdroll = round)
	*set round_score +2
	*goto bunco_npc1_rolls

*if firstroll = round
	*set round_score +1
	*goto bunco_npc1_rolls

*if secondroll = round
	*set round_score +1
	*goto bunco_npc1_rolls

*if thirdroll = round	
	*set round_score +1
	*goto bunco_npc1_rolls

*return

*label bunco_npc2_rolls

*if round_score >= 21
	*return

*rand firstroll 1 6
*rand secondroll 1 6
*rand thirdroll 1 6

${npc2} rolls and gets: ${firstroll} :: ${secondroll} :: ${thirdroll}

*if (firstroll = round) and (secondroll = round)
	*if thirdroll = round
		${npc2_emoji} "Bunco!!!"
		*if sound
			*sound bunco.wav
		*set round_score +21
		*return
		
*if (firstroll = secondroll) and (firstroll = thirdroll)
	*set round_score +5
	*goto bunco_npc2_rolls

*if (firstroll = round) and (secondroll = round)
	*set round_score +2
	*goto bunco_npc2_rolls

*if (firstroll = round) and (thirdroll = round)
	*set round_score +2
	*goto bunco_npc2_rolls

*if (secondroll = round) and (thirdroll = round)
	*set round_score +2
	*goto bunco_npc2_rolls

*if firstroll = round
	*set round_score +1
	*goto bunco_npc2_rolls

*if secondroll = round
	*set round_score +1
	*goto bunco_npc2_rolls

*if thirdroll = round	
	*set round_score +1
	*goto bunco_npc2_rolls

*return

*label bunco_npc3_rolls

*if round_score >= 21
	*return

*rand firstroll 1 6
*rand secondroll 1 6
*rand thirdroll 1 6

${npc3} rolls and gets: ${firstroll} :: ${secondroll} :: ${thirdroll}

*if (firstroll = round) and (secondroll = round)
	*if thirdroll = round
		${npc3_emoji} "Bunco!!!"
		*if sound
			*sound bunco.wav
		*set round_score +21
		*return
		
*if (firstroll = secondroll) and (firstroll = thirdroll)
	*set round_score +5
	*goto bunco_npc3_rolls

*if (firstroll = round) and (secondroll = round)
	*set round_score +2
	*goto bunco_npc3_rolls

*if (firstroll = round) and (thirdroll = round)
	*set round_score +2
	*goto bunco_npc3_rolls

*if (secondroll = round) and (thirdroll = round)
	*set round_score +2
	*goto bunco_npc3_rolls

*if firstroll = round
	*set round_score +1
	*goto bunco_npc3_rolls

*if secondroll = round
	*set round_score +1
	*goto bunco_npc3_rolls

*if thirdroll = round	
	*set round_score +1
	*goto bunco_npc3_rolls

*return

*label bunco_player_rolls

*if round_score >= 21
	*return
	
🎲 [b]Dice Parlor - Bunco Round ${round}[/b]

*rand firstroll 1 6
*rand secondroll 1 6
*rand thirdroll 1 6

*if sound
	*sound dicefast.wav

You roll and get: ${firstroll} :: ${secondroll} :: ${thirdroll}

*if (firstroll = round) and (secondroll = round)
	*if thirdroll = round
		*if sound
			*sound bunco.wav
		"Bunco!!!" you shout.
		*set round_score +21
		*return
		
*if (firstroll = secondroll) and (firstroll = thirdroll)
	*set round_score +5
	You scored 5 points.
	*page_break 🎲
	*goto bunco_player_rolls

*if (firstroll = round) and (secondroll = round)
	*set round_score +2
	You scored 2 points.
	*page_break 🎲
	*goto bunco_player_rolls

*if (firstroll = round) and (thirdroll = round)
	*set round_score +2
	You scored 2 points.
	*page_break 🎲
	*goto bunco_player_rolls

*if (secondroll = round) and (thirdroll = round)
	*set round_score +2
	You scored 2 points.
	*page_break 🎲
	*goto bunco_player_rolls

*if firstroll = round
	*set round_score +1
	You scored 1 point.
	*page_break 🎲
	*goto bunco_player_rolls

*if secondroll = round
	*set round_score +1
	You scored 1 point.
	*page_break 🎲
	*goto bunco_player_rolls

*if thirdroll = round	
	*set round_score +1
	You scored 1 point.
	*page_break 🎲
	*goto bunco_player_rolls

*return

*label lrc_cards_setup

*temp npc1_chips 2
*temp npc2_chips 2
*temp npc3_chips 2
*temp player_chips 2

*return

*label forfeit

*set credits - bet

*if sound
	*sound grandloser2.wav

"Sorry folks, but I have to go.  Something suddenly came up," you say as you stand up from the table.

${npc1_emoji} "Awww, what a spoilsport."

${npc2_emoji} "More money for us!"

${npc3_emoji} "Come back and play with us any time, ${name}."

*page_break

*goto parlor2