| … | |
… | |
| 36 | |
36 | |
| 37 | for (@{ $mapa->{arch} }) { |
37 | for (@{ $mapa->{arch} }) { |
| 38 | my ($x, $y) = (delete $_->{x}, delete $_->{y}); |
38 | my ($x, $y) = (delete $_->{x}, delete $_->{y}); |
| 39 | |
39 | |
| 40 | if ($_->{_name} eq "map") { |
40 | if ($_->{_name} eq "map") { |
|
|
41 | $_->{enter_x} = $_->{hp} if $_->{hp} && !$_->{enter_x}; delete $_->{hp}; |
|
|
42 | $_->{enter_y} = $_->{sp} if $_->{sp} && !$_->{enter_y}; delete $_->{sp}; |
|
|
43 | |
| 41 | $meta{info} = $_; |
44 | $meta{info} = $_; |
| 42 | |
45 | |
| 43 | $mapx = $_->{width} || $x; |
46 | $mapx = $_->{width} || $x; |
| 44 | $mapy = $_->{height} || $y; |
47 | $mapy = $_->{height} || $y; |
| 45 | } else { |
48 | } else { |
