--- cfmaps/cfmap2html 2005/11/20 03:31:58 1.11 +++ cfmaps/cfmap2html 2005/11/20 05:02:58 1.12 @@ -17,7 +17,7 @@ # along with gvpe; if not, write to the Free Software # Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA -our $VERSION = '1.11'; +our $VERSION = '1.12'; use Storable; @@ -57,6 +57,8 @@ my $W = $meta->{width} * $T; my $H = $meta->{height} * $T; + my $W2 = $W + 600; + my (@path) = split /\//, $path; print "", @@ -64,42 +66,18 @@ "", "", "Crossfire Map \"$path\"", + "\n", "", "", ""; print "", - "", "", "", - "", + "", "", "", "
", + "
", "Crossfire Map
", - ""; + ""; print "/ "; for (0 .. $#path - 1) { print "$path[$_] / "; @@ -115,18 +93,18 @@ print "$path[-1]", "", - "

[more about cfmaps.schmorp.de]

", + "

[more about cfmaps.schmorp.de]

", "		$tile[0]
$tile[3]map thumbnailmap thumbnail$tile[1]
$tile[2]
"; my $W1 = $W + 600; - print "

", + print "

", escape_html $meta->{info}{msg}, "

"; @@ -139,7 +117,7 @@ for my $x (0.. $meta->{width} - 1) { print ""; if (my $as = $meta->{map}[$x][$y]) { - print "
($x|$y)"; + print "
($x|$y)"; sub print_archs { print "
    "; @@ -176,17 +154,15 @@ } print_archs $as; - print "
"; + print "
"; } print ""; } print ""; } - my $W2 = $W + 600; - - print "

created by cfmap2html version $VERSION

", - "

"; + print "

created by cfmap2html version $VERSION

", + "

"; close $fh;