[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.188 by elmex, Tue Apr 25 13:27:00 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
…		…
37	our $WIDTH;	66	our $WIDTH;
38	our $HEIGHT;	67	our $HEIGHT;
39	our $FULLSCREEN;	68	our $FULLSCREEN;
40	our $FONTSIZE;	69	our $FONTSIZE;
41		70
		71	our $FONT_PROP;
		72	our $FONT_FIXED;
		73
42	our $MAP;	74	our $MAP;
		75	our $MAPMAP;
43	our $MAPWIDGET;	76	our $MAPWIDGET;
44	our $BUTTONBAR;	77	our $BUTTONBAR;
45	our $LOGVIEW;	78	our $LOGVIEW;
46	our $CONSOLE;	79	our $CONSOLE;
47	our $METASERVER;	80	our $METASERVER;
48		81
		82	our $FLOORBOX;
49	our $GAUGES;	83	our $GAUGES;
50	our $STATWIDS;	84	our $STATWIDS;
51		85
52	our $SDL_ACTIVE;	86	our $SDL_ACTIVE;
53	our %SDL_CB;	87	our %SDL_CB;
…		…
139	my ($self, $value) = @_;	173	my ($self, $value) = @_;
140	$CFG->{fast} = $value;	174	$CFG->{fast} = $value;
141	}	175	}
142	);	176	);
143		177
		178	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Map Scale");
		179	$table->add (1, $row++, new CFClient::UI::Slider
		180	range => [$CFG->{map_scale}, 0.25, 2, 0.05],
		181	tooltip => "Enlarge or shrink the displayed map",
		182	connect_changed => sub {
		183	my ($self, $value) = @_;
		184	$CFG->{map_scale} = 0.05 * int $value / 0.05;
		185	}
		186	);
		187
144	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fog of War");	188	$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	189	$table->add (1, $row++, new CFClient::UI::CheckBox
146	state => $CFG->{fow_enable},	190	state => $CFG->{fow_enable},
147	tooltip => "Fog-of-War marks areas that cannot be seen by the player",	191	tooltip => "Fog-of-War marks areas that cannot be seen by the player",
148	connect_changed => sub {	192	connect_changed => sub {
…		…
219	range => [$CFG->{gauge_fontsize}, 0.5, 2.0, 0.1],	263	range => [$CFG->{gauge_fontsize}, 0.5, 2.0, 0.1],
220	tooltip => "Adjusts the fontsize of the gauges at the bottom right",	264	tooltip => "Adjusts the fontsize of the gauges at the bottom right",
221	connect_changed => sub {	265	connect_changed => sub {
222	$CFG->{gauge_fontsize} = 0.1 * int $_[1] * 10;	266	$CFG->{gauge_fontsize} = 0.1 * int $_[1] * 10;
223	&set_gauge_window_fontsize;	267	&set_gauge_window_fontsize;
224	#$GAUGES->{win}->check_size;
225	#$GAUGES->{win}->update;
226	}	268	}
227	);	269	);
228		270
229	$table->add (1, $row++, new CFClient::UI::Button	271	$table->add (1, $row++, new CFClient::UI::Button
230	expand => 1, align => 0, text => "Apply",	272	expand => 1, align => 0, text => "Apply",
231	tooltip => "Apply the video settings (unless they are auto-apply)",	273	tooltip => "Apply the video settings",
232	connect_activate => sub {	274	connect_activate => sub {
233	video_shutdown ();	275	video_shutdown ();
234	video_init ();	276	video_init ();
235	}	277	}
236	);	278	);
…		…
265	}	307	}
266	);	308	);
267		309
268	$table->add (1, $row++, new CFClient::UI::Button	310	$table->add (1, $row++, new CFClient::UI::Button
269	expand => 1, align => 0, text => "Apply",	311	expand => 1, align => 0, text => "Apply",
270	tooltip => "Apply the audio settings that are not auto-apply",	312	tooltip => "Apply the audio settings",
271	connect_activate => sub {	313	connect_activate => sub {
272	audio_shutdown ();	314	audio_shutdown ();
273	audio_init ();	315	audio_init ();
274	}	316	}
275	);	317	);
276		318
		319	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Communication cmd");
		320	$table->add (1, $row++, my $saycmd = new CFClient::UI::Entry
		321	text => $CFG->{say_command},
		322	tooltip => "This is the command that will be used if you write a line in the message window entry. "
		323	."Usually you want to enter something like 'say' or 'shout' or 'gsay' here. "
		324	."But you could also set it to 'tell <playername>' to only chat with that user.",
		325	connect_changed => sub {
		326	my ($self, $value) = @_;
		327	$CFG->{say_command} = $value;
		328	}
		329	);
		330
277	$dialog	331	$dialog
278	}	332	}
279		333
280	sub set_stats_window_fontsize {	334	sub set_stats_window_fontsize {
281	for (values %{$STATWIDS}) {	335	for (values %{$STATWIDS}) {
…		…
285		339
286	sub set_gauge_window_fontsize {	340	sub set_gauge_window_fontsize {
287	for (map { $GAUGES->{$_} } grep { $_ ne 'win' } keys %{$GAUGES}) {	341	for (map { $GAUGES->{$_} } grep { $_ ne 'win' } keys %{$GAUGES}) {
288	$_->set_fontsize ($::CFG->{gauge_fontsize});	342	$_->set_fontsize ($::CFG->{gauge_fontsize});
289	}	343	}
		344
		345	# local $GAUGES->{win}{parent};#d#
		346	# use PApp::Util; open D, ">:utf8", "d"; print D PApp::Util::dumpval $GAUGES->{win}; close D;
290	}	347	}
291		348
292	sub make_gauge_window {	349	sub make_gauge_window {
293	my $gh = int ($HEIGHT * $CFG->{gauge_size});	350	my $gh = int ($HEIGHT * $CFG->{gauge_size});
294	# my $gw = int ($WIDTH * $CFG->{gauge_w_size});	351	# my $gw = int ($WIDTH * $CFG->{gauge_w_size});
295		352
296	my $win = new CFClient::UI::Frame (	353	my $win = new CFClient::UI::Frame (
297	y => $HEIGHT - $gh, x => 0, req_w => $WIDTH, req_h => $gh	354	y => $HEIGHT - $gh, x => 0, user_w => $WIDTH, user_h => $gh
298	);	355	);
299	$win->add (my $vb = new CFClient::UI::VBox);	356	$win->add (my $hbox = new CFClient::UI::HBox
300		357	children => [
301	$vb->add (my $hbg = new CFClient::UI::HBox expand => 1);	358	(new CFClient::UI::HBox expand => 1),
		359	($FLOORBOX = new CFClient::UI::VBox),
		360	(my $vbox = new CFClient::UI::VBox),
		361	],
		362	);
302		363
303		364	$vbox->add (new CFClient::UI::HBox
		365	expand => 1,
		366	children => [
304	$hbg->add (new CFClient::UI::Empty expand => 1);	367	(new CFClient::UI::Empty expand => 1),
305	$hbg->add (my $hb = new CFClient::UI::HBox);	368	(my $hb = new CFClient::UI::HBox),
		369	],
		370	);
		371
306	$hb->add (my $hg = new CFClient::UI::Gauge type => 'hp', tooltip => "Health points");	372	$hb->add (my $hg = new CFClient::UI::Gauge type => 'hp',
		373	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");	374	$hb->add (my $mg = new CFClient::UI::Gauge type => 'mana',
		375	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");	376	$hb->add (my $gg = new CFClient::UI::Gauge type => 'grace',
		377	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");	378	$hb->add (my $fg = new CFClient::UI::Gauge type => 'food',
		379	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		380
311	$vb->add (my $exp = new CFClient::UI::Label valign => 0, align => 1, text => "XP: 0 LVL: 0");	381	$vbox->add (my $exp = new CFClient::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1,
		382	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 dying. 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:");	383	$vbox->add (my $rng = new CFClient::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1,
		384	tooltip => "Ranged attack - how you attack when you press shift-cursor (spell, skill, weapon etc.)");
313		385
314	$GAUGES = {	386	$GAUGES = {
315	exp => $exp, win => $win, range => $rng,	387	exp => $exp, win => $win, range => $rng,
316	food => $fg, mana => $mg, hp => $hg, grace => $gg	388	food => $fg, mana => $mg, hp => $hg, grace => $gg
317	};	389	};
		390
		391	&set_gauge_window_fontsize;
		392
318	$win	393	$win
319	}	394	}
320		395
321	sub make_stats_window {	396	sub make_stats_window {
322	my $tgw = new CFClient::UI::FancyFrame (x => $WIDTH * 2/5, y => 0, title => "Stats");	397	my $tgw = new CFClient::UI::FancyFrame x => $WIDTH * 2/5, y => 0, title => "Stats";
323		398
324	$tgw->add (my $vb = new CFClient::UI::VBox);	399	$tgw->add (new CFClient::UI::Window child => 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);	400	$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);	401	$vb->add ($STATWIDS->{map} = new CFClient::UI::Label valign => 0, align => -1, text => "Map:", expand => 1);
328		402
329	$vb->add (my $hb = new CFClient::UI::HBox expand => 1);	403	$vb->add (my $hb = new CFClient::UI::HBox expand => 1);
330		404
331	$hb->add (my $tbl = new CFClient::UI::Table expand => 1);	405	$hb->add (my $tbl = new CFClient::UI::Table expand => 1);
332		406
333	$tbl->add (0, 0, $STATWIDS->{st_str_lbl} = new CFClient::UI::Label valign => 0, align => +1, text => "Str");	407	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		408
341	$tbl->add (1, 0, $STATWIDS->{st_str} = new CFClient::UI::Label valign => 0, align => +1, text => "");	409	for (
342	$tbl->add (1, 1, $STATWIDS->{st_dex} = new CFClient::UI::Label valign => 0, align => +1, text => "");	410	[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 => "");	411	[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 => "");	412	[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 => "");	413	[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 => "");	414	[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 => "");	415	[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"],
		416	[0, 6, st_cha => "Cha", 30, "Charisma, how well you are received by NPCs. Affects buying and selling prices in shops."],
348		417
349	$tbl->add (2, 0, $STATWIDS->{st_wc_lbl} = new CFClient::UI::Label valign => 0, align => +1, text => "Wc");	418	[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");	419	[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");	420	[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");	421	[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");	422	[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");	423	[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."],
		424	) {
		425	my ($col, $row, $id, $label, $template, $tooltip) = @$_;
355		426
356	$tbl->add (3, 0, $STATWIDS->{st_wc} = new CFClient::UI::Label valign => 0, align => +1, text => "");	427	$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 => "");	428	font => $FONT_FIXED, 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 => "");	429	$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 => "");	430	font => $FONT_FIXED, 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 => "");	431	}
361	$tbl->add (3, 5, $STATWIDS->{st_wspd} = new CFClient::UI::Label valign => 0, align => +1, text => "");
362		432
363	$hb->add (my $tbl2 = new CFClient::UI::Table expand => 1);	433	$hb->add (my $tbl2 = new CFClient::UI::Table expand => 1);
364		434
365	my $row = 0;	435	my $row = 0;
366	my $col = 0;	436	my $col = 0;
…		…
368	my %resist_names = (	438	my %resist_names = (
369	slow => "Slow",	439	slow => "Slow",
370	holyw => "Holy Word",	440	holyw => "Holy Word",
371	conf => "Confusion",	441	conf => "Confusion",
372	fire => "Fire",	442	fire => "Fire",
373	depl => "Depletion",	443	depl => "Depletion (some monsters and other effects can cause stats depletion)",
374	magic => "Magic",	444	magic => "Magic",
375	drain => "Draining",	445	drain => "Draining (some monsters (e.g. vampires) and other effects can steal experience)",
376	acid => "Acid",	446	acid => "Acid",
377	pois => "Poison",	447	pois => "Poison",
378	para => "Paralysation",	448	para => "Paralysation",
379	deat => "Death",	449	deat => "Death (resistance against death spells)",
380	phys => "Physical",	450	phys => "Physical",
381	blind => "Blind",	451	blind => "Blind",
382	fear => "Fear",	452	fear => "Fear",
383	tund => "Turn undead",	453	tund => "Turn undead",
384	elec => "Electricity",	454	elec => "Electricity",
385	cold => "Cold",	455	cold => "Cold",
386	ghit => "Ghost hit",	456	ghit => "Ghost hit (special attack used by ghosts and ghost-like beings)",
387	);	457	);
388	for (qw/slow holyw conf fire depl magic	458	for (qw/slow holyw conf fire depl magic
389	drain acid pois para deat phys	459	drain acid pois para deat phys
390	blind fear tund elec cold ghit/)	460	blind fear tund elec cold ghit/)
391	{	461	{
392	$tbl2->add ($col, $row,	462	$tbl2->add ($col, $row,
393	$STATWIDS->{"res_$_"} =	463	$STATWIDS->{"res_$_"} =
394	new CFClient::UI::Label text => "0", align => +1, valign => 0	464	new CFClient::UI::Label
		465	font => $FONT_FIXED,
		466	template => "-100%",
		467	align => +1,
		468	valign => 0,
		469	can_events => 1,
		470	can_hover => 1,
		471	tooltip => $resist_names{$_},
395	);	472	);
396	$tbl2->add ($col + 1, $row, new CFClient::UI::Image can_hover => 1, can_events => 1, image => "ui/resist/resist_$_.png", tooltip => $resist_names{$_});	473	$tbl2->add ($col + 1, $row, new CFClient::UI::Image
		474	font => $FONT_FIXED,
		475	can_hover => 1,
		476	can_events => 1,
		477	image => "ui/resist/resist_$_.png",
		478	tooltip => $resist_names{$_},
		479	);
397		480
398	$row++;	481	$row++;
399	if ($row % 6 == 0) {	482	if ($row % 6 == 0) {
400	$col += 2;	483	$col += 2;
401	$row = 0;	484	$row = 0;
…		…
406	update_stats_window ({});	489	update_stats_window ({});
407		490
408	$tgw	491	$tgw
409	}	492	}
410		493
		494	sub formsep {
		495	reverse join ",", grep length, split /(...)/, reverse $_[0] * 1
		496	}
		497
411	sub update_stats_window {	498	sub update_stats_window {
412	my ($stats) = @_;	499	my ($stats) = @_;
413		500
414	# i love text protocols!!!	501	# i love text protocols!!!
415	my $hp = $stats->{1} * 1;	502	my $hp = $stats->{Crossfire::Protocol::CS_STAT_HP} * 1;
416	my $hp_m = $stats->{2} * 1;	503	my $hp_m = $stats->{Crossfire::Protocol::CS_STAT_MAXHP} * 1;
417	my $sp = $stats->{3} * 1;	504	my $sp = $stats->{Crossfire::Protocol::CS_STAT_SP} * 1;
418	my $sp_m = $stats->{4} * 1;	505	my $sp_m = $stats->{Crossfire::Protocol::CS_STAT_MAXSP} * 1;
419	my $fo = $stats->{18} * 1;	506	my $fo = $stats->{Crossfire::Protocol::CS_STAT_FOOD} * 1;
420	my $fo_m = 999;	507	my $fo_m = 999;
421	my $gr = $stats->{23} * 1;	508	my $gr = $stats->{Crossfire::Protocol::CS_STAT_GRACE} * 1;
422	my $gr_m = $stats->{24} * 1;	509	my $gr_m = $stats->{Crossfire::Protocol::CS_STAT_MAXGRACE} * 1;
423		510
424	$GAUGES->{hp} ->set_value ($hp, $hp_m);	511	$GAUGES->{hp} ->set_value ($hp, $hp_m);
425	$GAUGES->{mana} ->set_value ($sp, $sp_m);	512	$GAUGES->{mana} ->set_value ($sp, $sp_m);
426	$GAUGES->{food} ->set_value ($fo, $fo_m);	513	$GAUGES->{food} ->set_value ($fo, $fo_m);
427	$GAUGES->{grace} ->set_value ($gr, $gr_m);	514	$GAUGES->{grace} ->set_value ($gr, $gr_m);
428	$GAUGES->{exp} ->set_text ("XP: " . ($stats->{11} \|\| $stats->{28}) * 1	515	$GAUGES->{exp} ->set_text ("Exp: " . (formsep $stats->{Crossfire::Protocol::CS_STAT_EXP64})
429	." LVL: " . $stats->{12} * 1);	516	. " (lvl " . ($stats->{Crossfire::Protocol::CS_STAT_LEVEL} * 1) . ")");
430	my $rng = $stats->{20};	517	my $rng = $stats->{Crossfire::Protocol::CS_STAT_RANGE};
431	$rng =~ s/^Range: //; # thank you so much dear server	518	$rng =~ s/^Range: //; # thank you so much dear server
432	$GAUGES->{range} ->set_text ("Rng: " . $rng);	519	$GAUGES->{range} ->set_text ("Rng: " . $rng);
433	my $title = $stats->{21};	520	my $title = $stats->{Crossfire::Protocol::CS_STAT_TITLE};
434	$title =~ s/^Player: //;	521	$title =~ s/^Player: //;
435	$STATWIDS->{title} ->set_text ("Title: " . $title);	522	$STATWIDS->{title} ->set_text ("Title: " . $title);
436		523
437	$STATWIDS->{st_str} ->set_text (sprintf "%d", $stats->{5});	524	$STATWIDS->{st_str} ->set_text (sprintf "%d", $stats->{5});
438	$STATWIDS->{st_dex} ->set_text (sprintf "%d", $stats->{8});	525	$STATWIDS->{st_dex} ->set_text (sprintf "%d", $stats->{8});
439	$STATWIDS->{st_con} ->set_text (sprintf "%d", $stats->{9});	526	$STATWIDS->{st_con} ->set_text (sprintf "%d", $stats->{9});
440	$STATWIDS->{st_int} ->set_text (sprintf "%d", $stats->{6});	527	$STATWIDS->{st_int} ->set_text (sprintf "%d", $stats->{6});
441	$STATWIDS->{st_wis} ->set_text (sprintf "%d", $stats->{7});	528	$STATWIDS->{st_wis} ->set_text (sprintf "%d", $stats->{7});
442	$STATWIDS->{st_pow} ->set_text (sprintf "%d", $stats->{22});	529	$STATWIDS->{st_pow} ->set_text (sprintf "%d", $stats->{22});
443	$STATWIDS->{st_cha} ->set_text (sprintf "%d", $stats->{10});	530	$STATWIDS->{st_cha} ->set_text (sprintf "%d", $stats->{10});
444	$STATWIDS->{st_wc} ->set_text (sprintf "%d", $stats->{13});	531	$STATWIDS->{st_wc} ->set_text (sprintf "%d", $stats->{13});
445	$STATWIDS->{st_ac} ->set_text (sprintf "%d", $stats->{14});	532	$STATWIDS->{st_ac} ->set_text (sprintf "%d", $stats->{14});
446	$STATWIDS->{st_dam} ->set_text (sprintf "%d", $stats->{15});	533	$STATWIDS->{st_dam} ->set_text (sprintf "%d", $stats->{15});
447	$STATWIDS->{st_arm} ->set_text (sprintf "%d", $stats->{16});	534	$STATWIDS->{st_arm} ->set_text (sprintf "%d", $stats->{16});
448	$STATWIDS->{st_spd} ->set_text (sprintf "%.1f", $stats->{17});	535	$STATWIDS->{st_spd} ->set_text (sprintf "%.1f", $stats->{Crossfire::Protocol::CS_STAT_SPEED});
449	$STATWIDS->{st_wspd}->set_text (sprintf "%.1f", $stats->{19});	536	$STATWIDS->{st_wspd}->set_text (sprintf "%.1f", $stats->{Crossfire::Protocol::CS_STAT_WEAP_SP});
450		537
451	my %tbl = (	538	my %tbl = (
452	phys => 100,	539	phys => 100,
453	magic => 101,	540	magic => 101,
454	fire => 102,	541	fire => 102,
…		…
483	$vbox->add ($dialog->{table} = new CFClient::UI::Table);	570	$vbox->add ($dialog->{table} = new CFClient::UI::Table);
484		571
485	$dialog	572	$dialog
486	}	573	}
487		574
		575	my $METASERVER_ATIME;
		576
488	sub update_metaserver {	577	sub update_metaserver {
489	my ($HOST) = @_;	578	my ($HOST) = @_;
490		579
491	status "fetching metaserver list...";	580	return if $METASERVER_ATIME > time;
		581	$METASERVER_ATIME = time + 60;
		582
		583	my $table = $METASERVER->{table};
		584	$table->clear;
		585	$table->add (0, 0, my $label = new CFClient::UI::Label max_w => $WIDTH * 0.8, text => "fetching server list...");
492		586
493	my $buf;	587	my $buf;
494		588
495	my $fh = new IO::Socket::INET PeerHost => $META_SERVER, Blocking => 0;	589	my $fh = new IO::Socket::INET PeerHost => $META_SERVER, Blocking => 0;
		590
		591	unless ($fh) {
		592	$label->set_text ("unable to contact metaserver: $!");
		593	return;
		594	}
496		595
497	Event->io (fd => $fh, poll => 'r', cb => sub {	596	Event->io (fd => $fh, poll => 'r', cb => sub {
498	my $res = sysread $fh, $buf, 8192, length $buf;	597	my $res = sysread $fh, $buf, 8192, length $buf;
499		598
500	if (!defined $res) {	599	if (!defined $res) {
501	$_[0]->w->cancel;	600	$_[0]->w->cancel;
502	status "metaserver: $!";	601	$label->set_text ("error while retrieving server list: $!");
503	} elsif ($res == 0) {	602	} elsif ($res == 0) {
504	$_[0]->w->cancel;	603	$_[0]->w->cancel;
505	status "server list retrieved";	604	status "server list retrieved";
506		605
507	my $table = $METASERVER->{table};	606	utf8::decode $buf if utf8::valid $buf;
508		607
509	$table->clear;	608	$table->clear;
510		609
511	my @col = qw(Use #Users Host Uptime Version Description);	610	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[$_])	611	$table->add ($_, 0, new CFClient::UI::Label align => 0, fg => [1, 1, 0], text => $col[$_])
…		…
536	$m = [$users, $host, $uptime, $version, $desc];	635	$m = [$users, $host, $uptime, $version, $desc];
537		636
538	$y++;	637	$y++;
539		638
540	$table->add (0, $y, new CFClient::UI::VBox children => [	639	$table->add (0, $y, new CFClient::UI::VBox children => [
541	(new CFClient::UI::Button text => " ", connect_activate => sub {	640	(new CFClient::UI::Button text => "Use", connect_activate => sub {
542	$HOST->set_text ($CFG->{host} = $host);	641	$HOST->set_text ($CFG->{host} = $host);
543	}),	642	}),
544	(new CFClient::UI::Empty expand => 1),	643	(new CFClient::UI::Empty expand => 1),
545	]);	644	]);
546		645
…		…
605	my ($self, $value) = @_;	704	my ($self, $value) = @_;
606	$CFG->{password} = $value;	705	$CFG->{password} = $value;
607	}	706	}
608	);	707	);
609		708
610	$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
612	text => $CFG->{say_command},
613	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. "
615	."But you could also set it to 'tell <playername>' to only chat with that user.",
616	connect_changed => sub {
617	my ($self, $value) = @_;
618	$CFG->{say_command} = $value;
619	}
620	);
621
622	$table->add (0, 7, new CFClient::UI::Label valign => 0, align => 1, text => "Map Size");	709	$table->add (0, 7, new CFClient::UI::Label valign => 0, align => 1, text => "Map Size");
623	$table->add (1, 7, new CFClient::UI::Slider	710	$table->add (1, 7, new CFClient::UI::Slider
624	req_w => 100,	711	req_w => 100,
625	range => [$CFG->{mapsize}, 10, 100 + 1, 1],	712	range => [$CFG->{mapsize}, 10, 100 + 1, 1],
626	tooltip => "This is the size of the portion of the map update the server sends you. "	713	tooltip => "This is the size of the portion of the map update the server sends you. "
…		…
640	}	727	}
641		728
642	sub message_window {	729	sub message_window {
643	my $window = new CFClient::UI::FancyFrame	730	my $window = new CFClient::UI::FancyFrame
644	title => "Messages",	731	title => "Messages",
645	border_bg => [1, 1, 1, 0.5],	732	border_bg => [1, 1, 1, 1],
646	bg => [0.3, 0.3, 0.3, 0.8],	733	bg => [0, 0, 0, 0.5],
647	user_w => int $::WIDTH / 3,	734	user_w => int $::WIDTH / 3,
648	user_h => int $::HEIGHT / 5,	735	user_h => int $::HEIGHT / 5,
649	child => (my $vbox = new CFClient::UI::VBox);	736	child => (my $vbox = new CFClient::UI::VBox);
650		737
651	$vbox->add ($LOGVIEW = new CFClient::UI::TextView	738	$vbox->add ($LOGVIEW = new CFClient::UI::TextView
652	expand => 1,	739	expand => 1,
		740	font => $FONT_FIXED,
653	fontsize => $::CFG->{log_fontsize},	741	fontsize => $::CFG->{log_fontsize},
654	);	742	);
655		743
656	$vbox->add (my $input = new CFClient::UI::Entry	744	$vbox->add (my $input = new CFClient::UI::Entry
657	connect_focus_in => sub {	745	connect_focus_in => sub {
…		…
730	fontsize => 0.8,	818	fontsize => 0.8,
731	markup => "Use <b>Alt-Enter</b> to toggle fullscreen mode";	819	markup => "Use <b>Alt-Enter</b> to toggle fullscreen mode";
732	$ALT_ENTER_MESSAGE->show;	820	$ALT_ENTER_MESSAGE->show;
733	$ALT_ENTER_MESSAGE->move (0, $HEIGHT - $ALT_ENTER_MESSAGE->{h});	821	$ALT_ENTER_MESSAGE->move (0, $HEIGHT - $ALT_ENTER_MESSAGE->{h});
734		822
735	$CFClient::UI::ROOT->add ($MAPWIDGET = new CFClient::MapWidget);	823	CFClient::UI::FancyFrame->new (
736	$MAPWIDGET->focus_in;	824	border_bg => [1, 1, 1, 192/255],
		825	bg => [1, 1, 1, 0],
		826	child => $MAPMAP = new CFClient::MapWidget::MapMap
		827	)->show;
		828
		829	$MAPWIDGET = new CFClient::MapWidget;
737	$MAPWIDGET->connect (activate_console => sub {	830	$MAPWIDGET->connect (activate_console => sub {
738	my ($mapwidget, $preset) = @_;	831	my ($mapwidget, $preset) = @_;
739		832
740	if ($CONSOLE) {	833	if ($CONSOLE) {
741	$CONSOLE->{input}->{auto_activated} = 1;	834	$CONSOLE->{input}->{auto_activated} = 1;
…		…
744	if ($preset && $CONSOLE->{input}->get_text eq '') {	837	if ($preset && $CONSOLE->{input}->get_text eq '') {
745	$CONSOLE->{input}->set_text ($preset);	838	$CONSOLE->{input}->set_text ($preset);
746	}	839	}
747	}	840	}
748	});	841	});
		842	$MAPWIDGET->show;
		843	$MAPWIDGET->focus_in;
749		844
750	$CFClient::UI::ROOT->add ($BUTTONBAR = new CFClient::UI::HBox);	845	$BUTTONBAR = new CFClient::UI::HBox;
751		846
752	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Client Setup", other => client_setup);	847	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Client Setup", other => client_setup);
753	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Server Setup", other => server_setup);	848	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Server Setup", other => server_setup);
754	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Message Window", other => message_window);	849	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Message Window", other => message_window);
755		850
…		…
759	$BUTTONBAR->add (new CFClient::UI::Button text => "Save Config", connect_activate => sub {	854	$BUTTONBAR->add (new CFClient::UI::Button text => "Save Config", connect_activate => sub {
760	CFClient::write_cfg "$Crossfire::VARDIR/pclientrc";	855	CFClient::write_cfg "$Crossfire::VARDIR/pclientrc";
761	status "Configuration Saved";	856	status "Configuration Saved";
762	});	857	});
763		858
		859	$BUTTONBAR->show;
		860
764	$BUTTONBAR->{children}[1]->emit ("activate"); # pop up server setup	861	$BUTTONBAR->{children}[1]->emit ("activate"); # pop up server setup
765	}	862	}
766		863
767	sub video_shutdown {	864	sub video_shutdown {
768	$CFClient::UI::ROOT->{children} = [];	865	$CFClient::UI::ROOT->{children} = [];
		866	undef $CFClient::UI::GRAB;
		867	undef $CFClient::UI::HOVER;
769	undef $SDL_ACTIVE;	868	undef $SDL_ACTIVE;
770	}	869	}
771		870
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#	871	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#	872	my $bgmusic;#TODO#hack#d#
…		…
947	# at worst.	1046	# at worst.
948	sub conn::flood_fill {	1047	sub conn::flood_fill {
949	my ($self, $gx, $gy, $path, $hash, $flags) = @_;	1048	my ($self, $gx, $gy, $path, $hash, $flags) = @_;
950		1049
951	# the server does not allow map paths > 6	1050	# the server does not allow map paths > 6
952	return if 6 <= length $path;	1051	return if 7 <= length $path;
953		1052
954	my ($x0, $y0, $x1, $y1) = @{$self->{neigh_rect}};	1053	my ($x0, $y0, $x1, $y1) = @{$self->{neigh_rect}};
955		1054
956	for (	1055	for (
957	[1, 0, -1],	1056	[1, 0, -1],
…		…
1000		1099
1001	$self->flush_map;	1100	$self->flush_map;
1002		1101
1003	my ($ox, $oy) = ($::MAP->ox, $::MAP->oy);	1102	my ($ox, $oy) = ($::MAP->ox, $::MAP->oy);
1004		1103
1005	my $mapmapw = 250;	1104	my $mapmapw = $MAPMAP->{w};
1006	my $mapmaph = 250;	1105	my $mapmaph = $MAPMAP->{h};
1007		1106
1008	$self->{neigh_rect} = [	1107	$self->{neigh_rect} = [
1009	$ox - $mapmapw * 0.5, $oy - $mapmapw * 0.5,	1108	$ox - $mapmapw * 0.5, $oy - $mapmapw * 0.5,
1010	$ox + $mapmapw * 0.5 + $w, $oy + $mapmapw * 0.5 + $h,	1109	$ox + $mapmapw * 0.5 + $w, $oy + $mapmapw * 0.5 + $h,
1011	];	1110	];
…		…
1054	}	1153	}
1055		1154
1056	gotid:	1155	gotid:
1057	$face->{id} = $id;	1156	$face->{id} = $id;
1058	$MAP->set_face ($facenum => $id);	1157	$MAP->set_face ($facenum => $id);
		1158	$self->{faceid}[$facenum] = $id;#d#
1059	$TILECACHE->get ($id)	1159	$TILECACHE->get ($id)
1060	}	1160	}
1061		1161
1062	sub conn::face_update {	1162	sub conn::face_update {
1063	my ($self, $facenum, $face) = @_;	1163	my ($self, $facenum, $face) = @_;
…		…
1071	my ($self, $id, $data) = @_;	1171	my ($self, $id, $data) = @_;
1072		1172
1073	$self->{texture}[$id] \|\|= do {	1173	$self->{texture}[$id] \|\|= do {
1074	my $tex =	1174	my $tex =
1075	new_from_image CFClient::Texture	1175	new_from_image CFClient::Texture
1076	$data, minify => 1;	1176	$data, minify => 1, mipmap => 1;
1077		1177
1078	$MAP->set_texture ($id, @$tex{qw(name w h s t)}, @{$tex->{minified}});	1178	$MAP->set_texture ($id, @$tex{qw(name w h s t)}, @{$tex->{minified}});
1079	$MAPWIDGET->update;	1179	$MAPWIDGET->update;
1080		1180
1081	$tex	1181	$tex
…		…
1093		1193
1094	$chunk->play;	1194	$chunk->play;
1095	# warn "sound $x,$y,$soundnum,$type\n";#d#	1195	# warn "sound $x,$y,$soundnum,$type\n";#d#
1096	}	1196	}
1097		1197
		1198	my $LAST_QUERY; # server is stupid, stupid, stupid
		1199
1098	sub conn::query {	1200	sub conn::query {
1099	my ($self, $flags, $prompt) = @_;	1201	my ($self, $flags, $prompt) = @_;
1100		1202
1101	#TODO, display dialog with relevant information	1203	$prompt = $LAST_QUERY unless length $prompt;
1102	warn "<<<<QUERY:$flags:$prompt>>>\n";#d#	1204	$LAST_QUERY = $prompt;
		1205
		1206	my $dialog = new CFClient::UI::FancyFrame
		1207	title => "Query",
		1208	child => my $vbox = new CFClient::UI::VBox;
		1209
		1210	$vbox->add (new CFClient::UI::Label
		1211	max_w => $::WIDTH * 0.4,
		1212	text => $prompt);
		1213
		1214	if ($flags & Crossfire::Protocol::CS_QUERY_YESNO) {
		1215	$vbox->add (my $hbox = new CFClient::HBox);
		1216	$hbox->add (new CFClient::Button
		1217	text => "No",
		1218	connect_activate => sub {
		1219	$self->send ("reply n");
		1220	$dialog->destroy;
		1221	$MAPWIDGET->focus_in;
		1222	}
		1223	);
		1224	$hbox->add (new CFClient::Button
		1225	text => "Yes",
		1226	connect_activate => sub {
		1227	$self->send ("reply y");
		1228	$dialog->destroy;
		1229	$MAPWIDGET->focus_in;
		1230	},
		1231	);
		1232
		1233	$dialog->focus_in;
		1234
		1235	} elsif ($flags & Crossfire::Protocol::CS_QUERY_SINGLECHAR) {
		1236	$dialog->{tooltip} = "Press a key (click on the entry to make sure it has keyboard focus)";
		1237	$vbox->add (my $entry = new CFClient::UI::Entry
		1238	connect_changed => sub {
		1239	$self->send ("reply $_[1]");
		1240	$dialog->destroy;
		1241	$MAPWIDGET->focus_in;
		1242	},
		1243	);
		1244
		1245	$entry->focus_in;
		1246
		1247	} else {
		1248	$dialog->{tooltip} = "Enter the reply and press return (click on the entry to make sure it has keyboard focus)";
		1249
		1250	$vbox->add (my $entry = new CFClient::UI::Entry
		1251	$flags & Crossfire::Protocol::CS_QUERY_HIDEINPUT ? (hiddenchar => "*") : (),
		1252	connect_activate => sub {
		1253	$self->send ("reply $_[1]");
		1254	$dialog->destroy;
		1255	$MAPWIDGET->focus_in;
		1256	},
		1257	);
		1258
		1259	$entry->focus_in;
		1260	}
		1261
		1262	$dialog->show;
1103	}	1263	}
1104		1264
1105	sub conn::drawinfo {	1265	sub conn::drawinfo {
1106	my ($self, $color, $text) = @_;	1266	my ($self, $color, $text) = @_;
1107		1267
…		…
1125	}	1285	}
1126		1286
1127	sub conn::spell_add {	1287	sub conn::spell_add {
1128	my ($self, $spell) = @_;	1288	my ($self, $spell) = @_;
1129		1289
		1290	# TODO
		1291	# create a widget dynamically, using spell face (CF::Protocol downloads them)
1130	$MAPWIDGET->add_command ("invoke $spell->{name}", $spell->{message}, sub {	1292	$MAPWIDGET->add_command ("invoke $spell->{name}", $spell->{message});
1131	});
1132	$MAPWIDGET->add_command ("cast $spell->{name}", $spell->{message}, sub {	1293	$MAPWIDGET->add_command ("cast $spell->{name}", $spell->{message});
1133	});
1134	}	1294	}
1135		1295
1136	sub conn::spell_delete {	1296	sub conn::spell_delete {
1137	my ($self, $spell) = @_;	1297	my ($self, $spell) = @_;
1138	}	1298	}
1139		1299
1140	sub conn::addme_success {	1300	sub conn::addme_success {
1141	my ($self) = @_;	1301	my ($self) = @_;
1142		1302
1143	for my $skill (values %{$self->{skill_info}}) {	1303	for my $skill (values %{$self->{skill_info}}) {
1144	$MAPWIDGET->add_command ("ready_skill $skill", "", sub {	1304	$MAPWIDGET->add_command ("ready_skill $skill", "Ready the skill '$skill'");
		1305	$MAPWIDGET->add_command ("use_skill $skill", "Immediately use the skill '$skill'");
		1306	}
		1307	}
		1308
		1309	sub update_floorbox {
		1310	$CFClient::UI::ROOT->on_refresh ($FLOORBOX => sub {
		1311	$FLOORBOX->clear;
		1312	$FLOORBOX->add (new CFClient::UI::Empty expand => 1);
		1313
		1314	my @items = values %{ $CONN->{container}{0} };
		1315
		1316	# we basically have to use the same sorting as everybody else
		1317	@items = sort { $a->{type} <=> $b->{type} } @items;
		1318
		1319	for my $item (reverse @items) {
		1320	my $desc = $item->{nrof} < 2
		1321	? $item->{name}
		1322	: "$item->{nrof} $item->{name_pl}";
		1323	# todo: animation widget, face widget, weight(?) etc.
		1324	$FLOORBOX->add (my $hbox = new CFClient::UI::HBox
		1325	tooltip => (CFClient::UI::Label->escape ($desc)
		1326	. "\n<small>leftclick - pick up\nmiddle click - apply\nrightclick - menu</small>"),
		1327	can_hover => 1,
		1328	can_events => 1,
		1329	connect_button_down => sub {
		1330	my ($self, $ev, $x, $y) = @_;
		1331
		1332	# todo: maybe put examine on 1? but should just be a tooltip :(
		1333	if ($ev->{button} == 1) {
		1334	$CONN->send ("move $CONN->{player}{tag} $item->{tag} 0");
		1335	} elsif ($ev->{button} == 2) {
		1336	$CONN->send ("apply $item->{tag}");
		1337	} elsif ($ev->{button} == 3) {
		1338	# examine, lock, mark, maybe other things
		1339	warn "MENU not implemented yet\n";
		1340	}
		1341
		1342	1
		1343	},
		1344	);
		1345
		1346	$hbox->add (new CFClient::UI::Face
		1347	can_events => 0,
		1348	face => $item->{face},
		1349	anim => $item->{anim},
		1350	animspeed => $item->{animspeed},
		1351	);
		1352
		1353	$hbox->add (new CFClient::UI::Label
		1354	can_events => 0,
		1355	text => $desc,
		1356	);
1145	});	1357	}
1146	$MAPWIDGET->add_command ("use_skill $skill", "", sub {
1147	});	1358	});
		1359	refresh;
		1360	}
		1361
		1362	sub conn::container_add {
		1363	my ($self, $id, $items) = @_;
		1364
		1365	update_floorbox if $id == 0;
		1366	# $self-<{player}{tag} => player inv
		1367	#use PApp::Util; warn PApp::Util::dumpval $self->{container}{$self->{player}{tag}};
		1368	}
		1369
		1370	sub conn::container_clear {
		1371	my ($self, $id) = @_;
		1372
		1373	update_floorbox if $id == 0;
		1374	# use PApp::Util; warn PApp::Util::dumpval $self->{container}{0};
		1375	}
		1376
		1377	sub conn::item_delete {
		1378	my ($self, @items) = @_;
		1379
		1380	for (@items) {
		1381	update_floorbox if $_->{container} == 0;
1148	}	1382	}
		1383	}
		1384
		1385	sub conn::item_update {
		1386	my ($self, $item) = @_;
		1387
		1388	update_floorbox if $item->{container} == 0;
1149	}	1389	}
1150		1390
1151	%SDL_CB = (	1391	%SDL_CB = (
1152	CFClient::SDL_QUIT => sub {	1392	CFClient::SDL_QUIT => sub {
1153	Event::unloop -1;	1393	Event::unloop -1;
…		…
1188	sdl_mode => 0,	1428	sdl_mode => 0,
1189	width => 640,	1429	width => 640,
1190	height => 480,	1430	height => 480,
1191	fullscreen => 0,	1431	fullscreen => 0,
1192	fast => 0,	1432	fast => 0,
		1433	map_scale => 0.5,
1193	fow_enable => 1,	1434	fow_enable => 1,
1194	fow_intensity => 0.45,	1435	fow_intensity => 0.45,
1195	fow_smooth => 0,	1436	fow_smooth => 0,
1196	gui_fontsize => 1,	1437	gui_fontsize => 1,
1197	log_fontsize => 1,	1438	log_fontsize => 1,
…		…
1219	@SDL_MODES or CFClient::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)";	1460	@SDL_MODES or CFClient::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)";
1220		1461
1221	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES;	1462	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES;
1222		1463
1223	{	1464	{
1224	my @fonts = map CFClient::find_rcfile $_, qw(uifont.ttf uifontb.ttf uifonti.ttf uifontbi.ttf);	1465	my @fonts = map CFClient::find_rcfile "fonts/$_", qw(
		1466	DejaVuSans.ttf
		1467	DejaVuSansMono.ttf
		1468	DejaVuSans-Bold.ttf
		1469	DejaVuSansMono-Bold.ttf
		1470	DejaVuSans-Oblique.ttf
		1471	DejaVuSansMono-Oblique.ttf
		1472	DejaVuSans-BoldOblique.ttf
		1473	DejaVuSansMono-BoldOblique.ttf
		1474	);
1225		1475
1226	CFClient::add_font $_ for @fonts;	1476	CFClient::add_font $_ for @fonts;
1227	CFClient::set_font $fonts[0];	1477
		1478	$FONT_PROP = new_from_file CFClient::Font $fonts[0];
		1479	$FONT_FIXED = new_from_file CFClient::Font $fonts[1];
		1480
		1481	$FONT_PROP->make_default;
1228	}	1482	}
1229		1483
1230	video_init;	1484	video_init;
1231	audio_init;	1485	audio_init;
1232		1486
1233	Event::loop;	1487	Event::loop;
1234		1488
1235	END { CFClient::SDL_Quit }	1489	END { CFClient::SDL_Quit }
1236		1490
		1491	=head1 pclient - Crossfire+ and Crossfire game client
1237		1492
		1493	Pclient is a Crossfire+ and Crossfire game client.
		1494
		1495	=head2 Features
		1496
		1497	=over 4
		1498
		1499	=item Fullscreen Map
		1500
		1501	PClient can uses a fullscreen map, which greatly enhances how much of the
		1502	game world you can see.
		1503
		1504	=item Persistent Map Cache (Crossfire+ only)
		1505
		1506	PClient can persistently cache all map data it received from the
		1507	server. This not only allows it to display an overview map, but also
		1508	ensures that once-explored areas will be available the next time you want
		1509	to explore more.
		1510
		1511	=item Hardware acceleration
		1512
		1513	Unlike most Crossfire clients, PClient take advantage of OpenGL hardware
		1514	acceleration. Most modern graphics cards have difficulties with 2D
		1515	acceleration, while 3D graphics is accelerated well.
		1516
		1517	=item No arbitrary limits
		1518
		1519	Unlike other Crossfire clients, pclient does not suffer from arbitrary
		1520	limits (like a fixed amount of face numbers). There are still limits, but
		1521	they are not arbitrarily low :)
		1522
		1523	=back
		1524
		1525	=head1 USAGE
		1526
		1527	=head2 The Map
		1528
		1529	The map is always displayed in the background, behind all other windows and UI elements.
		1530
		1531	#TODO# middle-click scrolls
		1532	#
		1533	# keys:
		1534	#
		1535	# a apply
		1536	# keypad moves, kp_5 applies ranged attack to self
		1537
		1538	Starting to type enters the I<completion mode>. In that mode, you can type
		1539	abbreviations or commands and have them executed as soon as they match a
		1540	valid command. This is best explained by a few examples:
		1541
		1542	Typing B<climb> will display a list of commands with I<climb> in their
		1543	name, such as I<ready_skill climbing> and I<use_skill climbing>.
		1544
		1545	You can abbreviate commands by typing only the first character of every
		1546	word. For example, typing I<iwor> will likely select I<invoke word of
		1547	recall>, while I<ccfo> will select I<cast create food>. Likewise, I<rscli>
		1548	will likely select I<ready_skill climbing> and I<usl> will give you
		1549	I<use_skill levitation>.
		1550
		1551	=head2 The map overview
		1552
		1553	#TODO#
		1554
		1555	=head2 The Status area in the lower right corner
		1556
		1557	#TODO#
		1558
		1559	=head2 The I<Statistics>/I>Stats> window
		1560
		1561	#TODO#
		1562
		1563	=head1 FAQ
		1564
		1565	=over 4
		1566
		1567	=item The client is very sluggish and slow, what can I do about this?
		1568
		1569	Most likely, you don't have accelerated OpenGL support. Try to find a
		1570	newer driver, or a driver from your hardware vendor, that features OpenGL
		1571	support.
		1572
		1573	If this is not an option, the following Setup options reduce the load and
		1574	will likely make the client playable with sofwtare rendering (it will
		1575	still be slow, though):
		1576
		1577	=over 4
		1578
		1579	=item B<Video Mode> should be set as low as possible (e.g. 640x480)
		1580
		1581	=item Enable B<Fast & Ugly> mode
		1582
		1583	=item Disable B<Fog of War>
		1584
		1585	=item Increase B<Map Scale>
		1586
		1587	=back
		1588
		1589	=back
		1590
		1591	=head1 AUTHOR
		1592
		1593	Marc Lehmann <crossfire@schmorp.de>, Robin Redeker <elmex@ta-sa.org>
		1594
		1595
		1596

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.188 by elmex, Tue Apr 25 13:27:00 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.188 by elmex, Tue Apr 25 13:27:00 2006 UTC