… | |
… | |
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 { |