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

Comparing kgsueme/bin/kgsueme (file contents):
Revision 1.48 by pcg, Fri Jul 18 21:40:40 2003 UTC vs.
Revision 1.60 by pcg, Sat May 29 06:38:24 2004 UTC

… …
30BEGIN { 30BEGIN {
31 our $VERSION = "0.1"; 31 our $VERSION = "0.1";
32 32
33 our $config; 33 our $config;
34 our $LIBDIR = "."; 34 our $LIBDIR = ".";
35 our $APPDIR = "$LIBDIR/kgsueme";
36 our $IMGDIR = "$LIBDIR/images";
37 our $SNDDIR = "$LIBDIR/sounds";
38 35
36 use KGS::Constants;
37
39 for (qw(util.pl gtk.pl image.pl sound.pl gamelist.pl userlist.pl challenge.pl 38 for (qw(util.pl gtk.pl chat.pl superchat.pl sound.pl user.pl gamelist.pl userlist.pl challenge.pl
40 board.pl game.pl room.pl roomlist.pl appwin.pl)) { 39 game.pl room.pl roomlist.pl app.pl)) {
41 require "$APPDIR/$_"; 40 require (KGS::Constants::findfile "KGS/kgsueme/$_");
41 die if $@;
42 } 42 }
43} 43}
44 44
45our $appwin = new appwin; 45if ($ENV{KGSUEME_DEBUG}) {
46
47if (0) {
48 use KGS::Constants; 46 use KGS::Constants;
49 47
50 for (19) { 48 for (19) {
51 my $board = new game size => $_;# %{Storable::retrieve "testboard.storable"}; 49 my $game = new game size => $_;
52 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
74
53 if (1) { 75 if (0) {
76 my $data = Storable::retrieve "board2.dat";
77 while (my ($k, $v) = each %$data) {
78 $game->{$k} = $v;
79 }
80 $game->event_update_tree;
81 }
82
83 if (0) {
54 $board->{cur_board} = new KGS::Game::Board; 84 $game->{cur_board} = new KGS::Game::Board;
55 my @x = ( 85 my @x = (
56 #MARK_B, 86 #MARK_B,
57 #MARK_W, 87 #MARK_W,
58 #MARK_GRAY_B | MARK_SMALL_W, 88 #MARK_GRAY_B | MARK_SMALL_W,
59 #MARK_GRAY_W | MARK_SMALL_B, 89 #MARK_GRAY_W | MARK_SMALL_B,
60 #MARK_W | MARK_TRIANGLE, 90 #MARK_W | MARK_TRIANGLE,
61 0, 0, 0, 91 0, 0, 0,
62 ); 92 );
63 for $x (0..18) { 93 for $x (0..18) {
64 for $y (0..18) { 94 for $y (0..18) {
65 $board->{cur_board}{board}[$x][$y] = 95 $game->{cur_board}{board}[$x][$y] =
66 $x[rand @x]; 96 $x[rand @x];
67 } 97 }
68 } 98 }
69 99
70 $board->{cur_board}{board}[0][0] = MARK_B; 100 $game->{cur_board}{board}[0][0] = MARK_B;
71 $board->{cur_board}{board}[1][1] = MARK_GRAY_B | MARK_SMALL_W; 101 $game->{cur_board}{board}[1][1] = MARK_GRAY_B | MARK_SMALL_W;
72 $board->{cur_board}{board}[2][2] = MARK_W | MARK_TRIANGLE; 102 $game->{cur_board}{board}[2][2] = MARK_W | MARK_TRIANGLE;
73 $board->{cur_board}{board}[1][2] = MARK_B | MARK_LABEL; 103 $game->{cur_board}{board}[1][2] = MARK_B | MARK_LABEL;
74 $board->{cur_board}{label}[1][2] = "198"; 104 $game->{cur_board}{label}[1][2] = "198";
75 $board->{cur_board}{board}[0][2] = MARK_W | MARK_LABEL; 105 $game->{cur_board}{board}[0][2] = MARK_W | MARK_LABEL;
76 $board->{cur_board}{label}[0][2] = "AWA"; 106 $game->{cur_board}{label}[0][2] = "AWA";
107 $game->{board}->set_board ($game->{cur_board});
77 } 108 }
78 $board->{window}->show_all;
79 $board->{board}->set_board ($board->{cur_board});
80 } 109 }
110 main Gtk2;
111
81} 112}
113
114our $app = new app;
82 115
83main Gtk2; 116main Gtk2;
84 117
85$appwin->destroy; 118$app->destroy;
86 119
87Gtk2->main_iteration while Gtk2->events_pending; 120Gtk2->main_iteration while Gtk2->events_pending;
88 121
891; 1221;
90 123

Diff Legend

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