Changeset 6881

Timestamp:

02/18/08 23:24:49 (5 years ago)

Author:

junichiro

Message:

lang/perl/Games-Go: To be able to pass.

Location:

lang/perl/Games-Go/trunk

Files:

• README (modified) (1 diff)
• bin/start_go.pl (modified) (1 diff)
• lib/Games/Go/Play.pm (modified) (6 diffs)

lang/perl/Games-Go/trunk/README

@@ -1 +1 @@
 Games-Go-Play version 0.0.1
-
-[ REPLACE THIS...
-
-  The README is used to introduce the module and provide instructions on
-  how to install the module, any machine dependencies it may have (for
-  example C compilers and installed libraries) and any other information
-  that should be understood before the module is installed.
-
-  A README file is required for CPAN modules since CPAN extracts the
-  README file from a module distribution so that people browsing the
-  archive can use it get an idea of the modules uses. It is usually a
-  good idea to provide version information here so that people can
-  decide whether fixes for the module are worth downloading.
-]
-
 
 INSTALLATION

lang/perl/Games-Go/trunk/bin/start_go.pl

@@ -61 +61 @@
         }
         elsif ( $in eq 'p' ) {
-
-            # [TODO]pass.
-            return;
+            $go->pass;
         }
         elsif ( $in eq 'resign' ) {

lang/perl/Games-Go/trunk/lib/Games/Go/Play.pm

@@ -11 +11 @@
 
 use base qw/Class::Accessor::Fast/;
-__PACKAGE__->mk_accessors(qw(space black white out));
+__PACKAGE__->mk_accessors(qw(space black white out pass));
 
 our $B_SIZE = 19;
@@ -34 +34 @@
             'ji'      => 0,
         },
+        'pass'  => 0,
     };
 
@@ -91 +92 @@
         return;
     }
+    $self->{'pass'} = 0;
     $self->{'board'}[ $points->[1] ][ $points->[0] ] = $symbol;
     $self->{'teban'} = $self->other_side( $self->{'teban'} );
@@ -111 +113 @@
 sub pass {
     my ($self) = @_;
+    $self->{'pass'}++;
+    if ($self->{'pass'} >= '2') {
+        $self->end;
+        return;
+    }
     $self->{'teban'} = $self->other_side( $self->{'teban'} );
 }
@@ -117 +124 @@
     my ( $self, $symbol ) = @_;
     return ( $symbol eq $BLACK ) ? $WHITE : $BLACK;
+}
+
+sub end {
+    my ($self) = @_;
+    print "[TODO] end.\n";
 }
 
@@ -167 +179 @@
 =item show
 Show play field.
+=item end
+End the game.
 =back