From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Mar 2019 17:24:59 +0000 (+0000)
Subject: no dykes on high regions
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=f418b9da712d5bf7546a116b876bdd5cfafa737a;p=pandemic-rising-tide.git

no dykes on high regions
---

diff --git a/generate-board b/generate-board
index f642902..474b5ff 100755
--- a/generate-board
+++ b/generate-board
@@ -547,9 +547,12 @@ sub sea_track(){
 sub dykes(){
   foreach my $rr (values %region) {
     next if $rr->{Special};
+    next if $rr->{Colour} eq 'high';
     foreach my $adj (@{ $rr->{Adj} }) {
-      o("  % dyke $rr->{Name} --- $rr->{Name}\n");
-      next if $adj->{Name} lt $rr->{Name};
+      my $neigh = $adj->{Name};
+      o("  % dyke $rr->{Name} --- $neigh\n");
+      next if $neigh lt $rr->{Name};
+      next if $region{$neigh}{Colour} eq 'high';
       my @ends = adj_ends($adj);
       my $dirn = $ends[1] - $ends[0];
       my $angle = vec2atan($dirn);