}
}
-sub hs_initial_1 ($;$$$) {
- my ($colour) = @_;
- my $hs1 = $c{HS1}{$colour};
+sub hs_initial_1 ($) {
+ my ($hs1) = @_;
+ my ($colour) = $hs1->{Colour};
my ($text, $text2);
if ($hs1->{Water}) {
($text,$text2) = ('up to '.$hs1->{Water}, 'fewer');
}
sub hs_initial () {
- hs_initial_1('red');
- hs_initial_1('purple');
- hs_initial_1('green');
- hs_initial_1('yellow');
+ hs_initial_1($_) foreach @{ $c{HS1} };
}
sub play_hint () {
{ Colour => 'playerdeck', PosAdy => [ 401, 44, 'Bottom' ] },
{ Colour => 'dykefail', PosAdy => [ 242, 1363, 'Top'], Rotate => 90 },
],
- HS1 => {
- 'red' => { XIYI => [0,0] },
- 'purple' => { XIYI => [0,1] },
- 'green' => { XIYI => [1,0], Water => 6 },
- 'yellow' => { XIYI => [1,1], Dykes => 4 },
- },
+ HS1 => [
+ { Colour => 'red' , XIYI => [0,0] },
+ { Colour => 'purple' , XIYI => [0,1] },
+ { Colour => 'green' , XIYI => [1,0], Water => 6 },
+ { Colour => 'yellow' , XIYI => [1,1], Dykes => 4 },
+ ],
);