",
"Deliantra Map ", ""; print "/ "; for (0 .. $#path - 1) { print "$path[$_] / "; } my @dir = qw(none up right down left); my @tile = map { my $path = delete $info->{"tile_path_$_"}; $path ? "" : "" } 1..4; print "$path[-1]", "", "", " | ",
"$tile[0] | ||
$tile[3] | ", "", " | $tile[1] | |
$tile[2] |
", escape_html delete $info->{msg}, "
"; print "" . (escape_html $_) . " | " . (escape_html $info->{$_}) . " |
";
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 " |