[ViewVC] Diff of: cvs/Games-Go-SimpleBoard/SimpleBoard.pm

Comparing Games-Go-SimpleBoard/SimpleBoard.pm (file contents):
Revision 1.10 by root, Wed Jun 25 20:49:38 2008 UTC vs.
Revision 1.13 by elmex, Thu Jul 24 08:50:53 2008 UTC

 =cut
 sub new {
    my $class = shift;
    my $size = shift;
+   unless ($size > 0) {
+      Carp::croak ("no board size given!");
+   }
    bless {
       max       => $size - 1,
       size      => $size,
       board     => [map [(0) x $size], 1 .. $size],
                $suicide += $self->capture ($own, $x, $y);
                ${ $_->[5] } ||= !(@capture || $suicide);
+               if ($suicide) {
+                  $self->{board}[$x][$y] = 0
-               if (!$suicide && @capture == 1) {
+               } elsif (!$suicide && @capture == 1) {
                   # possible ko. now check liberties on placed stone
                   my $libs;
                   $libs++ if $x > 0            && !($board->[$x-1][$y] & $opp);
 sub is_valid_move {
    my ($self, $colour, $x, $y, $may_suicide) = @_;
    my $board = $self->{board};
-   return if $board->[$x][$y] & (MARK_B | MARK_W | MARK_KO);
+   return if $board->[$x][$y] & (MARK_B | MARK_W | MARK_KO)
+             && !($board->[$x][$y] & MARK_GRAYED);
    if ($may_suicide) {
       return 1;
    } else {
       my ($own, $opp) = $colour == COLOUR_BLACK

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines