From ec423701624b5b4848f799bd5d76534f32d1d85b Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 3 Mar 2019 02:29:52 +0000
Subject: [PATCH] wip play_hint

---
 generate-board | 13 +++++++++++++
 misc-data.pl   | 11 ++++++++++-
 2 files changed, 23 insertions(+), 1 deletion(-)

diff --git a/generate-board b/generate-board
index 876794b..6dc492b 100755
--- a/generate-board
+++ b/generate-board
@@ -711,6 +711,18 @@ sub hs_initial () {
   });
 }
 
+sub play_hint () {
+  my $sz = 20;
+  o("  gsave 0 setgray 600 1580 translate");
+  my @t = split /\n/, $c{PlayHint};
+  foreach my $i (0..$#t) {
+    my $t = $t[$i];
+    $t =~ s/[\\()]/\\$&/g;
+    o("  0 ",(-$i * $sz)," moveto ($t) show");
+  }
+  o("  grestore");
+}
+
 #----- main program -----
 
 $xopts = shift @ARGV if $ARGV[0] =~ s/^-X//;
@@ -733,6 +745,7 @@ hs_initial();
 # xxx HS initial locations
 # xxx HS instructions
 # xxx overall instructions
+play_hint();
 decks();
 postamble();
 
diff --git a/misc-data.pl b/misc-data.pl
index 7a92fd6..16cda16 100644
--- a/misc-data.pl
+++ b/misc-data.pl
@@ -25,5 +25,14 @@ our %c =
    'Walcheren'         => [0.6, 0.5], #-1.0, -0.75
    'Noorderzijlvest'   => [0.0, -0.5],
    'Twente',           => [-0.3, 0.0],
- }
+ },
+ PlayHint => <<'END',
+1. Do 4 Actions
+2. Operate Pumps
+3. Draw 2 player cards
+     (resolve storms)
+4. Dikes fail
+5. Water flows
+Hand limi 7 at all times
+END
 );
-- 
2.30.2