Crossfire Map \"$path\"

--- cfmaps/cfmap2html 2005/11/18 23:20:26 1.7 +++ cfmaps/cfmap2html 2005/11/23 09:07:21 1.21 @@ -1,5 +1,24 @@ #!/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 + +our $VERSION = '1.21'; + use Storable; my $LIBDIR = $ENV{CROSSFIRE_LIBDIR} @@ -9,10 +28,6 @@ my $arch; -umask 022; - -our $VERSION = '1.01'; - sub escape_html($) { local $_ = shift; s/([<>&])/sprintf "&#%d;", ord $1/ge; @@ -34,112 +49,111 @@ $arch ||= Storable::retrieve "$LIBDIR/archetypes.pst"; my $meta = Storable::retrieve "$path.pst"; - open my $fh, ">:utf8", "$path.html" - or die "$path.html: $!"; + open my $fh, ">:utf8", "$path.xhtml" + or die "$path.xhtml: $!"; select $fh; my $W = $meta->{width} * $T; my $H = $meta->{height} * $T; + my $W2 = $W + 600; + my (@path) = split /\//, $path; - print "", - "", + print "", + '', + "", "", "Crossfire Map \"$path\"", - "", + "\n", + "\n", + "\n", + "", "", ""; - print "", - "

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

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

" + ? "

$dir[$_]

" : "" } 1..4; #"}"# vim misparses without this comment print "$path[-1]", "", - "

[more about cfmaps.schmorp.de]

", + "

[more about cfmaps.schmorp.de]

", "

$tile[0]

$tile[3]

$tile[1]

$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); + my %is_exit = map +($_ => 1), 41, 57, 66; for my $y (0.. $meta->{height} - 1) { print ""; for my $x (0.. $meta->{width} - 1) { - print ""; + } else { + print ""; } print ""; } - print "

"; if (my $as = $meta->{map}[$x][$y]) { - print "

($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"; + + 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 ($_ 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"; + print "slaying => $v\n"; } elsif ($_ eq "other_arch") { - print "$_ => $v\n"; + print "$_ => $v\n"; } elsif ($_ eq "inventory") { print "inventory =>\n"; print_archs ($a->{$_}); @@ -149,23 +163,25 @@ print "$_ => $v\n"; } } + print "

"; } print_archs $as; - print "

"; + print "

"; } - print "

created by cfmap2html version $VERSION

", - "

"; + print "

", + "

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