… | |
… | |
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 cfmaps; if not, write to the Free Software |
17 | # along with cfmaps; 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 = '2.122'; |
20 | our $VERSION = '2.2'; |
21 | |
21 | |
22 | use strict; |
22 | use strict; |
23 | |
23 | |
24 | use List::Util qw(min max); |
24 | use List::Util qw(min max); |
25 | use Deliantra; |
25 | use Deliantra; |
… | |
… | |
40 | |
40 | |
41 | if (!-e "$base.png" |
41 | if (!-e "$base.png" |
42 | || -M "$base.png" > -M "$base.map") { |
42 | || -M "$base.png" > -M "$base.map") { |
43 | # regenerate png and metainfo |
43 | # regenerate png and metainfo |
44 | push @cfmap2png, $path; |
44 | push @cfmap2png, $path; |
|
|
45 | # force xhtml file to be remade as well |
|
|
46 | utime 1, 1, "$base.xhtml"; |
45 | } |
47 | } |
46 | } |
48 | } |
47 | |
49 | |
48 | system "cfmap2png", @cfmap2png |
50 | system "cfmap2png", @cfmap2png |
49 | if @cfmap2png; |
51 | if @cfmap2png; |
… | |
… | |
178 | |
180 | |
179 | if ($_ eq "slaying" && $is_exit{$type}) { # door, teleporter, player_changer |
181 | if ($_ eq "slaying" && $is_exit{$type}) { # door, teleporter, player_changer |
180 | $a->{msg} =~ /^final_map\s*(\S+)\s*$/m, $v = $1 |
182 | $a->{msg} =~ /^final_map\s*(\S+)\s*$/m, $v = $1 |
181 | if $v eq "/!"; # random map |
183 | if $v eq "/!"; # random map |
182 | |
184 | |
|
|
185 | if ($v =~ s/^\*//) { |
|
|
186 | print "slaying => <a href='/search?t=$v'>*$v</a>\n"; |
|
|
187 | } else { |
183 | print "slaying => <a href='$v.xhtml'>$v</a>\n"; |
188 | print "slaying => <a href='$v.xhtml'>$v</a>\n"; |
|
|
189 | } |
184 | } elsif ($_ eq "other_arch") { |
190 | } elsif ($_ eq "other_arch") { |
185 | print "$_ => <a href='/a/$a->{$_}'>$v</a>\n"; |
191 | print "$_ => <a href='/a/$a->{$_}'>$v</a>\n"; |
186 | } elsif ($_ eq "inventory") { |
192 | } elsif ($_ eq "inventory") { |
187 | print "inventory =>\n"; |
193 | print "inventory =>\n"; |
188 | print_archs ($a->{$_}); |
194 | print_archs ($a->{$_}); |