",
"Crossfire Map ", ""; print "/ "; for (0 .. $#path - 1) { print "$path[$_] / "; } my @dir = qw(none up right down left); my @tile = map { $meta->{info}{"tile_path_$_"} ? "" : "" } 1..4; #"}"# vim misparses without this comment print "$path[-1]", "", "", " | ",
"$tile[0] | ||
$tile[3] | ", "", " | $tile[1] | |
$tile[2] |
", escape_html $meta->{info}{msg}, "
"; print "";
print " ";
print join "\n", map "$_",
reverse sort { (length $a) <=> (length $b) or $b <=> $a }
grep $_, map $_->{connected}, @$as;
print " ($x|$y)";
sub print_archs {
print "
| ";
} else {
print ""; } } print " |