… | |
… | |
315 | sub is_valid_move { |
315 | sub is_valid_move { |
316 | my ($self, $colour, $x, $y, $may_suicide) = @_; |
316 | my ($self, $colour, $x, $y, $may_suicide) = @_; |
317 | |
317 | |
318 | my $board = $self->{board}; |
318 | my $board = $self->{board}; |
319 | |
319 | |
320 | return if $board->[$x][$y] & (MARK_B | MARK_W | MARK_KO); |
320 | return if $board->[$x][$y] & (MARK_B | MARK_W | MARK_KO) |
|
|
321 | && !($board->[$x][$y] & MARK_GRAYED); |
321 | |
322 | |
322 | if ($may_suicide) { |
323 | if ($may_suicide) { |
323 | return 1; |
324 | return 1; |
324 | } else { |
325 | } else { |
325 | my ($own, $opp) = $colour == COLOUR_BLACK |
326 | my ($own, $opp) = $colour == COLOUR_BLACK |