$path

--- cfmaps/cfmap2html 2005/11/18 06:57:35 1.3 +++ cfmaps/cfmap2html 2007/02/14 03:00:33 1.26 @@ -1,5 +1,24 @@ #!/opt/bin/perl +# cfmap2html - convert crossfire maps to html +# Copyright (C) 2005,2007 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 cfmaps; if not, write to the Free Software +# Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA + +our $VERSION = '1.212'; + use Storable; my $LIBDIR = $ENV{CROSSFIRE_LIBDIR} @@ -9,8 +28,6 @@ my $arch; -umask 022; - sub escape_html($) { local $_ = shift; s/([<>&])/sprintf "&#%d;", ord $1/ge; @@ -18,131 +35,157 @@ } for my $path (@ARGV) { - print "$path\n"; + (my $base = $path) =~ s/\.map//; +# print STDERR "$path\n"; - if (!-e "$path.png" - || !-e "$path.pst" - || -M "$path.pst" > -M $path - || -M "$path.png" > -M $path) { + if (!-e "$base.png" + || !-e "$base.pst" + || -M "$base.pst" > -M $path + || -M "$base.png" > -M $path) { # regenerate png and metainfo system "cfmap2png", $path; }; - $arch ||= Storable::retrieve "$LIBDIR/archetypes.pst"; - my $meta = Storable::retrieve "$path.pst"; - - open my $fh, ">:utf8", "$path.html" - or die "$path.html: $!"; - - select $fh; - - my $W = $meta->{width} * $T; - my $H = $meta->{height} * $T; - - my (@path) = split /\//, $path; - - print "", - "", - "", - "$path", - "", - "", - ""; - - print "", - "

"; - print "/ "; - for (0 .. $#path - 1) { - print "$path[$_] / "; - } + if (!-e "$base.xhtml" + || -M "$base.xhtml" > -M "$base.pst") { + $arch ||= Storable::retrieve "$LIBDIR/archetypes.pst"; + my $meta = Storable::retrieve "$base.pst"; + + open my $fh, ">:utf8", "$base.xhtml" + or die "$base.xhtml: $!"; + + select $fh; + + my $W = $meta->{width} * $T; + my $H = $meta->{height} * $T; + + my $W2 = $W + 600; + + my (@path) = split /\//, $base; + + print "", + '', + "", + "", + "Crossfire Map \"$path\"", + "\n", + "\n", + "\n", + "", + "", + ""; + + print "", + "", - "", - ""; - print "", - "", - ""; - print "

", + "Crossfire Map
", + ""; + print "/ "; + for (0 .. $#path - 1) { + print "$path[$_] / "; + } - my @tile = map { - $meta->{info}{"tile_path_$_"} - ? "

" - : "" - } 1..4; - - print "$path[-1] "; - print "

$tile[0]

$tile[3]

$tile[1]

$tile[2]

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

[about cfmaps.schmorp.de]

"; - print "

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

"; - - print ""; - - my %ignore = map +($_ => 1), qw(_name x y); - - for my $y (0.. $meta->{height} - 1) { - print ""; - for my $x (0.. $meta->{width} - 1) { - print "", + "", + "", + "", + "", + "", + "

"; - if (my $as = $meta->{map}[$x][$y]) { - print " ($x\|$y) "; - for my $a (@$as) { - my $o = $arch->{$a->{_name}}; - print " \"$o->{name}\" ($a->{_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 - $a->{msg} =~ /^final_map\s(\S+)\s$/m, $v = $1 - if $v eq "/!"; # random map - - print "slaying => $v\n"; - } elsif ($_ eq "msg") { - print " $v "; - } else { - print "$_ => $v\n"; + 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]", + "", + " [more about cfmaps.schmorp.de] ", + "		$tile[0]
$tile[3]		$tile[1]
	$tile[2]

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

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

"; + + print ""; + + my %ignore = map +($_ => 1), qw(name _name x y); + my %is_exit = map +($_ => 1), 41, 57, 66; + + for my $y (0.. $meta->{height} - 1) { + print ""; + for my $x (0.. $meta->{width} - 1) { + if (my $as = $meta->{map}[$x][$y]) { + my @class; + + push @class, "fishy" if grep $_->{invisible} || $_->{face} || exists $_->{no_pass} || exists $_->{no_pick}, @$as; + push @class, "exit" if grep $is_exit{$arch->{$_->{_name}}{type}} && $_->{slaying}, @$as; + push @class, "dialog" if grep $_->{msg} =~ /^\@match/m, @$as; + + 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 "

$aname \"$name\"\n"; + for (sort keys %$a) { + next if $ignore{$_}; + my $v = escape_html $a->{$_}; + + if ($_ eq "slaying" && $is_exit{$type}) { # door, teleporter, player_changer + $a->{msg} =~ /^final_map\s*(\S+)\s*$/m, $v = $1 + if $v eq "/!"; # random map + + print "slaying => $v\n"; + } elsif ($_ eq "other_arch") { + print "$_ => $v\n"; + } elsif ($_ eq "inventory") { + print "inventory =>\n"; + print_archs ($a->{$_}); + } elsif ($_ eq "msg") { + print "
$v
"; + } else { + print "$_ => $v\n"; + } + } + print "

"; } + + print_archs $as; + print "

"; + } else { + print ""; + } + print ""; } - print ""; - } - print "

"; } - print ""; - } - print "

"; + print "

", + "

"; - close $fh; + close $fh; - system "gzip", "-7f", "$path.html"; + #system "gzip", "-7f", "$path.xhtml"; + } }