[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.46 by pcg, Thu Jun 5 06:01:01 2003 UTC

…		…
		1	use utf8;
		2
		3	package game::goclock;
		4
		5	# Lo and Behold! I admit it! The rounding stuff etc.. in goclock
		6	# is completely borked.
		7
		8	use Time::HiRes ();
		9
		10	use KGS::Constants;
		11
		12	use base gtk::widget;
		13
		14	sub new {
		15	my $class = shift;
		16	my $self = $class->SUPER::new(@_);
		17
		18	$self->{widget} = new Gtk2::Label;
		19
		20	$self->{set} = sub { };
		21	$self->{format} = sub { "ERROR" };
		22
		23	$self;
		24	}
		25
		26	sub configure {
		27	my ($self, $timesys, $main, $interval, $count) = @_;
		28
		29	if ($timesys == TIMESYS_ABSOLUTE) {
		30	$self->{set} = sub { $self->{time} = $_[0] };
		31	$self->{format} = sub { util::format_time $_[0] };
		32
		33	} elsif ($timesys == TIMESYS_BYO_YOMI) {
		34	my $low = $interval * $count;
		35
		36	$self->{set} = sub { $self->{time} = $_[0] };
		37
		38	$self->{format} = sub {
		39	if ($_[0] > $low) {
		40	util::format_time $_[0] - $low;
		41	} else {
		42	sprintf "%s (%d)",
		43	util::format_time int (($_[0] - 1) % $interval + 1),
		44	($_[0] - 1) / $interval;
		45	}
		46	};
		47
		48	} elsif ($timesys == TIMESYS_CANADIAN) {
		49	$self->{set} = sub { $self->{time} = $_[0]; $self->{moves} = $_[1] };
		50
		51	$self->{format} = sub {
		52	if (!$self->{moves}) {
		53	util::format_time $_[0] - $low;
		54	} else {
		55	my $time = int (($_[0] - 1) % $interval + 1);
		56
		57	sprintf "%s/%d {%d}",
		58	util::format_time $time,
		59	$self->{moves},
		60	$time / ($self->{moves} \|\| 1);
		61
		62	}
		63	};
		64
		65	} else {
		66	# none, or unknown
		67	$self->{set} = sub { };
		68	$self->{format} = sub { "---" }
		69	}
		70	}
		71
		72	sub refresh {
		73	my ($self, $timestamp) = @_;
		74	my $timer = $self->{time} + $self->{start} - $timestamp;
		75
		76	# we round the timer value slightly... the protocol isn't exact anyways,
		77	# and this gives smoother timers ;)
		78	my @format = $self->{format}->(int ($timer + 0.4));
		79	$self->{widget}->set_text ($self->{format}->(int ($timer + 0.4)));
		80
		81	$timer - int $timer;
		82	}
		83
		84	sub set_time {
		85	my ($self, $time) = @_;
		86
		87	# we ignore requests to re-set the time of a running clock.
		88	# this is the easiest way to ensure that commentary etc.
		89	# doesn't re-set the clock. yes, this is frickle design,
		90	# but I think the protocol is to blame here, which gives
		91	# very little time information. (cgoban2 also has had quite
		92	# a lot of small time update problems...)
		93	unless ($self->{timeout}) {
		94	$self->{set}->($time->[0], $time->[1]);
		95	$self->refresh ($self->{start});
		96	}
		97	}
		98
		99	sub start {
		100	my ($self, $when) = @_;
		101
		102	$self->stop;
		103
		104	$self->{start} = $when;
		105
		106	my $timeout; $timeout = sub {
		107	my $next = $self->refresh (Time::HiRes::time) * 1000;
		108	$next += 1000 if $next < 0;
		109	$self->{timeout} = add Glib::Timeout $next, $timeout;
		110	0;
		111	};
		112
		113	$timeout->();
		114	}
		115
		116	sub stop {
		117	my ($self) = @_;
		118
		119	remove Glib::Source delete $self->{timeout} if $self->{timeout};
		120	}
		121
		122	sub destroy {
		123	my ($self) = @_;
		124	$self->stop;
		125	$self->SUPER::destroy;
		126	}
		127
		128	package game::userpanel;
		129
		130	use base gtk::widget;
		131
		132	sub new {
		133	my $class = shift;
		134	my $self = $class->SUPER::new(@_);
		135
		136	$self->{widget} = new Gtk2::HBox;
		137
		138	$self->{widget}->add (my $vbox = new Gtk2::VBox);
		139
		140	$vbox->add ($self->{name} = new Gtk2::Label $self->{name});
		141	$vbox->add ($self->{info} = new Gtk2::Label "");
		142	$vbox->add (($self->{clock} = new game::goclock)->widget);
		143
		144	$vbox->add ($self->{imagebox} = new Gtk2::VBox);
		145
		146	$self;
		147	}
		148
		149	sub configure {
		150	my ($self, $user, $rules) = @_;
		151
		152	if ($self->{name}->get_text ne $user->as_string) {
		153	$self->{name}->set_text ($user->as_string);
		154
		155	$self->{imagebox}->remove ($_) for $self->{imagebox}->get_children;
		156	$self->{imagebox}->add (gtk::image_from_data undef);
		157	$self->{imagebox}->show_all;
		158
		159	# the big picture...
		160	appwin::userpic ($user->{name}, sub {
		161	return unless $self->{imagebox};
		162	if ($_[0]) {
		163	$self->{imagebox}->remove ($_) for $self->{imagebox}->get_children;
		164	$self->{imagebox}->add (gtk::image_from_data $_[0]);
		165	$self->{imagebox}->show_all;
		166	}
		167	});
		168	}
		169
		170	$self->{clock}->configure (@{$rules}{qw(timesys time interval count)});
		171	}
		172
		173	sub set_state {
		174	my ($self, $captures, $timer, $when) = @_;
		175
		176	$self->{clock}->stop unless $when;
		177	$self->{clock}->set_time ($timer);
		178	$self->{clock}->start ($when) if $when;
		179
		180	$self->{info}->set_text ("$captures pris.");
		181	}
		182
1	package game;	183	package game;
2		184
3	use KGS::Constants;	185	use KGS::Constants;
4	use KGS::Game::Board;	186	use KGS::Game::Board;
5		187
20	my $title = $self->{channel} ? $self->owner->as_string." ".$self->opponent_string : "Game Window";	202	my $title = $self->{channel} ? $self->owner->as_string." ".$self->opponent_string : "Game Window";
21	$self->{window}->set_title("KGS Game $title");	203	$self->{window}->set_title("KGS Game $title");
22	gtk::state $self->{window}, "game::window", undef, window_size => [600, 500];	204	gtk::state $self->{window}, "game::window", undef, window_size => [600, 500];
23		205
24	$self->{window}->signal_connect(delete_event => sub {	206	$self->{window}->signal_connect(delete_event => sub {
25	if ($self->{joined}) {
26	$self->part;	207	$self->part;
27	} else {	208	$self->destroy;
28	$self->event_part;
29	}
30	1;	209	1;
31	});	210	});
32		211
33	$self->{window}->add($self->{hpane} = new Gtk2::HPaned);	212	$self->{window}->add($self->{hpane} = new Gtk2::HPaned);
34	gtk::state $self->{hpane}, "game::hpane", undef, position => 500;	213	gtk::state $self->{hpane}, "game::hpane", undef, position => 500;
35		214
		215	# LEFT PANE
		216
		217	$self->{hpane}->pack1(($self->{left} = new Gtk2::VBox), 1, 0);
		218
		219	$self->{boardbox} = new Gtk2::VBox;
		220
36	$self->{hpane}->pack1((my $vbox = new Gtk2::VBox), 1, 1);	221	$self->{hpane}->pack1((my $vbox = new Gtk2::VBox), 1, 1);
37		222
		223	# challenge
		224
		225	$self->{challenge} = new challenge channel => $self->{channel};
		226
		227	# board box (aspect/canvas)
		228
38	$vbox->pack_start((my $frame = new Gtk2::Frame), 0, 1, 0);	229	$self->{boardbox}->pack_start((my $frame = new Gtk2::Frame), 0, 1, 0);
39		230
40	{	231	{
41	# grrr...
42	$frame->add(my $vbox = new Gtk2::VBox);	232	$frame->add(my $vbox = new Gtk2::VBox);
43	$vbox->add($self->{title} = new Gtk2::Label $title);	233	$vbox->add($self->{title} = new Gtk2::Label $title);
44		234
45	$self->{moveadj} = new Gtk2::Adjustment 1, 0, 1, 0.001, 0.05, 0;	235	$self->{moveadj} = new Gtk2::Adjustment 0, 0, 0, 1, 1, 0;
46		236
47	$vbox->add(my $scale = new Gtk2::HScale $self->{moveadj});	237	$vbox->add(my $scale = new Gtk2::HScale $self->{moveadj});
48	$scale->set_draw_value (0);	238	$scale->set_draw_value (0);
		239	$scale->set_digits (0);
49		240
50	$self->{moveadj}->signal_connect (value_changed => sub {	241	$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		242	}
64	$vbox->pack_start(($self->{canvas} = new Gtk2::DrawingArea), 1, 1, 0);	243
		244	$self->{boardbox}->pack_start((my $aspect_frame = new Gtk2::AspectFrame "", 0.5, 0.5, 1, 0), 1, 1, 0);
		245	$aspect_frame->set (border_width => 0, shadow_type => 'none', label_xalign => 0.5);
		246	$self->{board_label} = $aspect_frame->get_label_widget;
		247
		248	$aspect_frame->add($self->{canvas} = new Gtk2::DrawingArea);
		249	$self->{canvas}->double_buffered (0) if $::config->{conserve_memory};
65		250
66	$self->{canvas}->signal_connect(configure_event => \&configure_event, $self);	251	$self->{canvas}->signal_connect(configure_event => \&configure_event, $self);
67	$self->{canvas}->signal_connect(expose_event => \&expose_event, $self);	252	$self->{canvas}->signal_connect(expose_event => \&expose_event, $self);
68		253
		254	# RIGHT PANE
		255
69	$self->{hpane}->pack2(($self->{vpane} = new Gtk2::VPaned), 0, 0);	256	$self->{hpane}->pack2(($self->{vpane} = new Gtk2::VPaned), 1, 1);
70	$self->{hpane}->set(position_set => 1);	257	$self->{hpane}->set(position_set => 1);
71	gtk::state $self->{vpane}, "game::vpane", $self->{name}, position => 80;	258	gtk::state $self->{vpane}, "game::vpane", $self->{name}, position => 80;
72		259
73	$self->{vpane}->add(my $sw = new Gtk2::ScrolledWindow);	260	$self->{vpane}->add(my $sw = new Gtk2::ScrolledWindow);
74	$sw->set_policy("automatic", "always");	261	$sw->set_policy("automatic", "always");
75		262
76	$sw->add(($self->{userlist} = new gtk::userlist)->widget);	263	$sw->add(($self->{userlist} = new userlist)->widget);
77		264
78	$self->{vpane}->add(my $vbox = new Gtk2::VBox);	265	$self->{vpane}->add(my $vbox = new Gtk2::VBox);
79		266
80	$vbox->pack_start((my $sw = new Gtk2::ScrolledWindow), 1, 1, 0);	267	$vbox->pack_start((my $hbox = new Gtk2::HBox 1), 0, 1, 0);
81	$sw->set_policy("never", "always");	268	$hbox->add (($self->{userpanel}[WHITE] = new game::userpanel colour => WHITE)->widget);
82		269	$hbox->add (($self->{userpanel}[BLACK] = new game::userpanel colour => BLACK)->widget);
		270
83	$sw->add(($self->{text} = new gtk::text)->widget);	271	$vbox->pack_start(($self->{text} = new gtk::text)->widget, 1, 1, 0);
84		272
85	$vbox->pack_start(($self->{entry} = new Gtk2::Entry), 0, 1, 0);	273	$vbox->pack_start(($self->{entry} = new Gtk2::Entry), 0, 1, 0);
86	$self->{entry}->signal_connect(activate => sub {	274	$self->{entry}->signal_connect(activate => sub {
87	my $text = $self->{entry}->get_text;	275	my $text = $self->{entry}->get_text;
88	$self->say($text) if $text =~ /\S/;	276	$self->say($text) if $text =~ /\S/;
89	$self->{entry}->set_text("");	277	$self->{entry}->set_text("");
90	});	278	});
91		279
		280	$self->event_update_game;
92	$self;	281	$self;
93	}	282	}
94		283
95	sub event_update_users {	284	sub event_update_users {
96	my ($self) = @_;	285	my ($self, $add, $update, $remove) = @_;
97		286
98	$self->{userlist}->update($self->{users});	287	$self->{userlist}->update ($add, $update, $remove);
99	}	288	}
100		289
101	sub join {	290	sub join {
102	my ($self) = @_;	291	my ($self) = @_;
		292	return if $self->{joined};
		293
103	$self->SUPER::join;	294	$self->SUPER::join;
104		295
105	$self->{window}->show_all;	296	$self->{window}->show_all;
106	}	297	}
107		298
108	sub part {	299	sub part {
109	my ($self) = @_;	300	my ($self) = @_;
		301
110	$self->SUPER::part;	302	$self->SUPER::part;
111		303	$self->destroy;
112	$self->{window}->hide;
113	}	304	}
114		305
115	sub configure_event {	306	sub configure_event {
116	my ($widget, $event, $self) = @_;	307	my ($widget, $event, $self) = @_;
117	delete $self->{stack};	308	delete $self->{stack};
…		…
126	my ($widget, $event, $self) = @_;	317	my ($widget, $event, $self) = @_;
127		318
128	$self->{pixbuf} or return;	319	$self->{pixbuf} or return;
129		320
130	my $area = $event->area;	321	my $area = $event->area;
131	my ($ox, $oy, $s) = @{$self->{offsets}};
132		322
133	$self->redraw (	323	$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		324
138	0;	325	0;
139	}	326	}
140		327
141	# something Gtk2 fixed	328	# something Gtk2 fixed
…		…
178	for my $stone ($mark & (MARK_W \| MARK_GRAY_W) ? @::white_img : @::black_img) {	365	for my $stone ($mark & (MARK_W \| MARK_GRAY_W) ? @::white_img : @::black_img) {
179	my $base = new_pixbuf $size + $shadow, $size + $shadow, 1, 0x00000000;	366	my $base = new_pixbuf $size + $shadow, $size + $shadow, 1, 0x00000000;
180		367
181	# zeroeth the shadow	368	# zeroeth the shadow
182	if ($mark & (MARK_B \| MARK_W)) {	369	if ($mark & (MARK_B \| MARK_W)) {
		370	# the -0.5's are a mystery to me
183	$::shadow_img->composite (	371	$::shadow_img->composite (
184	$base, $shadow, $shadow, $size, $size, $shadow - 0.5, $shadow - 0.5,	372	$base, $shadow, $shadow, $size, $size, $shadow - 0.5, $shadow - 0.5,
185	$size / $stone->get_width, $size / $stone->get_height,	373	$size / $::shadow_img->get_width, $size / $::shadow_img->get_height,
186	$::config->{speed} ? INTERP_NEAREST : INTERP_BILINEAR, 192	374	$::config->{speed} ? INTERP_NEAREST : INTERP_BILINEAR, 192
187	);	375	);
188	}	376	}
189		377
190	# first the big stones (handicap stones different for effect)	378	# first the big stones (handicap stones could be different)
191	for ([MARK_B, $mark & MARK_MOVE ? 255 : 192],	379	for ([MARK_B, $mark & MARK_MOVE ? 255 : 255],
192	[MARK_W, $mark & MARK_MOVE ? 255 : 192],	380	[MARK_W, $mark & MARK_MOVE ? 255 : 255],
193	[MARK_GRAY_B, 128],	381	[MARK_GRAY_B, 128],
194	[MARK_GRAY_W, 128]) {	382	[MARK_GRAY_W, 128]) {
195	my ($mask, $alpha) = @$_;	383	my ($mask, $alpha) = @$_;
196	if ($mark & $mask) {	384	if ($mark & $mask) {
197	$stone->composite (	385	$stone->composite (
…		…
206	for ([MARK_SMALL_B, $::black_img[$rand % @::black_img]],	394	for ([MARK_SMALL_B, $::black_img[$rand % @::black_img]],
207	[MARK_SMALL_W, $::white_img[$rand % @::white_img]]) {	395	[MARK_SMALL_W, $::white_img[$rand % @::white_img]]) {
208	my ($mask, $img) = @$_;	396	my ($mask, $img) = @$_;
209	if ($mark & $mask) {	397	if ($mark & $mask) {
210	$img->composite (	398	$img->composite (
211	$base, (ceil ($size / 4)) x2, (ceil ($size / 2)) x2, (ceil ($size / 4)) x2,	399	$base, (int ($size / 4)) x2, (ceil ($size / 2 + 1)) x2, ($size / 4) x2,
212	$size / $img->get_width / 2, $size / $img->get_height / 2,	400	$size / $img->get_width / 2, $size / $img->get_height / 2,
213	$::config->{speed} ? INTERP_NEAREST : INTERP_BILINEAR, 224	401	$::config->{speed} ? INTERP_NEAREST : INTERP_BILINEAR, 224
214	);	402	);
215	}	403	}
216	}	404	}
…		…
222	[MARK_TRIANGLE, $::triangle_img[$dark_bg]],	410	[MARK_TRIANGLE, $::triangle_img[$dark_bg]],
223	[MARK_SQUARE, $::square_img[$dark_bg]]) {	411	[MARK_SQUARE, $::square_img[$dark_bg]]) {
224	my ($mask, $img) = @$_;	412	my ($mask, $img) = @$_;
225	if ($mark & $mask) {	413	if ($mark & $mask) {
226	$img->composite (	414	$img->composite (
227	$base, 0, 0, $size, $size, -0.5, -0.5,	415	$base, 0, 0, $size, $size, 0, 0,
228	$size / $img->get_width, $size / $img->get_height,	416	$size / $img->get_width, $size / $img->get_height,
229	$::config->{speed} ? INTERP_NEAREST : INTERP_BILINEAR, 255	417	$::config->{speed} ? INTERP_NEAREST : INTERP_BILINEAR, 192
230	);	418	);
231	}	419	}
232	}	420	}
233		421
234	push @$$c, $base;	422	push @$$c, $base;
…		…
279	my $expose_area = undef;	467	my $expose_area = undef;
280		468
281	return $expose_area unless $self->{board};	469	return $expose_area unless $self->{board};
282		470
283	my ($w, $h) = ($canvas->allocation->values)[2,3];	471	my ($w, $h) = ($canvas->allocation->values)[2,3];
284
285	my $s = $w > $h ? $h : $w;
286		472
		473	die "FATAL: board aspect ratio != 1" unless $w == $h;
		474
		475	my $s = $w;
		476
287	return unless $s > 128;	477	return unless $s >= 200;
288		478
289	$self->{offsets} = [int (($w - $s) / 2), int (($h - $s) / 2), $s];
290
291	my $size = $self->{size};	479	my $size = $self->{size};
292		480
293	# we leave enough space for the shadows.. I like smaller stones, and we	481	# 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	482	# do no need to do the nifty recursive screen updates that goban2 does
295	my $border = int ($s / ($size + 3) * 0.5);	483	my $border = int ($s / ($size + 3) * 0.5);
…		…
320	$::board_img->copy_area (0, 0, $s, $s, $pixbuf, 0, 0);	508	$::board_img->copy_area (0, 0, $s, $s, $pixbuf, 0, 0);
321	} else {	509	} else {
322	$pixbuf = scale_pixbuf $::board_img, $s, $s, $::config->{speed} ? INTERP_NEAREST : INTERP_TILES;	510	$pixbuf = scale_pixbuf $::board_img, $s, $s, $::config->{speed} ? INTERP_NEAREST : INTERP_TILES;
323	}	511	}
324		512
325	my $linew = int ($s / 25 / $size);	513	my $linew = int ($s / 40 / $size);
326		514
327	# ornamental border... we have time to waste :/	515	# ornamental border... we have time to waste :/
328	pixbuf_rect $pixbuf, 0xffcc7700, 0, 0, $s-1, $linew, 255;	516	pixbuf_rect $pixbuf, 0xffcc7700, 0, 0, $s-1, $linew, 255;
329	pixbuf_rect $pixbuf, 0xffcc7700, 0, 0, $linew, $s-1, 255;	517	pixbuf_rect $pixbuf, 0xffcc7700, 0, 0, $linew, $s-1, 255;
330	pixbuf_rect $pixbuf,0xffcc7700, $s-$linew-1, 0, $s-1, $s-1, 255;	518	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;	519	pixbuf_rect $pixbuf, 0xffcc7700, 0, $s-$linew-1, $s-1, $s-1, 255;
332		520
333	for my $i (1 .. $size) {	521	for my $i (1 .. $size) {
334	pixbuf_rect $pixbuf, 0x44111100, $k[$i] - $linew, $k[1] - $linew, $k[$i] + $linew, $k[$size] + $linew, 192;	522	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;	523	pixbuf_rect $pixbuf, 0x44111100, $k[1] - $linew, $k[$i] - $linew, $k[$size] + $linew, $k[$i] + $linew, 192;
336		524
…		…
345		533
346	$a++;	534	$a++;
347	$a++ if $a eq "I"; # not correct, instead of AA AB, we should get HH JJ KK...	535	$a++ if $a eq "I"; # not correct, instead of AA AB, we should get HH JJ KK...
348	}	536	}
349		537
		538	# hoshi points
		539	my $hoshi = sub {
		540	my ($x, $y) = @_;
		541	my $hs = int ($edge / 4) \| 1;
		542	$x = $k[$x] - $hs / 2; $y = $k[$y] - $hs / 2;
		543
		544	# we use the shadow mask... not perfect, but I want to finish this
		545	$::shadow_img->composite ($pixbuf,
		546	$x, $y, $hs + 1, $hs + 1, $x, $y,
		547	$hs / $::shadow_img->get_width, $hs / $::shadow_img->get_height,
		548	$::config->{speed} ? INTERP_NEAREST : INTERP_BILINEAR, 255);
		549	};
		550
		551	my $h1 = $size < 10 ? 3 : 4; # corner / edge offset
		552	$hoshi->($h1, $h1);
		553	$hoshi->($size - $h1 + 1, $h1);
		554	$hoshi->($h1, $size - $h1 + 1);
		555	$hoshi->($size - $h1 + 1, $size - $h1 + 1);
		556
		557	if ($size % 2) { # on odd boards, also the remaining 5
		558	my $h2 = ($size + 1) / 2;
		559	if ($size > 10) {
		560	$hoshi->($h1, $h2);
		561	$hoshi->($size - $h1 + 1, $h2);
		562	$hoshi->($h2, $size - $h1 + 1);
		563	$hoshi->($h2, $h1);
		564	}
		565	# the tengen
		566	$hoshi->($h2, $h2);
		567	}
		568
350	unless ($::config->{conserve_memory}) {	569	unless ($::config->{conserve_memory} > 1) {
351	$self->{background} = $pixbuf;	570	$self->{background} = $pixbuf;
352	$pixbuf = $pixbuf->copy;	571	$pixbuf = $pixbuf->copy;
353	}	572	}
354	}	573	}
355		574
356	$self->{pixbuf} = $pixbuf;	575	$self->{pixbuf} = $pixbuf;
357
358	# hoshi-points(!)#d#
359	# caching of empty board gfx(!)#d#
360		576
361	for my $x (1 .. $size) {	577	for my $x (1 .. $size) {
362	for my $y (1 .. $size) {	578	for my $y (1 .. $size) {
363	my $rand = ($x ^ $y ^ 0x5555);	579	my $rand = ($x ^ $y ^ 0x5555);
364		580
…		…
401	}	617	}
402	pixbuf_text $pixbuf, $white,	618	pixbuf_text $pixbuf, $white,
403	$k[$x], $k[$y], $ofs * 0.7,	619	$k[$x], $k[$y], $ofs * 0.7,
404	$self->{board}{label}[$x-1][$y-1];	620	$self->{board}{label}[$x-1][$y-1];
405	}	621	}
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	}	622	}
414	}	623	}
415	}	624	}
416		625
417	$self->{board_shown} = Storable::dclone $self->{board};	626	$self->{board_shown} = Storable::dclone $self->{board};
…		…
424	sub redraw {	633	sub redraw {
425	my ($self, $area) = @_;	634	my ($self, $area) = @_;
426		635
427	if ($area && $self->{pixbuf}) {	636	if ($area && $self->{pixbuf}) {
428	my ($x, $y, $w, $h) = $area->values;	637	my ($x, $y, $w, $h) = $area->values;
429	my ($ox, $oy, $s) = @{$self->{offsets}};
430		638
431	$self->{canvas}->window->draw_pixbuf ($self->{canvas}->style->white_gc, $self->{pixbuf},	639	$self->{canvas}->window->draw_pixbuf ($self->{canvas}->style->white_gc, $self->{pixbuf},
432	$x, $y, $x + $ox, $y + $oy, $w, $h,	640	$x, $y, $x, $y, $w, $h,
433	"normal", 0, 0);	641	"normal", 0, 0);
434	$self->{canvas}->window->draw_rectangle ($self->{canvas}->style->black_gc, 0,	642	$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;	643	$x - 1, $y - 1, $w + 2, $h + 2) if $::DEBUG_EXPOSE;
436	}	644	}
		645	}
		646
		647	sub update_board {
		648	my ($self) = @_;
		649	return unless $self->{path};
		650
		651	my $move = int $self->{moveadj}->get_value;
		652
		653	warn "update_board called $move\n";#d#
		654
		655	my $running = $move == @{$self->{path}};
		656
		657	$self->{board_label}->set_text ("Move $move");
		658
		659	$self->{board} = new KGS::Game::Board $self->{size};
		660	$self->{board}->interpret_path ([@{$self->{path}}[0 .. $move - 1]]);
		661
		662	for my $colour (WHITE, BLACK) {
		663	$self->{userpanel}[$colour]->set_state (
		664	$self->{board}{captures}[$colour],
		665	$self->{board}{timer}[$colour],
		666	($running && $self->{lastmove_colour} == $colour)
		667	? $self->{lastmove_time} : 0
		668	);
		669	}
		670
		671	$self->redraw ($self->repaint_board);
437	}	672	}
438		673
439	sub event_update_tree {	674	sub event_update_tree {
440	my ($self) = @_;	675	my ($self) = @_;
441		676
442	$self->{path} = $self->get_path;	677	$self->{path} = $self->get_path;
443	$self->{moveadj}->value_changed if $self->{moveadj};	678
		679	if ($self->{moveadj}) {
		680	my $upper = $self->{moveadj}->upper;
		681	my $pos = $self->{moveadj}->get_value;
		682
		683	$self->{moveadj}->upper (scalar @{$self->{path}});
		684
		685	warn "UPDATE_TREE $pos,$upper";#d#
		686	$self->{moveadj}->changed;
		687	if ($pos == $upper) {
		688	$self->{moveadj}->set_value (scalar @{$self->{path}});
		689	} else {
		690	$self->update_board;
		691	}
		692	}
		693	}
		694
		695	sub event_update_comments {
		696	my ($self, $node, $comment, $newnode) = @_;
		697	$self->SUPER::event_update_comments($node, $comment, $newnode);
		698
		699	my $text;
		700
		701	$text .= "\n<header>Move <move>$node->{move}</move>, Node <node>$node->{id}</node></header>"
		702	if $newnode;
		703
		704	for (split /\n/, $comment) {
		705	$text .= "\n";
		706	if (s/^([0-9a-zA-Z]+ \[[0-9dkp\?\-]+\])://) {
		707	$text .= "<user>" . (util::toxml $1) . "</user>:";
		708	}
		709
		710	# coords only for 19x19 so far
		711	$_ = util::toxml $_;
		712	s{
		713	(
		714	\b
		715	(?:[bw])?
		716	[, ]{0,2}
		717	[a-hj-t] # valid for upto 19x19
		718	\s?
		719	[1-9]?[0-9]
		720	\b
		721	)
		722	}{
		723	"<coord>$1</coord>";
		724	}sgexi;
		725
		726	$text .= $_;
		727	}
		728
		729	$self->{text}->append_text ($text);
		730	}
		731
		732	sub event_join {
		733	my ($self) = @_;
		734	$self->SUPER::event_join;
444	}	735	}
445		736
446	sub event_part {	737	sub event_part {
447	my ($self) = @_;	738	my ($self) = @_;
448	$self->SUPER::event_part;	739	$self->SUPER::event_part;
449	delete $appwin::gamelist->{game}{$self->{channel}};
450	$self->destroy;
451	}	740	}
452		741
453	sub event_move {	742	sub event_move {
454	my ($self, $pass) = @_;	743	my ($self, $pass) = @_;
455	sound::play 1, $pass ? "pass" : "move";	744	sound::play 1, $pass ? "pass" : "move";
456	}	745	}
457		746
		747	sub event_update_game {
		748	my ($self) = @_;
		749	$self->SUPER::event_update_game;
		750
		751	$self->{user}[BLACK] = $self->{user1};
		752	$self->{user}[WHITE] = $self->{user2};
		753
		754	# show board
		755
		756	$self->{left}->remove ($_) for $self->{left}->get_children;
		757	if ($self->is_valid) {
		758	$self->{left}->add ($self->{boardbox});
		759	(delete $self->{challenge})->destroy if $self->{challenge};
		760	} else {
		761	$self->{left}->add ($self->{challenge}->widget);
		762	}
		763	$self->{left}->show_all;
		764
		765	# view text
		766
		767	$text = "\n<header>Game Update</header>";
		768
		769	$text .= "\nType: " . (util::toxml $gametype{$self->type})
		770	. " (" . (util::toxml $gameopt{$self->option}) . ")";
		771	$text .= "\nFlags:";
		772	$text .= " valid" if $self->is_valid;
		773	$text .= " adjourned" if $self->is_adjourned;
		774	$text .= " scored" if $self->is_scored;
		775	$text .= " saved" if $self->is_saved;
		776
		777	$text .= "\nWhite: <user>" . (util::toxml $self->{user2}->as_string) . "</user>";
		778	$text .= "\nBlack: <user>" . (util::toxml $self->{user1}->as_string) . "</user>";
		779	$text .= "\nOwner: <user>" . (util::toxml $self->{user3}->as_string) . "</user>" if $self->{user3}->is_valid;
		780
		781	if ($self->is_valid) {
		782	$text .= "\nHandicap: " . $self->{handicap};
		783	$text .= "\nKomi: " . $self->{komi};
		784	$text .= "\nSize: " . $self->size_string;
		785	}
		786
		787	$self->{text}->append_text ("<infoblock>$text</infoblock>");
		788	}
		789
		790	sub event_update_rules {
		791	my ($self, $rules) = @_;
		792
		793	$self->{userpanel}[$_]->configure ($self->{user}[$_], $rules)
		794	for BLACK, WHITE;
		795
		796	my $text = "\n<header>Game Rules</header>";
		797
		798	$text .= "\nRuleset: " . $ruleset{$rules->{ruleset}};
		799
		800	$text .= "\nTime: ";
		801
		802	if ($rules->{timesys} == TIMESYS_NONE) {
		803	$text .= "UNLIMITED";
		804	} elsif ($rules->{timesys} == TIMESYS_ABSOLUTE) {
		805	$text .= util::format_time $rules->{time};
		806	$text .= " ABS";
		807	} elsif ($rules->{timesys} == TIMESYS_BYO_YOMI) {
		808	$text .= util::format_time $rules->{time} - $rules->{interval} * $rules->{count};
		809	$text .= sprintf " + %s (%d) BY", util::format_time $rules->{interval}, $rules->{count};
		810	} elsif ($rules->{timesys} == TIMESYS_CANADIAN) {
		811	$text .= util::format_time $rules->{time};
		812	$text .= sprintf " + %s/%d CAN", util::format_time $rules->{interval}, $rules->{count};
		813	}
		814
		815	$self->{text}->append_text ("<infoblock>$text</infoblock>");
		816	}
		817
		818	sub inject_resign_game {
		819	my ($self, $msg) = @_;
		820
		821	$self->{text}->append_text ("\n<infoblock><header>Resign</header>"
		822	. "\n<user>"
		823	. (util::toxml $self->{user}[$msg->{player}]->as_string)
		824	. "</user> resigned.</infoblock>");
		825	}
		826
		827	sub inject_final_result {
		828	my ($self, $msg) = @_;
		829
		830	$self->{text}->append_text ("<infoblock>\n<header>Game Over</header>"
		831	. "\nWhite Score " . (util::toxml $msg->{whitescore}->as_string)
		832	. "\nBlack Score " . (util::toxml $msg->{blackscore}->as_string)
		833	. "</infoblock>"
		834	);
		835	}
		836
		837	sub destroy {
		838	my ($self) = @_;
		839	$self->{userpanel}[$_] && (delete $self->{userpanel}[$_])->destroy
		840	for BLACK, WHITE;
		841	$self->SUPER::destroy;
		842	delete $appwin::gamelist->{game}{$self->{channel}};
		843	}
		844
458	1;	845	1;
459		846

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.46 by pcg, Thu Jun 5 06:01:01 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.46 by pcg, Thu Jun 5 06:01:01 2003 UTC