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

Comparing kgsueme/bin/kgsueme (file contents):
Revision 1.59 by pcg, Fri May 21 03:18:14 2004 UTC vs.
Revision 1.60 by pcg, Sat May 29 06:38:24 2004 UTC

… …
41 die if $@; 41 die if $@;
42 } 42 }
43} 43}
44 44
45if ($ENV{KGSUEME_DEBUG}) { 45if ($ENV{KGSUEME_DEBUG}) {
46 my $window = new Gtk2::Window 'toplevel';
47 my $chat = new superchat;
48
49 $window->add ($chat);
50 show_all $window;
51
52 $chat->append_text ("A\n");
53 $chat->append_text ("B\n");
54 $chat->append_text ("C\n");
55 $chat->append_text ("D\n");
56
57 $chat->{full}->clear;
58
59 $chat->append_text ("F\n");
60 $chat->append_text ("G\n");
61
62 main Gtk2;
63
64 use KGS::Constants; 46 use KGS::Constants;
65 47
66 for (19) { 48 for (19) {
67 my $game = new game size => $_; 49 my $game = new game size => $_;
50
51 $game->event_challenge (
52bless( {
53 type => 0,
54 user1 => bless( {
55 flags => 2633,
56 name => 'dorkusx'
57 }, 'KGS::User' ),
58 rules => bless( {
59 count => 5,
60 time => 900,
61 timesys => 2,
62 interval => 30,
63 komi => '6.5',
64 size => 19,
65 ruleset => 0,
66 handicap => 2,
67 }, 'KGS::Rules' ),
68 user2 => bless( {
69 flags => 436220808,
70 name => 'Nerdamus'
71 }, 'KGS::User' )
72 }, 'KGS::Challenge' ));
73
68 74
69 if (1) { 75 if (0) {
70 my $data = Storable::retrieve "board2.dat"; 76 my $data = Storable::retrieve "board2.dat";
71 while (my ($k, $v) = each %$data) { 77 while (my ($k, $v) = each %$data) {
72 $game->{$k} = $v; 78 $game->{$k} = $v;
73 } 79 }
74 $game->event_update_tree; 80 $game->event_update_tree;
… …
98 $game->{cur_board}{label}[1][2] = "198"; 104 $game->{cur_board}{label}[1][2] = "198";
99 $game->{cur_board}{board}[0][2] = MARK_W | MARK_LABEL; 105 $game->{cur_board}{board}[0][2] = MARK_W | MARK_LABEL;
100 $game->{cur_board}{label}[0][2] = "AWA"; 106 $game->{cur_board}{label}[0][2] = "AWA";
101 $game->{board}->set_board ($game->{cur_board}); 107 $game->{board}->set_board ($game->{cur_board});
102 } 108 }
103 $game->{window}->show_all;
104 } 109 }
110 main Gtk2;
111
105} 112}
106 113
107our $app = new app; 114our $app = new app;
108 115
109main Gtk2; 116main Gtk2;

Diff Legend

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