move into misc-data.pl: HS1 array

[pandemic-rising-tide.git] / generate-board

diff --git a/generate-board b/generate-board
index 0a3a50b28fb6770ca59bb64f3b931477b2e935db..79c258824ae61ed0272fc1627074594839b60e51 100755 (executable)
--- 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 () {