| … | |
… | |
| 134 | my ($mapx, $mapy); |
134 | my ($mapx, $mapy); |
| 135 | |
135 | |
| 136 | my $map; |
136 | my $map; |
| 137 | |
137 | |
| 138 | for (@{ $mapa->{arch} }) { |
138 | for (@{ $mapa->{arch} }) { |
| 139 | my ($x, $y) = ($_->{x}, $_->{y}); |
139 | my ($x, $y) = (delete $_->{x}, delete $_->{y}); |
| 140 | |
140 | |
| 141 | if ($_->{_name} eq "map") { |
141 | if ($_->{_name} eq "map") { |
| 142 | $meta{info} = $_; |
142 | $meta{info} = $_; |
| 143 | |
143 | |
| 144 | $mapx = $_->{width} || $x; |
144 | $mapx = $_->{width} || $x; |
| … | |
… | |
| 154 | } |
154 | } |
| 155 | } |
155 | } |
| 156 | |
156 | |
| 157 | $meta{width} = $mapx; |
157 | $meta{width} = $mapx; |
| 158 | $meta{height} = $mapy; |
158 | $meta{height} = $mapy; |
|
|
159 | $meta{map} = $map; |
| 159 | |
160 | |
| 160 | \%meta |
161 | \%meta |
| 161 | } |
162 | } |
| 162 | |
163 | |
| 163 | sub init($) { |
164 | sub init($) { |
