[ViewVC] Diff of: cvs/kgsueme/kgsueme/game.pl

Comparing kgsueme/kgsueme/game.pl (file contents):
Revision 1.17 by pcg, Sun Jun 1 02:39:00 2003 UTC vs.
Revision 1.31 by pcg, Mon Jun 2 12:39:20 2003 UTC

…		…
		1	package game::goclock;
		2
		3	use Time::HiRes ();
		4
		5	use KGS::Constants;
		6
		7	use base gtk::widget;
		8
		9	sub new {
		10	my $class = shift;
		11	my $self = $class->SUPER::new(@_);
		12
		13	$self->{widget} = new Gtk2::Label;
		14
		15	$self->{set} = sub { };
		16	$self->{format} = sub { "ERROR" };
		17
		18	$self;
		19	}
		20
		21	sub append_text {
		22	my ($self, $text) = @_;
		23
		24	$self->{buffer}->insert ($self->{buffer}->get_end_iter, $text);
		25	}
		26
		27	sub format_time {
		28	my ($time) = @_;
		29
		30	$time > 60*60
		31	? sprintf "%d:%02d:%02d", $time / (60 * 60), $time / 60 % 60, $time % 60
		32	: sprintf "%d:%02d", $time / 60 % 60, $time % 60;
		33	}
		34
		35	sub set_rules {
		36	my ($self, $timesys, $main, $interval, $count) = @_;
		37
		38	if ($timesys == TIMESYS_ABSOLUTE) {
		39	$self->{set} = sub { $self->{time} = $_[0] };
		40	$self->{format} = sub { format_time $_[0] };
		41
		42	} elsif ($timesys == TIMESYS_BYO_YOMI) {
		43	my $low = $interval * $count;
		44
		45	$self->{set} = sub { $self->{time} = $_[0] };
		46
		47	$self->{format} = sub {
		48	if ($_[0] > $low) {
		49	format_time $_[0] - $low;
		50	} else {
		51	sprintf "%s (%d)", (format_time int ($_[0] % $interval) \|\| $interval), $_[0] / $interval;
		52	}
		53	};
		54
		55	} elsif ($timesys == TIMESYS_CANADIAN) {
		56	my $low = $interval;
		57
		58	$self->{set} = sub { $self->{time} = $_[0]; $self->{moves} = $_[1] };
		59
		60	$self->{format} = sub {
		61	if ($_[0] > $low) {
		62	format_time $_[0] - $low;
		63	} else {
		64	sprintf "%s / %d", (format_time int($_[0] % $interval) \|\| $interval), $self->{moves};
		65	}
		66	};
		67
		68	} else {
		69	# none, or unknown
		70	$self->{set} = sub { };
		71	$self->{format} = sub { "---" }
		72	}
		73	}
		74
		75	sub refresh {
		76	my ($self, $timestamp) = @_;
		77	my $timer = $self->{time} + $self->{start} - $timestamp;
		78	$self->{widget}->set_text ($self->{format}->($timer));
		79
		80	$timer - int $timer;
		81	}
		82
		83	sub set_time {
		84	my ($self, $time) = @_;
		85
		86	# we ignore requests to re-set the time of a running clock.
		87	# this is the easiest way to ensure that commentary etc.
		88	# doesn't re-set the clock. yes, this is frickle design,
		89	# but I think the protoocl is to blame here, which gives
		90	# very little time information. (cgoban2 also has had quite
		91	# a lot of small time update problems...)
		92	unless ($self->{timeout}) {
		93	$self->{set}->($time->[0], $time->[1]);
		94	$self->refresh ($self->{start});
		95	}
		96	}
		97
		98	sub start {
		99	my ($self) = @_;
		100
		101	return if $self->{timeout};
		102
		103	# this is correct, since we assume the last message triggered a start
		104	$self->{start} = $KGS::Protocol::NOW;
		105
		106	my $timeout; $timeout = sub {
		107	# -100 means we run the timer a bit earlier to avoid 10.99 => 10s roundings.
		108	# we "could" cheat by precalculating the time, but I feel uneasy about both
		109	# ways to cheat.
		110	my $next = int ($self->refresh (Time::HiRes::time) * 1000) - 100;
		111	$next += 1000 if $next < 0;
		112	$self->{timeout} = add Glib::Timeout $next, $timeout;
		113	0;
		114	};
		115
		116	$timeout->();
		117	}
		118
		119	sub stop {
		120	my ($self) = @_;
		121
		122	remove Glib::Source delete $self->{timeout} if $self->{timeout};
		123	}
		124
		125	sub destroy {
		126	my ($self) = @_;
		127	$self->stop;
		128	$self->SUPER::destroy;
		129	}
		130
		131	package game::userpanel;
		132
		133	use base gtk::widget;
		134
		135	sub new {
		136	my $class = shift;
		137	my $self = $class->SUPER::new(@_);
		138
		139	$self->{widget} = new Gtk2::HBox;
		140
		141	$self->{widget}->add (my $vbox = new Gtk2::VBox);
		142
		143	$vbox->add ($self->{name} = new Gtk2::Label $self->{name});
		144	$vbox->add ($self->{info} = new Gtk2::Label "");
		145	$vbox->add (($self->{clock} = new game::goclock)->widget);
		146
		147	$self;
		148	}
		149
		150	sub set_rules {
		151	my ($self, $rules) = @_;
		152
		153	if ($self->{name}->get_text ne $rules->{player}[$self->{colour}]) {
		154	$self->{name}->set_text ($rules->{player}[$self->{colour}]);
		155
		156	# the big picture...
		157	appwin::userpic ($rules->{player}[$self->{colour}], sub {
		158	$self->{widget}->add (gtk::image_from_data $_[0]) if $_[0];
		159	$self->{widget}->show_all;
		160	# undef => show sth. funny
		161	});
		162	}
		163
		164	$self->{clock}->set_rules (@{$rules->{rules}}{qw(timesys time interval count)});
		165	}
		166
		167	sub set_state {
		168	my ($self, $captures, $timer, $running) = @_;
		169
		170	$self->{clock}->stop unless $running;
		171	$self->{clock}->set_time ($timer);
		172	$self->{clock}->start if $running;
		173
		174	$self->{info}->set_text ("$captures pris.");
		175	}
		176
1	package game;	177	package game;
2		178
3	use KGS::Constants;	179	use KGS::Constants;
4	use KGS::Game::Board;	180	use KGS::Game::Board;
5		181
20	my $title = $self->{channel} ? $self->owner->as_string." ".$self->opponent_string : "Game Window";	196	my $title = $self->{channel} ? $self->owner->as_string." ".$self->opponent_string : "Game Window";
21	$self->{window}->set_title("KGS Game $title");	197	$self->{window}->set_title("KGS Game $title");
22	gtk::state $self->{window}, "game::window", undef, window_size => [600, 500];	198	gtk::state $self->{window}, "game::window", undef, window_size => [600, 500];
23		199
24	$self->{window}->signal_connect(delete_event => sub {	200	$self->{window}->signal_connect(delete_event => sub {
25	if ($self->{joined}) {
26	$self->part;	201	$self->part;
27	} else {	202	$self->destroy;
28	$self->event_part;
29	}
30	1;	203	1;
31	});	204	});
32		205
33	$self->{window}->add($self->{hpane} = new Gtk2::HPaned);	206	$self->{window}->add($self->{hpane} = new Gtk2::HPaned);
34	gtk::state $self->{hpane}, "game::hpane", undef, position => 500;	207	gtk::state $self->{hpane}, "game::hpane", undef, position => 500;
35		208
		209	$self->{hpane}->pack1(($self->{left} = new Gtk2::VBox), 1, 1);
		210
		211	$self->{boardbox} = new Gtk2::VBox;
		212
36	$self->{hpane}->pack1((my $vbox = new Gtk2::VBox), 1, 1);	213	$self->{hpane}->pack1((my $vbox = new Gtk2::VBox), 1, 1);
37		214
		215	# challenge
		216
		217	$self->{challenge} = new challenge channel => $self->{channel};
		218
		219	# board box (aspect/canvas)
		220
38	$vbox->pack_start((my $frame = new Gtk2::Frame), 0, 1, 0);	221	$self->{boardbox}->pack_start((my $frame = new Gtk2::Frame), 0, 1, 0);
39		222
40	{	223	{
41	# grrr...
42	$frame->add(my $vbox = new Gtk2::VBox);	224	$frame->add(my $vbox = new Gtk2::VBox);
43	$vbox->add($self->{title} = new Gtk2::Label $title);	225	$vbox->add($self->{title} = new Gtk2::Label $title);
44		226
45	$self->{moveadj} = new Gtk2::Adjustment 1, 0, 1, 0.001, 0.05, 0;	227	$self->{moveadj} = new Gtk2::Adjustment 0, 0, 0, 1, 1, 0;
46		228
47	$vbox->add(my $scale = new Gtk2::HScale $self->{moveadj});	229	$vbox->add(my $scale = new Gtk2::HScale $self->{moveadj});
48	$scale->set_draw_value (0);	230	$scale->set_draw_value (0);
		231	$scale->set_digits (0);
49		232
50	$self->{moveadj}->signal_connect (value_changed => sub {	233	$self->{moveadj}->signal_connect (value_changed => sub { $self->update_board });
51	return unless $self->{path};
52
53	my $move = int (@{$self->{path}} * $_[0]->get_value);
54
55	$self->{board} = new KGS::Game::Board $self->{size};
56	$self->{board}->interpret_path ([@{$self->{path}}[0 .. $move - 1]]);
57
58	$self->redraw ($self->repaint_board);
59
60	$self->{text}->set_text(KGS::Listener::Debug::dumpval([$self->{board}{time},$self->{board}{captures}]). $self->{board}{comment});
61	});
62	}
63		234	}
64	$vbox->pack_start(($self->{canvas} = new Gtk2::DrawingArea), 1, 1, 0);	235
		236	$self->{boardbox}->pack_start((my $aspect_frame = new Gtk2::AspectFrame "", 0.5, 0.5, 1, 0), 1, 1, 0);
		237	$aspect_frame->set (border_width => 0, shadow_type => 'none', label_xalign => 0.5);
		238	$self->{board_label} = $aspect_frame->get_label_widget;
		239
		240	$aspect_frame->add($self->{canvas} = new Gtk2::DrawingArea);
		241	$self->{canvas}->double_buffered (0) if $::config->{conserve_memory};
65		242
66	$self->{canvas}->signal_connect(configure_event => \&configure_event, $self);	243	$self->{canvas}->signal_connect(configure_event => \&configure_event, $self);
67	$self->{canvas}->signal_connect(expose_event => \&expose_event, $self);	244	$self->{canvas}->signal_connect(expose_event => \&expose_event, $self);
		245
		246	# RIGHT PANE
68		247
69	$self->{hpane}->pack2(($self->{vpane} = new Gtk2::VPaned), 0, 0);	248	$self->{hpane}->pack2(($self->{vpane} = new Gtk2::VPaned), 0, 0);
70	$self->{hpane}->set(position_set => 1);	249	$self->{hpane}->set(position_set => 1);
71	gtk::state $self->{vpane}, "game::vpane", $self->{name}, position => 80;	250	gtk::state $self->{vpane}, "game::vpane", $self->{name}, position => 80;
72		251
73	$self->{vpane}->add(my $sw = new Gtk2::ScrolledWindow);	252	$self->{vpane}->add(my $sw = new Gtk2::ScrolledWindow);
74	$sw->set_policy("automatic", "always");	253	$sw->set_policy("automatic", "always");
75		254
76	$sw->add(($self->{userlist} = new gtk::userlist)->widget);	255	$sw->add(($self->{userlist} = new userlist)->widget);
77		256
78	$self->{vpane}->add(my $vbox = new Gtk2::VBox);	257	$self->{vpane}->add(my $vbox = new Gtk2::VBox);
		258
		259	$vbox->pack_start((my $hbox = new Gtk2::HBox 1), 0, 1, 0);
		260	$hbox->add (($self->{userpanel}[WHITE] = new game::userpanel colour => WHITE)->widget);
		261	$hbox->add (($self->{userpanel}[BLACK] = new game::userpanel colour => BLACK)->widget);
79		262
80	$vbox->pack_start((my $sw = new Gtk2::ScrolledWindow), 1, 1, 0);
81	$sw->set_policy("never", "always");
82
83	$sw->add(($self->{text} = new gtk::text)->widget);	263	$vbox->pack_start(($self->{text} = new gtk::text)->widget, 1, 1, 0);
84		264
85	$vbox->pack_start(($self->{entry} = new Gtk2::Entry), 0, 1, 0);	265	$vbox->pack_start(($self->{entry} = new Gtk2::Entry), 0, 1, 0);
86	$self->{entry}->signal_connect(activate => sub {	266	$self->{entry}->signal_connect(activate => sub {
87	my $text = $self->{entry}->get_text;	267	my $text = $self->{entry}->get_text;
88	$self->say($text) if $text =~ /\S/;	268	$self->say($text) if $text =~ /\S/;
89	$self->{entry}->set_text("");	269	$self->{entry}->set_text("");
90	});	270	});
91		271
		272	$self->event_update_game;
92	$self;	273	$self;
93	}	274	}
94		275
95	sub event_update_users {	276	sub event_update_users {
96	my ($self) = @_;	277	my ($self, $add, $update, $remove) = @_;
97		278
98	$self->{userlist}->update($self->{users});	279	$self->{userlist}->update ($add, $update, $remove);
99	}	280	}
100		281
101	sub join {	282	sub join {
102	my ($self) = @_;	283	my ($self) = @_;
		284	return if $self->{joined};
		285
103	$self->SUPER::join;	286	$self->SUPER::join;
104		287
105	$self->{window}->show_all;	288	$self->{window}->show_all;
106	}	289	}
107		290
108	sub part {	291	sub part {
109	my ($self) = @_;	292	my ($self) = @_;
		293
110	$self->SUPER::part;	294	$self->SUPER::part;
111		295	$self->destroy;
112	$self->{window}->hide;
113	}	296	}
114		297
115	sub configure_event {	298	sub configure_event {
116	my ($widget, $event, $self) = @_;	299	my ($widget, $event, $self) = @_;
117	delete $self->{stack};	300	delete $self->{stack};
…		…
126	my ($widget, $event, $self) = @_;	309	my ($widget, $event, $self) = @_;
127		310
128	$self->{pixbuf} or return;	311	$self->{pixbuf} or return;
129		312
130	my $area = $event->area;	313	my $area = $event->area;
131	my ($ox, $oy, $s) = @{$self->{offsets}};
132		314
133	$self->redraw (	315	$self->redraw ($area);
134	(new Gtk2::Gdk::Rectangle $area->x - $ox, $area->y - $oy, $area->width, $area->height)
135	->intersect(new Gtk2::Gdk::Rectangle 0, 0, $s, $s)
136	);
137		316
138	0;	317	0;
139	}	318	}
140		319
141	# something Gtk2 fixed	320	# something Gtk2 fixed
…		…
178	for my $stone ($mark & (MARK_W \| MARK_GRAY_W) ? @::white_img : @::black_img) {	357	for my $stone ($mark & (MARK_W \| MARK_GRAY_W) ? @::white_img : @::black_img) {
179	my $base = new_pixbuf $size + $shadow, $size + $shadow, 1, 0x00000000;	358	my $base = new_pixbuf $size + $shadow, $size + $shadow, 1, 0x00000000;
180		359
181	# zeroeth the shadow	360	# zeroeth the shadow
182	if ($mark & (MARK_B \| MARK_W)) {	361	if ($mark & (MARK_B \| MARK_W)) {
		362	# the -0.5's are a mystery to me
183	$::shadow_img->composite (	363	$::shadow_img->composite (
184	$base, $shadow, $shadow, $size, $size, $shadow - 0.5, $shadow - 0.5,	364	$base, $shadow, $shadow, $size, $size, $shadow - 0.5, $shadow - 0.5,
185	$size / $stone->get_width, $size / $stone->get_height,	365	$size / $::shadow_img->get_width, $size / $::shadow_img->get_height,
186	$::config->{speed} ? INTERP_NEAREST : INTERP_BILINEAR, 192	366	$::config->{speed} ? INTERP_NEAREST : INTERP_BILINEAR, 192
187	);	367	);
188	}	368	}
189		369
190	# first the big stones (handicap stones different for effect)	370	# first the big stones (handicap stones different for effect)
…		…
206	for ([MARK_SMALL_B, $::black_img[$rand % @::black_img]],	386	for ([MARK_SMALL_B, $::black_img[$rand % @::black_img]],
207	[MARK_SMALL_W, $::white_img[$rand % @::white_img]]) {	387	[MARK_SMALL_W, $::white_img[$rand % @::white_img]]) {
208	my ($mask, $img) = @$_;	388	my ($mask, $img) = @$_;
209	if ($mark & $mask) {	389	if ($mark & $mask) {
210	$img->composite (	390	$img->composite (
211	$base, (ceil ($size / 4)) x2, (ceil ($size / 2)) x2, (ceil ($size / 4)) x2,	391	$base, (int ($size / 4)) x2, (ceil ($size / 2 + 1)) x2, ($size / 4) x2,
212	$size / $img->get_width / 2, $size / $img->get_height / 2,	392	$size / $img->get_width / 2, $size / $img->get_height / 2,
213	$::config->{speed} ? INTERP_NEAREST : INTERP_BILINEAR, 224	393	$::config->{speed} ? INTERP_NEAREST : INTERP_BILINEAR, 224
214	);	394	);
215	}	395	}
216	}	396	}
…		…
222	[MARK_TRIANGLE, $::triangle_img[$dark_bg]],	402	[MARK_TRIANGLE, $::triangle_img[$dark_bg]],
223	[MARK_SQUARE, $::square_img[$dark_bg]]) {	403	[MARK_SQUARE, $::square_img[$dark_bg]]) {
224	my ($mask, $img) = @$_;	404	my ($mask, $img) = @$_;
225	if ($mark & $mask) {	405	if ($mark & $mask) {
226	$img->composite (	406	$img->composite (
227	$base, 0, 0, $size, $size, -0.5, -0.5,	407	$base, 0, 0, $size, $size, 0, 0,
228	$size / $img->get_width, $size / $img->get_height,	408	$size / $img->get_width, $size / $img->get_height,
229	$::config->{speed} ? INTERP_NEAREST : INTERP_BILINEAR, 255	409	$::config->{speed} ? INTERP_NEAREST : INTERP_BILINEAR, 192
230	);	410	);
231	}	411	}
232	}	412	}
233		413
234	push @$$c, $base;	414	push @$$c, $base;
…		…
279	my $expose_area = undef;	459	my $expose_area = undef;
280		460
281	return $expose_area unless $self->{board};	461	return $expose_area unless $self->{board};
282		462
283	my ($w, $h) = ($canvas->allocation->values)[2,3];	463	my ($w, $h) = ($canvas->allocation->values)[2,3];
		464
		465	die "FATAL: board aspect ratio != 1" unless $w == $h;
284		466
285	my $s = $w > $h ? $h : $w;	467	my $s = $w;
286		468
287	return unless $s > 128;	469	return unless $s >= 200;
288		470
289	$self->{offsets} = [int (($w - $s) / 2), int (($h - $s) / 2), $s];
290
291	my $size = $self->{size};	471	my $size = $self->{size};
292		472
293	# we leave enough space for the shadows.. I like smaller stones, and we	473	# we leave enough space for the shadows.. I like smaller stones, and we
294	# do no need to do the nifty recursive screen updates that goban2 does	474	# do no need to do the nifty recursive screen updates that goban2 does
295	my $border = int ($s / ($size + 3) * 0.5);	475	my $border = int ($s / ($size + 3) * 0.5);
…		…
320	$::board_img->copy_area (0, 0, $s, $s, $pixbuf, 0, 0);	500	$::board_img->copy_area (0, 0, $s, $s, $pixbuf, 0, 0);
321	} else {	501	} else {
322	$pixbuf = scale_pixbuf $::board_img, $s, $s, $::config->{speed} ? INTERP_NEAREST : INTERP_TILES;	502	$pixbuf = scale_pixbuf $::board_img, $s, $s, $::config->{speed} ? INTERP_NEAREST : INTERP_TILES;
323	}	503	}
324		504
325	my $linew = int ($s / 25 / $size);	505	my $linew = int ($s / 40 / $size);
326		506
327	# ornamental border... we have time to waste :/	507	# ornamental border... we have time to waste :/
328	pixbuf_rect $pixbuf, 0xffcc7700, 0, 0, $s-1, $linew, 255;	508	pixbuf_rect $pixbuf, 0xffcc7700, 0, 0, $s-1, $linew, 255;
329	pixbuf_rect $pixbuf, 0xffcc7700, 0, 0, $linew, $s-1, 255;	509	pixbuf_rect $pixbuf, 0xffcc7700, 0, 0, $linew, $s-1, 255;
330	pixbuf_rect $pixbuf,0xffcc7700, $s-$linew-1, 0, $s-1, $s-1, 255;	510	pixbuf_rect $pixbuf, 0xffcc7700, $s-$linew-1, 0, $s-1, $s-1, 255;
331	pixbuf_rect $pixbuf,0xffcc7700, 0, $s-$linew-1, $s-1, $s-1, 255;	511	pixbuf_rect $pixbuf, 0xffcc7700, 0, $s-$linew-1, $s-1, $s-1, 255;
332		512
333	for my $i (1 .. $size) {	513	for my $i (1 .. $size) {
334	pixbuf_rect $pixbuf, 0x44111100, $k[$i] - $linew, $k[1] - $linew, $k[$i] + $linew, $k[$size] + $linew, 192;	514	pixbuf_rect $pixbuf, 0x44111100, $k[$i] - $linew, $k[1] - $linew, $k[$i] + $linew, $k[$size] + $linew, 192;
335	pixbuf_rect $pixbuf, 0x44111100, $k[1] - $linew, $k[$i] - $linew, $k[$size] + $linew, $k[$i] + $linew, 192;	515	pixbuf_rect $pixbuf, 0x44111100, $k[1] - $linew, $k[$i] - $linew, $k[$size] + $linew, $k[$i] + $linew, 192;
336		516
…		…
345		525
346	$a++;	526	$a++;
347	$a++ if $a eq "I"; # not correct, instead of AA AB, we should get HH JJ KK...	527	$a++ if $a eq "I"; # not correct, instead of AA AB, we should get HH JJ KK...
348	}	528	}
349		529
		530	# hoshi points
		531	my $hoshi = sub {
		532	my ($x, $y) = @_;
		533	my $hs = int ($edge / 4) \| 1;
		534	$x = $k[$x] - $hs / 2; $y = $k[$y] - $hs / 2;
		535
		536	# we use the shadow mask... not perfect, but I want to finish this
		537	$::shadow_img->composite ($pixbuf,
		538	$x, $y, $hs + 1, $hs + 1, $x, $y,
		539	$hs / $::shadow_img->get_width, $hs / $::shadow_img->get_height,
		540	$::config->{speed} ? INTERP_NEAREST : INTERP_BILINEAR, 255);
		541	};
		542
		543	my $h1 = $size < 10 ? 3 : 4; # corner / edge offset
		544	$hoshi->($h1, $h1);
		545	$hoshi->($size - $h1 + 1, $h1);
		546	$hoshi->($h1, $size - $h1 + 1);
		547	$hoshi->($size - $h1 + 1, $size - $h1 + 1);
		548
		549	if ($size % 2) { # on odd boards, also the remaining 5
		550	my $h2 = ($size + 1) / 2;
		551	if ($size > 10) {
		552	$hoshi->($h1, $h2);
		553	$hoshi->($size - $h1 + 1, $h2);
		554	$hoshi->($h2, $size - $h1 + 1);
		555	$hoshi->($h2, $h1);
		556	}
		557	# the tengen
		558	$hoshi->($h2, $h2);
		559	}
		560
350	unless ($::config->{conserve_memory}) {	561	unless ($::config->{conserve_memory} > 1) {
351	$self->{background} = $pixbuf;	562	$self->{background} = $pixbuf;
352	$pixbuf = $pixbuf->copy;	563	$pixbuf = $pixbuf->copy;
353	}	564	}
354	}	565	}
355		566
…		…
401	}	612	}
402	pixbuf_text $pixbuf, $white,	613	pixbuf_text $pixbuf, $white,
403	$k[$x], $k[$y], $ofs * 0.7,	614	$k[$x], $k[$y], $ofs * 0.7,
404	$self->{board}{label}[$x-1][$y-1];	615	$self->{board}{label}[$x-1][$y-1];
405	}	616	}
406
407	# old pixmap&mask-way. that was fast ;(
408	#my ($pm, $bm) = $self->create_stack($gc, $mark, $edge, $x * 17 + $y * 11 );
409
410	#$gc->set_clip_mask ($bm);
411	#$gc->set_clip_origin ($dx, $dy);
412	#$pixmap->draw_pixmap ($gc, $pm, 0, 0, $dx, $dy, $edge, $edge);
413	}	617	}
414	}	618	}
415	}	619	}
416		620
417	$self->{board_shown} = Storable::dclone $self->{board};	621	$self->{board_shown} = Storable::dclone $self->{board};
…		…
424	sub redraw {	628	sub redraw {
425	my ($self, $area) = @_;	629	my ($self, $area) = @_;
426		630
427	if ($area && $self->{pixbuf}) {	631	if ($area && $self->{pixbuf}) {
428	my ($x, $y, $w, $h) = $area->values;	632	my ($x, $y, $w, $h) = $area->values;
429	my ($ox, $oy, $s) = @{$self->{offsets}};
430		633
431	$self->{canvas}->window->draw_pixbuf ($self->{canvas}->style->white_gc, $self->{pixbuf},	634	$self->{canvas}->window->draw_pixbuf ($self->{canvas}->style->white_gc, $self->{pixbuf},
432	$x, $y, $x + $ox, $y + $oy, $w, $h,	635	$x, $y, $x, $y, $w, $h,
433	"normal", 0, 0);	636	"normal", 0, 0);
434	$self->{canvas}->window->draw_rectangle ($self->{canvas}->style->black_gc, 0,	637	$self->{canvas}->window->draw_rectangle ($self->{canvas}->style->black_gc, 0,
435	$x + $ox - 1, $y + $oy - 1, $w + 2, $h + 2) if $::DEBUG_EXPOSE;	638	$x - 1, $y - 1, $w + 2, $h + 2) if $::DEBUG_EXPOSE;
436	}	639	}
		640	}
		641
		642	sub update_board {
		643	my ($self) = @_;
		644	return unless $self->{path};
		645
		646	my $move = int $self->{moveadj}->get_value;
		647
		648	my $running = $move == @{$self->{path}};
		649
		650	$self->{board_label}->set_text ("Move $move");
		651
		652	$self->{board} = new KGS::Game::Board $self->{size};
		653	$self->{board}->interpret_path ([@{$self->{path}}[0 .. $move - 1]]);
		654
		655	$self->{userpanel}[WHITE]->set_state ($self->{board}{captures}[WHITE],
		656	$self->{board}{timer}[WHITE],
		657	$running && $self->{board}{last} == BLACK);
		658	$self->{userpanel}[BLACK]->set_state ($self->{board}{captures}[BLACK],
		659	$self->{board}{timer}[BLACK],
		660	$running && $self->{board}{last} == WHITE);
		661
		662	$self->redraw ($self->repaint_board);
437	}	663	}
438		664
439	sub event_update_tree {	665	sub event_update_tree {
440	my ($self) = @_;	666	my ($self) = @_;
441		667
442	$self->{path} = $self->get_path;	668	$self->{path} = $self->get_path;
443	$self->{moveadj}->value_changed if $self->{moveadj};	669
		670	$self->{userpanel}[WHITE]->set_rules ($self->{path}[0]); # should be onload only
		671	$self->{userpanel}[BLACK]->set_rules ($self->{path}[0]); # should be onload only
		672
		673	if ($self->{moveadj}) {
		674	my $upper = $self->{moveadj}->upper;
		675	my $pos = $self->{moveadj}->get_value;
		676
		677	$self->{moveadj}->upper (scalar @{$self->{path}});
		678
		679	$self->{moveadj}->changed;
		680	if ($pos == $upper) {
		681	$self->{moveadj}->set_value (scalar @{$self->{path}});
		682	} else {
		683	$self->{moveadj}->value_changed;
		684	}
		685	}
		686	}
		687
		688	sub event_update_comments {
		689	my ($self, $node, $comment, $newnode) = @_;
		690	$self->SUPER::event_update_comments($node, $comment, $newnode);
		691
		692	my $text;
		693
		694	$text .= "\n<header>Move <move>$node->{move}</move>, <header>Node <node>$node->{id}</node></header>"
		695	if $newnode;
		696
		697	for (split /\n/, $comment) {
		698	$text .= "\n";
		699	if ($_ =~ s/^([0-9a-zA-Z]+ \[[0-9dkp\?\-]+\])://) {
		700	$text .= "<user>" . (util::toxml $1) . "</user>:";
		701	}
		702	$text .= $_;
		703	}
		704
		705	$self->{text}->append_text ($text);
		706	}
		707
		708	sub event_join {
		709	my ($self) = @_;
		710	$self->SUPER::event_join;
444	}	711	}
445		712
446	sub event_part {	713	sub event_part {
447	my ($self) = @_;	714	my ($self) = @_;
448	$self->SUPER::event_part;	715	$self->SUPER::event_part;
449	delete $appwin::gamelist->{game}{$self->{channel}};
450	$self->destroy;
451	}	716	}
452		717
453	sub event_move {	718	sub event_move {
454	my ($self, $pass) = @_;	719	my ($self, $pass) = @_;
455	sound::play 1, $pass ? "pass" : "move";	720	sound::play 1, $pass ? "pass" : "move";
456	}	721	}
457		722
		723	sub event_update_game {
		724	my ($self) = @_;
		725	$self->SUPER::event_update_game;
		726	warn "GAME UPDATE ".join (":", %$self);
		727	warn "SAVED ".$self->is_saved;
		728	warn "SCORED ".$self->is_scored;
		729	warn "ADJ ".$self->is_adjourned;
		730	warn "VALID ".$self->is_valid;
		731	warn "MOVES ".$self->moves;
		732	warn "TYPE ".$self->type;
		733
		734	$self->{left}->remove ($_) for $self->{left}->get_children;
		735	if ($self->is_valid) {
		736	$self->{left}->add ($self->{boardbox});
		737	(delete $self->{challenge})->destroy if $self->{challenge};
		738	} else {
		739	$self->{left}->add ($self->{challenge});
		740	}
		741	$self->{left}->show_all;
		742	}
		743
		744	sub destroy {
		745	my ($self) = @_;
		746	(delete $self->{userpanel}[WHITE])->destroy if $self->{userpanel}[WHITE];
		747	(delete $self->{userpanel}[BLACK])->destroy if $self->{userpanel}[BLACK];
		748	$self->SUPER::destroy;
		749	delete $appwin::gamelist->{game}{$self->{channel}};
		750	}
		751
458	1;	752	1;
459		753

Diff Legend

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

Comparing kgsueme/kgsueme/game.pl (file contents): Revision 1.17 by pcg, Sun Jun 1 02:39:00 2003 UTC vs. Revision 1.31 by pcg, Mon Jun 2 12:39:20 2003 UTC

Diff Legend

Comparing kgsueme/kgsueme/game.pl (file contents):
Revision 1.17 by pcg, Sun Jun 1 02:39:00 2003 UTC vs.
Revision 1.31 by pcg, Mon Jun 2 12:39:20 2003 UTC