[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/bin/pclient

Comparing deliantra/Deliantra-Client/bin/pclient (file contents):
Revision 1.50 by root, Sun Apr 9 21:05:50 2006 UTC vs.
Revision 1.83 by root, Wed Apr 12 15:35:55 2006 UTC

…		…
12	use SDL::Surface;	12	use SDL::Surface;
13	use SDL::OpenGL;	13	use SDL::OpenGL;
14	use SDL::OpenGL::Constants;	14	use SDL::OpenGL::Constants;
15		15
16	use Crossfire;	16	use Crossfire;
17	use Crossfire::Client;
18	use Crossfire::Protocol;	17	use Crossfire::Protocol;
19		18
20	use Crossfire::Client::Widget;	19	use CFClient;
		20	use CFClient::UI;
		21
		22	our $VERSION = '0.1';
		23
		24	my $MAX_FPS = 60;
		25	my $TICKS_PER_FRAME = int 1000 / $MAX_FPS - 1; # min ticks per frame
21		26
22	our $FACECACHE;	27	our $FACECACHE;
23
24	our $VERSION = '0.1';
25
26	our %GL_EXT;
27		28
28	our $CFG;	29	our $CFG;
29	our $CONN;	30	our $CONN;
		31	our $FAST; # fast, low-quality mode
30		32
		33	our @SDL_MODES;
31	our $WIDTH;	34	our $WIDTH;
32	our $HEIGHT;	35	our $HEIGHT;
33	our $FULLSCREEN;	36	our $FULLSCREEN;
34		37
		38	our $NOW;
		39
		40	our $MAPWIDGET;
35	our $FONTSIZE;	41	our $FONTSIZE;
36		42
37	our $SDL_TIMER;	43	our $SDL_TIMER;
38	our $SDL_APP;	44	our $SDL_APP;
39	our $SDL_EV = new SDL::Event;	45	our $SDL_EV;
40	our %SDL_CB;	46	our %SDL_CB;
41		47
42	our @GL_INIT; # hooks called on every gl init
43
44	our $ALT_ENTER_MESSAGE;	48	our $ALT_ENTER_MESSAGE;
45		49	our $STATUS_LINE;
46	our $TOPLEVEL;	50	our $DEBUG_STATUS;
47
48	our $tw; # Test widget #d#
49		51
50	my $last_refresh;	52	my $last_refresh;
51	my %ANIMATE;	53	my %ANIMATE;
52	my $refresh_handler;	54	my $refresh_handler;
		55
		56	sub status {
		57	$STATUS_LINE->set_text ($_[0]);
		58	my ($w, $h) = $STATUS_LINE->size_request;
		59	$STATUS_LINE->size_allocate (0, $HEIGHT - $ALT_ENTER_MESSAGE->{h} - $h, $w, $h);
		60	}
		61
		62	sub debug {
		63	$DEBUG_STATUS->set_text ($_[0]);
		64	my ($w, $h) = $DEBUG_STATUS->size_request;
		65	$DEBUG_STATUS->size_allocate ($WIDTH - $w, 0, $w, $h);
		66	}
		67
		68	sub config_dialog {
		69	my $dialog = new CFClient::UI::FancyFrame x => 300, y => 100,
		70	child => (my $vbox = new CFClient::UI::VBox);
		71	$vbox->add (new CFClient::UI::Label align => 0, text => "Client Setup");
		72	$vbox->add (my $table = new CFClient::UI::Table expand => 1, col_expand => [0, 1]);
		73
		74	$table->add (0, 0, new CFClient::UI::Label align => 1, text => "Video Mode");
		75	$table->add (1, 0, my $hbox = new CFClient::UI::HBox);
		76
		77	$hbox->add (my $mode_slider = new CFClient::UI::Slider expand => 1, req_w => 100, range => [$CFG->{sdl_mode}, 0, scalar @SDL_MODES, 1]);
		78	$hbox->add (my $mode_label = new CFClient::UI::Label height => $FONTSIZE * 0.8);
		79
		80	$mode_slider->connect (changed => sub {
		81	my ($self, $value) = @_;
		82
		83	$CFG->{sdl_mode} = $self->{range}[0] = $value = int $value;
		84	$mode_label->set_text (sprintf "%dx%d", @{$SDL_MODES[$value]});
		85	});
		86	$mode_slider->emit (changed => $mode_slider->{range}[0]);
		87
		88	$table->add (1, 1, new CFClient::UI::Button expand => 1, align => 0, text => "Apply", connect_activate => sub {
		89	destroy_screen ();
		90	($WIDTH, $HEIGHT) = @{ $SDL_MODES[$CFG->{sdl_mode}] };
		91	$FULLSCREEN = $CFG->{fullscreen};
		92	init_screen ();
		93	});
		94
		95	$vbox->add (new CFClient::UI::Label align => 0, text => "Server");
		96	$vbox->add (my $table = new CFClient::UI::Table expand => 1, col_expand => [0, 1]);
		97	$table->add (0, 2, new CFClient::UI::Label align => 1, text => "Host");
		98	$table->add (1, 2, my $host = new CFClient::UI::Entry text => $CFG->{host});
		99
		100	$table->add (0, 3, new CFClient::UI::Label align => 1, text => "Port");
		101	$table->add (1, 3, my $port = new CFClient::UI::Entry text => $CFG->{port});
		102
		103	$table->add (0, 4, new CFClient::UI::Label align => 1, text => "Username");
		104	$table->add (1, 4, my $user = new CFClient::UI::Entry text => $CFG->{user});
		105
		106	$table->add (0, 5, new CFClient::UI::Label align => 1, text => "Password");
		107	$table->add (1, 5, my $pass = new CFClient::UI::Entry text => $CFG->{password}, hidden => 1);
		108
		109	$table->add (0, 6, new CFClient::UI::Label align => 1, text => "Map Size");
		110	$table->add (1, 6, new CFClient::UI::Slider
		111	req_w => 100,
		112	range => [$CFG->{mapsize}, 10, 100 + 1, 1],
		113	connect_changed => sub {
		114	my ($self, $value) = @_;
		115
		116	$CFG->{mapsize} = $self->{range}[0] = $value = int $value;
		117	},
		118	);
		119
		120	$table->add (1, 7, new CFClient::UI::Button expand => 1, align => 0, text => "Login", connect_activate => sub {
		121	warn "login\n";
		122	});
		123
		124	$vbox->add (my $hbox = new CFClient::UI::HBox);
		125
		126	$hbox->add (new CFClient::UI::Button expand => 1, align => 0, text => "Save", connect_activate => sub {
		127	CFClient::write_cfg "$CFrossfire::VARDIR/pclientrc";
		128	status "Configuration Saved";
		129	});
		130	$CFClient::UI::TOPLEVEL->add ($dialog);
		131	}
53		132
54	sub init_screen {	133	sub init_screen {
55	$SDL_APP = new SDL::App	134	$SDL_APP = new SDL::App
56	-flags => SDL_ANYFORMAT \| SDL_HWSURFACE,	135	-flags => SDL_ANYFORMAT \| SDL_HWSURFACE,
57	-title => "Crossfire+ Client",	136	-title => "Crossfire+ Client",
58	-width => $WIDTH,	137	-width => $WIDTH,
59	-height => $HEIGHT,	138	-height => $HEIGHT,
60	-opengl => 1,	139	-opengl => 1,
61	-red_size => 8,	140	-red_size => 5,
62	-green_size => 8,	141	-green_size => 5,
63	-blue_size => 8,	142	-blue_size => 5,
		143	-alpha_size => 0,
64	-double_buffer => 1,	144	-double_buffer => 1,
65	-fullscreen => $FULLSCREEN,	145	-fullscreen => $FULLSCREEN,
66	-resizeable => 0;	146	-resizeable => 0;
67		147
68	$last_refresh = SDL::GetTicks;	148	$SDL_EV = new SDL::Event;
		149	$SDL_EV->set_unicode (1);
69		150
70	%GL_EXT = map +($_ => 1), split /\s+/, Crossfire::Client::gl_extensions;
71
72	$GL_EXT{GL_ARB_texture_non_power_of_two}
73	or warn "WARNING: non-power-of-two opengl extension required";
74
75	$FONTSIZE = int $HEIGHT / 50;
76
77	$ALT_ENTER_MESSAGE = new Crossfire::Client::Widget::Label
78	0, $FONTSIZE, $HEIGHT - $FONTSIZE, $FONTSIZE,
79	"Use <b>Alt-Enter</b> to toggle fullscreen mode";
80	$ALT_ENTER_MESSAGE->move (0, $HEIGHT - ($ALT_ENTER_MESSAGE->size_request)[1]);
81	$TOPLEVEL->add ($ALT_ENTER_MESSAGE);
82
83	# Test code #d#
84	unless ($tw) { # haha...
85	$tw = new Crossfire::Client::Widget::Animator;
86	my $lbl1 = new Crossfire::Client::Widget::Label
87	0, 0, 10, $FONTSIZE, "<i>This</i> is a\n<u>TEST</u>!\nOf a themed\nFrame!";
88	my $lbl2 = new Crossfire::Client::Widget::Label
89	0, 0, 10, $FONTSIZE, "LBL2";
90
91	my $vb = new Crossfire::Client::Widget::VBox;
92	my $f = new Crossfire::Client::Widget::FancyFrame;
93	my $f2 = new Crossfire::Client::Widget::FancyFrame;
94	$f->add ($lbl1);
95	$f2->add ($lbl2);
96	$vb->add ($f);
97	$vb->add ($f2, 1);
98
99	$tw->add ($vb);
100	$tw->w (400);
101	$tw->h (300);
102	$tw->move ($WIDTH - 200, 0);
103	$tw->moveto (0, 0);
104	$TOPLEVEL->add ($tw);
105
106	# $f->move ($WIDTH - 200, 0);
107	# $TOPLEVEL->add ($f);
108	}
109
110	glClearColor 0, 0, 0, 0;
111
112	glEnable GL_TEXTURE_2D;
113	glEnable GL_COLOR_MATERIAL;
114	glShadeModel GL_FLAT;
115	glDisable GL_DEPTH_TEST;
116	glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA;
117
118	$_->() for @GL_INIT;
119	}
120
121	sub start_game {
122	$SDL_TIMER = add Glib::Timeout 1000/50, sub {	151	$SDL_TIMER = add Glib::Timeout 1000 / $MAX_FPS, sub {
123	($SDL_CB{$SDL_EV->type} \|\| sub { warn "unhandled event ", $SDL_EV->type })->()	152	($SDL_CB{$SDL_EV->type} \|\| sub { warn "unhandled event ", $SDL_EV->type })->()
124	while $SDL_EV->poll;	153	while $SDL_EV->poll;
125		154
126	1	155	1
127	};	156	};
128		157
		158	$last_refresh = SDL::GetTicks;
		159
		160	CFClient::gl_init;
		161
		162	$FONTSIZE = int $HEIGHT / 40;
		163
		164	#############################################################################
		165
		166	$DEBUG_STATUS = new CFClient::UI::Label padding => 0;
		167	$CFClient::UI::TOPLEVEL->add ($DEBUG_STATUS);
		168
		169	$STATUS_LINE = new CFClient::UI::Label
		170	padding => 0,
		171	y => $HEIGHT * 49 / 50 - $FONTSIZE;
		172	$CFClient::UI::TOPLEVEL->add ($STATUS_LINE);
		173
		174	$ALT_ENTER_MESSAGE = new CFClient::UI::Label
		175	padding => 0,
		176	y => $HEIGHT * 49 / 50,
		177	height => $HEIGHT / 50,
		178	text => "Use <b>Alt-Enter</b> to toggle fullscreen mode";
		179	$CFClient::UI::TOPLEVEL->add ($ALT_ENTER_MESSAGE);
		180
		181	$MAPWIDGET = new CFClient::UI::MapWidget;
		182	$CFClient::UI::TOPLEVEL->add ($MAPWIDGET);
		183	$MAPWIDGET->focus_in;
		184
		185	config_dialog;
		186	}
		187
		188	sub destroy_screen {
		189	$CFClient::UI::TOPLEVEL->{children} = [];
		190	remove Glib::Source $SDL_TIMER;
		191	undef $SDL_APP;
		192	undef $SDL_EV;
		193	SDL::Quit;
		194	}
		195
		196	sub start_game {
129	$WIDTH = $CFG->{width};	197	$WIDTH = $CFG->{width};
130	$HEIGHT = $CFG->{height};	198	$HEIGHT = $CFG->{height};
131	$FULLSCREEN = 0;	199	$FULLSCREEN = 0;
132		200
133	init_screen;	201	init_screen;
134		202
135	my $mapsize = List::Util::min 64, List::Util::max 11, int $HEIGHT * $CFG->{mapsize} * 0.01 / 32;	203	my $mapsize = List::Util::min 64, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / 32;
136		204
137	$CONN = new conn	205	$CONN = new conn
138	host => $CFG->{host},	206	host => $CFG->{host},
139	port => $CFG->{port},	207	port => $CFG->{port},
140	user => $CFG->{user},	208	user => $CFG->{user},
141	pass => $CFG->{password},	209	pass => $CFG->{password},
142	mapw => $mapsize,	210	mapw => $mapsize,
143	maph => $mapsize,	211	maph => $mapsize,
144	;	212	;
145		213
146	Crossfire::Client::lowdelay fileno $CONN->{fh};	214	CFClient::lowdelay fileno $CONN->{fh};
147	}	215	}
148		216
149	sub stop_game {	217	sub stop_game {
150	remove Glib::Source $SDL_TIMER;
151	remove Glib::Source $refresh_handler;	218	remove Glib::Source $refresh_handler if $refresh_handler;
152	undef $refresh_handler;	219	undef $refresh_handler;
153		220
154	undef $SDL_APP;
155	undef $CONN;	221	undef $CONN;
156	SDL::Quit;	222	destroy_screen;
157	}	223	}
158
159		224
160	sub force_refresh {	225	sub force_refresh {
161	glViewport 0, 0, $WIDTH, $HEIGHT;	226	glViewport 0, 0, $WIDTH, $HEIGHT;
162		227
163	glMatrixMode GL_PROJECTION;	228	glMatrixMode GL_PROJECTION;
164	glLoadIdentity;	229	glLoadIdentity;
165	glOrtho 0, $WIDTH, $HEIGHT, 0, -6000 , 6000;	230	glOrtho 0, $WIDTH, $HEIGHT, 0, -10000 , 10000;
166	glMatrixMode GL_MODELVIEW;	231	glMatrixMode GL_MODELVIEW;
		232	glLoadIdentity;
167		233
168	glClear GL_COLOR_BUFFER_BIT;	234	glClear GL_COLOR_BUFFER_BIT;
169		235
170	$TOPLEVEL->draw;	236	$CFClient::UI::TOPLEVEL->draw;
171		237
172	SDL::GLSwapBuffers;	238	SDL::GLSwapBuffers;
173	}	239	}
		240
		241	my $FPS;
174		242
175	sub refresh {	243	sub refresh {
176	$refresh_handler \|\|= add Glib::Idle sub {	244	$refresh_handler \|\|= add Glib::Idle sub {
177	return unless $SDL_APP;	245	if ($SDL_APP) {
		246	$NOW = SDL::GetTicks;
178		247
179	my $next_refresh = SDL::GetTicks;	248	if ($NOW - $last_refresh < $TICKS_PER_FRAME) {
		249	SDL::Delay $TICKS_PER_FRAME - ($NOW - $last_refresh);
		250	$NOW = SDL::GetTicks;
		251	}
		252
180	my $interval = ($next_refresh - $last_refresh) * 0.001;	253	my $interval = ($NOW - $last_refresh) * 0.001;
181	$last_refresh = $next_refresh;	254	$last_refresh = $NOW;
182		255
		256	if ($interval) {
		257	$FPS \|\|= 1 / $interval;
		258	$FPS = $FPS * 0.9 + (1 / $interval) * 0.1;
		259	debug sprintf "%5.02f", $FPS;
		260	}
		261
183	force_refresh;	262	force_refresh;
184	$_->animate ($interval) for grep $_, values %ANIMATE;	263	$_->animate ($interval) for grep $_, values %ANIMATE;
185		264
186	if (%ANIMATE) {	265	if (%ANIMATE) {
		266	1
		267	} else {
		268	undef $refresh_handler;
		269	0
187	1	270	}
188	} else {	271	} else {
189	undef $refresh_handler;	272	undef $refresh_handler;
190	0	273	0
191	}	274	}
192	};	275	};
…		…
216	},	299	},
217	SDL_KEYDOWN() => sub {	300	SDL_KEYDOWN() => sub {
218	if ($SDL_EV->key_mod & KMOD_ALT && $SDL_EV->key_sym == SDLK_RETURN) {	301	if ($SDL_EV->key_mod & KMOD_ALT && $SDL_EV->key_sym == SDLK_RETURN) {
219	# alt-enter	302	# alt-enter
220	$FULLSCREEN = !$FULLSCREEN;	303	$FULLSCREEN = !$FULLSCREEN;
		304	destroy_screen;
221	init_screen;	305	init_screen;
222	} else {	306	} else {
223	Crossfire::Client::Widget::feed_sdl_key_down_event ($SDL_EV);	307	CFClient::UI::feed_sdl_key_down_event ($SDL_EV);
224	}	308	}
225	},	309	},
226	SDL_KEYUP() => sub {	310	SDL_KEYUP() => sub {
227	Crossfire::Client::Widget::feed_sdl_key_up_event ($SDL_EV);	311	CFClient::UI::feed_sdl_key_up_event ($SDL_EV);
228	},	312	},
229	SDL_MOUSEMOTION() => sub {	313	SDL_MOUSEMOTION() => sub {
230	warn "sdl motion\n";#d#	314	CFClient::UI::feed_sdl_motion_event ($SDL_EV);
231	},	315	},
232	SDL_MOUSEBUTTONDOWN() => sub {	316	SDL_MOUSEBUTTONDOWN() => sub {
233	Crossfire::Client::Widget::feed_sdl_button_down_event ($SDL_EV);	317	CFClient::UI::feed_sdl_button_down_event ($SDL_EV);
234	},	318	},
235	SDL_MOUSEBUTTONUP() => sub {	319	SDL_MOUSEBUTTONUP() => sub {
236	Crossfire::Client::Widget::feed_sdl_button_up_event ($SDL_EV);	320	CFClient::UI::feed_sdl_button_up_event ($SDL_EV);
237	},	321	},
238	SDL_ACTIVEEVENT() => sub {	322	SDL_ACTIVEEVENT() => sub {
239	warn "active\n";#d#	323	# printf "active %x %x\n", $SDL_EV->active_gain, $SDL_EV->active_state;#d#
240	},	324	},
241	);	325	);
242		326
243	@conn::ISA = Crossfire::Protocol::;	327	@conn::ISA = Crossfire::Protocol::;
244		328
245	sub conn::map_update {	329	sub conn::map_update {
246	my ($self, $dirty) = @_;	330	my ($self, $dirty) = @_;
247		331
248	refresh;	332	$MAPWIDGET->update;
249	}	333	}
250		334
251	sub conn::map_scroll {	335	sub conn::map_scroll {
252	my ($self, $dx, $dy) = @_;	336	my ($self, $dx, $dy) = @_;
253		337
…		…
269	sub conn::face_update {	353	sub conn::face_update {
270	my ($self, $face) = @_;	354	my ($self, $face) = @_;
271		355
272	$FACECACHE->{"$face->{chksum},$face->{name}"} = $face->{image};	356	$FACECACHE->{"$face->{chksum},$face->{name}"} = $face->{image};
273		357
274	$face->{texture} = new_from_image Crossfire::Client::Texture delete $face->{image};	358	$face->{texture} = new_from_image CFClient::Texture delete $face->{image};
275	}	359	}
276		360
277	sub conn::query {	361	sub conn::query {
278	my ($self, $flags, $prompt) = @_;	362	my ($self, $flags, $prompt) = @_;
279		363
…		…
315	[qw/Password password/],	399	[qw/Password password/],
316	);	400	);
317		401
318	my $cfg = {};	402	my $cfg = {};
319		403
320	my $a = SDL::ListModes (0, SDL_FULLSCREEN\|SDL_HWSURFACE);
321	my @modes = map { [SDL::RectW ($_), SDL::RectH ($_)] } @$a;
322
323	$w->add (my $vb = Gtk2::VBox->new);	404	$w->add (my $vb = Gtk2::VBox->new);
324	$vb->pack_start (my $t = Gtk2::Table->new (2, scalar @cfg), 0, 0, 0);	405	$vb->pack_start (my $t = Gtk2::Table->new (2, scalar @cfg), 0, 0, 0);
325	my $selmode = $::CFG->{width} . 'x' . $::CFG->{height};	406	my $selmode = $::CFG->{width} . 'x' . $::CFG->{height};
326	$t->attach_defaults (Gtk2::Label->new ("Modes"), 0, 1, 0, 1);	407	$t->attach_defaults (Gtk2::Label->new ("Modes"), 0, 1, 0, 1);
327	$t->attach_defaults (my $cb = Gtk2::ComboBox->new_text, 1, 2, 0, 1);	408	$t->attach_defaults (my $cb = Gtk2::ComboBox->new_text, 1, 2, 0, 1);
328	my $i = 0;	409	my $i = 0;
329	my $act = 0;	410	my $act = 0;
330	for (map { "$_->[0]x$_->[1]" } reverse @modes) {	411	for (map { "$_->[0]x$_->[1]" } @SDL_MODES) {
331	if ($_ eq $selmode) { $act = $i }	412	if ($_ eq $selmode) { $act = $i }
332	$cb->append_text ($_);	413	$cb->append_text ($_);
333	$i++;	414	$i++;
334	}	415	}
335	$cb->set_active ($act);	416	$cb->set_active ($act);
…		…
352	$cb->signal_connect (clicked => sub {	433	$cb->signal_connect (clicked => sub {
353	for (keys %$cfg) {	434	for (keys %$cfg) {
354	$::CFG->{$_} = $cfg->{$_}	435	$::CFG->{$_} = $cfg->{$_}
355	if $_ ne '_i';	436	if $_ ne '_i';
356	}	437	}
357	Crossfire::Client::write_cfg "$Crossfire::VARDIR/pclientrc";	438	CFClient::write_cfg "$CFrossfire::VARDIR/pclientrc";
358	});	439	});
359	$hb->pack_start (my $cb = Gtk2::Button->new ("login"), 1, 1, 5);	440	$hb->pack_start (my $cb = Gtk2::Button->new ("login"), 1, 1, 5);
360	$cb->signal_connect (clicked => sub {	441	$cb->signal_connect (clicked => sub {
361	for (keys %$cfg) {	442	for (keys %$cfg) {
362	$::CFG->{$_} = $cfg->{$_}	443	$::CFG->{$_} = $cfg->{$_}
…		…
381		462
382	#############################################################################	463	#############################################################################
383		464
384	SDL::Init SDL_INIT_EVERYTHING;	465	SDL::Init SDL_INIT_EVERYTHING;
385		466
386	$TOPLEVEL = Crossfire::Client::Widget::Toplevel->new;	467	@SDL_MODES = reverse map [SDL::RectW ($_), SDL::RectH ($_)],
		468	@{ SDL::ListModes 0, SDL_FULLSCREEN\|SDL_HWSURFACE };
387		469
388	my $mapwidget = Crossfire::Client::Widget::MapWidget->new;
389
390	$TOPLEVEL->add ($mapwidget);
391	$mapwidget->focus_in;
392
393	Crossfire::Client::read_cfg "$Crossfire::VARDIR/pclientrc";	470	CFClient::read_cfg "$Crossfire::VARDIR/pclientrc";
394		471
395	$CFG \|\|= {	472	$CFG \|\|= {
396	width => 640,	473	width => 640,
397	height => 480,	474	height => 480,
		475	fullscreen => 0,
		476	sdl_mode => 0,
398	mapsize => 100,	477	mapsize => 100,
399	fullscreen => 0,
400	host => "crossfire.schmorp.de",	478	host => "crossfire.schmorp.de",
401	port => 13327,	479	port => 13327,
402	};	480	};
403		481
404	Crossfire::Client::set_font Crossfire::Client::find_rcfile "uifont.ttf";	482	{
		483	my @fonts = map CFClient::find_rcfile $_, qw(uifont.ttf uifontb.ttf uifonti.ttf uifontbi.ttf);
		484
		485	CFClient::add_font $_ for @fonts;
		486	CFClient::set_font $fonts[0];
		487	}
405		488
406	$FACECACHE = eval { Crossfire::load_ref "$Crossfire::VARDIR/pclient.faces" } \|\| {};	489	$FACECACHE = eval { Crossfire::load_ref "$Crossfire::VARDIR/pclient.faces" } \|\| {};
407		490
408	run_config_dialog	491	run_config_dialog
409	login => sub { start_game },	492	login => sub { start_game },
410	logout => sub { stop_game };	493	logout => sub { stop_game };
411		494
412	main Gtk2;	495	main Gtk2;
413		496
414	Crossfire::save_ref $FACECACHE, "$Crossfire::VARDIR/pclient.faces";	497	Crossfire::save_ref $FACECACHE, "$Crossfire::VARDIR/pclient.faces";
		498

Diff Legend

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

Comparing deliantra/Deliantra-Client/bin/pclient (file contents): Revision 1.50 by root, Sun Apr 9 21:05:50 2006 UTC vs. Revision 1.83 by root, Wed Apr 12 15:35:55 2006 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/bin/pclient (file contents):
Revision 1.50 by root, Sun Apr 9 21:05:50 2006 UTC vs.
Revision 1.83 by root, Wed Apr 12 15:35:55 2006 UTC