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

Comparing kgsueme/bin/kgsueme (file contents):
Revision 1.38 by pcg, Sun Jun 1 10:10:20 2003 UTC vs.
Revision 1.53 by pcg, Fri Jul 25 17:48:30 2003 UTC

… …
12use IO::Socket::INET; 12use IO::Socket::INET;
13use List::Util; 13use List::Util;
14use Errno; 14use Errno;
15 15
16use Storable; 16use Storable;
17use Carp;
17 18
18init Gtk2; 19init Gtk2;
20
21$SIG{QUIT} = sub { Carp::confess "SIGQUIT" };
19 22
20our $HACK = 1; # do NEVER enable. ;) 23our $HACK = 1; # do NEVER enable. ;)
21our $DEBUG_EXPOSE = 0; 24our $DEBUG_EXPOSE = 0;
22 25
23if ($HACK) { 26if ($HACK) {
24 $KGS::debug = 1; 27 $KGS::debug = 1;
25} 28}
26 29
30BEGIN {
27our $VERSION = "0.1"; 31 our $VERSION = "0.1";
28 32
29our $config; 33 our $config;
30our $LIBDIR = "."; 34 our $LIBDIR = ".";
31our $APPDIR = "$LIBDIR/kgsueme"; 35 our $APPDIR = "$LIBDIR/kgsueme";
32our $IMGDIR = "$LIBDIR/images"; 36 our $IMGDIR = "$LIBDIR/images";
33our $SNDDIR = "$LIBDIR/sounds"; 37 our $SNDDIR = "$LIBDIR/sounds";
34 38
35for (qw(util.pl gtk.pl image.pl sound.pl gamelist.pl userlist.pl game.pl room.pl roomlist.pl appwin.pl)) { 39 for (qw(util.pl gtk.pl chat.pl image.pl sound.pl user.pl gamelist.pl userlist.pl challenge.pl
36 print "loading module $_\n"; 40 board.pl game.pl room.pl roomlist.pl app.pl)) {
37 require "$APPDIR/$_"; 41 require "$APPDIR/$_";
42 }
38} 43}
39 44
40our $appwin = new appwin; 45our $app = new app;
41 46
42if (0 && -f "testboard.storable") { 47if (0) {
43 use KGS::Constants; 48 use KGS::Constants;
44 49
45 for (19) { 50 for (19) {
46 my $board = new game %{Storable::retrieve "testboard.storable"}; 51 my $game = new game size => $_;
52
53 if (1) {
54 my $data = Storable::retrieve "board1.dat";
55 while (my ($k, $v) = each %$data) {
56 $game->{$k} = $v;
57 }
58 $game->event_update_tree;
59 }
47 60
48 if (0) { 61 if (0) {
49 $board->{board} = new KGS::Game::Board; 62 $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
50 $board->{board}{board}[0][0] = MARK_B; 78 $game->{cur_board}{board}[0][0] = MARK_B;
51 $board->{board}{board}[1][1] = MARK_GRAY_B | MARK_SMALL_W; 79 $game->{cur_board}{board}[1][1] = MARK_GRAY_B | MARK_SMALL_W;
52 $board->{board}{board}[2][2] = MARK_W | MARK_TRIANGLE; 80 $game->{cur_board}{board}[2][2] = MARK_W | MARK_TRIANGLE;
53 $board->{board}{board}[1][2] = MARK_B | MARK_LABEL; 81 $game->{cur_board}{board}[1][2] = MARK_B | MARK_LABEL;
54 $board->{board}{label}[1][2] = "198"; 82 $game->{cur_board}{label}[1][2] = "198";
55 $board->{board}{board}[0][2] = MARK_W | MARK_LABEL; 83 $game->{cur_board}{board}[0][2] = MARK_W | MARK_LABEL;
56 $board->{board}{label}[0][2] = "AWA"; 84 $game->{cur_board}{label}[0][2] = "AWA";
85 $game->{board}->set_board ($game->{cur_board});
57 } 86 }
58 $board->{window}->show_all; 87 $game->{window}->show_all;
59 } 88 }
60} 89}
61 90
62main Gtk2; 91main Gtk2;
63 92
64$appwin->destroy; 93$app->destroy;
65 94
66Gtk2->main_iteration while Gtk2->events_pending; 95Gtk2->main_iteration while Gtk2->events_pending;
67 96
681; 971;
69 98

Diff Legend

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