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

Comparing deliantra/Deliantra-Client/bin/pclient (file contents):
Revision 1.167 by root, Sun Apr 23 05:33:24 2006 UTC vs.
Revision 1.181 by root, Tue Apr 25 10:39:45 2006 UTC

…		…
1	#!/opt/bin/perl	1	#!/opt/bin/perl
2		2
3	use strict;	3	use strict;
4	use utf8;	4	use utf8;
		5
		6	BEGIN {
		7	if (%PAR::LibCache) {
		8	@INC = grep ref, @INC; # weed out all paths except pars loader refs
		9
		10	while (my ($filename, $zip) = each %PAR::LibCache) {
		11	for ($zip->memberNames) {
		12	next unless /^\/root\/(.*)/;
		13	$zip->extractMember ($_, "$ENV{PAR_TEMP}/$1")
		14	unless -e "$ENV{PAR_TEMP}/$1";
		15	}
		16	}
		17
		18	unshift @INC, $ENV{PAR_TEMP};
		19
		20	if ($^O eq "MSWin32") {
		21	$ENV{GTK_RC_FILES} = "$ENV{PAR_TEMP}/share/themes/MS-Windows/gtk-2.0/gtkrc";
		22	}
		23	}
		24	}
		25
		26	# need to do it again because that pile of garbage called PAR nukes it before main
		27	unshift @INC, $ENV{PAR_TEMP};
5		28
6	use Time::HiRes 'time';	29	use Time::HiRes 'time';
7	use Event;	30	use Event;
8		31
9	use Crossfire;	32	use Crossfire;
12	use Compress::LZF;	35	use Compress::LZF;
13		36
14	use CFClient;	37	use CFClient;
15	use CFClient::UI;	38	use CFClient::UI;
16	use CFClient::MapWidget;	39	use CFClient::MapWidget;
		40
		41	$Event::DIED = sub {
		42	CFClient::error $_[1];
		43	};
		44
		45	#$SIG{__WARN__} = sub { Carp::cluck $_[0] };#d#
17		46
18	our $VERSION = '0.1';	47	our $VERSION = '0.1';
19		48
20	my $MAX_FPS = 60;	49	my $MAX_FPS = 60;
21	my $MIN_FPS = 5; # unused as of yet	50	my $MIN_FPS = 5; # unused as of yet
…		…
36	our @SDL_MODES;	65	our @SDL_MODES;
37	our $WIDTH;	66	our $WIDTH;
38	our $HEIGHT;	67	our $HEIGHT;
39	our $FULLSCREEN;	68	our $FULLSCREEN;
40	our $FONTSIZE;	69	our $FONTSIZE;
		70
		71	our $FONT_PROP;
		72	our $FONT_FIXED;
41		73
42	our $MAP;	74	our $MAP;
43	our $MAPWIDGET;	75	our $MAPWIDGET;
44	our $BUTTONBAR;	76	our $BUTTONBAR;
45	our $LOGVIEW;	77	our $LOGVIEW;
46	our $CONSOLE;	78	our $CONSOLE;
47	our $METASERVER;	79	our $METASERVER;
48		80
		81	our $FLOORBOX;
49	our $GAUGES;	82	our $GAUGES;
50	our $STATWIDS;	83	our $STATWIDS;
51		84
52	our $SDL_ACTIVE;	85	our $SDL_ACTIVE;
53	our %SDL_CB;	86	our %SDL_CB;
…		…
139	my ($self, $value) = @_;	172	my ($self, $value) = @_;
140	$CFG->{fast} = $value;	173	$CFG->{fast} = $value;
141	}	174	}
142	);	175	);
143		176
		177	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Map Scale");
		178	$table->add (1, $row++, new CFClient::UI::Slider
		179	range => [$CFG->{map_scale}, 0.25, 2, 0.05],
		180	tooltip => "Enlarge or shrink the displayed map",
		181	connect_changed => sub {
		182	my ($self, $value) = @_;
		183	$CFG->{map_scale} = 0.05 * int $value / 0.05;
		184	}
		185	);
		186
144	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fog of War");	187	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fog of War");
145	$table->add (1, $row++, new CFClient::UI::CheckBox	188	$table->add (1, $row++, new CFClient::UI::CheckBox
146	state => $CFG->{fow_enable},	189	state => $CFG->{fow_enable},
147	tooltip => "Fog-of-War marks areas that cannot be seen by the player",	190	tooltip => "Fog-of-War marks areas that cannot be seen by the player",
148	connect_changed => sub {	191	connect_changed => sub {
…		…
219	range => [$CFG->{gauge_fontsize}, 0.5, 2.0, 0.1],	262	range => [$CFG->{gauge_fontsize}, 0.5, 2.0, 0.1],
220	tooltip => "Adjusts the fontsize of the gauges at the bottom right",	263	tooltip => "Adjusts the fontsize of the gauges at the bottom right",
221	connect_changed => sub {	264	connect_changed => sub {
222	$CFG->{gauge_fontsize} = 0.1 * int $_[1] * 10;	265	$CFG->{gauge_fontsize} = 0.1 * int $_[1] * 10;
223	&set_gauge_window_fontsize;	266	&set_gauge_window_fontsize;
224	#$GAUGES->{win}->check_size;
225	#$GAUGES->{win}->update;
226	}	267	}
227	);	268	);
228		269
229	$table->add (1, $row++, new CFClient::UI::Button	270	$table->add (1, $row++, new CFClient::UI::Button
230	expand => 1, align => 0, text => "Apply",	271	expand => 1, align => 0, text => "Apply",
231	tooltip => "Apply the video settings (unless they are auto-apply)",	272	tooltip => "Apply the video settings",
232	connect_activate => sub {	273	connect_activate => sub {
233	video_shutdown ();	274	video_shutdown ();
234	video_init ();	275	video_init ();
235	}	276	}
236	);	277	);
…		…
265	}	306	}
266	);	307	);
267		308
268	$table->add (1, $row++, new CFClient::UI::Button	309	$table->add (1, $row++, new CFClient::UI::Button
269	expand => 1, align => 0, text => "Apply",	310	expand => 1, align => 0, text => "Apply",
270	tooltip => "Apply the audio settings that are not auto-apply",	311	tooltip => "Apply the audio settings",
271	connect_activate => sub {	312	connect_activate => sub {
272	audio_shutdown ();	313	audio_shutdown ();
273	audio_init ();	314	audio_init ();
274	}	315	}
275	);	316	);
…		…
285		326
286	sub set_gauge_window_fontsize {	327	sub set_gauge_window_fontsize {
287	for (map { $GAUGES->{$_} } grep { $_ ne 'win' } keys %{$GAUGES}) {	328	for (map { $GAUGES->{$_} } grep { $_ ne 'win' } keys %{$GAUGES}) {
288	$_->set_fontsize ($::CFG->{gauge_fontsize});	329	$_->set_fontsize ($::CFG->{gauge_fontsize});
289	}	330	}
		331
		332	# local $GAUGES->{win}{parent};#d#
		333	# use PApp::Util; open D, ">:utf8", "d"; print D PApp::Util::dumpval $GAUGES->{win}; close D;
290	}	334	}
291		335
292	sub make_gauge_window {	336	sub make_gauge_window {
293	my $gh = int ($HEIGHT * $CFG->{gauge_size});	337	my $gh = int ($HEIGHT * $CFG->{gauge_size});
294	# my $gw = int ($WIDTH * $CFG->{gauge_w_size});	338	# my $gw = int ($WIDTH * $CFG->{gauge_w_size});
295		339
296	my $win = new CFClient::UI::Frame (	340	my $win = new CFClient::UI::Frame (
297	y => $HEIGHT - $gh, x => 0, req_w => $WIDTH, req_h => $gh	341	y => $HEIGHT - $gh, x => 0, user_w => $WIDTH, user_h => $gh
298	);	342	);
299	$win->add (my $vb = new CFClient::UI::VBox);	343	$win->add (my $hbox = new CFClient::UI::HBox
300		344	children => [
301	$vb->add (my $hbg = new CFClient::UI::HBox expand => 1);	345	(new CFClient::UI::HBox expand => 1),
		346	($FLOORBOX = new CFClient::UI::VBox),
		347	(my $vbox = new CFClient::UI::VBox),
		348	],
		349	);
302		350
303		351	$vbox->add (new CFClient::UI::HBox
		352	expand => 1,
		353	children => [
304	$hbg->add (new CFClient::UI::Empty expand => 1);	354	(new CFClient::UI::Empty expand => 1),
305	$hbg->add (my $hb = new CFClient::UI::HBox);	355	(my $hb = new CFClient::UI::HBox),
		356	],
		357	);
		358
306	$hb->add (my $hg = new CFClient::UI::Gauge type => 'hp', tooltip => "Health points");	359	$hb->add (my $hg = new CFClient::UI::Gauge type => 'hp',
		360	tooltip => "Health points. Measures of how much damage you can take before dying. Hit points are determined from your level and are influenced by the value of your Con. Hp value may range between 1 to beyond 500 and higher values indicate a greater ability to withstand punishment.");
307	$hb->add (my $mg = new CFClient::UI::Gauge type => 'mana', tooltip => "Spellpoints");	361	$hb->add (my $mg = new CFClient::UI::Gauge type => 'mana',
		362	tooltip => "Spell points. Measures of how much \"fuel\" you have for casting spells and incantations. Mana is calculated from your level and your Pow. Mana values can range between 1 to beyond 500 (glowing crystals can increase the current spell points beyond your normal maximum). Higher values indicate greater amounts of mana.");
308	$hb->add (my $gg = new CFClient::UI::Gauge type => 'grace', tooltip => "Grace");	363	$hb->add (my $gg = new CFClient::UI::Gauge type => 'grace',
		364	tooltip => "Grace points - how favored you are by your god. In game terms, how much divine magic you can cast. Your level, Wis and Pow effect what the value of grace is. Prayong on an altar of your god can increase this value beyond your normal maximum. Grace can take on large positive and negative values. Positive values indicate favor by the gods.");
309	$hb->add (my $fg = new CFClient::UI::Gauge type => 'food', tooltip => "Food");	365	$hb->add (my $fg = new CFClient::UI::Gauge type => 'food',
		366	tooltip => "Food. Ranges between 0 (starving) and 999 (satiated). At a value of 0 the character begins to die. Some magic can speed up or slow down the character digestion. Healing wounds will speed up digestion too.");
310		367
311	$vb->add (my $exp = new CFClient::UI::Label valign => 0, align => 1, text => "XP: 0 LVL: 0");	368	$vbox->add (my $exp = new CFClient::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1,
		369	tooltip => "Experience points and overall level - experience is increased as a reward for appropriate action (such as killing monsters) and may decrease as a result of a magical attack or dieing. Level is directly derived from the experience value. As the level of the character increases, the character becomes able to succeed at more difficult tasks. A character's level starts at a value of 0 and may range up beyond 100.");
312	$vb->add (my $rng = new CFClient::UI::Label valign => 0, align => 1, text => "Rng:");	370	$vbox->add (my $rng = new CFClient::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1,
		371	tooltip => "Ranged attack - how you attack when you press shift-cursor (spell, skill, weapon etc.)");
313		372
314	$GAUGES = {	373	$GAUGES = {
315	exp => $exp, win => $win, range => $rng,	374	exp => $exp, win => $win, range => $rng,
316	food => $fg, mana => $mg, hp => $hg, grace => $gg	375	food => $fg, mana => $mg, hp => $hg, grace => $gg
317	};	376	};
		377
		378	&set_gauge_window_fontsize;
		379
318	$win	380	$win
319	}	381	}
320		382
321	sub make_stats_window {	383	sub make_stats_window {
322	my $tgw = new CFClient::UI::FancyFrame (x => $WIDTH * 2/5, y => 0, title => "Stats");	384	my $tgw = new CFClient::UI::FancyFrame (x => $WIDTH * 2/5, y => 0, title => "Stats");
323		385
324	$tgw->add (my $vb = new CFClient::UI::VBox);	386	$tgw->add (my $vb = new CFClient::UI::VBox);
325	$vb->add (my $uhb = new CFClient::UI::HBox);
326	$uhb->add ($STATWIDS->{title} = new CFClient::UI::Label valign => 0, align => -1, text => "Title:", expand => 1);	387	$vb->add ($STATWIDS->{title} = new CFClient::UI::Label valign => 0, align => -1, text => "Title:", expand => 1);
327	$uhb->add ($STATWIDS->{map} = new CFClient::UI::Label valign => 0, align => -1, text => "Map:", expand => 1);	388	$vb->add ($STATWIDS->{map} = new CFClient::UI::Label valign => 0, align => -1, text => "Map:", expand => 1);
328		389
329	$vb->add (my $hb = new CFClient::UI::HBox expand => 1);	390	$vb->add (my $hb = new CFClient::UI::HBox expand => 1);
330		391
331	$hb->add (my $tbl = new CFClient::UI::Table expand => 1);	392	$hb->add (my $tbl = new CFClient::UI::Table expand => 1);
332		393
333	$tbl->add (0, 0, $STATWIDS->{st_str_lbl} = new CFClient::UI::Label valign => 0, align => +1, text => "Str");	394	my $black = [0, 0, 0];
334	$tbl->add (0, 1, $STATWIDS->{st_dex_lbl} = new CFClient::UI::Label valign => 0, align => +1, text => "Dex");
335	$tbl->add (0, 2, $STATWIDS->{st_con_lbl} = new CFClient::UI::Label valign => 0, align => +1, text => "Con");
336	$tbl->add (0, 3, $STATWIDS->{st_int_lbl} = new CFClient::UI::Label valign => 0, align => +1, text => "Int");
337	$tbl->add (0, 4, $STATWIDS->{st_wis_lbl} = new CFClient::UI::Label valign => 0, align => +1, text => "Wis");
338	$tbl->add (0, 5, $STATWIDS->{st_pow_lbl} = new CFClient::UI::Label valign => 0, align => +1, text => "Pow");
339	$tbl->add (0, 6, $STATWIDS->{st_cha_lbl} = new CFClient::UI::Label valign => 0, align => +1, text => "Cha");
340		395
341	$tbl->add (1, 0, $STATWIDS->{st_str} = new CFClient::UI::Label valign => 0, align => +1, text => "");	396	for (
342	$tbl->add (1, 1, $STATWIDS->{st_dex} = new CFClient::UI::Label valign => 0, align => +1, text => "");	397	[0, 0, st_str => "Str", 30, "Physical Strength, determines damage dealt with weapons, how much you can carry, and how often you can attack"],
343	$tbl->add (1, 2, $STATWIDS->{st_con} = new CFClient::UI::Label valign => 0, align => +1, text => "");	398	[0, 1, st_dex => "Dex", 30, "Dexterity, your physical agility. Determines chance of being hit and affects armor class and speed"],
344	$tbl->add (1, 3, $STATWIDS->{st_int} = new CFClient::UI::Label valign => 0, align => +1, text => "");	399	[0, 2, st_con => "Con", 30, "Constitution, physical health and toughness. Determines how many healthpoints you can have"],
345	$tbl->add (1, 4, $STATWIDS->{st_wis} = new CFClient::UI::Label valign => 0, align => +1, text => "");	400	[0, 3, st_int => "Int", 30, "Intelligence, your ability to learn and use skills and incantations (both prayers and magic) and determines how much spell points you can have"],
346	$tbl->add (1, 5, $STATWIDS->{st_pow} = new CFClient::UI::Label valign => 0, align => +1, text => "");	401	[0, 4, st_wis => "Wis", 30, "Wisdom, the ability to learn and use divine magic (prayers). Determines how many grace points you can have"],
347	$tbl->add (1, 6, $STATWIDS->{st_cha} = new CFClient::UI::Label valign => 0, align => +1, text => "");	402	[0, 5, st_pow => "Pow", 30, "Power, your magical potential. Influences the strength of spell effects, and also how much your spell and grace points increase when leveling up"],
		403	[0, 6, st_cha => "Cha", 30, "Charisma, how well you are received by NPCs. Affects buying and selling prices in shops."],
348		404
349	$tbl->add (2, 0, $STATWIDS->{st_wc_lbl} = new CFClient::UI::Label valign => 0, align => +1, text => "Wc");	405	[2, 0, st_wc => "Wc", -120, "Weapon Class, effectiveness of melee/missile attacks. Lower is more potent. Current weapon, level and Str are some things which effect the value of Wc. The value of Wc may range between 25 and -72."],
350	$tbl->add (2, 1, $STATWIDS->{st_ac_lbl} = new CFClient::UI::Label valign => 0, align => +1, text => "Ac");	406	[2, 1, st_ac => "Ac", -120, "Armour Class, how protected you are from being hit by any attack. Lower values are better. Ac is based on your race and is modified by the Dex and current armour worn. For characters that cannot wear armour, Ac improves as their level increases."],
351	$tbl->add (2, 2, $STATWIDS->{st_dam_lbl} = new CFClient::UI::Label valign => 0, align => +1, text => "Dam");	407	[2, 2, st_dam => "Dam", 120, "Damage, how much damage your melee/missile attack inflicts. Higher values indicate a greater amount of damage will be inflicted with each attack."],
352	$tbl->add (2, 3, $STATWIDS->{st_arm_lbl} = new CFClient::UI::Label valign => 0, align => +1, text => "Arm");	408	[2, 3, st_arm => "Arm", 120, "Armour, how much damage (from physical attacks) will be subtracted from successful hits made upon you. This value ranges between 0 to 99%. Current armour worn primarily determines Arm value."],
353	$tbl->add (2, 4, $STATWIDS->{st_spd_lbl} = new CFClient::UI::Label valign => 0, align => +1, text => "Sp");	409	[2, 4, st_spd => "Spd", 10.54, "Speed, how fast you can move. The value of speed may range between nearly 0 (\"very slow\") to higher than 5 (\"lightning fast\"). Base speed is determined from the Dex and modified downward proportionally by the amount of weight carried which exceeds the Max Carry limit. The armour worn also sets the upper limit on speed."],
354	$tbl->add (2, 5, $STATWIDS->{st_wspd_lbl} = new CFClient::UI::Label valign => 0, align => +1, text => "WSp");	410	[2, 5, st_wspd => "WSp", 10.54, "Weapon Speed, how many attacks you may make per unit of time (0.120s). Higher values indicate faster attack speed. Current weapon and Dex effect the value of weapon speed."],
		411	) {
		412	my ($col, $row, $id, $label, $template, $tooltip) = @$_;
355		413
356	$tbl->add (3, 0, $STATWIDS->{st_wc} = new CFClient::UI::Label valign => 0, align => +1, text => "");	414	$tbl->add ($col , $row, $STATWIDS->{$id} = new CFClient::UI::Label
357	$tbl->add (3, 1, $STATWIDS->{st_ac} = new CFClient::UI::Label valign => 0, align => +1, text => "");	415	can_hover => 1, can_events => 1, valign => 0, align => +1, template => $template, tooltip => $tooltip);
358	$tbl->add (3, 2, $STATWIDS->{st_dam} = new CFClient::UI::Label valign => 0, align => +1, text => "");	416	$tbl->add ($col + 1, $row, $STATWIDS->{"$id\_lbl"} = new CFClient::UI::Label
359	$tbl->add (3, 3, $STATWIDS->{st_arm} = new CFClient::UI::Label valign => 0, align => +1, text => "");	417	can_hover => 1, can_events => 1, fg => $black, valign => 0, align => -1, text => $label, tooltip => $tooltip);
360	$tbl->add (3, 4, $STATWIDS->{st_spd} = new CFClient::UI::Label valign => 0, align => +1, text => "");	418	}
361	$tbl->add (3, 5, $STATWIDS->{st_wspd} = new CFClient::UI::Label valign => 0, align => +1, text => "");
362		419
363	$hb->add (my $tbl2 = new CFClient::UI::Table expand => 1);	420	$hb->add (my $tbl2 = new CFClient::UI::Table expand => 1);
364		421
365	my $row = 0;	422	my $row = 0;
366	my $col = 0;	423	my $col = 0;
…		…
368	my %resist_names = (	425	my %resist_names = (
369	slow => "Slow",	426	slow => "Slow",
370	holyw => "Holy Word",	427	holyw => "Holy Word",
371	conf => "Confusion",	428	conf => "Confusion",
372	fire => "Fire",	429	fire => "Fire",
373	depl => "Depletion",	430	depl => "Depletion (some monsters and other effects can cause stats depletion)",
374	magic => "Magic",	431	magic => "Magic",
375	drain => "Draining",	432	drain => "Draining (some monsters (e.g. vampires) and other effects can steal experience)",
376	acid => "Acid",	433	acid => "Acid",
377	pois => "Poison",	434	pois => "Poison",
378	para => "Paralysation",	435	para => "Paralysation",
379	deat => "Death",	436	deat => "Death (resistance against death spells)",
380	phys => "Physical",	437	phys => "Physical",
381	blind => "Blind",	438	blind => "Blind",
382	fear => "Fear",	439	fear => "Fear",
383	tund => "Turn undead",	440	tund => "Turn undead",
384	elec => "Electricity",	441	elec => "Electricity",
385	cold => "Cold",	442	cold => "Cold",
386	ghit => "Ghost hit",	443	ghit => "Ghost hit (special attack used by ghosts and ghost-like beings)",
387	);	444	);
388	for (qw/slow holyw conf fire depl magic	445	for (qw/slow holyw conf fire depl magic
389	drain acid pois para deat phys	446	drain acid pois para deat phys
390	blind fear tund elec cold ghit/)	447	blind fear tund elec cold ghit/)
391	{	448	{
392	$tbl2->add ($col, $row,	449	$tbl2->add ($col, $row,
393	$STATWIDS->{"res_$_"} =	450	$STATWIDS->{"res_$_"} =
394	new CFClient::UI::Label text => "0", align => +1, valign => 0	451	new CFClient::UI::Label
		452	template => "-100%",
		453	align => +1,
		454	valign => 0,
		455	can_events => 1,
		456	can_hover => 1,
		457	tooltip => $resist_names{$_},
395	);	458	);
396	$tbl2->add ($col + 1, $row, new CFClient::UI::Image can_hover => 1, can_events => 1, image => "ui/resist/resist_$_.png", tooltip => $resist_names{$_});	459	$tbl2->add ($col + 1, $row, new CFClient::UI::Image
		460	can_hover => 1,
		461	can_events => 1,
		462	image => "ui/resist/resist_$_.png",
		463	tooltip => $resist_names{$_},
		464	);
397		465
398	$row++;	466	$row++;
399	if ($row % 6 == 0) {	467	if ($row % 6 == 0) {
400	$col += 2;	468	$col += 2;
401	$row = 0;	469	$row = 0;
…		…
406	update_stats_window ({});	474	update_stats_window ({});
407		475
408	$tgw	476	$tgw
409	}	477	}
410		478
		479	sub formsep {
		480	reverse join ",", grep length, split /(...)/, reverse $_[0] * 1
		481	}
		482
411	sub update_stats_window {	483	sub update_stats_window {
412	my ($stats) = @_;	484	my ($stats) = @_;
413		485
414	# i love text protocols!!!	486	# i love text protocols!!!
415	my $hp = $stats->{1} * 1;	487	my $hp = $stats->{Crossfire::Protocol::CS_STAT_HP} * 1;
416	my $hp_m = $stats->{2} * 1;	488	my $hp_m = $stats->{Crossfire::Protocol::CS_STAT_MAXHP} * 1;
417	my $sp = $stats->{3} * 1;	489	my $sp = $stats->{Crossfire::Protocol::CS_STAT_SP} * 1;
418	my $sp_m = $stats->{4} * 1;	490	my $sp_m = $stats->{Crossfire::Protocol::CS_STAT_MAXSP} * 1;
419	my $fo = $stats->{18} * 1;	491	my $fo = $stats->{Crossfire::Protocol::CS_STAT_FOOD} * 1;
420	my $fo_m = 999;	492	my $fo_m = 999;
421	my $gr = $stats->{23} * 1;	493	my $gr = $stats->{Crossfire::Protocol::CS_STAT_GRACE} * 1;
422	my $gr_m = $stats->{24} * 1;	494	my $gr_m = $stats->{Crossfire::Protocol::CS_STAT_MAXGRACE} * 1;
423		495
424	$GAUGES->{hp} ->set_value ($hp, $hp_m);	496	$GAUGES->{hp} ->set_value ($hp, $hp_m);
425	$GAUGES->{mana} ->set_value ($sp, $sp_m);	497	$GAUGES->{mana} ->set_value ($sp, $sp_m);
426	$GAUGES->{food} ->set_value ($fo, $fo_m);	498	$GAUGES->{food} ->set_value ($fo, $fo_m);
427	$GAUGES->{grace} ->set_value ($gr, $gr_m);	499	$GAUGES->{grace} ->set_value ($gr, $gr_m);
428	$GAUGES->{exp} ->set_text ("XP: " . ($stats->{11} \|\| $stats->{28}) * 1	500	$GAUGES->{exp} ->set_text ("Exp: " . (formsep $stats->{Crossfire::Protocol::CS_STAT_EXP64})
429	." LVL: " . $stats->{12} * 1);	501	. " (lvl " . ($stats->{Crossfire::Protocol::CS_STAT_LEVEL} * 1) . ")");
430	my $rng = $stats->{20};	502	my $rng = $stats->{Crossfire::Protocol::CS_STAT_RANGE};
431	$rng =~ s/^Range: //; # thank you so much dear server	503	$rng =~ s/^Range: //; # thank you so much dear server
432	$GAUGES->{range} ->set_text ("Rng: " . $rng);	504	$GAUGES->{range} ->set_text ("Rng: " . $rng);
433	my $title = $stats->{21};	505	my $title = $stats->{Crossfire::Protocol::CS_STAT_TITLE};
434	$title =~ s/^Player: //;	506	$title =~ s/^Player: //;
435	$STATWIDS->{title} ->set_text ("Title: " . $title);	507	$STATWIDS->{title} ->set_text ("Title: " . $title);
436		508
437	$STATWIDS->{st_str} ->set_text (sprintf "%d", $stats->{5});	509	$STATWIDS->{st_str} ->set_text (sprintf "%d", $stats->{5});
438	$STATWIDS->{st_dex} ->set_text (sprintf "%d", $stats->{8});	510	$STATWIDS->{st_dex} ->set_text (sprintf "%d", $stats->{8});
439	$STATWIDS->{st_con} ->set_text (sprintf "%d", $stats->{9});	511	$STATWIDS->{st_con} ->set_text (sprintf "%d", $stats->{9});
440	$STATWIDS->{st_int} ->set_text (sprintf "%d", $stats->{6});	512	$STATWIDS->{st_int} ->set_text (sprintf "%d", $stats->{6});
441	$STATWIDS->{st_wis} ->set_text (sprintf "%d", $stats->{7});	513	$STATWIDS->{st_wis} ->set_text (sprintf "%d", $stats->{7});
442	$STATWIDS->{st_pow} ->set_text (sprintf "%d", $stats->{22});	514	$STATWIDS->{st_pow} ->set_text (sprintf "%d", $stats->{22});
443	$STATWIDS->{st_cha} ->set_text (sprintf "%d", $stats->{10});	515	$STATWIDS->{st_cha} ->set_text (sprintf "%d", $stats->{10});
444	$STATWIDS->{st_wc} ->set_text (sprintf "%d", $stats->{13});	516	$STATWIDS->{st_wc} ->set_text (sprintf "%d", $stats->{13});
445	$STATWIDS->{st_ac} ->set_text (sprintf "%d", $stats->{14});	517	$STATWIDS->{st_ac} ->set_text (sprintf "%d", $stats->{14});
446	$STATWIDS->{st_dam} ->set_text (sprintf "%d", $stats->{15});	518	$STATWIDS->{st_dam} ->set_text (sprintf "%d", $stats->{15});
447	$STATWIDS->{st_arm} ->set_text (sprintf "%d", $stats->{16});	519	$STATWIDS->{st_arm} ->set_text (sprintf "%d", $stats->{16});
448	$STATWIDS->{st_spd} ->set_text (sprintf "%.1f", $stats->{17});	520	$STATWIDS->{st_spd} ->set_text (sprintf "%.1f", $stats->{Crossfire::Protocol::CS_STAT_SPEED});
449	$STATWIDS->{st_wspd}->set_text (sprintf "%.1f", $stats->{19});	521	$STATWIDS->{st_wspd}->set_text (sprintf "%.1f", $stats->{Crossfire::Protocol::CS_STAT_WEAP_SP});
450		522
451	my %tbl = (	523	my %tbl = (
452	phys => 100,	524	phys => 100,
453	magic => 101,	525	magic => 101,
454	fire => 102,	526	fire => 102,
…		…
483	$vbox->add ($dialog->{table} = new CFClient::UI::Table);	555	$vbox->add ($dialog->{table} = new CFClient::UI::Table);
484		556
485	$dialog	557	$dialog
486	}	558	}
487		559
		560	my $METASERVER_ATIME;
		561
488	sub update_metaserver {	562	sub update_metaserver {
489	my ($HOST) = @_;	563	my ($HOST) = @_;
490		564
491	status "fetching metaserver list...";	565	return if $METASERVER_ATIME > time;
		566	$METASERVER_ATIME = time + 60;
		567
		568	my $table = $METASERVER->{table};
		569	$table->clear;
		570	$table->add (0, 0, my $label = new CFClient::UI::Label max_w => $WIDTH * 0.8, text => "fetching server list...");
492		571
493	my $buf;	572	my $buf;
494		573
495	my $fh = new IO::Socket::INET PeerHost => $META_SERVER, Blocking => 0;	574	my $fh = new IO::Socket::INET PeerHost => $META_SERVER, Blocking => 0;
		575
		576	unless ($fh) {
		577	$label->set_text ("unable to contact metaserver: $!");
		578	return;
		579	}
496		580
497	Event->io (fd => $fh, poll => 'r', cb => sub {	581	Event->io (fd => $fh, poll => 'r', cb => sub {
498	my $res = sysread $fh, $buf, 8192, length $buf;	582	my $res = sysread $fh, $buf, 8192, length $buf;
499		583
500	if (!defined $res) {	584	if (!defined $res) {
501	$_[0]->w->cancel;	585	$_[0]->w->cancel;
502	status "metaserver: $!";	586	$label->set_text ("error while retrieving server list: $!");
503	} elsif ($res == 0) {	587	} elsif ($res == 0) {
504	$_[0]->w->cancel;	588	$_[0]->w->cancel;
505	status "server list retrieved";	589	status "server list retrieved";
506		590
507	my $table = $METASERVER->{table};	591	utf8::decode $buf if utf8::valid $buf;
508		592
509	$table->clear;	593	$table->clear;
510		594
511	my @col = qw(Use #Users Host Uptime Version Description);	595	my @col = qw(Use #Users Host Uptime Version Description);
512	$table->add ($_, 0, new CFClient::UI::Label align => 0, fg => [1, 1, 0], text => $col[$_])	596	$table->add ($_, 0, new CFClient::UI::Label align => 0, fg => [1, 1, 0], text => $col[$_])
…		…
536	$m = [$users, $host, $uptime, $version, $desc];	620	$m = [$users, $host, $uptime, $version, $desc];
537		621
538	$y++;	622	$y++;
539		623
540	$table->add (0, $y, new CFClient::UI::VBox children => [	624	$table->add (0, $y, new CFClient::UI::VBox children => [
541	(new CFClient::UI::Button text => " ", connect_activate => sub {	625	(new CFClient::UI::Button text => "Use", connect_activate => sub {
542	$HOST->set_text ($CFG->{host} = $host);	626	$HOST->set_text ($CFG->{host} = $host);
543	}),	627	}),
544	(new CFClient::UI::Empty expand => 1),	628	(new CFClient::UI::Empty expand => 1),
545	]);	629	]);
546		630
…		…
610	$table->add (0, 6, new CFClient::UI::Label valign => 0, align => 1, text => "Def. say cmd");	694	$table->add (0, 6, new CFClient::UI::Label valign => 0, align => 1, text => "Def. say cmd");
611	$table->add (1, 6, my $saycmd = new CFClient::UI::Entry	695	$table->add (1, 6, my $saycmd = new CFClient::UI::Entry
612	text => $CFG->{say_command},	696	text => $CFG->{say_command},
613	tooltip => "This is the command that will be used if you write a line in the message window entry. "	697	tooltip => "This is the command that will be used if you write a line in the message window entry. "
614	."Usually you want to enter something like 'say' or 'shout' or 'gsay' here. "	698	."Usually you want to enter something like 'say' or 'shout' or 'gsay' here. "
615	."But you could also set it to 'tell <playername>' to only chat with that user.",	699	."But you could also set it to 'tell <playername>' to only chat with that user.",
616	connect_changed => sub {	700	connect_changed => sub {
617	my ($self, $value) = @_;	701	my ($self, $value) = @_;
618	$CFG->{say_command} = $value;	702	$CFG->{say_command} = $value;
619	}	703	}
620	);	704	);
…		…
648	user_h => int $::HEIGHT / 5,	732	user_h => int $::HEIGHT / 5,
649	child => (my $vbox = new CFClient::UI::VBox);	733	child => (my $vbox = new CFClient::UI::VBox);
650		734
651	$vbox->add ($LOGVIEW = new CFClient::UI::TextView	735	$vbox->add ($LOGVIEW = new CFClient::UI::TextView
652	expand => 1,	736	expand => 1,
		737	font => $FONT_FIXED,
653	fontsize => $::CFG->{log_fontsize},	738	fontsize => $::CFG->{log_fontsize},
654	);	739	);
655		740
656	$vbox->add (my $input = new CFClient::UI::Entry	741	$vbox->add (my $input = new CFClient::UI::Entry
657	connect_focus_in => sub {	742	connect_focus_in => sub {
…		…
764	$BUTTONBAR->{children}[1]->emit ("activate"); # pop up server setup	849	$BUTTONBAR->{children}[1]->emit ("activate"); # pop up server setup
765	}	850	}
766		851
767	sub video_shutdown {	852	sub video_shutdown {
768	$CFClient::UI::ROOT->{children} = [];	853	$CFClient::UI::ROOT->{children} = [];
		854	undef $CFClient::UI::GRAB;
		855	undef $CFClient::UI::HOVER;
769	undef $SDL_ACTIVE;	856	undef $SDL_ACTIVE;
770	}	857	}
771		858
772	my @bgmusic = qw(game1.ogg game2.ogg game3.ogg game5.ogg game6.ogg ross1.ogg ross2.ogg ross3.ogg ross4.ogg ross5.ogg); #d#	859	my @bgmusic = qw(game1.ogg game2.ogg game3.ogg game5.ogg game6.ogg ross1.ogg ross2.ogg ross3.ogg ross4.ogg ross5.ogg); #d#
773	my $bgmusic;#TODO#hack#d#	860	my $bgmusic;#TODO#hack#d#
…		…
1054	}	1141	}
1055		1142
1056	gotid:	1143	gotid:
1057	$face->{id} = $id;	1144	$face->{id} = $id;
1058	$MAP->set_face ($facenum => $id);	1145	$MAP->set_face ($facenum => $id);
		1146	$self->{faceid}[$facenum] = $id;#d#
1059	$TILECACHE->get ($id)	1147	$TILECACHE->get ($id)
1060	}	1148	}
1061		1149
1062	sub conn::face_update {	1150	sub conn::face_update {
1063	my ($self, $facenum, $face) = @_;	1151	my ($self, $facenum, $face) = @_;
…		…
1071	my ($self, $id, $data) = @_;	1159	my ($self, $id, $data) = @_;
1072		1160
1073	$self->{texture}[$id] \|\|= do {	1161	$self->{texture}[$id] \|\|= do {
1074	my $tex =	1162	my $tex =
1075	new_from_image CFClient::Texture	1163	new_from_image CFClient::Texture
1076	$data, minify => 1;	1164	$data, minify => 1, mipmap => 1;
1077		1165
1078	$MAP->set_texture ($id, @$tex{qw(name w h s t)}, @{$tex->{minified}});	1166	$MAP->set_texture ($id, @$tex{qw(name w h s t)}, @{$tex->{minified}});
1079	$MAPWIDGET->update;	1167	$MAPWIDGET->update;
1080		1168
1081	$tex	1169	$tex
…		…
1093		1181
1094	$chunk->play;	1182	$chunk->play;
1095	# warn "sound $x,$y,$soundnum,$type\n";#d#	1183	# warn "sound $x,$y,$soundnum,$type\n";#d#
1096	}	1184	}
1097		1185
		1186	my $LAST_QUERY; # server is stupid, stupid, stupid
		1187
1098	sub conn::query {	1188	sub conn::query {
1099	my ($self, $flags, $prompt) = @_;	1189	my ($self, $flags, $prompt) = @_;
1100		1190
1101	#TODO, display dialog with relevant information	1191	$prompt = $LAST_QUERY unless length $prompt;
1102	warn "<<<<QUERY:$flags:$prompt>>>\n";#d#	1192	$LAST_QUERY = $prompt;
		1193
		1194	my $dialog = new CFClient::UI::FancyFrame
		1195	title => "Query",
		1196	child => my $vbox = new CFClient::UI::VBox;
		1197
		1198	$vbox->add (new CFClient::UI::Label
		1199	max_w => $::WIDTH * 0.4,
		1200	text => $prompt);
		1201
		1202	if ($flags & Crossfire::Protocol::CS_QUERY_YESNO) {
		1203	$vbox->add (my $hbox = new CFClient::HBox);
		1204	$hbox->add (new CFClient::Button
		1205	text => "No",
		1206	connect_activate => sub {
		1207	$self->send ("reply n");
		1208	$dialog->destroy;
		1209	$MAPWIDGET->focus_in;
		1210	}
		1211	);
		1212	$hbox->add (new CFClient::Button
		1213	text => "Yes",
		1214	connect_activate => sub {
		1215	$self->send ("reply y");
		1216	$dialog->destroy;
		1217	$MAPWIDGET->focus_in;
		1218	},
		1219	);
		1220
		1221	$dialog->focus_in;
		1222
		1223	} elsif ($flags & Crossfire::Protocol::CS_QUERY_SINGLECHAR) {
		1224	$dialog->{tooltip} = "Press a key (click on the entry to make sure it has keyboard focus)";
		1225	$vbox->add (my $entry = new CFClient::UI::Entry
		1226	connect_changed => sub {
		1227	$self->send ("reply $_[1]");
		1228	$dialog->destroy;
		1229	$MAPWIDGET->focus_in;
		1230	},
		1231	);
		1232
		1233	$entry->focus_in;
		1234
		1235	} else {
		1236	$dialog->{tooltip} = "Enter the reply and press return (click on the entry to make sure it has keyboard focus)";
		1237
		1238	$vbox->add (my $entry = new CFClient::UI::Entry
		1239	$flags & Crossfire::Protocol::CS_QUERY_HIDEINPUT ? (hiddenchar => "*") : (),
		1240	connect_activate => sub {
		1241	$self->send ("reply $_[1]");
		1242	$dialog->destroy;
		1243	$MAPWIDGET->focus_in;
		1244	},
		1245	);
		1246
		1247	$entry->focus_in;
		1248	}
		1249
		1250	$dialog->show;
1103	}	1251	}
1104		1252
1105	sub conn::drawinfo {	1253	sub conn::drawinfo {
1106	my ($self, $color, $text) = @_;	1254	my ($self, $color, $text) = @_;
1107		1255
…		…
1125	}	1273	}
1126		1274
1127	sub conn::spell_add {	1275	sub conn::spell_add {
1128	my ($self, $spell) = @_;	1276	my ($self, $spell) = @_;
1129		1277
		1278	# TODO
		1279	# create a widget dynamically, using spell face (CF::Protocol downloads them)
1130	$MAPWIDGET->add_command ("invoke $spell->{name}", $spell->{message}, sub {	1280	$MAPWIDGET->add_command ("invoke $spell->{name}", $spell->{message});
1131	});
1132	$MAPWIDGET->add_command ("cast $spell->{name}", $spell->{message}, sub {	1281	$MAPWIDGET->add_command ("cast $spell->{name}", $spell->{message});
1133	});
1134	}	1282	}
1135		1283
1136	sub conn::spell_delete {	1284	sub conn::spell_delete {
1137	my ($self, $spell) = @_;	1285	my ($self, $spell) = @_;
1138	}	1286	}
1139		1287
1140	sub conn::addme_success {	1288	sub conn::addme_success {
1141	my ($self) = @_;	1289	my ($self) = @_;
1142		1290
1143	for my $skill (values %{$self->{skill_info}}) {	1291	for my $skill (values %{$self->{skill_info}}) {
1144	$MAPWIDGET->add_command ("ready_skill $skill", "", sub {	1292	$MAPWIDGET->add_command ("ready_skill $skill", "Ready the skill '$skill'");
		1293	$MAPWIDGET->add_command ("use_skill $skill", "Immediately use the skill '$skill'");
		1294	}
		1295	}
		1296
		1297	sub update_floorbox {
		1298	$CFClient::UI::ROOT->on_refresh ($FLOORBOX => sub {
		1299	$FLOORBOX->clear;
		1300	$FLOORBOX->add (new CFClient::UI::Empty expand => 1);
		1301
		1302	my @items = values %{ $CONN->{container}{0} };
		1303
		1304	# we basically have to use the same sorting as everybody else
		1305	@items = sort { $a->{type} <=> $b->{type} } @items;
		1306
		1307	for my $item (reverse @items) {
		1308	my $desc = $item->{nrof} < 2
		1309	? $item->{name}
		1310	: "$item->{nrof} $item->{name_pl}";
		1311	# todo: animation widget, face widget, weight(?) etc.
		1312	$FLOORBOX->add (my $hbox = new CFClient::UI::HBox
		1313	tooltip => (CFClient::UI::Label->escape ($desc)
		1314	. "\n<small>leftclick - pick up\nmiddle click - apply\nrightclick - menu</small>"),
		1315	can_hover => 1,
		1316	can_events => 1,
		1317	connect_button_down => sub {
		1318	my ($self, $ev, $x, $y) = @_;
		1319
		1320	# todo: maybe put examine on 1? but should just be a tooltip :(
		1321	if ($ev->{button} == 1) {
		1322	$CONN->send ("move $CONN->{player}{tag} $item->{tag} 0");
		1323	} elsif ($ev->{button} == 2) {
		1324	$CONN->send ("apply $item->{tag}");
		1325	} elsif ($ev->{button} == 3) {
		1326	# examine, lock, mark, maybe other things
		1327	warn "MENU not implemented yet\n";
		1328	}
		1329
		1330	1
		1331	},
		1332	);
		1333
		1334	$hbox->add (new CFClient::UI::Face
		1335	can_events => 0,
		1336	face => $item->{face},
		1337	anim => $item->{anim},
		1338	animspeed => $item->{animspeed},
		1339	);
		1340
		1341	$hbox->add (new CFClient::UI::Label
		1342	can_events => 0,
		1343	text => $desc,
		1344	);
1145	});	1345	}
1146	$MAPWIDGET->add_command ("use_skill $skill", "", sub {
1147	});	1346	});
		1347	refresh;
		1348	}
		1349
		1350	sub conn::container_add {
		1351	my ($self, $id, $items) = @_;
		1352
		1353	update_floorbox if $id == 0;
		1354	# $self-<{player}{tag} => player inv
		1355	#use PApp::Util; warn PApp::Util::dumpval $self->{container}{$self->{player}{tag}};
		1356	}
		1357
		1358	sub conn::container_clear {
		1359	my ($self, $id) = @_;
		1360
		1361	update_floorbox if $id == 0;
		1362	# use PApp::Util; warn PApp::Util::dumpval $self->{container}{0};
		1363	}
		1364
		1365	sub conn::item_delete {
		1366	my ($self, @items) = @_;
		1367
		1368	for (@items) {
		1369	update_floorbox if $_->{container} == 0;
1148	}	1370	}
		1371	}
		1372
		1373	sub conn::item_update {
		1374	my ($self, $item) = @_;
		1375
		1376	update_floorbox if $item->{container} == 0;
1149	}	1377	}
1150		1378
1151	%SDL_CB = (	1379	%SDL_CB = (
1152	CFClient::SDL_QUIT => sub {	1380	CFClient::SDL_QUIT => sub {
1153	Event::unloop -1;	1381	Event::unloop -1;
…		…
1188	sdl_mode => 0,	1416	sdl_mode => 0,
1189	width => 640,	1417	width => 640,
1190	height => 480,	1418	height => 480,
1191	fullscreen => 0,	1419	fullscreen => 0,
1192	fast => 0,	1420	fast => 0,
		1421	map_scale => 0.5,
1193	fow_enable => 1,	1422	fow_enable => 1,
1194	fow_intensity => 0.45,	1423	fow_intensity => 0.45,
1195	fow_smooth => 0,	1424	fow_smooth => 0,
1196	gui_fontsize => 1,	1425	gui_fontsize => 1,
1197	log_fontsize => 1,	1426	log_fontsize => 1,
…		…
1219	@SDL_MODES or CFClient::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)";	1448	@SDL_MODES or CFClient::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)";
1220		1449
1221	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES;	1450	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES;
1222		1451
1223	{	1452	{
1224	my @fonts = map CFClient::find_rcfile $_, qw(uifont.ttf uifontb.ttf uifonti.ttf uifontbi.ttf);	1453	my @fonts = map CFClient::find_rcfile "fonts/$_", qw(
		1454	DejaVuSans.ttf
		1455	DejaVuSansMono.ttf
		1456	DejaVuSans-Bold.ttf
		1457	DejaVuSansMono-Bold.ttf
		1458	DejaVuSans-Oblique.ttf
		1459	DejaVuSansMono-Oblique.ttf
		1460	DejaVuSans-BoldOblique.ttf
		1461	DejaVuSansMono-BoldOblique.ttf
		1462	);
1225		1463
1226	CFClient::add_font $_ for @fonts;	1464	CFClient::add_font $_ for @fonts;
1227	CFClient::set_font $fonts[0];	1465
		1466	$FONT_PROP = new_from_file CFClient::Font $fonts[0];
		1467	$FONT_FIXED = new_from_file CFClient::Font $fonts[1];
		1468
		1469	$FONT_PROP->make_default;
1228	}	1470	}
1229		1471
1230	video_init;	1472	video_init;
1231	audio_init;	1473	audio_init;
1232		1474
1233	Event::loop;	1475	Event::loop;
1234		1476
1235	END { CFClient::SDL_Quit }	1477	END { CFClient::SDL_Quit }
1236		1478
		1479	=head1 pclient - Crossfire+ and Crossfire game client
1237		1480
		1481	Pclient is a Crossfire+ and Crossfire game client.
		1482
		1483	=head2 Features
		1484
		1485	=over 4
		1486
		1487	=item Fullscreen Map
		1488
		1489	PClient can uses a fullscreen map, which greatly enhances how much of the
		1490	game world you can see.
		1491
		1492	=item Persistent Map Cache (Crossfire+ only)
		1493
		1494	PClient can persistently cache all map data it received from the
		1495	server. This not only allows it to display an overview map, but also
		1496	ensures that once-explored areas will be available the next time you want
		1497	to explore more.
		1498
		1499	=item Hardware acceleration
		1500
		1501	Unlike most Crossfire clients, PClient take advantage of OpenGL hardware
		1502	acceleration. Most modern graphics cards have difficulties with 2D
		1503	acceleration, while 3D graphics is accelerated well.
		1504
		1505	=item No arbitrary limits
		1506
		1507	Unlike other Crossfire clients, pclient does not suffer from arbitrary
		1508	limits (like a fixed amount of face numbers). There are still limits, but
		1509	they are not arbitrarily low :)
		1510
		1511	=back
		1512
		1513	=head1 USAGE
		1514
		1515	=head2 The Map
		1516
		1517	The map is always displayed in the background, behind all other windows and UI elements.
		1518
		1519	#TODO# middle-click scrolls
		1520	#
		1521	# keys:
		1522	#
		1523	# a apply
		1524	# keypad moves, kp_5 applies ranged attack to self
		1525
		1526	Starting to type enters the I<completion mode>. In that mode, you can type
		1527	abbreviations or commands and have them executed as soon as they match a
		1528	valid command. This is best explained by a few examples:
		1529
		1530	Typing B<climb> will display a list of commands with I<climb> in their
		1531	name, such as I<ready_skill climbing> and I<use_skill climbing>.
		1532
		1533	You can abbreviate commands by typing only the first character of every
		1534	word. For example, typing I<iwor> will likely select I<invoke word of
		1535	recall>, while I<ccfo> will select I<cast create food>. Likewise, I<rscli>
		1536	will likely select I<ready_skill climbing> and I<usl> will give you
		1537	I<use_skill levitation>.
		1538
		1539	=head2 The map overview
		1540
		1541	#TODO#
		1542
		1543	=head2 The Status area in the lower right corner
		1544
		1545	#TODO#
		1546
		1547	=head2 The I<Statistics>/I>Stats> window
		1548
		1549	#TODO#
		1550
		1551	=head1 FAQ
		1552
		1553	=over 4
		1554
		1555	=item The client is very sluggish and slow, what can I do about this?
		1556
		1557	Most likely, you don't have accelerated OpenGL support. Try to find a
		1558	newer driver, or a driver from your hardware vendor, that features OpenGL
		1559	support.
		1560
		1561	If this is not an option, the following Setup options reduce the load and
		1562	will likely make the client playable with sofwtare rendering (it will
		1563	still be slow, though):
		1564
		1565	=over 4
		1566
		1567	=item B<Video Mode> should be set as low as possible (e.g. 640x480)
		1568
		1569	=item Enable B<Fast & Ugly> mode
		1570
		1571	=item Disable B<Fog of War>
		1572
		1573	=item Increase B<Map Scale>
		1574
		1575	=back
		1576
		1577	=back
		1578
		1579	=head1 AUTHOR
		1580
		1581	Marc Lehmann <crossfire@schmorp.de>, Robin Redeker <elmex@ta-sa.org>
		1582
		1583
		1584

Diff Legend

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

Comparing deliantra/Deliantra-Client/bin/pclient (file contents): Revision 1.167 by root, Sun Apr 23 05:33:24 2006 UTC vs. Revision 1.181 by root, Tue Apr 25 10:39:45 2006 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/bin/pclient (file contents):
Revision 1.167 by root, Sun Apr 23 05:33:24 2006 UTC vs.
Revision 1.181 by root, Tue Apr 25 10:39:45 2006 UTC