});
}
+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//;
# xxx HS initial locations
# xxx HS instructions
# xxx overall instructions
+play_hint();
decks();
postamble();
'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
);