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

Comparing kgsueme/bin/kgsueme (file contents):
Revision 1.57 by pcg, Sat Aug 2 01:49:36 2003 UTC vs.
Revision 1.64 by root, Thu Jun 3 03:46:21 2004 UTC

… …
33 our $config; 33 our $config;
34 our $LIBDIR = "."; 34 our $LIBDIR = ".";
35 35
36 use KGS::Constants; 36 use KGS::Constants;
37 37
38 for (qw(util.pl gtk.pl chat.pl sound.pl user.pl gamelist.pl userlist.pl challenge.pl 38 for (qw(util.pl gtk.pl chat.pl sound.pl user.pl gamelist.pl userlist.pl
39 game.pl room.pl roomlist.pl app.pl)) { 39 game.pl room.pl roomlist.pl app.pl)) {
40 require (KGS::Constants::findfile "KGS/kgsueme/$_"); 40 require (KGS::Constants::findfile "KGS/kgsueme/$_");
41 die if $@; 41 die if $@;
42 } 42 }
43} 43}
44 44
45our $app = new app;
46
47if ($ENV{KGSUEME_DEBUG}) { 45if ($ENV{KGSUEME_DEBUG}) {
48 use KGS::Constants; 46 use KGS::Constants;
49 47
48 my $window = new Gtk2::Window 'toplevel';
49 $window->add (new game::userpanel colour => 0);
50 $window->show_all;
51
52 main Gtk2;
53
50 for (19) { 54 for (19) {
51 my $game = new game size => $_; 55 my $game = new game size => $_;
56
57 $game->event_challenge (
58bless( {
59 type => 0,
60 black => bless( {
61 flags => 2633,
62 name => 'dorkusx'
63 }, 'KGS::User' ),
64 rules => bless( {
65 count => 5,
66 time => 900,
67 timesys => 2,
68 interval => 30,
69 komi => '6.5',
70 size => 19,
71 ruleset => 0,
72 handicap => 2,
73 }, 'KGS::Rules' ),
74 white => bless( {
75 flags => 436220808,
76 name => 'Nerdamus'
77 }, 'KGS::User' )
78 }, 'KGS::Challenge' ));
79
52 80
53 if (1) { 81 if (0) {
54 my $data = Storable::retrieve "board2.dat"; 82 my $data = Storable::retrieve "board2.dat";
55 while (my ($k, $v) = each %$data) { 83 while (my ($k, $v) = each %$data) {
56 $game->{$k} = $v; 84 $game->{$k} = $v;
57 } 85 }
58 $game->event_update_tree; 86 $game->event_update_tree;
… …
82 $game->{cur_board}{label}[1][2] = "198"; 110 $game->{cur_board}{label}[1][2] = "198";
83 $game->{cur_board}{board}[0][2] = MARK_W | MARK_LABEL; 111 $game->{cur_board}{board}[0][2] = MARK_W | MARK_LABEL;
84 $game->{cur_board}{label}[0][2] = "AWA"; 112 $game->{cur_board}{label}[0][2] = "AWA";
85 $game->{board}->set_board ($game->{cur_board}); 113 $game->{board}->set_board ($game->{cur_board});
86 } 114 }
87 $game->{window}->show_all;
88 } 115 }
116 main Gtk2;
117
89} 118}
119
120our $app = new app;
90 121
91main Gtk2; 122main Gtk2;
92 123
93$app->destroy; 124$app->destroy;
94 125

Diff Legend

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