no dykes on high regions

diff --git a/generate-board b/generate-board
index f642902f791ccf8538a43a5e1ad38a6e9d493ab8..474b5ff8ccecff0bd63a9e3d1011f52a645567d3 100755 (executable)
--- 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);