| … | |
… | |
| 171 | my %a = %{$_[0]}; |
171 | my %a = %{$_[0]}; |
| 172 | |
172 | |
| 173 | Crossfire::normalize_arch \%a; |
173 | Crossfire::normalize_arch \%a; |
| 174 | |
174 | |
| 175 | # undo the bit-split we did before |
175 | # undo the bit-split we did before |
| 176 | if (exists $a{attack_movement_bits_0_3}) { |
176 | if (exists $a{attack_movement_bits_0_3} or exists $a{attack_movement_bits_4_7}) { |
| 177 | $a{attack_movement} = (delete $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}); |
178 | | (delete $a{attack_movement_bits_4_7}); |
| 179 | } |
179 | } |
| 180 | |
180 | |
| 181 | $str .= "arch $a{_name}\n"; |
181 | $str .= "arch $a{_name}\n"; |
