| … | |
… | |
| 169 | |
169 | |
| 170 | my $append; $append = sub { |
170 | my $append; $append = sub { |
| 171 | my %a = %{$_[0]}; |
171 | my %a = %{$_[0]}; |
| 172 | |
172 | |
| 173 | Crossfire::normalize_arch \%a; |
173 | Crossfire::normalize_arch \%a; |
|
|
174 | |
|
|
175 | # undo the bit-split we did before |
|
|
176 | if (exists $a{attack_movement_bits_0_3}) { |
|
|
177 | $a{attack_movement} = (delete $a{attack_movement_bits_0_3}) |
|
|
178 | | (delete $a{attack_movement_bits_4_7}); |
|
|
179 | } |
| 174 | |
180 | |
| 175 | $str .= "arch $a{_name}\n"; |
181 | $str .= "arch $a{_name}\n"; |
| 176 | |
182 | |
| 177 | my $inv = delete $a{inventory}; |
183 | my $inv = delete $a{inventory}; |
| 178 | delete $a{more}; # arches do not support 'more', but old maps can contain some |
184 | delete $a{more}; # arches do not support 'more', but old maps can contain some |
