,,,,Yep, this is the place.
As you stand out front, considering the face of the building, the panel door to the domicile swiftly slides open, revealing a thin but imposingly tall figure silhouetted by the dim lanterns behind him.
He greets you pleasantly and bids you enter.
Do you step forward to follow the tall man [[into the house]], or take a few steps backwards while you really [[consider his offer]] of hospitality?
{
(set: $glasses to "Reading")
(set:
num-type $fooltokens to 0,
num-type $bakawins to 0,
num-type $bakadraws to 0,
num-type $bakalosses to 0,
num-type $bakahigh to 0,
bool-type $bakamydeal to false
)
(set:
num-type $atowins to 0,
num-type $atodraws to 0,
num-type $atolosses to 0,
$atohigh to "N/A"
)
(set:
bool-type $locktrue to true,
num-type $truthtokens to 0,
num-type $honwins to 0,
num-type $hondraws to 0,
num-type $honlosses to 0,
$honhigh to (a: 0, 0),
bool-type $honmydeal to false
)
(set:
num-type $tokowins to 0,
num-type $tokodraws to 0,
num-type $tokolosses to 0,
$tokohigh to "N/A"
)
(set:
bool-type $lockmushi to true,
num-type $mushitokens to 0,
num-type $mushiwins to 0,
num-type $mushidraws to 0,
num-type $mushilosses to 0,
num-type $mushihigh to 0,
bool-type $mushideal to false
)
(set:
bool-type $lockyama to true,
num-type $yamatokens to 0,
num-type $yamawins to 0,
$yamadraws to "N/A",
num-type $yamalosses to 0,
num-type $yamahigh to 0,
bool-type $yamadeal to false
)
(set:
bool-type $lockkoi to true,
num-type $koitokens to 0,
num-type $koiwins to 0,
num-type $koidraws to 0,
num-type $koilosses to 0,
num-type $koihigh to 0,
bool-type $koideal to false
)
(set:
bool-type $locknuki to true,
num-type $nukitokens to 0,
num-type $nukiwins to 0,
$nukidraws to "N/A",
num-type $nukilosses to 0,
num-type $nukihigh to 0,
bool-type $nukideal to false
)
(set: $gamemode to 0)
(set: $has_tea to false)
}Sensing your unease, but ignoring it, the tall guy steps forward after you, calling out in a gentle, but urging, nasalized drawl, "Come on in, friend! No need to stand out here in the cold and fog when there are games to be played."
He grips you with both hands by the shoulders, pulling you towards himself. With his arm around you, he rushes the two of you [[into the house]]."I know you enjoy your green tea. I started the kettle as soon as I knew you were on your way here." Your host steps away and quietly prepares the tea nearby, though gently humming to himself. Before long, he brings back a //very// full cup for each of you, along with a small tray of sweets.
(set: $has_tea to true)
You gently slurp your hot leaf juice. It's pretty good stuff. You thank your host, and as you set your still-pretty-full cups off to one side, he pulls out a small rectangular box, no more than six centimeters in any given dimension. He sets it on the surface between you, revealing on the top of the box a picture of maybe three white birds in flight on a red background. "Let's start with some [[Foolish Flowers]]." "Straight to business tonight, eh?" he asks rhetorically, while placing a small plastic box on the center of the stained wood surface. "Let's start with some [[Foolish Flowers]]."
(set: $has_tea to false)Once inside, your host takes you to the next room over and shows you to your seat on a simple but comfortable cushion on the ground. In front of it is a broad, wooden tray, stained a dark color that's simply too hard to make out in this lighting. Across the surface is a practically identical cushion, belonging to the master of the house.
"Can I offer you some tea, friend?"
How do you respond? [["Yes, please"]] or [["No, thanks"]]?{(if: $has_tea is true)[Your host takes a moment to slurp his tea before continuing.]
(display: "initialize")
(set: $gamemode to 0)
}{
(if: $bakamydeal is true)
["You won the last round, so you get to deal this time, friend." You accept the deck from him and
(either: "attempt a hindu shuffle, but the cards go flying everywhere. Eventually you get it together and toss",
"perform a pretty decent overhand shuffle. You allow him to cut the deck, then you deal",
"splay the cards face down all over the wooden tray. After mixing them about and then re-forming the deck, you distribute",
"sloppily shuffle it, then drop"
) a packet of 5 cards face down in front of your opponent, before laying 4 more face up in a row on the field:"]
(elseif: $bakalosses is 0)
["It's my house, so I'll deal and play first." After shuffling (either:
"in a very skillful manner you couldn't replicate if you tried,",
"and allowing you to cut the deck,",
"like a pro,",
"more thoroughly than would ever be necessary,"
) he drops a small packet of 5 cards face down in front of you before spreading 4 cards face up on the table:]
(elseif: $bakalosses >=1)
["I won last time, so it's my deal again." He shows off yet another unfamiliar shuffle, then sets your packet of 5 face down cards in front of you, before displaying the first 4 field cards face up:]
}
{
(move: $deck's (range:1,8) into $field)
(set: _suitfield to $field of $suits)
(if: (count: _suitfield, "(text-color: green)[Pine]") is 4)
[(goto: "Foolish Flowers")]
(if: (count: _suitfield, "(text-color: red)[Plum Blossom]") is 4)
[(goto: "Foolish Flowers")]
(if: (count: _suitfield, "(text-color: (rgb:255,180,182))[Cherry Blossom]") is 4)
[(goto: "Foolish Flowers")]
(if: (count: _suitfield, "(text-color: (rgb: 250,0,250))[Wisteria]") is 4)
[(goto: "Foolish Flowers")]
(if: (count: _suitfield, "(text-color: blue)[Iris]") is 4)
[(goto: "Foolish Flowers")]
(if: (count: _suitfield, "(text-color: (rgb:238,130,220))[Peony]") is 4)
[(goto: "Foolish Flowers")]
(if: (count: _suitfield, "(text-color: (rgb:255,70,10))[Bush Clover]") is 4)
[(goto: "Foolish Flowers")]
(if: (count: _suitfield, "(text-color: (rgb:185,222,193))[Grass]") is 4)
[(goto: "Foolish Flowers")]
(if: (count: _suitfield, "(text-color: yellow)[Chrysanthemum]") is 4)
[(goto: "Foolish Flowers")]
(if: (count: _suitfield, "(text-color: (rgb:250,160,0))[Maple]") is 4)
[(goto: "Foolish Flowers")]
(if: (count: _suitfield, "(text-color: (rgb:72,160,40))[Willow]") is 4)
[(goto: "Foolish Flowers")]
(if: (count: _suitfield, "(text-color: (rgb:60,179,113))[Princess Tree]") is 4)
[(goto: "Foolish Flowers")]
}
(if: $glasses is "Ryan's")[(print: 1st of $field of $pixel) (print: 2nd of $field of $pixel) (print: 3rd of $field of $pixel) (print: 4th of $field of $pixel)](elseif: $glasses is "Louie's")[(print: 1st of $field of $louie) (print: 2nd of $field of $louie) (print: 3rd of $field of $louie) (print: 4th of $field of $louie)](elseif: $glasses is "Sem's")[(print: 1st of $field of $sem) (print: 2nd of $field of $sem) (print: 3rd of $field of $sem) (print: 4th of $field of $sem)](elseif: $glasses is "Heaven's")[(print: 1st of $field of $vapor) (print: 2nd of $field of $vapor) (print: 3rd of $field of $vapor) (print: 4th of $field of $vapor)](else:)
[(print: 1st of $field)
(print: 2nd of $field)
(print: 3rd of $field)
(print: 4th of $field)]
{
(if: $bakamydeal is true)
[You then drop a packet of 5 face down cards in front of yourself, and then toss yet another packet of 5 onto your opponent's stack. Then come the remaining 4 field cards:]
(else:)
[He then drops a packet of 5 face down cards in front of himself, and then yet another packet of 5 on the stack of cards already in front of you. Next come 4 more cards on the field:]
}
(if: $glasses is "Ryan's")[(print: 5st of $field of $pixel) (print: 6nd of $field of $pixel) (print: 7rd of $field of $pixel) (print: 8th of $field of $pixel)](elseif: $glasses is "Louie's")[(print: 5st of $field of $louie) (print: 6nd of $field of $louie) (print: 7rd of $field of $louie) (print: 8th of $field of $louie)](elseif: $glasses is "Sem's")[(print: 5st of $field of $sem) (print: 6nd of $field of $sem) (print: 7rd of $field of $sem) (print: 8th of $field of $sem)](elseif: $glasses is "Heaven's")[(print: 5st of $field of $vapor) (print: 6nd of $field of $vapor) (print: 7rd of $field of $vapor) (print: 8th of $field of $vapor)](else:)
[(print: 5th of $field)
(print: 6th of $field)
(print: 7th of $field)
(print: 8th of $field)]
{
(if: $bakamydeal is true)
[To finish the deal, you drop 5 final cards onto the stack that will become your hand, and set the remaining 20 cards in the deck in a pile next to the field.]
(else:)
[Finally he drops 5 last cards face down on the pile in front of himself, and sets the rest of the deck just to the side of the field cards.]
}
{
"Before we start, do you need to [[hear the rules?->Foolish Flowers rules]] Otherwise,
(if: $bakamydeal is true)
[[[let's dive right in->fool your move 1]]]
(else:)
[[[let's get to playing->fool opponent move]]]
."
}{
(move: $deck's (range:1,10) into $hishand)
(move: $deck's (range:1,10) into $myhand)
}{
(if: $bakamydeal is true)
[''Your current record against him in Foolish Flowers is $bakawins win(unless:$bakawins is 1)[s], $bakadraws draw(unless:$bakadraws is 1)[s], and $bakalosses loss(unless:$bakalosses is 1)[es].'']
(elseif: $bakalosses >=1)
[''Your current record against him in Foolish Flowers is $bakawins win(unless:$bakawins is 1)[s], $bakadraws draw(unless:$bakadraws is 1)[s], and $bakalosses loss(unless:$bakalosses is 1)[es].'']
}{(if: $locktrue is true)
["I'm not sure you're ready for this one. Have you mastered [[Mushi]] yet?" (link: "Hand over 300 Insect Tokens.")
[(if: $mushitokens >= 300)
[(set: $mushitokens to it - 300)
(set: $locktrue to false)
(goto: "True Flowers")
]
(else:)
[You need at least ''300 Insect Tokens''. You (unless: $mushitokens is 0)[only] have $mushitokens.]
]
]}
(elseif: $locktrue is false)
[
{(if: $has_tea is true)
[You each have a sip of tea. ]
(if: $truthtokens is 0)
["You should know that since True Flowers is originally a 3-player game, and it's just the two of us, we're gonna twist the rules a little bit. I will deal the cards each round, but the cards themselves will determine which of us plays first, through a quick game of (linkrepeat: "Before and After")[(display: "before and after dialog")]." <br><br>]
(display: "initialize")
(set: $gamemode to 1)
(set: $deck to it - (a: $kiri1, $kiri2, $kiri3))
(move: $deck's (range:1,9) into $field)
(set: _suitfield to $field of $suits)
(if: (count: _suitfield, "(text-color: green)[Pine]") is 4)
[(goto: "True Flowers")]
(if: (count: _suitfield, "(text-color: red)[Plum Blossom]") is 4)
[(goto: "True Flowers")]
(if: (count: _suitfield, "(text-color: (rgb:255,180,182))[Cherry Blossom]") is 4)
[(goto: "True Flowers")]
(if: (count: _suitfield, "(text-color: (rgb: 250,0,250))[Wisteria]") is 4)
[(goto: "True Flowers")]
(if: (count: _suitfield, "(text-color: blue)[Iris]") is 4)
[(goto: "True Flowers")]
(if: (count: _suitfield, "(text-color: (rgb:238,130,220))[Peony]") is 4)
[(goto: "True Flowers")]
(if: (count: _suitfield, "(text-color: (rgb:255,70,10))[Bush Clover]") is 4)
[(goto: "True Flowers")]
(if: (count: _suitfield, "(text-color: (rgb:185,222,193))[Grass]") is 4)
[(goto: "True Flowers")]
(if: (count: _suitfield, "(text-color: yellow)[Chrysanthemum]") is 4)
[(goto: "True Flowers")]
(if: (count: _suitfield, "(text-color: (rgb:250,160,0))[Maple]") is 4)
[(goto: "True Flowers")]
(if: (count: _suitfield, "(text-color: (rgb:72,160,40))[Willow]") is 4)
[(goto: "True Flowers")]
} He makes sure to exclude the 3 (print: $kiri1 of $suits) Chaff before shuffling and allowing you to cut the deck. He begins the deal by revealing the ''first 3 cards'' of the field.
Immediately afterwards, he places 6 piles of 3 cards each, face down between the two of you. Then he lays a second row of 3 cards on the field, this time face down. "We'll call that row ''Before''." Then he adds 3 more face down cards to each of the 6 piles, before laying the last 3 cards in the deck in a third and final row on the field. "This one's called ''After'':"
=||=
''First Field:''
{
(if: $glasses is "Ryan's")
[(print: 1st of $field of $pixel)
` `(print: 2st of $field of $pixel)
` `(print: 3st of $field of $pixel)<br>
(print: 1st of $field of $nagoyakabu)` + `(print: 2st of $field of $nagoyakabu)` + `(print: 3st of $field of $nagoyakabu)]
(elseif: $glasses is "Louie's")
[(print: 1st of $field of $louie)
` `(print: 2st of $field of $louie)
` `(print: 3st of $field of $louie)<br>
(print: 1st of $field of $nagoyakabu)` + `(print: 2st of $field of $nagoyakabu)` + `(print: 3st of $field of $nagoyakabu)]
(elseif: $glasses is "Sem's")
[(print: 1st of $field of $sem)
` `(print: 2st of $field of $sem)
` `(print: 3st of $field of $sem)<br>
(print: 1st of $field of $nagoyakabu)` + `(print: 2st of $field of $nagoyakabu)` + `(print: 3st of $field of $nagoyakabu)]
(elseif: $glasses is "Heaven's")
[(print: 1st of $field of $vapor)
` `(print: 2st of $field of $vapor)
` `(print: 3st of $field of $vapor)<br>
(print: 1st of $field of $nagoyakabu)` + `(print: 2st of $field of $nagoyakabu)` + `(print: 3st of $field of $nagoyakabu)]
(else:)
[(print: 1st of $field of $nagoyakabu) : (print: 1st of $field)<br>
(print: 2st of $field of $nagoyakabu) : (print: 2nd of $field)<br>
(print: 3st of $field of $nagoyakabu) : (print: 3rd of $field)]
}
=|=
''Before:''
?????????
?????????
?????????
=|=
''After:''
?????????
?????????
?????????
|==|
{
(unless: $atowins + $atodraws + $atolosses is 0)
[<br><br>''Your current record against him in Before or After is $atowins win(unless:$atowins is 1)[s], $atodraws draw(unless:$atodraws is 1)[s], and $atolosses loss(unless:$atolosses is 1)[es], while your record in True Flowers is $honwins win(unless:$honwins is 1)[s], $hondraws draw(unless:$hondraws is 1)[s], and $honlosses loss(unless:$honlosses is 1)[es].'']
}
So what'll it be? (link: "Before")[(set:$myatosaki to $ato, $hisatosaki to $saki)(goto: "true first summary")]? Or (link: "After")[(set:$myatosaki to $saki, $hisatosaki to $ato)(goto: "true first summary")]?
Or, do you need a refresher on [[how we play True Flowers->True Flowers rules]] here?
{
(move: $deck's (range:1,6) into $hishand)
(move: $deck's (range:1,6) into $myhand)
(set: $ato to $field's (range:4,6))
(set: $saki to $field's (range:7,9))
}
](if: $lockmushi is true)
[{"You'll need to prove yourself by beating me at least 5 times in [[Foolish Flowers]] before you can play this one." (link: "Hand over 5 Foolish Tokens.")
[
(if: $fooltokens >= 5)
[
(set: $fooltokens to it - 5)
(set: $lockmushi to false)
(goto: "Mushi")
]
(else:)
[You need at least ''5 Foolish Tokens''. You only have $fooltokens.]
]
}]
(elseif: $lockmushi is false)
[{
(display: "initialize")
(set: $gamemode to 2)
(set: $ame1 of $suits to "anything but (text-color:
(rgb:72,160,40))[Willow]")
(set: $deck to it - (a: $peony1, $peony2, $peony3, $peony4,
$hagi1, $hagi2, $hagi3, $hagi4))
(set: $mushideal to (either: true, false))
(move: $deck's (range:1,8) into $field)
(set: _suitfield to $field of $suits)
(if: (count: _suitfield, "(text-color: green)[Pine]") is 4)
[(goto: "Mushi")]
(if: (count: _suitfield, "(text-color: red)[Plum Blossom]") is 4)
[(goto: "Mushi")]
(if: (count: _suitfield, "(text-color: (rgb:255,180,182))[Cherry Blossom]") is 4)
[(goto: "Mushi")]
(if: (count: _suitfield, "(text-color: (rgb: 250,0,250))[Wisteria]") is 4)
[(goto: "Mushi")]
(if: (count: _suitfield, "(text-color: blue)[Iris]") is 4)
[(goto: "Mushi")]
(if: (count: _suitfield, "(text-color: (rgb:185,222,193))[Grass]") is 4)
[(goto: "Mushi")]
(if: (count: _suitfield, "(text-color: yellow)[Chrysanthemum]") is 4)
[(goto: "Mushi")]
(if: (count: _suitfield, "(text-color: (rgb:250,160,0))[Maple]") is 4)
[(goto: "Mushi")]
(if: (count: _suitfield, "(text-color: (rgb:72,160,40))[Willow]") is 3)
[(goto: "Mushi")]
(if: (count: _suitfield, "(text-color: (rgb:60,179,113))[Princess Tree]") is 4)
[(goto: "Mushi")]
"(either: "Ah, ", "Osaka ", "Good ol' ")Mushi. Can't forget to remove all the (text-color: (rgb:238,130,220))[Peony] and (text-color: (rgb:255,70,10))[Bush Clover] cards from the deck first." You never saw him remove them, but sure enough there were 8 cards splayed in an errant corner of the gaming surface.
"Flip a coin to see who deals?" He pulls a(either: "n", " miniscule", " tiny", " teensy", " itty bitty", " shiny", " gleaming") ''Insect Token'' from a small pouch, and gives it a flip. "Heads, you deal. I will take tails."
<br><br>
(if: $mushideal is true)[It's heads. ''Your deal''. You shuffle]
(else:)[It lands on tails, so it's your ''opponent's deal''. He shuffles] the 40-card deck and begin the deal in the usual way, with 4 cards face down to each player, and 4 cards face up to the field:
<br><br>
(if: $glasses is "Ryan's")[(print: 1st of $field of $pixel)` `(print: 2nd of $field of $pixel)` `(print: 3rd of $field of $pixel)` `(print: 4th of $field of $pixel)](elseif: $glasses is "Louie's")[(print: 1st of $field of $louie)` `(print: 2nd of $field of $louie)` `(print: 3rd of $field of $louie)` `(print: 4th of $field of $louie)](elseif: $glasses is "Sem's")[(print: 1st of $field of $sem)` `(print: 2nd of $field of $sem)` `(print: 3rd of $field of $sem)` `(print: 4th of $field of $sem)](elseif: $glasses is "Heaven's")[(print: 1st of $field of $vapor)` `(print: 2nd of $field of $vapor)` `(print: 3rd of $field of $vapor)` `(print: 4th of $field of $vapor)](else:)
[(print: 1st of $field)<br>
(print: 2nd of $field)<br>
(print: 3rd of $field)<br>
(print: 4th of $field)]
<br><br>
Then,
(if: $mushideal is true)[ you finish ](else:)[ he finishes ]
the deal with 4 more face down cards to each player and 4 more to the field:
<br><br>
(if: $glasses is "Ryan's")[(print: 5st of $field of $pixel)` `(print: 6nd of $field of $pixel)` `(print: 7rd of $field of $pixel)` `(print: 8th of $field of $pixel)](elseif: $glasses is "Louie's")[(print: 5st of $field of $louie)` `(print: 6nd of $field of $louie)` `(print: 7rd of $field of $louie)` `(print: 8th of $field of $louie)](elseif: $glasses is "Sem's")[(print: 5st of $field of $sem)` `(print: 6nd of $field of $sem)` `(print: 7rd of $field of $sem)` `(print: 8th of $field of $sem)](elseif: $glasses is "Heaven's")[(print: 5st of $field of $vapor)` `(print: 6nd of $field of $vapor)` `(print: 7rd of $field of $vapor)` `(print: 8th of $field of $vapor)](else:)
[(print: 5th of $field)<br>
(print: 6th of $field)<br>
(print: 7th of $field)<br>
(print: 8th of $field)]
<br><br>
"Before we start, do you want me to [[explain the rules?->Mushi rules]] Otherwise,
(if: $mushideal is true)
[[[let us begin->mushi your move 1]]]
(else:)
[[[I'll make my move->mushi opponent move]]]
."
(move: $deck's (range:1,8) into $hishand)
(move: $deck's (range:1,8) into $myhand)
}]
(if: $mushiwins + $mushidraws + $mushilosses > 0)[''Your current record in Mushi is $mushiwins win(unless:$mushiwins is 1)[s], $mushidraws draw(unless:$mushidraws is 1)[s], and $mushilosses loss(unless:$mushilosses is 1)[es].'']Your host chuckles softly before giving you a rundown of the games he knows.
"We play many different games in this house, but first you have to prove your skill. You can win [[Tokens]] of various types by playing well at different games."
{
"[[Foolish Flowers]] is a relatively simple game: Each card has a particular point value, and whichever player captures the most points wins the round." (if: $fooltokens is not 0)[You currently have ''$fooltokens Foolish Token(unless: $fooltokens is 1)[s]'' from playing this game.]
(unless: $fooltokens is 0 and $lockmushi is true)[<br><br>"[[Mushi]] is a classic game from Osaka, using fewer cards but a little more complex gameplay, including bonus points for completing ''Sets'' of cards, and even a wild card that can match almost any other card in the deck. (if: $lockmushi is true)[ If you can earn ''5 Foolish Tokens'' I'll teach you how to play it.]" (if: $mushitokens is not 0)[You currently have ''$mushitokens Insect Token(unless: $mushitokens is 1)[s]'' from playing this game.]]
(unless: $mushitokens is 0 and $locktrue is true)[<br><br>"[[True Flowers]] builds off of the same concepts as the previous games, but with a more sophisticated scoring system that calls for deeper strategy. It also includes two built-in //kabu//-style side games. (if: $locktrue is true)[ I'll teach you this game if you can collect ''300 Insect Tokens''.]" (if: $truthtokens is not 0)[You currently have ''$truthtokens Truth Token(unless: $truthtokens is 1)[s]'' from playing this game.]]
(unless: $locktrue is true and $lockyama is true)[<br><br>"[[Mountain Flowers]] is an exciting game in which players race to a number of points agreed upon at the beginning of the competition. (if: $lockyama is true)[ For ''600 Insect Tokens'', I'll show you how to play.]" (if: $yamatokens is not 0)[You possess ''$yamatokens Mountain Tokens'' from playing this game.]]
}
[[menu<-MENU]]"Don't remember how to play ''Foolish Flowers''? That's alright. ''Foolish Flowers'' is the most basic of the 'flower matching' genre of card games. As in most of these, the dealer usually plays first."
"The object of the game is to capture more points than me, by making pairs of cards which feature the same (linkrepeat: "type of plant")[(dialog: "(textsize: 0.6)[The flower deck consists of 48 cards, divided into 12 suits of 4 cards apiece. Each suit is represented by a different plant. They are:
(text-color: green)[Pine], (text-color: red)[Plum Blossom], (text-color: (rgb:255,180,182))[Cherry Blossom], (text-color: (rgb: 250,0,250))[Wisteria], (text-color: blue)[Iris], (text-color: (rgb:238,130,220))[Peony], (text-color: (rgb:255,70,10))[Bush Clover], (text-color: (rgb:185,222,193))[Grass], (text-color: yellow)[Chrysanthemum], (text-color: (rgb:250,160,0))[Maple], (text-color: (rgb:72,160,40))[Willow], and (text-color: (rgb:60,179,113))[Princess Tree].]", "Understood.")]. Each turn, you'll choose one card from your hand to put down onto the field, making such a match if possible. Then, you'll flip over the top card of the deck and play it to the field in the same manner. Any cards you've successfully paired are moved to your capture area, and (linkrepeat: "their points")[(dialog: "(textsize: 0.6)[There are four types of cards in the flower deck, of varying value, unevenly distributed through the suits:
* 24 'chaff', which are 1 point apiece:
** There are 2 of these in each suit, except (text-color: (rgb:72,160,40))[Willow], which only has 1, and (text-color: (rgb:60,179,113))[Princess Tree], which has 3.
* 10 ~~Ribbons~~, worth 5 points each:
** There are 1 of these per suit, except for (text-color: (rgb:185,222,193))[Grass] and (text-color: (rgb:60,179,113))[Princess Tree], which have none.
* 9 //Subjects//, worth 10 points each:
** These are $plum4, $fuji4, $iris4, $peony4, $hagi4, $grass3, $kiku4, $maple4, and $ame3.
* and finally, 5 ''Bright'' cards, worth 20 points apiece:
** These are $pine4, $cherry4, $grass4, $ame4, and $kiri4.]", "I see!")] are yours. In the event of 2 possible matches, you have to choose which card to capture. But if there are 3 matches to your card, you get to take them all!"
"The round is over once we've both run out of cards to play. Whoever has the highest score at that point is the winner."
(link: "Let's play.")[(goto: last of (history:))]{(set: _hand to 0)
(if: last of (history:) is "fool your move 1")
[(display: "your move 2")]}
(unless: length of $hishand is 0)
[
{
(set: _suitfield to $field of $suits)
(display: "med opponent")
(move: 1st of $deck into _deck)
(set: _suithand to _hand of $suits)
(set: _suitdeck to _deck of $suits)
(either:
"After just a few seconds of thought,",
"Without hesitation",
"He glances up to evaluate your expression, then",
"He smirks slightly as",
"With a gentle thunk,",
"With a stone face,") he places (print: _hand) on the field,
(if: (count: _suitfield, _suithand) matches 3)
[(set: $matchhand to 3)
(set: $hiscapture to it + (a:_hand) )
(for: each _fpos, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
[(if: length of $field >= _fpos)
[(if: (_fpos) of _suitfield matches _suithand)
[(set: $hiscapture to it + (a: (_fpos) of $field))
(set: $field to it - (a: (_fpos) of $field))]]
]
]
(elseif: (count: _suitfield, _suithand) matches 2)
[(set: $matchhand to 2)
(set: $hiscapture to it + (a:_hand))
(set: $handpickone to (a:))
(for: each _fpos, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
[(if: length of $field >= _fpos)
[(if: (_fpos) of _suitfield matches _suithand)
[(set: $handpickone to it + (a:(_fpos) of $field))]]
]
(if: 1st of $handpickone of $bakaval > 2nd of $handpickone of $bakaval)
[(set: $handchosen to 1st of $handpickone)]
(else:)
[(set: $handchosen to 2nd of $handpickone)]
(set: $hiscapture to it + (a:$handchosen))
(set: $field to it - (a:$handchosen))
]
(elseif: (count: _suitfield, _suithand) matches 1)
[(set: $matchhand to 1)
(set: $hiscapture to it + (a:_hand) )
(for: each _fpos, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
[(if: length of $field >= _fpos)
[(if: (_fpos) of _suitfield matches _suithand)
[(set: $hiscapture to it + (a: (_fpos) of $field))
(set: $field to it - (a: (_fpos) of $field))]]
]
]
(else:)
[(set: $matchhand to 0)
(set: $field to it + (a:_hand) )]
(set: _suitfield to $field of $suits)
} which matches $matchhand card(if: $matchhand is not 1)[s], {
(if: $matchhand is 1)
[(print: last of $hiscapture),]
(elseif: $matchhand is 2)
[either (print: 1st of $handpickone), or (print: 2nd of $handpickone). He chooses to capture $handchosen,]
(elseif: $matchhand is 3)
[taking the entire suit,]
(set: _suitfield to $field of $suits)
}
and subsequently (either: "flips over", "slaps down", "reveals", "plays") (print: _deck) from the top of the deck, {
(if: (count: _suitfield, _suitdeck) matches 3)
[(set: $matchdeck to 3)
(set: $hiscapture to it + (a:_deck) )
(for: each _fpos, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
[(if: length of $field >= _fpos)
[(if: (_fpos) of _suitfield matches _suitdeck)
[(set: $hiscapture to it + (a: (_fpos) of $field))
(set: $field to it - (a: (_fpos) of $field))]]
]
]
(elseif: (count: _suitfield, _suitdeck) matches 2)
[(set: $matchdeck to 2)
(set: $hiscapture to it + (a:_deck))
(set: $deckpickone to (a:))
(for: each _fpos, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
[(if: length of $field >= _fpos)
[(if: (_fpos) of _suitfield matches _suitdeck)
[(set: $deckpickone to it + (a:(_fpos) of $field))]]
]
(if: 1st of $deckpickone of $bakaval > 2nd of $deckpickone of $bakaval)
[(set: $deckchosen to 1st of $deckpickone)]
(else:)
[(set: $deckchosen to 2nd of $deckpickone)]
(set: $hiscapture to it + (a:$deckchosen))
(set: $field to it - (a:$deckchosen))
]
(elseif: (count: _suitfield, _suitdeck) matches 1)
[(set: $matchdeck to 1)
(set: $hiscapture to it + (a:_deck) )
(for: each _fpos, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
[(if: length of $field >= _fpos)
[(if: (_fpos) of _suitfield matches _suitdeck)
[(set: $hiscapture to it + (a: (_fpos) of $field))
(set: $field to it - (a: (_fpos) of $field))]]
]
]
(else:)
[(set: $matchdeck to 0)
(set: $field to it + (a:_deck))]
}which has $matchdeck match(if: $matchdeck is not 1)[es] on the field{
(if: $matchdeck is 1)
[, (print: last of $hiscapture)]
(elseif: $matchdeck is 2)
[, either (print: 1st of $deckpickone), or (print: 2nd of $deckpickone). He selects $deckchosen to capture]
(elseif: $matchdeck is 3)
[, the whole suit]
(set: _suitfield to $field of $suits)
(display: "Score Calc")}.
Your opponent ultimately captures (print: length of $hiscapture - $hisprevcap) new cards this turn. ''The score is now his $valhiscap points to your $valmycap points.''
(display: "The Field")
{(set: $hisprevcap to length of $hiscapture)
}](unless: length of $deck is 0)
[[[It's your turn.->fool your move 1]]]
(else:)
[The cards have run out. [[See round results.->Foolish End]]]{
(set: const-type $pine1 to "some (text-color: green)[Pine] trees")
(set: const-type $pine2 to "some green (text-color: green)[Pines]")
(set: const-type $pine3 to "the (text-color: green)[Pine] with Poetry ~~Ribbon~~")
(set: const-type $pine4 to "the (text-color: green)[Pine] with ''Crane and Sun''")
(set: const-type $plum1 to "some (text-color: red)[Plum Blossoms]")
(set: const-type $plum2 to "a branch full of (text-color: red)[Plum Blossoms]")
(set: const-type $plum3 to "the (text-color: red)[Plum Blossom] with Poetry ~~Ribbon~~")
(set: const-type $plum4 to "the (text-color: red)[Plum Blossom] with //Warbler//")
(set: const-type $cherry1 to "(text-color: (rgb:255,180,182))[Cherry Blossom] branches")
(set: const-type $cherry2 to "pink and red (text-color: (rgb:255,180,182))[Cherry Blossoms]")
(set: const-type $cherry3 to "the (text-color: (rgb:255,180,182))[Cherry Blossom] with Poetry ~~Ribbon~~")
(set: const-type $cherry4 to "the (text-color: (rgb:255,180,182))[Cherry Blossom] with ''Curtain''")
(set: const-type $fuji1 to "(text-color: (rgb: 250,0,250))[Wisteria] vines")
(set: const-type $fuji2 to "some hanging (text-color: (rgb: 250,0,250))[Wisteria]")
(set: const-type $fuji3 to "the (text-color: (rgb: 250,0,250))[Wisteria] with Red ~~Ribbon~~")
(set: const-type $fuji4 to "the (text-color: (rgb: 250,0,250))[Wisteria] with //Cuckoo//")
(set: const-type $iris1 to "an (text-color: blue)[Iris] with floppy leaves")
(set: const-type $iris2 to "a single, deep blue (text-color: blue)[Iris]")
(set: const-type $iris3 to "the (text-color: blue)[Iris] with Red ~~Ribbon~~")
(set: const-type $iris4 to "the (text-color: blue)[Iris] with //Bridge//")
(set: const-type $peony1 to "a large red (text-color: (rgb:238,130,220))[Peony]")
(set: const-type $peony2 to "one large and one small (text-color: (rgb:238,130,220))[Peony]")
(set: const-type $peony3 to "the (text-color: (rgb:238,130,220))[Peony] with Blue ~~Ribbon~~")
(set: const-type $peony4 to "the (text-color: (rgb:238,130,220))[Peony] with //Butterflies//")
(set: const-type $hagi1 to "a left-facing (text-color: (rgb:255,70,10))[Bush Clover]")
(set: const-type $hagi2 to "a right-facing (text-color: (rgb:255,70,10))[Bush Clover]")
(set: const-type $hagi3 to "the (text-color: (rgb:255,70,10))[Bush Clover] with Red ~~Ribbon~~")
(set: const-type $hagi4 to "the (text-color: (rgb:255,70,10))[Bush Clover] with //Boar//")
(set: const-type $grass1 to "rolling (text-color: (rgb:185,222,193))[Grassy] hills")
(set: const-type $grass2 to "a field of silver (text-color: (rgb:185,222,193))[Grass] on a hill")
(set: const-type $grass3 to "the //Geese// over a (text-color: (rgb:185,222,193))[Grassy] hill")
(set: const-type $grass4 to "the ''Full Moon'' over a (text-color: (rgb:185,222,193))[Grassy] hill")
(set: const-type $kiku1 to "a red and yellow (text-color: yellow)[Chrysanthemum]")
(set: const-type $kiku2 to "a golden (text-color: yellow)[Chrysanthemum]")
(set: const-type $kiku3 to "the (text-color: yellow)[Chrysanthemum] with Blue ~~Ribbon~~")
(set: const-type $kiku4 to "the (text-color: yellow)[Chrysanthemum] with //Sake Cup//")
(set: const-type $maple1 to "fallen (text-color: (rgb:250,160,0))[Maple] leaves")
(set: const-type $maple2 to "gently drifting (text-color: (rgb:250,160,0))[Maple] leaves")
(set: const-type $maple3 to "the (text-color: (rgb:250,160,0))[Maple] leaves with Blue ~~Ribbon~~")
(set: const-type $maple4 to "the (text-color: (rgb:250,160,0))[Maple] tree with //Deer//")
(set: const-type $ame1 to "the (text-color: (rgb:72,160,40))[Willow] with Lightning")
(set: const-type $ame2 to "the (text-color: (rgb:72,160,40))[Willow] with Red ~~Ribbon~~")
(set: const-type $ame3 to "the (text-color: (rgb:72,160,40))[Willow] with //Swallow//")
(set: const-type $ame4 to "the (text-color: (rgb:72,160,40))[Willow] with ''Rain Man and Frog''")
(set: const-type $kiri1 to "just a normal (text-color: (rgb:60,179,113))[Princess Tree]")
(set: const-type $kiri2 to "a (text-color: (rgb:60,179,113))[Princess Tree] with Japanese text")
(set: const-type $kiri3 to "a (text-color: (rgb:60,179,113))[Princess Tree] with a yellow bottom")
(set: const-type $kiri4 to "the (text-color: (rgb:60,179,113))[Princess Tree] with ''Phoenix''")
(set: $pixel to
(dm:
$pine1, '<img src="https://paperflowers.neocities.org/pixel/pine1.png" width="87" height="132" />',
$pine2, '<img src="https://paperflowers.neocities.org/pixel/pine2.png" width="87" height="132" />',
$pine3, '<img src="https://paperflowers.neocities.org/pixel/pine3.png" width="87" height="132" />',
$pine4, '<img src="https://paperflowers.neocities.org/pixel/pine4.png" width="87" height="132" />',
$plum1, '<img src="https://paperflowers.neocities.org/pixel/plum1.png" width="87" height="132" />',
$plum2, '<img src="https://paperflowers.neocities.org/pixel/plum2.png" width="87" height="132" />',
$plum3, '<img src="https://paperflowers.neocities.org/pixel/plum3.png" width="87" height="132" />',
$plum4, '<img src="https://paperflowers.neocities.org/pixel/plum4.png" width="87" height="132" />',
$cherry1, '<img src="https://paperflowers.neocities.org/pixel/cherry1.png" width="87" height="132" />',
$cherry2, '<img src="https://paperflowers.neocities.org/pixel/cherry2.png" width="87" height="132" />',
$cherry3, '<img src="https://paperflowers.neocities.org/pixel/cherry3.png" width="87" height="132" />',
$cherry4, '<img src="https://paperflowers.neocities.org/pixel/cherry4.png" width="87" height="132" />',
$fuji1, '<img src="https://paperflowers.neocities.org/pixel/fuji1.png" width="87" height="132" />',
$fuji2, '<img src="https://paperflowers.neocities.org/pixel/fuji2.png" width="87" height="132" />',
$fuji3, '<img src="https://paperflowers.neocities.org/pixel/fuji3.png" width="87" height="132" />',
$fuji4, '<img src="https://paperflowers.neocities.org/pixel/fuji4.png" width="87" height="132" />',
$iris1, '<img src="https://paperflowers.neocities.org/pixel/iris1.png" width="87" height="132" />',
$iris2, '<img src="https://paperflowers.neocities.org/pixel/iris2.png" width="87" height="132" />',
$iris3, '<img src="https://paperflowers.neocities.org/pixel/iris3.png" width="87" height="132" />',
$iris4, '<img src="https://paperflowers.neocities.org/pixel/iris4.png" width="87" height="132" />',
$peony1, '<img src="https://paperflowers.neocities.org/pixel/peony1.png" width="87" height="132" />',
$peony2, '<img src="https://paperflowers.neocities.org/pixel/peony2.png" width="87" height="132" />',
$peony3, '<img src="https://paperflowers.neocities.org/pixel/peony3.png" width="87" height="132" />',
$peony4, '<img src="https://paperflowers.neocities.org/pixel/peony4.png" width="87" height="132" />',
$hagi1, '<img src="https://paperflowers.neocities.org/pixel/hagi1.png" width="87" height="132" />',
$hagi2, '<img src="https://paperflowers.neocities.org/pixel/hagi2.png" width="87" height="132" />',
$hagi3, '<img src="https://paperflowers.neocities.org/pixel/hagi3.png" width="87" height="132" />',
$hagi4, '<img src="https://paperflowers.neocities.org/pixel/hagi4.png" width="87" height="132" />',
$grass1, '<img src="https://paperflowers.neocities.org/pixel/grass1.png" width="87" height="132" />',
$grass2, '<img src="https://paperflowers.neocities.org/pixel/grass2.png" width="87" height="132" />',
$grass3, '<img src="https://paperflowers.neocities.org/pixel/grass3.png" width="87" height="132" />',
$grass4, '<img src="https://paperflowers.neocities.org/pixel/grass4.png" width="87" height="132" />',
$kiku1, '<img src="https://paperflowers.neocities.org/pixel/kiku1.png" width="87" height="132" />',
$kiku2, '<img src="https://paperflowers.neocities.org/pixel/kiku2.png" width="87" height="132" />',
$kiku3, '<img src="https://paperflowers.neocities.org/pixel/kiku3.png" width="87" height="132" />',
$kiku4, '<img src="https://paperflowers.neocities.org/pixel/kiku4.png" width="87" height="132" />',
$maple1, '<img src="https://paperflowers.neocities.org/pixel/maple1.png" width="87" height="132" />',
$maple2, '<img src="https://paperflowers.neocities.org/pixel/maple2.png" width="87" height="132" />',
$maple3, '<img src="https://paperflowers.neocities.org/pixel/maple3.png" width="87" height="132" />',
$maple4, '<img src="https://paperflowers.neocities.org/pixel/maple4.png" width="87" height="132" />',
$ame1, '<img src="https://paperflowers.neocities.org/pixel/ame1.png" width="87" height="132" />',
$ame2, '<img src="https://paperflowers.neocities.org/pixel/ame2.png" width="87" height="132" />',
$ame3, '<img src="https://paperflowers.neocities.org/pixel/ame3.png" width="87" height="132" />',
$ame4, '<img src="https://paperflowers.neocities.org/pixel/ame4.png" width="87" height="132" />',
$kiri1, '<img src="https://paperflowers.neocities.org/pixel/kiri1.png" width="87" height="132" />',
$kiri2, '<img src="https://paperflowers.neocities.org/pixel/kiri2.png" width="87" height="132" />',
$kiri3, '<img src="https://paperflowers.neocities.org/pixel/kiri3.png" width="87" height="132" />',
$kiri4, '<img src="https://paperflowers.neocities.org/pixel/kiri4.png" width="87" height="132" />'
)
)
(set: $vapor to
(dm:
$pine1, '<img src="https://paperflowers.neocities.org/heaven/pine1.png" width="90" height="150" />',
$pine2, '<img src="https://paperflowers.neocities.org/heaven/pine2.png" width="90" height="150" />',
$pine3, '<img src="https://paperflowers.neocities.org/heaven/pine3.png" width="90" height="150" />',
$pine4, '<img src="https://paperflowers.neocities.org/heaven/pine4.png" width="90" height="150" />',
$plum1, '<img src="https://paperflowers.neocities.org/heaven/plum1.png" width="90" height="150" />',
$plum2, '<img src="https://paperflowers.neocities.org/heaven/plum2.png" width="90" height="150" />',
$plum3, '<img src="https://paperflowers.neocities.org/heaven/plum3.png" width="90" height="150" />',
$plum4, '<img src="https://paperflowers.neocities.org/heaven/plum4.png" width="90" height="150" />',
$cherry1, '<img src="https://paperflowers.neocities.org/heaven/cherry1.png" width="90" height="150" />',
$cherry2, '<img src="https://paperflowers.neocities.org/heaven/cherry2.png" width="90" height="150" />',
$cherry3, '<img src="https://paperflowers.neocities.org/heaven/cherry3.png" width="90" height="150" />',
$cherry4, '<img src="https://paperflowers.neocities.org/heaven/cherry4.png" width="90" height="150" />',
$fuji1, '<img src="https://paperflowers.neocities.org/heaven/fuji1.png" width="90" height="150" />',
$fuji2, '<img src="https://paperflowers.neocities.org/heaven/fuji2.png" width="90" height="150" />',
$fuji3, '<img src="https://paperflowers.neocities.org/heaven/fuji3.png" width="90" height="150" />',
$fuji4, '<img src="https://paperflowers.neocities.org/heaven/fuji4.png" width="90" height="150" />',
$iris1, '<img src="https://paperflowers.neocities.org/heaven/iris1.png" width="90" height="150" />',
$iris2, '<img src="https://paperflowers.neocities.org/heaven/iris2.png" width="90" height="150" />',
$iris3, '<img src="https://paperflowers.neocities.org/heaven/iris3.png" width="90" height="150" />',
$iris4, '<img src="https://paperflowers.neocities.org/heaven/iris4.png" width="90" height="150" />',
$peony1, '<img src="https://paperflowers.neocities.org/heaven/peony1.png" width="90" height="150" />',
$peony2, '<img src="https://paperflowers.neocities.org/heaven/peony2.png" width="90" height="150" />',
$peony3, '<img src="https://paperflowers.neocities.org/heaven/peony3.png" width="90" height="150" />',
$peony4, '<img src="https://paperflowers.neocities.org/heaven/peony4.png" width="90" height="150" />',
$hagi1, '<img src="https://paperflowers.neocities.org/heaven/hagi1.png" width="90" height="150" />',
$hagi2, '<img src="https://paperflowers.neocities.org/heaven/hagi2.png" width="90" height="150" />',
$hagi3, '<img src="https://paperflowers.neocities.org/heaven/hagi3.png" width="90" height="150" />',
$hagi4, '<img src="https://paperflowers.neocities.org/heaven/hagi4.png" width="90" height="150" />',
$grass1, '<img src="https://paperflowers.neocities.org/heaven/grass1.png" width="90" height="150" />',
$grass2, '<img src="https://paperflowers.neocities.org/heaven/grass2.png" width="90" height="150" />',
$grass3, '<img src="https://paperflowers.neocities.org/heaven/grass3.png" width="90" height="150" />',
$grass4, '<img src="https://paperflowers.neocities.org/heaven/grass4.png" width="90" height="150" />',
$kiku1, '<img src="https://paperflowers.neocities.org/heaven/kiku1.png" width="90" height="150" />',
$kiku2, '<img src="https://paperflowers.neocities.org/heaven/kiku2.png" width="90" height="150" />',
$kiku3, '<img src="https://paperflowers.neocities.org/heaven/kiku3.png" width="90" height="150" />',
$kiku4, '<img src="https://paperflowers.neocities.org/heaven/kiku4.png" width="90" height="150" />',
$maple1, '<img src="https://paperflowers.neocities.org/heaven/maple1.png" width="90" height="150" />',
$maple2, '<img src="https://paperflowers.neocities.org/heaven/maple2.png" width="90" height="150" />',
$maple3, '<img src="https://paperflowers.neocities.org/heaven/maple3.png" width="90" height="150" />',
$maple4, '<img src="https://paperflowers.neocities.org/heaven/maple4.png" width="90" height="150" />',
$ame1, '<img src="https://paperflowers.neocities.org/heaven/ame1.png" width="90" height="150" />',
$ame2, '<img src="https://paperflowers.neocities.org/heaven/ame2.png" width="90" height="150" />',
$ame3, '<img src="https://paperflowers.neocities.org/heaven/ame3.png" width="90" height="150" />',
$ame4, '<img src="https://paperflowers.neocities.org/heaven/ame4.png" width="90" height="150" />',
$kiri1, '<img src="https://paperflowers.neocities.org/heaven/kiri1.png" width="90" height="150" />',
$kiri2, '<img src="https://paperflowers.neocities.org/heaven/kiri2.png" width="90" height="150" />',
$kiri3, '<img src="https://paperflowers.neocities.org/heaven/kiri3.png" width="90" height="150" />',
$kiri4, '<img src="https://paperflowers.neocities.org/heaven/kiri4.png" width="90" height="150" />'
)
)
(set: $sem to
(dm:
$pine1, '<img src="https://paperflowers.neocities.org/sem/pine1.png" width="75" height="150" />',
$pine2, '<img src="https://paperflowers.neocities.org/sem/pine2.png" width="75" height="150" />',
$pine3, '<img src="https://paperflowers.neocities.org/sem/pine3.png" width="75" height="150" />',
$pine4, '<img src="https://paperflowers.neocities.org/sem/pine4.png" width="75" height="150" />',
$plum1, '<img src="https://paperflowers.neocities.org/sem/plum1.png" width="75" height="150" />',
$plum2, '<img src="https://paperflowers.neocities.org/sem/plum2.png" width="75" height="150" />',
$plum3, '<img src="https://paperflowers.neocities.org/sem/plum3.png" width="75" height="150" />',
$plum4, '<img src="https://paperflowers.neocities.org/sem/plum4.png" width="75" height="150" />',
$cherry1, '<img src="https://paperflowers.neocities.org/sem/cherry1.png" width="75" height="150" />',
$cherry2, '<img src="https://paperflowers.neocities.org/sem/cherry2.png" width="75" height="150" />',
$cherry3, '<img src="https://paperflowers.neocities.org/sem/cherry3.png" width="75" height="150" />',
$cherry4, '<img src="https://paperflowers.neocities.org/sem/cherry4.png" width="75" height="150" />',
$fuji1, '<img src="https://paperflowers.neocities.org/sem/fuji1.png" width="75" height="150" />',
$fuji2, '<img src="https://paperflowers.neocities.org/sem/fuji2.png" width="75" height="150" />',
$fuji3, '<img src="https://paperflowers.neocities.org/sem/fuji3.png" width="75" height="150" />',
$fuji4, '<img src="https://paperflowers.neocities.org/sem/fuji4.png" width="75" height="150" />',
$iris1, '<img src="https://paperflowers.neocities.org/sem/iris1.png" width="75" height="150" />',
$iris2, '<img src="https://paperflowers.neocities.org/sem/iris2.png" width="75" height="150" />',
$iris3, '<img src="https://paperflowers.neocities.org/sem/iris3.png" width="75" height="150" />',
$iris4, '<img src="https://paperflowers.neocities.org/sem/iris4.png" width="75" height="150" />',
$peony1, '<img src="https://paperflowers.neocities.org/sem/peony1.png" width="75" height="150" />',
$peony2, '<img src="https://paperflowers.neocities.org/sem/peony2.png" width="75" height="150" />',
$peony3, '<img src="https://paperflowers.neocities.org/sem/peony3.png" width="75" height="150" />',
$peony4, '<img src="https://paperflowers.neocities.org/sem/peony4.png" width="75" height="150" />',
$hagi1, '<img src="https://paperflowers.neocities.org/sem/hagi1.png" width="75" height="150" />',
$hagi2, '<img src="https://paperflowers.neocities.org/sem/hagi2.png" width="75" height="150" />',
$hagi3, '<img src="https://paperflowers.neocities.org/sem/hagi3.png" width="75" height="150" />',
$hagi4, '<img src="https://paperflowers.neocities.org/sem/hagi4.png" width="75" height="150" />',
$grass1, '<img src="https://paperflowers.neocities.org/sem/grass1.png" width="75" height="150" />',
$grass2, '<img src="https://paperflowers.neocities.org/sem/grass2.png" width="75" height="150" />',
$grass3, '<img src="https://paperflowers.neocities.org/sem/grass3.png" width="75" height="150" />',
$grass4, '<img src="https://paperflowers.neocities.org/sem/grass4.png" width="75" height="150" />',
$kiku1, '<img src="https://paperflowers.neocities.org/sem/kiku1.png" width="75" height="150" />',
$kiku2, '<img src="https://paperflowers.neocities.org/sem/kiku2.png" width="75" height="150" />',
$kiku3, '<img src="https://paperflowers.neocities.org/sem/kiku3.png" width="75" height="150" />',
$kiku4, '<img src="https://paperflowers.neocities.org/sem/kiku4.png" width="75" height="150" />',
$maple1, '<img src="https://paperflowers.neocities.org/sem/maple1.png" width="75" height="150" />',
$maple2, '<img src="https://paperflowers.neocities.org/sem/maple2.png" width="75" height="150" />',
$maple3, '<img src="https://paperflowers.neocities.org/sem/maple3.png" width="75" height="150" />',
$maple4, '<img src="https://paperflowers.neocities.org/sem/maple4.png" width="75" height="150" />',
$ame1, '<img src="https://paperflowers.neocities.org/sem/ame1.png" width="75" height="150" />',
$ame2, '<img src="https://paperflowers.neocities.org/sem/ame2.png" width="75" height="150" />',
$ame3, '<img src="https://paperflowers.neocities.org/sem/ame3.png" width="75" height="150" />',
$ame4, '<img src="https://paperflowers.neocities.org/sem/ame4.png" width="75" height="150" />',
$kiri1, '<img src="https://paperflowers.neocities.org/sem/kiri1.png" width="75" height="150" />',
$kiri2, '<img src="https://paperflowers.neocities.org/sem/kiri2.png" width="75" height="150" />',
$kiri3, '<img src="https://paperflowers.neocities.org/sem/kiri3.png" width="75" height="150" />',
$kiri4, '<img src="https://paperflowers.neocities.org/sem/kiri4.png" width="75" height="150" />'
)
)
(set: $louie to
(dm:
$pine1, '<img src="https://paperflowers.neocities.org/louie/pine1.svg" width="90" height="149" />',
$pine2, '<img src="https://paperflowers.neocities.org/louie/pine2.svg" width="90" height="149" />',
$pine3, '<img src="https://paperflowers.neocities.org/louie/pine3.svg" width="90" height="149" />',
$pine4, '<img src="https://paperflowers.neocities.org/louie/pine4.svg" width="90" height="149" />',
$plum1, '<img src="https://paperflowers.neocities.org/louie/plum1.svg" width="90" height="149" />',
$plum2, '<img src="https://paperflowers.neocities.org/louie/plum2.svg" width="90" height="149" />',
$plum3, '<img src="https://paperflowers.neocities.org/louie/plum3.svg" width="90" height="149" />',
$plum4, '<img src="https://paperflowers.neocities.org/louie/plum4.svg" width="90" height="149" />',
$cherry1, '<img src="https://paperflowers.neocities.org/louie/cherry1.svg" width="90" height="149" />',
$cherry2, '<img src="https://paperflowers.neocities.org/louie/cherry2.svg" width="90" height="149" />',
$cherry3, '<img src="https://paperflowers.neocities.org/louie/cherry3.svg" width="90" height="149" />',
$cherry4, '<img src="https://paperflowers.neocities.org/louie/cherry4.svg" width="90" height="149" />',
$fuji1, '<img src="https://paperflowers.neocities.org/louie/fuji1.svg" width="90" height="149" />',
$fuji2, '<img src="https://paperflowers.neocities.org/louie/fuji2.svg" width="90" height="149" />',
$fuji3, '<img src="https://paperflowers.neocities.org/louie/fuji3.svg" width="90" height="149" />',
$fuji4, '<img src="https://paperflowers.neocities.org/louie/fuji4.svg" width="90" height="149" />',
$iris1, '<img src="https://paperflowers.neocities.org/louie/iris1.svg" width="90" height="149" />',
$iris2, '<img src="https://paperflowers.neocities.org/louie/iris2.svg" width="90" height="149" />',
$iris3, '<img src="https://paperflowers.neocities.org/louie/iris3.svg" width="90" height="149" />',
$iris4, '<img src="https://paperflowers.neocities.org/louie/iris4.svg" width="90" height="149" />',
$peony1, '<img src="https://paperflowers.neocities.org/louie/peony1.svg" width="90" height="149" />',
$peony2, '<img src="https://paperflowers.neocities.org/louie/peony2.svg" width="90" height="149" />',
$peony3, '<img src="https://paperflowers.neocities.org/louie/peony3.svg" width="90" height="149" />',
$peony4, '<img src="https://paperflowers.neocities.org/louie/peony4.svg" width="90" height="149" />',
$hagi1, '<img src="https://paperflowers.neocities.org/louie/hagi1.svg" width="90" height="149" />',
$hagi2, '<img src="https://paperflowers.neocities.org/louie/hagi2.svg" width="90" height="149" />',
$hagi3, '<img src="https://paperflowers.neocities.org/louie/hagi3.svg" width="90" height="149" />',
$hagi4, '<img src="https://paperflowers.neocities.org/louie/hagi4.svg" width="90" height="149" />',
$grass1, '<img src="https://paperflowers.neocities.org/louie/grass1.svg" width="90" height="149" />',
$grass2, '<img src="https://paperflowers.neocities.org/louie/grass2.svg" width="90" height="149" />',
$grass3, '<img src="https://paperflowers.neocities.org/louie/grass3.svg" width="90" height="149" />',
$grass4, '<img src="https://paperflowers.neocities.org/louie/grass4.svg" width="90" height="149" />',
$kiku1, '<img src="https://paperflowers.neocities.org/louie/kiku1.svg" width="90" height="149" />',
$kiku2, '<img src="https://paperflowers.neocities.org/louie/kiku2.svg" width="90" height="149" />',
$kiku3, '<img src="https://paperflowers.neocities.org/louie/kiku3.svg" width="90" height="149" />',
$kiku4, '<img src="https://paperflowers.neocities.org/louie/kiku4.svg" width="90" height="149" />',
$maple1, '<img src="https://paperflowers.neocities.org/louie/maple1.svg" width="90" height="149" />',
$maple2, '<img src="https://paperflowers.neocities.org/louie/maple2.svg" width="90" height="149" />',
$maple3, '<img src="https://paperflowers.neocities.org/louie/maple3.svg" width="90" height="149" />',
$maple4, '<img src="https://paperflowers.neocities.org/louie/maple4.svg" width="90" height="149" />',
$ame1, '<img src="https://paperflowers.neocities.org/louie/ame1.svg" width="90" height="149" />',
$ame2, '<img src="https://paperflowers.neocities.org/louie/ame2.svg" width="90" height="149" />',
$ame3, '<img src="https://paperflowers.neocities.org/louie/ame3.svg" width="90" height="149" />',
$ame4, '<img src="https://paperflowers.neocities.org/louie/ame4.svg" width="90" height="149" />',
$kiri1, '<img src="https://paperflowers.neocities.org/louie/kiri1.svg" width="90" height="149" />',
$kiri2, '<img src="https://paperflowers.neocities.org/louie/kiri2.svg" width="90" height="149" />',
$kiri3, '<img src="https://paperflowers.neocities.org/louie/kiri3.svg" width="90" height="149" />',
$kiri4, '<img src="https://paperflowers.neocities.org/louie/kiri4.svg" width="90" height="149" />'
)
)
(set: const-type $perfectdeck to
(a: $pine1, $pine2, $pine3, $pine4,
$plum1, $plum2, $plum3, $plum4,
$cherry1, $cherry2, $cherry3, $cherry4,
$fuji1, $fuji2, $fuji3, $fuji4,
$iris1, $iris2, $iris3, $iris4,
$peony1, $peony2, $peony3, $peony4,
$hagi1, $hagi2, $hagi3, $hagi4,
$grass1, $grass2, $grass3, $grass4,
$kiku1, $kiku2, $kiku3, $kiku4,
$maple1, $maple2, $maple3, $maple4,
$ame1, $ame2, $ame3, $ame4,
$kiri1, $kiri2, $kiri3, $kiri4))
(set: $suits to
(dm: $pine1, "(text-color: green)[Pine]",
$pine2, "(text-color: green)[Pine]",
$pine3, "(text-color: green)[Pine]",
$pine4, "(text-color: green)[Pine]",
$plum1, "(text-color: red)[Plum Blossom]",
$plum2, "(text-color: red)[Plum Blossom]",
$plum3, "(text-color: red)[Plum Blossom]",
$plum4, "(text-color: red)[Plum Blossom]",
$cherry1, "(text-color: (rgb:255,180,182))[Cherry Blossom]",
$cherry2, "(text-color: (rgb:255,180,182))[Cherry Blossom]",
$cherry3, "(text-color: (rgb:255,180,182))[Cherry Blossom]",
$cherry4, "(text-color: (rgb:255,180,182))[Cherry Blossom]",
$fuji1, "(text-color: (rgb: 250,0,250))[Wisteria]",
$fuji2, "(text-color: (rgb: 250,0,250))[Wisteria]",
$fuji3, "(text-color: (rgb: 250,0,250))[Wisteria]",
$fuji4, "(text-color: (rgb: 250,0,250))[Wisteria]",
$iris1, "(text-color: blue)[Iris]",
$iris2, "(text-color: blue)[Iris]",
$iris3, "(text-color: blue)[Iris]",
$iris4, "(text-color: blue)[Iris]",
$peony1, "(text-color: (rgb:238,130,220))[Peony]",
$peony2, "(text-color: (rgb:238,130,220))[Peony]",
$peony3, "(text-color: (rgb:238,130,220))[Peony]",
$peony4, "(text-color: (rgb:238,130,220))[Peony]",
$hagi1, "(text-color: (rgb:255,70,10))[Bush Clover]",
$hagi2, "(text-color: (rgb:255,70,10))[Bush Clover]",
$hagi3, "(text-color: (rgb:255,70,10))[Bush Clover]",
$hagi4, "(text-color: (rgb:255,70,10))[Bush Clover]",
$grass1, "(text-color: (rgb:185,222,193))[Grass]",
$grass2, "(text-color: (rgb:185,222,193))[Grass]",
$grass3, "(text-color: (rgb:185,222,193))[Grass]",
$grass4, "(text-color: (rgb:185,222,193))[Grass]",
$kiku1, "(text-color: yellow)[Chrysanthemum]",
$kiku2, "(text-color: yellow)[Chrysanthemum]",
$kiku3, "(text-color: yellow)[Chrysanthemum]",
$kiku4, "(text-color: yellow)[Chrysanthemum]",
$maple1, "(text-color: (rgb:250,160,0))[Maple]",
$maple2, "(text-color: (rgb:250,160,0))[Maple]",
$maple3, "(text-color: (rgb:250,160,0))[Maple]",
$maple4, "(text-color: (rgb:250,160,0))[Maple]",
$ame1, "(text-color: (rgb:72,160,40))[Willow]",
$ame2, "(text-color: (rgb:72,160,40))[Willow]",
$ame3, "(text-color: (rgb:72,160,40))[Willow]",
$ame4, "(text-color: (rgb:72,160,40))[Willow]",
$kiri1, "(text-color: (rgb:60,179,113))[Princess Tree]",
$kiri2, "(text-color: (rgb:60,179,113))[Princess Tree]",
$kiri3, "(text-color: (rgb:60,179,113))[Princess Tree]",
$kiri4, "(text-color: (rgb:60,179,113))[Princess Tree]"))
(set: $bakaval to
(dm: $pine1, 1, $pine2, 1, $pine3, 5, $pine4, 20,
$plum1, 1, $plum2, 1, $plum3, 5, $plum4, 10,
$cherry1, 1, $cherry2, 1, $cherry3, 5, $cherry4, 20,
$fuji1, 1, $fuji2, 1, $fuji3, 5, $fuji4, 10,
$iris1, 1, $iris2, 1, $iris3, 5, $iris4, 10,
$peony1, 1, $peony2, 1, $peony3, 5, $peony4, 10,
$hagi1, 1, $hagi2, 1, $hagi3, 5, $hagi4, 10,
$grass1, 1, $grass2, 1, $grass3, 10, $grass4, 20,
$kiku1, 1, $kiku2, 1, $kiku3, 5, $kiku4, 10,
$maple1, 1, $maple2, 1, $maple3, 5, $maple4, 10,
$ame1, 1, $ame2, 5, $ame3, 10, $ame4, 20,
$kiri1, 1, $kiri2, 1, $kiri3, 1, $kiri4, 20
)
)
(set: $honval to
(dm: $pine1, 0, $pine2, 0, $pine3, 5, $pine4, 30,
$plum1, 0, $plum2, 0, $plum3, 5, $plum4, 20,
$cherry1, 0, $cherry2, 0, $cherry3, 5, $cherry4, 30,
$fuji1, 0, $fuji2, 0, $fuji3, 5, $fuji4, 10,
$iris1, 0, $iris2, 0, $iris3, 5, $iris4, 20,
$peony1, 0, $peony2, 0, $peony3, 5, $peony4, 10,
$hagi1, 0, $hagi2, 0, $hagi3, 5, $hagi4, 10,
$grass1, 0, $grass2, 0, $grass3, 10, $grass4, 30,
$kiku1, 0, $kiku2, 0, $kiku3, 5, $kiku4, 10,
$maple1, 0, $maple2, 0, $maple3, 5, $maple4, 20,
$ame1, 0, $ame2, 5, $ame3, 10, $ame4, 10,
$kiri1, 0, $kiri2, 0, $kiri3, 0, $kiri4, 30
)
)
(set: $yamaval to
(dm: $pine1, 0, $pine2, 0, $pine3, 10, $pine4, 50,
$plum1, 0, $plum2, 0, $plum3, 10, $plum4, 50,
$cherry1, 0, $cherry2, 0, $cherry3, 10, $cherry4, 50,
$fuji1, 0, $fuji2, 0, $fuji3, 10, $fuji4, 10,
$iris1, 0, $iris2, 0, $iris3, 10, $iris4, 10,
$peony1, 0, $peony2, 0, $peony3, 10, $peony4, 10,
$hagi1, 0, $hagi2, 0, $hagi3, 10, $hagi4, 10,
$grass1, 0, $grass2, 0, $grass3, 10, $grass4, 50,
$kiku1, 0, $kiku2, 0, $kiku3, 10, $kiku4, 10,
$maple1, 0, $maple2, 0, $maple3, 10, $maple4, 10,
$ame1, 0, $ame2, 10, $ame3, 10, $ame4, 50,
$kiri1, 0, $kiri2, 0, $kiri3, 10, $kiri4, 50
)
)
(set: $nagoyakabu to
(dm: $pine1, 1, $pine2, 1, $pine3, 1, $pine4, 1,
$plum1, 12, $plum2, 12, $plum3, 12, $plum4, 12,
$cherry1, 3, $cherry2, 3, $cherry3, 3, $cherry4, 3,
$fuji1, 4, $fuji2, 4, $fuji3, 4, $fuji4, 4,
$iris1, 5, $iris2, 5, $iris3, 5, $iris4, 5,
$peony1, 11, $peony2, 11, $peony3, 11, $peony4, 11,
$hagi1, 7, $hagi2, 7, $hagi3, 7, $hagi4, 7,
$grass1, 8, $grass2, 8, $grass3, 8, $grass4, 8,
$kiku1, 9, $kiku2, 9, $kiku3, 9, $kiku4, 9,
$maple1, 10, $maple2, 10, $maple3, 10, $maple4, 10,
$ame1, 2, $ame2, 2, $ame3, 2, $ame4, 2,
$kiri1, 6, $kiri2, 6, $kiri3, 6, $kiri4, 6
)
)
(set: const-type $allbutame to
(a: $pine1, $pine2, $pine3, $pine4,
$plum1, $plum2, $plum3, $plum4,
$cherry1, $cherry2, $cherry3, $cherry4,
$fuji1, $fuji2, $fuji3, $fuji4,
$iris1, $iris2, $iris3, $iris4,
$peony1, $peony2, $peony3, $peony4,
$hagi1, $hagi2, $hagi3, $hagi4,
$grass1, $grass2, $grass3, $grass4,
$kiku1, $kiku2, $kiku3, $kiku4,
$maple1, $maple2, $maple3, $maple4,
$kiri1, $kiri2, $kiri3, $kiri4))
(set: const-type $allbutchaff to
(a: $pine3, $pine4, $plum3, $plum4,
$cherry3, $cherry4, $fuji3, $fuji4,
$iris3, $iris4, $peony3, $peony4,
$hagi3, $hagi4, $grass3, $grass4,
$kiku3, $kiku4, $maple3, $maple4,
$ame1, $ame2, $ame3, $kiri3, $kiri4))
(set: $matsushima to (a: $pine1, $pine2, $pine3, $pine4))
(set: $umeshima to (a: $plum1, $plum2, $plum3, $plum4))
(set: $sakurashima to (a: $cherry1, $cherry2, $cherry3, $cherry4))
(set: $fgoroju to (a: $iris4, $kiri4, $maple4))
(set: $bgoroju to (a: $iris3, $kiri4, $maple3))
(set: $sanko to (a: $pine4, $plum4, $cherry4))
(set: $akatan to (a: $pine3, $plum3, $cherry3))
(set: $aotan to (a: $kiku3, $maple3, $peony3))
(set: $shiko to (a: $pine4, $cherry4, $kiri4, $grass4))
(set: $myphoenix to false, $hisphoenix to false)
(set: $fujishima to (a: $fuji1, $fuji2, $fuji3, $fuji4))
(set: $kirishima to (a: $kiri1, $kiri2, $kiri3, $kiri4))
(set: $goko to $shiko + (a: $ame4))
(set: $makibo to (a: $pine4, $grass4, $kiri4))
(set: $kusa to (a: $fuji3, $iris3, $hagi3))
(set: $ishicho to (a: $peony4, $hagi4, $maple4))
(set: $nomi to (a: $cherry4, $grass4, $kiku4))
(set: $amezoro to (a: $ame1, $ame2, $ame3, $ame4))
(set: $ribbons to (a: $pine3, $plum3, $cherry3, $fuji3, $iris3, $peony3, $hagi3, $kiku3, $maple3, $ame3))
(set: $subjects to
(a: $plum4, $fuji4, $iris4, $peony4,
$hagi4, $grass3, $kiku4, $maple4, $ame3))
(set: $chaff to
(a: $pine1, $pine2, $plum1, $plum2,
$cherry1, $cherry2, $fuji1, $fuji2,
$iris1, $iris2, $peony1, $peony2,
$hagi1, $hagi2, $grass1, $grass2,
$kiku1, $kiku2, $maple3, $maple4,
$ame1, $kiri1, $kiri2, $kiri3))
(set: $godori to (a: $plum4, $fuji4, $grass3))
(set: $deck to (shuffled: ...$perfectdeck))
(set: $hiscapture to (a:))
(set: $mycapture to (a:))
(set: $field to (a:))
(set: $hishand to (a:))
(set: $myhand to (a:))
(set: num-type $valmycap to 0)
(set: num-type $valhiscap to 0)
(set: num-type $hisprevcap to 0)
(set: num-type $myprevcap to 0)
}(display: "The Field"){
(set: _hand to 0)
(set: _deck to 0)
(display: "Score Calc")}
''The current score is his $valhiscap points to your $valmycap points.''
Play a card to the field.
(enchantin: ?link, (textcolor: "white"))[(display: "Your Hand")]
{
(click: ?h1)
[(move: 1st of $myhand into _hand)
(set: $hand to _hand)
(goto: "fool opponent move")
]
(click: ?h2)
[(move: 2nd of $myhand into _hand)
(set: $hand to _hand)
(goto: "fool opponent move")
]
(click: ?h3)
[(move: 3rd of $myhand into _hand)
(set: $hand to _hand)
(goto: "fool opponent move")
]
(click: ?h4)
[(move: 4th of $myhand into _hand)
(set: $hand to _hand)
(goto: "fool opponent move")
]
(click: ?h5)
[(move: 5th of $myhand into _hand)
(set: $hand to _hand)
(goto: "fool opponent move")
]
(click: ?h6)
[(move: 6th of $myhand into _hand)
(set: $hand to _hand)
(goto: "fool opponent move")
]
(click: ?h7)
[(move: 7th of $myhand into _hand)
(set: $hand to _hand)
(goto: "fool opponent move")
]
(click: ?h8)
[(move: 8th of $myhand into _hand)
(set: $hand to _hand)
(goto: "fool opponent move")
]
(click: ?h9)
[(move: 9th of $myhand into _hand)
(set: $hand to _hand)
(goto: "fool opponent move")
]
(click: ?h10)
[(move: 10th of $myhand into _hand)
(set: $hand to _hand)
(goto: "fool opponent move")
]
}
=><=
(textsize:0.6)[(link-repeat: "See all captured cards")[(display: "baka cap lists")]
[[Get help->Foolish Flowers rules]]
[[MENU->menu]]
](if: $glasses is "Ryan's")[
=><=
''The Field''
<==
(if: length of $field >= 1)[(print: 1st of $field of $pixel)]<f1|` `(if: length of $field >= 2)[(print: 2st of $field of $pixel)]<f2|` `(if: length of $field >= 3)[(print: 3st of $field of $pixel)]<f3|` `(if: length of $field >= 4)[(print: 4st of $field of $pixel)]<f4|` `(if: length of $field >= 5)[(print: 5st of $field of $pixel)]<f5|` `(if: length of $field >= 6)[(print: 6st of $field of $pixel)]<f6|` `(if: length of $field >= 7)[(print: 7rd of $field of $pixel)]<f7|` `(if: length of $field >= 8)[(print: 8rd of $field of $pixel)]<f8|` `(if: length of $field >= 9)[(print: 9rd of $field of $pixel)]<f9|` `(if: length of $field >= 10)[(print: 10rd of $field of $pixel)]<f10|` `(if: length of $field >= 11)[(print: 11rd of $field of $pixel)]<f11|` `(if: length of $field >= 12)[(print: 12rd of $field of $pixel)]<f12|` `(if: length of $field >= 13)[(print: 13th of $field of $pixel)]<f13|` `(if: length of $field >= 14)[(print: 14th of $field of $pixel)]<f14|` `(if: length of $field >= 15)[(print: 15th of $field of $pixel)]<f15|` `(if: length of $field >= 16)[(print: 16th of $field of $pixel)]<f16|` `(if: length of $field >= 17)[(print: 17th of $field of $pixel)]<f17|` `(if: length of $field >= 18)[(print: 18th of $field of $pixel)]<f18|
|==|
](elseif: $glasses is "Heaven's")[
=><=
''The Field''
<==
(if: length of $field >= 1)[(print: 1st of $field of $vapor)]<f1|` `(if: length of $field >= 2)[(print: 2st of $field of $vapor)]<f2|` `(if: length of $field >= 3)[(print: 3st of $field of $vapor)]<f3|` `(if: length of $field >= 4)[(print: 4st of $field of $vapor)]<f4|` `(if: length of $field >= 5)[(print: 5st of $field of $vapor)]<f5|` `(if: length of $field >= 6)[(print: 6st of $field of $vapor)]<f6|` `(if: length of $field >= 7)[(print: 7rd of $field of $vapor)]<f7|` `(if: length of $field >= 8)[(print: 8rd of $field of $vapor)]<f8|` `(if: length of $field >= 9)[(print: 9rd of $field of $vapor)]<f9|` `(if: length of $field >= 10)[(print: 10rd of $field of $vapor)]<f10|` `(if: length of $field >= 11)[(print: 11rd of $field of $vapor)]<f11|` `(if: length of $field >= 12)[(print: 12rd of $field of $vapor)]<f12|` `(if: length of $field >= 13)[(print: 13th of $field of $vapor)]<f13|` `(if: length of $field >= 14)[(print: 14th of $field of $vapor)]<f14|` `(if: length of $field >= 15)[(print: 15th of $field of $vapor)]<f15|` `(if: length of $field >= 16)[(print: 16th of $field of $vapor)]<f16|` `(if: length of $field >= 17)[(print: 17th of $field of $vapor)]<f17|` `(if: length of $field >= 18)[(print: 18th of $field of $vapor)]<f18|
|==|
](elseif: $glasses is "Sem's")[
=><=
''The Field''
<==
(if: length of $field >= 1)[(print: 1st of $field of $sem)]<f1|` `(if: length of $field >= 2)[(print: 2st of $field of $sem)]<f2|` `(if: length of $field >= 3)[(print: 3st of $field of $sem)]<f3|` `(if: length of $field >= 4)[(print: 4st of $field of $sem)]<f4|` `(if: length of $field >= 5)[(print: 5st of $field of $sem)]<f5|` `(if: length of $field >= 6)[(print: 6st of $field of $sem)]<f6|` `(if: length of $field >= 7)[(print: 7rd of $field of $sem)]<f7|` `(if: length of $field >= 8)[(print: 8rd of $field of $sem)]<f8|` `(if: length of $field >= 9)[(print: 9rd of $field of $sem)]<f9|` `(if: length of $field >= 10)[(print: 10rd of $field of $sem)]<f10|` `(if: length of $field >= 11)[(print: 11rd of $field of $sem)]<f11|` `(if: length of $field >= 12)[(print: 12rd of $field of $sem)]<f12|` `(if: length of $field >= 13)[(print: 13th of $field of $sem)]<f13|` `(if: length of $field >= 14)[(print: 14th of $field of $sem)]<f14|` `(if: length of $field >= 15)[(print: 15th of $field of $sem)]<f15|` `(if: length of $field >= 16)[(print: 16th of $field of $sem)]<f16|` `(if: length of $field >= 17)[(print: 17th of $field of $sem)]<f17|` `(if: length of $field >= 18)[(print: 18th of $field of $sem)]<f18|
|==|
](elseif: $glasses is "Louie's")[
=><=
''The Field''
<==
(if: length of $field >= 1)[(print: 1st of $field of $louie)]<f1|` `(if: length of $field >= 2)[(print: 2st of $field of $louie)]<f2|` `(if: length of $field >= 3)[(print: 3st of $field of $louie)]<f3|` `(if: length of $field >= 4)[(print: 4st of $field of $louie)]<f4|` `(if: length of $field >= 5)[(print: 5st of $field of $louie)]<f5|` `(if: length of $field >= 6)[(print: 6st of $field of $louie)]<f6|` `(if: length of $field >= 7)[(print: 7rd of $field of $louie)]<f7|` `(if: length of $field >= 8)[(print: 8rd of $field of $louie)]<f8|` `(if: length of $field >= 9)[(print: 9rd of $field of $louie)]<f9|` `(if: length of $field >= 10)[(print: 10rd of $field of $louie)]<f10|` `(if: length of $field >= 11)[(print: 11rd of $field of $louie)]<f11|` `(if: length of $field >= 12)[(print: 12rd of $field of $louie)]<f12|` `(if: length of $field >= 13)[(print: 13th of $field of $louie)]<f13|` `(if: length of $field >= 14)[(print: 14th of $field of $louie)]<f14|` `(if: length of $field >= 15)[(print: 15th of $field of $louie)]<f15|` `(if: length of $field >= 16)[(print: 16th of $field of $louie)]<f16|` `(if: length of $field >= 17)[(print: 17th of $field of $louie)]<f17|` `(if: length of $field >= 18)[(print: 18th of $field of $louie)]<f18|
|==|
]{
(else:)
[
=><=
''The Field''
<==
|==
(if: length of $field >= 1)[(print: 1st of $field)]<f1|
(if: length of $field >= 3)[<br>(print: 3rd of $field)]<f3|
(if: length of $field >= 5)[<br>(print: 5th of $field)]<f5|
(if: length of $field >= 7)[<br>(print: 7th of $field)]<f7|
(if: length of $field >= 9)[<br>(print: 9th of $field)]<f9|
(if: length of $field >= 11)[<br>(print: 11th of $field)]<f11|
(if: length of $field >= 13)[<br>(print: 13th of $field)]<f13|
(if: length of $field >= 15)[<br>(print: 15th of $field)]<f15|
(if: length of $field >= 17)[<br>(print: 17th of $field)]<f17|
==|
==>
(if: length of $field >= 2)[(print: 2nd of $field)]<f2|
(if: length of $field >= 4)[<br>(print: 4th of $field)]<f4|
(if: length of $field >= 6)[<br>(print: 6th of $field)]<f6|
(if: length of $field >= 8)[<br>(print: 8th of $field)]<f8|
(if: length of $field >= 10)[<br>(print: 10th of $field)]<f10|
(if: length of $field >= 12)[<br>(print: 12th of $field)]<f12|
(if: length of $field >= 14)[<br>(print: 14th of $field)]<f14|
(if: length of $field >= 16)[<br>(print: 16th of $field)]<f16|
(if: length of $field >= 18)[<br>(print: 18th of $field)]<f18|
|==|
<==
]
}{
(if: $glasses is "Ryan's")[
=><=
''Your Hand''
<==
(if: length of $myhand >= 1)[(print: 1st of $myhand of $pixel)]<h1|` `(if: length of $myhand >= 2)[(print: 2st of $myhand of $pixel)]<h2|` `(if: length of $myhand >= 3)[(print: 3st of $myhand of $pixel)]<h3|` `(if: length of $myhand >= 4)[(print: 4st of $myhand of $pixel)]<h4|` `(if: length of $myhand >= 5)[(print: 5st of $myhand of $pixel)]<h5|` `(if: length of $myhand >= 6)[(print: 6rd of $myhand of $pixel)]<h6|` `(if: length of $myhand >= 7)[(print: 7rd of $myhand of $pixel)]<h7|` `(if: length of $myhand >= 8)[(print: 8rd of $myhand of $pixel)]<h8|` `(if: length of $myhand >= 9)[(print: 9rd of $myhand of $pixel)]<h9|` `(if: length of $myhand >= 10)[(print: 10rd of $myhand of $pixel)]<h10|
|==|
]
(elseif: $glasses is "Heaven's")[
=><=
''Your Hand''
<==
(if: length of $myhand >= 1)[(print: 1st of $myhand of $vapor)]<h1|` `(if: length of $myhand >= 2)[(print: 2st of $myhand of $vapor)]<h2|` `(if: length of $myhand >= 3)[(print: 3st of $myhand of $vapor)]<h3|` `(if: length of $myhand >= 4)[(print: 4st of $myhand of $vapor)]<h4|` `(if: length of $myhand >= 5)[(print: 5st of $myhand of $vapor)]<h5|` `(if: length of $myhand >= 6)[(print: 6rd of $myhand of $vapor)]<h6|` `(if: length of $myhand >= 7)[(print: 7rd of $myhand of $vapor)]<h7|` `(if: length of $myhand >= 8)[(print: 8rd of $myhand of $vapor)]<h8|` `(if: length of $myhand >= 9)[(print: 9rd of $myhand of $vapor)]<h9|` `(if: length of $myhand >= 10)[(print: 10rd of $myhand of $vapor)]<h10|
|==|
]
(elseif: $glasses is "Sem's")[
=><=
''Your Hand''
<==
(if: length of $myhand >= 1)[(print: 1st of $myhand of $sem)]<h1|` `(if: length of $myhand >= 2)[(print: 2st of $myhand of $sem)]<h2|` `(if: length of $myhand >= 3)[(print: 3st of $myhand of $sem)]<h3|` `(if: length of $myhand >= 4)[(print: 4st of $myhand of $sem)]<h4|` `(if: length of $myhand >= 5)[(print: 5st of $myhand of $sem)]<h5|` `(if: length of $myhand >= 6)[(print: 6rd of $myhand of $sem)]<h6|` `(if: length of $myhand >= 7)[(print: 7rd of $myhand of $sem)]<h7|` `(if: length of $myhand >= 8)[(print: 8rd of $myhand of $sem)]<h8|` `(if: length of $myhand >= 9)[(print: 9rd of $myhand of $sem)]<h9|` `(if: length of $myhand >= 10)[(print: 10rd of $myhand of $sem)]<h10|
|==|
]
(elseif: $glasses is "Louie's")[
=><=
''Your Hand''
<==
(if: length of $myhand >= 1)[(print: 1st of $myhand of $louie)]<h1|` `(if: length of $myhand >= 2)[(print: 2st of $myhand of $louie)]<h2|` `(if: length of $myhand >= 3)[(print: 3st of $myhand of $louie)]<h3|` `(if: length of $myhand >= 4)[(print: 4st of $myhand of $louie)]<h4|` `(if: length of $myhand >= 5)[(print: 5st of $myhand of $louie)]<h5|` `(if: length of $myhand >= 6)[(print: 6rd of $myhand of $louie)]<h6|` `(if: length of $myhand >= 7)[(print: 7rd of $myhand of $louie)]<h7|` `(if: length of $myhand >= 8)[(print: 8rd of $myhand of $louie)]<h8|` `(if: length of $myhand >= 9)[(print: 9rd of $myhand of $louie)]<h9|` `(if: length of $myhand >= 10)[(print: 10rd of $myhand of $louie)]<h10|
|==|
]
}
(else:)[
=><=
''Your Hand''
<==
|==
{
(if: length of $myhand >= 1)[(print: 1st of $myhand)]<h1|
(if: length of $myhand >= 3)[<br>(print: 3rd of $myhand)]<h3|
(if: length of $myhand >= 5)[<br>(print: 5th of $myhand)]<h5|
(if: length of $myhand >= 7)[<br>(print: 7th of $myhand)]<h7|
(if: length of $myhand >= 9)[<br>(print: 9th of $myhand)]<h9|
}
==|
==>
{
(if: length of $myhand >= 2)[(print: 2nd of $myhand)]<h2|
(if: length of $myhand >= 4)[<br>(print: 4th of $myhand)]<h4|
(if: length of $myhand >= 6)[<br>(print: 6th of $myhand)]<h6|
(if: length of $myhand >= 8)[<br>(print: 8th of $myhand)]<h8|
(if: length of $myhand >= 10)[<br>(print: 10th of $myhand)]<h10|
}
|==|
]{
(move: 1st of $deck into _deck)
(move: $hand into _hand)
(set: _suithand to _hand of $suits)
(set: _suitdeck to _deck of $suits)
(set: _suitfield to $field of $suits)
(either:
"You confidently smack down",
"You meekly slide",
"You //CLACK// down",
"You play",
"Barely looking at your hand, you throw out",
"Feeling the sweat bead up on your forehead, you lay",
"With a satisfying snap, you play",
"After careful consideration, you place",
"You drop",
"From your hand, you reveal") (print: _hand) on the field,
(if: $gamemode is 3 and _hand is $ame4)
[(set: $matchhand to "all (text-color: (rgb:72,160,40))[Willow] and non-chaff")]
(elseif: (count: _suitfield, _suithand) matches 3)
[(set: $matchhand to 3)
(set: $mycapture to it + (a:_hand) )
(for: each _fpos, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
[(if: length of $field >= _fpos)
[(if: (_fpos) of _suitfield matches _suithand)
[(set: $mycapture to it + (a: (_fpos) of $field))
(set: $field to it - (a: (_fpos) of $field))]]
]
]
(elseif: (count: _suitfield, _suithand) matches 2)
[(set: $matchhand to 2)
(set: $mycapture to it + (a:_hand))
(set: $handpickone to (a:))
(for: each _fpos, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
[(if: length of $field >= _fpos)
[(if: (_fpos) of _suitfield matches _suithand)
[(set: $handpickone to it + (a:(_fpos) of $field))]]
]
]
(elseif: (count: _suitfield, _suithand) matches 1)
[(set: $matchhand to 1)
(set: $mycapture to it + (a:_hand) )
(for: each _fpos, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
[(if: length of $field >= _fpos)
[(if: (_fpos) of _suitfield matches _suithand)
[(set: $mycapture to it + (a: (_fpos) of $field))
(set: $field to it - (a: (_fpos) of $field))]]
]
(set: $handchosen to last of $mycapture)
]
(elseif: $gamemode is 2 and _hand is $ame1)
[(set: $matchhand to "all non-(text-color: (rgb:72,160,40))[Willow]")]
(else:)
[(set: $matchhand to 0)
(set: $field to it + (a:_hand) )
(if: $gamemode is 1 and _hand is $kiri4)
[(set: $myphoenix to true)
(set: $field to it - (a: $kiri4))]
]
(set: _suitfield to $field of $suits)
} which matches $matchhand card(if: $matchhand is not 1)[s], {
(if: $gamemode is 2 and _hand is $ame1 and $ame1 is not in $field)
[of which you choose (print: last of $mycapture).]
(elseif: $gamemode is 2 and _hand is $ame1 and $ame1 is in $field)
[but it gets stuck on the field.]
(elseif: $gamemode is 3 and _hand is $ame4 and $ame4 is not in $field)
[of which you choose (print: last of $mycapture).]
(elseif: $gamemode is 3 and _hand is $ame4 and $ame4 is in $field)
[but it gets stuck on the field.]
(elseif: $matchhand is 1)
[(print: last of $mycapture).]
(elseif: $gamemode is 1 and _hand is $kiri4)
[but you automatically capture it.]
(elseif: $matchhand is 2)
[
(if: $glasses is "Louie's")
[(dialog: bind _choice,
"You play _hand. Select which card to capture,<br>
1) (print:(1st of $handpickone) of $louie), or 2) (print:(2nd of $handpickone) of $louie).",
"1)",
"2)")(if: _choice is "1)")
[(set: $handchosen to 1st of $handpickone)]
(else:)
[(set: $handchosen to 2nd of $handpickone)]
of which you (either: "select", "choose", "pick", "elect for", "take", "opt for") $handchosen.
(set: $mycapture to it + (a:$handchosen))
(set: $field to it - (a:$handchosen))
]
(elseif: $glasses is "Ryan's")
[(dialog: bind _choice,
"You play _hand. Select which card to capture,<br>
1) (print:(1st of $handpickone) of $pixel), or 2) (print:(2nd of $handpickone) of $pixel).",
"1)",
"2)")(if: _choice is "1)")
[(set: $handchosen to 1st of $handpickone)]
(else:)
[(set: $handchosen to 2nd of $handpickone)]
of which you (either: "select", "choose", "pick", "elect for", "take", "opt for") $handchosen.
(set: $mycapture to it + (a:$handchosen))
(set: $field to it - (a:$handchosen))
]
(else:)
[(dialog: bind _choice,
"You play _hand. Select which card to capture,<br>
1) (print:1st of $handpickone), or <br>
2) (print:2nd of $handpickone).",
"1)",
"2)")(if: _choice is "1)")
[(set: $handchosen to 1st of $handpickone)]
(else:)
[(set: $handchosen to 2nd of $handpickone)]
of which you (either: "select", "choose", "pick", "elect for", "take", "opt for") $handchosen.
(set: $mycapture to it + (a:$handchosen))
(set: $field to it - (a:$handchosen))
]
]
(elseif: $matchhand is 3)
[taking the entire suit!]
(set: _suitfield to $field of $suits)}
You subsequently (either: "turn over", "slap down", "reveal", "play", "pull", "draw") (print: _deck) from the top of the deck, {
(if: $gamemode is 2 and $ame1 is in $field and _suitdeck is not "(text-color: (rgb:72,160,40))[Willow]")
[(set: $mycapture to it + (a: _deck, $ame1))
(set: $field to it - (a: $ame1))
(set: $matchdeck to "an electromagnetic")]
(elseif: $gamemode is 3 and $ame4 is in $field and _deck is in $allbutchaff)
[(set: $mycapture to it + (a: _deck, $ame4))
(set: $field to it - (a: $ame4))
(set: $matchdeck to "a calligraphic")]
(elseif: $gamemode is 3 and _deck is $ame4)
[(set: $matchdeck to "all (text-color: (rgb:72,160,40))[Willow] and non-chaff")
(set: $tempdeck to _deck, $hand to _hand)
(goto: "anything but chaff 2")]
(elseif: (count: _suitfield, _suitdeck) matches 3)
[(set: $matchdeck to 3)
(set: $mycapture to it + (a:_deck) )
(for: each _fpos, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
[(if: length of $field >= _fpos)
[(if: (_fpos) of _suitfield matches _suitdeck)
[(set: $mycapture to it + (a: (_fpos) of $field))
(set: $field to it - (a: (_fpos) of $field))]]
]
]
(elseif: (count: _suitfield, _suitdeck) matches 2)
[(set: $matchdeck to 2)
(set: $mycapture to it + (a:_deck))
(set: $deckpickone to (a:))
(for: each _fpos, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
[(if: length of $field >= _fpos)
[(if: (_fpos) of _suitfield matches _suitdeck)
[(set: $deckpickone to it + (a:(_fpos) of $field))]]
]
]
(elseif: (count: _suitfield, _suitdeck) matches 1)
[(set: $matchdeck to 1)
(set: $mycapture to it + (a:_deck) )
(for: each _fpos, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
[(if: length of $field >= _fpos)
[(if: (_fpos) of _suitfield matches _suitdeck)
[(set: $mycapture to it + (a: (_fpos) of $field))
(set: $field to it - (a: (_fpos) of $field))]]
]
(set: $deckchosen to last of $mycapture)
]
(elseif: $gamemode is 2 and _deck is $ame1)
[(set: $matchdeck to "all non-(text-color: (rgb:72,160,40))[Willow]")
(set: $tempdeck to _deck, $hand to _hand)
(goto: "anything but willow 2")]
(else:)
[(set: $matchdeck to 0)
(set: $field to it + (a:_deck))
(if: $gamemode is 1 and _deck is $kiri4)
[(set: $myphoenix to true)
(set: $field to it - (a: $kiri4))
]]
(set: _suitfield to $field of $suits)
}which has $matchdeck match(if: $matchdeck is not in (a: 1, "an electromagnetic", "a calligraphic"))[es] on the field, {
(if: $matchdeck is 1)[(print: $deckchosen).]
(elseif: $matchdeck is "an electromagnetic")[$ame1.]
(elseif: $matchdeck is "a calligraphic")[$ame4.]
(elseif: $gamemode is 1 and _deck is $kiri4)
[but you automatically capture it.]
(elseif: $matchdeck is 2)
[
(if: $glasses is "Louie's")
[(dialog: bind _choice,
"You drew _deck. Select which card to capture,<br>
1) (print:(1st of $deckpickone) of $louie), or 2) (print:(2nd of $deckpickone) of $louie).",
"1)",
"2)")
(if: _choice is "1)")
[(set: $deckchosen to 1st of $deckpickone)]
(else:)
[(set: $deckchosen to 2nd of $deckpickone)]
of which you (either: "opt for", "choose to take", "select", "pick") $deckchosen.
(set: $mycapture to it + (a:$deckchosen))
(set: $field to it - (a:$deckchosen))]
(elseif: $glasses is "Ryan's")
[(dialog: bind _choice,
"You drew _deck. Select which card to capture,<br>
1) (print:(1st of $deckpickone) of $pixel), or 2) (print:(2nd of $deckpickone) of $pixel).",
"1)",
"2)")
(if: _choice is "1)")
[(set: $deckchosen to 1st of $deckpickone)]
(else:)
[(set: $deckchosen to 2nd of $deckpickone)]
of which you (either: "opt for", "choose to take", "select", "pick") $deckchosen.
(set: $mycapture to it + (a:$deckchosen))
(set: $field to it - (a:$deckchosen))]
(else:)
[(dialog: bind _choice,
"You drew _deck. Select which card to capture,<br>
1) (print:1st of $deckpickone), or <br>
2) (print:2nd of $deckpickone).",
"1)",
"2)")
(if: _choice is "1)")
[(set: $deckchosen to 1st of $deckpickone)]
(else:)
[(set: $deckchosen to 2nd of $deckpickone)]
of which you (either: "opt for", "choose to take", "select", "pick") $deckchosen.
(set: $mycapture to it + (a:$deckchosen))
(set: $field to it - (a:$deckchosen))
]
]
(elseif: $matchdeck is 3)
[the whole suit!]
(set: _suitfield to $field of $suits)
(display: "Score Calc")
(if: $gamemode is 1 and _hand is $kiri4)
[(set: $myprevcap to it - 1)]
(if: $gamemode is 1 and _deck is $kiri4)
[(set: $myprevcap to it - 1)]
}
All in all, you capture (print: length of $mycapture - $myprevcap) new cards this turn. {
(if: $has_tea is true)
[(either:
"You take a small bite of sweets.",
"You and your opponent exchange glances as you each sip your tea.",
"",
"Your opponent gobbles down a candy.",
"You hold your tea cup close to your lips as you gaze across to your opponent.",
"",
"Your host offers to refill your tea, but you decline, as there is still quite a bit of beverage in your oversized cup.")
]
(set: $myprevcap to length of $mycapture)
}(unless: $glasses is 0 or $glasses is "Reading")[(display: "The Field")]{
(set: _valhiscap to $hiscapture of $bakaval)
(set: _valmycap to $mycapture of $bakaval)
(if: $gamemode is 1)
[(set: _valhiscap to $hiscapture of $honval)
(set: _valmycap to $mycapture of $honval)]
(if: $gamemode is 3)
[(set: _valhiscap to $hiscapture of $yamaval)
(set: _valmycap to $mycapture of $yamaval)
(unless: $continue is true)
[(set: $mylasttotal to 0, $hislasttotal to 0)]
]
(set: $valhiscap to 0)
(set: $valmycap to 0)
(if: length of $hiscapture >= 2)
[(set: $valhiscap to 1st of _valhiscap + 2nd of _valhiscap)]
(if: length of $hiscapture >= 4)
[(set: $valhiscap to it + 3rd of _valhiscap + 4th of _valhiscap)]
(if: length of $hiscapture >= 6)
[(set: $valhiscap to it + 5th of _valhiscap + 6th of _valhiscap)]
(if: length of $hiscapture >= 8)
[(set: $valhiscap to it + 7th of _valhiscap + 8th of _valhiscap)]
(if: length of $hiscapture >= 10)
[(set: $valhiscap to it + 9th of _valhiscap + 10th of _valhiscap)]
(if: length of $hiscapture >= 12)
[(set: $valhiscap to it + 11th of _valhiscap + 12th of _valhiscap)]
(if: length of $hiscapture >= 14)
[(set: $valhiscap to it + 13th of _valhiscap + 14th of _valhiscap)]
(if: length of $hiscapture >= 16)
[(set: $valhiscap to it + 15th of _valhiscap + 16th of _valhiscap)]
(if: length of $hiscapture >= 18)
[(set: $valhiscap to it + 17th of _valhiscap + 18th of _valhiscap)]
(if: length of $hiscapture >= 20)
[(set: $valhiscap to it + 19th of _valhiscap + 20th of _valhiscap)]
(if: length of $hiscapture >= 22)
[(set: $valhiscap to it + 21st of _valhiscap + 22nd of _valhiscap)]
(if: length of $hiscapture >= 24)
[(set: $valhiscap to it + 23rd of _valhiscap + 24th of _valhiscap)]
(if: length of $hiscapture >= 26)
[(set: $valhiscap to it + 25th of _valhiscap + 26th of _valhiscap)]
(if: length of $hiscapture >= 28)
[(set: $valhiscap to it + 27th of _valhiscap + 28th of _valhiscap)]
(if: length of $hiscapture >= 30)
[(set: $valhiscap to it + 29th of _valhiscap + 30th of _valhiscap)]
(if: length of $hiscapture >= 32)
[(set: $valhiscap to it + 31st of _valhiscap + 32nd of _valhiscap)]
(if: length of $hiscapture >= 34)
[(set: $valhiscap to it + 33rd of _valhiscap + 34th of _valhiscap)]
(if: length of $hiscapture >= 36)
[(set: $valhiscap to it + 35th of _valhiscap + 36th of _valhiscap)]
(if: length of $hiscapture >= 38)
[(set: $valhiscap to it + 37th of _valhiscap + 38th of _valhiscap)]
(if: length of $hiscapture >= 40)
[(set: $valhiscap to it + 39th of _valhiscap + 40th of _valhiscap)]
(if: length of $hiscapture >= 42)
[(set: $valhiscap to it + 41st of _valhiscap + 42nd of _valhiscap)]
(if: length of $hiscapture >= 44)
[(set: $valhiscap to it + 43rd of _valhiscap + 44th of _valhiscap)]
(if: length of $hiscapture >= 46)
[(set: $valhiscap to it + 45th of _valhiscap + 46th of _valhiscap)]
(if: length of $hiscapture >= 48)
[(set: $valhiscap to it + 47th of _valhiscap + 48th of _valhiscap)]
(if: length of $hiscapture is an odd)
[(set: $valhiscap to it + last of _valhiscap)]
(if: $gamemode is 1 and $hisphoenix is true)
[(set: $valhiscap to it + 30)]
(if: length of $mycapture >= 2)
[(set: $valmycap to 1st of _valmycap + 2nd of _valmycap)]
(if: length of $mycapture >= 4)
[(set: $valmycap to it + 3rd of _valmycap + 4th of _valmycap)]
(if: length of $mycapture >= 6)
[(set: $valmycap to it + 5th of _valmycap + 6th of _valmycap)]
(if: length of $mycapture >= 8)
[(set: $valmycap to it + 7th of _valmycap + 8th of _valmycap)]
(if: length of $mycapture >= 10)
[(set: $valmycap to it + 9th of _valmycap + 10th of _valmycap)]
(if: length of $mycapture >= 12)
[(set: $valmycap to it + 11th of _valmycap + 12th of _valmycap)]
(if: length of $mycapture >= 14)
[(set: $valmycap to it + 13th of _valmycap + 14th of _valmycap)]
(if: length of $mycapture >= 16)
[(set: $valmycap to it + 15th of _valmycap + 16th of _valmycap)]
(if: length of $mycapture >= 18)
[(set: $valmycap to it + 17th of _valmycap + 18th of _valmycap)]
(if: length of $mycapture >= 20)
[(set: $valmycap to it + 19th of _valmycap + 20th of _valmycap)]
(if: length of $mycapture >= 22)
[(set: $valmycap to it + 21st of _valmycap + 22nd of _valmycap)]
(if: length of $mycapture >= 24)
[(set: $valmycap to it + 23rd of _valmycap + 24th of _valmycap)]
(if: length of $mycapture >= 26)
[(set: $valmycap to it + 25th of _valmycap + 26th of _valmycap)]
(if: length of $mycapture >= 28)
[(set: $valmycap to it + 27th of _valmycap + 28th of _valmycap)]
(if: length of $mycapture >= 30)
[(set: $valmycap to it + 29th of _valmycap + 30th of _valmycap)]
(if: length of $mycapture >= 32)
[(set: $valmycap to it + 31st of _valmycap + 32nd of _valmycap)]
(if: length of $mycapture >= 34)
[(set: $valmycap to it + 33rd of _valmycap + 34th of _valmycap)]
(if: length of $mycapture >= 36)
[(set: $valmycap to it + 35th of _valmycap + 36th of _valmycap)]
(if: length of $mycapture >= 38)
[(set: $valmycap to it + 37th of _valmycap + 38th of _valmycap)]
(if: length of $mycapture >= 40)
[(set: $valmycap to it + 39th of _valmycap + 40th of _valmycap)]
(if: length of $mycapture >= 42)
[(set: $valmycap to it + 41st of _valmycap + 42nd of _valmycap)]
(if: length of $mycapture >= 44)
[(set: $valmycap to it + 43rd of _valmycap + 44th of _valmycap)]
(if: length of $mycapture >= 46)
[(set: $valmycap to it + 45th of _valmycap + 46th of _valmycap)]
(if: length of $mycapture >= 48)
[(set: $valmycap to it + 47th of _valmycap + 48th of _valmycap)]
(if: length of $mycapture is an odd)
[(set: $valmycap to it + last of _valmycap)]
(if: $gamemode is 1 and $myphoenix is true)
[(set: $valmycap to it + 30)]
(if: $gamemode is 2)
[
(if: $mycapture contains all of $fujishima)
[(set: $valmycap to it + 10)
(set: $valhiscap to it - 10)]
(if: $mycapture contains all of $kirishima)
[(set: $valmycap to it + 10)
(set: $valhiscap to it - 10)]
(if: $mycapture contains all of $sanko)
[(set: $valmycap to it + 25)
(set: $valhiscap to it - 25)]
(if: $mycapture contains all of $goko)
[(set: $valmycap to it + 30)
(set: $valhiscap to it - 30)]
(if: $hiscapture contains all of $fujishima)
[(set: $valhiscap to it + 10)
(set: $valmycap to it - 10)]
(if: $hiscapture contains all of $kirishima)
[(set: $valhiscap to it + 10)
(set: $valmycap to it - 10)]
(if: $hiscapture contains all of $sanko)
[(set: $valhiscap to it + 25)
(set: $valmycap to it - 25)]
(if: $hiscapture contains all of $goko)
[(set: $valhiscap to it + 30)
(set: $valmycap to it - 30)]
]
(if: $gamemode is 3)
[
(set: $valhiscap to it + (200 * $histesan) + (400 * $hissogasu))
(set: $valmycap to it + (200 * $mytesan) + (400 * $mysogasu))
(if: $continue is true)
[(set: $valmycap to it + $mylasttotal)]
(if: $mycapture contains all of $shiko)
[(set: $valmycap to it + 600)]
(if: (count: $mycapture, ...$ribbons) >= 7)
[(set: $valmycap to it + 600)]
(if: $mycapture contains all of $ishicho)
[(set: $valmycap to it + 300)]
(if: $mycapture contains all of (a: $ame1, $ame2, $ame3, $ame4))
[(set: $valmycap to it + 200)]
(if: $mycapture contains all of $sanko)
[(set: $valmycap to it + 150)]
(if: $mycapture contains all of $makibo)
[(set: $valmycap to it + 150)]
(if: $mycapture contains all of $nomi)
[(set: $valmycap to it + 300)]
(elseif: $mycapture contains all of (a: $kiku4, $cherry4))
[(set: $valmycap to it + 100)]
(elseif: $mycapture contains all of (a: $kiku4, $grass4))
[(set: $valmycap to it + 100)]
(if: $mycapture contains all of $akatan)
[(set: $valmycap to it + 100)]
(if: $mycapture contains all of $aotan)
[(set: $valmycap to it + 100)]
(if: $mycapture contains all of $kusa)
[(set: $valmycap to it + 100)]
(if: $continue is true)
[(set: $valhiscap to it + $hislasttotal)]
(if: $hiscapture contains all of $shiko)
[(set: $valhiscap to it + 600)]
(if: (count: $hiscapture, ...$ribbons) >= 7)
[(set: $valhiscap to it + 600)]
(if: $hiscapture contains all of $ishicho)
[(set: $valhiscap to it + 300)]
(if: $hiscapture contains all of (a: $ame1, $ame2, $ame3, $ame4))
[(set: $valhiscap to it + 200)]
(if: $hiscapture contains all of $sanko)
[(set: $valhiscap to it + 150)]
(if: $hiscapture contains all of $makibo)
[(set: $valhiscap to it + 150)]
(if: $hiscapture contains all of $nomi)
[(set: $valhiscap to it + 300)]
(elseif: $hiscapture contains all of (a: $kiku4, $cherry4))
[(set: $valhiscap to it + 100)]
(elseif: $hiscapture contains all of (a: $kiku4, $grass4))
[(set: $valhiscap to it + 100)]
(if: $hiscapture contains all of $akatan)
[(set: $valhiscap to it + 100)]
(if: $hiscapture contains all of $aotan)
[(set: $valhiscap to it + 100)]
(if: $hiscapture contains all of $kusa)
[(set: $valhiscap to it + 100)]
]
}Your final score: $valmycap points.
Your opponent's score: $valhiscap points.
(linkrepeat: "See all captured cards")[(display: "baka cap lists")]
{
(if: $bakahigh < $valmycap)
[(set: $bakahigh to $valmycap)]
(if: $valhiscap is $valmycap)
[Oh my, a draw! The only way to settle this is another round of [[Foolish Flowers]]!
(set: $bakamydeal to false)
(set: $bakadraws to it + 1)
]
(elseif: $valhiscap > $valmycap)
[You got (either:
"stomped",
"beaten",
"defeated",
"crushed",
"destroyed")
by your opponent! Do you wish to [[try again->Foolish Flowers]]?
(set: $bakamydeal to false)
(set: $bakalosses to it + 1)
]
(elseif: $valhiscap < $valmycap)
[You (either:
"successfully defeated",
"triumphed over",
"beat out",
"vanquished")(set: $fooltokens to it +1)
your opponent! (if: (abs: $valhiscap - $valmycap) <=15)[That was a close round! ]You now have ''$fooltokens Foolish Token(if: $fooltokens is not 1)[s]''. Shall you challenge him to another round of [[Foolish Flowers]]?
(set: $bakamydeal to true)
(set: $bakawins to it + 1)
]
}
{
(link:"Save.")
[
(if: (save-game:"Slot A"))
[Game saved!]
(else: )
[The game was unable to be saved.]
]
}
(textsize:0.75)[[[See all games.->game list]]]{
(display: "Score Calc")
(set: $mysuitcap to $mycapture of $suits)
(set: $hissuitcap to $hiscapture of $suits)
(set: _valhiscap to $hiscapture of $bakaval)
(set: _valmycap to $mycapture of $bakaval)
(if: $gamemode is 1)
[(set: _valhiscap to $hiscapture of $honval)
(set: _valmycap to $mycapture of $honval)]
(dialog:
"
(textsize: 0.5)[
=><=
''Captured Cards by Suit''
<==
=||||=
''Yours''
{
(if: $pine4 is in $mycapture)[(text-color: green)[''Crane''], ]
(if: $pine3 is in $mycapture)[(text-color: green)[~~Ribbon~~], ]
(if: $pine2 is in $mycapture)[(text-color: green)[Chaff], ]
(if: $pine1 is in $mycapture)[(text-color: green)[Chaff]]
}
{
(if: $plum4 is in $mycapture)[(text-color: red)[//Warbler//], ]
(if: $plum3 is in $mycapture)[(text-color: red)[~~Ribbon~~], ]
(if: $plum2 is in $mycapture)[(text-color: red)[Chaff], ]
(if: $plum1 is in $mycapture)[(text-color: red)[Chaff]]
}
{
(if: $cherry4 is in $mycapture)[(text-color: (rgb:255,180,182))[''Curtain''], ]
(if: $cherry3 is in $mycapture)[(text-color: (rgb:255,180,182))[~~Ribbon~~], ]
(if: $cherry2 is in $mycapture)[(text-color: (rgb:255,180,182))[Chaff], ]
(if: $cherry1 is in $mycapture)[(text-color: (rgb:255,180,182))[Chaff]]
}
{
(if: $fuji4 is in $mycapture)[(text-color: (rgb: 250,0,250))[//Cuckoo//], ]
(if: $fuji3 is in $mycapture)[(text-color: (rgb: 250,0,250))[~~Ribbon~~], ]
(if: $fuji2 is in $mycapture)[(text-color: (rgb: 250,0,250))[Chaff], ]
(if: $fuji1 is in $mycapture)[(text-color: (rgb: 250,0,250))[Chaff]]
}
{
(if: $iris4 is in $mycapture)[(text-color: blue)[//Bridge//], ]
(if: $iris3 is in $mycapture)[(text-color: blue)[~~Ribbon~~], ]
(if: $iris2 is in $mycapture)[(text-color: blue)[Chaff], ]
(if: $iris1 is in $mycapture)[(text-color: blue)[Chaff]]
}
{
(if: $peony4 is in $mycapture)[(text-color: (rgb:238,130,220))[//Butterflies//], ]
(if: $peony3 is in $mycapture)[(text-color: (rgb:238,130,220))[~~Ribbon~~], ]
(if: $peony2 is in $mycapture)[(text-color: (rgb:238,130,220))[Chaff], ]
(if: $peony1 is in $mycapture)[(text-color: (rgb:238,130,220))[Chaff]]
}
{
(if: $hagi4 is in $mycapture)[(text-color: (rgb:255,70,10))[//Boar//], ]
(if: $hagi3 is in $mycapture)[(text-color: (rgb:255,70,10))[~~Ribbon~~], ]
(if: $hagi2 is in $mycapture)[(text-color: (rgb:255,70,10))[Chaff], ]
(if: $hagi1 is in $mycapture)[(text-color: (rgb:255,70,10))[Chaff]]
}
{
(if: $grass4 is in $mycapture)[(text-color: (rgb:185,222,193))[''Moon''], ]
(if: $grass3 is in $mycapture)[(text-color: (rgb:185,222,193))[//Geese//], ]
(if: $grass2 is in $mycapture)[(text-color: (rgb:185,222,193))[Chaff], ]
(if: $grass1 is in $mycapture)[(text-color: (rgb:185,222,193))[Chaff]]
}
{
(if: $kiku4 is in $mycapture)[(text-color: yellow)[//Sake Cup//], ]
(if: $kiku3 is in $mycapture)[(text-color: yellow)[~~Ribbon~~], ]
(if: $kiku2 is in $mycapture)[(text-color: yellow)[Chaff], ]
(if: $kiku1 is in $mycapture)[(text-color: yellow)[Chaff]]
}
{
(if: $maple4 is in $mycapture)[(text-color: (rgb:250,160,0))[//Deer//], ]
(if: $maple3 is in $mycapture)[(text-color: (rgb:250,160,0))[~~Ribbon~~], ]
(if: $maple2 is in $mycapture)[(text-color: (rgb:250,160,0))[Chaff], ]
(if: $maple1 is in $mycapture)[(text-color: (rgb:250,160,0))[Chaff]]
}
{
(if: $ame4 is in $mycapture)[(text-color: (rgb:72,160,40))[''Rain Man and Frog''], ]
(if: $ame3 is in $mycapture)[(text-color: (rgb:72,160,40))[//Swallow//], ]
(if: $ame2 is in $mycapture)[(text-color: (rgb:72,160,40))[~~Ribbon~~], ]
(if: $ame1 is in $mycapture)[(text-color: (rgb:72,160,40))[Chaff]]
}
{
(if: $kiri4 is in $mycapture)[(text-color: (rgb:60,179,113))[''Phoenix''], ]
(if: $myphoenix is true)[(text-color: (rgb:60,179,113))[''Phoenix'']]
(if: $kiri3 is in $mycapture)[(text-color: (rgb:60,179,113))[Chaff], ]
(if: $kiri2 is in $mycapture)[(text-color: (rgb:60,179,113))[Chaff], ]
(if: $kiri1 is in $mycapture)[(text-color: (rgb:60,179,113))[Chaff]]
}
=|=
=><=
(text-color: green)[Pine]
(text-color: red)[PlumB.]
(text-color: (rgb:255,180,182))[CherryB.]
(text-color: (rgb: 250,0,250))[Wisteria]
(text-color: blue)[Iris]
(text-color: (rgb:238,130,220))[Peony]
(text-color: (rgb:255,70,10))[B.Clover]
(text-color: (rgb:185,222,193))[Grass]
(text-color: yellow)[Crysanth.]
(text-color: (rgb:250,160,0))[Maple]
(text-color: (rgb:72,160,40))[Willow]
(text-color: (rgb:60,179,113))[Princess]
=||||=
==>
''His''
{
(if: $pine4 is in $hiscapture)[(text-color: green)[''Crane''], ]
(if: $pine3 is in $hiscapture)[(text-color: green)[~~Ribbon~~], ]
(if: $pine2 is in $hiscapture)[(text-color: green)[Chaff], ]
(if: $pine1 is in $hiscapture)[(text-color: green)[Chaff]]
}
{
(if: $plum4 is in $hiscapture)[(text-color: red)[//Warbler//], ]
(if: $plum3 is in $hiscapture)[(text-color: red)[~~Ribbon~~], ]
(if: $plum2 is in $hiscapture)[(text-color: red)[Chaff], ]
(if: $plum1 is in $hiscapture)[(text-color: red)[Chaff]]
}
{
(if: $cherry4 is in $hiscapture)[(text-color: (rgb:255,180,182))[''Curtain''], ]
(if: $cherry3 is in $hiscapture)[(text-color: (rgb:255,180,182))[~~Ribbon~~], ]
(if: $cherry2 is in $hiscapture)[(text-color: (rgb:255,180,182))[Chaff], ]
(if: $cherry1 is in $hiscapture)[(text-color: (rgb:255,180,182))[Chaff]]
}
{
(if: $fuji4 is in $hiscapture)[(text-color: (rgb: 250,0,250))[//Cuckoo//], ]
(if: $fuji3 is in $hiscapture)[(text-color: (rgb: 250,0,250))[~~Ribbon~~], ]
(if: $fuji2 is in $hiscapture)[(text-color: (rgb: 250,0,250))[Chaff], ]
(if: $fuji1 is in $hiscapture)[(text-color: (rgb: 250,0,250))[Chaff]]
}
{
(if: $iris4 is in $hiscapture)[(text-color: blue)[//Bridge//], ]
(if: $iris3 is in $hiscapture)[(text-color: blue)[~~Ribbon~~], ]
(if: $iris2 is in $hiscapture)[(text-color: blue)[Chaff], ]
(if: $iris1 is in $hiscapture)[(text-color: blue)[Chaff]]
}
{
(if: $peony4 is in $hiscapture)[(text-color: (rgb:238,130,220))[//Butterflies//], ]
(if: $peony3 is in $hiscapture)[(text-color: (rgb:238,130,220))[~~Ribbon~~], ]
(if: $peony2 is in $hiscapture)[(text-color: (rgb:238,130,220))[Chaff], ]
(if: $peony1 is in $hiscapture)[(text-color: (rgb:238,130,220))[Chaff]]
}
{
(if: $hagi4 is in $hiscapture)[(text-color: (rgb:255,70,10))[//Boar//], ]
(if: $hagi3 is in $hiscapture)[(text-color: (rgb:255,70,10))[~~Ribbon~~], ]
(if: $hagi2 is in $hiscapture)[(text-color: (rgb:255,70,10))[Chaff], ]
(if: $hagi1 is in $hiscapture)[(text-color: (rgb:255,70,10))[Chaff]]
}
{
(if: $grass4 is in $hiscapture)[(text-color: (rgb:185,222,193))[''Moon''], ]
(if: $grass3 is in $hiscapture)[(text-color: (rgb:185,222,193))[//Geese//], ]
(if: $grass2 is in $hiscapture)[(text-color: (rgb:185,222,193))[Chaff], ]
(if: $grass1 is in $hiscapture)[(text-color: (rgb:185,222,193))[Chaff]]
}
{
(if: $kiku4 is in $hiscapture)[(text-color: yellow)[//Sake Cup//], ]
(if: $kiku3 is in $hiscapture)[(text-color: yellow)[~~Ribbon~~], ]
(if: $kiku2 is in $hiscapture)[(text-color: yellow)[Chaff], ]
(if: $kiku1 is in $hiscapture)[(text-color: yellow)[Chaff]]
}
{
(if: $maple4 is in $hiscapture)[(text-color: (rgb:250,160,0))[//Deer//], ]
(if: $maple3 is in $hiscapture)[(text-color: (rgb:250,160,0))[~~Ribbon~~], ]
(if: $maple2 is in $hiscapture)[(text-color: (rgb:250,160,0))[Chaff], ]
(if: $maple1 is in $hiscapture)[(text-color: (rgb:250,160,0))[Chaff]]
}
{
(if: $ame4 is in $hiscapture)[(text-color: (rgb:72,160,40))[''Rain Man and Frog''], ]
(if: $ame3 is in $hiscapture)[(text-color: (rgb:72,160,40))[//Swallow//], ]
(if: $ame2 is in $hiscapture)[(text-color: (rgb:72,160,40))[~~Ribbon~~], ]
(if: $ame1 is in $hiscapture)[(text-color: (rgb:72,160,40))[Chaff]]
}
{
(if: $kiri4 is in $hiscapture)[(text-color: (rgb:60,179,113))[''Phoenix''], ]
(if: $hisphoenix is true)[(text-color: (rgb:60,179,113))[''Phoenix'']]
(if: $kiri3 is in $hiscapture)[(text-color: (rgb:60,179,113)[Chaff], ]
(if: $kiri2 is in $hiscapture)[(text-color: (rgb:60,179,113))[Chaff], ]
(if: $kiri1 is in $hiscapture)[(text-color: (rgb:60,179,113))[Chaff]]
}
|==|
]
<==
",
"Got it!"
)
}{
(if: length of $hishand is 1)
[(move: 1st of $hishand into _hand)]
(if: length of $hishand is 2)
[(if: (count: _suitfield, 1st of $hishand of $suits) > 0)
[(move: 1st of $hishand into _hand)]
(else:)
[(move: 2nd of $hishand into _hand)]
]
(if: length of $hishand is 3)
[(if: (count: _suitfield, 1st of $hishand of $suits) > 0)
[(move: 1st of $hishand into _hand)]
(elseif: (count: _suitfield, 2nd of $hishand of $suits) > 0)
[(move: 2nd of $hishand into _hand)]
(else:)
[(move: 3rd of $hishand into _hand)]
]
(if: length of $hishand is 4)
[(if: (count: _suitfield, 1st of $hishand of $suits) > 0)
[(move: 1st of $hishand into _hand)]
(elseif: (count: _suitfield, 2nd of $hishand of $suits) > 0)
[(move: 2nd of $hishand into _hand)]
(elseif: (count: _suitfield, 3rd of $hishand of $suits) > 0)
[(move: 3rd of $hishand into _hand)]
(else:)
[(move: 4th of $hishand into _hand)]
]
(if: length of $hishand is 5)
[(if: (count: _suitfield, 1st of $hishand of $suits) > 0)
[(move: 1st of $hishand into _hand)]
(elseif: (count: _suitfield, 2nd of $hishand of $suits) > 0)
[(move: 2nd of $hishand into _hand)]
(elseif: (count: _suitfield, 3rd of $hishand of $suits) > 0)
[(move: 3rd of $hishand into _hand)]
(elseif: (count: _suitfield, 4th of $hishand of $suits) > 0)
[(move: 4th of $hishand into _hand)]
(else:)
[(move: 5th of $hishand into _hand)]
]
(if: length of $hishand is 5)
[(if: (count: _suitfield, 1st of $hishand of $suits) > 0)
[(move: 1st of $hishand into _hand)]
(elseif: (count: _suitfield, 2nd of $hishand of $suits) > 0)
[(move: 2nd of $hishand into _hand)]
(elseif: (count: _suitfield, 3rd of $hishand of $suits) > 0)
[(move: 3rd of $hishand into _hand)]
(elseif: (count: _suitfield, 4th of $hishand of $suits) > 0)
[(move: 4th of $hishand into _hand)]
(else:)
[(move: 5th of $hishand into _hand)]
]
(if: length of $hishand is 6)
[(if: (count: _suitfield, 1st of $hishand of $suits) > 0)
[(move: 1st of $hishand into _hand)]
(elseif: (count: _suitfield, 2nd of $hishand of $suits) > 0)
[(move: 2nd of $hishand into _hand)]
(elseif: (count: _suitfield, 3rd of $hishand of $suits) > 0)
[(move: 3rd of $hishand into _hand)]
(elseif: (count: _suitfield, 4th of $hishand of $suits) > 0)
[(move: 4th of $hishand into _hand)]
(elseif: (count: _suitfield, 5th of $hishand of $suits) > 0)
[(move: 5th of $hishand into _hand)]
(else:)
[(move: 6th of $hishand into _hand)]
]
(if: length of $hishand is 7)
[(if: (count: _suitfield, 1st of $hishand of $suits) > 0)
[(move: 1st of $hishand into _hand)]
(elseif: (count: _suitfield, 2nd of $hishand of $suits) > 0)
[(move: 2nd of $hishand into _hand)]
(elseif: (count: _suitfield, 3rd of $hishand of $suits) > 0)
[(move: 3rd of $hishand into _hand)]
(elseif: (count: _suitfield, 4th of $hishand of $suits) > 0)
[(move: 4th of $hishand into _hand)]
(elseif: (count: _suitfield, 5th of $hishand of $suits) > 0)
[(move: 5th of $hishand into _hand)]
(elseif: (count: _suitfield, 6th of $hishand of $suits) > 0)
[(move: 6th of $hishand into _hand)]
(else:)
[(move: 7th of $hishand into _hand)]
]
(if: length of $hishand is 8)
[(if: (count: _suitfield, 1st of $hishand of $suits) > 0)
[(move: 1st of $hishand into _hand)]
(elseif: (count: _suitfield, 2nd of $hishand of $suits) > 0)
[(move: 2nd of $hishand into _hand)]
(elseif: (count: _suitfield, 3rd of $hishand of $suits) > 0)
[(move: 3rd of $hishand into _hand)]
(elseif: (count: _suitfield, 4th of $hishand of $suits) > 0)
[(move: 4th of $hishand into _hand)]
(elseif: (count: _suitfield, 5th of $hishand of $suits) > 0)
[(move: 5th of $hishand into _hand)]
(elseif: (count: _suitfield, 6th of $hishand of $suits) > 0)
[(move: 6th of $hishand into _hand)]
(elseif: (count: _suitfield, 7th of $hishand of $suits) > 0)
[(move: 7th of $hishand into _hand)]
(else:)
[(move: 8th of $hishand into _hand)]
]
(if: length of $hishand is 9)
[(if: (count: _suitfield, 1st of $hishand of $suits) > 0)
[(move: 1st of $hishand into _hand)]
(elseif: (count: _suitfield, 2nd of $hishand of $suits) > 0)
[(move: 2nd of $hishand into _hand)]
(elseif: (count: _suitfield, 3rd of $hishand of $suits) > 0)
[(move: 3rd of $hishand into _hand)]
(elseif: (count: _suitfield, 4th of $hishand of $suits) > 0)
[(move: 4th of $hishand into _hand)]
(elseif: (count: _suitfield, 5th of $hishand of $suits) > 0)
[(move: 5th of $hishand into _hand)]
(elseif: (count: _suitfield, 6th of $hishand of $suits) > 0)
[(move: 6th of $hishand into _hand)]
(elseif: (count: _suitfield, 7th of $hishand of $suits) > 0)
[(move: 7th of $hishand into _hand)]
(elseif: (count: _suitfield, 8th of $hishand of $suits) > 0)
[(move: 8th of $hishand into _hand)]
(else:)
[(move: 9th of $hishand into _hand)]
]
(if: length of $hishand is 10)
[(if: (count: _suitfield, 1st of $hishand of $suits) > 0)
[(move: 1st of $hishand into _hand)]
(elseif: (count: _suitfield, 2nd of $hishand of $suits) > 0)
[(move: 2nd of $hishand into _hand)]
(elseif: (count: _suitfield, 3rd of $hishand of $suits) > 0)
[(move: 3rd of $hishand into _hand)]
(elseif: (count: _suitfield, 4th of $hishand of $suits) > 0)
[(move: 4th of $hishand into _hand)]
(elseif: (count: _suitfield, 5th of $hishand of $suits) > 0)
[(move: 5th of $hishand into _hand)]
(elseif: (count: _suitfield, 6th of $hishand of $suits) > 0)
[(move: 6th of $hishand into _hand)]
(elseif: (count: _suitfield, 7th of $hishand of $suits) > 0)
[(move: 7th of $hishand into _hand)]
(elseif: (count: _suitfield, 8th of $hishand of $suits) > 0)
[(move: 8th of $hishand into _hand)]
(elseif: (count: _suitfield, 9th of $hishand of $suits) > 0)
[(move: 9th of $hishand into _hand)]
(else:)
[(move: 10th of $hishand into _hand)]
]
}(textsize:0.75)["''True Flowers'' is a slightly more advanced form of the 'flower matching' genre of games, originating in Nagoya, Japan. In my house, we always determine who plays first with a brief side game of (linkrepeat: "Before and After")[(display: "before and after dialog")].
"The basic gameplay of ''True Flowers'' is the same as in (linkrepeat: "Foolish Flowers")[(goto: "Foolish Flowers rules")], but with a few key differences:
* "First and foremost, the 3 (print: $kiri4 of $suits) Chaff cards are removed from the usual 48-card deck, making $kiri4 the only card of its suit. For that reason, it is automatically captured by the player whose turn it is whenever it is played or otherwise shows up on the field.
* "The initial deal is a fair bit different here as well: only 6 cards to each hand, but 9 on the opening field. This is sort of my house rule; the how-to-gamble books written by the Japanese Ministry of Justice in the 1920s that I learned this game from sadly said nothing about how to deal for only 2 players.
* "Anyhow, you should also know that the (linkrepeat: "point values")[(display: "honval dialog")] of cards are fairly different in ''True Flowers''. The player who captures the most card points in a round takes ''2 tokens'' from the other. However, there is another way to take your opponent's ''tokens''...
* "By focusing on capturing (linkrepeat: "certain combinations")[(display: "true yaku dialog")] of cards, you can win far more than the ''2 tokens''' obtainable from capturing high value cards alone. Or if ''//I//'' get them... ''//you//'' might end up owing //''me''// some ''tokens''.
* "Last but not least, if you have any ''tokens'' to spare, you can wager them on a game or two of (linkrepeat: "Flower Bed")[(display: "flower bed dialog")], which is a side game more commonly played at the end of ''True Flowers''`'` sister game, ''Tensho''."]
(link: "Shall we play?")[(goto: last of (history:))](display: "The Field"){
(set: _hand to 0)
(set: _deck to 0)
(display: "Score Calc")}
''His card points are at $valhiscap, while yours are at $valmycap.''
Play a card to the field.
(enchantin: ?link, (textcolor: "white"))[(display: "Your Hand")]
(textsize: 0.5)[
=><=
''(linkrepeat: "Special Set")[(display: "true yaku dialog")] Progress''
<==
=||=
==>
''Yours''
{
(if: $pine4 is in $mycapture)[(text-color: green)[''Crane''], ]
(if: $cherry4 is in $mycapture)[(text-color: (rgb:255,180,182))[''Curtain''], ]
(if: $grass4 is in $mycapture)[(text-color: (rgb:185,222,193))[''Moon''], ]
(if: $myphoenix is true)[(text-color: (rgb:60,179,113))[''Phoenix'']]
}
{
(if: $peony3 is in $mycapture)[(text-color: (rgb:238,130,220))[~~Peony~~], ]
(if: $kiku3 is in $mycapture)[(text-color: yellow)[~~Chrysanth.~~], ]
(if: $maple3 is in $mycapture)[(text-color: (rgb:250,160,0))[~~Maple~~]]
}
{
(if: $pine4 is in $mycapture)[(text-color: green)[''Crane''], ]
(if: $plum4 is in $mycapture)[(text-color: red)[//Warbler//], ]
(if: $cherry4 is in $mycapture)[(text-color: (rgb:255,180,182))[''Curtain''], ]
}
{
(if: $pine3 is in $mycapture)[(text-color: green)[~~Pine~~], ]
(if: $plum3 is in $mycapture)[(text-color: red)[~~PlumB.~~], ]
(if: $cherry3 is in $mycapture)[(text-color: (rgb:255,180,182))[~~CherryB.~~]]
}
{
(if: $iris4 is in $mycapture)[(text-color: blue)[//Bridge//], ]
(if: $myphoenix is true)[(text-color: (rgb:60,179,113))[''Phoenix''], ]
(if: $maple4 is in $mycapture)[(text-color: (rgb:250,160,0))[//Deer//]]
}
{
(if: $iris3 is in $mycapture)[(text-color: blue)[~~Iris~~], ]
(if: $myphoenix is true)[(text-color: (rgb:60,179,113))[''Phoenix''], ]
(if: $maple3 is in $mycapture)[(text-color: (rgb:250,160,0))[~~Maple~~]]
}
{
(if: $kiku4 is in $mycapture)[(text-color: yellow)[(either:
"Drink up!",
"To long life!",
"Cheers!",
"`*hic*`",
)]]
}
{
(if: $pine4 is in $mycapture)[(text-color: green)[''Crane''], ]
(if: $pine3 is in $mycapture)[(text-color: green)[~~Ribbon~~], ]
(if: $pine2 is in $mycapture)[(text-color: green)[Chaff], ]
(if: $pine1 is in $mycapture)[(text-color: green)[Chaff]]
}
{
(if: $plum4 is in $mycapture)[(text-color: red)[//Warbler//], ]
(if: $plum3 is in $mycapture)[(text-color: red)[~~Ribbon~~], ]
(if: $plum2 is in $mycapture)[(text-color: red)[Chaff], ]
(if: $plum1 is in $mycapture)[(text-color: red)[Chaff]]
}
{
(if: $cherry4 is in $mycapture)[(text-color: (rgb:255,180,182))[''Curtain''], ]
(if: $cherry3 is in $mycapture)[(text-color: (rgb:255,180,182))[~~Ribbon~~], ]
(if: $cherry2 is in $mycapture)[(text-color: (rgb:255,180,182))[Chaff], ]
(if: $cherry1 is in $mycapture)[(text-color: (rgb:255,180,182))[Chaff]]
}
=|=
=><=
''4Brights
~~Messenger~~
F.3Brights
~~B.3Brights~~
F.Elder
~~B.Elder~~
//(text-color: yellow)[SakeCup]//
(text-color: green)[Pine]
(text-color: red)[PlumB.]
(text-color: (rgb:255,180,182))[CherryB.]''
=||=
<==
''His''
{
(if: $pine4 is in $hiscapture)[(text-color: green)[''Crane''], ]
(if: $cherry4 is in $hiscapture)[(text-color: (rgb:255,180,182))[''Curtain''], ]
(if: $grass4 is in $hiscapture)[(text-color: (rgb:185,222,193))[''Moon''], ]
(if: $hisphoenix is true)[(text-color: (rgb:60,179,113))[''Phoenix'']]
}
{
(if: $peony3 is in $hiscapture)[(text-color: (rgb:238,130,220))[~~Peony~~], ]
(if: $kiku3 is in $hiscapture)[(text-color: yellow)[~~Chrysanth.~~], ]
(if: $maple3 is in $hiscapture)[(text-color: (rgb:250,160,0))[~~Maple~~]]
}
{
(if: $pine4 is in $hiscapture)[(text-color: green)[''Crane''], ]
(if: $plum4 is in $hiscapture)[(text-color: red)[//Warbler//], ]
(if: $cherry4 is in $hiscapture)[(text-color: (rgb:255,180,182))[''Curtain''], ]
}
{
(if: $pine3 is in $hiscapture)[(text-color: green)[~~Pine~~], ]
(if: $plum3 is in $hiscapture)[(text-color: red)[~~PlumB.~~], ]
(if: $cherry3 is in $hiscapture)[(text-color: (rgb:255,180,182))[~~CherryB.~~]]
}
{
(if: $iris4 is in $hiscapture)[(text-color: blue)[//Bridge//], ]
(if: $hisphoenix is true)[(text-color: (rgb:60,179,113))[''Phoenix''], ]
(if: $maple4 is in $hiscapture)[(text-color: (rgb:250,160,0))[//Deer//]]
}
{
(if: $iris3 is in $hiscapture)[(text-color: blue)[~~Iris~~], ]
(if: $hisphoenix is true)[(text-color: (rgb:60,179,113))[''Phoenix''], ]
(if: $maple3 is in $hiscapture)[(text-color: (rgb:250,160,0))[~~Maple~~]]
}
{
(if: $kiku4 is in $hiscapture)[(text-color: yellow)[(either:
"Drink up!",
"To long life!",
"Cheers!",
"`*hic*`",
)]]
}
{
(if: $pine4 is in $hiscapture)[(text-color: green)[''Crane''], ]
(if: $pine3 is in $hiscapture)[(text-color: green)[~~Ribbon~~], ]
(if: $pine2 is in $hiscapture)[(text-color: green)[Chaff], ]
(if: $pine1 is in $hiscapture)[(text-color: green)[Chaff]]
}
{
(if: $plum4 is in $hiscapture)[(text-color: red)[//Warbler//], ]
(if: $plum3 is in $hiscapture)[(text-color: red)[~~Ribbon~~], ]
(if: $plum2 is in $hiscapture)[(text-color: red)[Chaff], ]
(if: $plum1 is in $hiscapture)[(text-color: red)[Chaff]]
}
{
(if: $cherry4 is in $hiscapture)[(text-color: (rgb:255,180,182))[''Curtain''], ]
(if: $cherry3 is in $hiscapture)[(text-color: (rgb:255,180,182))[~~Ribbon~~], ]
(if: $cherry2 is in $hiscapture)[(text-color: (rgb:255,180,182))[Chaff], ]
(if: $cherry1 is in $hiscapture)[(text-color: (rgb:255,180,182))[Chaff]]
}
|==|
=><=
(linkrepeat: "See all captured cards")[(display: "hon cap lists")]
[[Get help->True Flowers rules]]
[[MENU->menu]]
]
<==
{
(click: ?h1)
[(move: 1st of $myhand into _hand)
(set: $hand to _hand)
(goto: "true opponent move")
]
(click: ?h2)
[(move: 2nd of $myhand into _hand)
(set: $hand to _hand)
(goto: "true opponent move")
]
(click: ?h3)
[(move: 3rd of $myhand into _hand)
(set: $hand to _hand)
(goto: "true opponent move")
]
(click: ?h4)
[(move: 4th of $myhand into _hand)
(set: $hand to _hand)
(goto: "true opponent move")
]
(click: ?h5)
[(move: 5th of $myhand into _hand)
(set: $hand to _hand)
(goto: "true opponent move")
]
(click: ?h6)
[(move: 6th of $myhand into _hand)
(set: $hand to _hand)
(goto: "true opponent move")
]
}{(set: _hand to 0)
(if: last of (history:) is "true your move 1")
[(display: "your move 2")]}
(unless: length of $hishand is 0)
[
{
(set: _suitfield to $field of $suits)
(display: "med opponent")
(move: 1st of $deck into _deck)
(set: _suithand to _hand of $suits)
(set: _suitdeck to _deck of $suits)
(either:
"After a moment,",
"Without hesitation",
"He mentally evaluates the gamestate, then",
"He chuckles silently as",
"With a gentle thunk,",
"With unwavering resolve,") he places (print: _hand) on the field,
(if: (count: _suitfield, _suithand) matches 3)
[(set: $matchhand to 3)
(set: $hiscapture to it + (a:_hand) )
(for: each _fpos, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
[(if: length of $field >= _fpos)
[(if: (_fpos) of _suitfield matches _suithand)
[(set: $hiscapture to it + (a: (_fpos) of $field))
(set: $field to it - (a: (_fpos) of $field))]]
]
]
(elseif: (count: _suitfield, _suithand) matches 2)
[(set: $matchhand to 2)
(set: $hiscapture to it + (a:_hand))
(set: $handpickone to (a:))
(for: each _fpos, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
[(if: length of $field >= _fpos)
[(if: (_fpos) of _suitfield matches _suithand)
[(set: $handpickone to it + (a:(_fpos) of $field))]]
]
(if: 1st of $handpickone of $honval > 2nd of $handpickone of $honval)
[(set: $handchosen to 1st of $handpickone)]
(else:)
[(set: $handchosen to 2nd of $handpickone)]
(set: $hiscapture to it + (a:$handchosen))
(set: $field to it - (a:$handchosen))
]
(elseif: (count: _suitfield, _suithand) matches 1)
[(set: $matchhand to 1)
(set: $hiscapture to it + (a:_hand) )
(for: each _fpos, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
[(if: length of $field >= _fpos)
[(if: (_fpos) of _suitfield matches _suithand)
[(set: $hiscapture to it + (a: (_fpos) of $field))
(set: $field to it - (a: (_fpos) of $field))]]
]
]
(else:)
[(set: $matchhand to 0)
(set: $field to it + (a:_hand) )
(if: $gamemode is 1 and _hand is $kiri4)
[(set: $hisphoenix to true)
(set: $field to it - (a: $kiri4))]]
(set: _suitfield to $field of $suits)
} which matches $matchhand card(if: $matchhand is not 1)[s], {
(if: $matchhand is 1)
[(print: last of $hiscapture),]
(elseif: $matchhand is 2)
[either (print: 1st of $handpickone), or (print: 2nd of $handpickone). He chooses to capture $handchosen,]
(elseif: $matchhand is 3)
[taking the entire suit,]
(set: _suitfield to $field of $suits)
(elseif: _hand is $kiri4)
[but is automatically captured anyway.]
}
and subsequently (either: "flips over", "slaps down", "reveals", "plays") (print: _deck) from the top of the deck, {
(if: (count: _suitfield, _suitdeck) matches 3)
[(set: $matchdeck to 3)
(set: $hiscapture to it + (a:_deck) )
(for: each _fpos, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
[(if: length of $field >= _fpos)
[(if: (_fpos) of _suitfield matches _suitdeck)
[(set: $hiscapture to it + (a: (_fpos) of $field))
(set: $field to it - (a: (_fpos) of $field))]]
]
]
(elseif: (count: _suitfield, _suitdeck) matches 2)
[(set: $matchdeck to 2)
(set: $hiscapture to it + (a:_deck))
(set: $deckpickone to (a:))
(for: each _fpos, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
[(if: length of $field >= _fpos)
[(if: (_fpos) of _suitfield matches _suitdeck)
[(set: $deckpickone to it + (a:(_fpos) of $field))]]
]
(if: 1st of $deckpickone of $honval > 2nd of $deckpickone of $honval)
[(set: $deckchosen to 1st of $deckpickone)]
(else:)
[(set: $deckchosen to 2nd of $deckpickone)]
(set: $hiscapture to it + (a:$deckchosen))
(set: $field to it - (a:$deckchosen))
]
(elseif: (count: _suitfield, _suitdeck) matches 1)
[(set: $matchdeck to 1)
(set: $hiscapture to it + (a:_deck) )
(for: each _fpos, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
[(if: length of $field >= _fpos)
[(if: (_fpos) of _suitfield matches _suitdeck)
[(set: $hiscapture to it + (a: (_fpos) of $field))
(set: $field to it - (a: (_fpos) of $field))]]
]
]
(else:)
[(set: $matchdeck to 0)
(set: $field to it + (a:_deck))
(if: $gamemode is 1 and _deck is $kiri4)
[(set: $hisphoenix to true)
(set: $field to it - (a: $kiri4))]]
}which has $matchdeck match(if: $matchdeck is not 1)[es] on the field{
(if: $matchdeck is 1)
[, (print: last of $hiscapture)]
(elseif: $matchdeck is 2)
[. He selects $deckchosen to capture]
(elseif: $matchdeck is 3)
[, the whole suit]
(elseif: _deck is $kiri4)
[, but is automatically captured anyway]
(set: _suitfield to $field of $suits)
(display: "Score Calc")
(if: _hand is $kiri4)
[(set: $hisprevcap to it - 1)]
(if: _deck is $kiri4)
[(set: $hisprevcap to it - 1)]
}.
Your opponent ultimately captures (print: length of $hiscapture - $hisprevcap) new cards this turn. ''The card points are now his $valhiscap points to your $valmycap points.'' (if: $has_tea is false)[(either: "You feel thirsty.", "Your host offers tea again, but you thank him and insist you don't wish to inconvenience him.", "Your opponent pops a pocketed candy into his mouth.", "You feel a bit peckish.", "", "", "", "", "")]
(display: "The Field")
{(set: $hisprevcap to length of $hiscapture)
}](unless: length of $myhand is 0)
[[[It's your turn.->true your move 1]]]
(else:)
[Both players' hands have run out. [[See round results.->true End]]]You (either: "reach for", "select", "choose", "pick up") the (if:$myatosaki is $ato)[''Before''](else:)[''After''] row; your opponent responds by (either: "taking", "swooping up", "gesturing at") the other. You each turn over your selections, revealing their values.
<==
|==
''(if:$myatosaki is $ato)[You:](else:)[Him:] Before''
{
(if: $glasses is "Ryan's")
[(print: 1st of $ato of $pixel)` `
(print: 2st of $ato of $pixel)` `
(print: 3st of $ato of $pixel)<br>
(print: 1st of $ato of $nagoyakabu)` + `(print: 2st of $ato of $nagoyakabu)` + `(print: 3st of $ato of $nagoyakabu)]
(elseif: $glasses is "Louie's")
[(print: 1st of $ato of $louie)` `
(print: 2st of $ato of $louie)` `
(print: 3st of $ato of $louie)<br>
(print: 1st of $ato of $nagoyakabu)` + `(print: 2st of $ato of $nagoyakabu)` + `(print: 3st of $ato of $nagoyakabu)]
(elseif: $glasses is "Sem's")
[(print: 1st of $ato of $sem)` `
(print: 2st of $ato of $sem)` `
(print: 3st of $ato of $sem)<br>
(print: 1st of $ato of $nagoyakabu)` + `(print: 2st of $ato of $nagoyakabu)` + `(print: 3st of $ato of $nagoyakabu)]
(elseif: $glasses is "Heaven's")
[(print: 1st of $ato of $vapor)` `
(print: 2st of $ato of $vapor)` `
(print: 3st of $ato of $vapor)<br>
(print: 1st of $ato of $nagoyakabu)` + `(print: 2st of $ato of $nagoyakabu)` + `(print: 3st of $ato of $nagoyakabu)]
(else:)
[(print: (1st of $ato of $nagoyakabu) % 10) : (print: 1st of $ato)<br>
(print: (2nd of $ato of $nagoyakabu) % 10) : (print: 2nd of $ato)<br>
(print: (3rd of $ato of $nagoyakabu) % 10) : (print: 3rd of $ato)]
}
==|
==>
''(if:$myatosaki is $saki)[You:](else:)[Him:] After''
{
(if: $glasses is "Ryan's")
[(print: 1st of $saki of $pixel)` `
(print: 2st of $saki of $pixel)` `
(print: 3st of $saki of $pixel)<br>
(print: 1st of $saki of $nagoyakabu)` + `(print: 2st of $saki of $nagoyakabu)` + `(print: 3st of $saki of $nagoyakabu)]
(elseif: $glasses is "Louie's")
[(print: 1st of $saki of $louie)` `
(print: 2st of $saki of $louie)` `
(print: 3st of $saki of $louie)<br>
(print: 1st of $saki of $nagoyakabu)` + `(print: 2st of $saki of $nagoyakabu)` + `(print: 3st of $saki of $nagoyakabu)]
(elseif: $glasses is "Sem's")
[(print: 1st of $saki of $sem)` `
(print: 2st of $saki of $sem)` `
(print: 3st of $saki of $sem)<br>
(print: 1st of $saki of $nagoyakabu)` + `(print: 2st of $saki of $nagoyakabu)` + `(print: 3st of $saki of $nagoyakabu)]
(elseif: $glasses is "Heaven's")
[(print: 1st of $saki of $vapor)` `
(print: 2st of $saki of $vapor)` `
(print: 3st of $saki of $vapor)<br>
(print: 1st of $saki of $nagoyakabu)` + `(print: 2st of $saki of $nagoyakabu)` + `(print: 3st of $saki of $nagoyakabu)]
(else:)
[(print: 1st of $saki) : (print: (1st of $saki of $nagoyakabu) % 10)<br>
(print: 2nd of $saki) : (print: (2nd of $saki of $nagoyakabu) % 10)<br>
(print: 3rd of $saki) : (print: (3rd of $saki of $nagoyakabu) % 10)]
}
|==|
<==
{
(set: $myatoval to 1st of $myatosaki of $nagoyakabu + 2nd of $myatosaki of $nagoyakabu + 3rd of $myatosaki of $nagoyakabu)
(set: $hisatoval to 1st of $hisatosaki of $nagoyakabu + 2nd of $hisatosaki of $nagoyakabu + 3rd of $hisatosaki of $nagoyakabu)
(if: $myatoval % 10 > $hisatoval % 10)
[(set: $honmydeal to true)
(set: $atowins to it + 1)]
(elseif: $myatoval % 10 is $hisatoval % 10)
[(set: $honmydeal to false)
(set: $atodraws to it + 1)]
(else:)
[(set: $honmydeal to false)
(set: $atolosses to it + 1)]
}
My ''Before and After'' score: (print: $myatoval % 10)
His ''Before and After'' score: (print: $hisatoval % 10)
"Looks like (cond: $honmydeal is true, "you won. You'll get to play first in ''True Flowers''", $myatoval % 10 is $hisatoval % 10, "we tied. My house, so I'll take that to mean I'm going first", "I won. I'll go first then")."
{
(if: $kiri4 is in $field)
[(set: $field to it - (a: $kiri4))
(if: $honmydeal is true)
[<br>"The ''Phoenix'' is on the field. Since you won ''Before and After'', you get to capture it automatically. Congrats." You (either: "gingerly remove", "triumphantly subtract", "thank your host, then take", "gratefully accept", "pick up") $kiri4 from the field and add it to your capture area.
(set: $myphoenix to true)]
(else:)
[<br>"And I'll take that ''Phoenix'', too." He (either: "sweeps it off the field", "scoops it up", "tiptoes his fingers over to $kiri4", "grabs it") and puts it in his capture area.
(set: $hisphoenix to true)]
]
}
You each choose one of the six 6-card piles on the table to be your hand. Your host gathers the remaining stacks into a draw pile and places it beside the field.
(display: "The Field")
(link: "Let's play.")
[ (if: $honmydeal is true)
[(goto: "true your move 1")]
(if: $honmydeal is false)
[(goto: "true opponent move")]
]{
(if: $myphoenix is true)
[(set: $mycapture to it + (a: $kiri4))]
(if: $hisphoenix is true)
[(set: $hiscapture to it + (a: $kiri4))]
}Your final card score: $valmycap points.
Your opponent's card score: $valhiscap points.
(linkrepeat: "See all captured cards")[(display: "hon cap lists")]
{
(set: _tokens to 0)
(if: $valhiscap is $valmycap)
[Because you (either: "are tied with regards to card points", "are matched as far as card points"), neither party wins any ''tokens'' for that category.]
(elseif: $valhiscap > $valmycap)
[Your opponent, having captured more card points than you, takes ''2 tokens'' from you.(set: _tokens to it - 2)]
(elseif: $valhiscap < $valmycap)
[You (either: "outclass your opponent with regards to", "capture the greater number of", "win with regards to", "dominate in the category of") card points, earning ''2 tokens''.(set: _tokens to it + 2)]
}
{
(unless: $hiscapture contains all of $shiko)
[
(if: $mycapture contains all of $shiko)
[You captured ''Four Brights'', earning ''6 tokens'' from your opponent, and negating their captured ''Sets''! Feels good!<br>
(set: _tokens to it + 6)]
(if: $mycapture contains all of $aotan)
[You captured ''Imperial Messenger'', earning ''5 tokens'' from your opponent and negating their captured ''Sets''. Amazing!<br>
(set: _tokens to it + 5)]
(unless: $hiscapture contains all of $aotan)
[
(if: $mycapture contains all of $sanko)
[You captured ''Front Three Brights'', earning ''3 tokens'' from your opponent. <br>
(set: _tokens to it + 3)]
(if: $mycapture contains all of $akatan)
[You captured ''Back Three Brights'', earning ''3 tokens'' from your opponent. <br>
(set: _tokens to it + 3)]
(if: $mycapture contains all of $fgoroju)
[You captured ''Front Elder'', earning ''3 tokens'' from your opponent. <br>
(set: _tokens to it + 3)]
(if: $mycapture contains all of $bgoroju)
[You captured ''Back Elder'', earning ''3 tokens'' from your opponent. <br>
(set: _tokens to it + 3)]
(if: $mycapture contains $kiku4 and (count: $mycapture, ...$shiko) >= 2)
[You take ''Two Drinks'', earning ''2 tokens'' from your opponent. <br>
(set: _tokens to it + 2)]
(if: $mycapture contains $kiku4 and (count: $mycapture, ...$shiko) is 1)
[You take ''One Drink'', earning ''1 token'' from your opponent. <br>
(set: _tokens to it + 1)]
(if: $mycapture contains all of $matsushima)
[You captured ''(print:$pine1 of $suits) Island'', earning ''1 token'' from your opponent.<br>
(set: _tokens to it + 1)]
(if: $mycapture contains all of $umeshima)
[You captured ''(print:$plum1 of $suits) Island'', earning ''1 token'' from your opponent.<br>
(set: _tokens to it + 1)]
(if: $mycapture contains all of $sakurashima)
[You captured ''(print:$cherry1 of $suits) Island'', earning ''1 token'' from your opponent.<br>
(set: _tokens to it + 1)]
]
]
(unless: $mycapture contains all of $shiko)
[
(if: $hiscapture contains all of $shiko)
[Your opponent captured ''Four Brights'', taking ''6 tokens'' from you.<br>
(set: _tokens to it - 6)]
(if: $hiscapture contains all of $aotan)
[Your opponent captured ''Imperial Messenger'', taking ''5 tokens'' from you.<br>
(set: _tokens to it - 5)]
(unless: $mycapture contains all of $aotan)
[
(if: $hiscapture contains all of $sanko)
[Your opponent captured ''Front Three Brights'', taking ''3 tokens'' from you.<br>
(set: _tokens to it - 3)]
(if: $hiscapture contains all of $akatan)
[Your opponent captured ''Back Three Brights'', taking ''3 tokens'' from you.<br>
(set: _tokens to it - 3)]
(if: $hiscapture contains all of $fgoroju)
[Your opponent captured ''Front Elder'', taking ''3 tokens'' from you.<br>
(set: _tokens to it - 3)]
(if: $hiscapture contains all of $bgoroju)
[Your opponent captured ''Back Elder'', taking ''3 tokens'' from you.<br>
(set: _tokens to it - 3)]
(if: $hiscapture contains $kiku4 and (count: $hiscapture, ...$shiko) >= 2)
[Your opponent takes ''Two Drinks'', taking ''2 tokens'' from you.<br>
(set: _tokens to it - 2)]
(if: $hiscapture contains $kiku4 and (count: $hiscapture, ...$shiko) is 1)
[Your opponent takes ''One Drink'', taking ''1 token'' from you.<br>
(set: _tokens to it - 1)]
(if: $hiscapture contains all of $matsushima)
[Your opponent captured ''(print:$pine1 of $suits) Island'', taking ''1 token'' from you.<br>
(set: _tokens to it - 1)]
(if: $hiscapture contains all of $umeshima)
[Your opponent captured ''(print:$plum1 of $suits) Island'', taking ''1 token'' from you.<br>
(set: _tokens to it - 1)]
(if: $hiscapture contains all of $sakurashima)
[Your opponent captured ''(print:$cherry1 of $suits) Island'', taking ''1 token'' from you.<br>
(set: _tokens to it - 1)]
]
]
}
{
(if: 2nd of $honhigh < _tokens)
[(set: 2nd of $honhigh to _tokens, 1st of $honhigh to $valmycap)]
(elseif: 2nd of $honhigh is _tokens)
[(if: 1st of $honhigh < $valmycap)
[(set: 1st of $honhigh to $valmycap)]]
(set: $truthtokens to it + _tokens)
(if: _tokens is 0)
[(set: $hondraws to it + 1)]
(elseif: _tokens > 0)
[(set: $honwins to it + 1)]
(elseif: _tokens < 0)
[(set: $honlosses to it + 1)]
All in all, you earned ''_tokens tokens'' this round. You now have a total balance of ''$truthtokens Truth Tokens''.
}
(if: $truthtokens > 0)
["There are still 12 cards we didn't use in the deck. We can [[play a couple rounds of Flower Bed->Flower Bed]] if you fancy a wager. Or..."]
"Shall we play [[True Flowers]] again?"
{
(link:"Save.")
[
(if: (save-game:"Slot A"))
[Game saved!]
(else: )
[The game was unable to be saved.]
]
}
(textsize:0.75)[[[See all games.->game list]]](dialog: "(textsize: 0.6)[''Before and After'' is my name for the Japanese game of //atosaki//, or as it is known in Nagoya, //shoniban//. In the 1920s, it was played as an additional opportunity for betting on the 2-player game of ''Tensho'' or 3-player game of ''True Flowers''. It is a type of 3-card ''kabu'', a genre of game in which each type of plant represents a number, and one's goal is to choose cards whose sum of values has a ones place that is closest to ''9''.<br><br>In this particular house, the player chooses one of the 2 face-down rows on the field, which are called ''Before'' and ''After'' respectively, while the dealer receives the other. Whoever has the better hand gets to go first in the impending game of ''True Flowers''.<br><br>No need to overthink this quick sidegame; there's no way for either of us to know in advance which row of cards will pay off.]", "Ah.")(dialog: "(textsize: 0.6)[There are 5 distinct ranks of cards in ''True Flowers''.
* 30 points: $pine4, $cherry4, $grass4, and $kiri4.
* 20 points: $plum4, $iris4, and $maple4.
* 10 points: $fuji4, $peony4, $hagi4, $grass3, $kiku4, $ame3, and $ame4.
* 5 points: All 10 ~~Ribbons~~.
* 0 points: All 21 chaff.
Whichever player has the most card points when both players' hands run out earns ''2 Truth Tokens'' from their opponent.]",
"Oh, I see.")(dialog: "(textsize: 0.5)[A player who captures all cards in of any of the following ''Special Sets'' earns a number of ''tokens'' from their opponent according to this chart.
* ''6 : Four Brights'' : all four 30-point cards. Capturing this combination negates scoring of any and all sets captured by the opponent.
* ''5 : Imperial Messenger'' : all 3 Blue ~~Ribbons~~. This, too, negates any bonuses obtained by the opponent, unless the opponent has ''Four Brights'', which always trumps and negates this one.
* ''3 : Front Three Brights'' : $pine4, $plum4, and $cherry4.
* ''3 : Back Three Brights'' : all 3 Poetry ~~Ribbons~~.
* ''3 : Front Elder'' : $iris4, $kiri4, and $maple4.
* ''3 : Back Elder'' : $iris3, $kiri4, and $maple3.
* ''2 : Two Drinks'' : $kiku4 and at least two 30-point cards.
* ''1 : One Drink'' : $kiku4 and one 30-point card.
* ''1 : (print:$pine1 of $suits) Island'' : all 4 (print:$pine1 of $suits) cards.
* ''1 : (print:$plum1 of $suits) Island'' : all 4 (print:$plum1 of $suits) cards.
* ''1 : (print:$cherry1 of $suits) Island'' : all 4 (print:$cherry1 of $suits) cards.
]",
"Intriguing."){
(display: "Score Calc")
(set: $mysuitcap to $mycapture of $suits)
(set: $hissuitcap to $hiscapture of $suits)
(set: _valhiscap to $hiscapture of $bakaval)
(set: _valmycap to $mycapture of $bakaval)
(if: $gamemode is 1)
[(set: _valhiscap to $hiscapture of $honval)
(set: _valmycap to $mycapture of $honval)]
(dialog:
"
(textsize: 0.5)[
<==
|==
''You: $valmycap points''
{
(if: length of $mycapture >= 2)
[(print: 1st of $mycapture): (print: 1st of _valmycap)<br>
(print: 2nd of $mycapture): (print: 2nd of _valmycap)]
(if: length of $mycapture >= 4)
[<br>(print: 3rd of $mycapture): (print: 3rd of _valmycap)<br>
(print: 4th of $mycapture): (print: 4th of _valmycap)]
(if: length of $mycapture >= 6)
[<br>(print: 5th of $mycapture): (print: 5th of _valmycap)<br>
(print: 6th of $mycapture): (print: 6th of _valmycap)]
(if: length of $mycapture >= 8)
[<br>(print: 7th of $mycapture): (print: 7th of _valmycap)<br>
(print: 8th of $mycapture): (print: 8th of _valmycap)]
(if: length of $mycapture >= 10)
[<br>(print: 9th of $mycapture): (print: 9th of _valmycap)<br>
(print: 10th of $mycapture): (print: 10th of _valmycap)]
(if: length of $mycapture >= 12)
[<br>(print: 11st of $mycapture): (print: 11st of _valmycap)<br>
(print: 12nd of $mycapture): (print: 12nd of _valmycap)]
(if: length of $mycapture >= 14)
[<br>(print: 13rd of $mycapture): (print: 13rd of _valmycap)<br>
(print: 14th of $mycapture): (print: 14th of _valmycap)]
(if: length of $mycapture >= 16)
[<br>(print: 15th of $mycapture): (print: 15th of _valmycap)<br>
(print: 16th of $mycapture): (print: 16th of _valmycap)]
(if: length of $mycapture >= 18)
[<br>(print: 17th of $mycapture): (print: 17th of _valmycap)<br>
(print: 18th of $mycapture): (print: 18th of _valmycap)]
(if: length of $mycapture >= 20)
[<br>(print: 19th of $mycapture): (print: 19th of _valmycap)<br>
(print: 20th of $mycapture): (print: 20th of _valmycap)]
(if: length of $mycapture >= 22)
[<br>(print: 21st of $mycapture): (print: 21st of _valmycap)<br>
(print: 22nd of $mycapture): (print: 22nd of _valmycap)]
(if: length of $mycapture >= 24)
[<br>(print: 23rd of $mycapture): (print: 23rd of _valmycap)<br>
(print: 24th of $mycapture): (print: 24th of _valmycap)]
(if: length of $mycapture >= 26)
[<br>(print: 25th of $mycapture): (print: 25th of _valmycap)<br>
(print: 26th of $mycapture): (print: 26th of _valmycap)]
(if: length of $mycapture >= 28)
[<br>(print: 27th of $mycapture): (print: 27th of _valmycap)<br>
(print: 28th of $mycapture): (print: 28th of _valmycap)]
(if: length of $mycapture >= 30)
[<br>(print: 29th of $mycapture): (print: 29th of _valmycap)<br>
(print: 30th of $mycapture): (print: 30th of _valmycap)]
(if: length of $mycapture >= 32)
[<br>(print: 31st of $mycapture): (print: 31st of _valmycap)<br>
(print: 32nd of $mycapture): (print: 32nd of _valmycap)]
(if: length of $mycapture >= 34)
[<br>(print: 33rd of $mycapture): (print: 33rd of _valmycap)<br>
(print: 34th of $mycapture): (print: 34th of _valmycap)]
(if: length of $mycapture >= 36)
[<br>(print: 35th of $mycapture): (print: 35th of _valmycap)<br>
(print: 36th of $mycapture): (print: 36th of _valmycap)]
(if: length of $mycapture >= 38)
[<br>(print: 37th of $mycapture): (print: 37th of _valmycap)<br>
(print: 38th of $mycapture): (print: 38th of _valmycap)]
(if: length of $mycapture >= 40)
[<br>(print: 39th of $mycapture): (print: 39th of _valmycap)<br>
(print: 40th of $mycapture): (print: 40th of _valmycap)]
(if: length of $mycapture >= 42)
[<br>(print: 41st of $mycapture): (print: 41st of _valmycap)<br>
(print: 42nd of $mycapture): (print: 42nd of _valmycap)]
(if: length of $mycapture >= 44)
[<br>(print: 43rd of $mycapture): (print: 43rd of _valmycap)<br>
(print: 44th of $mycapture): (print: 44th of _valmycap)]
(if: length of $mycapture >= 46)
[<br>(print: 45th of $mycapture): (print: 45th of _valmycap)<br>
(print: 46th of $mycapture): (print: 46th of _valmycap)]
(if: length of $mycapture >= 48)
[<br>(print: 47th of $mycapture): (print: 47th of _valmycap)<br>
(print: 48th of $mycapture): (print: 48th of _valmycap)]
(if: $gamemode is 1 and $myphoenix is true)
[<br>$kiri4: 30]
}
==|
==>
''Him: $valhiscap points''
{
(if: length of $hiscapture >= 2)
[(print: 1st of $hiscapture): (print: 1st of _valhiscap)<br>
(print: 2nd of $hiscapture): (print: 2nd of _valhiscap)]
(if: length of $hiscapture >= 4)
[<br>(print: 3rd of $hiscapture): (print: 3rd of _valhiscap)<br>
(print: 4th of $hiscapture): (print: 4th of _valhiscap)]
(if: length of $hiscapture >= 6)
[<br>(print: 5th of $hiscapture): (print: 5th of _valhiscap)<br>
(print: 6th of $hiscapture): (print: 6th of _valhiscap)]
(if: length of $hiscapture >= 8)
[<br>(print: 7th of $hiscapture): (print: 7th of _valhiscap)<br>
(print: 8th of $hiscapture): (print: 8th of _valhiscap)]
(if: length of $hiscapture >= 10)
[<br>(print: 9th of $hiscapture): (print: 9th of _valhiscap)<br>
(print: 10th of $hiscapture): (print: 10th of _valhiscap)]
(if: length of $hiscapture >= 12)
[<br>(print: 11st of $hiscapture): (print: 11st of _valhiscap)<br>
(print: 12nd of $hiscapture): (print: 12nd of _valhiscap)]
(if: length of $hiscapture >= 14)
[<br>(print: 13rd of $hiscapture): (print: 13rd of _valhiscap)<br>
(print: 14th of $hiscapture): (print: 14th of _valhiscap)]
(if: length of $hiscapture >= 16)
[<br>(print: 15th of $hiscapture): (print: 15th of _valhiscap)<br>
(print: 16th of $hiscapture): (print: 16th of _valhiscap)]
(if: length of $hiscapture >= 18)
[<br>(print: 17th of $hiscapture): (print: 17th of _valhiscap)<br>
(print: 18th of $hiscapture): (print: 18th of _valhiscap)]
(if: length of $hiscapture >= 20)
[<br>(print: 19th of $hiscapture): (print: 19th of _valhiscap)<br>
(print: 20th of $hiscapture): (print: 20th of _valhiscap)]
(if: length of $hiscapture >= 22)
[<br>(print: 21st of $hiscapture): (print: 21st of _valhiscap)<br>
(print: 22nd of $hiscapture): (print: 22nd of _valhiscap)]
(if: length of $hiscapture >= 24)
[<br>(print: 23rd of $hiscapture): (print: 23rd of _valhiscap)<br>
(print: 24th of $hiscapture): (print: 24th of _valhiscap)]
(if: length of $hiscapture >= 26)
[<br>(print: 25th of $hiscapture): (print: 25th of _valhiscap)<br>
(print: 26th of $hiscapture): (print: 26th of _valhiscap)]
(if: length of $hiscapture >= 28)
[<br>(print: 27th of $hiscapture): (print: 27th of _valhiscap)<br>
(print: 28th of $hiscapture): (print: 28th of _valhiscap)]
(if: length of $hiscapture >= 30)
[<br>(print: 29th of $hiscapture): (print: 29th of _valhiscap)<br>
(print: 30th of $hiscapture): (print: 30th of _valhiscap)]
(if: length of $hiscapture >= 32)
[<br>(print: 31st of $hiscapture): (print: 31st of _valhiscap)<br>
(print: 32nd of $hiscapture): (print: 32nd of _valhiscap)]
(if: length of $hiscapture >= 34)
[<br>(print: 33rd of $hiscapture): (print: 33rd of _valhiscap)<br>
(print: 34th of $hiscapture): (print: 34th of _valhiscap)]
(if: length of $hiscapture >= 36)
[<br>(print: 35th of $hiscapture): (print: 35th of _valhiscap)<br>
(print: 36th of $hiscapture): (print: 36th of _valhiscap)]
(if: length of $hiscapture >= 38)
[<br>(print: 37th of $hiscapture): (print: 37th of _valhiscap)<br>
(print: 38th of $hiscapture): (print: 38th of _valhiscap)]
(if: length of $hiscapture >= 40)
[<br>(print: 39th of $hiscapture): (print: 39th of _valhiscap)<br>
(print: 40th of $hiscapture): (print: 40th of _valhiscap)]
(if: length of $hiscapture >= 42)
[<br>(print: 41st of $hiscapture): (print: 41st of _valhiscap)<br>
(print: 42nd of $hiscapture): (print: 42nd of _valhiscap)]
(if: length of $hiscapture >= 44)
[<br>(print: 43rd of $hiscapture): (print: 43rd of _valhiscap)<br>
(print: 44th of $hiscapture): (print: 44th of _valhiscap)]
(if: length of $hiscapture >= 46)
[<br>(print: 45th of $hiscapture): (print: 45th of _valhiscap)<br>
(print: 46th of $hiscapture): (print: 46th of _valhiscap)]
(if: length of $hiscapture >= 48)
[<br>(print: 47th of $hiscapture): (print: 47th of _valhiscap)<br>
(print: 48th of $hiscapture): (print: 48th of _valhiscap)]
(if: $gamemode is 1 and $hisphoenix is true)
[<br>$kiri4: 30]
}]
|==|
<==
",
"Got it!"
)
}{
(display: "Score Calc")
(set: $mysuitcap to $mycapture of $suits)
(set: $hissuitcap to $hiscapture of $suits)
(set: _valhiscap to $hiscapture of $bakaval)
(set: _valmycap to $mycapture of $bakaval)
(dialog:
"
(textsize: 0.6)[
=><=
''Captured Cards by Value''
<==
=||||=
''Yours''
{
(if: $pine4 is in $mycapture)[(text-color: green)[''Crane''], ]
(if: $cherry4 is in $mycapture)[(text-color: (rgb:255,180,182))[''Curtain''], ]
(if: $grass4 is in $mycapture)[(text-color: (rgb:185,222,193))[''Moon''], ]
(if: $ame4 is in $mycapture)[(text-color: (rgb:72,160,40))[''Rain Man''], ]
(if: $kiri4 is in $mycapture)[(text-color: (rgb:60,179,113))[''Phoenix'']]
}
{
(if: $plum4 is in $mycapture)[(text-color: red)[//Warbler//], ]
(if: $fuji4 is in $mycapture)[(text-color: (rgb: 250,0,250))[//Cuckoo//], ]
(if: $iris4 is in $mycapture)[(text-color: blue)[//Bridge//], ]
(if: $peony4 is in $mycapture)[(text-color: (rgb:238,130,220))[//Butterflies//], ]
(if: $hagi4 is in $mycapture)[(text-color: (rgb:255,70,10))[//Boar//], ]
(if: $grass3 is in $mycapture)[(text-color: (rgb:185,222,193))[//Geese//], ]
(if: $kiku4 is in $mycapture)[(text-color: yellow)[//SakeCup//], ]
(if: $maple4 is in $mycapture)[(text-color: (rgb:250,160,0))[//Deer//], ]
(if: $ame3 is in $mycapture)[(text-color: (rgb:72,160,40))[//Swallow//]]
}
{
(if: $pine3 is in $mycapture)[(text-color: green)[~~Pine~~], ]
(if: $plum3 is in $mycapture)[(text-color: red)[~~PlumB.~~], ]
(if: $cherry3 is in $mycapture)[(text-color: (rgb:255,180,182))[~~CherryB.~~], ]
(if: $fuji3 is in $mycapture)[(text-color: (rgb: 250,0,250))[~~Wisteria~~], ]
(if: $iris3 is in $mycapture)[(text-color: blue)[~~Iris~~], ]
(if: $peony3 is in $mycapture)[(text-color: (rgb:238,130,220))[~~Peony~~], ]
(if: $hagi3 is in $mycapture)[(text-color: (rgb:255,70,10))[~~B.Clover~~], ]
(if: $kiku3 is in $mycapture)[(text-color: yellow)[~~Chrysanth.~~], ]
(if: $maple3 is in $mycapture)[(text-color: (rgb:250,160,0))[~~Maple~~], ]
(if: $ame2 is in $mycapture)[(text-color: (rgb:72,160,40))[~~Willow~~]]
}
{
(if: $pine2 is in $mycapture)[(text-color: green)[Pine], ]
(if: $pine1 is in $mycapture)[(text-color: green)[Pine], ]
(if: $plum2 is in $mycapture)[(text-color: red)[PlumB.], ]
(if: $plum1 is in $mycapture)[(text-color: red)[PlumB.], ]
(if: $cherry2 is in $mycapture)[(text-color: (rgb:255,180,182))[CherryB.], ]
(if: $cherry1 is in $mycapture)[(text-color: (rgb:255,180,182))[CherryB.], ]
(if: $fuji2 is in $mycapture)[(text-color: (rgb: 250,0,250))[Wisteria], ]
(if: $fuji1 is in $mycapture)[(text-color: (rgb: 250,0,250))[Wisteria], ]
(if: $iris2 is in $mycapture)[(text-color: blue)[Iris], ]
(if: $iris1 is in $mycapture)[(text-color: blue)[Iris], ]
(if: $peony2 is in $mycapture)[(text-color: (rgb:238,130,220))[Peony], ]
(if: $peony1 is in $mycapture)[(text-color: (rgb:238,130,220))[Peony], ]
(if: $hagi2 is in $mycapture)[(text-color: (rgb:255,70,10))[B.Clover], ]
(if: $hagi1 is in $mycapture)[(text-color: (rgb:255,70,10))[B.Clover], ]
(if: $grass2 is in $mycapture)[(text-color: (rgb:185,222,193))[Grass], ]
(if: $grass1 is in $mycapture)[(text-color: (rgb:185,222,193))[Grass], ]
(if: $kiku2 is in $mycapture)[(text-color: yellow)[Chrysanth.], ]
(if: $kiku1 is in $mycapture)[(text-color: yellow)[Chrysanth.], ]
(if: $maple2 is in $mycapture)[(text-color: (rgb:250,160,0))[Maple], ]
(if: $maple1 is in $mycapture)[(text-color: (rgb:250,160,0))[Maple], ]
(if: $ame1 is in $mycapture)[(text-color: (rgb:72,160,40))[Willow], ]
(if: $kiri3 is in $mycapture)[(text-color: (rgb:60,179,113))[Princess], ]
(if: $kiri2 is in $mycapture)[(text-color: (rgb:60,179,113))[Princess], ]
(if: $kiri1 is in $mycapture)[(text-color: (rgb:60,179,113))[Princess]]
}
=|=
=><=
''20''
//10//
~~5~~
1
=||||=
==>
''His''
{
(if: $pine4 is in $hiscapture)[(text-color: green)[''Crane''], ]
(if: $cherry4 is in $hiscapture)[(text-color: (rgb:255,180,182))[''Curtain''], ]
(if: $grass4 is in $hiscapture)[(text-color: (rgb:185,222,193))[''Moon''], ]
(if: $ame4 is in $hiscapture)[(text-color: (rgb:72,160,40))[''Rain Man''], ]
(if: $kiri4 is in $hiscapture)[(text-color: (rgb:60,179,113))[''Phoenix'']]
}
{
(if: $plum4 is in $hiscapture)[(text-color: red)[//Warbler//], ]
(if: $fuji4 is in $hiscapture)[(text-color: (rgb: 250,0,250))[//Cuckoo//], ]
(if: $iris4 is in $hiscapture)[(text-color: blue)[//Bridge//], ]
(if: $peony4 is in $hiscapture)[(text-color: (rgb:238,130,220))[//Butterflies//], ]
(if: $hagi4 is in $hiscapture)[(text-color: (rgb:255,70,10))[//Boar//], ]
(if: $grass3 is in $hiscapture)[(text-color: (rgb:185,222,193))[//Geese//], ]
(if: $kiku4 is in $hiscapture)[(text-color: yellow)[//SakeCup//], ]
(if: $maple4 is in $hiscapture)[(text-color: (rgb:250,160,0))[//Deer//], ]
(if: $ame3 is in $hiscapture)[(text-color: (rgb:72,160,40))[//Swallow//]]
}
{
(if: $pine3 is in $hiscapture)[(text-color: green)[~~Pine~~], ]
(if: $plum3 is in $hiscapture)[(text-color: red)[~~PlumB.~~], ]
(if: $cherry3 is in $hiscapture)[(text-color: (rgb:255,180,182))[~~CherryB.~~], ]
(if: $fuji3 is in $hiscapture)[(text-color: (rgb: 250,0,250))[~~Wisteria~~], ]
(if: $iris3 is in $hiscapture)[(text-color: blue)[~~Iris~~], ]
(if: $peony3 is in $hiscapture)[(text-color: (rgb:238,130,220))[~~Peony~~], ]
(if: $hagi3 is in $hiscapture)[(text-color: (rgb:255,70,10))[~~B.Clover~~], ]
(if: $kiku3 is in $hiscapture)[(text-color: yellow)[~~Chrysanth.~~], ]
(if: $maple3 is in $hiscapture)[(text-color: (rgb:250,160,0))[~~Maple~~], ]
(if: $ame2 is in $hiscapture)[(text-color: (rgb:72,160,40))[~~Willow~~]]
}
{
(if: $pine2 is in $hiscapture)[(text-color: green)[Pine], ]
(if: $pine1 is in $hiscapture)[(text-color: green)[Pine], ]
(if: $plum2 is in $hiscapture)[(text-color: red)[PlumB.], ]
(if: $plum1 is in $hiscapture)[(text-color: red)[PlumB.], ]
(if: $cherry2 is in $hiscapture)[(text-color: (rgb:255,180,182))[CherryB.], ]
(if: $cherry1 is in $hiscapture)[(text-color: (rgb:255,180,182))[CherryB.], ]
(if: $fuji2 is in $hiscapture)[(text-color: (rgb: 250,0,250))[Wisteria], ]
(if: $fuji1 is in $hiscapture)[(text-color: (rgb: 250,0,250))[Wisteria], ]
(if: $iris2 is in $hiscapture)[(text-color: blue)[Iris], ]
(if: $iris1 is in $hiscapture)[(text-color: blue)[Iris], ]
(if: $peony2 is in $hiscapture)[(text-color: (rgb:238,130,220))[Peony], ]
(if: $peony1 is in $hiscapture)[(text-color: (rgb:238,130,220))[Peony], ]
(if: $hagi2 is in $hiscapture)[(text-color: (rgb:255,70,10))[B.Clover], ]
(if: $hagi1 is in $hiscapture)[(text-color: (rgb:255,70,10))[B.Clover], ]
(if: $grass2 is in $hiscapture)[(text-color: (rgb:185,222,193))[Grass], ]
(if: $grass1 is in $hiscapture)[(text-color: (rgb:185,222,193))[Grass], ]
(if: $kiku2 is in $hiscapture)[(text-color: yellow)[Chrysanth.], ]
(if: $kiku1 is in $hiscapture)[(text-color: yellow)[Chrysanth.], ]
(if: $maple2 is in $hiscapture)[(text-color: (rgb:250,160,0))[Maple], ]
(if: $maple1 is in $hiscapture)[(text-color: (rgb:250,160,0))[Maple], ]
(if: $ame1 is in $hiscapture)[(text-color: (rgb:72,160,40))[Willow], ]
(if: $kiri3 is in $hiscapture)[(text-color: (rgb:60,179,113))[Princess], ]
(if: $kiri2 is in $hiscapture)[(text-color: (rgb:60,179,113))[Princess], ]
(if: $kiri1 is in $hiscapture)[(text-color: (rgb:60,179,113))[Princess]]
}
|==|
]
<==
",
"Got it!"
)
}{
(display: "Score Calc")
(set: $mysuitcap to $mycapture of $suits)
(set: $hissuitcap to $hiscapture of $suits)
(set: _valhiscap to $hiscapture of $honval)
(set: _valmycap to $mycapture of $honval)
(dialog:
"
(textsize: 0.6)[
=><=
''Captured Cards by Value''
<==
=||||=
''Yours''
{
(if: $pine4 is in $mycapture)[(text-color: green)[''Crane''], ]
(if: $cherry4 is in $mycapture)[(text-color: (rgb:255,180,182))[''Curtain''], ]
(if: $grass4 is in $mycapture)[(text-color: (rgb:185,222,193))[''Moon''], ]
(if: $myphoenix is true)[(text-color: (rgb:60,179,113))[''Phoenix'']]
}
{
(if: $plum4 is in $mycapture)[(text-color: red)[//Warbler//], ]
(if: $iris4 is in $mycapture)[(text-color: blue)[//Bridge//], ]
(if: $maple4 is in $mycapture)[(text-color: (rgb:250,160,0))[//Deer//]]
}
{
(if: $fuji4 is in $mycapture)[(text-color: (rgb: 250,0,250))[//Cuckoo//], ]
(if: $peony4 is in $mycapture)[(text-color: (rgb:238,130,220))[//Butterflies//], ]
(if: $hagi4 is in $mycapture)[(text-color: (rgb:255,70,10))[//Boar//], ]
(if: $grass3 is in $mycapture)[(text-color: (rgb:185,222,193))[//Geese//], ]
(if: $kiku4 is in $mycapture)[(text-color: yellow)[//SakeCup//], ]
(if: $ame4 is in $mycapture)[(text-color: (rgb:72,160,40))[''Rain Man''], ]
(if: $ame3 is in $mycapture)[(text-color: (rgb:72,160,40))[//Swallow//]]
}
{
(if: $pine3 is in $mycapture)[(text-color: green)[~~Pine~~], ]
(if: $plum3 is in $mycapture)[(text-color: red)[~~PlumB.~~], ]
(if: $cherry3 is in $mycapture)[(text-color: (rgb:255,180,182))[~~CherryB.~~], ]
(if: $fuji3 is in $mycapture)[(text-color: (rgb: 250,0,250))[~~Wisteria~~], ]
(if: $iris3 is in $mycapture)[(text-color: blue)[~~Iris~~], ]
(if: $peony3 is in $mycapture)[(text-color: (rgb:238,130,220))[~~Peony~~], ]
(if: $hagi3 is in $mycapture)[(text-color: (rgb:255,70,10))[~~B.Clover~~], ]
(if: $kiku3 is in $mycapture)[(text-color: yellow)[~~Chrysanth.~~], ]
(if: $maple3 is in $mycapture)[(text-color: (rgb:250,160,0))[~~Maple~~], ]
(if: $ame2 is in $mycapture)[(text-color: (rgb:72,160,40))[~~Willow~~]]
}
{
(if: $pine2 is in $mycapture)[(text-color: green)[Pine], ]
(if: $pine1 is in $mycapture)[(text-color: green)[Pine], ]
(if: $plum2 is in $mycapture)[(text-color: red)[PlumB.], ]
(if: $plum1 is in $mycapture)[(text-color: red)[PlumB.], ]
(if: $cherry2 is in $mycapture)[(text-color: (rgb:255,180,182))[CherryB.], ]
(if: $cherry1 is in $mycapture)[(text-color: (rgb:255,180,182))[CherryB.], ]
(if: $fuji2 is in $mycapture)[(text-color: (rgb: 250,0,250))[Wisteria], ]
(if: $fuji1 is in $mycapture)[(text-color: (rgb: 250,0,250))[Wisteria], ]
(if: $iris2 is in $mycapture)[(text-color: blue)[Iris], ]
(if: $iris1 is in $mycapture)[(text-color: blue)[Iris], ]
(if: $peony2 is in $mycapture)[(text-color: (rgb:238,130,220))[Peony], ]
(if: $peony1 is in $mycapture)[(text-color: (rgb:238,130,220))[Peony], ]
(if: $hagi2 is in $mycapture)[(text-color: (rgb:255,70,10))[B.Clover], ]
(if: $hagi1 is in $mycapture)[(text-color: (rgb:255,70,10))[B.Clover], ]
(if: $grass2 is in $mycapture)[(text-color: (rgb:185,222,193))[Grass], ]
(if: $grass1 is in $mycapture)[(text-color: (rgb:185,222,193))[Grass], ]
(if: $kiku2 is in $mycapture)[(text-color: yellow)[Chrysanth.], ]
(if: $kiku1 is in $mycapture)[(text-color: yellow)[Chrysanth.], ]
(if: $maple2 is in $mycapture)[(text-color: (rgb:250,160,0))[Maple], ]
(if: $maple1 is in $mycapture)[(text-color: (rgb:250,160,0))[Maple], ]
(if: $ame1 is in $mycapture)[(text-color: (rgb:72,160,40))[Willow], ]
(if: $kiri3 is in $mycapture)[(text-color: (rgb:60,179,113))[Princess], ]
(if: $kiri2 is in $mycapture)[(text-color: (rgb:60,179,113))[Princess], ]
(if: $kiri1 is in $mycapture)[(text-color: (rgb:60,179,113))[Princess]]
}
=|=
=><=
''30''
//20//
//10//
~~5~~
0
=||||=
==>
''His''
{
(if: $pine4 is in $hiscapture)[(text-color: green)[''Crane''], ]
(if: $cherry4 is in $hiscapture)[(text-color: (rgb:255,180,182))[''Curtain''], ]
(if: $grass4 is in $hiscapture)[(text-color: (rgb:185,222,193))[''Moon''], ]
(if: $hisphoenix is true)[(text-color: (rgb:60,179,113))[''Phoenix'']]
}
{
(if: $plum4 is in $hiscapture)[(text-color: red)[//Warbler//], ]
(if: $iris4 is in $hiscapture)[(text-color: blue)[//Bridge//], ]
(if: $maple4 is in $hiscapture)[(text-color: (rgb:250,160,0))[//Deer//]]
}
{
(if: $fuji4 is in $hiscapture)[(text-color: (rgb: 250,0,250))[//Cuckoo//], ]
(if: $peony4 is in $hiscapture)[(text-color: (rgb:238,130,220))[//Butterflies//], ]
(if: $hagi4 is in $hiscapture)[(text-color: (rgb:255,70,10))[//Boar//], ]
(if: $grass3 is in $hiscapture)[(text-color: (rgb:185,222,193))[//Geese//], ]
(if: $kiku4 is in $hiscapture)[(text-color: yellow)[//SakeCup//], ]
(if: $ame4 is in $hiscapture)[(text-color: (rgb:72,160,40))[''Rain Man''], ]
(if: $ame3 is in $hiscapture)[(text-color: (rgb:72,160,40))[//Swallow//]]
}
{
(if: $pine3 is in $hiscapture)[(text-color: green)[~~Pine~~], ]
(if: $plum3 is in $hiscapture)[(text-color: red)[~~PlumB.~~], ]
(if: $cherry3 is in $hiscapture)[(text-color: (rgb:255,180,182))[~~CherryB.~~], ]
(if: $fuji3 is in $hiscapture)[(text-color: (rgb: 250,0,250))[~~Wisteria~~], ]
(if: $iris3 is in $hiscapture)[(text-color: blue)[~~Iris~~], ]
(if: $peony3 is in $hiscapture)[(text-color: (rgb:238,130,220))[~~Peony~~], ]
(if: $hagi3 is in $hiscapture)[(text-color: (rgb:255,70,10))[~~B.Clover~~], ]
(if: $kiku3 is in $hiscapture)[(text-color: yellow)[~~Chrysanth.~~], ]
(if: $maple3 is in $hiscapture)[(text-color: (rgb:250,160,0))[~~Maple~~], ]
(if: $ame2 is in $hiscapture)[(text-color: (rgb:72,160,40))[~~Willow~~]]
}
{
(if: $pine2 is in $hiscapture)[(text-color: green)[Pine], ]
(if: $pine1 is in $hiscapture)[(text-color: green)[Pine], ]
(if: $plum2 is in $hiscapture)[(text-color: red)[PlumB.], ]
(if: $plum1 is in $hiscapture)[(text-color: red)[PlumB.], ]
(if: $cherry2 is in $hiscapture)[(text-color: (rgb:255,180,182))[CherryB.], ]
(if: $cherry1 is in $hiscapture)[(text-color: (rgb:255,180,182))[CherryB.], ]
(if: $fuji2 is in $hiscapture)[(text-color: (rgb: 250,0,250))[Wisteria], ]
(if: $fuji1 is in $hiscapture)[(text-color: (rgb: 250,0,250))[Wisteria], ]
(if: $iris2 is in $hiscapture)[(text-color: blue)[Iris], ]
(if: $iris1 is in $hiscapture)[(text-color: blue)[Iris], ]
(if: $peony2 is in $hiscapture)[(text-color: (rgb:238,130,220))[Peony], ]
(if: $peony1 is in $hiscapture)[(text-color: (rgb:238,130,220))[Peony], ]
(if: $hagi2 is in $hiscapture)[(text-color: (rgb:255,70,10))[B.Clover], ]
(if: $hagi1 is in $hiscapture)[(text-color: (rgb:255,70,10))[B.Clover], ]
(if: $grass2 is in $hiscapture)[(text-color: (rgb:185,222,193))[Grass], ]
(if: $grass1 is in $hiscapture)[(text-color: (rgb:185,222,193))[Grass], ]
(if: $kiku2 is in $hiscapture)[(text-color: yellow)[Chrysanth.], ]
(if: $kiku1 is in $hiscapture)[(text-color: yellow)[Chrysanth.], ]
(if: $maple2 is in $hiscapture)[(text-color: (rgb:250,160,0))[Maple], ]
(if: $maple1 is in $hiscapture)[(text-color: (rgb:250,160,0))[Maple], ]
(if: $ame1 is in $hiscapture)[(text-color: (rgb:72,160,40))[Willow], ]
(if: $kiri3 is in $hiscapture)[(text-color: (rgb:60,179,113))[Princess], ]
(if: $kiri2 is in $hiscapture)[(text-color: (rgb:60,179,113))[Princess], ]
(if: $kiri1 is in $hiscapture)[(text-color: (rgb:60,179,113))[Princess]]
}
|==|
]
<==
",
"Got it!"
)
}"We've got enough cards for two games of (linkrepeat: "Flower Bed")[(display: "flower bed dialog")]."
{
(move: (range:1,6) of $deck into $deal1)
(move: (range:1,6) of $deck into $deal2)
}
He shuffles the leftover cards from your game of ''True Flowers'' and deals 2 cards to your hand, 2 to the field, and 2 to his own hand, all face down. You each peep at your hands. "It's your wager, friend."
''Your Hand''
{
(if: $glasses is "Ryan's")
[(print: 1st of $deal1 of $pixel)` `
(print: 2st of $deal1 of $pixel)<br>
(print: 1st of $deal1 of $nagoyakabu)` + `(print: 2st of $deal1 of $nagoyakabu)]
(elseif: $glasses is "Louie's")
[(print: 1st of $deal1 of $louie)` `
(print: 2st of $deal1 of $louie)<br>
(print: 1st of $deal1 of $nagoyakabu)` + `(print: 2st of $deal1 of $nagoyakabu)]
(elseif: $glasses is "Sem's")
[(print: 1st of $deal1 of $sem)` `
(print: 2st of $deal1 of $sem)<br>
(print: 1st of $deal1 of $nagoyakabu)` + `(print: 2st of $deal1 of $nagoyakabu)]
(elseif: $glasses is "Heaven's")
[(print: 1st of $deal1 of $vapor)` `
(print: 2st of $deal1 of $vapor)<br>
(print: 1st of $deal1 of $nagoyakabu)` + `(print: 2st of $deal1 of $nagoyakabu)]
(else:)
[(print: 1st of $deal1 of $nagoyakabu) : (print: 1st of $deal1)<br>
(print: 2nd of $deal1 of $nagoyakabu) : (print: 2nd of $deal1)]
}
You have ''$truthtokens Truth Tokens''. How many will you bet?
(if: $truthtokens >= 1)[(link: "Bet 1 token.")[(set: $bet1 to 1)(goto: "bed 2")]]
(if: $truthtokens >= 3)[(link: "Bet 3 tokens.")[(set: $bet1 to 3)(goto: "bed 2")]]
(if: $truthtokens >= 5)[(link: "Bet 5 tokens.")[(set: $bet1 to 5)(goto: "bed 2")]]
(if: $truthtokens >= 10)[(link: "Bet 10 tokens.")[(set: $bet1 to 10)(goto: "bed 2")]]
(if: $truthtokens >= 25)[(link: "Bet 25 tokens.")[(set: $bet1 to 25)(goto: "bed 2")]]You and your opponent each drop ''$bet1 token(unless: $bet1 is 1)[s]'' into a small basket. "We've sowed our 'seeds', so to speak. Let's see what's grown in our ''Flower Bed'' now." He uncovers the cards of the field, so you can each plan which arrangement of flowers to show.
''The Field''
{
(if: $glasses is "Ryan's")
[(print: 3st of $deal1 of $pixel)` `
(print: 4st of $deal1 of $pixel)<br>
(print: 3st of $deal1 of $nagoyakabu)` + `(print: 4st of $deal1 of $nagoyakabu)]
(elseif: $glasses is "Louie's")
[(print: 3st of $deal1 of $louie)` `
(print: 4st of $deal1 of $louie)<br>
(print: 3st of $deal1 of $nagoyakabu)` + `(print: 4st of $deal1 of $nagoyakabu)]
(elseif: $glasses is "Sem's")
[(print: 3st of $deal1 of $sem)` `
(print: 4st of $deal1 of $sem)<br>
(print: 3st of $deal1 of $nagoyakabu)` + `(print: 4st of $deal1 of $nagoyakabu)]
(elseif: $glasses is "Heaven's")
[(print: 3st of $deal1 of $vapor)` `
(print: 4st of $deal1 of $vapor)<br>
(print: 3st of $deal1 of $nagoyakabu)` + `(print: 4st of $deal1 of $nagoyakabu)]
(else:)
[(print: 3st of $deal1 of $nagoyakabu) : (print: 3st of $deal1)<br>
(print: 4nd of $deal1 of $nagoyakabu) : (print: 4nd of $deal1)]
}
''Your Hand''
{
(if: $glasses is "Ryan's")
[(print: 1st of $deal1 of $pixel)` `
(print: 2st of $deal1 of $pixel)<br>
(print: 1st of $deal1 of $nagoyakabu)` + `(print: 2st of $deal1 of $nagoyakabu)]
(elseif: $glasses is "Louie's")
[(print: 1st of $deal1 of $louie)` `
(print: 2st of $deal1 of $louie)<br>
(print: 1st of $deal1 of $nagoyakabu)` + `(print: 2st of $deal1 of $nagoyakabu)]
(elseif: $glasses is "Heaven's")
[(print: 1st of $deal1 of $vapor)` `
(print: 2st of $deal1 of $vapor)<br>
(print: 1st of $deal1 of $nagoyakabu)` + `(print: 2st of $deal1 of $nagoyakabu)]
(elseif: $glasses is "Sem's")
[(print: 1st of $deal1 of $sem)` `
(print: 2st of $deal1 of $sem)<br>
(print: 1st of $deal1 of $nagoyakabu)` + `(print: 2st of $deal1 of $nagoyakabu)]
(else:)
[(print: 1st of $deal1 of $nagoyakabu) : (print: 1st of $deal1)<br>
(print: 2nd of $deal1 of $nagoyakabu) : (print: 2nd of $deal1)]
}
Choose 1 card ''not'' to use in order to form the best 3-card hand.
(enchantin: ?link, (textcolor: "white"))
[(link: "(print: 3rd of $deal1)")[(set: $reject to 3rd of $deal1)(goto: "bed 3")]
(link: "(print: 4th of $deal1)")[(set: $reject to 4th of $deal1)(goto: "bed 3")]
(link: "(print: 1st of $deal1)")[(set: $reject to 1st of $deal1)(goto: "bed 3")]
(link: "(print: 2nd of $deal1)")[(set: $reject to 2nd of $deal1)(goto: "bed 3")]]You each show off your floral arrangements.
{
(set: $myhand to (range:1,4) of $deal1 - (a: $reject))
(set: $hishand to (range:3,6) of $deal1)
(set: _myhandval to 1st of $myhand of $nagoyakabu + 2nd of $myhand of $nagoyakabu + 3rd of $myhand of $nagoyakabu)
(set: _myhandval to it % 10)
(set: _hishandval to (max:
(1st of $hishand of $nagoyakabu + 2nd of $hishand of $nagoyakabu + 3rd of $hishand of $nagoyakabu) % 10,
(1st of $hishand of $nagoyakabu + 2nd of $hishand of $nagoyakabu + 4th of $hishand of $nagoyakabu) % 10,
(1st of $hishand of $nagoyakabu + 3rd of $hishand of $nagoyakabu + 4th of $hishand of $nagoyakabu) % 10,
(2nd of $hishand of $nagoyakabu + 3rd of $hishand of $nagoyakabu + 4th of $hishand of $nagoyakabu) % 10
)
)
}You build your hand from (print: 1st of $myhand), (print: 2nd of $myhand), and (print: 3rd of $myhand), which have values of (print: 1st of $myhand of $nagoyakabu), (print: 2nd of $myhand of $nagoyakabu), and (print: 3rd of $myhand of $nagoyakabu), respectively, for a final score of _myhandval.
{
Your opponent makes his hand out of
(if: _hishandval is (1st of $hishand of $nagoyakabu + 2nd of $hishand of $nagoyakabu + 3rd of $hishand of $nagoyakabu) % 10)
[(print: 1st of $hishand), (print: 2nd of $hishand), and (print: 3rd of $hishand), with values of (print: 1st of $hishand of $nagoyakabu), (print: 2nd of $hishand of $nagoyakabu), and (print: 3rd of $hishand of $nagoyakabu), ]
(elseif: _hishandval is (1st of $hishand of $nagoyakabu + 2nd of $hishand of $nagoyakabu + 4th of $hishand of $nagoyakabu) % 10)
[(print: 1st of $hishand), (print: 2nd of $hishand), and (print: 3rd of $hishand), with values of (print: 1st of $hishand of $nagoyakabu), (print: 2nd of $hishand of $nagoyakabu), and (print: 4th of $hishand of $nagoyakabu), ]
(elseif: _hishandval is (1st of $hishand of $nagoyakabu + 3rd of $hishand of $nagoyakabu + 4th of $hishand of $nagoyakabu) % 10)
[(print: 1st of $hishand), (print: 3rd of $hishand), and (print: 4th of $hishand), with values of (print: 1st of $hishand of $nagoyakabu), (print: 3rd of $hishand of $nagoyakabu), and (print: 4th of $hishand of $nagoyakabu), ]
(else:)
[(print: 2nd of $hishand), (print: 3rd of $hishand), and (print: 4th of $hishand), with values of (print: 2nd of $hishand of $nagoyakabu), (print: 3rd of $hishand of $nagoyakabu), and (print: 4th of $hishand of $nagoyakabu), ]
for a score of _hishandval.
}
{
(if: _hishandval is _myhandval)
[(set: $tokodraws to it + 1)
"It's _hishandval to _myhandval, a draw. We each keep our ''tokens''."
]
(elseif: _hishandval > _myhandval)
[(set: $tokolosses to it + 1)
(set: $truthtokens to it - $bet1)
"My _hishandval beats your _myhandval. I'll be taking ''$bet1 token(unless: $bet1 is 1)[s]'', thanks."
]
(elseif: _hishandval < _myhandval)
[(set: $tokowins to it + 1)
(set: $truthtokens to it + $bet1)
"Your _myhandval beats my _hishandval. As promised, here's ''$bet1 token(unless: $bet1 is 1)[s]''".
]
}
"Wanna go another round?" he asks, (either: "gently shaking the empty token cup,", "taking the last few cards of the deck into his hands,", "rhetorically you imagine,", "") and without awaiting your response he deals out the next game. "Have a look, and then decide."
''Your Hand''
{
(if: $glasses is "Ryan's")
[(print: 1st of $deal2 of $pixel)` `
(print: 2st of $deal2 of $pixel)<br>
(print: 1st of $deal2 of $nagoyakabu)` + `(print: 2st of $deal2 of $nagoyakabu)]
(elseif: $glasses is "Louie's")
[(print: 1st of $deal2 of $louie)` `
(print: 2st of $deal2 of $louie)<br>
(print: 1st of $deal2 of $nagoyakabu)` + `(print: 2st of $deal2 of $nagoyakabu)]
(elseif: $glasses is "Sem's")
[(print: 1st of $deal2 of $sem)` `
(print: 2st of $deal2 of $sem)<br>
(print: 1st of $deal2 of $nagoyakabu)` + `(print: 2st of $deal2 of $nagoyakabu)]
(elseif: $glasses is "Heaven's")
[(print: 1st of $deal2 of $vapor)` `
(print: 2st of $deal2 of $vapor)<br>
(print: 1st of $deal2 of $nagoyakabu)` + `(print: 2st of $deal2 of $nagoyakabu)]
(else:)
[(print: 1st of $deal2 of $nagoyakabu) : (print: 1st of $deal2)<br>
(print: 2nd of $deal2 of $nagoyakabu) : (print: 2nd of $deal2)]
}
"You want to keep going, don't you," (either: "he prods", "he asks", "he says with a twinkle in his eye", "he suggests").
(link: "Let's stop here.")[(goto: "bed end")]
(link: "Same wager, please.")[(set: $bet2 to $bet1)(goto: "bed 4")]
(link: "Double it!")[(set: $bet2 to 2 * $bet1)(goto: "bed 4")](if: $bet2 is 2 * $bet1)["Double it? I've already doubled it in my mind!" ]You and your opponent each drop ''$bet2 token(unless: $bet2 is 1)[s]'' into a small cup. "We've sowed our 'seeds' once more. Let's see what'll grow in our ''Flower Bed'' now." He flips over the cards of the field, allowing you to appraise the situation and select which flowers to show.
''The Field''
{
(if: $glasses is "Ryan's")
[(print: 3st of $deal2 of $pixel)` `
(print: 4st of $deal2 of $pixel)<br>
(print: 3st of $deal2 of $nagoyakabu)` + `(print: 4st of $deal2 of $nagoyakabu)]
(elseif: $glasses is "Louie's")
[(print: 3st of $deal2 of $louie)` `
(print: 4st of $deal2 of $louie)<br>
(print: 3st of $deal2 of $nagoyakabu)` + `(print: 4st of $deal2 of $nagoyakabu)]
(elseif: $glasses is "Sem's")
[(print: 3st of $deal2 of $sem)` `
(print: 4st of $deal2 of $sem)<br>
(print: 3st of $deal2 of $nagoyakabu)` + `(print: 4st of $deal2 of $nagoyakabu)]
(elseif: $glasses is "Heaven's")
[(print: 3st of $deal2 of $vapor)` `
(print: 4st of $deal2 of $vapor)<br>
(print: 3st of $deal2 of $nagoyakabu)` + `(print: 4st of $deal2 of $nagoyakabu)]
(else:)
[(print: 3st of $deal2 of $nagoyakabu) : (print: 3st of $deal2)<br>
(print: 4nd of $deal2 of $nagoyakabu) : (print: 4nd of $deal2)]
}
''Your Hand''
{
(if: $glasses is "Ryan's")
[(print: 1st of $deal2 of $pixel)` `
(print: 2st of $deal2 of $pixel)<br>
(print: 1st of $deal2 of $nagoyakabu)` + `(print: 2st of $deal2 of $nagoyakabu)]
(elseif: $glasses is "Louie's")
[(print: 1st of $deal2 of $louie)` `
(print: 2st of $deal2 of $louie)<br>
(print: 1st of $deal2 of $nagoyakabu)` + `(print: 2st of $deal2 of $nagoyakabu)]
(elseif: $glasses is "Heaven's")
[(print: 1st of $deal2 of $vapor)` `
(print: 2st of $deal2 of $vapor)<br>
(print: 1st of $deal2 of $nagoyakabu)` + `(print: 2st of $deal2 of $nagoyakabu)]
(elseif: $glasses is "Sem's")
[(print: 1st of $deal2 of $sem)` `
(print: 2st of $deal2 of $sem)<br>
(print: 1st of $deal2 of $nagoyakabu)` + `(print: 2st of $deal2 of $nagoyakabu)]
(else:)
[(print: 1st of $deal2 of $nagoyakabu) : (print: 1st of $deal2)<br>
(print: 2nd of $deal2 of $nagoyakabu) : (print: 2nd of $deal2)]
}
Choose 1 card ''not'' to use in order to form the best 3-card hand.
(enchantin: ?link, (textcolor: "white"))
[(link: "(print: 3rd of $deal2)")[(set: $reject to 3rd of $deal2)(goto: "bed end")]
(link: "(print: 4th of $deal2)")[(set: $reject to 4th of $deal2)(goto: "bed end")]
(link: "(print: 1st of $deal2)")[(set: $reject to 1st of $deal2)(goto: "bed end")]
(link: "(print: 2nd of $deal2)")[(set: $reject to 2nd of $deal2)(goto: "bed end")]](if: last of (history:) is "bed 4")[{
Time to unveil your flowers to one another.
(set: $myhand to (range:1,4) of $deal2 - (a: $reject))
(set: $hishand to (range:3,6) of $deal2)
(set: _myhandval to 1st of $myhand of $nagoyakabu + 2nd of $myhand of $nagoyakabu + 3rd of $myhand of $nagoyakabu)
(set: _myhandval to it % 10)
(set: _hishandval to (max:
(1st of $hishand of $nagoyakabu + 2nd of $hishand of $nagoyakabu + 3rd of $hishand of $nagoyakabu) % 10,
(1st of $hishand of $nagoyakabu + 2nd of $hishand of $nagoyakabu + 4th of $hishand of $nagoyakabu) % 10,
(1st of $hishand of $nagoyakabu + 3rd of $hishand of $nagoyakabu + 4th of $hishand of $nagoyakabu) % 10,
(2nd of $hishand of $nagoyakabu + 3rd of $hishand of $nagoyakabu + 4th of $hishand of $nagoyakabu) % 10
)
)
}You choose (print: 1st of $myhand), (print: 2nd of $myhand), and (print: 3rd of $myhand), which have values of (print: 1st of $myhand of $nagoyakabu), (print: 2nd of $myhand of $nagoyakabu), and (print: 3rd of $myhand of $nagoyakabu), respectively, for a final score of _myhandval.
{
Your opponent goes with
(if: _hishandval is (1st of $hishand of $nagoyakabu + 2nd of $hishand of $nagoyakabu + 3rd of $hishand of $nagoyakabu) % 10)
[(print: 1st of $hishand), (print: 2nd of $hishand), and (print: 3rd of $hishand), with values of (print: 1st of $hishand of $nagoyakabu), (print: 2nd of $hishand of $nagoyakabu), and (print: 3rd of $hishand of $nagoyakabu), ]
(elseif: _hishandval is (1st of $hishand of $nagoyakabu + 2nd of $hishand of $nagoyakabu + 4th of $hishand of $nagoyakabu) % 10)
[(print: 1st of $hishand), (print: 2nd of $hishand), and (print: 3rd of $hishand), with values of (print: 1st of $hishand of $nagoyakabu), (print: 2nd of $hishand of $nagoyakabu), and (print: 4th of $hishand of $nagoyakabu), ]
(elseif: _hishandval is (1st of $hishand of $nagoyakabu + 3rd of $hishand of $nagoyakabu + 4th of $hishand of $nagoyakabu) % 10)
[(print: 1st of $hishand), (print: 3rd of $hishand), and (print: 4th of $hishand), with values of (print: 1st of $hishand of $nagoyakabu), (print: 3rd of $hishand of $nagoyakabu), and (print: 4th of $hishand of $nagoyakabu), ]
(else:)
[(print: 2nd of $hishand), (print: 3rd of $hishand), and (print: 4th of $hishand), with values of (print: 2nd of $hishand of $nagoyakabu), (print: 3rd of $hishand of $nagoyakabu), and (print: 4th of $hishand of $nagoyakabu), ]
for a score of _hishandval.
}
{
(if: _hishandval is _myhandval)
[(set: $tokodraws to it + 1)
"It's _hishandval to _myhandval, a draw. We each keep our ''tokens''."
]
(elseif: _hishandval > _myhandval)
[(set: $tokolosses to it + 1)
(set: $truthtokens to it - $bet2)
"My _hishandval beats your _myhandval. I'll be taking those ''$bet2 token(unless: $bet2 is 1)[s]'', thanks."
]
(elseif: _hishandval < _myhandval)
[(set: $tokowins to it + 1)
(set: $truthtokens to it + $bet2)
"Your _myhandval beats my _hishandval. As promised, here's ''$bet2 token(unless: $bet2 is 1)[s]''".
]
}]
You have a balance of ''$truthtokens Truth Tokens.''
<br><br>''Your current record against him in Flower Bed is $tokowins win(unless:$tokowins is 1)[s], $tokodraws draw(unless:$tokodraws is 1)[s], and $tokolosses loss(unless:$tokolosses is 1)[es], while your record in True Flowers is $honwins win(unless:$honwins is 1)[s], $hondraws draw(unless:$hondraws is 1)[s], and $honlosses loss(unless:$honlosses is 1)[es].''
"Care for another game of [[True Flowers]]?"
{
(link:"Save.")
[
(if: (save-game:"Slot A"))
[Game saved!]
(else: )
[The game was unable to be saved.]
]
}
(textsize:0.75)[[[See all games.->game list]]](textsize:0.75)["''Mushi'' is the name of a classic 2-player game from Osaka, using only 40 cards. The name might literally be translated as ''Insect'', but it feels to me more like a proper noun."
"Anyhow, it shares many characteristics with (linkrepeat: "Foolish Flowers")[(goto: "Foolish Flowers rules")], but has three major differences:"
* "First off, as I said, ''Mushi'' is played using fewer cards. This is achieved by removing the all the (text-color: (rgb:238,130,220))[Peony] and (text-color: (rgb:255,70,10))[Bush Clover] cards from the deck."
* "The point values of the remaining cards is the same as in ''Foolish Flowers'', but there is an additional layer to the scoring system of the game: (linkrepeat: "Special Sets")[(display: "mushi yaku dialog")], or as they are known in Japanese, //yaku//. Completing a ''Set'' in this game by capturing all of its components allows you to siphon points from your opponent."
* "The final and perhaps most exciting aspect of this game is its treatment of $ame1. This card acts as a limited ''wild card'', able to match any card ''except'' another (text-color: (rgb:72,160,40))[Willow]. If it has no valid matches, it stays on the field like any other card. Once on the field (for any reason), it automatically pairs with the first non-(text-color: (rgb:72,160,40))[Willow] card from the deck. Because of this, there are usually 2 cards left on the field at the end of a round. One card is a (text-color: (rgb:72,160,40))[Willow], which automatically goes to the player who captured the other 2 non-''wild'' (text-color: (rgb:72,160,40))[Willows]. The other card is of the same suit as whatever card was captured using $ame1, and goes to whichever player has its mate."
"Just as in ''Foolish Flowers'', whoever has the most points at the end of the round is the winner. If you can beat me, I'll hand over ''Insect Tokens'' equal to the difference between our scores."]
(link: "Ready to play?")[(goto: last of (history:))](display: "The Field"){
(set: _hand to 0)
(set: _deck to 0)
(display: "Score Calc")}
''The current score is his $valhiscap points to your $valmycap points.''
Play a card to the field.
(enchantin: ?link, (textcolor: "white"))[(display: "Your Hand")]
(textsize: 0.6)[
=><=
''(linkrepeat: "Special Set")[(display: "mushi yaku dialog")] Progress''
<==
=||||=
==>
''Yours''
{
(if: $pine4 is in $mycapture)
[(text-color: green)[''Crane''], ]
(if: $cherry4 is in $mycapture)
[(text-color: (rgb:255,180,182))[''Curtain''], ]
(if: $grass4 is in $mycapture)
[(text-color: (rgb:185,222,193))[''Moon''], ]
(if: $ame4 is in $mycapture)
[(text-color: (rgb:72,160,40))[''Rain Man''], ]
(if: $kiri4 is in $mycapture)
[(text-color: (rgb:60,179,113))[''Phoenix'']]
}
{
(if: $pine4 is in $mycapture)
[(text-color: green)[''Crane''], ]
(if: $plum4 is in $mycapture)
[(text-color: red)[//Warbler//], ]
(if: $cherry4 is in $mycapture)
[(text-color: (rgb:255,180,182))[''Curtain'']]
}
{
(if: $fuji4 is in $mycapture)
[(text-color: (rgb: 250,0,250))[//Cuckoo//], ]
(if: $fuji3 is in $mycapture)
[(text-color: (rgb: 250,0,250))[~~Ribbon~~], ]
(if: $fuji2 is in $mycapture)
[(text-color: (rgb: 250,0,250))[Chaff], ]
(if: $fuji1 is in $mycapture)
[(text-color: (rgb: 250,0,250))[Chaff]]
}
{
(if: $kiri4 is in $mycapture)
[(text-color: (rgb: 60,179,113))[''Phoenix''], ]
(if: $kiri3 is in $mycapture)
[(text-color: (rgb: 60,179,113))[Chaff], ]
(if: $kiri2 is in $mycapture)
[(text-color: (rgb: 60,179,113))[Chaff], ]
(if: $kiri1 is in $mycapture)
[(text-color: (rgb: 60,179,113))[Chaff]]
}
=|=
=><=
''5Brights
3Brights''
(text-color: (rgb: 250,0,250))[Wisteria]
(text-color: (rgb:60,179,113))[Princess]
=||||=
<==
''His''
{
(if: $pine4 is in $hiscapture)
[(text-color: green)[''Crane''], ]
(if: $cherry4 is in $hiscapture)
[(text-color: (rgb:255,180,182))[''Curtain''], ]
(if: $grass4 is in $hiscapture)
[(text-color: (rgb:185,222,193))[''Moon''], ]
(if: $ame4 is in $hiscapture)
[(text-color: (rgb:72,160,40))[''Rain Man''], ]
(if: $kiri4 is in $hiscapture)
[(text-color: (rgb:60,179,113))[''Phoenix'']]
}
{
(if: $pine4 is in $hiscapture)
[(text-color: green)[''Crane''], ]
(if: $plum4 is in $hiscapture)
[(text-color: red)[//Warbler//], ]
(if: $cherry4 is in $hiscapture)
[(text-color: (rgb:255,180,182))[''Curtain'']]
}
{
(if: $fuji4 is in $hiscapture)
[(text-color: (rgb: 250,0,250))[//Cuckoo//], ]
(if: $fuji3 is in $hiscapture)
[(text-color: (rgb: 250,0,250))[~~Ribbon~~], ]
(if: $fuji2 is in $hiscapture)
[(text-color: (rgb: 250,0,250))[Chaff], ]
(if: $fuji1 is in $hiscapture)
[(text-color: (rgb: 250,0,250))[Chaff]]
}
{
(if: $kiri4 is in $hiscapture)
[(text-color: (rgb: 60,179,113))[''Phoenix''], ]
(if: $kiri3 is in $hiscapture)
[(text-color: (rgb: 60,179,113))[Chaff], ]
(if: $kiri2 is in $hiscapture)
[(text-color: (rgb: 60,179,113))[Chaff], ]
(if: $kiri1 is in $hiscapture)
[(text-color: (rgb: 60,179,113))[Chaff]]
}
|==|
=><=
(linkrepeat: "See all captured cards")
[(display: "baka cap lists")]
[[Get help->Mushi rules]]
[[MENU->menu]]
]
<==
{
(click: ?h1)
[
(move: 1st of $myhand into _hand)
(set: $hand to _hand)
(if: _hand is $ame1)
[(goto: "anything but willow")]
(else:)
[(goto: "mushi opponent move")]
]
(click: ?h2)
[
(move: 2nd of $myhand into _hand)
(set: $hand to _hand)
(if: _hand is $ame1)
[(goto: "anything but willow")]
(else:)
[(goto: "mushi opponent move")]
]
(click: ?h3)
[
(move: 3rd of $myhand into _hand)
(set: $hand to _hand)
(if: _hand is $ame1)
[(goto: "anything but willow")]
(else:)
[(goto: "mushi opponent move")]
]
(click: ?h4)
[
(move: 4th of $myhand into _hand)
(set: $hand to _hand)
(if: _hand is $ame1)
[(goto: "anything but willow")]
(else:)
[(goto: "mushi opponent move")]
]
(click: ?h5)
[
(move: 5th of $myhand into _hand)
(set: $hand to _hand)
(if: _hand is $ame1)
[(goto: "anything but willow")]
(else:)
[(goto: "mushi opponent move")]
]
(click: ?h6)
[
(move: 6th of $myhand into _hand)
(set: $hand to _hand)
(if: _hand is $ame1)
[(goto: "anything but willow")]
(else:)
[(goto: "mushi opponent move")]
]
(click: ?h7)
[
(move: 7th of $myhand into _hand)
(set: $hand to _hand)
(if: _hand is $ame1)
[(goto: "anything but willow")]
(else:)
[(goto: "mushi opponent move")]
]
(click: ?h8)
[
(move: 8th of $myhand into _hand)
(set: $hand to _hand)
(if: _hand is $ame1)
[(goto: "anything but willow")]
(else:)
[(goto: "mushi opponent move")]
]
}{(set: _hand to 0)
(set: _pickval to (a:))
(if: last of (history:) is in (a: "mushi your move 1", "anything but willow"))
[(display: "your move 2")]
(if: last of (history:) is "anything but willow 2")
[(display: "post wild deck")]
}
(unless: length of $hishand is 0)
[
{
(set: _suitfield to $field of $suits)
(display: "med opponent")
(move: 1st of $deck into _deck)
(set: _suithand to _hand of $suits)
(set: _suitdeck to _deck of $suits)
(either:
"Without hesitation",
"Your opponent flashes a grin as",
"With a glint in his eye,",
"He sighs as",
"With a loud ''CLACK'',",
"Blithely") he places (print: _hand) on the field,
(if: _hand is $ame1 and all of ($perfectdeck - (a: $ame1, $ame2, $ame3, $ame4)) is not in $field)
[(set: $field to it + (a: $ame1))
(set: $matchhand to "all non-(text-color: (rgb:72,160,40))[Willow]")]
(elseif: _hand is $ame1)
[(set: $handpickone to (a:))
(set: $matchhand to "all non-(text-color: (rgb:72,160,40))[Willow]")
(set: $hiscapture to it + (a:_hand))
(if: length of $field >= 15)
[(if: 15th of _suitfield is not "(text-color: (rgb:72,160,40))[Willow]")
[(set: $handpickone to it + (a: 15th of $field))]]
(if: length of $field >= 14)
[(if: 14st of _suitfield is not "(text-color: (rgb:72,160,40))[Willow]")
[(set: $handpickone to it + (a: 14st of $field))]]
(if: length of $field >= 13)
[(if: 13st of _suitfield is not "(text-color: (rgb:72,160,40))[Willow]")
[(set: $handpickone to it + (a: 13st of $field))]]
(if: length of $field >= 12)
[(if: 12st of _suitfield is not "(text-color: (rgb:72,160,40))[Willow]")
[(set: $handpickone to it + (a: 12st of $field))]]
(if: length of $field >= 11)
[(if: 11st of _suitfield is not "(text-color: (rgb:72,160,40))[Willow]")
[(set: $handpickone to it + (a: 11st of $field))]]
(if: length of $field >= 10)
[(if: 10st of _suitfield is not "(text-color: (rgb:72,160,40))[Willow]")
[(set: $handpickone to it + (a: 10st of $field))]]
(if: length of $field >= 9)
[(if: 9st of _suitfield is not "(text-color: (rgb:72,160,40))[Willow]")
[(set: $handpickone to it + (a: 9st of $field))]]
(if: length of $field >= 8)
[(if: 8st of _suitfield is not "(text-color: (rgb:72,160,40))[Willow]")
[(set: $handpickone to it + (a: 8st of $field))]]
(if: length of $field >= 7)
[(if: 7st of _suitfield is not "(text-color: (rgb:72,160,40))[Willow]")
[(set: $handpickone to it + (a: 7st of $field))]]
(if: length of $field >= 6)
[(if: 6st of _suitfield is not "(text-color: (rgb:72,160,40))[Willow]")
[(set: $handpickone to it + (a: 6st of $field))]]
(if: length of $field >= 5)
[(if: 5st of _suitfield is not "(text-color: (rgb:72,160,40))[Willow]")
[(set: $handpickone to it + (a: 5st of $field))]]
(if: length of $field >= 4)
[(if: 4st of _suitfield is not "(text-color: (rgb:72,160,40))[Willow]")
[(set: $handpickone to it + (a: 4st of $field))]]
(if: length of $field >= 3)
[(if: 3st of _suitfield is not "(text-color: (rgb:72,160,40))[Willow]")
[(set: $handpickone to it + (a: 3st of $field))]]
(if: length of $field >= 2)
[(if: 2st of _suitfield is not "(text-color: (rgb:72,160,40))[Willow]")
[(set: $handpickone to it + (a: 2st of $field))]]
(if: length of $field >= 1)
[(if: 1st of _suitfield is not "(text-color: (rgb:72,160,40))[Willow]")
[(set: $handpickone to it + (a: 1st of $field))]]
(set: _pickval to $handpickone of $bakaval)
(if: length of $handpickone is 1)
[(set: $handchosen to 1st of $handpickone)]
(else:)
[
(if: length of $handpickone >= 15)
[(if: 15th of _pickval is not (max: ..._pickval))
[(set: $handpickone to it - (a: 15th of $handpickone))]]
(if: length of $handpickone >= 14)
[(if: 14st of _pickval is not (max: ..._pickval))
[(set: $handpickone to it - (a: 14st of $handpickone))]]
(if: length of $handpickone >= 13)
[(if: 13st of _pickval is not (max: ..._pickval))
[(set: $handpickone to it - (a: 13st of $handpickone))]]
(if: length of $handpickone >= 12)
[(if: 12st of _pickval is not (max: ..._pickval))
[(set: $handpickone to it - (a: 12st of $handpickone))]]
(if: length of $handpickone >= 11)
[(if: 11st of _pickval is not (max: ..._pickval))
[(set: $handpickone to it - (a: 11st of $handpickone))]]
(if: length of $handpickone >= 10)
[(if: 10st of _pickval is not (max: ..._pickval))
[(set: $handpickone to it - (a: 10st of $handpickone))]]
(if: length of $handpickone >= 9)
[(if: 9st of _pickval is not (max: ..._pickval))
[(set: $handpickone to it - (a: 9st of $handpickone))]]
(if: length of $handpickone >= 8)
[(if: 8st of _pickval is not (max: ..._pickval))
[(set: $handpickone to it - (a: 8st of $handpickone))]]
(if: length of $handpickone >= 7)
[(if: 7st of _pickval is not (max: ..._pickval))
[(set: $handpickone to it - (a: 7st of $handpickone))]]
(if: length of $handpickone >= 6)
[(if: 6st of _pickval is not (max: ..._pickval))
[(set: $handpickone to it - (a: 6st of $handpickone))]]
(if: length of $handpickone >= 5)
[(if: 5st of _pickval is not (max: ..._pickval))
[(set: $handpickone to it - (a: 5st of $handpickone))]]
(if: length of $handpickone >= 4)
[(if: 4st of _pickval is not (max: ..._pickval))
[(set: $handpickone to it - (a: 4st of $handpickone))]]
(if: length of $handpickone >= 3)
[(if: 3st of _pickval is not (max: ..._pickval))
[(set: $handpickone to it - (a: 3st of $handpickone))]]
(if: length of $handpickone >= 2)
[(if: 2st of _pickval is not (max: ..._pickval))
[(set: $handpickone to it - (a: 2st of $handpickone))]]
(if: length of $handpickone >= 1)
[(if: 1st of _pickval is not (max: ..._pickval))
[(set: $handpickone to it - (a: 1st of $handpickone))]]
(set: $handchosen to (either: ...$handpickone))
]
(set: $hiscapture to it + (a:$handchosen))
(set: $field to it - (a:$handchosen))
]
(elseif: (count: _suitfield, _suithand) matches 3)
[(set: $matchhand to 3)
(set: $hiscapture to it + (a:_hand) )
(for: each _fpos, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
[(if: length of $field >= _fpos)
[(if: (_fpos) of _suitfield matches _suithand)
[(set: $hiscapture to it + (a: (_fpos) of $field))
(set: $field to it - (a: (_fpos) of $field))]]
]
]
(elseif: (count: _suitfield, _suithand) matches 2)
[(set: $matchhand to 2)
(set: $hiscapture to it + (a:_hand))
(set: $handpickone to (a:))
(for: each _fpos, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
[(if: length of $field >= _fpos)
[(if: (_fpos) of _suitfield matches _suithand)
[(set: $handpickone to it + (a:(_fpos) of $field))]]
]
(if: 1st of $handpickone of $bakaval > 2nd of $handpickone of $bakaval)
[(set: $handchosen to 1st of $handpickone)]
(else:)
[(set: $handchosen to 2nd of $handpickone)]
(set: $hiscapture to it + (a:$handchosen))
(set: $field to it - (a:$handchosen))
]
(elseif: (count: _suitfield, _suithand) matches 1)
[(set: $matchhand to 1)
(set: $hiscapture to it + (a:_hand) )
(for: each _fpos, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
[(if: length of $field >= _fpos)
[(if: (_fpos) of _suitfield matches _suithand)
[(set: $hiscapture to it + (a: (_fpos) of $field))
(set: $field to it - (a: (_fpos) of $field))]]
]
]
(else:)
[(set: $matchhand to 0)
(set: $field to it + (a:_hand) )]
(set: _suitfield to $field of $suits)
} which matches $matchhand card(if: $matchhand is not 1)[s], {
(if: $matchhand is 1)
[(print: last of $hiscapture),]
(elseif: $matchhand is 2)
[of which he takes $handchosen,]
(elseif: $matchhand is 3)
[taking the entire suit,]
(elseif: $matchhand is "all non-(text-color: (rgb:72,160,40))[Willow]" and $ame1 is not in $field)
[of which he chooses $handchosen,]
(elseif: $matchhand is "all non-(text-color: (rgb:72,160,40))[Willow]" and $ame1 is in $field)
[but there are none,]
(set: _suitfield to $field of $suits)
}
and subsequently (either: "unveils", "pulls", "unearths", "excavates", "plays") (print: _deck) from the top of the deck, {
(if: $ame1 is in $field and _suitdeck is not "(text-color: (rgb:72,160,40))[Willow]")
[(set: $hiscapture to it + (a: _deck, $ame1))
(set: $field to it - (a: $ame1))
(set: $matchdeck to "an electromagnetic")]
(elseif: _deck is $ame1 and all of ($perfectdeck - (a: $ame1, $ame2, $ame3, $ame4)) is not in $field)
[(set: $field to it + (a: $ame1))
(set: $matchdeck to "all non-(text-color: (rgb:72,160,40))[Willow] cards for")]
(elseif: _deck is $ame1)
[(set: $deckpickone to (a:))
(set: $matchdeck to "all non-(text-color: (rgb:72,160,40))[Willow] cards for")
(set: $hiscapture to it + (a: $ame1))
(if: length of $field >= 15)
[(if: 15th of _suitfield is not "(text-color: (rgb:72,160,40))[Willow]")
[(set: $deckpickone to it + (a: 15th of $field))]]
(if: length of $field >= 14)
[(if: 14st of _suitfield is not "(text-color: (rgb:72,160,40))[Willow]")
[(set: $deckpickone to it + (a: 14st of $field))]]
(if: length of $field >= 13)
[(if: 13st of _suitfield is not "(text-color: (rgb:72,160,40))[Willow]")
[(set: $deckpickone to it + (a: 13st of $field))]]
(if: length of $field >= 12)
[(if: 12st of _suitfield is not "(text-color: (rgb:72,160,40))[Willow]")
[(set: $deckpickone to it + (a: 12st of $field))]]
(if: length of $field >= 11)
[(if: 11st of _suitfield is not "(text-color: (rgb:72,160,40))[Willow]")
[(set: $deckpickone to it + (a: 11st of $field))]]
(if: length of $field >= 10)
[(if: 10st of _suitfield is not "(text-color: (rgb:72,160,40))[Willow]")
[(set: $deckpickone to it + (a: 10st of $field))]]
(if: length of $field >= 9)
[(if: 9st of _suitfield is not "(text-color: (rgb:72,160,40))[Willow]")
[(set: $deckpickone to it + (a: 9st of $field))]]
(if: length of $field >= 8)
[(if: 8st of _suitfield is not "(text-color: (rgb:72,160,40))[Willow]")
[(set: $deckpickone to it + (a: 8st of $field))]]
(if: length of $field >= 7)
[(if: 7st of _suitfield is not "(text-color: (rgb:72,160,40))[Willow]")
[(set: $deckpickone to it + (a: 7st of $field))]]
(if: length of $field >= 6)
[(if: 6st of _suitfield is not "(text-color: (rgb:72,160,40))[Willow]")
[(set: $deckpickone to it + (a: 6st of $field))]]
(if: length of $field >= 5)
[(if: 5st of _suitfield is not "(text-color: (rgb:72,160,40))[Willow]")
[(set: $deckpickone to it + (a: 5st of $field))]]
(if: length of $field >= 4)
[(if: 4st of _suitfield is not "(text-color: (rgb:72,160,40))[Willow]")
[(set: $deckpickone to it + (a: 4st of $field))]]
(if: length of $field >= 3)
[(if: 3st of _suitfield is not "(text-color: (rgb:72,160,40))[Willow]")
[(set: $deckpickone to it + (a: 3st of $field))]]
(if: length of $field >= 2)
[(if: 2st of _suitfield is not "(text-color: (rgb:72,160,40))[Willow]")
[(set: $deckpickone to it + (a: 2st of $field))]]
(if: length of $field >= 1)
[(if: 1st of _suitfield is not "(text-color: (rgb:72,160,40))[Willow]")
[(set: $deckpickone to it + (a: 1st of $field))]]
(set: _pickval to $deckpickone of $bakaval)
(if: length of $deckpickone is 1)
[(set: $deckchosen to 1st of $deckpickone)]
(else:)
[
(if: length of $deckpickone >= 15)
[(if: 15th of _pickval is not (max: ..._pickval))
[(set: $deckpickone to it - (a: 15th of $deckpickone))]]
(if: length of $deckpickone >= 14)
[(if: 14st of _pickval is not (max: ..._pickval))
[(set: $deckpickone to it - (a: 14st of $deckpickone))]]
(if: length of $deckpickone >= 13)
[(if: 13st of _pickval is not (max: ..._pickval))
[(set: $deckpickone to it - (a: 13st of $deckpickone))]]
(if: length of $deckpickone >= 12)
[(if: 12st of _pickval is not (max: ..._pickval))
[(set: $deckpickone to it - (a: 12st of $deckpickone))]]
(if: length of $deckpickone >= 11)
[(if: 11st of _pickval is not (max: ..._pickval))
[(set: $deckpickone to it - (a: 11st of $deckpickone))]]
(if: length of $deckpickone >= 10)
[(if: 10st of _pickval is not (max: ..._pickval))
[(set: $deckpickone to it - (a: 10st of $deckpickone))]]
(if: length of $deckpickone >= 9)
[(if: 9st of _pickval is not (max: ..._pickval))
[(set: $deckpickone to it - (a: 9st of $deckpickone))]]
(if: length of $deckpickone >= 8)
[(if: 8st of _pickval is not (max: ..._pickval))
[(set: $deckpickone to it - (a: 8st of $deckpickone))]]
(if: length of $deckpickone >= 7)
[(if: 7st of _pickval is not (max: ..._pickval))
[(set: $deckpickone to it - (a: 7st of $deckpickone))]]
(if: length of $deckpickone >= 6)
[(if: 6st of _pickval is not (max: ..._pickval))
[(set: $deckpickone to it - (a: 6st of $deckpickone))]]
(if: length of $deckpickone >= 5)
[(if: 5st of _pickval is not (max: ..._pickval))
[(set: $deckpickone to it - (a: 5st of $deckpickone))]]
(if: length of $deckpickone >= 4)
[(if: 4st of _pickval is not (max: ..._pickval))
[(set: $deckpickone to it - (a: 4st of $deckpickone))]]
(if: length of $deckpickone >= 3)
[(if: 3st of _pickval is not (max: ..._pickval))
[(set: $deckpickone to it - (a: 3st of $deckpickone))]]
(if: length of $deckpickone >= 2)
[(if: 2st of _pickval is not (max: ..._pickval))
[(set: $deckpickone to it - (a: 2st of $deckpickone))]]
(if: length of $deckpickone >= 1)
[(if: 1st of _pickval is not (max: ..._pickval))
[(set: $deckpickone to it - (a: 1st of $deckpickone))]]
(set: $deckchosen to (either: ...$deckpickone))
]
(set: $hiscapture to it + (a:$deckchosen))
(set: $field to it - (a:$deckchosen))
]
(elseif: (count: _suitfield, _suitdeck) matches 3)
[(set: $matchdeck to 3)
(set: $hiscapture to it + (a:_deck) )
(for: each _fpos, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
[(if: length of $field >= _fpos)
[(if: (_fpos) of _suitfield matches _suitdeck)
[(set: $hiscapture to it + (a: (_fpos) of $field))
(set: $field to it - (a: (_fpos) of $field))]]
]
]
(elseif: (count: _suitfield, _suitdeck) matches 2)
[(set: $matchdeck to 2)
(set: $hiscapture to it + (a:_deck))
(set: $deckpickone to (a:))
(for: each _fpos, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
[(if: length of $field >= _fpos)
[(if: (_fpos) of _suitfield matches _suitdeck)
[(set: $deckpickone to it + (a:(_fpos) of $field))]]
]
(if: 1st of $deckpickone of $bakaval > 2nd of $deckpickone of $bakaval)
[(set: $deckchosen to 1st of $deckpickone)]
(else:)
[(set: $deckchosen to 2nd of $deckpickone)]
(set: $hiscapture to it + (a:$deckchosen))
(set: $field to it - (a:$deckchosen))
]
(elseif: (count: _suitfield, _suitdeck) matches 1)
[(set: $matchdeck to 1)
(set: $hiscapture to it + (a:_deck) )
(for: each _fpos, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
[(if: length of $field >= _fpos)
[(if: (_fpos) of _suitfield matches _suitdeck)
[(set: $hiscapture to it + (a: (_fpos) of $field))
(set: $field to it - (a: (_fpos) of $field))]]
]
]
(else:)
[(set: $matchdeck to 0)
(set: $field to it + (a:_deck))]
}which has $matchdeck match(if: $matchdeck is not in (a: 1, "an electromagnetic"))[es] on the field{
(if: $matchdeck is 1)
[, (print: last of $hiscapture)]
(elseif: $matchdeck is 2)
[. He chooses $deckchosen]
(elseif: $matchdeck is 3)
[, the whole suit]
(elseif: $matchdeck is "all non-(text-color: (rgb:72,160,40))[Willow] cards for" and $ame1 is not in $field)
[, of which he chooses $deckchosen]
(elseif: $matchdeck is "all non-(text-color: (rgb:72,160,40))[Willow] cards for" and $ame1 is in $field)
[, but there are none, so it stays put]
(elseif: $matchdeck is "an electromagnetic")
[, and is forced to pair with $ame1]
(set: _suitfield to $field of $suits)
(display: "Score Calc")}.
Your opponent ultimately captures (print: length of $hiscapture - $hisprevcap) new cards this turn. ''The score is now his $valhiscap points to your $valmycap points.''
(display: "The Field")
{(set: $hisprevcap to length of $hiscapture)
}](unless: length of $deck is 0)
[[[It's your turn.->mushi your move 1]]]
(else:)
[The cards have run out. [[See round results.->Mushi End]]]{
(if: (count: $hiscapture, $ame2, $ame3, $ame4) is 2)
[(set: $hiscapture to it - (a: $ame2, $ame3, $ame4))
(set: $hiscapture to it + (a: $ame2, $ame3, $ame4))
He takes the final (text-color: (rgb:72,160,40))[Willow] card, and ]
(else:)
[(set: $mycapture to it - (a: $ame2, $ame3, $ame4))
(set: $mycapture to it + (a: $ame2, $ame3, $ame4))
You take the final (text-color: (rgb:72,160,40))[Willow] card, and ]
(set: $field to it - (a: $ame2, $ame3, $ame4))
(if: $ame1 is in $hiscapture)
[(set: $hiscapture to it + (a: last of $field))
he takes the final (print: last of $hiscapture of $suits) card.]
(else:)
[(set: $mycapture to it + (a: last of $field))
you take the final (print: last of $mycapture of $suits) card.]
(display: "Score Calc")
}
{
(if: all of $goko is in $mycapture)
[You captured ''5 Brights'', stealing 30 points from your opponent. Amazing!<br>]
(if: all of $sanko is in $mycapture)
[You captured ''3 Brights'', stealing 25 points from your opponent. Quite nice!<br>]
(if: all of $fujishima is in $mycapture)
[You captured ''(text-color: (rgb: 250,0,250))[Wisteria] Island'', stealing 10 points from your opponent. Not bad!<br>]
(if: all of $kirishima is in $mycapture)
[You captured ''(text-color: (rgb:60,179,113))[Princess Tree] Island'', stealing 10 points from your opponent. Nice!<br>]
<br>
(if: all of $goko is in $hiscapture)
[Your opponent captured ''5 Brights'', stealing 30 points from you! Oof!<br>]
(if: all of $sanko is in $hiscapture)
[Your opponent captured ''3 Brights'', stealing 25 points from you. Ouch!<br>]
(if: all of $fujishima is in $hiscapture)
[Your opponent captured ''(text-color: (rgb: 250,0,250))[Wisteria] Island'', stealing 10 points from you.<br>]
(if: all of $kirishima is in $hiscapture)
[Your opponent captured ''(text-color: (rgb:60,179,113))[Princess Tree] Island'', stealing 10 points from you.<br>]
}
Your final score: $valmycap points.
Your opponent's score: $valhiscap points.
(linkrepeat: "See all captured cards")[(display: "baka cap lists")]
{
(if: $mushihigh < $valmycap)
[(set: $mushihigh to $valmycap)]
(if: $valhiscap is $valmycap)
[That's rare - a draw! Guess we'll just have to play another round of [[Mushi]]!
(set: $mushidraws to it + 1)
]
(elseif: $valhiscap > $valmycap)
[You got (either:
"walloped",
"beaten",
"schooled",
"wrecked",
"trounced")
by your opponent! (if: (abs: $valhiscap - $valmycap) <=15)[But what a close game! ]Do you wish to [[try again->Mushi]]?
(set: $mushilosses to it + 1)
]
(elseif: $valhiscap < $valmycap)
[You (either:
"successfully defeated",
"triumphed over",
"beat out",
"vanquished")(set: $mushitokens to it + $valmycap - $valhiscap)
your opponent! (if: (abs: $valhiscap - $valmycap) <=15)[That was a nail-biter! ]The tall gentleman hands you a small satchel containing (print: $valmycap - $valhiscap) (either: "miniscule", "tiny", "itty bitty", "smol", "little", "miniature", "lil'", "teensy") ''Insect Tokens'' - one for each point more than your opponent that you earned that round. You now have ''$mushitokens Insect Tokens'' in total. Shall you challenge him to another round of [[Mushi]]?
(set: $mushiwins to it + 1)
]
}
{
(link:"Save.")
[
(if: (save-game:"Slot A"))
[Game saved!]
(else: )
[The game was unable to be saved.]
]
}
(textsize:0.75)[[[See all games.->game list]]]
''Tokens'' are essentially currency in this house. There are several kinds of ''Tokens'', each with different characteristics, acquired by doing well in a different game.
{
(unless: $lockfoolish is true)[''Foolish Tokens'' are easy to get, but... slow... to... rack... up. You get 1 ''Foolish Token'' each time you beat me at [[Foolish Flowers]]. They are only really good for unlocking easy games.<br><br>]
(unless: $lockmushi is true)[''Insect Tokens'' are tiny and myriad, handed over for winning at [[Mushi]]. They can be traded for access to games involving vast numbers of points.<br><br>]
(unless: $locktrue is true)[Most ''Tokens'' only show you their good side, but ''Truth Tokens'' will never lie to you: if you do poorly in [[True Flowers]], you can end up with a negative number of ''Tokens''! At this point in time, they are only good as evidence of your skill and fortune.<br><br>]
(unless: $lockyama is true)[''Mountain Tokens'' are, of course, earned by defeating me in [[Mountain Flowers]], and they live up to their name: they are quite massive.<br><br>]
(unless: $lockkoi is true)[<br><br>]
(unless: $locknuki is true)[<br><br>]
}
(link: "Back to games.")[(goto: last of (history:))](dialog: "(textsize: 0.6)[''Flower Bed'' is my intentional mistranslation of //tokotoko//, which is yet another type of 3-card //kabu// from Nagoya. In this genre of game, each card in the deck has a number value, based solely on its suit. Normally, one would have to memorize the number associated with each flower, but I'll help you out when we play here.<br><br>Each round of this side game uses 6 of the 12 leftover cards in the deck after our game of ''True Flowers'': 2 in each player's hand, and 2 on the field. Players compete to make the best 3-card hand from any combination of cards in their own hand and the field. The idea is to choose cards whose sum of values has a ones place that is closest to ''9''.<br><br>For instance, if you are dealt $pine1 and $kiri4 (1 and 6), and the field consists of $hagi3 and $peony2 (7 and 11), you could pick all but $hagi3 for a hand value of (1 + 6 + 11 = 18), which further reduces to 8. But the best option would be to exclude $kiri4, for (1 + 7 + 11 = 19), for a score of 9.]", "Ah."){(move: 1st of $hishand into _hand)}Choose any non-(text-color: (rgb:72,160,40))[Willow] to (either: "strike", "take", "smack", "capture", ) with $ame1.
(enchantin: ?link, (textcolor: "white"))[(display: "The Field")]{
(display: "Score Calc")}
(textsize: 0.6)[
=><=
''(linkrepeat: "Special Set")[(display: "mushi yaku dialog")] Progress''
<==
=||=
==>
''Yours''
{
(if: $pine4 is in $mycapture)
[(text-color: green)[''Crane''], ]
(if: $cherry4 is in $mycapture)
[(text-color: (rgb:255,180,182))[''Curtain''], ]
(if: $grass4 is in $mycapture)
[(text-color: (rgb:185,222,193))[''Moon''], ]
(if: $ame4 is in $mycapture)
[(text-color: (rgb:72,160,40))[''Rain Man''], ]
(if: $kiri4 is in $mycapture)
[(text-color: (rgb:60,179,113))[''Phoenix'']]
}
{
(if: $pine4 is in $mycapture)
[(text-color: green)[''Crane''], ]
(if: $plum4 is in $mycapture)
[(text-color: red)[//Warbler//], ]
(if: $cherry4 is in $mycapture)
[(text-color: (rgb:255,180,182))[''Curtain'']]
}
{
(if: $fuji4 is in $mycapture)
[(text-color: (rgb: 250,0,250))[//Cuckoo//], ]
(if: $fuji3 is in $mycapture)
[(text-color: (rgb: 250,0,250))[~~Ribbon~~], ]
(if: $fuji2 is in $mycapture)
[(text-color: (rgb: 250,0,250))[Chaff], ]
(if: $fuji1 is in $mycapture)
[(text-color: (rgb: 250,0,250))[Chaff]]
}
{
(if: $kiri4 is in $mycapture)
[(text-color: (rgb: 60,179,113))[''Phoenix''], ]
(if: $kiri3 is in $mycapture)
[(text-color: (rgb: 60,179,113))[Chaff], ]
(if: $kiri2 is in $mycapture)
[(text-color: (rgb: 60,179,113))[Chaff], ]
(if: $kiri1 is in $mycapture)
[(text-color: (rgb: 60,179,113))[Chaff]]
}
=|=
=><=
''5Brights
3Brights''
(text-color: (rgb: 250,0,250))[Wisteria]
(text-color: (rgb:60,179,113))[Princess]
=||=
<==
''His''
{
(if: $pine4 is in $hiscapture)
[(text-color: green)[''Crane''], ]
(if: $cherry4 is in $hiscapture)
[(text-color: (rgb:255,180,182))[''Curtain''], ]
(if: $grass4 is in $hiscapture)
[(text-color: (rgb:185,222,193))[''Moon''], ]
(if: $ame4 is in $hiscapture)
[(text-color: (rgb:72,160,40))[''Rain Man''], ]
(if: $kiri4 is in $hiscapture)
[(text-color: (rgb:60,179,113))[''Phoenix'']]
}
{
(if: $pine4 is in $hiscapture)
[(text-color: green)[''Crane''], ]
(if: $plum4 is in $hiscapture)
[(text-color: red)[//Warbler//], ]
(if: $cherry4 is in $hiscapture)
[(text-color: (rgb:255,180,182))[''Curtain'']]
}
{
(if: $fuji4 is in $hiscapture)
[(text-color: (rgb: 250,0,250))[//Cuckoo//], ]
(if: $fuji3 is in $hiscapture)
[(text-color: (rgb: 250,0,250))[~~Ribbon~~], ]
(if: $fuji2 is in $hiscapture)
[(text-color: (rgb: 250,0,250))[Chaff], ]
(if: $fuji1 is in $hiscapture)
[(text-color: (rgb: 250,0,250))[Chaff]]
}
{
(if: $kiri4 is in $hiscapture)
[(text-color: (rgb: 60,179,113))[''Phoenix''], ]
(if: $kiri3 is in $hiscapture)
[(text-color: (rgb: 60,179,113))[Chaff], ]
(if: $kiri2 is in $hiscapture)
[(text-color: (rgb: 60,179,113))[Chaff], ]
(if: $kiri1 is in $hiscapture)
[(text-color: (rgb: 60,179,113))[Chaff]]
}
|==|
=><=
(linkrepeat: "See all captured cards")
[(display: "baka cap lists")]
[[Get help->Mushi rules]]
]
<==
{
(if: (count: $field, ...$allbutame) is 0)
[(set: $field to it + (a: $ame1))
(set: $handpickwild to 0)
(goto: "mushi opponent move")]
(if: length of $field >=1)
[(if: 1st of $field of $suits is "(text-color: (rgb:72,160,40))[Willow]")
[(hide: ?f1)]]
(if: length of $field >=2)
[(if: 2nd of $field of $suits is "(text-color: (rgb:72,160,40))[Willow]")
[(hide: ?f2)]]
(if: length of $field >=3)
[(if: 3rd of $field of $suits is "(text-color: (rgb:72,160,40))[Willow]")
[(hide: ?f3)]]
(if: length of $field >=4)
[(if: 4th of $field of $suits is "(text-color: (rgb:72,160,40))[Willow]")
[(hide: ?f4)]]
(if: length of $field >=5)
[(if: 5th of $field of $suits is "(text-color: (rgb:72,160,40))[Willow]")
[(hide: ?f5)]]
(if: length of $field >=6)
[(if: 6th of $field of $suits is "(text-color: (rgb:72,160,40))[Willow]")
[(hide: ?f6)]]
(if: length of $field >=7)
[(if: 7th of $field of $suits is "(text-color: (rgb:72,160,40))[Willow]")
[(hide: ?f7)]]
(if: length of $field >=8)
[(if: 8th of $field of $suits is "(text-color: (rgb:72,160,40))[Willow]")
[(hide: ?f8)]]
(if: length of $field >=9)
[(if: 9th of $field of $suits is "(text-color: (rgb:72,160,40))[Willow]")
[(hide: ?f9)]]
(if: length of $field >=10)
[(if: 10th of $field of $suits is "(text-color: (rgb:72,160,40))[Willow]")
[(hide: ?f10)]]
(if: length of $field >=11)
[(if: 11th of $field of $suits is "(text-color: (rgb:72,160,40))[Willow]")
[(hide: ?f11)]]
(if: length of $field >=12)
[(if: 12th of $field of $suits is "(text-color: (rgb:72,160,40))[Willow]")
[(hide: ?f12)]]
(if: length of $field >=13)
[(if: 13th of $field of $suits is "(text-color: (rgb:72,160,40))[Willow]")
[(hide: ?f13)]]
(if: length of $field >=14)
[(if: 14th of $field of $suits is "(text-color: (rgb:72,160,40))[Willow]")
[(hide: ?f14)]]
(if: length of $field >=15)
[(if: 15th of $field of $suits is "(text-color: (rgb:72,160,40))[Willow]")
[(hide: ?f15)]]
(click: ?f1)
[(set: $handpickwild to 1st of $field)
(set: $mycapture to it + (a: $ame1, $handpickwild))
(set: $field to it - (a: $handpickwild))
(goto: "mushi opponent move")]
(click: ?f2)
[(set: $handpickwild to 2st of $field)
(set: $mycapture to it + (a: $ame1, $handpickwild))
(set: $field to it - (a: $handpickwild))
(goto: "mushi opponent move")
]
(click: ?f3)
[(set: $handpickwild to 3st of $field)
(set: $mycapture to it + (a: $ame1, $handpickwild))
(set: $field to it - (a: $handpickwild))
(goto: "mushi opponent move")
]
(click: ?f4)
[(set: $handpickwild to 4th of $field)
(set: $mycapture to it + (a: $ame1, $handpickwild))
(set: $field to it - (a: $handpickwild))
(goto: "mushi opponent move")
]
(click: ?f5)
[(set: $handpickwild to 5th of $field)
(set: $mycapture to it + (a: $ame1, $handpickwild))
(set: $field to it - (a: $handpickwild))
(goto: "mushi opponent move")
]
(click: ?f6)
[(set: $handpickwild to 6th of $field)
(set: $mycapture to it + (a: $ame1, $handpickwild))
(set: $field to it - (a: $handpickwild))
(goto: "mushi opponent move")
]
(click: ?f7)
[(set: $handpickwild to 7th of $field)
(set: $mycapture to it + (a: $ame1, $handpickwild))
(set: $field to it - (a: $handpickwild))
(goto: "mushi opponent move")
]
(click: ?f8)
[(set: $handpickwild to 8th of $field)
(set: $mycapture to it + (a: $ame1, $handpickwild))
(set: $field to it - (a: $handpickwild))
(goto: "mushi opponent move")
]
(click: ?f9)
[(set: $handpickwild to 9th of $field)
(set: $mycapture to it + (a: $ame1, $handpickwild))
(set: $field to it - (a: $handpickwild))
(goto: "mushi opponent move")
]
(click: ?f10)
[(set: $handpickwild to 10th of $field)
(set: $mycapture to it + (a: $ame1, $handpickwild))
(set: $field to it - (a: $handpickwild))
(goto: "mushi opponent move")
]
(click: ?f11)
[(set: $handpickwild to 11th of $field)
(set: $mycapture to it + (a: $ame1, $handpickwild))
(set: $field to it - (a: $handpickwild))
(goto: "mushi opponent move")
]
(click: ?f12)
[(set: $handpickwild to 12th of $field)
(set: $mycapture to it + (a: $ame1, $handpickwild))
(set: $field to it - (a: $handpickwild))
(goto: "mushi opponent move")
]
(click: ?f13)
[(set: $handpickwild to 13th of $field)
(set: $mycapture to it + (a: $ame1, $handpickwild))
(set: $field to it - (a: $handpickwild))
(goto: "mushi opponent move")
]
(click: ?f14)
[(set: $handpickwild to 14th of $field)
(set: $mycapture to it + (a: $ame1, $handpickwild))
(set: $field to it - (a: $handpickwild))
(goto: "mushi opponent move")
]
(click: ?f15)
[(set: $handpickwild to 15th of $field)
(set: $mycapture to it + (a: $ame1, $handpickwild))
(set: $field to it - (a: $handpickwild))
(goto: "mushi opponent move")
]
}You drew the wild card from the deck. Choose any non-(text-color: (rgb:72,160,40))[Willow] to (either: "strike", "take", "smack", "capture", ) with $ame1.
(enchantin: ?link, (textcolor: "white"))[(display: "The Field")]{
(set: _hand to $hand)
(set: _deck to $tempdeck)
(display: "Score Calc")}
(textsize: 0.6)[
=><=
''(linkrepeat: "Special Set")[(display: "mushi yaku dialog")] Progress''
<==
=||=
==>
''Yours''
{
(if: $pine4 is in $mycapture)
[(text-color: green)[''Crane''], ]
(if: $cherry4 is in $mycapture)
[(text-color: (rgb:255,180,182))[''Curtain''], ]
(if: $grass4 is in $mycapture)
[(text-color: (rgb:185,222,193))[''Moon''], ]
(if: $ame4 is in $mycapture)
[(text-color: (rgb:72,160,40))[''Rain Man''], ]
(if: $kiri4 is in $mycapture)
[(text-color: (rgb:60,179,113))[''Phoenix'']]
}
{
(if: $pine4 is in $mycapture)
[(text-color: green)[''Crane''], ]
(if: $plum4 is in $mycapture)
[(text-color: red)[//Warbler//], ]
(if: $cherry4 is in $mycapture)
[(text-color: (rgb:255,180,182))[''Curtain'']]
}
{
(if: $fuji4 is in $mycapture)
[(text-color: (rgb: 250,0,250))[//Cuckoo//], ]
(if: $fuji3 is in $mycapture)
[(text-color: (rgb: 250,0,250))[~~Ribbon~~], ]
(if: $fuji2 is in $mycapture)
[(text-color: (rgb: 250,0,250))[Chaff], ]
(if: $fuji1 is in $mycapture)
[(text-color: (rgb: 250,0,250))[Chaff]]
}
{
(if: $kiri4 is in $mycapture)
[(text-color: (rgb: 60,179,113))[''Phoenix''], ]
(if: $kiri3 is in $mycapture)
[(text-color: (rgb: 60,179,113))[Chaff], ]
(if: $kiri2 is in $mycapture)
[(text-color: (rgb: 60,179,113))[Chaff], ]
(if: $kiri1 is in $mycapture)
[(text-color: (rgb: 60,179,113))[Chaff]]
}
=|=
=><=
''5Brights
3Brights''
(text-color: (rgb: 250,0,250))[Wisteria]
(text-color: (rgb:60,179,113))[Princess]
=||=
<==
''His''
{
(if: $pine4 is in $hiscapture)
[(text-color: green)[''Crane''], ]
(if: $cherry4 is in $hiscapture)
[(text-color: (rgb:255,180,182))[''Curtain''], ]
(if: $grass4 is in $hiscapture)
[(text-color: (rgb:185,222,193))[''Moon''], ]
(if: $ame4 is in $hiscapture)
[(text-color: (rgb:72,160,40))[''Rain Man''], ]
(if: $kiri4 is in $hiscapture)
[(text-color: (rgb:60,179,113))[''Phoenix'']]
}
{
(if: $pine4 is in $hiscapture)
[(text-color: green)[''Crane''], ]
(if: $plum4 is in $hiscapture)
[(text-color: red)[//Warbler//], ]
(if: $cherry4 is in $hiscapture)
[(text-color: (rgb:255,180,182))[''Curtain'']]
}
{
(if: $fuji4 is in $hiscapture)
[(text-color: (rgb: 250,0,250))[//Cuckoo//], ]
(if: $fuji3 is in $hiscapture)
[(text-color: (rgb: 250,0,250))[~~Ribbon~~], ]
(if: $fuji2 is in $hiscapture)
[(text-color: (rgb: 250,0,250))[Chaff], ]
(if: $fuji1 is in $hiscapture)
[(text-color: (rgb: 250,0,250))[Chaff]]
}
{
(if: $kiri4 is in $hiscapture)
[(text-color: (rgb: 60,179,113))[''Phoenix''], ]
(if: $kiri3 is in $hiscapture)
[(text-color: (rgb: 60,179,113))[Chaff], ]
(if: $kiri2 is in $hiscapture)
[(text-color: (rgb: 60,179,113))[Chaff], ]
(if: $kiri1 is in $hiscapture)
[(text-color: (rgb: 60,179,113))[Chaff]]
}
|==|
=><=
(linkrepeat: "See all captured cards")
[(display: "baka cap lists")]
[[Get help->Mushi rules]]
]
<==
{
(if: (count: $field, ...$allbutame) is 0)
[(set: $field to it + (a: $ame1))
(set: $deckpickwild to 0)
(goto: "post wild deck")]
(if: length of $field >=1)
[(if: 1st of $field of $suits is "(text-color: (rgb:72,160,40))[Willow]")
[(hide: ?f1)]]
(if: length of $field >=2)
[(if: 2nd of $field of $suits is "(text-color: (rgb:72,160,40))[Willow]")
[(hide: ?f2)]]
(if: length of $field >=3)
[(if: 3rd of $field of $suits is "(text-color: (rgb:72,160,40))[Willow]")
[(hide: ?f3)]]
(if: length of $field >=4)
[(if: 4th of $field of $suits is "(text-color: (rgb:72,160,40))[Willow]")
[(hide: ?f4)]]
(if: length of $field >=5)
[(if: 5th of $field of $suits is "(text-color: (rgb:72,160,40))[Willow]")
[(hide: ?f5)]]
(if: length of $field >=6)
[(if: 6th of $field of $suits is "(text-color: (rgb:72,160,40))[Willow]")
[(hide: ?f6)]]
(if: length of $field >=7)
[(if: 7th of $field of $suits is "(text-color: (rgb:72,160,40))[Willow]")
[(hide: ?f7)]]
(if: length of $field >=8)
[(if: 8th of $field of $suits is "(text-color: (rgb:72,160,40))[Willow]")
[(hide: ?f8)]]
(if: length of $field >=9)
[(if: 9th of $field of $suits is "(text-color: (rgb:72,160,40))[Willow]")
[(hide: ?f9)]]
(if: length of $field >=10)
[(if: 10th of $field of $suits is "(text-color: (rgb:72,160,40))[Willow]")
[(hide: ?f10)]]
(if: length of $field >=11)
[(if: 11th of $field of $suits is "(text-color: (rgb:72,160,40))[Willow]")
[(hide: ?f11)]]
(if: length of $field >=12)
[(if: 12th of $field of $suits is "(text-color: (rgb:72,160,40))[Willow]")
[(hide: ?f12)]]
(if: length of $field >=13)
[(if: 13th of $field of $suits is "(text-color: (rgb:72,160,40))[Willow]")
[(hide: ?f13)]]
(if: length of $field >=14)
[(if: 14th of $field of $suits is "(text-color: (rgb:72,160,40))[Willow]")
[(hide: ?f14)]]
(if: length of $field >=15)
[(if: 15th of $field of $suits is "(text-color: (rgb:72,160,40))[Willow]")
[(hide: ?f15)]]
(click: ?f1)
[(set: $deckpickwild to 1st of $field)
(set: $mycapture to it + (a: $ame1, $deckpickwild))
(set: $field to it - (a: $deckpickwild))
(goto: "mushi opponent move")]
(click: ?f2)
[(set: $deckpickwild to 2st of $field)
(set: $mycapture to it + (a: $ame1, $deckpickwild))
(set: $field to it - (a: $deckpickwild))
(goto: "mushi opponent move")
]
(click: ?f3)
[(set: $deckpickwild to 3st of $field)
(set: $mycapture to it + (a: $ame1, $deckpickwild))
(set: $field to it - (a: $deckpickwild))
(goto: "mushi opponent move")
]
(click: ?f4)
[(set: $deckpickwild to 4th of $field)
(set: $mycapture to it + (a: $ame1, $deckpickwild))
(set: $field to it - (a: $deckpickwild))
(goto: "mushi opponent move")
]
(click: ?f5)
[(set: $deckpickwild to 5th of $field)
(set: $mycapture to it + (a: $ame1, $deckpickwild))
(set: $field to it - (a: $deckpickwild))
(goto: "mushi opponent move")
]
(click: ?f6)
[(set: $deckpickwild to 6th of $field)
(set: $mycapture to it + (a: $ame1, $deckpickwild))
(set: $field to it - (a: $deckpickwild))
(goto: "mushi opponent move")
]
(click: ?f7)
[(set: $deckpickwild to 7th of $field)
(set: $mycapture to it + (a: $ame1, $deckpickwild))
(set: $field to it - (a: $deckpickwild))
(goto: "mushi opponent move")
]
(click: ?f8)
[(set: $deckpickwild to 8th of $field)
(set: $mycapture to it + (a: $ame1, $deckpickwild))
(set: $field to it - (a: $deckpickwild))
(goto: "mushi opponent move")
]
(click: ?f9)
[(set: $deckpickwild to 9th of $field)
(set: $mycapture to it + (a: $ame1, $deckpickwild))
(set: $field to it - (a: $deckpickwild))
(goto: "mushi opponent move")
]
(click: ?f10)
[(set: $deckpickwild to 10th of $field)
(set: $mycapture to it + (a: $ame1, $deckpickwild))
(set: $field to it - (a: $deckpickwild))
(goto: "mushi opponent move")
]
(click: ?f11)
[(set: $deckpickwild to 11th of $field)
(set: $mycapture to it + (a: $ame1, $deckpickwild))
(set: $field to it - (a: $deckpickwild))
(goto: "mushi opponent move")
]
(click: ?f12)
[(set: $deckpickwild to 12th of $field)
(set: $mycapture to it + (a: $ame1, $deckpickwild))
(set: $field to it - (a: $deckpickwild))
(goto: "mushi opponent move")
]
(click: ?f13)
[(set: $deckpickwild to 13th of $field)
(set: $mycapture to it + (a: $ame1, $deckpickwild))
(set: $field to it - (a: $deckpickwild))
(goto: "mushi opponent move")
]
(click: ?f14)
[(set: $deckpickwild to 14th of $field)
(set: $mycapture to it + (a: $ame1, $deckpickwild))
(set: $field to it - (a: $deckpickwild))
(goto: "mushi opponent move")
]
(click: ?f15)
[(set: $deckpickwild to 15th of $field)
(set: $mycapture to it + (a: $ame1, $deckpickwild))
(set: $field to it - (a: $deckpickwild))
(goto: "mushi opponent move")
]
}{
(move: $tempdeck into _deck)
(move: $hand into _hand)
(either:
"You confidently smack down",
"You meekly slide",
"With a satisfying snap, you play",
"After careful consideration, you place",
"You drop",
"From your hand, you reveal") (print: _hand) on the field,
} which matches $matchhand card(if: $matchhand is not 1)[s], {
(if: $matchhand is 1)
[(print: $handchosen).]
(elseif: $matchhand is 2)
[of which you (either: "select", "choose") $handchosen.]
(elseif: $matchhand is 3)
[taking the entire suit!]
}
You subsequently (either: "strike with", "crash down", "unleash", "play", "throw down") (if: $gamemode is 2)[$ame1](elseif: $gamemode is 3)[$ame4] from the top of the deck, which matches all (if: $gamemode is 2)[non-(text-color: (rgb:72,160,40))[Willow]](elseif: $gamemode is 3)[(text-color: (rgb:72,160,40))[Willow] and non-chaff] cards on the field, {
(if: $gamemode is 2)
[(if: $ame1 is not in $field)
[of which you choose (print: $deckpickwild).]
(elseif: $ame1 is in $field)
[but there are none.]]
(elseif: $gamemode is 3)
[(if: $ame4 is not in $field)
[of which you choose (print: $deckpickwild).]
(elseif: $ame4 is in $field)
[but there are none.]]
(display: "Score Calc")
}
All in all, you capture (print: length of $mycapture - $myprevcap) new cards this turn. {
(if: $has_tea is true)
[(either:
"You take a small bite of sweets.",
"You and your opponent exchange glances as you each sip your tea.",
"",
"Your opponent gobbles down a candy.",
"You hold your tea cup close to your lips as you gaze across to your opponent.",
"",
"Your host offers to refill your tea, but you decline, as there is still quite a bit of beverage in your oversized cup.")
]
(set: $myprevcap to length of $mycapture)
}{
(dialog:
"
(textsize: 0.6)
[A player who captures all cards in a given ''Special Set'', or //yaku//, steals points from their opponent according to the following chart.
* ''30 : Five Brights :'' $pine4, $cherry4, $grass4, $ame4, and $kiri4.
* ''25 : Three Brights :'' $pine4, $plum4, and $cherry4.
* ''10 : (text-color: (rgb: 250,0,250))[Wisteria] Island :'' all 4 (text-color: (rgb: 250,0,250))[Wisteria] cards.
* ''10 : (text-color: (rgb:60,179,113))[Princess Tree] Island :'' all 4 (text-color: (rgb:60,179,113))[Princess Tree] cards.
]
",
"Got it.")
}{
(text-size: 0.75)[
=><=
''Game Records''
<==
=||||||=
''GAMETYPE'' <br>
[''Foolish Flowers'' <br>]<baka|
[''Mushi'' <br>]<mushi|
[''True Flowers'' <br>]<hon|
[//Before and After// <br>]<ato|
[//Flower Bed// <br>]<toko|
[''Mountain Flowers'' <br>]<yama|
[''Koi-Koi'' <br>]<koi|
[''Omission 88'' <br>]<nuki|
=||=
=><=
''WINS'' <br>
[$bakawins <br>]<baka|
[$mushiwins <br>]<mushi|
[$honwins <br>]<hon|
[$atowins <br>]<ato|
[$tokowins <br>]<toko|
[$yamawins <br>]<yama|
[$koiwins <br>]<koi|
[$nukiwins <br>]<nuki|
=||=
=><=
''DRAWS'' <br>
[$bakadraws <br>]<baka|
[$mushidraws <br>]<mushi|
[$hondraws <br>]<hon|
[$atodraws <br>]<ato|
[$tokodraws <br>]<toko|
[$yamadraws <br>]<yama|
[$koidraws <br>]<koi|
[$nukidraws <br>]<nuki|
=||=
=><=
''LOSSES'' <br>
[$bakalosses <br>]<baka|
[$mushilosses <br>]<mushi|
[$honlosses <br>]<hon|
[$atolosses <br>]<ato|
[$tokolosses <br>]<toko|
[$yamalosses <br>]<yama|
[$koilosses <br>]<koi|
[$nukilosses <br>]<nuki|
=||=
=><=
''HIGHSCORE'' <br>
[$bakahigh <br>]<baka|
[$mushihigh <br>]<mushi|
[(print: 1st of $honhigh);''(print: 2nd of $honhigh)''<br>]<hon|
[$atohigh <br>]<ato|
[$tokohigh <br>]<toko|
[$yamahigh <br>]<yama|
[$koihigh <br>]<koi|
[$nukihigh <br>]<nuki|
]
}
|==|
{
(if: $mushiwins + $mushidraws + $mushilosses is 0)
[(hide: ?mushi)]
(if: $honwins + $hondraws + $honlosses is 0)
[(hide: ?hon)]
(if: $atowins + $atodraws + $atolosses is 0)
[(hide: ?ato)]
(if: $tokowins + $tokodraws + $tokolosses is 0)
[(hide: ?toko)]
(if: $yamawins + $yamalosses is 0)
[(hide: ?yama)]
(if: $koiwins + $koidraws + $koilosses is 0)
[(hide: ?koi)]
(if: $nukiwins + $nukilosses is 0)
[(hide: ?nuki)]
}
=><=
''Inventory''
<==
{
(if: $fooltokens is not 0)
[''$fooltokens Foolish Token(unless:$fooltokens is 1)[s]''<br>]
(if: $mushitokens is not 0)
[''$mushitokens Insect Token(unless:$mushitokens is 1)[s]''<br>]
(if: $truthtokens is not 0)
[''$truthtokens Truth Token(unless:$truthtokens is 1)[s]''<br>]
(if: $yamatokens is not 0)
[''$yamatokens Mountain Token(unless:$yamatokens is 1)[s]''<br>]
(if: $koitokens is not 0)
[''$koitokens Koi Token(unless:$koitokens is 1)[s]''<br>]
(if: $nukitokens is not 0)
[''$nukitokens Omission Token(unless:$nukitokens is 1)[s]''<br>]
(live: .75s)[
''Reading Glasses :'' (if: $glasses is in (a: 0, "Reading"))[Equipped!](else:)[(link: "Equip?")[(set: $glasses to "Reading")]]<br>
(if: $ryglasses is true)[''Squarish Lenses :'' (if: $glasses is "Ryan's")[Equipped!](else:)[(link: "Equip?")[(set: $glasses to "Ryan's")]]<br>]
(if: $louieglasses is true)[''Louie's Glasses :'' (if: $glasses is "Louie's")[Equipped!](else:)[(link: "Equip?")[(set: $glasses to "Louie's")]]<br>]
(if: $semglasses is true)[''Painter's Glasses :'' (if: $glasses is "Sem's")[Equipped!](else:)[(link: "Equip?")[(set: $glasses to "Sem's")]]<br>]
(if: $heavenglasses is true)[''V` `A` `P` `O` `R` `S` `H` `A` `D` `E` `S :'' (if: $glasses is "Heaven's")[Equipped!](else:)[(link: "Equip?")[(set: $glasses to "Heaven's")]]<br>]]
}
=><=
{
(link:"Save.")
[
(if: (save-game:"Slot A"))
[Game saved!]
(else: )
[The game was unable to be saved.]
]
}
{(if: (savedgames:) contains "Slot A")[
(link: "Load.")[(load-game:"Slot A")]
]}
(link: "Back to gaming.")[(goto: last of (history:))]=><=
{
(textsize: 3)
[''(text-color: green)[P](text-color: red)[a](text-color: (rgb:255,180,182))[p](text-color: (rgb: 250,0,250))[e](text-color: blue)[r](text-color: (rgb:238,130,220))[ F](text-color: (rgb:255,70,10))[l](text-color: (rgb:185,222,193))[o](text-color: yellow)[w](text-color: (rgb:250,160,0))[e](text-color: (rgb:72,160,40))[r](text-color: (rgb:60,179,113))[s]'']
}
(enchantin: ?link, (textcolor: "white"))[[[New Game]]]
{
(if: (savedgames:) contains "Slot A")
[(enchantin: ?link, (textcolor: "white"))
[(link: "Load Game")
[(load-game:"Slot A")]
]
]
}
(enchantin: ?link, (textcolor: "white"))[[[Free Play]]]
(textsize:0.5)[Version 0.95. Copyright Ryan Sartor 2021. (linkrepeat:"Credits.")[(dialog: "Game by Ryan Sartor. Pixel Hanafuda is copyright Ryan Sartor 2020. MSPaint Hanafuda is licensed CC-0 1.0 by Sem. Vaporwave Hanafuda is licensed CC-0 1.0 by Heavenlysome. Louie Mantia's hanafuda design is licensed CC BY-SA 4.0.", "Sweet.")]](if: $lockyama is true)
[{"Prove yourself by beating me as many times in [[Mushi]] as it takes to earn ''600 Insect Tokens''. Only then will I teach you this family of games!" (link: "Hand over 600 Insect Tokens.")
[
(if: $mushitokens >= 600)
[
(set: $mushitokens to it - 600)
(set: $lockyama to false)
(goto: "Mountain Flowers")
]
(else:)
[You need at least ''600 Insect Tokens''. You only have $mushitokens.]
]
}]
(elseif: $lockyama is false)
[{
(display: "initialize")
(set: $gamemode to 3)
(move: $deck's (range:1,8) into $field)
(move: $deck's (range:1,8) into $hishand)
(move: $deck's (range:1,8) into $myhand)
(set: _suitfield to $field of $suits)
(if: (count: _suitfield, "(text-color: green)[Pine]") is 4)
[(goto: "Mountain Flowers")]
(if: (count: _suitfield, "(text-color: red)[Plum Blossom]") is 4)
[(goto: "Mountain Flowers")]
(if: (count: _suitfield, "(text-color: (rgb:255,180,182))[Cherry Blossom]") is 4)
[(goto: "Mountain Flowers")]
(if: (count: _suitfield, "(text-color: (rgb: 250,0,250))[Wisteria]") is 4)
[(goto: "Mountain Flowers")]
(if: (count: _suitfield, "(text-color: blue)[Iris]") is 4)
[(goto: "Mountain Flowers")]
(if: (count: _suitfield, "(text-color: (rgb:238,130,220))[Peony]") is 4)
[(goto: "Mountain Flowers")]
(if: (count: _suitfield, "(text-color: (rgb:255,70,10))[Bush Clover]") is 4)
[(goto: "Mountain Flowers")]
(if: (count: _suitfield, "(text-color: (rgb:185,222,193))[Grass]") is 4)
[(goto: "Mountain Flowers")]
(if: (count: _suitfield, "(text-color: yellow)[Chrysanthemum]") is 4)
[(goto: "Mountain Flowers")]
(if: (count: _suitfield, "(text-color: (rgb:250,160,0))[Maple]") is 4)
[(goto: "Mountain Flowers")]
(if: (count: _suitfield, "(text-color: (rgb:72,160,40))[Willow]") >= 3)
[(goto: "Mountain Flowers")]
(if: (count: _suitfield, "(text-color: (rgb:60,179,113))[Princess Tree]") is 4)
[(goto: "Mountain Flowers")]
(unless: $continue is true)
[
(set: $mylasttotal to 0, $hislasttotal to 0)
(set: $yamadeal to (either: true, false))
"We'll flip a coin to decide who goes first. I'll be heads; you're tails." He tosses a (either: "chonky", "heavy", "great big", "rather large", "weighty") ''Mountain Token'' into the air. It lands with a //thud//, (if: $yamadeal is false)[right-side up](else:)[face-down], so (if: $yamadeal is false)[your opponent](else:)[you]` `will deal and play first. <br><br>
(if: $yamadeal is true)
[You pick up the deck, and after shuffling, distribute 8 cards face-down to each player, and 8 more cards face-down to the table.<br><br>]
(else:)
[He picks up the deck, shuffles quite efficiently, and deals out 8 cards face-down to each player, followed by 8 more cards face-down on the field.<br><br>]
]
(else:)
[
(if: $yamadeal is true)
["I dealt last round, so it's your turn," your host reminds you. You pick up the deck, and after shuffling, distribute 8 cards face-down to each player, and 8 more cards face-up to the table.<br><br>]
(else:)
["My turn to deal," your host (either: "exclaims", "boasts", "reminds you", "declares", "announces", "proclaims"). He picks up the deck, shuffles quite efficiently, and deals out 8 cards face-down to each player, along with 8 cards face-up on the field.<br><br>]
(display: "The Field")
<br><br>
"The mountain is $spans hundred spans in height. Shall we (if: $yamadeal is true)
[[[continue our race->yama your move 1]]?"]
(else:)
[[[continue our race->yama opponent move]]?"]
]
(unless: $continue is true)
["There's one last matter before we start. How tall is the mountain?" <br><br>
"(dropdown: 2bind $spans, "2", "4", "6", "9", "12", "16", "20", "24") hundred spans," you reply.
<br><br>
"Are you ready to (if: $yamadeal is true)
[[[race me up the mountain?"->yama your move 1]]]
(else:)
[[[race me up the mountain?"->yama opponent move]]]]
<br><br>
"Or do you first want to go over [[how to play Mountain Flowers->Mountain Flowers rules]]?"
(if: $yamawins + $yamalosses > 0)
[<br><br>''Your current record against him in Mountain Flowers is $yamawins win(unless:$yamawins is 1)[s] and $yamalosses loss(unless:$yamalosses is 1)[es].'']
}](textsize:0.75)["''Mountain Flowers'' is yet another 'flower matching' variant with (linkrepeat: "different card values")[(display: "yamaval dialog")] and unique wild card rules. It is played in many parts of Japan, often under different names, though the rules we use here are mostly based on a Tokyo variant from the late 1940s, known as //yamayaku//."
"Before gameplay can commence, we must first agree on the target score. The most common target is by far ''600 points'', which is why it is known to many as ''Six-Hundred''. Again, basic gameplay is akin to (linkrepeat: "Foolish Flowers")[(goto: "Foolish Flowers rules")], but with a few key differences:"
* "The first difference is that if neither player meets the cutoff score, or if both do but are tied, each player's score is carried into the next round, rather than restarting each hand."
* "A unique assortment of (linkrepeat: "Special Sets")[(display: "yama yaku dialog")] are used in this game as well, to add extra intrigue and depth to the strategy. A player who captures all constituent cards of any of these ''Sets'' earns bonus points for its completion."
* "One of the most interesting aspects of ''Mountain Flowers'' is its unique treatment of $ame4. Note that this limited wild card is treated quite differently than the one in ''Mushi''. When played from the hand or deck, it may be used to capture any (text-color: (rgb:72,160,40))[Willow] card, or any non-0-point card. If $ame4 is on the field, it may only be captured by a (text-color: (rgb:72,160,40))[Willow] card from your hand, or else it will automatically pair and capture with the first non-0-pointer drawn from the deck."
"If you can beat me in this game, I'll fork over ''Mountain Tokens'' according to the target score."]
(link: "Cool, thanks.")[(goto: last of (history:))]{(if: last of (history:) is "Mountain Flowers")
[
(set: $histesan to 0, $mytesan to 0, $hissogasu to 0, $mysogasu to 0)
(set: $valhishand to $hishand of $yamaval)
(set: $valmyhand to $myhand of $yamaval)
(set: _valhishand to (1st of $valhishand + 2nd of $valhishand + 3rd of $valhishand + 4th of $valhishand + 5th of $valhishand + 6th of $valhishand + 7th of $valhishand + 8th of $valhishand))
(set: _valmyhand to (1st of $valmyhand + 2nd of $valmyhand + 3rd of $valmyhand + 4th of $valmyhand + 5th of $valmyhand + 6th of $valmyhand + 7th of $valmyhand + 8th of $valmyhand))
(if: _valhishand is 0)
[Your opponent's hand contains all 0-point cards, so they are compensated 400 points.(set: $hissogasu to 1)<br><br>]
(if: _valmyhand is 0)
[Your hand contains all 0-point cards, so you are compensated 400 points.(set: $mysogasu to 1)<br><br>]
(for: each _suit, '(text-color: green)[Pine]', '(text-color: red)[Plum Blossom]', '(text-color: (rgb:255,180,182))[Cherry Blossom]', '(text-color: (rgb: 250,0,250))[Wisteria]', '(text-color: blue)[Iris]', '(text-color: (rgb:238,130,220))[Peony]', '(text-color: (rgb:255,70,10))[Bush Clover]', '(text-color: (rgb:185,222,193))[Grass]', '(text-color: yellow)[Chrysanthemum]', '(text-color: (rgb:250,160,0))[Maple]', '(text-color: (rgb:72,160,40))[Willow]', '(text-color: (rgb:60,179,113))[Princess Tree]')
[(if: (count: $hishand of $suits, _suit) >= 3)
[Your opponent has 3 _suit cards in their hand, so they are compensated 200 points.(set: $histesan to it + 1)<br><br>]
(if: (count: $myhand of $suits, _suit) >= 3)
[You have 3 _suit cards in your hand, so you are compensated 200 points.(set: $mytesan to it + 1)<br><br>]
]
]
}(display: "The Field"){
(set: _hand to 0)
(set: _deck to 0)
(display: "Score Calc")}
''The current score is his $valhiscap points to your $valmycap points.
The target score is (print: (num: $spans) * 100).''
Play a card to the field.
(enchantin: ?link, (textcolor: "white"))[(display: "Your Hand")]
(textsize: 0.6)[
=><=
''(linkrepeat: "Special Set")[(display: "yama yaku dialog")] Progress''
<==
=||||=
==>
''Yours''
{
(if: $pine4 is in $mycapture)
[(text-color: green)[''Crane''], ]
(if: $cherry4 is in $mycapture)
[(text-color: (rgb:255,180,182))[''Curtain''], ]
(if: $grass4 is in $mycapture)
[(text-color: (rgb:185,222,193))[''Moon''], ]
(if: $kiri4 is in $mycapture)
[(text-color: (rgb:60,179,113))[''Phoenix'']]
}
{
(if: $pine4 is in $mycapture)
[(text-color: green)[''Crane''], ]
(if: $plum4 is in $mycapture)
[(text-color: red)[//Warbler//], ]
(if: $cherry4 is in $mycapture)
[(text-color: (rgb:255,180,182))[''Curtain'']]
}
{
(if: $pine4 is in $mycapture)
[(text-color: green)[''Crane''], ]
(if: $kiri4 is in $mycapture)
[(text-color: (rgb:60,179,113))[''Phoenix''], ]
(if: $grass4 is in $mycapture)
[(text-color: (rgb:185,222,193))[''Moon'']]
}
{
(if: $kiku4 is in $mycapture)
[(text-color: yellow)[//SakeCup//], ]
(if: $cherry4 is in $mycapture)
[(text-color: (rgb:255,180,182))[''Curtain''], ]
(if: $grass4 is in $mycapture)
[(text-color: (rgb:185,222,193))[''Moon''], ]
}
{
(if: $hagi4 is in $mycapture)
[(text-color: (rgb:255,70,10))[//Boar//], ]
(if: $maple4 is in $mycapture)
[(text-color: (rgb:250,160,0))[//Deer//], ]
(if: $peony4 is in $mycapture)
[(text-color: (rgb:238,130,220))[//Butterflies//], ]
}
{
(unless: length of $mycapture is 0)
[(count: $ribbons, ...$mycapture)]
(else:)[0]
}
{
(if: $pine3 is in $mycapture)[(text-color: green)[~~Pine~~], ]
(if: $plum3 is in $mycapture)[(text-color: red)[~~PlumB.~~], ]
(if: $cherry3 is in $mycapture)[(text-color: (rgb:255,180,182))[~~CherryB.~~]]
}
{
(if: $peony3 is in $mycapture)[(text-color: (rgb:238,130,220))[~~Peony~~], ]
(if: $kiku3 is in $mycapture)[(text-color: yellow)[~~Chrysanth.~~], ]
(if: $maple3 is in $mycapture)[(text-color: (rgb:250,160,0))[~~Maple~~]]
}
{
(if: $fuji3 is in $mycapture)[(text-color: (rgb: 250,0,250))[~~Wisteria~~], ]
(if: $iris3 is in $mycapture)[(text-color: blue)[~~Iris~~], ]
(if: $hagi3 is in $mycapture)[(text-color: (rgb:255,70,10))[~~B.Clover~~]]
}
{
(if: $ame4 is in $mycapture)[(text-color: (rgb:72,160,40))[''RainMan''], ]
(if: $ame3 is in $mycapture)[(text-color: (rgb:72,160,40))[//Swallow//], ]
(if: $ame2 is in $mycapture)[(text-color: (rgb:72,160,40))[~~Ribbon~~], ]
(if: $ame1 is in $mycapture)[(text-color: (rgb:72,160,40))[Chaff]]
}
=|=
=><=
''4Brights
3Brights
P.P.P.
//Viewing//''
//B.D.B.//
~~7Ribbbons~~
~~Poetry~~
~~Blue~~
~~Grass~~
(text-color: (rgb:72,160,40))[Willow]
=||||=
<==
''His''
{
(if: $pine4 is in $hiscapture)
[(text-color: green)[''Crane''], ]
(if: $cherry4 is in $hiscapture)
[(text-color: (rgb:255,180,182))[''Curtain''], ]
(if: $grass4 is in $hiscapture)
[(text-color: (rgb:185,222,193))[''Moon''], ]
(if: $kiri4 is in $hiscapture)
[(text-color: (rgb:60,179,113))[''Phoenix'']]
}
{
(if: $pine4 is in $hiscapture)
[(text-color: green)[''Crane''], ]
(if: $plum4 is in $hiscapture)
[(text-color: red)[//Warbler//], ]
(if: $cherry4 is in $hiscapture)
[(text-color: (rgb:255,180,182))[''Curtain'']]
}
{
(if: $pine4 is in $hiscapture)
[(text-color: green)[''Crane''], ]
(if: $kiri4 is in $hiscapture)
[(text-color: (rgb:60,179,113))[''Phoenix''], ]
(if: $grass4 is in $hiscapture)
[(text-color: (rgb:185,222,193))[''Moon'']]
}
{
(if: $kiku4 is in $hiscapture)
[(text-color: yellow)[//SakeCup//], ]
(if: $cherry4 is in $hiscapture)
[(text-color: (rgb:255,180,182))[''Curtain''], ]
(if: $grass4 is in $hiscapture)
[(text-color: (rgb:185,222,193))[''Moon''], ]
}
{
(if: $hagi4 is in $hiscapture)
[(text-color: (rgb:255,70,10))[//Boar//], ]
(if: $maple4 is in $hiscapture)
[(text-color: (rgb:250,160,0))[//Deer//], ]
(if: $peony4 is in $hiscapture)
[(text-color: (rgb:238,130,220))[//Butterflies//], ]
}
{
(unless: length of $hiscapture is 0)
[(count: $ribbons, ...$hiscapture)]
(else:)[0]
}
{
(if: $pine3 is in $hiscapture)[(text-color: green)[~~Pine~~], ]
(if: $plum3 is in $hiscapture)[(text-color: red)[~~PlumB.~~], ]
(if: $cherry3 is in $hiscapture)[(text-color: (rgb:255,180,182))[~~CherryB.~~]]
}
{
(if: $peony3 is in $hiscapture)[(text-color: (rgb:238,130,220))[~~Peony~~], ]
(if: $kiku3 is in $hiscapture)[(text-color: yellow)[~~Chrysanth.~~], ]
(if: $maple3 is in $hiscapture)[(text-color: (rgb:250,160,0))[~~Maple~~]]
}
{
(if: $fuji3 is in $hiscapture)[(text-color: (rgb: 250,0,250))[~~Wisteria~~], ]
(if: $iris3 is in $hiscapture)[(text-color: blue)[~~Iris~~], ]
(if: $hagi3 is in $hiscapture)[(text-color: (rgb:255,70,10))[~~B.Clover~~]]
}
{
(if: $ame4 is in $hiscapture)[(text-color: (rgb:72,160,40))[''RainMan''], ]
(if: $ame3 is in $hiscapture)[(text-color: (rgb:72,160,40))[//Swallow//], ]
(if: $ame2 is in $hiscapture)[(text-color: (rgb:72,160,40))[~~Ribbon~~], ]
(if: $ame1 is in $hiscapture)[(text-color: (rgb:72,160,40))[Chaff]]
}
|==|
=><=
(linkrepeat: "See all captured cards")
[(display: "yama cap lists")]
[[Get help->Mountain Flowers rules]]
[[MENU->menu]]
]
<==
{
(click: ?h1)
[
(move: 1st of $myhand into _hand)
(set: $hand to _hand)
(if: _hand is $ame4)
[(goto: "anything but chaff")]
(else:)
[(goto: "yama opponent move")]
]
(click: ?h2)
[
(move: 2nd of $myhand into _hand)
(set: $hand to _hand)
(if: _hand is $ame4)
[(goto: "anything but chaff")]
(else:)
[(goto: "yama opponent move")]
]
(click: ?h3)
[
(move: 3rd of $myhand into _hand)
(set: $hand to _hand)
(if: _hand is $ame4)
[(goto: "anything but chaff")]
(else:)
[(goto: "yama opponent move")]
]
(click: ?h4)
[
(move: 4th of $myhand into _hand)
(set: $hand to _hand)
(if: _hand is $ame4)
[(goto: "anything but chaff")]
(else:)
[(goto: "yama opponent move")]
]
(click: ?h5)
[
(move: 5th of $myhand into _hand)
(set: $hand to _hand)
(if: _hand is $ame4)
[(goto: "anything but chaff")]
(else:)
[(goto: "yama opponent move")]
]
(click: ?h6)
[
(move: 6th of $myhand into _hand)
(set: $hand to _hand)
(if: _hand is $ame4)
[(goto: "anything but chaff")]
(else:)
[(goto: "yama opponent move")]
]
(click: ?h7)
[
(move: 7th of $myhand into _hand)
(set: $hand to _hand)
(if: _hand is $ame4)
[(goto: "anything but chaff")]
(else:)
[(goto: "yama opponent move")]
]
(click: ?h8)
[
(move: 8th of $myhand into _hand)
(set: $hand to _hand)
(if: _hand is $ame4)
[(goto: "anything but chaff")]
(else:)
[(goto: "yama opponent move")]
]
}{(if: last of (history:) is "Mountain Flowers")
[
(set: $histesan to 0, $mytesan to 0, $hissogasu to 0, $mysogasu to 0)
(set: $valhishand to $hishand of $yamaval)
(set: $valmyhand to $myhand of $yamaval)
(set: _valhishand to (1st of $valhishand + 2nd of $valhishand + 3rd of $valhishand + 4th of $valhishand + 5th of $valhishand + 6th of $valhishand + 7th of $valhishand + 8th of $valhishand))
(set: _valmyhand to (1st of $valmyhand + 2nd of $valmyhand + 3rd of $valmyhand + 4th of $valmyhand + 5th of $valmyhand + 6th of $valmyhand + 7th of $valmyhand + 8th of $valmyhand))
(if: _valhishand is 0)
[Your opponent's hand contains all 0-point cards, so they are compensated 400 points.(set: $hissogasu to 1)<br><br>]
(if: _valmyhand is 0)
[Your hand contains all 0-point cards, so you are compensated 400 points.(set: $mysogasu to 1)<br><br>]
(for: each _suit, '(text-color: green)[Pine]', '(text-color: red)[Plum Blossom]', '(text-color: (rgb:255,180,182))[Cherry Blossom]', '(text-color: (rgb: 250,0,250))[Wisteria]', '(text-color: blue)[Iris]', '(text-color: (rgb:238,130,220))[Peony]', '(text-color: (rgb:255,70,10))[Bush Clover]', '(text-color: (rgb:185,222,193))[Grass]', '(text-color: yellow)[Chrysanthemum]', '(text-color: (rgb:250,160,0))[Maple]', '(text-color: (rgb:72,160,40))[Willow]', '(text-color: (rgb:60,179,113))[Princess Tree]')
[(if: (count: $hishand of $suits, _suit) >= 3)
[Your opponent has 3 _suit cards in their hand, so they are compensated 200 points.(set: $histesan to it + 1)<br><br>]
(if: (count: $myhand of $suits, _suit) >= 3)
[You have 3 _suit cards in your hand, so you are compensated 200 points.(set: $mytesan to it + 1)<br><br>]
]
]
}{(set: _hand to 0)
(set: _pickval to (a:))
(if: last of (history:) is in (a: "yama your move 1", "anything but chaff"))
[(display: "your move 2")]
(if: last of (history:) is "anything but chaff 2")
[(display: "post wild deck")]
}(unless: length of $hishand is 0)[{
(set: _suitfield to $field of $suits)
(display: "med opponent")
(move: 1st of $deck into _deck)
(set: _suithand to _hand of $suits)
(set: _suitdeck to _deck of $suits)
(either:
"Without hesitation",
"Your opponent flashes a grin as",
"With a glint in his eye,",
"He sighs as",
"With a loud ''CLACK'',",
"Energetically") he places (print: _hand) on the field,
(if: _hand is $ame4 and (count: $field, ...$allbutchaff) is 0)
[(set: $field to it + (a: $ame4))
(set: $matchhand to "all (text-color: (rgb:72,160,40))[Willow] and non-chaff")]
(elseif: _hand is $ame4)
[(set: $handpickone to (a:))
(set: $matchhand to "all (text-color: (rgb:72,160,40))[Willow] and non-chaff")
(set: $hiscapture to it + (a:_hand))
(if: length of $field >= 18)
[(if: 18th of $field is in $allbutchaff)
[(set: $handpickone to it + (a: 18th of $field))]]
(if: length of $field >= 17)
[(if: 17th of $field is in $allbutchaff)
[(set: $handpickone to it + (a: 17th of $field))]]
(if: length of $field >= 16)
[(if: 16th of $field is in $allbutchaff)
[(set: $handpickone to it + (a: 16th of $field))]]
(if: length of $field >= 15)
[(if: 15th of $field is in $allbutchaff)
[(set: $handpickone to it + (a: 15th of $field))]]
(if: length of $field >= 14)
[(if: 14st of $field is in $allbutchaff)
[(set: $handpickone to it + (a: 14th of $field))]]
(if: length of $field >= 13)
[(if: 13st of $field is in $allbutchaff)
[(set: $handpickone to it + (a: 13th of $field))]]
(if: length of $field >= 12)
[(if: 12st of $field is in $allbutchaff)
[(set: $handpickone to it + (a: 12nd of $field))]]
(if: length of $field >= 11)
[(if: 11st of $field is in $allbutchaff)
[(set: $handpickone to it + (a: 11st of $field))]]
(if: length of $field >= 10)
[(if: 10st of $field is in $allbutchaff)
[(set: $handpickone to it + (a: 10st of $field))]]
(if: length of $field >= 9)
[(if: 9st of $field is in $allbutchaff)
[(set: $handpickone to it + (a: 9st of $field))]]
(if: length of $field >= 8)
[(if: 8st of $field is in $allbutchaff)
[(set: $handpickone to it + (a: 8st of $field))]]
(if: length of $field >= 7)
[(if: 7st of $field is in $allbutchaff)
[(set: $handpickone to it + (a: 7st of $field))]]
(if: length of $field >= 6)
[(if: 6st of $field is in $allbutchaff)
[(set: $handpickone to it + (a: 6st of $field))]]
(if: length of $field >= 5)
[(if: 5st of $field is in $allbutchaff)
[(set: $handpickone to it + (a: 5st of $field))]]
(if: length of $field >= 4)
[(if: 4st of $field is in $allbutchaff)
[(set: $handpickone to it + (a: 4st of $field))]]
(if: length of $field >= 3)
[(if: 3st of $field is in $allbutchaff)
[(set: $handpickone to it + (a: 3st of $field))]]
(if: length of $field >= 2)
[(if: 2st of $field is in $allbutchaff)
[(set: $handpickone to it + (a: 2st of $field))]]
(if: length of $field >= 1)
[(if: 1st of $field is in $allbutchaff)
[(set: $handpickone to it + (a: 1st of $field))]]
(set: _pickval to $handpickone of $yamaval)
(if: length of $handpickone is 1)
[(set: $handchosen to 1st of $handpickone)]
(else:)
[
(if: length of $handpickone >= 18)
[(if: 18th of _pickval is not (max: ..._pickval))
[(set: $handpickone to it - (a: 18th of $handpickone))]]
(if: length of $handpickone >= 17)
[(if: 17st of _pickval is not (max: ..._pickval))
[(set: $handpickone to it - (a: 17st of $handpickone))]]
(if: length of $handpickone >= 16)
[(if: 16st of _pickval is not (max: ..._pickval))
[(set: $handpickone to it - (a: 16st of $handpickone))]]
(if: length of $handpickone >= 15)
[(if: 15th of _pickval is not (max: ..._pickval))
[(set: $handpickone to it - (a: 15th of $handpickone))]]
(if: length of $handpickone >= 14)
[(if: 14st of _pickval is not (max: ..._pickval))
[(set: $handpickone to it - (a: 14st of $handpickone))]]
(if: length of $handpickone >= 13)
[(if: 13st of _pickval is not (max: ..._pickval))
[(set: $handpickone to it - (a: 13st of $handpickone))]]
(if: length of $handpickone >= 12)
[(if: 12st of _pickval is not (max: ..._pickval))
[(set: $handpickone to it - (a: 12st of $handpickone))]]
(if: length of $handpickone >= 11)
[(if: 11st of _pickval is not (max: ..._pickval))
[(set: $handpickone to it - (a: 11st of $handpickone))]]
(if: length of $handpickone >= 10)
[(if: 10st of _pickval is not (max: ..._pickval))
[(set: $handpickone to it - (a: 10st of $handpickone))]]
(if: length of $handpickone >= 9)
[(if: 9st of _pickval is not (max: ..._pickval))
[(set: $handpickone to it - (a: 9st of $handpickone))]]
(if: length of $handpickone >= 8)
[(if: 8st of _pickval is not (max: ..._pickval))
[(set: $handpickone to it - (a: 8st of $handpickone))]]
(if: length of $handpickone >= 7)
[(if: 7st of _pickval is not (max: ..._pickval))
[(set: $handpickone to it - (a: 7st of $handpickone))]]
(if: length of $handpickone >= 6)
[(if: 6st of _pickval is not (max: ..._pickval))
[(set: $handpickone to it - (a: 6st of $handpickone))]]
(if: length of $handpickone >= 5)
[(if: 5st of _pickval is not (max: ..._pickval))
[(set: $handpickone to it - (a: 5st of $handpickone))]]
(if: length of $handpickone >= 4)
[(if: 4st of _pickval is not (max: ..._pickval))
[(set: $handpickone to it - (a: 4st of $handpickone))]]
(if: length of $handpickone >= 3)
[(if: 3st of _pickval is not (max: ..._pickval))
[(set: $handpickone to it - (a: 3st of $handpickone))]]
(if: length of $handpickone >= 2)
[(if: 2st of _pickval is not (max: ..._pickval))
[(set: $handpickone to it - (a: 2st of $handpickone))]]
(if: length of $handpickone >= 1)
[(if: 1st of _pickval is not (max: ..._pickval))
[(set: $handpickone to it - (a: 1st of $handpickone))]]
(set: $handchosen to (either: ...$handpickone))
]
(set: $hiscapture to it + (a:$handchosen))
(set: $field to it - (a:$handchosen))
]
(elseif: (count: _suitfield, _suithand) matches 3)
[(set: $matchhand to 3)
(set: $hiscapture to it + (a:_hand) )
(for: each _fpos, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
[(if: length of $field >= _fpos)
[(if: (_fpos) of _suitfield matches _suithand)
[(set: $hiscapture to it + (a: (_fpos) of $field))
(set: $field to it - (a: (_fpos) of $field))]]
]
]
(elseif: (count: _suitfield, _suithand) matches 2)
[(set: $matchhand to 2)
(set: $hiscapture to it + (a:_hand))
(set: $handpickone to (a:))
(for: each _fpos, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
[(if: length of $field >= _fpos)
[(if: (_fpos) of _suitfield matches _suithand)
[(set: $handpickone to it + (a:(_fpos) of $field))]]
]
(if: 1st of $handpickone of $yamaval > 2nd of $handpickone of $yamaval)
[(set: $handchosen to 1st of $handpickone)]
(else:)
[(set: $handchosen to 2nd of $handpickone)]
(set: $hiscapture to it + (a:$handchosen))
(set: $field to it - (a:$handchosen))
]
(elseif: (count: _suitfield, _suithand) matches 1)
[(set: $matchhand to 1)
(set: $hiscapture to it + (a:_hand) )
(for: each _fpos, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
[(if: length of $field >= _fpos)
[(if: (_fpos) of _suitfield matches _suithand)
[(set: $hiscapture to it + (a: (_fpos) of $field))
(set: $field to it - (a: (_fpos) of $field))]]
]
]
(else:)
[(set: $matchhand to 0)
(set: $field to it + (a:_hand) )]
(set: _suitfield to $field of $suits)
} which matches $matchhand card(if: $matchhand is not 1)[s], {
(if: $matchhand is 1)
[(print: last of $hiscapture),]
(elseif: $matchhand is 2)
[of which he takes $handchosen,]
(elseif: $matchhand is 3)
[taking the entire suit,]
(elseif: $matchhand is "all (text-color: (rgb:72,160,40))[Willow] and non-chaff" and $ame4 is not in $field)
[of which he chooses $handchosen,]
(elseif: $matchhand is "all (text-color: (rgb:72,160,40))[Willow] and non-chaff" and $ame4 is in $field)
[but there are none,]
(set: _suitfield to $field of $suits)
}
and subsequently (either: "unveils", "pulls", "unearths", "excavates", "plays") (print: _deck) from the top of the deck, {
(if: $ame4 is in $field and _deck is in $allbutchaff)
[(set: $hiscapture to it + (a: _deck, $ame4))
(set: $field to it - (a: $ame4))
(set: $matchdeck to "a calligraphic")]
(elseif: _deck is $ame4 and (count: $field, ...$allbutchaff) is 0)
[(set: $field to it + (a: $ame4))
(set: $matchdeck to "all (text-color: (rgb:72,160,40))[Willow] and non-chaff as")]
(elseif: _deck is $ame4)
[(set: $deckpickone to (a:))
(set: $matchdeck to "all (text-color: (rgb:72,160,40))[Willow] and non-chaff as")
(set: $hiscapture to it + (a: $ame4))
(if: length of $field >= 18)
[(if: 18th of $field is in $allbutchaff)
[(set: $deckpickone to it + (a: 18th of $field))]]
(if: length of $field >= 17)
[(if: 17th of $field is in $allbutchaff)
[(set: $deckpickone to it + (a: 17th of $field))]]
(if: length of $field >= 16)
[(if: 16th of $field is in $allbutchaff)
[(set: $deckpickone to it + (a: 16th of $field))]]
(if: length of $field >= 15)
[(if: 15th of $field is in $allbutchaff)
[(set: $deckpickone to it + (a: 15th of $field))]]
(if: length of $field >= 14)
[(if: 14st of $field is in $allbutchaff)
[(set: $deckpickone to it + (a: 14th of $field))]]
(if: length of $field >= 13)
[(if: 13st of $field is in $allbutchaff)
[(set: $deckpickone to it + (a: 13th of $field))]]
(if: length of $field >= 12)
[(if: 12st of $field is in $allbutchaff)
[(set: $deckpickone to it + (a: 12nd of $field))]]
(if: length of $field >= 11)
[(if: 11st of $field is in $allbutchaff)
[(set: $deckpickone to it + (a: 11st of $field))]]
(if: length of $field >= 10)
[(if: 10st of $field is in $allbutchaff)
[(set: $deckpickone to it + (a: 10st of $field))]]
(if: length of $field >= 9)
[(if: 9st of $field is in $allbutchaff)
[(set: $deckpickone to it + (a: 9st of $field))]]
(if: length of $field >= 8)
[(if: 8st of $field is in $allbutchaff)
[(set: $deckpickone to it + (a: 8st of $field))]]
(if: length of $field >= 7)
[(if: 7st of $field is in $allbutchaff)
[(set: $deckpickone to it + (a: 7st of $field))]]
(if: length of $field >= 6)
[(if: 6st of $field is in $allbutchaff)
[(set: $deckpickone to it + (a: 6st of $field))]]
(if: length of $field >= 5)
[(if: 5st of $field is in $allbutchaff)
[(set: $deckpickone to it + (a: 5st of $field))]]
(if: length of $field >= 4)
[(if: 4st of $field is in $allbutchaff)
[(set: $deckpickone to it + (a: 4st of $field))]]
(if: length of $field >= 3)
[(if: 3st of $field is in $allbutchaff)
[(set: $deckpickone to it + (a: 3st of $field))]]
(if: length of $field >= 2)
[(if: 2st of $field is in $allbutchaff)
[(set: $deckpickone to it + (a: 2st of $field))]]
(if: length of $field >= 1)
[(if: 1st of $field is in $allbutchaff)
[(set: $deckpickone to it + (a: 1st of $field))]]
(set: _pickval to $deckpickone of $yamaval)
(if: length of $deckpickone is 1)
[(set: $deckchosen to 1st of $deckpickone)]
(else:)
[
(if: length of $deckpickone >= 18)
[(if: 18th of _pickval is not (max: ..._pickval))
[(set: $deckpickone to it - (a: 18th of $deckpickone))]]
(if: length of $deckpickone >= 17)
[(if: 17st of _pickval is not (max: ..._pickval))
[(set: $deckpickone to it - (a: 17st of $deckpickone))]]
(if: length of $deckpickone >= 16)
[(if: 16st of _pickval is not (max: ..._pickval))
[(set: $deckpickone to it - (a: 16st of $deckpickone))]]
(if: length of $deckpickone >= 15)
[(if: 15th of _pickval is not (max: ..._pickval))
[(set: $deckpickone to it - (a: 15th of $deckpickone))]]
(if: length of $deckpickone >= 14)
[(if: 14st of _pickval is not (max: ..._pickval))
[(set: $deckpickone to it - (a: 14st of $deckpickone))]]
(if: length of $deckpickone >= 13)
[(if: 13st of _pickval is not (max: ..._pickval))
[(set: $deckpickone to it - (a: 13st of $deckpickone))]]
(if: length of $deckpickone >= 12)
[(if: 12st of _pickval is not (max: ..._pickval))
[(set: $deckpickone to it - (a: 12st of $deckpickone))]]
(if: length of $deckpickone >= 11)
[(if: 11st of _pickval is not (max: ..._pickval))
[(set: $deckpickone to it - (a: 11st of $deckpickone))]]
(if: length of $deckpickone >= 10)
[(if: 10st of _pickval is not (max: ..._pickval))
[(set: $deckpickone to it - (a: 10st of $deckpickone))]]
(if: length of $deckpickone >= 9)
[(if: 9st of _pickval is not (max: ..._pickval))
[(set: $deckpickone to it - (a: 9st of $deckpickone))]]
(if: length of $deckpickone >= 8)
[(if: 8st of _pickval is not (max: ..._pickval))
[(set: $deckpickone to it - (a: 8st of $deckpickone))]]
(if: length of $deckpickone >= 7)
[(if: 7st of _pickval is not (max: ..._pickval))
[(set: $deckpickone to it - (a: 7st of $deckpickone))]]
(if: length of $deckpickone >= 6)
[(if: 6st of _pickval is not (max: ..._pickval))
[(set: $deckpickone to it - (a: 6st of $deckpickone))]]
(if: length of $deckpickone >= 5)
[(if: 5st of _pickval is not (max: ..._pickval))
[(set: $deckpickone to it - (a: 5st of $deckpickone))]]
(if: length of $deckpickone >= 4)
[(if: 4st of _pickval is not (max: ..._pickval))
[(set: $deckpickone to it - (a: 4st of $deckpickone))]]
(if: length of $deckpickone >= 3)
[(if: 3st of _pickval is not (max: ..._pickval))
[(set: $deckpickone to it - (a: 3st of $deckpickone))]]
(if: length of $deckpickone >= 2)
[(if: 2st of _pickval is not (max: ..._pickval))
[(set: $deckpickone to it - (a: 2st of $deckpickone))]]
(if: length of $deckpickone >= 1)
[(if: 1st of _pickval is not (max: ..._pickval))
[(set: $deckpickone to it - (a: 1st of $deckpickone))]]
(set: $deckchosen to (either: ...$deckpickone))
]
(set: $hiscapture to it + (a:$deckchosen))
(set: $field to it - (a:$deckchosen))
]
(elseif: (count: _suitfield, _suitdeck) matches 3)
[(set: $matchdeck to 3)
(set: $hiscapture to it + (a:_deck) )
(for: each _fpos, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
[(if: length of $field >= _fpos)
[(if: (_fpos) of _suitfield matches _suitdeck)
[(set: $hiscapture to it + (a: (_fpos) of $field))
(set: $field to it - (a: (_fpos) of $field))]]
]
]
(elseif: (count: _suitfield, _suitdeck) matches 2)
[(set: $matchdeck to 2)
(set: $hiscapture to it + (a:_deck))
(set: $deckpickone to (a:))
(for: each _fpos, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
[(if: length of $field >= _fpos)
[(if: (_fpos) of _suitfield matches _suitdeck)
[(set: $deckpickone to it + (a:(_fpos) of $field))]]
]
(if: 1st of $deckpickone of $yamaval > 2nd of $deckpickone of $yamaval)
[(set: $deckchosen to 1st of $deckpickone)]
(else:)
[(set: $deckchosen to 2nd of $deckpickone)]
(set: $hiscapture to it + (a:$deckchosen))
(set: $field to it - (a:$deckchosen))
]
(elseif: (count: _suitfield, _suitdeck) matches 1)
[(set: $matchdeck to 1)
(set: $hiscapture to it + (a:_deck) )
(for: each _fpos, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
[(if: length of $field >= _fpos)
[(if: (_fpos) of _suitfield matches _suitdeck)
[(set: $hiscapture to it + (a: (_fpos) of $field))
(set: $field to it - (a: (_fpos) of $field))]]
]
]
(else:)
[(set: $matchdeck to 0)
(set: $field to it + (a:_deck))]
}which has $matchdeck match(if: $matchdeck is not in (a: 1, "a calligraphic"))[es] on the field{
(if: $matchdeck is 1)
[, (print: last of $hiscapture)]
(elseif: $matchdeck is 2)
[. He chooses $deckchosen]
(elseif: $matchdeck is 3)
[, the whole suit]
(elseif: $matchdeck is "all (text-color: (rgb:72,160,40))[Willow] and non-chaff as" and $ame4 is not in $field)
[, of which he chooses $deckchosen]
(elseif: $matchdeck is "all (text-color: (rgb:72,160,40))[Willow] and non-chaff as" and $ame4 is in $field)
[, but there are none, so it stays put]
(elseif: $matchdeck is "a calligraphic")
[, and pairs with $ame4]
(set: _suitfield to $field of $suits)
(display: "Score Calc")}.
Your opponent ultimately captures (print: length of $hiscapture - $hisprevcap) new cards this turn. ''The score is now his $valhiscap points to your $valmycap points.
The target score is (print: (num: $spans) * 100).''
(display: "The Field")
{(set: $hisprevcap to length of $hiscapture)
}](unless: length of $myhand is 0)
[[[It's your turn.->yama your move 1]]]
(else:)
[The cards have run out. [[See round results.->Yama End]]]{
(display: "fuke score calc")
(display: "Score Calc")
}{
(if: $mycapture contains all of $shiko)
[You captured ''Four Brights'', earning 600 points! Wow!<br>]
(if: (count: $mycapture, ...$ribbons) >= 7)
[You captured ''Seven ~~Ribbons~~'', earning 600 points! OMG!<br>]
(if: $mycapture contains all of $ishicho)
[You captured ''//Boar//, //Deer//, and //Butterflies//'', earning 300 points! Awesome!<br>]
(if: $mycapture contains all of (a: $ame1, $ame2, $ame3, $ame4))
[You captured ''(text-color: (rgb:72,160,40))[Willow] Row'', earning 200 points! Sweet!<br>]
(if: $mycapture contains all of $sanko)
[You captured ''Three Brights'', earning 150 points. Cool!<br>]
(if: $mycapture contains all of $makibo)
[You captured ''Pine, Princess, and Priest'', earning 150 points. Nifty!<br>]
(if: $mycapture contains all of $nomi)
[You captured both ''Flower Viewing'' and ''Moon Viewing'', earning 300 points! Woohoo!<br>]
(elseif: $mycapture contains all of (a: $kiku4, $cherry4))
[You captured ''Flower Viewing'', earning 100 points!<br>]
(elseif: $mycapture contains all of (a: $kiku4, $grass4))
[You captured ''Moon Viewing'', earning 100 points!<br>]
(if: $mycapture contains all of $akatan)
[You captured ''Poetry ~~Ribbons~~'', earning 100 points!<br>]
(if: $mycapture contains all of $aotan)
[You captured ''~~Blue Ribbons~~'', earning 100 points!<br>]
(if: $mycapture contains all of $kusa)
[You captured ''Grass ~~Ribbons~~'', earning 100 points!<br>]
(if: $hiscapture contains all of $shiko)
[Your opponent captured ''Four Brights'', earning 600 points! Oh no!<br>]
(if: (count: $hiscapture, ...$ribbons) >= 7)
[Your opponent captured ''Seven ~~Ribbons~~'', earning 600 points! Ouchie!<br>]
(if: $hiscapture contains all of $ishicho)
[Your opponent captured ''//Boar//, //Deer//, and //Butterflies//'', earning 300 points! Drat!<br>]
(if: $hiscapture contains all of (a: $ame1, $ame2, $ame3, $ame4))
[Your opponent captured ''(text-color: (rgb:72,160,40))[Willow] Row'', earning 200 points! Darn!<br>]
(if: $hiscapture contains all of $sanko)
[Your opponent captured ''Three Brights'', earning 150 points!<br>]
(if: $hiscapture contains all of $makibo)
[Your opponent captured ''Pine, Princess, and Priest'', earning 150 points!<br>]
(if: $hiscapture contains all of $nomi)
[Your opponent captured both ''Flower Viewing'' and ''Moon Viewing'', earning 300 points! Big oof!<br>]
(elseif: $hiscapture contains all of (a: $kiku4, $cherry4))
[Your opponent captured ''Flower Viewing'', earning 100 points.<br>]
(elseif: $hiscapture contains all of (a: $kiku4, $grass4))
[Your opponent captured ''Moon Viewing'', earning 100 points.<br>]
(if: $hiscapture contains all of $akatan)
[Your opponent captured ''Poetry ~~Ribbons~~'', earning 100 points.<br>]
(if: $hiscapture contains all of $aotan)
[Your opponent captured ''~~Blue Ribbons~~'', earning 100 points.<br>]
(if: $hiscapture contains all of $kusa)
[Your opponent captured ''Grass ~~Ribbons~~'', earning 100 points.<br>]
}
{(linkrepeat: "See all captured cards")[(display: "yama cap lists")]
<br><br>
Your cumulative score: $valmycap points.
<br><br>
Your opponent's score: $valhiscap points.
<br><br>
The target score: (print: (num: $spans) * 100)
<br><br>
}{
(if: $yamahigh < $valmycap - $mylasttotal)[(set: $yamahigh to $valmycap - $mylasttotal)]
(if: $myfuke <= 30)
[Not counting (text-color: (rgb:72,160,40))[Willow] and (text-color: (rgb:60,179,113))[Princess Tree] cards, you earned only $myfuke points, invalidating the entire round. [[The competition continues->Mountain Flowers]]!
(if: $yamadeal is false)[(set: $yamadeal to true)]
(else:)[(set: $yamadeal to false)]
(set: $continue to true)]
(elseif: $hisfuke <=30)
[Not counting (text-color: (rgb:72,160,40))[Willow] and (text-color: (rgb:60,179,113))[Princess Tree] cards, your opponent earned only $myfuke points, invalidating the entire round. [[The competition continues->Mountain Flowers]]!
(if: $yamadeal is false)[(set: $yamadeal to true)]
(else:)[(set: $yamadeal to false)]
(set: $continue to true)]
(elseif: $valmycap > $valhiscap and $valmycap > (num: $spans) * 100)
[You have outscored your opponent and reached the finish line! He (either:"congratulates you and", "(grumpily)", "", "struggles a bit as he") (either: "lugs", "chucks", "thunks", "carefully tosses") ''$spans Mountain Tokens'' your way.
<br><br>
"Care for another [[climb up the mountain->Mountain Flowers]]?"
<br><br>
(textsize:0.75)[[[See all games.->game list]]]
(set: $yamatokens to it + (num:$spans))
(set: $yamawins to it + 1)
(set: $continue to false)
(set: $mylasttotal to 0)
(set: $hislasttotal to 0)
]
(elseif: $valhiscap > $valmycap and $valhiscap > (num: $spans) * 100)
[You opponent has outscored you and reached the finish line! "You can't win them all," he (either: "boasts", "teases", "taunts", "says, smirking").
<br><br>
"Care for another try at [[Mountain Flowers]]?"
<br><br>
(textsize:0.75)[[[See all games.->game list]]]
(set: $yamalosses to it + 1)
(set: $continue to false)
(set: $mylasttotal to 0)
(set: $hislasttotal to 0)
]
(else:)
[Neither player has both met the target score and exceeded their opponent's score. [[The competition continues->Mountain Flowers]]!
(if: $yamadeal is false)[(set: $yamadeal to true)]
(else:)[(set: $yamadeal to false)]
(set: $continue to true)
(set: $mylasttotal to $valmycap)
(set: $hislasttotal to $valhiscap)
]
}
{
(link:"Save.")
[
(if: (save-game:"Slot A"))
[Game saved!]
(else: )
[The game was unable to be saved.]
]
}Choose any (text-color: (rgb:72,160,40))[Willow] or non-chaff to (either: "strike", "take", "smack", "capture", ) with $ame4.
(enchantin: ?link, (textcolor: "white"))[(display: "The Field")]{
(display: "Score Calc")}
(textsize: 0.6)[
=><=
''(linkrepeat: "Special Set")[(display: "yama yaku dialog")] Progress''
<==
=||||=
==>
''Yours''
{
(if: $pine4 is in $mycapture)
[(text-color: green)[''Crane''], ]
(if: $cherry4 is in $mycapture)
[(text-color: (rgb:255,180,182))[''Curtain''], ]
(if: $grass4 is in $mycapture)
[(text-color: (rgb:185,222,193))[''Moon''], ]
(if: $kiri4 is in $mycapture)
[(text-color: (rgb:60,179,113))[''Phoenix'']]
}
{
(if: $pine4 is in $mycapture)
[(text-color: green)[''Crane''], ]
(if: $plum4 is in $mycapture)
[(text-color: red)[//Warbler//], ]
(if: $cherry4 is in $mycapture)
[(text-color: (rgb:255,180,182))[''Curtain'']]
}
{
(if: $pine4 is in $mycapture)
[(text-color: green)[''Crane''], ]
(if: $kiri4 is in $mycapture)
[(text-color: (rgb:60,179,113))[''Phoenix''], ]
(if: $grass4 is in $mycapture)
[(text-color: (rgb:185,222,193))[''Moon'']]
}
{
(if: $kiku4 is in $mycapture)
[(text-color: yellow)[//SakeCup//], ]
(if: $cherry4 is in $mycapture)
[(text-color: (rgb:255,180,182))[''Curtain''], ]
(if: $grass4 is in $mycapture)
[(text-color: (rgb:185,222,193))[''Moon''], ]
}
{
(if: $hagi4 is in $mycapture)
[(text-color: (rgb:255,70,10))[//Boar//], ]
(if: $maple4 is in $mycapture)
[(text-color: (rgb:250,160,0))[//Deer//], ]
(if: $peony4 is in $mycapture)
[(text-color: (rgb:238,130,220))[//Butterflies//], ]
}
{
(unless: length of $mycapture is 0)
[(count: $ribbons, ...$mycapture)]
(else:)[0]
}
{
(if: $pine3 is in $mycapture)[(text-color: green)[~~Pine~~], ]
(if: $plum3 is in $mycapture)[(text-color: red)[~~PlumB.~~], ]
(if: $cherry3 is in $mycapture)[(text-color: (rgb:255,180,182))[~~CherryB.~~]]
}
{
(if: $peony3 is in $mycapture)[(text-color: (rgb:238,130,220))[~~Peony~~], ]
(if: $kiku3 is in $mycapture)[(text-color: yellow)[~~Chrysanth.~~], ]
(if: $maple3 is in $mycapture)[(text-color: (rgb:250,160,0))[~~Maple~~]]
}
{
(if: $fuji3 is in $mycapture)[(text-color: (rgb: 250,0,250))[~~Wisteria~~], ]
(if: $iris3 is in $mycapture)[(text-color: blue)[~~Iris~~], ]
(if: $hagi3 is in $mycapture)[(text-color: (rgb:255,70,10))[~~B.Clover~~]]
}
{
(if: $ame4 is in $mycapture)[(text-color: (rgb:72,160,40))[''RainMan''], ]
(if: $ame3 is in $mycapture)[(text-color: (rgb:72,160,40))[//Swallow//], ]
(if: $ame2 is in $mycapture)[(text-color: (rgb:72,160,40))[~~Ribbon~~], ]
(if: $ame1 is in $mycapture)[(text-color: (rgb:72,160,40))[Chaff]]
}
=|=
=><=
''4Brights
3Brights
P.P.P.
//Viewing//''
//B.D.B.//
~~7Ribbbons~~
~~Poetry~~
~~Blue~~
~~Grass~~
(text-color: (rgb:72,160,40))[Willow]
=||||=
<==
''His''
{
(if: $pine4 is in $hiscapture)
[(text-color: green)[''Crane''], ]
(if: $cherry4 is in $hiscapture)
[(text-color: (rgb:255,180,182))[''Curtain''], ]
(if: $grass4 is in $hiscapture)
[(text-color: (rgb:185,222,193))[''Moon''], ]
(if: $kiri4 is in $hiscapture)
[(text-color: (rgb:60,179,113))[''Phoenix'']]
}
{
(if: $pine4 is in $hiscapture)
[(text-color: green)[''Crane''], ]
(if: $plum4 is in $hiscapture)
[(text-color: red)[//Warbler//], ]
(if: $cherry4 is in $hiscapture)
[(text-color: (rgb:255,180,182))[''Curtain'']]
}
{
(if: $pine4 is in $hiscapture)
[(text-color: green)[''Crane''], ]
(if: $kiri4 is in $hiscapture)
[(text-color: (rgb:60,179,113))[''Phoenix''], ]
(if: $grass4 is in $hiscapture)
[(text-color: (rgb:185,222,193))[''Moon'']]
}
{
(if: $kiku4 is in $hiscapture)
[(text-color: yellow)[//SakeCup//], ]
(if: $cherry4 is in $hiscapture)
[(text-color: (rgb:255,180,182))[''Curtain''], ]
(if: $grass4 is in $hiscapture)
[(text-color: (rgb:185,222,193))[''Moon''], ]
}
{
(if: $hagi4 is in $hiscapture)
[(text-color: (rgb:255,70,10))[//Boar//], ]
(if: $maple4 is in $hiscapture)
[(text-color: (rgb:250,160,0))[//Deer//], ]
(if: $peony4 is in $hiscapture)
[(text-color: (rgb:238,130,220))[//Butterflies//], ]
}
{
(unless: length of $hiscapture is 0)
[(count: $ribbons, ...$hiscapture)]
(else:)[0]
}
{
(if: $pine3 is in $hiscapture)[(text-color: green)[~~Pine~~], ]
(if: $plum3 is in $hiscapture)[(text-color: red)[~~PlumB.~~], ]
(if: $cherry3 is in $hiscapture)[(text-color: (rgb:255,180,182))[~~CherryB.~~]]
}
{
(if: $peony3 is in $hiscapture)[(text-color: (rgb:238,130,220))[~~Peony~~], ]
(if: $kiku3 is in $hiscapture)[(text-color: yellow)[~~Chrysanth.~~], ]
(if: $maple3 is in $hiscapture)[(text-color: (rgb:250,160,0))[~~Maple~~]]
}
{
(if: $fuji3 is in $hiscapture)[(text-color: (rgb: 250,0,250))[~~Wisteria~~], ]
(if: $iris3 is in $hiscapture)[(text-color: blue)[~~Iris~~], ]
(if: $hagi3 is in $hiscapture)[(text-color: (rgb:255,70,10))[~~B.Clover~~]]
}
{
(if: $ame4 is in $hiscapture)[(text-color: (rgb:72,160,40))[''RainMan''], ]
(if: $ame3 is in $hiscapture)[(text-color: (rgb:72,160,40))[//Swallow//], ]
(if: $ame2 is in $hiscapture)[(text-color: (rgb:72,160,40))[~~Ribbon~~], ]
(if: $ame1 is in $hiscapture)[(text-color: (rgb:72,160,40))[Chaff]]
}
|==|
=><=
(linkrepeat: "See all captured cards")
[(display: "yama cap lists")]
[[Get help->Mountain Flowers rules]]
[[MENU->menu]]
]
<==
{
(if: (count: $field, ...$allbutchaff) is 0)
[(set: $field to it + (a: $ame4))
(set: $handpickwild to 0)
(goto: "yama opponent move")]
(if: length of $field >=1)
[(if: 1st of $field is not in $allbutchaff)
[(hide: ?f1)]]
(if: length of $field >=2)
[(if: 2nd of $field is not in $allbutchaff)
[(hide: ?f2)]]
(if: length of $field >=3)
[(if: 3rd of $field is not in $allbutchaff)
[(hide: ?f3)]]
(if: length of $field >=4)
[(if: 4th of $field is not in $allbutchaff)
[(hide: ?f4)]]
(if: length of $field >=5)
[(if: 5th of $field is not in $allbutchaff)
[(hide: ?f5)]]
(if: length of $field >=6)
[(if: 6th of $field is not in $allbutchaff)
[(hide: ?f6)]]
(if: length of $field >=7)
[(if: 7th of $field is not in $allbutchaff)
[(hide: ?f7)]]
(if: length of $field >=8)
[(if: 8th of $field is not in $allbutchaff)
[(hide: ?f8)]]
(if: length of $field >=9)
[(if: 9th of $field is not in $allbutchaff)
[(hide: ?f9)]]
(if: length of $field >=10)
[(if: 10th of $field is not in $allbutchaff)
[(hide: ?f10)]]
(if: length of $field >=11)
[(if: 11th of $field is not in $allbutchaff)
[(hide: ?f11)]]
(if: length of $field >=12)
[(if: 12th of $field is not in $allbutchaff)
[(hide: ?f12)]]
(if: length of $field >=13)
[(if: 13th of $field is not in $allbutchaff)
[(hide: ?f13)]]
(if: length of $field >=14)
[(if: 14th of $field is not in $allbutchaff)
[(hide: ?f14)]]
(if: length of $field >=15)
[(if: 15th of $field is not in $allbutchaff)
[(hide: ?f15)]]
(if: length of $field >=16)
[(if: 16th of $field is not in $allbutchaff)
[(hide: ?f16)]]
(if: length of $field >=17)
[(if: 17th of $field is not in $allbutchaff)
[(hide: ?f17)]]
(if: length of $field >=18)
[(if: 18th of $field is not in $allbutchaff)
[(hide: ?f18)]]
(click: ?f1)
[(set: $handpickwild to 1st of $field)
(set: $mycapture to it + (a: $ame4, $handpickwild))
(set: $field to it - (a: $handpickwild))
(goto: "yama opponent move")]
(click: ?f2)
[(set: $handpickwild to 2st of $field)
(set: $mycapture to it + (a: $ame4, $handpickwild))
(set: $field to it - (a: $handpickwild))
(goto: "yama opponent move")
]
(click: ?f3)
[(set: $handpickwild to 3st of $field)
(set: $mycapture to it + (a: $ame4, $handpickwild))
(set: $field to it - (a: $handpickwild))
(goto: "yama opponent move")
]
(click: ?f4)
[(set: $handpickwild to 4th of $field)
(set: $mycapture to it + (a: $ame4, $handpickwild))
(set: $field to it - (a: $handpickwild))
(goto: "yama opponent move")
]
(click: ?f5)
[(set: $handpickwild to 5th of $field)
(set: $mycapture to it + (a: $ame4, $handpickwild))
(set: $field to it - (a: $handpickwild))
(goto: "yama opponent move")
]
(click: ?f6)
[(set: $handpickwild to 6th of $field)
(set: $mycapture to it + (a: $ame4, $handpickwild))
(set: $field to it - (a: $handpickwild))
(goto: "yama opponent move")
]
(click: ?f7)
[(set: $handpickwild to 7th of $field)
(set: $mycapture to it + (a: $ame4, $handpickwild))
(set: $field to it - (a: $handpickwild))
(goto: "yama opponent move")
]
(click: ?f8)
[(set: $handpickwild to 8th of $field)
(set: $mycapture to it + (a: $ame4, $handpickwild))
(set: $field to it - (a: $handpickwild))
(goto: "yama opponent move")
]
(click: ?f9)
[(set: $handpickwild to 9th of $field)
(set: $mycapture to it + (a: $ame4, $handpickwild))
(set: $field to it - (a: $handpickwild))
(goto: "yama opponent move")
]
(click: ?f10)
[(set: $handpickwild to 10th of $field)
(set: $mycapture to it + (a: $ame4, $handpickwild))
(set: $field to it - (a: $handpickwild))
(goto: "yama opponent move")
]
(click: ?f11)
[(set: $handpickwild to 11th of $field)
(set: $mycapture to it + (a: $ame4, $handpickwild))
(set: $field to it - (a: $handpickwild))
(goto: "yama opponent move")
]
(click: ?f12)
[(set: $handpickwild to 12th of $field)
(set: $mycapture to it + (a: $ame4, $handpickwild))
(set: $field to it - (a: $handpickwild))
(goto: "yama opponent move")
]
(click: ?f13)
[(set: $handpickwild to 13th of $field)
(set: $mycapture to it + (a: $ame4, $handpickwild))
(set: $field to it - (a: $handpickwild))
(goto: "yama opponent move")
]
(click: ?f14)
[(set: $handpickwild to 14th of $field)
(set: $mycapture to it + (a: $ame4, $handpickwild))
(set: $field to it - (a: $handpickwild))
(goto: "yama opponent move")
]
(click: ?f15)
[(set: $handpickwild to 15th of $field)
(set: $mycapture to it + (a: $ame4, $handpickwild))
(set: $field to it - (a: $handpickwild))
(goto: "yama opponent move")
]
(click: ?f16)
[(set: $handpickwild to 16th of $field)
(set: $mycapture to it + (a: $ame4, $handpickwild))
(set: $field to it - (a: $handpickwild))
(goto: "yama opponent move")
]
(click: ?f17)
[(set: $handpickwild to 17th of $field)
(set: $mycapture to it + (a: $ame4, $handpickwild))
(set: $field to it - (a: $handpickwild))
(goto: "yama opponent move")
]
(click: ?f18)
[(set: $handpickwild to 18th of $field)
(set: $mycapture to it + (a: $ame4, $handpickwild))
(set: $field to it - (a: $handpickwild))
(goto: "yama opponent move")
]
(set: $ame4 of $suits to "(text-color: (rgb:72,160,40))[Willow] and non-chaff")
}You drew the wild card from the deck. Choose any (text-color: (rgb:72,160,40))[Willow] or non-chaff to (either: "strike", "take", "smack", "capture", ) with $ame4.
(enchantin: ?link, (textcolor: "white"))[(display: "The Field")]{
(set: _hand to $hand)
(set: _deck to $tempdeck)
(display: "Score Calc")}
(textsize: 0.6)[
=><=
''(linkrepeat: "Special Set")[(display: "yama yaku dialog")] Progress''
<==
=||||=
==>
''Yours''
{
(if: $pine4 is in $mycapture)
[(text-color: green)[''Crane''], ]
(if: $cherry4 is in $mycapture)
[(text-color: (rgb:255,180,182))[''Curtain''], ]
(if: $grass4 is in $mycapture)
[(text-color: (rgb:185,222,193))[''Moon''], ]
(if: $kiri4 is in $mycapture)
[(text-color: (rgb:60,179,113))[''Phoenix'']]
}
{
(if: $pine4 is in $mycapture)
[(text-color: green)[''Crane''], ]
(if: $plum4 is in $mycapture)
[(text-color: red)[//Warbler//], ]
(if: $cherry4 is in $mycapture)
[(text-color: (rgb:255,180,182))[''Curtain'']]
}
{
(if: $pine4 is in $mycapture)
[(text-color: green)[''Crane''], ]
(if: $kiri4 is in $mycapture)
[(text-color: (rgb:60,179,113))[''Phoenix''], ]
(if: $grass4 is in $mycapture)
[(text-color: (rgb:185,222,193))[''Moon'']]
}
{
(if: $kiku4 is in $mycapture)
[(text-color: yellow)[//SakeCup//], ]
(if: $cherry4 is in $mycapture)
[(text-color: (rgb:255,180,182))[''Curtain''], ]
(if: $grass4 is in $mycapture)
[(text-color: (rgb:185,222,193))[''Moon''], ]
}
{
(if: $hagi4 is in $mycapture)
[(text-color: (rgb:255,70,10))[//Boar//], ]
(if: $maple4 is in $mycapture)
[(text-color: (rgb:250,160,0))[//Deer//], ]
(if: $peony4 is in $mycapture)
[(text-color: (rgb:238,130,220))[//Butterflies//], ]
}
{
(unless: length of $mycapture is 0)
[(count: $ribbons, ...$mycapture)]
(else:)[0]
}
{
(if: $pine3 is in $mycapture)[(text-color: green)[~~Pine~~], ]
(if: $plum3 is in $mycapture)[(text-color: red)[~~PlumB.~~], ]
(if: $cherry3 is in $mycapture)[(text-color: (rgb:255,180,182))[~~CherryB.~~]]
}
{
(if: $peony3 is in $mycapture)[(text-color: (rgb:238,130,220))[~~Peony~~], ]
(if: $kiku3 is in $mycapture)[(text-color: yellow)[~~Chrysanth.~~], ]
(if: $maple3 is in $mycapture)[(text-color: (rgb:250,160,0))[~~Maple~~]]
}
{
(if: $fuji3 is in $mycapture)[(text-color: (rgb: 250,0,250))[~~Wisteria~~], ]
(if: $iris3 is in $mycapture)[(text-color: blue)[~~Iris~~], ]
(if: $hagi3 is in $mycapture)[(text-color: (rgb:255,70,10))[~~B.Clover~~]]
}
{
(if: $ame4 is in $mycapture)[(text-color: (rgb:72,160,40))[''RainMan''], ]
(if: $ame3 is in $mycapture)[(text-color: (rgb:72,160,40))[//Swallow//], ]
(if: $ame2 is in $mycapture)[(text-color: (rgb:72,160,40))[~~Ribbon~~], ]
(if: $ame1 is in $mycapture)[(text-color: (rgb:72,160,40))[Chaff]]
}
=|=
=><=
''4Brights
3Brights
P.P.P.
//Viewing//''
//B.D.B.//
~~7Ribbbons~~
~~Poetry~~
~~Blue~~
~~Grass~~
(text-color: (rgb:72,160,40))[Willow]
=||||=
<==
''His''
{
(if: $pine4 is in $hiscapture)
[(text-color: green)[''Crane''], ]
(if: $cherry4 is in $hiscapture)
[(text-color: (rgb:255,180,182))[''Curtain''], ]
(if: $grass4 is in $hiscapture)
[(text-color: (rgb:185,222,193))[''Moon''], ]
(if: $kiri4 is in $hiscapture)
[(text-color: (rgb:60,179,113))[''Phoenix'']]
}
{
(if: $pine4 is in $hiscapture)
[(text-color: green)[''Crane''], ]
(if: $plum4 is in $hiscapture)
[(text-color: red)[//Warbler//], ]
(if: $cherry4 is in $hiscapture)
[(text-color: (rgb:255,180,182))[''Curtain'']]
}
{
(if: $pine4 is in $hiscapture)
[(text-color: green)[''Crane''], ]
(if: $kiri4 is in $hiscapture)
[(text-color: (rgb:60,179,113))[''Phoenix''], ]
(if: $grass4 is in $hiscapture)
[(text-color: (rgb:185,222,193))[''Moon'']]
}
{
(if: $kiku4 is in $hiscapture)
[(text-color: yellow)[//SakeCup//], ]
(if: $cherry4 is in $hiscapture)
[(text-color: (rgb:255,180,182))[''Curtain''], ]
(if: $grass4 is in $hiscapture)
[(text-color: (rgb:185,222,193))[''Moon''], ]
}
{
(if: $hagi4 is in $hiscapture)
[(text-color: (rgb:255,70,10))[//Boar//], ]
(if: $maple4 is in $hiscapture)
[(text-color: (rgb:250,160,0))[//Deer//], ]
(if: $peony4 is in $hiscapture)
[(text-color: (rgb:238,130,220))[//Butterflies//], ]
}
{
(unless: length of $hiscapture is 0)
[(count: $ribbons, ...$hiscapture)]
(else:)[0]
}
{
(if: $pine3 is in $hiscapture)[(text-color: green)[~~Pine~~], ]
(if: $plum3 is in $hiscapture)[(text-color: red)[~~PlumB.~~], ]
(if: $cherry3 is in $hiscapture)[(text-color: (rgb:255,180,182))[~~CherryB.~~]]
}
{
(if: $peony3 is in $hiscapture)[(text-color: (rgb:238,130,220))[~~Peony~~], ]
(if: $kiku3 is in $hiscapture)[(text-color: yellow)[~~Chrysanth.~~], ]
(if: $maple3 is in $hiscapture)[(text-color: (rgb:250,160,0))[~~Maple~~]]
}
{
(if: $fuji3 is in $hiscapture)[(text-color: (rgb: 250,0,250))[~~Wisteria~~], ]
(if: $iris3 is in $hiscapture)[(text-color: blue)[~~Iris~~], ]
(if: $hagi3 is in $hiscapture)[(text-color: (rgb:255,70,10))[~~B.Clover~~]]
}
{
(if: $ame4 is in $hiscapture)[(text-color: (rgb:72,160,40))[''RainMan''], ]
(if: $ame3 is in $hiscapture)[(text-color: (rgb:72,160,40))[//Swallow//], ]
(if: $ame2 is in $hiscapture)[(text-color: (rgb:72,160,40))[~~Ribbon~~], ]
(if: $ame1 is in $hiscapture)[(text-color: (rgb:72,160,40))[Chaff]]
}
|==|
=><=
(linkrepeat: "See all captured cards")
[(display: "yama cap lists")]
[[Get help->Mountain Flowers rules]]
[[MENU->menu]]
]
<==
{
(if: (count: $field, ...$allbutchaff) is 0)
[(set: $field to it + (a: $ame4))
(set: $deckpickwild to 0)
(goto: "yama opponent move")]
(if: length of $field >=1)
[(if: 1st of $field is not in $allbutchaff)
[(hide: ?f1)]]
(if: length of $field >=2)
[(if: 2nd of $field is not in $allbutchaff)
[(hide: ?f2)]]
(if: length of $field >=3)
[(if: 3rd of $field is not in $allbutchaff)
[(hide: ?f3)]]
(if: length of $field >=4)
[(if: 4th of $field is not in $allbutchaff)
[(hide: ?f4)]]
(if: length of $field >=5)
[(if: 5th of $field is not in $allbutchaff)
[(hide: ?f5)]]
(if: length of $field >=6)
[(if: 6th of $field is not in $allbutchaff)
[(hide: ?f6)]]
(if: length of $field >=7)
[(if: 7th of $field is not in $allbutchaff)
[(hide: ?f7)]]
(if: length of $field >=8)
[(if: 8th of $field is not in $allbutchaff)
[(hide: ?f8)]]
(if: length of $field >=9)
[(if: 9th of $field is not in $allbutchaff)
[(hide: ?f9)]]
(if: length of $field >=10)
[(if: 10th of $field is not in $allbutchaff)
[(hide: ?f10)]]
(if: length of $field >=11)
[(if: 11th of $field is not in $allbutchaff)
[(hide: ?f11)]]
(if: length of $field >=12)
[(if: 12th of $field is not in $allbutchaff)
[(hide: ?f12)]]
(if: length of $field >=13)
[(if: 13th of $field is not in $allbutchaff)
[(hide: ?f13)]]
(if: length of $field >=14)
[(if: 14th of $field is not in $allbutchaff)
[(hide: ?f14)]]
(if: length of $field >=15)
[(if: 15th of $field is not in $allbutchaff)
[(hide: ?f15)]]
(if: length of $field >=16)
[(if: 16th of $field is not in $allbutchaff)
[(hide: ?f16)]]
(if: length of $field >=17)
[(if: 17th of $field is not in $allbutchaff)
[(hide: ?f17)]]
(if: length of $field >=18)
[(if: 18th of $field is not in $allbutchaff)
[(hide: ?f18)]]
(click: ?f1)
[(set: $deckpickwild to 1st of $field)
(set: $mycapture to it + (a: $ame4, $deckpickwild))
(set: $field to it - (a: $deckpickwild))
(goto: "yama opponent move")]
(click: ?f2)
[(set: $deckpickwild to 2st of $field)
(set: $mycapture to it + (a: $ame4, $deckpickwild))
(set: $field to it - (a: $deckpickwild))
(goto: "yama opponent move")
]
(click: ?f3)
[(set: $deckpickwild to 3st of $field)
(set: $mycapture to it + (a: $ame4, $deckpickwild))
(set: $field to it - (a: $deckpickwild))
(goto: "yama opponent move")
]
(click: ?f4)
[(set: $deckpickwild to 4th of $field)
(set: $mycapture to it + (a: $ame4, $deckpickwild))
(set: $field to it - (a: $deckpickwild))
(goto: "yama opponent move")
]
(click: ?f5)
[(set: $deckpickwild to 5th of $field)
(set: $mycapture to it + (a: $ame4, $deckpickwild))
(set: $field to it - (a: $deckpickwild))
(goto: "yama opponent move")
]
(click: ?f6)
[(set: $deckpickwild to 6th of $field)
(set: $mycapture to it + (a: $ame4, $deckpickwild))
(set: $field to it - (a: $deckpickwild))
(goto: "yama opponent move")
]
(click: ?f7)
[(set: $deckpickwild to 7th of $field)
(set: $mycapture to it + (a: $ame4, $deckpickwild))
(set: $field to it - (a: $deckpickwild))
(goto: "yama opponent move")
]
(click: ?f8)
[(set: $deckpickwild to 8th of $field)
(set: $mycapture to it + (a: $ame4, $deckpickwild))
(set: $field to it - (a: $deckpickwild))
(goto: "yama opponent move")
]
(click: ?f9)
[(set: $deckpickwild to 9th of $field)
(set: $mycapture to it + (a: $ame4, $deckpickwild))
(set: $field to it - (a: $deckpickwild))
(goto: "yama opponent move")
]
(click: ?f10)
[(set: $deckpickwild to 10th of $field)
(set: $mycapture to it + (a: $ame4, $deckpickwild))
(set: $field to it - (a: $deckpickwild))
(goto: "yama opponent move")
]
(click: ?f11)
[(set: $deckpickwild to 11th of $field)
(set: $mycapture to it + (a: $ame4, $deckpickwild))
(set: $field to it - (a: $deckpickwild))
(goto: "yama opponent move")
]
(click: ?f12)
[(set: $deckpickwild to 12th of $field)
(set: $mycapture to it + (a: $ame4, $deckpickwild))
(set: $field to it - (a: $deckpickwild))
(goto: "yama opponent move")
]
(click: ?f13)
[(set: $deckpickwild to 13th of $field)
(set: $mycapture to it + (a: $ame4, $deckpickwild))
(set: $field to it - (a: $deckpickwild))
(goto: "yama opponent move")
]
(click: ?f14)
[(set: $deckpickwild to 14th of $field)
(set: $mycapture to it + (a: $ame4, $deckpickwild))
(set: $field to it - (a: $deckpickwild))
(goto: "yama opponent move")
]
(click: ?f15)
[(set: $deckpickwild to 15th of $field)
(set: $mycapture to it + (a: $ame4, $deckpickwild))
(set: $field to it - (a: $deckpickwild))
(goto: "yama opponent move")
]
(click: ?f16)
[(set: $deckpickwild to 16th of $field)
(set: $mycapture to it + (a: $ame4, $deckpickwild))
(set: $field to it - (a: $deckpickwild))
(goto: "yama opponent move")
]
(click: ?f17)
[(set: $deckpickwild to 17th of $field)
(set: $mycapture to it + (a: $ame4, $deckpickwild))
(set: $field to it - (a: $deckpickwild))
(goto: "yama opponent move")
]
(click: ?f18)
[(set: $deckpickwild to 18th of $field)
(set: $mycapture to it + (a: $ame4, $deckpickwild))
(set: $field to it - (a: $deckpickwild))
(goto: "yama opponent move")
]
(set: $ame4 of $suits to "(text-color: (rgb:72,160,40))[Willow] and non-chaff")
}{
(display: "Score Calc")
(set: $mysuitcap to $mycapture of $suits)
(set: $hissuitcap to $hiscapture of $suits)
(set: _valhiscap to $hiscapture of $yamaval)
(set: _valmycap to $mycapture of $yamaval)
(dialog:
"
(textsize: 0.6)[
=><=
''Captured Cards by Value''
<==
=||||=
''Yours''
{
(if: $pine4 is in $mycapture)[(text-color: green)[''Crane''], ]
(if: $plum4 is in $mycapture)[(text-color: red)[//Warbler//], ]
(if: $cherry4 is in $mycapture)[(text-color: (rgb:255,180,182))[''Curtain''], ]
(if: $grass4 is in $mycapture)[(text-color: (rgb:185,222,193))[''Moon''], ]
(if: $ame4 is in $mycapture)[(text-color: (rgb:72,160,40))[''Rain Man''], ]
(if: $kiri4 is in $mycapture)[(text-color: (rgb:60,179,113))[''Phoenix'']]
}
{
(if: $fuji4 is in $mycapture)[(text-color: (rgb: 250,0,250))[//Cuckoo//], ]
(if: $iris4 is in $mycapture)[(text-color: blue)[//Bridge//], ]
(if: $peony4 is in $mycapture)[(text-color: (rgb:238,130,220))[//Butterflies//], ]
(if: $hagi4 is in $mycapture)[(text-color: (rgb:255,70,10))[//Boar//], ]
(if: $grass3 is in $mycapture)[(text-color: (rgb:185,222,193))[//Geese//], ]
(if: $kiku4 is in $mycapture)[(text-color: yellow)[//SakeCup//], ]
(if: $maple4 is in $mycapture)[(text-color: (rgb:250,160,0))[//Deer//], ]
(if: $ame3 is in $mycapture)[(text-color: (rgb:72,160,40))[//Swallow//], ]
(if: $pine3 is in $mycapture)[(text-color: green)[~~Pine~~], ]
(if: $plum3 is in $mycapture)[(text-color: red)[~~PlumB.~~], ]
(if: $cherry3 is in $mycapture)[(text-color: (rgb:255,180,182))[~~CherryB.~~], ]
(if: $fuji3 is in $mycapture)[(text-color: (rgb: 250,0,250))[~~Wisteria~~], ]
(if: $iris3 is in $mycapture)[(text-color: blue)[~~Iris~~], ]
(if: $peony3 is in $mycapture)[(text-color: (rgb:238,130,220))[~~Peony~~], ]
(if: $hagi3 is in $mycapture)[(text-color: (rgb:255,70,10))[~~B.Clover~~], ]
(if: $kiku3 is in $mycapture)[(text-color: yellow)[~~Chrysanth.~~], ]
(if: $maple3 is in $mycapture)[(text-color: (rgb:250,160,0))[~~Maple~~], ]
(if: $ame2 is in $mycapture)[(text-color: (rgb:72,160,40))[~~Willow~~], ]
(if: $kiri3 is in $mycapture)[(text-color: (rgb:60,179,113))[Princess], ]
}
{
(if: $pine2 is in $mycapture)[(text-color: green)[Pine], ]
(if: $pine1 is in $mycapture)[(text-color: green)[Pine], ]
(if: $plum2 is in $mycapture)[(text-color: red)[PlumB.], ]
(if: $plum1 is in $mycapture)[(text-color: red)[PlumB.], ]
(if: $cherry2 is in $mycapture)[(text-color: (rgb:255,180,182))[CherryB.], ]
(if: $cherry1 is in $mycapture)[(text-color: (rgb:255,180,182))[CherryB.], ]
(if: $fuji2 is in $mycapture)[(text-color: (rgb: 250,0,250))[Wisteria], ]
(if: $fuji1 is in $mycapture)[(text-color: (rgb: 250,0,250))[Wisteria], ]
(if: $iris2 is in $mycapture)[(text-color: blue)[Iris], ]
(if: $iris1 is in $mycapture)[(text-color: blue)[Iris], ]
(if: $peony2 is in $mycapture)[(text-color: (rgb:238,130,220))[Peony], ]
(if: $peony1 is in $mycapture)[(text-color: (rgb:238,130,220))[Peony], ]
(if: $hagi2 is in $mycapture)[(text-color: (rgb:255,70,10))[B.Clover], ]
(if: $hagi1 is in $mycapture)[(text-color: (rgb:255,70,10))[B.Clover], ]
(if: $grass2 is in $mycapture)[(text-color: (rgb:185,222,193))[Grass], ]
(if: $grass1 is in $mycapture)[(text-color: (rgb:185,222,193))[Grass], ]
(if: $kiku2 is in $mycapture)[(text-color: yellow)[Chrysanth.], ]
(if: $kiku1 is in $mycapture)[(text-color: yellow)[Chrysanth.], ]
(if: $maple2 is in $mycapture)[(text-color: (rgb:250,160,0))[Maple], ]
(if: $maple1 is in $mycapture)[(text-color: (rgb:250,160,0))[Maple], ]
(if: $ame1 is in $mycapture)[(text-color: (rgb:72,160,40))[Willow], ]
(if: $kiri2 is in $mycapture)[(text-color: (rgb:60,179,113))[Princess], ]
(if: $kiri1 is in $mycapture)[(text-color: (rgb:60,179,113))[Princess]]
}
=|=
=><=
''50''
~~//10//~~
0
=||||=
==>
''His''
{
(if: $pine4 is in $hiscapture)[(text-color: green)[''Crane''], ]
(if: $plum4 is in $hiscapture)[(text-color: red)[//Warbler//], ]
(if: $cherry4 is in $hiscapture)[(text-color: (rgb:255,180,182))[''Curtain''], ]
(if: $grass4 is in $hiscapture)[(text-color: (rgb:185,222,193))[''Moon''], ]
(if: $ame4 is in $hiscapture)[(text-color: (rgb:72,160,40))[''Rain Man''], ]
(if: $kiri4 is in $hiscapture)[(text-color: (rgb:60,179,113))[''Phoenix'']]
}
{
(if: $fuji4 is in $hiscapture)[(text-color: (rgb: 250,0,250))[//Cuckoo//], ]
(if: $iris4 is in $hiscapture)[(text-color: blue)[//Bridge//], ]
(if: $peony4 is in $hiscapture)[(text-color: (rgb:238,130,220))[//Butterflies//], ]
(if: $hagi4 is in $hiscapture)[(text-color: (rgb:255,70,10))[//Boar//], ]
(if: $grass3 is in $hiscapture)[(text-color: (rgb:185,222,193))[//Geese//], ]
(if: $kiku4 is in $hiscapture)[(text-color: yellow)[//SakeCup//], ]
(if: $maple4 is in $hiscapture)[(text-color: (rgb:250,160,0))[//Deer//], ]
(if: $ame3 is in $hiscapture)[(text-color: (rgb:72,160,40))[//Swallow//], ]
(if: $pine3 is in $hiscapture)[(text-color: green)[~~Pine~~], ]
(if: $plum3 is in $hiscapture)[(text-color: red)[~~PlumB.~~], ]
(if: $cherry3 is in $hiscapture)[(text-color: (rgb:255,180,182))[~~CherryB.~~], ]
(if: $fuji3 is in $hiscapture)[(text-color: (rgb: 250,0,250))[~~Wisteria~~], ]
(if: $iris3 is in $hiscapture)[(text-color: blue)[~~Iris~~], ]
(if: $peony3 is in $hiscapture)[(text-color: (rgb:238,130,220))[~~Peony~~], ]
(if: $hagi3 is in $hiscapture)[(text-color: (rgb:255,70,10))[~~B.Clover~~], ]
(if: $kiku3 is in $hiscapture)[(text-color: yellow)[~~Chrysanth.~~], ]
(if: $maple3 is in $hiscapture)[(text-color: (rgb:250,160,0))[~~Maple~~], ]
(if: $ame2 is in $hiscapture)[(text-color: (rgb:72,160,40))[~~Willow~~], ]
(if: $kiri3 is in $hiscapture)[(text-color: (rgb:60,179,113))[Princess]]
}
{
(if: $pine2 is in $hiscapture)[(text-color: green)[Pine], ]
(if: $pine1 is in $hiscapture)[(text-color: green)[Pine], ]
(if: $plum2 is in $hiscapture)[(text-color: red)[PlumB.], ]
(if: $plum1 is in $hiscapture)[(text-color: red)[PlumB.], ]
(if: $cherry2 is in $hiscapture)[(text-color: (rgb:255,180,182))[CherryB.], ]
(if: $cherry1 is in $hiscapture)[(text-color: (rgb:255,180,182))[CherryB.], ]
(if: $fuji2 is in $hiscapture)[(text-color: (rgb: 250,0,250))[Wisteria], ]
(if: $fuji1 is in $hiscapture)[(text-color: (rgb: 250,0,250))[Wisteria], ]
(if: $iris2 is in $hiscapture)[(text-color: blue)[Iris], ]
(if: $iris1 is in $hiscapture)[(text-color: blue)[Iris], ]
(if: $peony2 is in $hiscapture)[(text-color: (rgb:238,130,220))[Peony], ]
(if: $peony1 is in $hiscapture)[(text-color: (rgb:238,130,220))[Peony], ]
(if: $hagi2 is in $hiscapture)[(text-color: (rgb:255,70,10))[B.Clover], ]
(if: $hagi1 is in $hiscapture)[(text-color: (rgb:255,70,10))[B.Clover], ]
(if: $grass2 is in $hiscapture)[(text-color: (rgb:185,222,193))[Grass], ]
(if: $grass1 is in $hiscapture)[(text-color: (rgb:185,222,193))[Grass], ]
(if: $kiku2 is in $hiscapture)[(text-color: yellow)[Chrysanth.], ]
(if: $kiku1 is in $hiscapture)[(text-color: yellow)[Chrysanth.], ]
(if: $maple2 is in $hiscapture)[(text-color: (rgb:250,160,0))[Maple], ]
(if: $maple1 is in $hiscapture)[(text-color: (rgb:250,160,0))[Maple], ]
(if: $ame1 is in $hiscapture)[(text-color: (rgb:72,160,40))[Willow], ]
(if: $kiri2 is in $hiscapture)[(text-color: (rgb:60,179,113))[Princess], ]
(if: $kiri1 is in $hiscapture)[(text-color: (rgb:60,179,113))[Princess]]
}
|==|
]
<==
",
"Got it!"
)
}(dialog: "(textsize: 0.5)[A player who captures all cards in of any of the following ''Special Sets'' scores additional points according to this chart.
* ''600 : Four Brights'' : $pine4, $cherry4, $grass4, and $kiri4.
* ''150 : Three Brights'' : $pine4, $plum4, and $cherry4.
* ''150 : Pine, Princess, and Priest'' : $pine4, $grass4, and $kiri4.
* ''100 : Flower Viewing'' : $cherry4 and $kiku4.
* ''100 : Moon Viewing'' : $grass4 and $kiku4. Players who capture both ''Viewing Sets'' earn 300 points instead.
* ''300 : //Boar//, //Deer//, and //Butterflies//'' : $hagi4, $maple4, and $peony4.
* ''600 : Seven ~~Ribbons~~'' : Any seven ~~ribbons~~.
* ''100 : Poetry ~~Ribbons~~'' : all 3 Poetry ~~Ribbons~~.
* ''100 : Blue ~~Ribbons~~'' : all 3 Blue ~~Ribbons~~.
* ''100 : Grass ~~Ribbons~~'' : $fuji3, $iris3, and $hagi3.
* ''200 : (text-color: (rgb:72,160,40))[Willow] Row'' : All four (text-color: (rgb:72,160,40))[Willow] cards.
]",
"Ahh.")(dialog: "(textsize: 0.6)[There are only 3 ranks of cards in ''Mountain Flowers''.
* 50 points: $pine4, $plum4, $cherry4, $grass4, $ame4, and $kiri4.
* 10 points: $fuji4, $iris4, $peony4, $hagi4, $grass3, $kiku4, $maple4, $ame3, $kiri3, and all 10 ~~Ribbons~~.
* 0 points: All 23 other chaff.
Each card captured adds to its owner's cumulative score.]",
"Gotcha.")Welcome to ''Free Play Mode''. This version of the game is identical to the former, but with all games unlocked from the start.
Be forewarned that both gameplay modes share a save file, and that if you save in one mode, it will overwrite any progress in the other.
With that out the way, enjoy some text-based hanafuda games.
[[Let's play!->game list]]
{
(set: $glasses to "Reading")
(set:
num-type $fooltokens to 0,
num-type $bakawins to 0,
num-type $bakadraws to 0,
num-type $bakalosses to 0,
num-type $bakahigh to 0,
bool-type $bakamydeal to false
)
(set:
num-type $atowins to 0,
num-type $atodraws to 0,
num-type $atolosses to 0,
$atohigh to "N/A"
)
(set:
bool-type $locktrue to false,
num-type $truthtokens to 0,
num-type $honwins to 0,
num-type $hondraws to 0,
num-type $honlosses to 0,
$honhigh to (a: 0, 0),
bool-type $honmydeal to false
)
(set:
num-type $tokowins to 0,
num-type $tokodraws to 0,
num-type $tokolosses to 0,
$tokohigh to "N/A"
)
(set:
bool-type $lockmushi to false,
num-type $mushitokens to 0,
num-type $mushiwins to 0,
num-type $mushidraws to 0,
num-type $mushilosses to 0,
num-type $mushihigh to 0,
bool-type $mushideal to false
)
(set:
bool-type $lockyama to false,
num-type $yamatokens to 0,
num-type $yamawins to 0,
$yamadraws to "N/A",
num-type $yamalosses to 0,
num-type $yamahigh to 0,
bool-type $yamadeal to false
)
(set:
bool-type $lockkoi to true,
num-type $koitokens to 0,
num-type $koiwins to 0,
num-type $koidraws to 0,
num-type $koilosses to 0,
num-type $koihigh to 0,
bool-type $koideal to false
)
(set:
bool-type $locknuki to true,
num-type $nukitokens to 0,
num-type $nukiwins to 0,
$nukidraws to "N/A",
num-type $nukilosses to 0,
num-type $nukihigh to 0,
bool-type $nukideal to false
)
(set: $gamemode to 0)
(set: $has_tea to false)
(set: $ryglasses to true, $louieglasses to true, $semglasses to true, $heavenglasses to true)
}{
(set: $hiscap to $hiscapture - (a: $ame1, $ame2, $ame3, $ame4, $kiri1, $kiri2, $kiri3, $kiri4))
(set: $mycap to $mycapture - (a: $ame1, $ame2, $ame3, $ame4, $kiri1, $kiri2, $kiri3, $kiri4))
(set: _hisfuke to $hiscap of $yamaval)
(set: _myfuke to $mycap of $yamaval)
(set: $hisfuke to 0)
(set: $myfuke to 0)
(if: length of $hiscap >= 2)
[(set: $hisfuke to 1st of _hisfuke + 2nd of _hisfuke)]
(if: length of $hiscap >= 4)
[(set: $hisfuke to it + 3rd of _hisfuke + 4th of _hisfuke)]
(if: length of $hiscap >= 6)
[(set: $hisfuke to it + 5th of _hisfuke + 6th of _hisfuke)]
(if: length of $hiscap >= 8)
[(set: $hisfuke to it + 7th of _hisfuke + 8th of _hisfuke)]
(if: length of $hiscap >= 10)
[(set: $hisfuke to it + 9th of _hisfuke + 10th of _hisfuke)]
(if: length of $hiscap >= 12)
[(set: $hisfuke to it + 11th of _hisfuke + 12th of _hisfuke)]
(if: length of $hiscap >= 14)
[(set: $hisfuke to it + 13th of _hisfuke + 14th of _hisfuke)]
(if: length of $hiscap >= 16)
[(set: $hisfuke to it + 15th of _hisfuke + 16th of _hisfuke)]
(if: length of $hiscap >= 18)
[(set: $hisfuke to it + 17th of _hisfuke + 18th of _hisfuke)]
(if: length of $hiscap >= 20)
[(set: $hisfuke to it + 19th of _hisfuke + 20th of _hisfuke)]
(if: length of $hiscap >= 22)
[(set: $hisfuke to it + 21st of _hisfuke + 22nd of _hisfuke)]
(if: length of $hiscap >= 24)
[(set: $hisfuke to it + 23rd of _hisfuke + 24th of _hisfuke)]
(if: length of $hiscap >= 26)
[(set: $hisfuke to it + 25th of _hisfuke + 26th of _hisfuke)]
(if: length of $hiscap >= 28)
[(set: $hisfuke to it + 27th of _hisfuke + 28th of _hisfuke)]
(if: length of $hiscap >= 30)
[(set: $hisfuke to it + 29th of _hisfuke + 30th of _hisfuke)]
(if: length of $hiscap >= 32)
[(set: $hisfuke to it + 31st of _hisfuke + 32nd of _hisfuke)]
(if: length of $hiscap >= 34)
[(set: $hisfuke to it + 33rd of _hisfuke + 34th of _hisfuke)]
(if: length of $hiscap >= 36)
[(set: $hisfuke to it + 35th of _hisfuke + 36th of _hisfuke)]
(if: length of $hiscap >= 38)
[(set: $hisfuke to it + 37th of _hisfuke + 38th of _hisfuke)]
(if: length of $hiscap >= 40)
[(set: $hisfuke to it + 39th of _hisfuke + 40th of _hisfuke)]
(if: length of $hiscap >= 42)
[(set: $hisfuke to it + 41st of _hisfuke + 42nd of _hisfuke)]
(if: length of $hiscap >= 44)
[(set: $hisfuke to it + 43rd of _hisfuke + 44th of _hisfuke)]
(if: length of $hiscap >= 46)
[(set: $hisfuke to it + 45th of _hisfuke + 46th of _hisfuke)]
(if: length of $hiscap >= 48)
[(set: $hisfuke to it + 47th of _hisfuke + 48th of _hisfuke)]
(if: length of $hiscapture is an odd)
[(set: $hisfuke to it + last of _hisfuke)]
(if: length of $mycap >= 2)
[(set: $myfuke to 1st of _myfuke + 2nd of _myfuke)]
(if: length of $mycap >= 4)
[(set: $myfuke to it + 3rd of _myfuke + 4th of _myfuke)]
(if: length of $mycap >= 6)
[(set: $myfuke to it + 5th of _myfuke + 6th of _myfuke)]
(if: length of $mycap >= 8)
[(set: $myfuke to it + 7th of _myfuke + 8th of _myfuke)]
(if: length of $mycap >= 10)
[(set: $myfuke to it + 9th of _myfuke + 10th of _myfuke)]
(if: length of $mycap >= 12)
[(set: $myfuke to it + 11th of _myfuke + 12th of _myfuke)]
(if: length of $mycap >= 14)
[(set: $myfuke to it + 13th of _myfuke + 14th of _myfuke)]
(if: length of $mycap >= 16)
[(set: $myfuke to it + 15th of _myfuke + 16th of _myfuke)]
(if: length of $mycap >= 18)
[(set: $myfuke to it + 17th of _myfuke + 18th of _myfuke)]
(if: length of $mycap >= 20)
[(set: $myfuke to it + 19th of _myfuke + 20th of _myfuke)]
(if: length of $mycap >= 22)
[(set: $myfuke to it + 21st of _myfuke + 22nd of _myfuke)]
(if: length of $mycap >= 24)
[(set: $myfuke to it + 23rd of _myfuke + 24th of _myfuke)]
(if: length of $mycap >= 26)
[(set: $myfuke to it + 25th of _myfuke + 26th of _myfuke)]
(if: length of $mycap >= 28)
[(set: $myfuke to it + 27th of _myfuke + 28th of _myfuke)]
(if: length of $mycap >= 30)
[(set: $myfuke to it + 29th of _myfuke + 30th of _myfuke)]
(if: length of $mycap >= 32)
[(set: $myfuke to it + 31st of _myfuke + 32nd of _myfuke)]
(if: length of $mycap >= 34)
[(set: $myfuke to it + 33rd of _myfuke + 34th of _myfuke)]
(if: length of $mycap >= 36)
[(set: $myfuke to it + 35th of _myfuke + 36th of _myfuke)]
(if: length of $mycap >= 38)
[(set: $myfuke to it + 37th of _myfuke + 38th of _myfuke)]
(if: length of $mycap >= 40)
[(set: $myfuke to it + 39th of _myfuke + 40th of _myfuke)]
(if: length of $mycap >= 42)
[(set: $myfuke to it + 41st of _myfuke + 42nd of _myfuke)]
(if: length of $mycap >= 44)
[(set: $myfuke to it + 43rd of _myfuke + 44th of _myfuke)]
(if: length of $mycap >= 46)
[(set: $myfuke to it + 45th of _myfuke + 46th of _myfuke)]
(if: length of $mycap >= 48)
[(set: $myfuke to it + 47th of _myfuke + 48th of _myfuke)]
(if: length of $mycapture is an odd)
[(set: $myfuke to it + last of _myfuke)]
(if: $mycapture contains all of $shiko)
[(set: $myfuke to it + 600)]
(if: (count: $mycapture, ...$ribbons) >= 7)
[(set: $myfuke to it + 600)]
(if: $mycapture contains all of $ishicho)
[(set: $myfuke to it + 300)]
(if: $mycapture contains all of (a: $ame1, $ame2, $ame3, $ame4))
[(set: $myfuke to it + 200)]
(if: $mycapture contains all of $sanko)
[(set: $myfuke to it + 150)]
(if: $mycapture contains all of $makibo)
[(set: $myfuke to it + 150)]
(if: $mycapture contains all of $nomi)
[(set: $myfuke to it + 300)]
(elseif: $mycapture contains all of (a: $kiku4, $cherry4))
[(set: $myfuke to it + 100)]
(elseif: $mycapture contains all of (a: $kiku4, $grass4))
[(set: $myfuke to it + 100)]
(if: $mycapture contains all of $akatan)
[(set: $myfuke to it + 100)]
(if: $mycapture contains all of $aotan)
[(set: $myfuke to it + 100)]
(if: $mycapture contains all of $kusa)
[(set: $myfuke to it + 100)]
(if: $hiscapture contains all of $shiko)
[(set: $hisfuke to it + 600)]
(if: (count: $hiscapture, ...$ribbons) >= 7)
[(set: $hisfuke to it + 600)]
(if: $hiscapture contains all of $ishicho)
[(set: $hisfuke to it + 300)]
(if: $hiscapture contains all of (a: $ame1, $ame2, $ame3, $ame4))
[(set: $hisfuke to it + 200)]
(if: $hiscapture contains all of $sanko)
[(set: $hisfuke to it + 150)]
(if: $hiscapture contains all of $makibo)
[(set: $hisfuke to it + 150)]
(if: $hiscapture contains all of $nomi)
[(set: $hisfuke to it + 300)]
(elseif: $hiscapture contains all of (a: $kiku4, $cherry4))
[(set: $hisfuke to it + 100)]
(elseif: $hiscapture contains all of (a: $kiku4, $grass4))
[(set: $hisfuke to it + 100)]
(if: $hiscapture contains all of $akatan)
[(set: $hisfuke to it + 100)]
(if: $hiscapture contains all of $aotan)
[(set: $hisfuke to it + 100)]
(if: $hiscapture contains all of $kusa)
[(set: $hisfuke to it + 100)]
}{
(display: "initialize")
}The flower card (or //hanafuda//) deck has 12 suits of 4 cards each. Not all suits are created equally, however. Cards are traditionally classified into 4 different ranks, and each suit may have a different number of each of these. From highest ranking to lowest, they are ''Brights'', //Subjects//, ~~Ribbons~~, and chaff.
Note that the ''appearance'' of a card's name in-game acts as a kind of //index// to tell you its suit and rank. For example, $cherry3 is a ~~Ribbon~~, and belongs to the (text-color: (rgb:255,180,182))[Cherry Blossom] suit.
=|=
''(text-color: green)[Pine]''(textsize:0.6)[
* $pine4
* $pine3
* $pine2
* $pine1]
=|=
''(text-color: red)[Plum Blossom]''(textsize:0.6)[
* $plum4
* $plum3
* $plum2
* $plum1]
=|=
''(text-color: (rgb:255,180,182))[Cherry Blossom]''(textsize:0.6)[
* $cherry4
* $cherry3
* $cherry2
* $cherry1]
|==|
=|=
''(text-color: (rgb: 250,0,250))[Wisteria]''(textsize:0.6)[
* $fuji4
* $fuji3
* $fuji2
* $fuji1]
=|=
''(text-color: blue)[Iris] ''(textsize:0.6)[
* $iris4
* $iris3
* $iris2
* $iris1]
=|=
''(text-color: (rgb:238,130,220))[Peony]''(textsize:0.6)[
* $peony4
* $peony3
* $peony2
* $peony1]
|==|
=|=
''(text-color: (rgb:255,70,10))[Bush Clover]''(textsize:0.6)[
* $hagi4
* $hagi3
* $hagi2
* $hagi1]
=|=
''(text-color: (rgb:185,222,193))[Grass]''(textsize:0.6)[
* $grass4
* $grass3
* $grass2
* $grass1]
=|=
''(text-color: yellow)[Chrysanthemum]''(textsize:0.6)[
* $kiku4
* $kiku3
* $kiku2
* $kiku1]
|==|
=|=
''(text-color: (rgb:250,160,0))[Maple]''(textsize:0.6)[
* $maple4
* $maple3
* $maple2
* $maple1]
=|=
''(text-color: (rgb:72,160,40))[Willow]''(textsize:0.6)[
* $ame4
* $ame3
* $ame2
* $ame1]
=|=
''(text-color: (rgb:60,179,113))[Princess Tree]''(textsize:0.6)[
* $kiri4
* $kiri3
* $kiri2
* $kiri1]