| … | |
… | |
| 157 | |
157 | |
| 158 | { |
158 | { |
| 159 | package Crossfire::MoveType; |
159 | package Crossfire::MoveType; |
| 160 | |
160 | |
| 161 | use overload |
161 | use overload |
|
|
162 | '=' => sub { bless [@{$_[0]}], ref $_[0] }, |
| 162 | '""' => \&as_string, |
163 | '""' => \&as_string, |
| 163 | '>=' => sub { $_[0][0] & $MOVE_TYPE{$_[1]} ? $_[0][1] & $MOVE_TYPE{$_[1]} : undef }, |
164 | '>=' => sub { $_[0][0] & $MOVE_TYPE{$_[1]} ? $_[0][1] & $MOVE_TYPE{$_[1]} : undef }, |
| 164 | '+=' => sub { $_[0][0] |= $MOVE_TYPE{$_[1]}; $_[0][1] |= $MOVE_TYPE{$_[1]}; &normalise }, |
165 | '+=' => sub { $_[0][0] |= $MOVE_TYPE{$_[1]}; $_[0][1] |= $MOVE_TYPE{$_[1]}; &normalise }, |
| 165 | '-=' => sub { $_[0][0] |= $MOVE_TYPE{$_[1]}; $_[0][1] &= ~$MOVE_TYPE{$_[1]}; &normalise }, |
166 | '-=' => sub { $_[0][0] |= $MOVE_TYPE{$_[1]}; $_[0][1] &= ~$MOVE_TYPE{$_[1]}; &normalise }, |
| 166 | '/=' => sub { $_[0][0] &= ~$MOVE_TYPE{$_[1]}; &normalise }, |
167 | '/=' => sub { $_[0][0] &= ~$MOVE_TYPE{$_[1]}; &normalise }, |
| 167 | 'x=' => sub { |
168 | 'x=' => sub { |
| 168 | my $cur = $_[0] >= $_[1]; |
169 | my $cur = $_[0] >= $_[1]; |
| 169 | if (!defined $cur) { |
170 | if (!defined $cur) { |
|
|
171 | if ($_[0] >= "all") { |
|
|
172 | $_[0] -= $_[1]; |
|
|
173 | } else { |
| 170 | $_[0] += $_[1]; |
174 | $_[0] += $_[1]; |
|
|
175 | } |
| 171 | } elsif ($cur) { |
176 | } elsif ($cur) { |
| 172 | $_[0] -= $_[1]; |
177 | $_[0] -= $_[1]; |
| 173 | } else { |
178 | } else { |
| 174 | $_[0] /= $_[1]; |
179 | $_[0] /= $_[1]; |
| 175 | } |
180 | } |
