| … | |
… | |
| 134 | |
134 | |
| 135 | if ($is_exit{$o->{type} || $a->{type}}) { |
135 | if ($is_exit{$o->{type} || $a->{type}}) { |
| 136 | my ($exit, $x, $y) = ($o->{slaying}, $o->{hp}, $o->{sp}); |
136 | my ($exit, $x, $y) = ($o->{slaying}, $o->{hp}, $o->{sp}); |
| 137 | if ($exit =~ /^[\/0-9a-zA-Z]/ && $exit ne "/!") { |
137 | if ($exit =~ /^[\/0-9a-zA-Z]/ && $exit ne "/!") { |
| 138 | $exit = expand $exit, $path; |
138 | $exit = expand $exit, $path; |
| 139 | if ($exit ne $path && ($target{$exit} || 0)) { |
139 | if ($exit ne $path && ($target{$path} || $target{$exit} || 0)) { |
| 140 | if (my $tag = patch_exit $path, $fx, $fy, $exit, $x, $y) { |
140 | if (my $tag = patch_exit $path, $fx, $fy, $exit, $x, $y) { |
| 141 | delete $o->{sp}; |
141 | delete $o->{sp}; |
| 142 | delete $o->{hp}; |
142 | delete $o->{hp}; |
| 143 | $o->{slaying} = "*$tag"; |
143 | $o->{slaying} = "*$tag"; |
| 144 | $map{$path} = $map; |
144 | $map{$path} = $map; |
