";
- print "/ ";
- for (0 .. $#path - 1) {
- print "$path[$_] / ";
- }
+for my $path (@ARGV) {
+ (my $base = $path) =~ s/\.map//;
+ if (!-e "$base.xhtml"
+ || -M "$base.xhtml" > -M "$base.map") {
+
+ Deliantra::load_archetypes
+ unless %ARCH;
+
+ my $meta = read_arch "$base.map";
+ my $arch = $meta->{arch};
+
+ open my $fh, ">:utf8", "$base.xhtml"
+ or die "$base.xhtml: $!";
+
+ select $fh;
+
+ my $W = (1 + max map $_->{x}, @$arch);
+ my $H = (1 + max map $_->{y}, @$arch);
+
+ my $info = shift @$arch;
+ my @map;
+
+ push @{ $map[$_->{x}][$_->{y}] }, $_
+ for @$arch;
+
+ my $W2 = $W * $T + 600;
+
+ my (@path) = split /\//, $base;
+
+ print "",
+ '',
+ "",
+ "",
+ " |
",
+ "Deliantra Map ", + ""; + print "/ "; + for (0 .. $#path - 1) { + print "$path[$_] / "; + } - my @tile = map { - $meta->{info}{"tile_path_$_"} - ? " ![]() | ",
- "$tile[0] | ||
$tile[3] | ", - "![]() | ",
- "$tile[1] | ", - "|
$tile[2] |
", - escape_html $meta->{info}{msg}, - "
"; - - print "";
- if (my $as = $meta->{map}[$x][$y]) {
- print " ($x|$y)";
-
- sub print_archs {
- print "
| ",
+ "$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 " ";
- }
- print "
| ";
+ print_archs $as;
+ print "";
+ } else {
+ print ""; + } + } + print " |
created by cfmap2html version $VERSION
", - ""; + print "