… | |
… | |
15 | # |
15 | # |
16 | # You should have received a copy of the GNU General Public License |
16 | # You should have received a copy of the GNU General Public License |
17 | # along with gvpe; if not, write to the Free Software |
17 | # along with gvpe; if not, write to the Free Software |
18 | # Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
18 | # Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
19 | |
19 | |
20 | our $VERSION = '1.2'; |
20 | our $VERSION = '1.21'; |
21 | |
21 | |
22 | use Storable; |
22 | use Storable; |
23 | |
23 | |
24 | my $LIBDIR = $ENV{CROSSFIRE_LIBDIR} |
24 | my $LIBDIR = $ENV{CROSSFIRE_LIBDIR} |
25 | or die "\$CROSSFIRE_LIBDIR must be set\n"; |
25 | or die "\$CROSSFIRE_LIBDIR must be set\n"; |
… | |
… | |
140 | my $o = $arch->{$a->{_name}}; |
140 | my $o = $arch->{$a->{_name}}; |
141 | my $type = $a->{type} || $o->{type}; |
141 | my $type = $a->{type} || $o->{type}; |
142 | my $aname = escape_html $a->{_name}; |
142 | my $aname = escape_html $a->{_name}; |
143 | my $name = escape_html $a->{name} || $o->{name}; |
143 | my $name = escape_html $a->{name} || $o->{name}; |
144 | |
144 | |
145 | print "<li><a href='/arc.xhtml#", (lc $a->{_name}), "'>$aname \"$name\"</a>\n"; |
145 | print "<li><a href='/a/$a->{_name}'>$aname \"$name\"</a>\n"; |
146 | for (sort keys %$a) { |
146 | for (sort keys %$a) { |
147 | next if $ignore{$_}; |
147 | next if $ignore{$_}; |
148 | my $v = escape_html $a->{$_}; |
148 | my $v = escape_html $a->{$_}; |
149 | |
149 | |
150 | if ($_ eq "slaying" && $is_exit{$type}) { # door, teleporter, player_changer |
150 | if ($_ eq "slaying" && $is_exit{$type}) { # door, teleporter, player_changer |
151 | $a->{msg} =~ /^final_map\s*(\S+)\s*$/m, $v = $1 |
151 | $a->{msg} =~ /^final_map\s*(\S+)\s*$/m, $v = $1 |
152 | if $v eq "/!"; # random map |
152 | if $v eq "/!"; # random map |
153 | |
153 | |
154 | print "slaying => <a href='$v.xhtml'>$v</a>\n"; |
154 | print "slaying => <a href='$v.xhtml'>$v</a>\n"; |
155 | } elsif ($_ eq "other_arch") { |
155 | } elsif ($_ eq "other_arch") { |
156 | print "$_ => <a href='/arc.xhtml#", (lc $a->{$_}), "'>$v</a>\n"; |
156 | print "$_ => <a href='/a/$a->{$_}'>$v</a>\n"; |
157 | } elsif ($_ eq "inventory") { |
157 | } elsif ($_ eq "inventory") { |
158 | print "inventory =>\n"; |
158 | print "inventory =>\n"; |
159 | print_archs ($a->{$_}); |
159 | print_archs ($a->{$_}); |
160 | } elsif ($_ eq "msg") { |
160 | } elsif ($_ eq "msg") { |
161 | print "<p class='m'>$v</p>"; |
161 | print "<p class='m'>$v</p>"; |