From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 10 Mar 2019 20:47:39 +0000 (+0000)
Subject: move into misc-data.pl: HS1 array
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=3fcb1591a4476be76f8abfeb643fc63dc12e46c0;p=pandemic-rising-tide.git

move into misc-data.pl: HS1 array

NFC
---

diff --git a/generate-board b/generate-board
index 0a3a50b..79c2588 100755
--- a/generate-board
+++ b/generate-board
@@ -933,9 +933,9 @@ sub dykes(){
   }
 }
 
-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');
@@ -978,10 +978,7 @@ sub hs_initial_1 ($;$$$) {
 }
 
 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 () {
diff --git a/misc-data.pl b/misc-data.pl
index 4f06825..c7d218e 100644
--- a/misc-data.pl
+++ b/misc-data.pl
@@ -77,10 +77,10 @@ END
    { 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 },
+ ],
 );