wip play_hint

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

diff --git a/generate-board b/generate-board
index 876794b85071da19ac6411d951504eea10469d65..6dc492bf2c07743ed260b07b938d2d0e303e6e3a 100755 (executable)
--- 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();