ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/kgsueme/bin/kgsueme
(Generate patch)

Comparing kgsueme/bin/kgsueme (file contents):
Revision 1.64 by root, Thu Jun 3 03:46:21 2004 UTC vs.
Revision 1.65 by root, Sun Jun 6 07:55:06 2004 UTC

1#!/usr/bin/perl 1#!/usr/bin/perl
2
3use strict 'vars';
2 4
3use Glib; 5use Glib;
4use Gtk2; 6use Gtk2;
5 7
6use KGS::Protocol; 8use KGS::Protocol;
86 $game->event_update_tree; 88 $game->event_update_tree;
87 } 89 }
88 90
89 if (0) { 91 if (0) {
90 $game->{cur_board} = new KGS::Game::Board; 92 $game->{cur_board} = new KGS::Game::Board;
91 my @x = (
92 #MARK_B,
93 #MARK_W,
94 #MARK_GRAY_B | MARK_SMALL_W,
95 #MARK_GRAY_W | MARK_SMALL_B,
96 #MARK_W | MARK_TRIANGLE,
97 0, 0, 0,
98 );
99 for $x (0..18) {
100 for $y (0..18) {
101 $game->{cur_board}{board}[$x][$y] =
102 $x[rand @x];
103 }
104 }
105 93
106 $game->{cur_board}{board}[0][0] = MARK_B; 94 $game->{cur_board}{board}[0][0] = MARK_B;
107 $game->{cur_board}{board}[1][1] = MARK_GRAY_B | MARK_SMALL_W; 95 $game->{cur_board}{board}[1][1] = MARK_GRAY_B | MARK_SMALL_W;
108 $game->{cur_board}{board}[2][2] = MARK_W | MARK_TRIANGLE; 96 $game->{cur_board}{board}[2][2] = MARK_W | MARK_TRIANGLE;
109 $game->{cur_board}{board}[1][2] = MARK_B | MARK_LABEL; 97 $game->{cur_board}{board}[1][2] = MARK_B | MARK_LABEL;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines