s/\<--.*--\>//g;
s/^\s*//; chomp; s/\s+$//; s/\s+/ /g;
s/\<\/?(?:b|em)\>//g;
- s/\{\{chart\ style\|[^{}]*\}\}//gi;
+ s/\{\{(?:chart\ style|Chart league difficulty)\|[^{}]*\}\}//gi;
next unless m/\{\{/; # only interested in chart template stuff
if (($x,$y,$arch) =
$on_island->($n, $island);
} elsif (($solid,$x,$y,$dirn) =
m/^\{\{ chart\ league((?:\ solid)?) \|(\d+)\|(\d+)\|
- ([-\/\\o]) \| .*\}\}$/xi) {
+ \.?([-\/\\o])\.? \| .*\}\}$/xi) {
next if $dirn eq 'o';
printf $debugfh "%2d,%-2d league %-6s %s\n", $x,$y,
if ($dirn eq '-') { $bx+=2; }
elsif ($dirn eq '\\') { $bx++; $by++; }
elsif ($dirn eq '/') { $x++; $by++; }
- else { die; }
+ else { die "$dirn ?"; }
my $na= $nn->();
my $nb= $conv_nxy->($bx,$by);