Crossfire Map \"$path\"

--- cfmaps/cfmap2html 2005/11/18 23:43:12 1.8 +++ cfmaps/cfmap2html 2005/11/20 00:58:57 1.9 @@ -1,5 +1,22 @@ #!/opt/bin/perl +# cfmap2html - convert crossfire maps to html +# Copyright (C) 2005 Marc Lehmann +# +# CFMAP2HTML is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with gvpe; if not, write to the Free Software +# Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA + use Storable; my $LIBDIR = $ENV{CROSSFIRE_LIBDIR} @@ -11,7 +28,7 @@ umask 022; -our $VERSION = '1.02'; +our $VERSION = '1.04'; sub escape_html($) { local $_ = shift; @@ -49,37 +66,39 @@ "", "Crossfire Map \"$path\"", "", "", ""; - print "", - "

", + print "", + "", "", "", - "", - "", + "", + "", "", "

", "Crossfire Map
", ""; print "/ "; @@ -89,7 +108,7 @@ my @tile = map { $meta->{info}{"tile_path_$_"} - ? "

" + ? "

" : "" } 1..4; #"}"# vim misparses without this comment @@ -100,18 +119,18 @@ "

$tile[0]

$tile[3]

$tile[1]

$tile[2]

"; my $W1 = $W + 600; - print "

", + print "

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

"; - print ""; + print "

"; my %ignore = map +($_ => 1), qw(name _name x y); @@ -126,14 +145,16 @@ print "

$aname \"$name\"\n"; for (sort keys %$a) { next if $ignore{$_}; my $v = escape_html $a->{$_}; - if (($o->{type} == 66 || $o->{type} == 41) && $_ eq "slaying") { # door, teleporter + if (($type == 66 || $type == 41) && $_ eq "slaying") { # door, teleporter $a->{msg} =~ /^final_map\s*(\S+)\s*$/m, $v = $1 if $v eq "/!"; # random map @@ -149,6 +170,7 @@ print "$_ => $v\n"; } } + print "

"; } @@ -163,7 +185,7 @@ my $W2 = $W + 600; - print "

created by cfmap2html version $VERSION

", + print "

created by cfmap2html version $VERSION

", "

"; close $fh;