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

Comparing deliantra/Deliantra-Client/bin/pclient (file contents):
Revision 1.153 by root, Thu Apr 20 09:13:32 2006 UTC vs.
Revision 1.179 by root, Tue Apr 25 09:52:05 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;
		83	our $STATWIDS;
50		84
51	our $SDL_ACTIVE;	85	our $SDL_ACTIVE;
52	our %SDL_CB;	86	our %SDL_CB;
53		87
54	our $SDL_MIXER;	88	our $SDL_MIXER;
…		…
116	$CFG->{sdl_mode} = $self->{range}[0] = $value = int $value;	150	$CFG->{sdl_mode} = $self->{range}[0] = $value = int $value;
117	$mode_label->set_text (sprintf "%dx%d", @{$SDL_MODES[$value]});	151	$mode_label->set_text (sprintf "%dx%d", @{$SDL_MODES[$value]});
118	});	152	});
119	$mode_slider->emit (changed => $mode_slider->{range}[0]);	153	$mode_slider->emit (changed => $mode_slider->{range}[0]);
120		154
		155	my $row = 1;
		156
121	$table->add (0, 1, new CFClient::UI::Label valign => 0, align => 1, text => "Fullscreen");	157	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fullscreen");
122	$table->add (1, 1, new CFClient::UI::CheckBox state => $CFG->{fullscreen}, connect_changed => sub {	158	$table->add (1, $row++, new CFClient::UI::CheckBox
		159	state => $CFG->{fullscreen},
		160	tooltip => "Bring the client into fullscreen mode",
		161	connect_changed => sub {
123	my ($self, $value) = @_;	162	my ($self, $value) = @_;
124	$CFG->{fullscreen} = $value;	163	$CFG->{fullscreen} = $value;
		164	}
125	});	165	);
126		166
127	$table->add (0, 2, new CFClient::UI::Label valign => 0, align => 1, text => "Fast & Ugly");	167	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fast & Ugly");
128	$table->add (1, 2, new CFClient::UI::CheckBox state => $CFG->{fast}, connect_changed => sub {	168	$table->add (1, $row++, new CFClient::UI::CheckBox
		169	state => $CFG->{fast},
		170	tooltip => "Lower the visual quality considerably to speed up rendering.",
		171	connect_changed => sub {
129	my ($self, $value) = @_;	172	my ($self, $value) = @_;
130	$CFG->{fast} = $value;	173	$CFG->{fast} = $value;
		174	}
131	});	175	);
132		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
133	$table->add (0, 3, 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");
134	$table->add (1, 3, new CFClient::UI::CheckBox state => $CFG->{fow_enable}, connect_changed => sub {	188	$table->add (1, $row++, new CFClient::UI::CheckBox
		189	state => $CFG->{fow_enable},
		190	tooltip => "Fog-of-War marks areas that cannot be seen by the player",
		191	connect_changed => sub {
135	my ($self, $value) = @_;	192	my ($self, $value) = @_;
136	$CFG->{fow_enable} = $value;	193	$CFG->{fow_enable} = $value;
		194	}
137	});	195	);
138		196
139	$table->add (0, 4, new CFClient::UI::Label valign => 0, align => 1, text => "FoW Intensity");	197	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "FoW Intensity");
140	$table->add (1, 4, new CFClient::UI::Slider range => [$CFG->{fow_intensity}, 0, 1 + 0.001, 0.001], connect_changed => sub {	198	$table->add (1, $row++, new CFClient::UI::Slider
		199	range => [$CFG->{fow_intensity}, 0, 1 + 0.001, 0.001],
		200	tooltip => "The higher the intensity, the lighter the Fog-of-War color",
		201	connect_changed => sub {
141	my ($self, $value) = @_;	202	my ($self, $value) = @_;
142	$CFG->{fow_intensity} = $value;	203	$CFG->{fow_intensity} = $value;
		204	}
143	});	205	);
144		206
145	$table->add (0, 5, new CFClient::UI::Label valign => 0, align => 1, text => "FoW Smooth");	207	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "FoW Smooth");
146	$table->add (1, 5, new CFClient::UI::CheckBox state => $CFG->{fow_smooth}, connect_changed => sub {	208	$table->add (1, $row++, new CFClient::UI::CheckBox
		209	state => $CFG->{fow_smooth},
		210	tooltip => "Smooth the Fog-of-War a bit to make it more realistic",
		211	connect_changed => sub {
147	my ($self, $value) = @_;	212	my ($self, $value) = @_;
148	$CFG->{fow_smooth} = $value;	213	$CFG->{fow_smooth} = $value;
149	status "Fog of War smoothing requires OpenGL 1.2 or higher" if $CFClient::GL_VERSION < 1.2;	214	status "Fog of War smoothing requires OpenGL 1.2 or higher" if $CFClient::GL_VERSION < 1.2;
		215	}
150	});	216	);
151		217
152	$table->add (0, 6, new CFClient::UI::Label valign => 0, align => 1, text => "GUI Fontsize");	218	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "GUI Fontsize");
153	$table->add (1, 6, new CFClient::UI::Slider range => [$CFG->{gui_fontsize}, 0.7, 1.7, 0.1], connect_changed => sub {	219	$table->add (1, $row++, new CFClient::UI::Slider
		220	range => [$CFG->{gui_fontsize}, 0.5, 2, 0.1],
		221	tooltip => "The font size used by most GUI elements",
		222	connect_changed => sub {
154	$CFG->{gui_fontsize} = 0.1 * int $_[1] * 10;	223	$CFG->{gui_fontsize} = 0.1 * int $_[1] * 10;
155	# $FONTSIZE = int $HEIGHT / 40 * $CFG->{gui_fontsize};	224	# $FONTSIZE = int $HEIGHT / 40 * $CFG->{gui_fontsize};
		225	}
156	});	226	);
157		227
158	$table->add (0, 7, new CFClient::UI::Label valign => 0, align => 1, text => "Server Log Fontsize");	228	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Server Log Fontsize");
159	$table->add (1, 7, new CFClient::UI::Slider range => [$CFG->{log_fontsize}, 0.7, 1.7, 0.1], connect_changed => sub {	229	$table->add (1, $row++, new CFClient::UI::Slider
		230	range => [$CFG->{log_fontsize}, 0.5, 2, 0.1],
		231	tooltip => "The font size used by the server log window only",
		232	connect_changed => sub {
160	$LOGVIEW->set_fontsize ($CFG->{log_fontsize} = 0.1 * int $_[1] * 10);	233	$LOGVIEW->set_fontsize ($CFG->{log_fontsize} = 0.1 * int $_[1] * 10);
		234	}
161	});	235	);
162		236
163	$table->add (1, 8, new CFClient::UI::Button expand => 1, align => 0, text => "Apply", connect_activate => sub {	237	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Stats Fontsize");
		238
		239	$table->add (1, $row++, new CFClient::UI::Slider
		240	range => [$CFG->{stat_fontsize}, 0.5, 2, 0.1],
		241	tooltip => "The font size used by the statistics window only",
		242	connect_changed => sub {
		243	$CFG->{stat_fontsize} = 0.1 * int $_[1] * 10;
		244	&set_stats_window_fontsize;
		245	}
		246	);
		247
		248	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Gauge size");
		249	$table->add (1, $row++, new CFClient::UI::Slider
		250	range => [$CFG->{gauge_size}, 0.2, 0.8, 0.02],
		251	tooltip => "Adjust the size of the stats gauges at the bottom right",
		252	connect_changed => sub {
		253	$CFG->{gauge_size} = $_[1];
		254	my $h = int $HEIGHT * $CFG->{gauge_size};
		255	$GAUGES->{win}->set_size ($WIDTH, $h);
		256	$GAUGES->{win}->move (0, $HEIGHT - $h);
		257	}
		258	);
		259
		260	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Gauge fontsize");
		261	$table->add (1, $row++, new CFClient::UI::Slider
		262	range => [$CFG->{gauge_fontsize}, 0.5, 2.0, 0.1],
		263	tooltip => "Adjusts the fontsize of the gauges at the bottom right",
		264	connect_changed => sub {
		265	$CFG->{gauge_fontsize} = 0.1 * int $_[1] * 10;
		266	&set_gauge_window_fontsize;
		267	}
		268	);
		269
		270	$table->add (1, $row++, new CFClient::UI::Button
		271	expand => 1, align => 0, text => "Apply",
		272	tooltip => "Apply the video settings",
		273	connect_activate => sub {
164	video_shutdown ();	274	video_shutdown ();
165	video_init ();	275	video_init ();
		276	}
166	});	277	);
167		278
168	$table->add (0, 9, new CFClient::UI::Label valign => 0, align => 1, text => "Audio Enable");	279	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Audio Enable");
169	$table->add (1, 9, new CFClient::UI::CheckBox state => $CFG->{audio_enable}, connect_changed => sub {	280	$table->add (1, $row++, new CFClient::UI::CheckBox
		281	state => $CFG->{audio_enable},
		282	tooltip => "If enabled, sound effects and music will be played. If disabled, no audio will be used and the soundcard will not be opened.",
		283	connect_changed => sub {
170	$CFG->{audio_enable} = $_[1];	284	$CFG->{audio_enable} = $_[1];
		285	}
171	});	286	);
172	# $table->add (0, 9, new CFClient::UI::Label valign => 0, align => 1, text => "Effects Volume");	287	# $table->add (0, 9, new CFClient::UI::Label valign => 0, align => 1, text => "Effects Volume");
173	# $table->add (1, 8, new CFClient::UI::Slider range => [$CFG->{effects_volume}, 0, 128, 1], connect_changed => sub {	288	# $table->add (1, 8, new CFClient::UI::Slider range => [$CFG->{effects_volume}, 0, 128, 1], connect_changed => sub {
174	# $CFG->{effects_volume} = $_[1];	289	# $CFG->{effects_volume} = $_[1];
175	# });	290	# });
176	$table->add (0, 10, new CFClient::UI::Label valign => 0, align => 1, text => "Background Music");	291	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Background Music");
177	$table->add (1, 10, my $hbox = new CFClient::UI::HBox);	292	$table->add (1, $row++, my $hbox = new CFClient::UI::HBox);
178	$hbox->add (new CFClient::UI::CheckBox expand => 1, state => $CFG->{bgm_enable}, connect_changed => sub {	293	$hbox->add (new CFClient::UI::CheckBox
		294	expand => 1, state => $CFG->{bgm_enable},
		295	tooltip => "Enable background music playing",
		296	connect_changed => sub {
179	$CFG->{bgm_enable} = $_[1];	297	$CFG->{bgm_enable} = $_[1];
		298	}
180	});	299	);
181	$hbox->add (new CFClient::UI::Slider expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0.1], connect_changed => sub {	300	$hbox->add (new CFClient::UI::Slider
		301	expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0.1],
		302	tooltip => "The volume of the background music",
		303	connect_changed => sub {
182	$CFG->{bgm_volume} = $_[1];	304	$CFG->{bgm_volume} = $_[1];
183	CFClient::MixMusic::volume $_[1] * 128;	305	CFClient::MixMusic::volume $_[1] * 128;
		306	}
184	});	307	);
185		308
186	$table->add (1, 11, new CFClient::UI::Button expand => 1, align => 0, text => "Apply", connect_activate => sub {	309	$table->add (1, $row++, new CFClient::UI::Button
		310	expand => 1, align => 0, text => "Apply",
		311	tooltip => "Apply the audio settings",
		312	connect_activate => sub {
187	audio_shutdown ();	313	audio_shutdown ();
188	audio_init ();	314	audio_init ();
		315	}
189	});	316	);
190		317
191	$dialog	318	$dialog
		319	}
		320
		321	sub set_stats_window_fontsize {
		322	for (values %{$STATWIDS}) {
		323	$_->set_fontsize ($::CFG->{stat_fontsize});
		324	}
		325	}
		326
		327	sub set_gauge_window_fontsize {
		328	for (map { $GAUGES->{$_} } grep { $_ ne 'win' } keys %{$GAUGES}) {
		329	$_->set_fontsize ($::CFG->{gauge_fontsize});
		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;
		334	}
		335
		336	sub make_gauge_window {
		337	my $gh = int ($HEIGHT * $CFG->{gauge_size});
		338	# my $gw = int ($WIDTH * $CFG->{gauge_w_size});
		339
		340	my $win = new CFClient::UI::Frame (
		341	y => $HEIGHT - $gh, x => 0, user_w => $WIDTH, user_h => $gh
		342	);
		343	$win->add (my $hbox = new CFClient::UI::HBox
		344	children => [
		345	(new CFClient::UI::HBox expand => 1),
		346	($FLOORBOX = new CFClient::UI::VBox),
		347	(my $vbox = new CFClient::UI::VBox),
		348	],
		349	);
		350
		351	$vbox->add (new CFClient::UI::HBox
		352	expand => 1,
		353	children => [
		354	(new CFClient::UI::Empty expand => 1),
		355	(my $hb = new CFClient::UI::HBox),
		356	],
		357	);
		358
		359	$hb->add (my $hg = new CFClient::UI::Gauge type => 'hp',
		360	tooltip => "Health points - depletes when you get wounded, refills when you heal or idle");
		361	$hb->add (my $mg = new CFClient::UI::Gauge type => 'mana',
		362	tooltip => "Spell points - deplete when you cast wizard spells, refills when you idle");
		363	$hb->add (my $gg = new CFClient::UI::Gauge type => 'grace',
		364	tooltip => "Grace points - deplete when you cast priest spells, refills when you pray");
		365	$hb->add (my $fg = new CFClient::UI::Gauge type => 'food',
		366	tooltip => "Food - depletes with time, faster when you heal or build mana, refills when you eat healthy food");
		367
		368	$vbox->add (my $exp = new CFClient::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1,
		369	tooltip => "Experience points and level - increases when you kill monsters or successfully use skills");
		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.)");
		372
		373	$GAUGES = {
		374	exp => $exp, win => $win, range => $rng,
		375	food => $fg, mana => $mg, hp => $hg, grace => $gg
		376	};
		377
		378	&set_gauge_window_fontsize;
		379
		380	$win
		381	}
		382
		383	sub make_stats_window {
		384	my $tgw = new CFClient::UI::FancyFrame (x => $WIDTH * 2/5, y => 0, title => "Stats");
		385
		386	$tgw->add (my $vb = new CFClient::UI::VBox);
		387	$vb->add ($STATWIDS->{title} = new CFClient::UI::Label valign => 0, align => -1, text => "Title:", expand => 1);
		388	$vb->add ($STATWIDS->{map} = new CFClient::UI::Label valign => 0, align => -1, text => "Map:", expand => 1);
		389
		390	$vb->add (my $hb = new CFClient::UI::HBox expand => 1);
		391
		392	$hb->add (my $tbl = new CFClient::UI::Table expand => 1);
		393
		394	my $black = [0, 0, 0];
		395
		396	$tbl->add (0, 0, $STATWIDS->{st_str} = new CFClient::UI::Label valign => 0, align => +1, template => "30");
		397	$tbl->add (0, 1, $STATWIDS->{st_dex} = new CFClient::UI::Label valign => 0, align => +1, template => "30");
		398	$tbl->add (0, 2, $STATWIDS->{st_con} = new CFClient::UI::Label valign => 0, align => +1, template => "30");
		399	$tbl->add (0, 3, $STATWIDS->{st_int} = new CFClient::UI::Label valign => 0, align => +1, template => "30");
		400	$tbl->add (0, 4, $STATWIDS->{st_wis} = new CFClient::UI::Label valign => 0, align => +1, template => "30");
		401	$tbl->add (0, 5, $STATWIDS->{st_pow} = new CFClient::UI::Label valign => 0, align => +1, template => "30");
		402	$tbl->add (0, 6, $STATWIDS->{st_cha} = new CFClient::UI::Label valign => 0, align => +1, template => "30");
		403
		404	$tbl->add (1, 0, $STATWIDS->{st_str_lbl} = new CFClient::UI::Label fg => $black, valign => 0, align => -1, text => "Str");
		405	$tbl->add (1, 1, $STATWIDS->{st_dex_lbl} = new CFClient::UI::Label fg => $black, valign => 0, align => -1, text => "Dex");
		406	$tbl->add (1, 2, $STATWIDS->{st_con_lbl} = new CFClient::UI::Label fg => $black, valign => 0, align => -1, text => "Con");
		407	$tbl->add (1, 3, $STATWIDS->{st_int_lbl} = new CFClient::UI::Label fg => $black, valign => 0, align => -1, text => "Int");
		408	$tbl->add (1, 4, $STATWIDS->{st_wis_lbl} = new CFClient::UI::Label fg => $black, valign => 0, align => -1, text => "Wis");
		409	$tbl->add (1, 5, $STATWIDS->{st_pow_lbl} = new CFClient::UI::Label fg => $black, valign => 0, align => -1, text => "Pow");
		410	$tbl->add (1, 6, $STATWIDS->{st_cha_lbl} = new CFClient::UI::Label fg => $black, valign => 0, align => -1, text => "Cha");
		411
		412	$tbl->add (2, 0, $STATWIDS->{st_wc} = new CFClient::UI::Label valign => 0, align => +1, template => "-120");
		413	$tbl->add (2, 1, $STATWIDS->{st_ac} = new CFClient::UI::Label valign => 0, align => +1, template => "-120");
		414	$tbl->add (2, 2, $STATWIDS->{st_dam} = new CFClient::UI::Label valign => 0, align => +1, template => "120");
		415	$tbl->add (2, 3, $STATWIDS->{st_arm} = new CFClient::UI::Label valign => 0, align => +1, template => "120");
		416	$tbl->add (2, 4, $STATWIDS->{st_spd} = new CFClient::UI::Label valign => 0, align => +1, template => "10.54");
		417	$tbl->add (2, 5, $STATWIDS->{st_wspd} = new CFClient::UI::Label valign => 0, align => +1, template => "9");
		418
		419	$tbl->add (3, 0, $STATWIDS->{st_wc_lbl} = new CFClient::UI::Label fg => $black, valign => 0, align => -1, text => "Wc");
		420	$tbl->add (3, 1, $STATWIDS->{st_ac_lbl} = new CFClient::UI::Label fg => $black, valign => 0, align => -1, text => "Ac");
		421	$tbl->add (3, 2, $STATWIDS->{st_dam_lbl} = new CFClient::UI::Label fg => $black, valign => 0, align => -1, text => "Dam");
		422	$tbl->add (3, 3, $STATWIDS->{st_arm_lbl} = new CFClient::UI::Label fg => $black, valign => 0, align => -1, text => "Arm");
		423	$tbl->add (3, 4, $STATWIDS->{st_spd_lbl} = new CFClient::UI::Label fg => $black, valign => 0, align => -1, text => "Sp");
		424	$tbl->add (3, 5, $STATWIDS->{st_wspd_lbl} = new CFClient::UI::Label fg => $black, valign => 0, align => -1, text => "WSp");
		425
		426	$hb->add (my $tbl2 = new CFClient::UI::Table expand => 1);
		427
		428	my $row = 0;
		429	my $col = 0;
		430
		431	my %resist_names = (
		432	slow => "Slow",
		433	holyw => "Holy Word",
		434	conf => "Confusion",
		435	fire => "Fire",
		436	depl => "Depletion",
		437	magic => "Magic",
		438	drain => "Draining",
		439	acid => "Acid",
		440	pois => "Poison",
		441	para => "Paralysation",
		442	deat => "Death",
		443	phys => "Physical",
		444	blind => "Blind",
		445	fear => "Fear",
		446	tund => "Turn undead",
		447	elec => "Electricity",
		448	cold => "Cold",
		449	ghit => "Ghost hit",
		450	);
		451	for (qw/slow holyw conf fire depl magic
		452	drain acid pois para deat phys
		453	blind fear tund elec cold ghit/)
		454	{
		455	$tbl2->add ($col, $row,
		456	$STATWIDS->{"res_$_"} =
		457	new CFClient::UI::Label
		458	template => "-100%",
		459	align => +1,
		460	valign => 0,
		461	tooltip => $resist_names{$_}
		462	);
		463	$tbl2->add ($col + 1, $row, new CFClient::UI::Image
		464	can_hover => 1,
		465	can_events => 1,
		466	image => "ui/resist/resist_$_.png",
		467	tooltip => $resist_names{$_}
		468	);
		469
		470	$row++;
		471	if ($row % 6 == 0) {
		472	$col += 2;
		473	$row = 0;
		474	}
		475	}
		476
		477	&set_stats_window_fontsize;
		478	update_stats_window ({});
		479
		480	$tgw
		481	}
		482
		483	sub formsep {
		484	reverse join ",", grep length, split /(...)/, reverse $_[0] * 1
		485	}
		486
		487	sub update_stats_window {
		488	my ($stats) = @_;
		489
		490	# i love text protocols!!!
		491	my $hp = $stats->{Crossfire::Protocol::CS_STAT_HP} * 1;
		492	my $hp_m = $stats->{Crossfire::Protocol::CS_STAT_MAXHP} * 1;
		493	my $sp = $stats->{Crossfire::Protocol::CS_STAT_SP} * 1;
		494	my $sp_m = $stats->{Crossfire::Protocol::CS_STAT_MAXSP} * 1;
		495	my $fo = $stats->{Crossfire::Protocol::CS_STAT_FOOD} * 1;
		496	my $fo_m = 999;
		497	my $gr = $stats->{Crossfire::Protocol::CS_STAT_GRACE} * 1;
		498	my $gr_m = $stats->{Crossfire::Protocol::CS_STAT_MAXGRACE} * 1;
		499
		500	$GAUGES->{hp} ->set_value ($hp, $hp_m);
		501	$GAUGES->{mana} ->set_value ($sp, $sp_m);
		502	$GAUGES->{food} ->set_value ($fo, $fo_m);
		503	$GAUGES->{grace} ->set_value ($gr, $gr_m);
		504	$GAUGES->{exp} ->set_text ("Exp: " . (formsep $stats->{Crossfire::Protocol::CS_STAT_EXP64})
		505	. " (lvl " . ($stats->{Crossfire::Protocol::CS_STAT_LEVEL} * 1) . ")");
		506	my $rng = $stats->{Crossfire::Protocol::CS_STAT_RANGE};
		507	$rng =~ s/^Range: //; # thank you so much dear server
		508	$GAUGES->{range} ->set_text ("Rng: " . $rng);
		509	my $title = $stats->{Crossfire::Protocol::CS_STAT_TITLE};
		510	$title =~ s/^Player: //;
		511	$STATWIDS->{title} ->set_text ("Title: " . $title);
		512
		513	$STATWIDS->{st_str} ->set_text (sprintf "%d", $stats->{5});
		514	$STATWIDS->{st_dex} ->set_text (sprintf "%d", $stats->{8});
		515	$STATWIDS->{st_con} ->set_text (sprintf "%d", $stats->{9});
		516	$STATWIDS->{st_int} ->set_text (sprintf "%d", $stats->{6});
		517	$STATWIDS->{st_wis} ->set_text (sprintf "%d", $stats->{7});
		518	$STATWIDS->{st_pow} ->set_text (sprintf "%d", $stats->{22});
		519	$STATWIDS->{st_cha} ->set_text (sprintf "%d", $stats->{10});
		520	$STATWIDS->{st_wc} ->set_text (sprintf "%d", $stats->{13});
		521	$STATWIDS->{st_ac} ->set_text (sprintf "%d", $stats->{14});
		522	$STATWIDS->{st_dam} ->set_text (sprintf "%d", $stats->{15});
		523	$STATWIDS->{st_arm} ->set_text (sprintf "%d", $stats->{16});
		524	$STATWIDS->{st_spd} ->set_text (sprintf "%.1f", $stats->{Crossfire::Protocol::CS_STAT_SPEED});
		525	$STATWIDS->{st_wspd}->set_text (sprintf "%.1f", $stats->{Crossfire::Protocol::CS_STAT_WEAP_SP});
		526
		527	my %tbl = (
		528	phys => 100,
		529	magic => 101,
		530	fire => 102,
		531	elec => 103,
		532	cold => 104,
		533	conf => 105,
		534	acid => 106,
		535	drain => 107,
		536	ghit => 108,
		537	pois => 109,
		538	slow => 110,
		539	para => 111,
		540	tund => 112,
		541	fear => 113,
		542	depl => 113,
		543	deat => 115,
		544	holyw => 116,
		545	blind => 117
		546	);
		547
		548	for (keys %tbl) {
		549	$STATWIDS->{"res_$_"}->set_text (sprintf "%d%", $stats->{$tbl{$_}});
		550	}
		551
192	}	552	}
193		553
194	sub metaserver_dialog {	554	sub metaserver_dialog {
195	my $dialog = new CFClient::UI::FancyFrame	555	my $dialog = new CFClient::UI::FancyFrame
196	title => "Metaserver",	556	title => "Metaserver",
…		…
199	$vbox->add ($dialog->{table} = new CFClient::UI::Table);	559	$vbox->add ($dialog->{table} = new CFClient::UI::Table);
200		560
201	$dialog	561	$dialog
202	}	562	}
203		563
		564	my $METASERVER_ATIME;
		565
204	sub update_metaserver {	566	sub update_metaserver {
205	my ($HOST) = @_;	567	my ($HOST) = @_;
206		568
207	status "fetching metaserver list...";	569	return if $METASERVER_ATIME > time;
		570	$METASERVER_ATIME = time + 60;
		571
		572	my $table = $METASERVER->{table};
		573	$table->clear;
		574	$table->add (0, 0, my $label = new CFClient::UI::Label max_w => $WIDTH * 0.8, text => "fetching server list...");
208		575
209	my $buf;	576	my $buf;
210		577
211	my $fh = new IO::Socket::INET PeerHost => $META_SERVER, Blocking => 0;	578	my $fh = new IO::Socket::INET PeerHost => $META_SERVER, Blocking => 0;
		579
		580	unless ($fh) {
		581	$label->set_text ("unable to contact metaserver: $!");
		582	return;
		583	}
212		584
213	Event->io (fd => $fh, poll => 'r', cb => sub {	585	Event->io (fd => $fh, poll => 'r', cb => sub {
214	my $res = sysread $fh, $buf, 8192, length $buf;	586	my $res = sysread $fh, $buf, 8192, length $buf;
215		587
216	if (!defined $res) {	588	if (!defined $res) {
217	$_[0]->w->cancel;	589	$_[0]->w->cancel;
218	status "metaserver: $!";	590	$label->set_text ("error while retrieving server list: $!");
219	} elsif ($res == 0) {	591	} elsif ($res == 0) {
220	$_[0]->w->cancel;	592	$_[0]->w->cancel;
221	status "server list retrieved";	593	status "server list retrieved";
222		594
223	my $table = $METASERVER->{table};	595	utf8::decode $buf if utf8::valid $buf;
224		596
225	$table->clear;	597	$table->clear;
226		598
227	my @col = qw(Use #Users Host Uptime Version Description);	599	my @col = qw(Use #Users Host Uptime Version Description);
228	$table->add ($_, 0, new CFClient::UI::Label align => 0, fg => [1, 1, 0], text => $col[$_])	600	$table->add ($_, 0, new CFClient::UI::Label align => 0, fg => [1, 1, 0], text => $col[$_])
…		…
252	$m = [$users, $host, $uptime, $version, $desc];	624	$m = [$users, $host, $uptime, $version, $desc];
253		625
254	$y++;	626	$y++;
255		627
256	$table->add (0, $y, new CFClient::UI::VBox children => [	628	$table->add (0, $y, new CFClient::UI::VBox children => [
257	(new CFClient::UI::Button text => " ", connect_activate => sub {	629	(new CFClient::UI::Button text => "Use", connect_activate => sub {
258	$HOST->set_text ($CFG->{host} = $host);	630	$HOST->set_text ($CFG->{host} = $host);
259	}),	631	}),
260	(new CFClient::UI::Empty expand => 1),	632	(new CFClient::UI::Empty expand => 1),
261	]);	633	]);
262		634
…		…
276	$table->add (0, 2, new CFClient::UI::Label valign => 0, align => 1, text => "Host:Port");	648	$table->add (0, 2, new CFClient::UI::Label valign => 0, align => 1, text => "Host:Port");
277		649
278	{	650	{
279	$table->add (1, 2, my $vbox = new CFClient::UI::VBox);	651	$table->add (1, 2, my $vbox = new CFClient::UI::VBox);
280		652
281	$vbox->add (my $HOST = new CFClient::UI::Entry expand => 1, text => $CFG->{host}, connect_changed => sub {	653	$vbox->add (
		654	my $HOST = new CFClient::UI::Entry
		655	expand => 1,
		656	text => $CFG->{host},
		657	tooltip => "The hostname or ip address of the Crossfire(+) server to connect to",
		658	connect_changed => sub {
		659	my ($self, $value) = @_;
		660	$CFG->{host} = $value;
		661	}
		662	);
		663
		664	$METASERVER = metaserver_dialog;
		665
		666	$vbox->add (new CFClient::UI::Flopper
		667	expand => 1,
		668	text => "Metaserver",
		669	other => $METASERVER,
		670	tooltip => "Show a list of avaible crossfire servers",
		671	connect_open => sub {
		672	update_metaserver $HOST;
		673	}
		674	);
		675	}
		676
		677	$table->add (0, 4, new CFClient::UI::Label valign => 0, align => 1, text => "Username");
		678	$table->add (1, 4, new CFClient::UI::Entry
		679	text => $CFG->{user},
		680	tooltip => "The name of your character on the server",
		681	connect_changed => sub {
282	my ($self, $value) = @_;	682	my ($self, $value) = @_;
283	$CFG->{host} = $value;
284	});
285
286	$METASERVER = metaserver_dialog;
287
288	$vbox->add (new CFClient::UI::Flopper expand => 1, text => "Metaserver", other => $METASERVER, connect_open => sub {
289	update_metaserver $HOST;
290	});
291	}
292
293	$table->add (0, 4, new CFClient::UI::Label valign => 0, align => 1, text => "Username");
294	$table->add (1, 4, new CFClient::UI::Entry text => $CFG->{user}, connect_changed => sub {
295	my ($self, $value) = @_;
296	$CFG->{user} = $value;	683	$CFG->{user} = $value;
		684	}
297	});	685	);
298		686
299	$table->add (0, 5, new CFClient::UI::Label valign => 0, align => 1, text => "Password");	687	$table->add (0, 5, new CFClient::UI::Label valign => 0, align => 1, text => "Password");
300	$table->add (1, 5, new CFClient::UI::Entry text => $CFG->{password}, hidden => 1, connect_changed => sub {	688	$table->add (1, 5, new CFClient::UI::Entry
		689	text => $CFG->{password},
		690	hidden => 1,
		691	tooltip => "The password for your character",
		692	connect_changed => sub {
301	my ($self, $value) = @_;	693	my ($self, $value) = @_;
302	$CFG->{password} = $value;	694	$CFG->{password} = $value;
		695	}
303	});	696	);
304		697
305	$table->add (0, 6, new CFClient::UI::Label valign => 0, align => 1, text => "Def. say cmd");	698	$table->add (0, 6, new CFClient::UI::Label valign => 0, align => 1, text => "Def. say cmd");
306	$table->add (1, 6, my $saycmd = new CFClient::UI::Entry text => $CFG->{say_command}, connect_changed => sub {	699	$table->add (1, 6, my $saycmd = new CFClient::UI::Entry
		700	text => $CFG->{say_command},
		701	tooltip => "This is the command that will be used if you write a line in the message window entry. "
		702	."Usually you want to enter something like 'say' or 'shout' or 'gsay' here. "
		703	."But you could also set it to 'tell <playername>' to only chat with that user.",
		704	connect_changed => sub {
307	my ($self, $value) = @_;	705	my ($self, $value) = @_;
308	$CFG->{say_command} = $value;	706	$CFG->{say_command} = $value;
		707	}
309	});	708	);
310		709
311	$table->add (0, 7, new CFClient::UI::Label valign => 0, align => 1, text => "Map Size");	710	$table->add (0, 7, new CFClient::UI::Label valign => 0, align => 1, text => "Map Size");
312	$table->add (1, 7, new CFClient::UI::Slider	711	$table->add (1, 7, new CFClient::UI::Slider
313	req_w => 100,	712	req_w => 100,
314	range => [$CFG->{mapsize}, 10, 100 + 1, 1],	713	range => [$CFG->{mapsize}, 10, 100 + 1, 1],
		714	tooltip => "This is the size of the portion of the map update the server sends you. "
		715	."If you set this to a high value you will be able to see further for example.",
315	connect_changed => sub {	716	connect_changed => sub {
316	my ($self, $value) = @_;	717	my ($self, $value) = @_;
317		718
318	$CFG->{mapsize} = $self->{range}[0] = $value = int $value;	719	$CFG->{mapsize} = $self->{range}[0] = $value = int $value;
319	},	720	},
…		…
335	user_h => int $::HEIGHT / 5,	736	user_h => int $::HEIGHT / 5,
336	child => (my $vbox = new CFClient::UI::VBox);	737	child => (my $vbox = new CFClient::UI::VBox);
337		738
338	$vbox->add ($LOGVIEW = new CFClient::UI::TextView	739	$vbox->add ($LOGVIEW = new CFClient::UI::TextView
339	expand => 1,	740	expand => 1,
		741	font => $FONT_FIXED,
340	fontsize => $::CFG->{log_fontsize},	742	fontsize => $::CFG->{log_fontsize},
341	);	743	);
342		744
343	$vbox->add (my $input = new CFClient::UI::Entry	745	$vbox->add (my $input = new CFClient::UI::Entry
344	connect_focus_in => sub {	746	connect_focus_in => sub {
…		…
438		840
439	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Client Setup", other => client_setup);	841	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Client Setup", other => client_setup);
440	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Server Setup", other => server_setup);	842	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Server Setup", other => server_setup);
441	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Message Window", other => message_window);	843	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Message Window", other => message_window);
442		844
		845	$CFClient::UI::ROOT->add (make_gauge_window); # XXX: this has to be set before make_stats_window as make_stats_window calls update_stats_window which updated the gauges also X-D
		846	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Stats Window", other => make_stats_window);
		847
443	$BUTTONBAR->add (new CFClient::UI::Button text => "Save Config", connect_activate => sub {	848	$BUTTONBAR->add (new CFClient::UI::Button text => "Save Config", connect_activate => sub {
444	CFClient::write_cfg "$Crossfire::VARDIR/pclientrc";	849	CFClient::write_cfg "$Crossfire::VARDIR/pclientrc";
445	status "Configuration Saved";	850	status "Configuration Saved";
446	});	851	});
447		852
448	$BUTTONBAR->{children}[1]->emit ("activate"); # pop up server setup	853	$BUTTONBAR->{children}[1]->emit ("activate"); # pop up server setup
449
450	my $tgw = new CFClient::UI::FancyFrame (x => $WIDTH - 300, y => 0, title => "Stats");
451	$tgw->add (my $hbox = new CFClient::UI::HBox ());
452
453	$hbox->add (my $hg = new CFClient::UI::Gauge (type => 'hp'));
454	$hbox->add (my $mg = new CFClient::UI::Gauge (type => 'mana'));
455	$hbox->add (my $gg = new CFClient::UI::Gauge (type => 'grace'));
456	$hbox->add (my $fg = new CFClient::UI::Gauge (type => 'food'));
457
458	$GAUGES = { food => $fg, mana => $mg, hp => $hg, grace => $gg };
459	$CFClient::UI::ROOT->add ($tgw);
460	}	854	}
461		855
462	sub video_shutdown {	856	sub video_shutdown {
463	$CFClient::UI::ROOT->{children} = [];	857	$CFClient::UI::ROOT->{children} = [];
		858	undef $CFClient::UI::GRAB;
		859	undef $CFClient::UI::HOVER;
464	undef $SDL_ACTIVE;	860	undef $SDL_ACTIVE;
465	}	861	}
466		862
467	my @bgmusic = qw(game1.ogg game2.ogg game3.ogg game5.ogg game6.ogg ross1.ogg ross2.ogg ross3.ogg ross4.ogg ross5.ogg); #d#	863	my @bgmusic = qw(game1.ogg game2.ogg game3.ogg game5.ogg game6.ogg ross1.ogg ross2.ogg ross3.ogg ross4.ogg ross5.ogg); #d#
468	my $bgmusic;#TODO#hack#d#	864	my $bgmusic;#TODO#hack#d#
…		…
478	}	874	}
479		875
480	sub audio_init {	876	sub audio_init {
481	if ($CFG->{audio_enable}) {	877	if ($CFG->{audio_enable}) {
482	if (open my $fh, "<:utf8", CFClient::find_rcfile "sounds/config") {	878	if (open my $fh, "<:utf8", CFClient::find_rcfile "sounds/config") {
483
484	$SDL_MIXER = !CFClient::Mix_OpenAudio;	879	$SDL_MIXER = !CFClient::Mix_OpenAudio;
485	CFClient::Mix_AllocateChannels 8;	880	CFClient::Mix_AllocateChannels 8;
486	CFClient::MixMusic::volume $CFG->{bgm_volume} * 128;	881	CFClient::MixMusic::volume $CFG->{bgm_volume} * 128;
487		882
488	audio_music_finished;	883	audio_music_finished;
…		…
571	@conn::ISA = Crossfire::Protocol::;	966	@conn::ISA = Crossfire::Protocol::;
572		967
573	sub conn::stats_update {	968	sub conn::stats_update {
574	my ($self, $stats) = @_;	969	my ($self, $stats) = @_;
575		970
576	# i love text protocols!!!	971	update_stats_window ($stats);
577	# FIXME: the stats are somehow weird
578	my $hp = $stats->{1};
579	my $hp_m = $stats->{2};
580	my $sp = $stats->{3};
581	my $sp_m = $stats->{4};
582	my $fo = $stats->{18};
583	my $fo_m = 999;
584	my $gr = $stats->{23};
585	my $gr_m = $stats->{24};
586
587	#d# warn "DATA $hp $hp_m $sp $sp_m $fo $fo_m $gr $gr_m\n";
588	$GAUGES->{hp} ->set_value ($hp, $hp_m);
589	$GAUGES->{mana} ->set_value ($sp, $sp_m);
590	$GAUGES->{food} ->set_value ($fo, $fo_m);
591	$GAUGES->{grace}->set_value ($gr, $gr_m);
592	}	972	}
593		973
594	sub conn::user_send {	974	sub conn::user_send {
595	my ($self, $command) = @_;	975	my ($self, $command) = @_;
596		976
…		…
726		1106
727	$x += $ox;	1107	$x += $ox;
728	$y += $oy;	1108	$y += $oy;
729		1109
730	$self->{map_info} = [$hash, $x, $y, $w, $h];	1110	$self->{map_info} = [$hash, $x, $y, $w, $h];
		1111
		1112	my $map = $self->{map_info}[0];
		1113	$map =~ s/^.*?\/([^\/]+)$/\1/;
		1114	$STATWIDS->{map}->set_text ("Map: " . $map);
731		1115
732	$self->load_map ($hash, $x, $y);	1116	$self->load_map ($hash, $x, $y);
733	}	1117	}
734		1118
735	sub conn::face_find {	1119	sub conn::face_find {
…		…
761	}	1145	}
762		1146
763	gotid:	1147	gotid:
764	$face->{id} = $id;	1148	$face->{id} = $id;
765	$MAP->set_face ($facenum => $id);	1149	$MAP->set_face ($facenum => $id);
		1150	$self->{faceid}[$facenum] = $id;#d#
766	$TILECACHE->get ($id)	1151	$TILECACHE->get ($id)
767	}	1152	}
768		1153
769	sub conn::face_update {	1154	sub conn::face_update {
770	my ($self, $facenum, $face) = @_;	1155	my ($self, $facenum, $face) = @_;
…		…
778	my ($self, $id, $data) = @_;	1163	my ($self, $id, $data) = @_;
779		1164
780	$self->{texture}[$id] \|\|= do {	1165	$self->{texture}[$id] \|\|= do {
781	my $tex =	1166	my $tex =
782	new_from_image CFClient::Texture	1167	new_from_image CFClient::Texture
783	$data, minify => 1;	1168	$data, minify => 1, mipmap => 1;
784		1169
785	$MAP->set_texture ($id, @$tex{qw(name w h s t)}, @{$tex->{minified}});	1170	$MAP->set_texture ($id, @$tex{qw(name w h s t)}, @{$tex->{minified}});
786	$MAPWIDGET->update;	1171	$MAPWIDGET->update;
787		1172
788	$tex	1173	$tex
…		…
800		1185
801	$chunk->play;	1186	$chunk->play;
802	# warn "sound $x,$y,$soundnum,$type\n";#d#	1187	# warn "sound $x,$y,$soundnum,$type\n";#d#
803	}	1188	}
804		1189
		1190	my $LAST_QUERY; # server is stupid, stupid, stupid
		1191
805	sub conn::query {	1192	sub conn::query {
806	my ($self, $flags, $prompt) = @_;	1193	my ($self, $flags, $prompt) = @_;
807		1194
808	#TODO, display dialog with relevant information	1195	$prompt = $LAST_QUERY unless length $prompt;
809	warn "<<<<QUERY:$flags:$prompt>>>\n";#d#	1196	$LAST_QUERY = $prompt;
		1197
		1198	my $dialog = new CFClient::UI::FancyFrame
		1199	title => "Query",
		1200	child => my $vbox = new CFClient::UI::VBox;
		1201
		1202	$vbox->add (new CFClient::UI::Label
		1203	max_w => $::WIDTH * 0.4,
		1204	text => $prompt);
		1205
		1206	if ($flags & Crossfire::Protocol::CS_QUERY_YESNO) {
		1207	$vbox->add (my $hbox = new CFClient::HBox);
		1208	$hbox->add (new CFClient::Button
		1209	text => "No",
		1210	connect_activate => sub {
		1211	$self->send ("reply n");
		1212	$dialog->destroy;
		1213	$MAPWIDGET->focus_in;
		1214	}
		1215	);
		1216	$hbox->add (new CFClient::Button
		1217	text => "Yes",
		1218	connect_activate => sub {
		1219	$self->send ("reply y");
		1220	$dialog->destroy;
		1221	$MAPWIDGET->focus_in;
		1222	},
		1223	);
		1224
		1225	$dialog->focus_in;
		1226
		1227	} elsif ($flags & Crossfire::Protocol::CS_QUERY_SINGLECHAR) {
		1228	$dialog->{tooltip} = "Press a key (click on the entry to make sure it has keyboard focus)";
		1229	$vbox->add (my $entry = new CFClient::UI::Entry
		1230	connect_changed => sub {
		1231	$self->send ("reply $_[1]");
		1232	$dialog->destroy;
		1233	$MAPWIDGET->focus_in;
		1234	},
		1235	);
		1236
		1237	$entry->focus_in;
		1238
		1239	} else {
		1240	$dialog->{tooltip} = "Enter the reply and press return (click on the entry to make sure it has keyboard focus)";
		1241
		1242	$vbox->add (my $entry = new CFClient::UI::Entry
		1243	$flags & Crossfire::Protocol::CS_QUERY_HIDEINPUT ? (hiddenchar => "*") : (),
		1244	connect_activate => sub {
		1245	$self->send ("reply $_[1]");
		1246	$dialog->destroy;
		1247	$MAPWIDGET->focus_in;
		1248	},
		1249	);
		1250
		1251	$entry->focus_in;
		1252	}
		1253
		1254	$dialog->show;
810	}	1255	}
811		1256
812	sub conn::drawinfo {	1257	sub conn::drawinfo {
813	my ($self, $color, $text) = @_;	1258	my ($self, $color, $text) = @_;
814		1259
…		…
832	}	1277	}
833		1278
834	sub conn::spell_add {	1279	sub conn::spell_add {
835	my ($self, $spell) = @_;	1280	my ($self, $spell) = @_;
836		1281
		1282	# TODO
		1283	# create a widget dynamically, using spell face (CF::Protocol downloads them)
837	$MAPWIDGET->add_command ("invoke $spell->{name}", $spell->{message}, sub {	1284	$MAPWIDGET->add_command ("invoke $spell->{name}", $spell->{message});
838	});
839	$MAPWIDGET->add_command ("cast $spell->{name}", $spell->{message}, sub {	1285	$MAPWIDGET->add_command ("cast $spell->{name}", $spell->{message});
840	});
841	}	1286	}
842		1287
843	sub conn::spell_delete {	1288	sub conn::spell_delete {
844	my ($self, $spell) = @_;	1289	my ($self, $spell) = @_;
845	}	1290	}
846		1291
847	sub conn::addme_success {	1292	sub conn::addme_success {
848	my ($self) = @_;	1293	my ($self) = @_;
849		1294
850	for my $skill (values %{$self->{skill_info}}) {	1295	for my $skill (values %{$self->{skill_info}}) {
851	$MAPWIDGET->add_command ("ready_skill $skill", "", sub {	1296	$MAPWIDGET->add_command ("ready_skill $skill", "Ready the skill '$skill'");
852	});	1297	$MAPWIDGET->add_command ("use_skill $skill", "Immediately use the skill '$skill'");
853	$MAPWIDGET->add_command ("use_skill $skill", "", sub {
854	});
855	}	1298	}
		1299	}
		1300
		1301	sub update_floorbox {
		1302	$CFClient::UI::ROOT->on_refresh ($FLOORBOX => sub {
		1303	$FLOORBOX->clear;
		1304	$FLOORBOX->add (new CFClient::UI::Empty expand => 1);
		1305
		1306	my @items = values %{ $CONN->{container}{0} };
		1307
		1308	# we basically have to use the same sorting as everybody else
		1309	@items = sort { $a->{type} <=> $b->{type} } @items;
		1310
		1311	for my $item (reverse @items) {
		1312	my $desc = $item->{nrof} < 2
		1313	? $item->{name}
		1314	: "$item->{nrof} $item->{name_pl}";
		1315	# todo: animation widget, face widget, weight(?) etc.
		1316	$FLOORBOX->add (my $hbox = new CFClient::UI::HBox
		1317	tooltip => (CFClient::UI::Label->escape ($desc)
		1318	. "\n<small>leftclick - pick up\nmiddle click - apply\nrightclick - menu</small>"),
		1319	can_hover => 1,
		1320	can_events => 1,
		1321	connect_button_down => sub {
		1322	my ($self, $ev, $x, $y) = @_;
		1323
		1324	# todo: maybe put examine on 1? but should just be a tooltip :(
		1325	if ($ev->{button} == 1) {
		1326	$CONN->send ("move $CONN->{player}{tag} $item->{tag} 0");
		1327	} elsif ($ev->{button} == 2) {
		1328	$CONN->send ("apply $item->{tag}");
		1329	} elsif ($ev->{button} == 3) {
		1330	# examine, lock, mark, maybe other things
		1331	warn "MENU not implemented yet\n";
		1332	}
		1333
		1334	1
		1335	},
		1336	);
		1337
		1338	$hbox->add (new CFClient::UI::Face
		1339	can_events => 0,
		1340	face => $item->{face},
		1341	anim => $item->{anim},
		1342	animspeed => $item->{animspeed},
		1343	);
		1344
		1345	$hbox->add (new CFClient::UI::Label
		1346	can_events => 0,
		1347	text => $desc,
		1348	);
		1349	}
		1350	});
		1351	refresh;
		1352	}
		1353
		1354	sub conn::container_add {
		1355	my ($self, $id, $items) = @_;
		1356
		1357	update_floorbox if $id == 0;
		1358	# $self-<{player}{tag} => player inv
		1359	#use PApp::Util; warn PApp::Util::dumpval $self->{container}{$self->{player}{tag}};
		1360	}
		1361
		1362	sub conn::container_clear {
		1363	my ($self, $id) = @_;
		1364
		1365	update_floorbox if $id == 0;
		1366	# use PApp::Util; warn PApp::Util::dumpval $self->{container}{0};
		1367	}
		1368
		1369	sub conn::item_delete {
		1370	my ($self, @items) = @_;
		1371
		1372	for (@items) {
		1373	update_floorbox if $_->{container} == 0;
		1374	}
		1375	}
		1376
		1377	sub conn::item_update {
		1378	my ($self, $item) = @_;
		1379
		1380	update_floorbox if $item->{container} == 0;
856	}	1381	}
857		1382
858	%SDL_CB = (	1383	%SDL_CB = (
859	CFClient::SDL_QUIT => sub {	1384	CFClient::SDL_QUIT => sub {
860	Event::unloop -1;	1385	Event::unloop -1;
…		…
895	sdl_mode => 0,	1420	sdl_mode => 0,
896	width => 640,	1421	width => 640,
897	height => 480,	1422	height => 480,
898	fullscreen => 0,	1423	fullscreen => 0,
899	fast => 0,	1424	fast => 0,
		1425	map_scale => 0.5,
900	fow_enable => 1,	1426	fow_enable => 1,
901	fow_intensity => 0.45,	1427	fow_intensity => 0.45,
902	fow_smooth => 0,	1428	fow_smooth => 0,
903	gui_fontsize => 1,	1429	gui_fontsize => 1,
904	log_fontsize => 14,	1430	log_fontsize => 1,
		1431	gauge_fontsize => 1,
		1432	gauge_size => 0.35,
		1433	stat_fontsize => 1,
905	mapsize => 100,	1434	mapsize => 100,
906	host => "crossfire.schmorp.de",	1435	host => "crossfire.schmorp.de",
907	say_command => 'say',	1436	say_command => 'say',
908	audio_enable => 1,	1437	audio_enable => 1,
909	bgm_enable => 1,	1438	bgm_enable => 1,
…		…
923	@SDL_MODES or CFClient::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)";	1452	@SDL_MODES or CFClient::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)";
924		1453
925	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES;	1454	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES;
926		1455
927	{	1456	{
928	my @fonts = map CFClient::find_rcfile $_, qw(uifont.ttf uifontb.ttf uifonti.ttf uifontbi.ttf);	1457	my @fonts = map CFClient::find_rcfile "fonts/$_", qw(
		1458	DejaVuSans.ttf
		1459	DejaVuSansMono.ttf
		1460	DejaVuSans-Bold.ttf
		1461	DejaVuSansMono-Bold.ttf
		1462	DejaVuSans-Oblique.ttf
		1463	DejaVuSansMono-Oblique.ttf
		1464	DejaVuSans-BoldOblique.ttf
		1465	DejaVuSansMono-BoldOblique.ttf
		1466	);
929		1467
930	CFClient::add_font $_ for @fonts;	1468	CFClient::add_font $_ for @fonts;
931	CFClient::set_font $fonts[0];	1469
		1470	$FONT_PROP = new_from_file CFClient::Font $fonts[0];
		1471	$FONT_FIXED = new_from_file CFClient::Font $fonts[1];
		1472
		1473	$FONT_PROP->make_default;
932	}	1474	}
933		1475
934	video_init;	1476	video_init;
935	audio_init;	1477	audio_init;
936		1478
937	Event::loop;	1479	Event::loop;
938		1480
939	END { CFClient::SDL_Quit }	1481	END { CFClient::SDL_Quit }
940		1482
		1483	=head1 pclient - Crossfire+ and Crossfire game client
941		1484
		1485	Pclient is a Crossfire+ and Crossfire game client.
		1486
		1487	=head2 Features
		1488
		1489	=over 4
		1490
		1491	=item Fullscreen Map
		1492
		1493	PClient can uses a fullscreen map, which greatly enhances how much of the
		1494	game world you can see.
		1495
		1496	=item Persistent Map Cache (Crossfire+ only)
		1497
		1498	PClient can persistently cache all map data it received from the
		1499	server. This not only allows it to display an overview map, but also
		1500	ensures that once-explored areas will be available the next time you want
		1501	to explore more.
		1502
		1503	=item Hardware acceleration
		1504
		1505	Unlike most Crossfire clients, PClient take advantage of OpenGL hardware
		1506	acceleration. Most modern graphics cards have difficulties with 2D
		1507	acceleration, while 3D graphics is accelerated well.
		1508
		1509	=item No arbitrary limits
		1510
		1511	Unlike other Crossfire clients, pclient does not suffer from arbitrary
		1512	limits (like a fixed amount of face numbers). There are still limits, but
		1513	they are not arbitrarily low :)
		1514
		1515	=back
		1516
		1517	=head1 USAGE
		1518
		1519	=head2 The Map
		1520
		1521	The map is always displayed in the background, behind all other windows and UI elements.
		1522
		1523	#TODO# middle-click scrolls
		1524	#
		1525	# keys:
		1526	#
		1527	# a apply
		1528	# keypad moves, kp_5 applies ranged attack to self
		1529
		1530	Starting to type enters the I<completion mode>. In that mode, you can type
		1531	abbreviations or commands and have them executed as soon as they match a
		1532	valid command. This is best explained by a few examples:
		1533
		1534	Typing B<climb> will display a list of commands with I<climb> in their
		1535	name, such as I<ready_skill climbing> and I<use_skill climbing>.
		1536
		1537	You can abbreviate commands by typing only the first character of every
		1538	word. For example, typing I<iwor> will likely select I<invoke word of
		1539	recall>, while I<ccfo> will select I<cast create food>. Likewise, I<rscli>
		1540	will likely select I<ready_skill climbing> and I<usl> will give you
		1541	I<use_skill levitation>.
		1542
		1543	=head2 The map overview
		1544
		1545	#TODO#
		1546
		1547	=head2 The Status area in the lower right corner
		1548
		1549	#TODO#
		1550
		1551	=head2 The I<Statistics>/I>Stats> window
		1552
		1553	#TODO#
		1554
		1555	=head1 FAQ
		1556
		1557	=over 4
		1558
		1559	=item The client is very sluggish and slow, what can I do about this?
		1560
		1561	Most likely, you don't have accelerated OpenGL support. Try to find a
		1562	newer driver, or a driver from your hardware vendor, that features OpenGL
		1563	support.
		1564
		1565	If this is not an option, the following Setup options reduce the load and
		1566	will likely make the client playable with sofwtare rendering (it will
		1567	still be slow, though):
		1568
		1569	=over 4
		1570
		1571	=item B<Video Mode> should be set as low as possible (e.g. 640x480)
		1572
		1573	=item Enable B<Fast & Ugly> mode
		1574
		1575	=item Disable B<Fog of War>
		1576
		1577	=item Increase B<Map Scale>
		1578
		1579	=back
		1580
		1581	=back
		1582
		1583	=head1 AUTHOR
		1584
		1585	Marc Lehmann <crossfire@schmorp.de>, Robin Redeker <elmex@ta-sa.org>
		1586
		1587
		1588

Diff Legend

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

Comparing deliantra/Deliantra-Client/bin/pclient (file contents): Revision 1.153 by root, Thu Apr 20 09:13:32 2006 UTC vs. Revision 1.179 by root, Tue Apr 25 09:52:05 2006 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/bin/pclient (file contents):
Revision 1.153 by root, Thu Apr 20 09:13:32 2006 UTC vs.
Revision 1.179 by root, Tue Apr 25 09:52:05 2006 UTC