| … | |
… | |
| 170 | : undef |
170 | : undef |
| 171 | }, |
171 | }, |
| 172 | '+=' => sub { $_[0][0] |= $MOVE_TYPE{$_[1]}; $_[0][1] |= $MOVE_TYPE{$_[1]}; &normalise }, |
172 | '+=' => sub { $_[0][0] |= $MOVE_TYPE{$_[1]}; $_[0][1] |= $MOVE_TYPE{$_[1]}; &normalise }, |
| 173 | '-=' => sub { $_[0][0] |= $MOVE_TYPE{$_[1]}; $_[0][1] &= ~$MOVE_TYPE{$_[1]}; &normalise }, |
173 | '-=' => sub { $_[0][0] |= $MOVE_TYPE{$_[1]}; $_[0][1] &= ~$MOVE_TYPE{$_[1]}; &normalise }, |
| 174 | '/=' => sub { $_[0][0] &= ~$MOVE_TYPE{$_[1]}; &normalise }, |
174 | '/=' => sub { $_[0][0] &= ~$MOVE_TYPE{$_[1]}; &normalise }, |
| 175 | 'x=' => sub { |
175 | 'x=' => sub { # toggle between off, + and - |
| 176 | my $cur = $_[0] >= $_[1]; |
176 | my $cur = $_[0] >= $_[1]; |
| 177 | if (!defined $cur) { |
177 | if (!defined $cur) { |
| 178 | if ($_[0] >= "all") { |
178 | if ($_[0] >= "all") { |
| 179 | $_[0] -= $_[1]; |
179 | $_[0] -= $_[1]; |
| 180 | } else { |
180 | } else { |
