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

Comparing kgsueme/bin/kgsueme (file contents):
Revision 1.43 by pcg, Mon Jun 23 12:47:08 2003 UTC vs.
Revision 1.59 by pcg, Fri May 21 03:18:14 2004 UTC

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

Diff Legend

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