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

Diff Legend

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