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

Comparing kgsueme/bin/kgsueme (file contents):
Revision 1.39 by pcg, Mon Jun 2 12:39:20 2003 UTC vs.
Revision 1.43 by pcg, Mon Jun 23 12:47:08 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) {
… …
30our $LIBDIR = "."; 33our $LIBDIR = ".";
31our $APPDIR = "$LIBDIR/kgsueme"; 34our $APPDIR = "$LIBDIR/kgsueme";
32our $IMGDIR = "$LIBDIR/images"; 35our $IMGDIR = "$LIBDIR/images";
33our $SNDDIR = "$LIBDIR/sounds"; 36our $SNDDIR = "$LIBDIR/sounds";
34 37
35for (qw(util.pl gtk.pl image.pl sound.pl gamelist.pl userlist.pl challenge.pl game.pl room.pl roomlist.pl appwin.pl)) { 38for (qw(util.pl gtk.pl image.pl sound.pl gamelist.pl userlist.pl challenge.pl
39 board.pl game.pl room.pl roomlist.pl appwin.pl)) {
36 print "loading module $_\n"; 40 print "loading module $_\n";
37 require "$APPDIR/$_"; 41 require "$APPDIR/$_";
38} 42}
39 43
40our $appwin = new appwin; 44our $appwin = new appwin;
41 45
42if (0 && -f "testboard.storable") { 46if (1) {
43 use KGS::Constants; 47 use KGS::Constants;
44 48
45 for (19) { 49 for (19) {
46 my $board = new game %{Storable::retrieve "testboard.storable"}; 50 my $board = new game size => $_;# %{Storable::retrieve "testboard.storable"};
47 51
48 if (0) { 52 if (1) {
49 $board->{board} = new KGS::Game::Board; 53 $board->{cur_board} = new KGS::Game::Board;
50 $board->{board}{board}[0][0] = MARK_B; 54 $board->{cur_board}{board}[0][0] = MARK_B;
51 $board->{board}{board}[1][1] = MARK_GRAY_B | MARK_SMALL_W; 55 $board->{cur_board}{board}[1][1] = MARK_GRAY_B | MARK_SMALL_W;
52 $board->{board}{board}[2][2] = MARK_W | MARK_TRIANGLE; 56 $board->{cur_board}{board}[2][2] = MARK_W | MARK_TRIANGLE;
53 $board->{board}{board}[1][2] = MARK_B | MARK_LABEL; 57 $board->{cur_board}{board}[1][2] = MARK_B | MARK_LABEL;
54 $board->{board}{label}[1][2] = "198"; 58 $board->{cur_board}{label}[1][2] = "198";
55 $board->{board}{board}[0][2] = MARK_W | MARK_LABEL; 59 $board->{cur_board}{board}[0][2] = MARK_W | MARK_LABEL;
56 $board->{board}{label}[0][2] = "AWA"; 60 $board->{cur_board}{label}[0][2] = "AWA";
57 } 61 }
58 $board->{window}->show_all; 62 $board->{window}->show_all;
63 $board->{board}->set_board ($board->{cur_board});
59 } 64 }
60} 65}
61 66
62main Gtk2; 67main Gtk2;
63 68

Diff Legend

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