1 | #!/usr/bin/perl |
1 | #!/usr/bin/perl |
|
|
2 | |
|
|
3 | use strict 'vars'; |
2 | |
4 | |
3 | use Glib; |
5 | use Glib; |
4 | use Gtk2; |
6 | use Gtk2; |
5 | |
7 | |
6 | use KGS::Protocol; |
8 | use 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; |