ViewVC Help

View File | Revision Log | Show Annotations | Download File

/cvs/deliantra/Deliantra-Client/bin/pclient

Comparing deliantra/Deliantra-Client/bin/pclient (file contents):
Revision 1.191 by elmex, Fri Apr 28 05:17:24 2006 UTC vs.
Revision 1.249 by root, Thu May 25 02:23:14 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		5
		6	# do things only needed for single-binary version (par)
6	BEGIN {	7	BEGIN {
7	if (%PAR::LibCache) {	8	if (%PAR::LibCache) {
8	@INC = grep ref, @INC; # weed out all paths except pars loader refs	9	@INC = grep ref, @INC; # weed out all paths except pars loader refs
9		10
10	while (my ($filename, $zip) = each %PAR::LibCache) {	11	while (my ($filename, $zip) = each %PAR::LibCache) {
…		…
13	$zip->extractMember ($_, "$ENV{PAR_TEMP}/$1")	14	$zip->extractMember ($_, "$ENV{PAR_TEMP}/$1")
14	unless -e "$ENV{PAR_TEMP}/$1";	15	unless -e "$ENV{PAR_TEMP}/$1";
15	}	16	}
16	}	17	}
17		18
		19	# TODO: pango-rc file, anybody?
		20
18	unshift @INC, $ENV{PAR_TEMP};	21	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	}	22	}
24	}	23	}
25		24
26	# need to do it again because that pile of garbage called PAR nukes it before main	25	# need to do it again because that pile of garbage called PAR nukes it before main
27	unshift @INC, $ENV{PAR_TEMP};	26	unshift @INC, $ENV{PAR_TEMP}
		27	if %PAR::LibCache;
28		28
29	use Time::HiRes 'time';	29	use Time::HiRes 'time';
		30	use Pod::POM;
30	use Event;	31	use Event;
31		32
32	use Crossfire;	33	use Crossfire;
33	use Crossfire::Protocol;	34	use Crossfire::Protocol;
34		35
…		…
37	use CFClient;	38	use CFClient;
38	use CFClient::UI;	39	use CFClient::UI;
39	use CFClient::MapWidget;	40	use CFClient::MapWidget;
40		41
41	$Event::DIED = sub {	42	$Event::DIED = sub {
		43	# TODO: display dialog box or so
42	CFClient::error $_[1];	44	CFClient::error $_[1];
43	};	45	};
44		46
45	#$SIG{__WARN__} = sub { Carp::cluck $_[0] };#d#	47	#$SIG{__WARN__} = sub { Carp::cluck $_[0] };#d#
46		48
…		…
59	our $NOW;	61	our $NOW;
60		62
61	our $CFG;	63	our $CFG;
62	our $CONN;	64	our $CONN;
63	our $FAST; # fast, low-quality mode, possibly useful for software-rendering	65	our $FAST; # fast, low-quality mode, possibly useful for software-rendering
		66
		67	our $WANT_REFRESH;
		68	our $CAN_REFRESH;
64		69
65	our @SDL_MODES;	70	our @SDL_MODES;
66	our $WIDTH;	71	our $WIDTH;
67	our $HEIGHT;	72	our $HEIGHT;
68	our $FULLSCREEN;	73	our $FULLSCREEN;
…		…
76	our $MAPWIDGET;	81	our $MAPWIDGET;
77	our $BUTTONBAR;	82	our $BUTTONBAR;
78	our $LOGVIEW;	83	our $LOGVIEW;
79	our $CONSOLE;	84	our $CONSOLE;
80	our $METASERVER;	85	our $METASERVER;
		86	our $LOGIN_BUTTON;
		87	our $QUIT_DIALOG;
81		88
82	our $FLOORBOX;	89	our $FLOORBOX;
83	our $GAUGES;	90	our $GAUGES;
84	our $STATWIDS;	91	our $STATWIDS;
85		92
…		…
89	our $SDL_MIXER;	96	our $SDL_MIXER;
90	our @SOUNDS; # event => file mapping	97	our @SOUNDS; # event => file mapping
91	our %AUDIO_CHUNKS; # audio files	98	our %AUDIO_CHUNKS; # audio files
92		99
93	our $ALT_ENTER_MESSAGE;	100	our $ALT_ENTER_MESSAGE;
94	our $STATUS_LINE;	101	our $STATUSBOX;
95	our $DEBUG_STATUS;	102	our $DEBUG_STATUS;
96		103
97	our $INVWIN;	104	our $INVWIN;
98	our $INV;	105	our $INV;
		106	our $INVR;
		107	our $INVR_LBL;
		108	our $OPENCONT;
99		109
100	sub status {	110	sub status {
101	$STATUS_LINE->set_text ($_[0]);	111	$STATUSBOX->add (CFClient::UI::Label::escape $_[0], pri => -10, group => "status", timeout => 20, fg => [1, 1, 0, 1]);
102	$STATUS_LINE->move (0, $HEIGHT - $ALT_ENTER_MESSAGE->{h} - $STATUS_LINE->{h});
103	}	112	}
104		113
105	sub debug {	114	sub debug {
106	$DEBUG_STATUS->set_text ($_[0]);	115	$DEBUG_STATUS->set_text ($_[0]);
107	$DEBUG_STATUS->move ($WIDTH - $DEBUG_STATUS->{w}, 0, $DEBUG_STATUS->{w}, $DEBUG_STATUS->{h});	116	my ($w, $h) = $DEBUG_STATUS->size_request;
		117	$DEBUG_STATUS->move ($WIDTH - $w, 0);
108	}	118	}
109		119
110	sub start_game {	120	sub start_game {
111	status "logging in...";	121	status "logging in...";
112		122
113	my $mapsize = List::Util::min 32, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / 32;	123	my $mapsize = List::Util::min 32, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / 32;
114		124
115	$MAPCACHE = CFClient::db_table "mapcache_$CFG->{host}";	125	$MAPCACHE = CFClient::db_table "mapcache_$CFG->{host}";
116
117	$MAP = new CFClient::Map $mapsize, $mapsize;	126	$MAP = new CFClient::Map $mapsize, $mapsize;
118		127
119	my ($host, $port) = split /:/, $CFG->{host};	128	my ($host, $port) = split /:/, $CFG->{host};
120		129
121	$CONN = new conn	130	$CONN = eval {
		131	new conn
122	host => $host,	132	host => $host,
123	port => $port || 13327,	133	port => $port || 13327,
124	user => $CFG->{user},	134	user => $CFG->{user},
125	pass => $CFG->{password},	135	pass => $CFG->{password},
126	mapw => $mapsize,	136	mapw => $mapsize,
127	maph => $mapsize,	137	maph => $mapsize,
		138	;
128	;	139	};
129		140
130	status "login successful";	141	if ($CONN) {
131
132	CFClient::lowdelay fileno $CONN->{fh};	142	CFClient::lowdelay fileno $CONN->{fh};
		143
		144	$LOGIN_BUTTON->set_text ("Logout");
		145	status "login successful";
		146
		147	$BUTTONBAR->{children}[1]->emit ("activate")
		148	if $BUTTONBAR->{children}[1]->{state};
		149
		150	} else {
		151	status "unable to connect";
		152	stop_game();
		153	}
133	}	154	}
134		155
135	sub stop_game {	156	sub stop_game {
		157	return unless $CONN;
		158
		159	status "connection closed";
		160	$LOGIN_BUTTON->set_text ("Login");
		161	$CONN->destroy;
		162	$CONN = 0; # false, does not autovivify
		163
		164	$BUTTONBAR->{children}[1]->emit ("activate")
		165	unless $BUTTONBAR->{children}[1]->{state};
		166
		167	undef $MAPCACHE;
136	undef $CONN;	168	undef $MAP;
137	}	169	}
138		170
139	sub client_setup {	171	sub client_setup {
140	my $dialog = new CFClient::UI::FancyFrame	172	my $dialog = new CFClient::UI::FancyFrame
141	title => "Client Setup",	173	title => "Client Setup",
…		…
143	$vbox->add (my $table = new CFClient::UI::Table expand => 1, col_expand => [0, 1]);	175	$vbox->add (my $table = new CFClient::UI::Table expand => 1, col_expand => [0, 1]);
144		176
145	$table->add (0, 0, new CFClient::UI::Label valign => 0, align => 1, text => "Video Mode");	177	$table->add (0, 0, new CFClient::UI::Label valign => 0, align => 1, text => "Video Mode");
146	$table->add (1, 0, my $hbox = new CFClient::UI::HBox);	178	$table->add (1, 0, my $hbox = new CFClient::UI::HBox);
147		179
148	$hbox->add (my $mode_slider = new CFClient::UI::Slider expand => 1, req_w => 100, range => [$CFG->{sdl_mode}, 0, scalar @SDL_MODES, 1]);	180	$hbox->add (my $mode_slider = new CFClient::UI::Slider expand => 1, req_w => 100, range => [$CFG->{sdl_mode}, 0, $#SDL_MODES, 0, 1]);
149	$hbox->add (my $mode_label = new CFClient::UI::Label align => 0, valign => 0, height => 0.8, template => "9999x9999");	181	$hbox->add (my $mode_label = new CFClient::UI::Label align => 0, valign => 0, height => 0.8, template => "9999x9999");
150		182
151	$mode_slider->connect (changed => sub {	183	$mode_slider->connect (changed => sub {
152	my ($self, $value) = @_;	184	my ($self, $value) = @_;
153		185
…		…
178	}	210	}
179	);	211	);
180		212
181	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Map Scale");	213	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Map Scale");
182	$table->add (1, $row++, new CFClient::UI::Slider	214	$table->add (1, $row++, new CFClient::UI::Slider
183	range => [$CFG->{map_scale}, 0.25, 2, 0.05],	215	range => [(log $CFG->{map_scale}) / (log 2), -3, 1, 0, 1],
184	tooltip => "Enlarge or shrink the displayed map",	216	tooltip => "Enlarge or shrink the displayed map",
185	connect_changed => sub {	217	connect_changed => sub {
186	my ($self, $value) = @_;	218	my ($self, $value) = @_;
187	$CFG->{map_scale} = 0.05 * int $value / 0.05;	219	$CFG->{map_scale} = 2 ** $value;
188	}	220	}
189	);	221	);
190		222
191	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fog of War");	223	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fog of War");
192	$table->add (1, $row++, new CFClient::UI::CheckBox	224	$table->add (1, $row++, new CFClient::UI::CheckBox
…		…
198	}	230	}
199	);	231	);
200		232
201	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "FoW Intensity");	233	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "FoW Intensity");
202	$table->add (1, $row++, new CFClient::UI::Slider	234	$table->add (1, $row++, new CFClient::UI::Slider
203	range => [$CFG->{fow_intensity}, 0, 1 + 0.001, 0.001],	235	range => [$CFG->{fow_intensity}, 0, 1, 0, 1 / 256],
204	tooltip => "The higher the intensity, the lighter the Fog-of-War color",	236	tooltip => "The higher the intensity, the lighter the Fog-of-War color",
205	connect_changed => sub {	237	connect_changed => sub {
206	my ($self, $value) = @_;	238	my ($self, $value) = @_;
207	$CFG->{fow_intensity} = $value;	239	$CFG->{fow_intensity} = $value;
208	}	240	}
…		…
219	}	251	}
220	);	252	);
221		253
222	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "GUI Fontsize");	254	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "GUI Fontsize");
223	$table->add (1, $row++, new CFClient::UI::Slider	255	$table->add (1, $row++, new CFClient::UI::Slider
224	range => [$CFG->{gui_fontsize}, 0.5, 2, 0.1],	256	range => [$CFG->{gui_fontsize}, 0.5, 2, 0, 0.1],
225	tooltip => "The font size used by most GUI elements",	257	tooltip => "The font size used by most GUI elements",
226	connect_changed => sub {	258	connect_changed => sub { $CFG->{gui_fontsize} = $_[1] },
227	$CFG->{gui_fontsize} = 0.1 * int $_[1] * 10;
228	# $FONTSIZE = int $HEIGHT / 40 * $CFG->{gui_fontsize};
229	}
230	);	259	);
231		260
232	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Server Log Fontsize");	261	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Server Log Fontsize");
233	$table->add (1, $row++, new CFClient::UI::Slider	262	$table->add (1, $row++, new CFClient::UI::Slider
234	range => [$CFG->{log_fontsize}, 0.5, 2, 0.1],	263	range => [$CFG->{log_fontsize}, 0.5, 2, 0, 0.1],
235	tooltip => "The font size used by the server log window only",	264	tooltip => "The font size used by the server log window only",
236	connect_changed => sub {	265	connect_changed => sub { $LOGVIEW->set_fontsize ($CFG->{log_fontsize} = $_[1]) },
237	$LOGVIEW->set_fontsize ($CFG->{log_fontsize} = 0.1 * int $_[1] * 10);
238	}
239	);	266	);
240		267
241	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Stats Fontsize");	268	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Stats Fontsize");
242		269
243	$table->add (1, $row++, new CFClient::UI::Slider	270	$table->add (1, $row++, new CFClient::UI::Slider
244	range => [$CFG->{stat_fontsize}, 0.5, 2, 0.1],	271	range => [$CFG->{stat_fontsize}, 0.5, 2, 0, 0.1],
245	tooltip => "The font size used by the statistics window only",	272	tooltip => "The font size used by the statistics window only",
246	connect_changed => sub {	273	connect_changed => sub {
247	$CFG->{stat_fontsize} = 0.1 * int $_[1] * 10;	274	$CFG->{stat_fontsize} = $_[1];
248	&set_stats_window_fontsize;	275	&set_stats_window_fontsize;
		276	}
		277	);
		278
		279	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Gauge fontsize");
		280	$table->add (1, $row++, new CFClient::UI::Slider
		281	range => [$CFG->{gauge_fontsize}, 0.5, 2, 0, 0.1],
		282	tooltip => "Adjusts the fontsize of the gauges at the bottom right",
		283	connect_changed => sub {
		284	$CFG->{gauge_fontsize} = $_[1];
		285	&set_gauge_window_fontsize;
249	}	286	}
250	);	287	);
251		288
252	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Gauge size");	289	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Gauge size");
253	$table->add (1, $row++, new CFClient::UI::Slider	290	$table->add (1, $row++, new CFClient::UI::Slider
254	range => [$CFG->{gauge_size}, 0.2, 0.8, 0.02],	291	range => [$CFG->{gauge_size}, 0.2, 0.8],
255	tooltip => "Adjust the size of the stats gauges at the bottom right",	292	tooltip => "Adjust the size of the stats gauges at the bottom right",
256	connect_changed => sub {	293	connect_changed => sub {
257	$CFG->{gauge_size} = $_[1];	294	$CFG->{gauge_size} = $_[1];
258	my $h = int $HEIGHT * $CFG->{gauge_size};	295	$GAUGES->{win}->set_size ($WIDTH, int $HEIGHT * $CFG->{gauge_size});
259	$GAUGES->{win}->set_size ($WIDTH, $h);
260	$GAUGES->{win}->move (0, $HEIGHT - $h);
261	}
262	);
263
264	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Gauge fontsize");
265	$table->add (1, $row++, new CFClient::UI::Slider
266	range => [$CFG->{gauge_fontsize}, 0.5, 2.0, 0.1],
267	tooltip => "Adjusts the fontsize of the gauges at the bottom right",
268	connect_changed => sub {
269	$CFG->{gauge_fontsize} = 0.1 * int $_[1] * 10;
270	&set_gauge_window_fontsize;
271	}	296	}
272	);	297	);
273		298
274	$table->add (1, $row++, new CFClient::UI::Button	299	$table->add (1, $row++, new CFClient::UI::Button
275	expand => 1, align => 0, text => "Apply",	300	expand => 1, align => 0, text => "Apply",
…		…
300	connect_changed => sub {	325	connect_changed => sub {
301	$CFG->{bgm_enable} = $_[1];	326	$CFG->{bgm_enable} = $_[1];
302	}	327	}
303	);	328	);
304	$hbox->add (new CFClient::UI::Slider	329	$hbox->add (new CFClient::UI::Slider
305	expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0.1],	330	expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0, 1/128],
306	tooltip => "The volume of the background music",	331	tooltip => "The volume of the background music",
307	connect_changed => sub {	332	connect_changed => sub {
308	$CFG->{bgm_volume} = $_[1];	333	$CFG->{bgm_volume} = $_[1];
309	CFClient::MixMusic::volume $_[1] * 128;	334	CFClient::MixMusic::volume $_[1] * 128;
310	}	335	}
…		…
317	audio_shutdown ();	342	audio_shutdown ();
318	audio_init ();	343	audio_init ();
319	}	344	}
320	);	345	);
321		346
322	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Communication cmd");	347	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Chat Command");
323	$table->add (1, $row++, my $saycmd = new CFClient::UI::Entry	348	$table->add (1, $row++, my $saycmd = new CFClient::UI::Entry
324	text => $CFG->{say_command},	349	text => $CFG->{say_command},
325	tooltip => "This is the command that will be used if you write a line in the message window entry. "	350	tooltip => "This is the command that will be used if you write a line in the message window entry or press <b>\"</b> in the map window. "
326	."Usually you want to enter something like 'say' or 'shout' or 'gsay' here. "	351	. "Usually you want to enter something like 'say' or 'shout' or 'gsay' here. "
327	."But you could also set it to 'tell &lt;playername&gt;' to only chat with that user.",	352	. "But you could also set it to <b>tell <i>playername</i></b> to only chat with that user.",
328	connect_changed => sub {	353	connect_changed => sub {
329	my ($self, $value) = @_;	354	my ($self, $value) = @_;
330	$CFG->{say_command} = $value;	355	$CFG->{say_command} = $value;
331	}	356	}
332	);	357	);
…		…
342		367
343	sub set_gauge_window_fontsize {	368	sub set_gauge_window_fontsize {
344	for (map { $GAUGES->{$_} } grep { $_ ne 'win' } keys %{$GAUGES}) {	369	for (map { $GAUGES->{$_} } grep { $_ ne 'win' } keys %{$GAUGES}) {
345	$_->set_fontsize ($::CFG->{gauge_fontsize});	370	$_->set_fontsize ($::CFG->{gauge_fontsize});
346	}	371	}
347
348	# local $GAUGES->{win}{parent};#d#
349	# use PApp::Util; open D, ">:utf8", "d"; print D PApp::Util::dumpval $GAUGES->{win}; close D;
350	}	372	}
351		373
352	sub make_gauge_window {	374	sub make_gauge_window {
353	my $gh = int ($HEIGHT * $CFG->{gauge_size});	375	my $gh = int $HEIGHT * $CFG->{gauge_size};
354	# my $gw = int ($WIDTH * $CFG->{gauge_w_size});
355		376
356	my $win = new CFClient::UI::Frame (	377	my $win = new CFClient::UI::Frame (
357	y => $HEIGHT - $gh, x => 0, user_w => $WIDTH, user_h => $gh	378	req_y => -1,
		379	user_w => $WIDTH,
		380	user_h => $gh,
358	);	381	);
		382
359	$win->add (my $hbox = new CFClient::UI::HBox	383	$win->add (my $hbox = new CFClient::UI::HBox
360	children => [	384	children => [
361	(new CFClient::UI::HBox expand => 1),	385	(new CFClient::UI::HBox expand => 1),
362	($FLOORBOX = new CFClient::UI::VBox),	386	(new CFClient::UI::VBox children => [
		387	(new CFClient::UI::Empty expand => 1),
		388	(new CFClient::UI::Frame bg => [0, 0, 0, 0.4], child => ($FLOORBOX = new CFClient::UI::VBox)),
		389	]),
363	(my $vbox = new CFClient::UI::VBox),	390	(my $vbox = new CFClient::UI::VBox),
364	],	391	],
365	);	392	);
366		393
367	$vbox->add (new CFClient::UI::HBox	394	$vbox->add (new CFClient::UI::HBox
…		…
371	(my $hb = new CFClient::UI::HBox),	398	(my $hb = new CFClient::UI::HBox),
372	],	399	],
373	);	400	);
374		401
375	$hb->add (my $hg = new CFClient::UI::Gauge type => 'hp',	402	$hb->add (my $hg = new CFClient::UI::Gauge type => 'hp',
376	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.");	403	tooltip => "<b>Health points</b>. 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.");
377	$hb->add (my $mg = new CFClient::UI::Gauge type => 'mana',	404	$hb->add (my $mg = new CFClient::UI::Gauge type => 'mana',
378	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.");	405	tooltip => "<b>Spell points</b>. 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.");
379	$hb->add (my $gg = new CFClient::UI::Gauge type => 'grace',	406	$hb->add (my $gg = new CFClient::UI::Gauge type => 'grace',
380	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.");	407	tooltip => "<b>Grace points</b> - 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.");
381	$hb->add (my $fg = new CFClient::UI::Gauge type => 'food',	408	$hb->add (my $fg = new CFClient::UI::Gauge type => 'food',
382	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.");	409	tooltip => "<b>Food</b>. 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.");
383		410
384	$vbox->add (my $exp = new CFClient::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1,	411	$vbox->add (my $exp = new CFClient::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1,
385	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.");	412	tooltip => "<b>Experience points and overall level</b> - 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.");
386	$vbox->add (my $rng = new CFClient::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1,	413	$vbox->add (my $rng = new CFClient::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1,
387	tooltip => "Ranged attack - how you attack when you press shift-cursor (spell, skill, weapon etc.)");	414	tooltip => "<b>Ranged attack</b> - how you attack when you press shift-cursor (spell, skill, weapon etc.)");
388		415
389	$GAUGES = {	416	$GAUGES = {
390	exp => $exp, win => $win, range => $rng,	417	exp => $exp, win => $win, range => $rng,
391	food => $fg, mana => $mg, hp => $hg, grace => $gg	418	food => $fg, mana => $mg, hp => $hg, grace => $gg
392	};	419	};
…		…
395		422
396	$win	423	$win
397	}	424	}
398		425
399	sub make_stats_window {	426	sub make_stats_window {
400	my $tgw = new CFClient::UI::FancyFrame x => $WIDTH * 2/5, y => 0, title => "Stats";	427	my $tgw = new CFClient::UI::FancyFrame title => "Stats";
401		428
402	$tgw->add (new CFClient::UI::Window child => my $vb = new CFClient::UI::VBox);	429	$tgw->add (new CFClient::UI::Window child => my $vb = new CFClient::UI::VBox);
403	$vb->add ($STATWIDS->{title} = new CFClient::UI::Label valign => 0, align => -1, text => "Title:", expand => 1);	430	$vb->add ($STATWIDS->{title} = new CFClient::UI::Label valign => 0, align => -1, text => "Title:", expand => 1,
		431	can_hover => 1, can_events => 1,
		432	tooltip => "Your name and title. You can change your title by using the <b>title</b> command, if supported by the server.");
404	$vb->add ($STATWIDS->{map} = new CFClient::UI::Label valign => 0, align => -1, text => "Map:", expand => 1);	433	$vb->add ($STATWIDS->{map} = new CFClient::UI::Label valign => 0, align => -1, text => "Map:", expand => 1,
		434	can_hover => 1, can_events => 1,
		435	tooltip => "The map you are currently on (if supported by the server).");
405		436
406	$vb->add (my $hb = new CFClient::UI::HBox expand => 1);	437	$vb->add (my $hb = new CFClient::UI::HBox expand => 1);
407
408	$hb->add (my $tbl = new CFClient::UI::Table expand => 1);	438	$hb->add (my $tbl = new CFClient::UI::Table expand => 1);
409		439
410	my $black = [0, 0, 0];	440	my $color2 = [1, 1, 0];
411		441
412	for (	442	for (
413	[0, 0, st_str => "Str", 30, "Physical Strength, determines damage dealt with weapons, how much you can carry, and how often you can attack"],	443	[0, 0, st_str => "Str", 30, "<b>Physical Strength</b>, determines damage dealt with weapons, how much you can carry, and how often you can attack"],
414	[0, 1, st_dex => "Dex", 30, "Dexterity, your physical agility. Determines chance of being hit and affects armor class and speed"],	444	[0, 1, st_dex => "Dex", 30, "<b>Dexterity</b>, your physical agility. Determines chance of being hit and affects armor class and speed"],
415	[0, 2, st_con => "Con", 30, "Constitution, physical health and toughness. Determines how many healthpoints you can have"],	445	[0, 2, st_con => "Con", 30, "<b>Constitution</b>, physical health and toughness. Determines how many healthpoints you can have"],
416	[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"],	446	[0, 3, st_int => "Int", 30, "<b>Intelligence</b>, your ability to learn and use skills and incantations (both prayers and magic) and determines how much spell points you can have"],
417	[0, 4, st_wis => "Wis", 30, "Wisdom, the ability to learn and use divine magic (prayers). Determines how many grace points you can have"],	447	[0, 4, st_wis => "Wis", 30, "<b>Wisdom</b>, the ability to learn and use divine magic (prayers). Determines how many grace points you can have"],
418	[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"],	448	[0, 5, st_pow => "Pow", 30, "<b>Power</b>, your magical potential. Influences the strength of spell effects, and also how much your spell and grace points increase when leveling up"],
419	[0, 6, st_cha => "Cha", 30, "Charisma, how well you are received by NPCs. Affects buying and selling prices in shops."],	449	[0, 6, st_cha => "Cha", 30, "<b>Charisma</b>, how well you are received by NPCs. Affects buying and selling prices in shops."],
420		450
421	[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."],	451	[2, 0, st_wc => "Wc", -120, "<b>Weapon Class</b>, 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."],
422	[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."],	452	[2, 1, st_ac => "Ac", -120, "<b>Armour Class</b>, 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."],
423	[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."],	453	[2, 2, st_dam => "Dam", 120, "<b>Damage</b>, how much damage your melee/missile attack inflicts. Higher values indicate a greater amount of damage will be inflicted with each attack."],
424	[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."],	454	[2, 3, st_arm => "Arm", 120, "<b>Armour</b>, 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."],
425	[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."],	455	[2, 4, st_spd => "Spd", 10.54, "<b>Speed</b>, 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."],
426	[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."],	456	[2, 5, st_wspd => "WSp", 10.54, "<b>Weapon Speed</b>, 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."],
427	) {	457	) {
428	my ($col, $row, $id, $label, $template, $tooltip) = @$_;	458	my ($col, $row, $id, $label, $template, $tooltip) = @$_;
429		459
430	$tbl->add ($col , $row, $STATWIDS->{$id} = new CFClient::UI::Label	460	$tbl->add ($col , $row, $STATWIDS->{$id} = new CFClient::UI::Label
431	font => $FONT_FIXED, can_hover => 1, can_events => 1, valign => 0, align => +1, template => $template, tooltip => $tooltip);	461	font => $FONT_FIXED, can_hover => 1, can_events => 1, valign => 0, align => +1, template => $template, tooltip => $tooltip);
432	$tbl->add ($col + 1, $row, $STATWIDS->{"$id\_lbl"} = new CFClient::UI::Label	462	$tbl->add ($col + 1, $row, $STATWIDS->{"$id\_lbl"} = new CFClient::UI::Label
433	font => $FONT_FIXED, can_hover => 1, can_events => 1, fg => $black, valign => 0, align => -1, text => $label, tooltip => $tooltip);	463	font => $FONT_FIXED, can_hover => 1, can_events => 1, fg => $color2, valign => 0, align => -1, text => $label, tooltip => $tooltip);
434	}	464	}
435		465
436	$hb->add (my $tbl2 = new CFClient::UI::Table expand => 1);	466	$hb->add (my $tbl2 = new CFClient::UI::Table expand => 1);
437		467
438	my $row = 0;	468	my $row = 0;
439	my $col = 0;	469	my $col = 0;
440		470
441	my %resist_names = (	471	my %resist_names = (
442	slow => "Slow (slows you down when you are hit by the spell. Monsters will have an opportunity to come near you faster and hit you more often.)",	472	slow => "<b>Slow</b> (slows you down when you are hit by the spell. Monsters will have an opportunity to come near you faster and hit you more often.)",
443	holyw => "Holy Word (resistance you against getting the fear when someone whose god doesn't like you spells the holy word on you.)",	473	holyw => "<b>Holy Word</b> (resistance you against getting the fear when someone whose god doesn't like you spells the holy word on you.)",
444	conf => "Confusion (If you are hit by confusion you will move into random directions, and likely into monsters.)",	474	conf => "<b>Confusion</b> (If you are hit by confusion you will move into random directions, and likely into monsters.)",
445	fire => "Fire (just your resistance to fire spells like burning hands, dragonbreath, meteor swarm fire, ...)",	475	fire => "<b>Fire</b> (just your resistance to fire spells like burning hands, dragonbreath, meteor swarm fire, ...)",
446	depl => "Depletion (some monsters and other effects can cause stats depletion)",	476	depl => "<b>Depletion</b> (some monsters and other effects can cause stats depletion)",
447	magic => "Magic (resistance to magic spells like magic missile or similar)",	477	magic => "<b>Magic</b> (resistance to magic spells like magic missile or similar)",
448	drain => "Draining (some monsters (e.g. vampires) and other effects can steal experience)",	478	drain => "<b>Draining</b> (some monsters (e.g. vampires) and other effects can steal experience)",
449	acid => "Acid (resistance to acid, acid hurts pretty much and also corrodes your weapons)",	479	acid => "<b>Acid</b> (resistance to acid, acid hurts pretty much and also corrodes your weapons)",
450	pois => "Poison (resistance to getting poisoned)",	480	pois => "<b>Poison</b> (resistance to getting poisoned)",
451	para => "Paralysation (this resistance affects the chance you get paralysed)",	481	para => "<b>Paralysation</b> (this resistance affects the chance you get paralysed)",
452	deat => "Death (resistance against death spells)",	482	deat => "<b>Death</b> (resistance against death spells)",
453	phys => "Physical (this is the resistance against physical attacks, like when a monster hit you in melee combat)",	483	phys => "<b>Physical</b> (this is the resistance against physical attacks, like when a monster hit you in melee combat)",
454	blind => "Blind (blind resistance affects the chance of a successful blinding attack)",	484	blind => "<b>Blind</b> (blind resistance affects the chance of a successful blinding attack)",
455	fear => "Fear (this attack will drive you away from monsters who cast this and hit you successfully, being resistant to this helps a lot when fighting those monsters)",	485	fear => "<b>Fear</b> (this attack will drive you away from monsters who cast this and hit you successfully, being resistant to this helps a lot when fighting those monsters)",
456	tund => "Turn undead",	486	tund => "<b>Turn undead</b> (affects your resistancy to various forms of 'turn undead' spells. Only relevant when you are, in fact, undead...",
457	elec => "Electricity (resistance againt electricity, spells like large lightning, small lightning, ...)",	487	elec => "<b>Electricity</b> (resistance against electricity, spells like large lightning, small lightning, ...)",
458	cold => "Cold (this is your resistance against cold spells like icestorm, snowstorm, ...)",	488	cold => "<b>Cold</b> (this is your resistance against cold spells like icestorm, snowstorm, ...)",
459	ghit => "Ghost hit (special attack used by ghosts and ghost-like beings)",	489	ghit => "<b>Ghost hit</b> (special attack used by ghosts and ghost-like beings)",
460	);	490	);
461	for (qw/slow holyw conf fire depl magic	491	for (qw/slow holyw conf fire depl magic
462	drain acid pois para deat phys	492	drain acid pois para deat phys
463	blind fear tund elec cold ghit/)	493	blind fear tund elec cold ghit/)
464	{	494	{
…		…
565		595
566	}	596	}
567		597
568	sub metaserver_dialog {	598	sub metaserver_dialog {
569	my $dialog = new CFClient::UI::FancyFrame	599	my $dialog = new CFClient::UI::FancyFrame
570	title => "Metaserver",	600	title => "Server List",
571	child => (my $vbox = new CFClient::UI::VBox);	601	child => (my $vbox = new CFClient::UI::VBox);
572		602
573	$vbox->add ($dialog->{table} = new CFClient::UI::Table);	603	$vbox->add ($dialog->{table} = new CFClient::UI::Table);
574		604
575	$dialog	605	$dialog
…		…
644	$HOST->set_text ($CFG->{host} = $host);	674	$HOST->set_text ($CFG->{host} = $host);
645	}),	675	}),
646	(new CFClient::UI::Empty expand => 1),	676	(new CFClient::UI::Empty expand => 1),
647	]);	677	]);
648		678
649	$table->add ($_ + 1, $y, new CFClient::UI::Label align => $align[$_], text => $m->[$_], fontsize => 0.8)	679	$table->add ($_ + 1, $y, new CFClient::UI::Label
		680	ellipsise => 0, align => $align[$_], text => $m->[$_], fontsize => 0.8)
650	for 0 .. $#$m;	681	for 0 .. $#$m;
651	}	682	}
652	}	683	}
653	});	684	});
654	}	685	}
…		…
677		708
678	$METASERVER = metaserver_dialog;	709	$METASERVER = metaserver_dialog;
679		710
680	$vbox->add (new CFClient::UI::Flopper	711	$vbox->add (new CFClient::UI::Flopper
681	expand => 1,	712	expand => 1,
682	text => "Metaserver",	713	text => "Server List",
683	other => $METASERVER,	714	other => $METASERVER,
684	tooltip => "Show a list of avaible crossfire servers",	715	tooltip => "Show a list of available crossfire servers",
685	connect_open => sub {	716	connect_open => sub {
686	update_metaserver $HOST;	717	update_metaserver $HOST;
687	}	718	}
688	);	719	);
689	}	720	}
…		…
710	);	741	);
711		742
712	$table->add (0, 7, new CFClient::UI::Label valign => 0, align => 1, text => "Map Size");	743	$table->add (0, 7, new CFClient::UI::Label valign => 0, align => 1, text => "Map Size");
713	$table->add (1, 7, new CFClient::UI::Slider	744	$table->add (1, 7, new CFClient::UI::Slider
714	req_w => 100,	745	req_w => 100,
715	range => [$CFG->{mapsize}, 10, 100 + 1, 1],	746	range => [$CFG->{mapsize}, 10, 100, 0, 1],
716	tooltip => "This is the size of the portion of the map update the server sends you. "	747	tooltip => "This is the size of the portion of the map update the server sends you. "
717	."If you set this to a high value you will be able to see further for example.",	748	. "If you set this to a high value you will be able to see further for example.",
718	connect_changed => sub {	749	connect_changed => sub {
719	my ($self, $value) = @_;	750	my ($self, $value) = @_;
720		751
721	$CFG->{mapsize} = $self->{range}[0] = $value = int $value;	752	$CFG->{mapsize} = $self->{range}[0] = $value = int $value;
722	},	753	},
723	);	754	);
724		755
725	$table->add (1, 8, new CFClient::UI::Button expand => 1, align => 0, text => "Login", connect_activate => sub {	756	$table->add (0, 8, new CFClient::UI::Label valign => 0, align => 1, text => "Output-Count");
726	start_game;	757	$table->add (1, 8, new CFClient::UI::Entry
		758	text => $CFG->{output_count},
		759	tooltip => "Should be set to 1 unless you know what you are doing",
		760	connect_changed => sub { $CFG->{output_count} = $_[1] },
727	});	761	);
		762
		763	$table->add (0, 9, new CFClient::UI::Label valign => 0, align => 1, text => "Output-Sync");
		764	$table->add (1, 9, new CFClient::UI::Entry
		765	text => $CFG->{output_sync},
		766	tooltip => "Should be set to 1 unless you know what you are doing",
		767	connect_changed => sub { $CFG->{output_sync} = $_[1] },
		768	);
		769
		770	$table->add (1, 10, $LOGIN_BUTTON = new CFClient::UI::Button
		771	expand => 1,
		772	align => 0,
		773	text => "Login",
		774	connect_activate => sub {
		775	$CONN ? stop_game
		776	: start_game;
		777	},
		778	);
728		779
729	$dialog	780	$dialog
730	}	781	}
731		782
732	sub message_window {	783	sub message_window {
733	my $window = new CFClient::UI::FancyFrame	784	my $window = new CFClient::UI::FancyFrame
734	title => "Messages",	785	title => "Messages",
735	border_bg => [1, 1, 1, 1],	786	border_bg => [1, 1, 1, 1],
736	bg => [0, 0, 0, 0.5],	787	bg => [0, 0, 0, 0.75],
737	user_w => int $::WIDTH / 3,	788	user_w => int $::WIDTH / 3,
738	user_h => int $::HEIGHT / 5,	789	user_h => int $::HEIGHT / 5,
739	child => (my $vbox = new CFClient::UI::VBox);	790	child => (my $vbox = new CFClient::UI::VBox);
740		791
741	$vbox->add ($LOGVIEW = new CFClient::UI::TextView	792	$vbox->add ($LOGVIEW);
742	expand => 1,
743	font => $FONT_FIXED,
744	fontsize => $::CFG->{log_fontsize},
745	);
746		793
747	$vbox->add (my $input = new CFClient::UI::Entry	794	$vbox->add (my $input = new CFClient::UI::Entry
		795	tooltip => "<b>Chat Box</b>. If you enter a text and press return/enter here, the current <i>communication command</i> "
		796	. "from the client setup will be prepended (e.g. <b>shout</b>, <b>chat</b>...). "
		797	. "If you prepend a slash (/), you will submit a command instead (similar to IRC). "
		798	. "A better way to submit commands (and the occasional chat command) is often the map command completer.",
748	connect_focus_in => sub {	799	connect_focus_in => sub {
749	my ($input, $prev_focus) = @_;	800	my ($input, $prev_focus) = @_;
750		801
751	delete $input->{refocus_map};	802	delete $input->{refocus_map};
752		803
…		…
781	};	832	};
782		833
783	$window	834	$window
784	}	835	}
785		836
		837	sub open_quit_dialog {
		838	unless ($QUIT_DIALOG) {
		839
		840	$QUIT_DIALOG = new CFClient::UI::FancyFrame title => "Really Quit?";
		841
		842	$QUIT_DIALOG->add (my $vb = new CFClient::UI::VBox expand => 1);
		843
		844	$vb->add (new CFClient::UI::Label
		845	text => "You should find a savebed and apply it first!",
		846	max_w => $WIDTH * 0.25,
		847	ellipsize => 0,
		848	);
		849	$vb->add (my $hb = new CFClient::UI::HBox expand => 1);
		850	$hb->add (new CFClient::UI::Button
		851	text => "Ok",
		852	expand => 1,
		853	connect_activate => sub { $QUIT_DIALOG->hide },
		854	);
		855	$hb->add (new CFClient::UI::Button
		856	text => "Quit anyway",
		857	expand => 1,
		858	connect_activate => sub { exit },
		859	);
		860
		861	$QUIT_DIALOG->show_centered;
		862	} else {
		863	$QUIT_DIALOG->show_centered;
		864	}
		865	}
		866
786	sub make_inventory_window {	867	sub make_inventory_window {
787	my $invwin = new CFClient::UI::FancyFrame user_w => 300, user_h => 300, title => "Inventory";	868	my $invwin = new CFClient::UI::FancyFrame
		869	user_w => $WIDTH * (7/8), user_h => $HEIGHT * (7/8), title => "Inventory";
		870
788	$invwin->add (my $hb = new CFClient::UI::HBox);	871	$invwin->add (my $hb = new CFClient::UI::HBox expand => 1);
		872
		873	$hb->add (my $vb1 = new CFClient::UI::VBox expand => 1);
		874	$vb1->add (my $lbl = new CFClient::UI::Label);
		875	$lbl->set_text ("Player");
789	$hb->add ($INV = new CFClient::UI::Inventory expand => 1);	876	$vb1->add ($INV = new CFClient::UI::Inventory expand => 1);
		877
790	$hb->add (my $rng = new CFClient::UI::Slider vertical => 1);	878	$hb->add (my $vb2 = new CFClient::UI::VBox expand => 1);
791	$INV->set_range ($rng);	879	$vb2->add ($INVR_LBL = new CFClient::UI::Label);
		880	$INVR_LBL->set_text ("Floor");
		881	$vb2->add ($INVR = new CFClient::UI::Inventory expand => 1);
		882
792	$invwin	883	$invwin
		884	}
		885
		886	sub make_help_window {
		887	my $win = new CFClient::UI::FancyFrame
		888	user_w => $WIDTH * (7/8), user_h => $HEIGHT * (7/8), title => "Documentation";
		889
		890	$win->add (my $vbox = new CFClient::UI::VBox);
		891
		892	$vbox->add (my $buttons = new CFClient::UI::HBox);
		893	$vbox->add (my $viewer = new CFClient::UI::TextView expand => 1, fontsize => 0.8);
		894
		895	for (
		896	[intro => "Introduction"],
		897	[manual => "Manual"],
		898	[command_help => "Commands"],
		899	[skill_help => "Skills"],
		900	) {
		901	my ($pod, $label) = @$_;
		902
		903	$buttons->add (new CFClient::UI::Button
		904	text => $label,
		905	connect_activate => sub {
		906	my $parser = new Pod::POM;
		907	my $pom = $parser->parse_file (CFClient::find_rcfile "pod/$pod.pod");
		908
		909	$viewer->clear;
		910
		911	$viewer->add_paragraph ([1, 1, 1, 1], $_->[1], $_->[0])
		912	for @{ CFClient::pod_to_pango_list $pom };
		913
		914	$viewer->set_offset (0);
		915	},
		916	);
		917	}
		918
		919	$viewer->add_paragraph ([1, 1, 0, 1], "<big>Use one of the buttons above to display a document.</big>");
		920
		921	$win
793	}	922	}
794		923
795	sub sdl_init {	924	sub sdl_init {
796	CFClient::SDL_Init	925	CFClient::SDL_Init
797	and die "SDL::Init failed!\n";	926	and die "SDL::Init failed!\n";
798	}	927	}
799		928
800	sub video_init {	929	sub video_init {
801	sdl_init;	930	sdl_init;
802		931
		932	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} >= @SDL_MODES;
		933
		934	my ($old_w, $old_h) = ($WIDTH, $HEIGHT);
		935
803	($WIDTH, $HEIGHT) = @{ $SDL_MODES[$CFG->{sdl_mode}] };	936	($WIDTH, $HEIGHT) = @{ $SDL_MODES[$CFG->{sdl_mode}] };
804	$FULLSCREEN = $CFG->{fullscreen};	937	$FULLSCREEN = $CFG->{fullscreen};
805	$FAST = $CFG->{fast};	938	$FAST = $CFG->{fast};
806		939
807	CFClient::SDL_SetVideoMode $WIDTH, $HEIGHT, $FULLSCREEN	940	CFClient::SDL_SetVideoMode $WIDTH, $HEIGHT, $FULLSCREEN
808	or die "SDL_SetVideoMode failed!\n";	941	or die "SDL_SetVideoMode failed: " . (CFClient::SDL_GetError) . "\n";
809		942
810	$SDL_ACTIVE = 1;	943	$SDL_ACTIVE = 1;
811
812	$LAST_REFRESH = time - 0.01;	944	$LAST_REFRESH = time - 0.01;
813		945
814	CFClient::gl_init;	946	CFClient::gl_init;
815		947
816	$FONTSIZE = int $HEIGHT / 40 * $CFG->{gui_fontsize};	948	$FONTSIZE = int $HEIGHT / 40 * $CFG->{gui_fontsize};
817		949
		950	$CFClient::UI::ROOT->configure (0, 0, $WIDTH, $HEIGHT);#d#
		951
818	#############################################################################	952	#############################################################################
819		953
		954	if ($DEBUG_STATUS) {
		955	CFClient::UI::rescale_widgets $WIDTH / $old_w, $HEIGHT / $old_h;
		956	} else {
		957	# create the widgets
		958
820	$DEBUG_STATUS = new CFClient::UI::Label padding => 0, z => 100;	959	$DEBUG_STATUS = new CFClient::UI::Label padding => 0, z => 100, req_x => -1;
821	$DEBUG_STATUS->show;	960	$DEBUG_STATUS->show;
822		961
823	$STATUS_LINE = new CFClient::UI::Label	962	$STATUSBOX = new CFClient::UI::Statusbox;
824	padding => 0,	963	$STATUSBOX->add ("Use <b>Alt-Enter</b> to toggle fullscreen mode", pri => -100, color => [1, 1, 1, 0.8]);
825	y => $HEIGHT - $FONTSIZE * 1.8;
826	$STATUS_LINE->show;
827		964
828	$ALT_ENTER_MESSAGE = new CFClient::UI::Label	965	(new CFClient::UI::Frame
829	padding => 0,	966	bg => [0, 0, 0, 0.4],
830	fontsize => 0.8,	967	req_y => -1,
831	markup => "Use <b>Alt-Enter</b> to toggle fullscreen mode";	968	child => $STATUSBOX,
832	$ALT_ENTER_MESSAGE->show;	969	)->show;
833	$ALT_ENTER_MESSAGE->move (0, $HEIGHT - $ALT_ENTER_MESSAGE->{h});
834		970
835	CFClient::UI::FancyFrame->new (	971	CFClient::UI::FancyFrame->new (
836	border_bg => [1, 1, 1, 192/255],	972	border_bg => [1, 1, 1, 192/255],
837	bg => [1, 1, 1, 0],	973	bg => [1, 1, 1, 0],
838	child => ($MAPMAP = new CFClient::MapWidget::MapMap),	974	child => ($MAPMAP = new CFClient::MapWidget::MapMap
		975	tooltip => "<b>Map</b>. On servers that support this feature, this will display an overview of the surrounding areas.",
		976	),
839	)->show;	977	)->show;
840		978
841	$MAPWIDGET = new CFClient::MapWidget;	979	$MAPWIDGET = new CFClient::MapWidget;
842	$MAPWIDGET->connect (activate_console => sub {	980	$MAPWIDGET->connect (activate_console => sub {
843	my ($mapwidget, $preset) = @_;	981	my ($mapwidget, $preset) = @_;
844		982
845	if ($CONSOLE) {	983	if ($CONSOLE) {
846	$CONSOLE->{input}->{auto_activated} = 1;	984	$CONSOLE->{input}->{auto_activated} = 1;
847	$CONSOLE->{input}->focus_in;	985	$CONSOLE->{input}->focus_in;
848		986
849	if ($preset && $CONSOLE->{input}->get_text eq '') {	987	if ($preset && $CONSOLE->{input}->get_text eq '') {
850	$CONSOLE->{input}->set_text ($preset);	988	$CONSOLE->{input}->set_text ($preset);
		989	}
851	}	990	}
852	}	991	});
853	});
854	$MAPWIDGET->show;	992	$MAPWIDGET->show;
855	$MAPWIDGET->focus_in;	993	$MAPWIDGET->focus_in;
856		994
		995	$LOGVIEW = new CFClient::UI::TextView
		996	expand => 1,
		997	font => $FONT_FIXED,
		998	fontsize => $::CFG->{log_fontsize},
		999	can_hover => 1,
		1000	can_events => 1,
		1001	tooltip => "<b>Server Log</b>. This text viewer contains all the messages sent by the server.",
		1002	;
		1003
857	$BUTTONBAR = new CFClient::UI::HBox;	1004	$BUTTONBAR = new CFClient::UI::HBox;
858		1005
859	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Client Setup", other => client_setup);	1006	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Client Setup", other => client_setup,
		1007	tooltip => "Toggles a dialog where you can configure various aspects of the client, such as graphics mode, performance, and audio options.");
860	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Server Setup", other => server_setup);	1008	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Server Setup", other => server_setup,
		1009	tooltip => "Toggles a dialog where you can configure the server to play on, your username, password and other server-related options.");
861	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Message Window", other => message_window);	1010	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Message Window", other => message_window,
		1011	tooltip => "Toggles the server message log, where the client collects <i>all</i> messages from the server.");
862		1012
863	$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	1013	make_gauge_window->show; # 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
		1014
864	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Stats Window", other => make_stats_window);	1015	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Stats Window", other => make_stats_window,
		1016	tooltip => "Toggles the statistics window, where all your Stats and Resistances are being displayed at all times.");
865	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Inventory", other => make_inventory_window);	1017	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Inventory", other => make_inventory_window,
		1018	tooltip => "Toggles the inventory window, where you can manage your loot (or treaures :).");
866		1019
867	$BUTTONBAR->add (new CFClient::UI::Button text => "Save Config", connect_activate => sub {	1020	$BUTTONBAR->add (new CFClient::UI::Button
		1021	text => "Save Config",
		1022	tooltip => "Saves the options chosen in the client setting, server settings and the window layout to be restored on later runs.",
		1023	connect_activate => sub {
868	CFClient::write_cfg "$Crossfire::VARDIR/pclientrc";	1024	CFClient::write_cfg "$Crossfire::VARDIR/pclientrc";
869	status "Configuration Saved";	1025	status "Configuration Saved";
870	});	1026	},
		1027	);
871		1028
		1029	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Help!", other => make_help_window,
		1030	tooltip => "View Documentation");
		1031
		1032	$BUTTONBAR->add (new CFClient::UI::Button
		1033	text => "Quit",
		1034	tooltip => "Terminates the program",
		1035	connect_activate => sub {
		1036	if ($CONN) {
		1037	open_quit_dialog;
		1038	} else {
		1039	exit;
		1040	}
		1041	},
		1042	);
		1043
872	$BUTTONBAR->show;	1044	$BUTTONBAR->show;
873		1045
		1046	$STATUSBOX->add ("Set video mode $WIDTH×$HEIGHT", timeout => 10, fg => [1, 1, 1, 0.5]);
		1047
		1048	# delay till geometry is constant
		1049	$CFClient::UI::ROOT->on_post_alloc (startup => sub {
874	$BUTTONBAR->{children}[1]->emit ("activate"); # pop up server setup	1050	$BUTTONBAR->{children}[1]->emit ("activate"); # pop up server setup
		1051	my $widget = $GAUGES->{win};
		1052	$widget->move (0, $HEIGHT - $widget->{h});#d# to in toplevel
		1053	});
		1054	force_refresh ();
		1055	}
875	}	1056	}
876		1057
877	sub video_shutdown {	1058	sub video_shutdown {
878	$CFClient::UI::ROOT->{children} = [];
879	undef $CFClient::UI::GRAB;
880	undef $CFClient::UI::HOVER;
881	undef $SDL_ACTIVE;	1059	undef $SDL_ACTIVE;
882	}	1060	}
883		1061
884	my @bgmusic = qw(game1.ogg game2.ogg game3.ogg game5.ogg game6.ogg ross1.ogg ross2.ogg ross3.ogg ross4.ogg ross5.ogg); #d#	1062	my @bgmusic = qw(game1.ogg game2.ogg game3.ogg game5.ogg game6.ogg ross1.ogg ross2.ogg ross3.ogg ross4.ogg ross5.ogg); #d#
885	my $bgmusic;#TODO#hack#d#	1063	my $bgmusic;#TODO#hack#d#
		1064
		1065	sub audio_channel_finished {
		1066	my ($channel) = @_;
		1067
		1068	#warn "channel $channel finished\n";#d#
		1069	}
886		1070
887	sub audio_music_finished {	1071	sub audio_music_finished {
888	return unless $CFG->{bgm_enable};	1072	return unless $CFG->{bgm_enable};
889		1073
890	# TODO: hack, do play loop and mood music	1074	# TODO: hack, do play loop and mood music
…		…
894	push @bgmusic, shift @bgmusic;	1078	push @bgmusic, shift @bgmusic;
895	}	1079	}
896		1080
897	sub audio_init {	1081	sub audio_init {
898	if ($CFG->{audio_enable}) {	1082	if ($CFG->{audio_enable}) {
899	if (open my $fh, "<:utf8", CFClient::find_rcfile "sounds/config") {	1083	if (open my $fh, "<", CFClient::find_rcfile "sounds/config") {
900	$SDL_MIXER = !CFClient::Mix_OpenAudio;	1084	$SDL_MIXER = !CFClient::Mix_OpenAudio;
		1085
		1086	unless ($SDL_MIXER) {
		1087	status "Unable to open sound device: there will be no sound";
		1088	return;
		1089	}
		1090
901	CFClient::Mix_AllocateChannels 8;	1091	CFClient::Mix_AllocateChannels 8;
902	CFClient::MixMusic::volume $CFG->{bgm_volume} * 128;	1092	CFClient::MixMusic::volume $CFG->{bgm_volume} * 128;
903		1093
904	audio_music_finished;	1094	audio_music_finished;
905		1095
…		…
931	}	1121	}
932		1122
933	my %animate_object;	1123	my %animate_object;
934	my $animate_timer;	1124	my $animate_timer;
935		1125
936	my $want_refresh;
937	my $can_refresh;
938
939	my $fps = 9;	1126	my $fps = 9;
940		1127
		1128	my %demo;#d#
		1129
941	sub force_refresh {	1130	sub force_refresh {
942	$fps = $fps * 0.95 + 1 / ($NOW - $LAST_REFRESH) * 0.05;	1131	$fps = $fps * 0.95 + 1 / (($NOW - $LAST_REFRESH) || 0.1) * 0.05;
943	debug sprintf "%3.2f", $fps;	1132	debug sprintf "%3.2f", $fps;
944		1133
945	$want_refresh = 0;
946	$can_refresh = 0;
947
948	$CFClient::UI::ROOT->draw;	1134	$CFClient::UI::ROOT->draw;
949		1135
		1136	$WANT_REFRESH = 0;
		1137	$CAN_REFRESH = 0;
		1138	$LAST_REFRESH = $NOW;
		1139
		1140	0 && do {
		1141	# some weird model-drawing code, just a joke right now
		1142	use CFClient::OpenGL;
		1143
		1144	$demo{t}{eye_auv} ||= new_from_file CFClient::Texture "eye2.png" or die;
		1145	$demo{t}{body_auv} ||= new_from_file CFClient::Texture "body_auv3.png" or die;
		1146	$demo{r} ||= do {
		1147	my $mod = Compress::LZF::sthaw do { local $/; open my $fh, "<:raw:perlio", "dread.lz3"; <$fh> };
		1148	$mod->{v} = pack "f*", @{$mod->{v}};
		1149	$_ = [scalar @$_, pack "S!*", @$_]
		1150	for values %{$mod->{g}};
		1151	$mod
		1152	};
		1153
		1154	my $r = $demo{r} or die;
		1155
		1156	glDepthMask 1;
		1157	glClear GL_DEPTH_BUFFER_BIT;
		1158	glEnable GL_TEXTURE_2D;
		1159	glEnable GL_DEPTH_TEST;
		1160	glEnable GL_CULL_FACE;
		1161	glShadeModel $::FAST ? GL_FLAT : GL_SMOOTH;
		1162
		1163	glMatrixMode GL_PROJECTION;
		1164	glLoadIdentity;
		1165	glFrustum -1 * ($::WIDTH / $::HEIGHT), 1 * ($::WIDTH / $::HEIGHT), 1, -1, 1, 10000;
		1166	#glOrtho 0, $::WIDTH, 0, $::HEIGHT, -10000, 10000;
		1167	glMatrixMode GL_MODELVIEW;
		1168	glLoadIdentity;
		1169
		1170	glPushMatrix;
		1171	glTranslate 0, 0, -800;
		1172	glScale 1, -1, 1;
		1173	glRotate $NOW * 1000 % 36000 / 5, 0, 1, 0;
		1174	glRotate $NOW * 1000 % 36000 / 6, 1, 0, 0;
		1175	glRotate $NOW * 1000 % 36000 / 7, 0, 0, 1;
		1176	glScale 50, 50, 50;
		1177
		1178	glInterleavedArrays GL_T2F_N3F_V3F, 0, $r->{v};
		1179	while (my ($k, $v) = each %{$r->{g}}) {
		1180	glBindTexture GL_TEXTURE_2D, ($demo{t}{$k}{name} or die);
		1181	glDrawElements GL_TRIANGLES, $v->[0], GL_UNSIGNED_SHORT, $v->[1];
		1182	}
		1183
		1184	glPopMatrix;
		1185
		1186	glShadeModel GL_FLAT;
		1187	glDisable GL_DEPTH_TEST;
		1188	glDisable GL_TEXTURE_2D;
		1189	glDepthMask 0;
		1190
		1191	$WANT_REFRESH++;
		1192	};
		1193
950	CFClient::SDL_GL_SwapBuffers;	1194	CFClient::SDL_GL_SwapBuffers;
951
952	$LAST_REFRESH = $NOW;
953	}	1195	}
954		1196
955	my $refresh_watcher = Event->timer (after => 0, hard => 1, interval => 1 / $MAX_FPS, cb => sub {	1197	my $refresh_watcher = Event->timer (after => 0, hard => 1, interval => 1 / $MAX_FPS, cb => sub {
956	$NOW = time;	1198	$NOW = time;
957		1199
958	($SDL_CB{$_->{type}} || sub { warn "unhandled event $_->{type}" })->($_)	1200	($SDL_CB{$_->{type}} || sub { warn "unhandled event $_->{type}" })->($_)
959	for CFClient::SDL_PollEvent;	1201	for CFClient::SDL_PollEvent;
960		1202
961	if (%animate_object) {	1203	if (%animate_object) {
962	$_->animate ($LAST_REFRESH - $NOW) for values %animate_object;	1204	$_->animate ($LAST_REFRESH - $NOW) for values %animate_object;
963	$want_refresh++;	1205	$WANT_REFRESH++;
964	}	1206	}
965		1207
966	if ($want_refresh) {	1208	if ($WANT_REFRESH) {
967	force_refresh;	1209	force_refresh;
968	} else {	1210	} else {
969	$can_refresh = 1;	1211	$CAN_REFRESH = 1;
970	}	1212	}
971	});	1213	});
972
973	sub refresh {
974	$want_refresh++;
975	}
976		1214
977	sub animation_start {	1215	sub animation_start {
978	my ($widget) = @_;	1216	my ($widget) = @_;
979	$animate_object{$widget} = $widget;	1217	$animate_object{$widget} = $widget;
980	}	1218	}
…		…
984	delete $animate_object{$widget};	1222	delete $animate_object{$widget};
985	}	1223	}
986		1224
987	@conn::ISA = Crossfire::Protocol::;	1225	@conn::ISA = Crossfire::Protocol::;
988		1226
		1227	sub conn::new {
		1228	my $class = shift;
		1229
		1230	my $self = $class->Crossfire::Protocol::new (@_);
		1231
		1232	$MAPWIDGET->clr_commands;
		1233
		1234	my $parser = new Pod::POM;
		1235	my $pod = $parser->parse_file (CFClient::find_rcfile "pod/command_help.pod");
		1236
		1237	for my $head2 ($pod->head2) {
		1238	$head2->title =~ /^(\S+) (?:\s+ \( ([^\)]*) \) )?/x
		1239	or next;
		1240
		1241	my $cmd = $1;
		1242	my @args = split /\|/, $2;
		1243	@args = (".*") unless @args;
		1244
		1245	my $text = CFClient::pod_to_pango $head2->content;
		1246
		1247	for my $arg (@args) {
		1248	$arg = $arg eq ".*" ? "" : " $arg";
		1249
		1250	$MAPWIDGET->add_command ("$cmd$arg", $text);
		1251	}
		1252	}
		1253
		1254	$self->{noface} = new_from_file CFClient::Texture
		1255	CFClient::find_rcfile "noface.png", minify => 1, mipmap => 1;
		1256
		1257	$self
		1258	}
		1259
989	sub conn::stats_update {	1260	sub conn::stats_update {
990	my ($self, $stats) = @_;	1261	my ($self, $stats) = @_;
		1262
		1263	if (my $exp = $stats->{Crossfire::Protocol::CS_STAT_EXP64}) {
		1264	my $diff = $exp - $self->{prev_exp};
		1265	$STATUSBOX->add ("$diff experience gained", group => "experience $diff", fg => [0.5, 1, 0.5, 0.8], timeout => 5)
		1266	if exists $self->{prev_exp} && $diff;
		1267	$self->{prev_exp} = $exp;
		1268	}
991		1269
992	update_stats_window ($stats);	1270	update_stats_window ($stats);
993	}	1271	}
994		1272
995	sub conn::user_send {	1273	sub conn::user_send {
…		…
1050	$self->set_texture ($id => $data);	1328	$self->set_texture ($id => $data);
1051	}	1329	}
1052	}	1330	}
1053	}	1331	}
1054		1332
		1333	# hardcode /world/world_xxx_xxx map names, the savings are enourmous,
		1334	# (server resource,s latency, bandwidth), so this hack is warranted.
		1335	# the right fix is to make real tiled maps with an overview file
		1336	sub conn::send_mapinfo {
		1337	my ($self, $data, $cb) = @_;
		1338
		1339	if ($self->{map_info}[0] =~ m%^/world/world_(\d\d\d)_(\d\d\d)$%) {
		1340	my ($wx, $wy) = ($1, $2);
		1341
		1342	if ($data =~ /^spatial ([1-4]+)$/) {
		1343	my @dx = (0, 0, 1, 0, -1);
		1344	my @dy = (0, -1, 0, 1, 0);
		1345	my ($dx, $dy);
		1346
		1347	for (split //, $1) {
		1348	$dx += $dx[$_];
		1349	$dy += $dy[$_];
		1350	}
		1351
		1352	$cb->(spatial => 15,
		1353	$self->{map_info}[1] - $MAP->ox + $dx * 50,
		1354	$self->{map_info}[2] - $MAP->oy + $dy * 50,
		1355	50, 50,
		1356	sprintf "/world/world_%03d_%03d", $wx + $dx, $wy + $dy
		1357	);
		1358
		1359	return;
		1360	}
		1361	}
		1362
		1363	$self->Crossfire::Protocol::send_mapinfo ($data, $cb);
		1364	}
		1365
1055	# this method does a "flood fill" into every tile direction	1366	# this method does a "flood fill" into every tile direction
1056	# it assumes that tiles are arranged in a rectangular grid,	1367	# it assumes that tiles are arranged in a rectangular grid,
1057	# i.e. a map is the same as the left of the right map etc.	1368	# i.e. a map is the same as the left of the right map etc.
1058	# failure to comply are harmless and result in display errors	1369	# failure to comply are harmless and result in display errors
1059	# at worst.	1370	# at worst.
1060	sub conn::flood_fill {	1371	sub conn::flood_fill {
1061	my ($self, $gx, $gy, $path, $hash, $flags) = @_;	1372	my ($self, $block, $gx, $gy, $path, $hash, $flags) = @_;
1062		1373
1063	# the server does not allow map paths > 6	1374	# the server does not allow map paths > 6
1064	return if 7 <= length $path;	1375	return if 7 <= length $path;
1065		1376
1066	my ($x0, $y0, $x1, $y1) = @{$self->{neigh_rect}};	1377	my ($x0, $y0, $x1, $y1) = @{$self->{neigh_rect}};
1067		1378
1068	for (	1379	for (
1069	[1, 0, -1],	1380	[1, 3, 0, -1],
1070	[2, 1, 0],	1381	[2, 4, 1, 0],
1071	[3, 0, 1],	1382	[3, 1, 0, 1],
1072	[4, -1, 0],	1383	[4, 2, -1, 0],
1073	) {	1384	) {
1074	my ($tile, $dx, $dy) = @$_;	1385	my ($tile, $tile2, $dx, $dy) = @$_;
		1386
		1387	next if $block & (1 << $tile);
		1388	my $block = $block | (1 << $tile2);
1075		1389
1076	my $gx = $gx + $dx;	1390	my $gx = $gx + $dx;
1077	my $gy = $gy + $dy;	1391	my $gy = $gy + $dy;
1078		1392
1079	next unless $flags & (1 << ($tile - 1));	1393	next unless $flags & (1 << ($tile - 1));
…		…
1081		1395
1082	my $neigh = $self->{neigh_map}{$hash} ||= [];	1396	my $neigh = $self->{neigh_map}{$hash} ||= [];
1083	if (my $info = $neigh->[$tile]) {	1397	if (my $info = $neigh->[$tile]) {
1084	my ($flags, $x, $y, $w, $h, $hash) = @$info;	1398	my ($flags, $x, $y, $w, $h, $hash) = @$info;
1085		1399
1086	$self->flood_fill ($gx, $gy, "$path$tile", $hash, $flags)	1400	$self->flood_fill ($block, $gx, $gy, "$path$tile", $hash, $flags)
1087	if $x >= $x0 && $x + $w < $x1 && $y >= $y0 && $y + $h < $y1;	1401	if $x >= $x0 && $x + $w < $x1 && $y >= $y0 && $y + $h < $y1;
1088		1402
1089	} else {	1403	} else {
1090	$self->send_mapinfo ("spatial $path$tile", sub {	1404	$self->send_mapinfo ("spatial $path$tile", sub {
1091	my ($mode, $flags, $x, $y, $w, $h, $hash) = @_;	1405	my ($mode, $flags, $x, $y, $w, $h, $hash) = @_;
1092		1406
1093	return if $mode ne "spatial";	1407	return if $mode ne "spatial";
1094		1408
1095	$x += $MAP->ox;	1409	$x += $MAP->ox;
1096	$y += $MAP->oy;	1410	$y += $MAP->oy;
1097		1411
1098	$self->load_map ($hash, $x, $y)	1412	$self->load_map ($hash, $x, $y)
1099	unless $self->{neigh_map}{$hash}[5]++;#d#	1413	unless $self->{neigh_map}{$hash}[5]++;#d#
1100		1414
1101	$neigh->[$tile] = [$flags, $x, $y, $w, $h, $hash];	1415	$neigh->[$tile] = [$flags, $x, $y, $w, $h, $hash];
1102		1416
1103	$self->flood_fill ($gx, $gy, "$path$tile", $hash, $flags)	1417	$self->flood_fill ($block, $gx, $gy, "$path$tile", $hash, $flags)
1104	if $x >= $x0 && $x + $w < $x1 && $y >= $y0 && $y + $h < $y1;	1418	if $x >= $x0 && $x + $w < $x1 && $y >= $y0 && $y + $h < $y1;
1105	});	1419	});
1106	}	1420	}
1107	}	1421	}
1108	}	1422	}
…		…
1121	$ox - $mapmapw * 0.5, $oy - $mapmapw * 0.5,	1435	$ox - $mapmapw * 0.5, $oy - $mapmapw * 0.5,
1122	$ox + $mapmapw * 0.5 + $w, $oy + $mapmapw * 0.5 + $h,	1436	$ox + $mapmapw * 0.5 + $w, $oy + $mapmapw * 0.5 + $h,
1123	];	1437	];
1124		1438
1125	delete $self->{neigh_grid};	1439	delete $self->{neigh_grid};
1126	$self->flood_fill (0, 0, "", $hash, $flags);
1127		1440
1128	$x += $ox;	1441	$x += $ox;
1129	$y += $oy;	1442	$y += $oy;
1130		1443
1131	$self->{map_info} = [$hash, $x, $y, $w, $h];	1444	$self->{map_info} = [$hash, $x, $y, $w, $h];
1132		1445
1133	my $map = $self->{map_info}[0];
1134	$map =~ s/^.*?\/([^\/]+)$/\1/;	1446	(my $map = $hash) =~ s/^.*?\/([^\/]+)$/\1/;
1135	$STATWIDS->{map}->set_text ("Map: " . $map);	1447	$STATWIDS->{map}->set_text ("Map: " . $map);
1136		1448
1137	$self->load_map ($hash, $x, $y);	1449	$self->load_map ($hash, $x, $y);
		1450	$self->flood_fill (0, 0, 0, "", $hash, $flags);
1138	}	1451	}
1139		1452
1140	sub conn::face_find {	1453	sub conn::face_find {
1141	my ($self, $facenum, $face) = @_;	1454	my ($self, $facenum, $face) = @_;
1142		1455
…		…
1144		1457
1145	my $id = $FACEMAP->get ($hash);	1458	my $id = $FACEMAP->get ($hash);
1146		1459
1147	unless ($id) {	1460	unless ($id) {
1148	# create new id for face	1461	# create new id for face
1149	# i love transactions	1462	# I love transactions
1150	for (1..100) {	1463	for (1..100) {
1151	my $txn = $CFClient::DB_ENV->txn_begin;	1464	my $txn = $CFClient::DB_ENV->txn_begin;
1152	my $status = $FACEMAP->db_get (id => $id, BerkeleyDB::DB_RMW);	1465	my $status = $FACEMAP->db_get (id => $id, BerkeleyDB::DB_RMW);
1153	if ($status == 0 || $status == BerkeleyDB::DB_NOTFOUND) {	1466	if ($status == 0 || $status == BerkeleyDB::DB_NOTFOUND) {
1154	$id++;	1467	$id = ($id || 16) + 1;
1155	if ($FACEMAP->put (id => $id) == 0	1468	if ($FACEMAP->put (id => $id) == 0
1156	&& $FACEMAP->put ($hash => $id) == 0) {	1469	&& $FACEMAP->put ($hash => $id) == 0) {
1157	$txn->txn_commit;	1470	$txn->txn_commit;
1158		1471
1159	goto gotid;	1472	goto gotid;
…		…
1167		1480
1168	gotid:	1481	gotid:
1169	$face->{id} = $id;	1482	$face->{id} = $id;
1170	$MAP->set_face ($facenum => $id);	1483	$MAP->set_face ($facenum => $id);
1171	$self->{faceid}[$facenum] = $id;#d#	1484	$self->{faceid}[$facenum] = $id;#d#
		1485
1172	$TILECACHE->get ($id)	1486	$TILECACHE->get ($id) || do {
		1487	my $tex = $self->{noface};
		1488	$MAP->set_texture ($id, @$tex{qw(name w h s t)}, @{$tex->{minified}});
		1489	undef
		1490	};
1173	}	1491	}
1174		1492
1175	sub conn::face_update {	1493	sub conn::face_update {
1176	my ($self, $facenum, $face) = @_;	1494	my ($self, $facenum, $face) = @_;
1177		1495
…		…
1220	title => "Query",	1538	title => "Query",
1221	child => my $vbox = new CFClient::UI::VBox;	1539	child => my $vbox = new CFClient::UI::VBox;
1222		1540
1223	$vbox->add (new CFClient::UI::Label	1541	$vbox->add (new CFClient::UI::Label
1224	max_w => $::WIDTH * 0.4,	1542	max_w => $::WIDTH * 0.4,
		1543	ellipsise => 0,
1225	text => $prompt);	1544	text => $prompt);
1226		1545
1227	if ($flags & Crossfire::Protocol::CS_QUERY_YESNO) {	1546	if ($flags & Crossfire::Protocol::CS_QUERY_YESNO) {
1228	$vbox->add (my $hbox = new CFClient::HBox);	1547	$vbox->add (my $hbox = new CFClient::HBox);
1229	$hbox->add (new CFClient::Button	1548	$hbox->add (new CFClient::Button
…		…
1237	$hbox->add (new CFClient::Button	1556	$hbox->add (new CFClient::Button
1238	text => "Yes",	1557	text => "Yes",
1239	connect_activate => sub {	1558	connect_activate => sub {
1240	$self->send ("reply y");	1559	$self->send ("reply y");
1241	$dialog->destroy;	1560	$dialog->destroy;
1242	$MAPWIDGET->focus_in;
1243	},	1561	},
1244	);	1562	);
1245		1563
1246	$dialog->focus_in;	1564	$dialog->focus_in;
1247		1565
…		…
1249	$dialog->{tooltip} = "Press a key (click on the entry to make sure it has keyboard focus)";	1567	$dialog->{tooltip} = "Press a key (click on the entry to make sure it has keyboard focus)";
1250	$vbox->add (my $entry = new CFClient::UI::Entry	1568	$vbox->add (my $entry = new CFClient::UI::Entry
1251	connect_changed => sub {	1569	connect_changed => sub {
1252	$self->send ("reply $_[1]");	1570	$self->send ("reply $_[1]");
1253	$dialog->destroy;	1571	$dialog->destroy;
1254	$MAPWIDGET->focus_in;
1255	},	1572	},
1256	);	1573	);
1257		1574
1258	$entry->focus_in;	1575	$entry->focus_in;
1259		1576
…		…
1263	$vbox->add (my $entry = new CFClient::UI::Entry	1580	$vbox->add (my $entry = new CFClient::UI::Entry
1264	$flags & Crossfire::Protocol::CS_QUERY_HIDEINPUT ? (hiddenchar => "*") : (),	1581	$flags & Crossfire::Protocol::CS_QUERY_HIDEINPUT ? (hiddenchar => "*") : (),
1265	connect_activate => sub {	1582	connect_activate => sub {
1266	$self->send ("reply $_[1]");	1583	$self->send ("reply $_[1]");
1267	$dialog->destroy;	1584	$dialog->destroy;
1268	$MAPWIDGET->focus_in;
1269	},	1585	},
1270	);	1586	);
1271		1587
1272	$entry->focus_in;	1588	$entry->focus_in;
1273	}	1589	}
1274		1590
1275	$dialog->show;	1591	$dialog->show_centered;
1276	}	1592	}
1277		1593
1278	sub conn::drawinfo {	1594	sub conn::drawinfo {
1279	my ($self, $color, $text) = @_;	1595	my ($self, $color, $text) = @_;
1280		1596
…		…
1292	[0.55, 0.41, 0.13],	1608	[0.55, 0.41, 0.13],
1293	[0.99, 0.77, 0.26],	1609	[0.99, 0.77, 0.26],
1294	[0.74, 0.65, 0.41],	1610	[0.74, 0.65, 0.41],
1295	);	1611	);
1296		1612
		1613	my $time = sprintf "%02d:%02d:%02d", (localtime time)[2,1,0];
		1614
		1615	$text = CFClient::UI::Label::escape $text;
		1616	$text =~ s/\[b\](.*?)\[\/b\]/<b>\1<\/b>/g;
		1617	$text =~ s/\[color=(.*?)\](.*?)\[\/color\]/<span foreground='\1'>\2<\/span>/g;
		1618
1297	$LOGVIEW->add_paragraph ($color[$color], $text);	1619	$LOGVIEW->add_paragraph ($color[$color],
		1620	join "\n", map "$time $_", split /\n/, $text);
		1621
		1622	$STATUSBOX->add ($text,
		1623	group => $text,
		1624	fg => $color[$color],
		1625	timeout => 60,
		1626	tooltip_font => $::FONT_FIXED,
		1627	);
		1628	}
		1629
		1630	sub conn::drawextinfo {
		1631	my ($self, $color, $type, $subtype, $message) = @_;
		1632
		1633	$self->drawinfo ($color, $message);
1298	}	1634	}
1299		1635
1300	sub conn::spell_add {	1636	sub conn::spell_add {
1301	my ($self, $spell) = @_;	1637	my ($self, $spell) = @_;
1302		1638
1303	# TODO	1639	# TODO
1304	# create a widget dynamically, using spell face (CF::Protocol downloads them)	1640	# create a widget dynamically, using spell face (CF::Protocol downloads them)
1305	$MAPWIDGET->add_command ("invoke $spell->{name}", $spell->{message});	1641	$MAPWIDGET->add_command ("invoke $spell->{name}", CFClient::UI::Label::escape $spell->{message});
1306	$MAPWIDGET->add_command ("cast $spell->{name}", $spell->{message});	1642	$MAPWIDGET->add_command ("cast $spell->{name}", CFClient::UI::Label::escape $spell->{message});
1307	}	1643	}
1308		1644
1309	sub conn::spell_delete {	1645	sub conn::spell_delete {
1310	my ($self, $spell) = @_;	1646	my ($self, $spell) = @_;
1311	}	1647	}
1312		1648
1313	sub conn::addme_success {	1649	sub conn::addme_success {
1314	my ($self) = @_;	1650	my ($self) = @_;
1315		1651
		1652	$self->send ("command output-sync $CFG->{output_sync}");
		1653	$self->send ("command output-count $CFG->{output_count}");
		1654
		1655	my $parser = new Pod::POM;
		1656	my $pod = $parser->parse_file (CFClient::find_rcfile "pod/skill_help.pod");
		1657
		1658	my %skill_tooltip;
		1659
		1660	for my $head2 ($pod->head2) {
		1661	$skill_tooltip{$head2->title} = CFClient::pod_to_pango $head2->content;
		1662	}
		1663
1316	for my $skill (values %{$self->{skill_info}}) {	1664	for my $skill (values %{$self->{skill_info}}) {
1317	$MAPWIDGET->add_command ("ready_skill $skill", "Ready the skill '$skill'");	1665	$MAPWIDGET->add_command ("ready_skill $skill",
1318	$MAPWIDGET->add_command ("use_skill $skill", "Immediately use the skill '$skill'");	1666	(CFClient::UI::Label::escape "Ready the skill '$skill'\n\n")
		1667	. $skill_tooltip{$skill});
		1668	$MAPWIDGET->add_command ("use_skill $skill",
		1669	(CFClient::UI::Label::escape "Immediately use the skill '$skill'\n\n")
		1670	. $skill_tooltip{$skill});
1319	}	1671	}
		1672	}
		1673
		1674	sub conn::eof {
		1675	$MAPWIDGET->clr_commands;
		1676
		1677	stop_game;
1320	}	1678	}
1321		1679
1322	sub update_floorbox {	1680	sub update_floorbox {
1323	$CFClient::UI::ROOT->on_refresh ($FLOORBOX => sub {	1681	$CFClient::UI::ROOT->on_refresh ($FLOORBOX => sub {
		1682	return unless $CONN;
		1683
1324	$FLOORBOX->clear;	1684	$FLOORBOX->clear;
1325	$FLOORBOX->add (new CFClient::UI::Empty expand => 1);	1685	$FLOORBOX->add (new CFClient::UI::Empty expand => 1);
1326		1686
1327	my @items = values %{ $CONN->{container}{0} };	1687	my $count = 7;
1328		1688	for (@{ $CONN->{container}{0} }) {
1329	# we basically have to use the same sorting as everybody else	1689	if (--$count) {
1330	@items = sort { $a->{type} <=> $b->{type} } @items;	1690	$FLOORBOX->add (new CFClient::UI::InventoryItem item => $_);
1331		1691	} else {
1332	for my $item (reverse @items) {	1692	$FLOORBOX->add (new CFClient::UI::Label text => "More...");
1333	my $desc = $item->{nrof} < 2
1334	? $item->{name}
1335	: "$item->{nrof} $item->{name_pl}";
1336	# todo: animation widget, face widget, weight(?) etc.
1337	$FLOORBOX->add (my $hbox = new CFClient::UI::HBox
1338	tooltip => (CFClient::UI::Label->escape ($desc)
1339	. "\n<small>leftclick - pick up\nmiddle click - apply\nrightclick - menu</small>"),
1340	can_hover => 1,
1341	can_events => 1,
1342	connect_button_down => sub {
1343	my ($self, $ev, $x, $y) = @_;
1344
1345	# todo: maybe put examine on 1? but should just be a tooltip :(
1346	if ($ev->{button} == 1) {
1347	$CONN->send ("move $CONN->{player}{tag} $item->{tag} 0");
1348	} elsif ($ev->{button} == 2) {
1349	$CONN->send ("apply $item->{tag}");
1350	} elsif ($ev->{button} == 3) {
1351	CFClient::UI::Menu->new (
1352	items => [
1353	["examine", sub { $CONN->send ("examine $item->{tag}") }],
1354	[
1355	$item->{flags} & Crossfire::Protocol::F_LOCKED ? "lock" : "unlock",
1356	sub { $CONN->send ("lock $item->{tag}") },
1357	],
1358	["mark", sub { $CONN->send ("mark $item->{tag}") }],
1359	["apply", sub { $CONN->send ("apply $item->{tag}") }],
1360	],
1361	)->popup ($ev);
1362	}
1363
1364	1
1365	},	1693	last;
1366	);
1367
1368	$hbox->add (new CFClient::UI::Face
1369	can_events => 0,
1370	face => $item->{face},
1371	anim => $item->{anim},
1372	animspeed => $item->{animspeed},
1373	);
1374		1694	}
1375	$hbox->add (new CFClient::UI::Label
1376	can_events => 0,
1377	text => $desc,
1378	);
1379	}	1695	}
1380	});	1696	});
1381	refresh;	1697
		1698	$WANT_REFRESH++;
1382	}	1699	}
1383		1700
1384	sub conn::container_add {	1701	sub conn::container_add {
1385	my ($self, $id, $items) = @_;	1702	my ($self, $tag, $items) = @_;
1386		1703
1387	update_floorbox if $id == 0;	1704	#d# print "container_add: container $tag ($self->{player}{tag})\n";
		1705
		1706	if ($tag == 0) {
		1707	update_floorbox;
		1708	$OPENCONT = 0;
		1709	$INVR_LBL->set_text ("Floor");
		1710	$INVR->set_items ($self->{container}{0});
1388	if ($self->{player}{tag} == $id) {	1711	} elsif ($tag == $self->{player}{tag}) {
		1712	$INVR_LBL->set_text ("Player");
1389	$INV->set_items ($self->{container}{$self->{player}{tag}});	1713	$INV->set_items ($self->{container}{$self->{player}{tag}})
		1714	} else {
		1715	$OPENCONT = $tag;
		1716	$INVR_LBL->set_text (CFClient::UI::InventoryItem::_item_to_desc ($self->{item}->{$OPENCONT}));
		1717	$INVR->set_items ($self->{container}{$tag});
1390	}	1718	}
		1719
1391	# $self-<{player}{tag} => player inv	1720	# $self-<{player}{tag} => player inv
1392	#use PApp::Util; warn PApp::Util::dumpval $self->{container}{$self->{player}{tag}};	1721	#use PApp::Util; warn PApp::Util::dumpval $self->{container}{$self->{player}{tag}};
1393	}	1722	}
1394		1723
1395	sub conn::container_clear {	1724	sub conn::container_clear {
1396	my ($self, $id) = @_;	1725	my ($self, $tag) = @_;
1397		1726
1398	update_floorbox if $id == 0;	1727	#d# print "container_clear: container $tag ($self->{player}{tag})\n";
1399	if ($self->{player}{tag} == $id) {	1728
		1729	if ($tag == 0) {
		1730	update_floorbox;
		1731	$OPENCONT = 0;
		1732	$INVR_LBL->set_text ("Floor");
1400	$INV->set_items ($self->{container}{$id});	1733	$INVR->set_items ($self->{container}{0});
		1734	} elsif ($tag == $self->{player}{tag}) {
		1735	$INVR_LBL->set_text ("Player");
		1736	$INV->set_items ($self->{container}{$tag})
		1737	} else {
		1738	$OPENCONT = $tag;
		1739	$INVR_LBL->set_text (CFClient::UI::InventoryItem::_item_to_desc ($self->{item}->{$OPENCONT}));
		1740	$INVR->set_items ($self->{container}{$tag});
1401	}	1741	}
1402		1742
1403	# use PApp::Util; warn PApp::Util::dumpval $self->{container}{0};	1743	# use PApp::Util; warn PApp::Util::dumpval $self->{container}{0};
1404	}	1744	}
1405		1745
1406	sub conn::item_delete {	1746	sub conn::item_delete {
1407	my ($self, @items) = @_;	1747	my ($self, @items) = @_;
1408		1748
1409	for (@items) {	1749	for (@items) {
1410	update_floorbox if $_->{container} == 0;	1750	#d# print "item_delete: $_->{tag} from $_->{container} ($self->{player}{tag})\n";
1411	if ($self->{player}{tag} == $_->{container}) {	1751
		1752	if ($_->{container} == 0) {
		1753	update_floorbox;
		1754	$OPENCONT = 0;
		1755	$INVR_LBL->set_text ("Floor");
		1756	$INVR->set_items ($self->{container}{0});
		1757	} elsif ($_->{container} == $self->{player}{tag}) {
		1758	$INVR_LBL->set_text ("Player");
		1759	$INV->set_items ($self->{container}{$self->{player}{tag}})
		1760	} else {
		1761	$OPENCONT = $_->{container};
		1762	$INVR_LBL->set_text (CFClient::UI::InventoryItem::_item_to_desc ($self->{item}->{$OPENCONT}));
1412	$INV->set_items ($self->{container}{$_->{container}});	1763	$INVR->set_items ($self->{container}{$_->{container}});
1413	}	1764	}
1414	}	1765	}
1415	}	1766	}
1416		1767
1417	sub conn::item_update {	1768	sub conn::item_update {
1418	my ($self, $item) = @_;	1769	my ($self, $item) = @_;
1419		1770
1420	update_floorbox if $item->{container} == 0;	1771	#d# print "item_update: $item->{tag} in $item->{container} ($self->{player}{tag}) ($OPENCONT)\n";
1421	if ($self->{player}{tag} == $item->{container}) {	1772
		1773	if ($item->{tag} == $OPENCONT && not ($item->{flags} & Crossfire::Protocol::F_OPEN)) {
		1774	$OPENCONT = 0;
		1775	$INVR_LBL->set_text ("Floor");
		1776	$INVR->set_items ($self->{container}{0});
		1777
		1778	$item->{widget}->update_item
		1779	if $item->{widget};
		1780	} else {
		1781	if ($item->{container} == 0) {
		1782	update_floorbox;
		1783	$OPENCONT = 0;
		1784	$INVR_LBL->set_text ("Floor");
		1785	$INVR->set_items ($self->{container}{0});
		1786	} elsif ($item->{container} == $self->{player}{tag}) {
1422	$INV->set_items ($self->{container}{$item->{container}});	1787	$INV->set_items ($self->{container}{$item->{container}})
		1788	}
1423	}	1789	}
1424	}	1790	}
1425		1791
1426	%SDL_CB = (	1792	%SDL_CB = (
1427	CFClient::SDL_QUIT => sub {	1793	CFClient::SDL_QUIT => sub {
1428	Event::unloop -1;	1794	Event::unloop -1;
1429	},	1795	},
1430	CFClient::SDL_VIDEORESIZE => sub {	1796	CFClient::SDL_VIDEORESIZE => sub {
1431	},	1797	},
1432	CFClient::SDL_VIDEOEXPOSE => \&refresh,	1798	CFClient::SDL_VIDEOEXPOSE => sub {
		1799	CFClient::UI::full_refresh;
		1800	},
1433	CFClient::SDL_ACTIVEEVENT => sub {	1801	CFClient::SDL_ACTIVEEVENT => sub {
1434	# printf "active %x %x\n", $SDL_EV->active_gain, $SDL_EV->active_state;#d#	1802	# printf "active %x %x\n", $SDL_EV->active_gain, $SDL_EV->active_state;#d#
1435	},	1803	},
1436	CFClient::SDL_KEYDOWN => sub {	1804	CFClient::SDL_KEYDOWN => sub {
1437	if ($_[0]{mod} & CFClient::KMOD_ALT && $_[0]{sym} == 13) {	1805	if ($_[0]{mod} & CFClient::KMOD_ALT && $_[0]{sym} == 13) {
…		…
1441	video_init;	1809	video_init;
1442	} else {	1810	} else {
1443	CFClient::UI::feed_sdl_key_down_event ($_[0]);	1811	CFClient::UI::feed_sdl_key_down_event ($_[0]);
1444	}	1812	}
1445	},	1813	},
1446	CFClient::SDL_KEYUP => \&CFClient::UI::feed_sdl_key_up_event,	1814	CFClient::SDL_KEYUP => \&CFClient::UI::feed_sdl_key_up_event,
1447	CFClient::SDL_MOUSEMOTION => \&CFClient::UI::feed_sdl_motion_event,	1815	CFClient::SDL_MOUSEMOTION => \&CFClient::UI::feed_sdl_motion_event,
1448	CFClient::SDL_MOUSEBUTTONDOWN => \&CFClient::UI::feed_sdl_button_down_event,	1816	CFClient::SDL_MOUSEBUTTONDOWN => \&CFClient::UI::feed_sdl_button_down_event,
1449	CFClient::SDL_MOUSEBUTTONUP => \&CFClient::UI::feed_sdl_button_up_event,	1817	CFClient::SDL_MOUSEBUTTONUP => \&CFClient::UI::feed_sdl_button_up_event,
1450	CFClient::SDL_USEREVENT => \&audio_music_finished,	1818	CFClient::SDL_USEREVENT => sub {
		1819	if ($_[0]{code} == 1) {
		1820	audio_channel_finished $_[0]{data1};
		1821	} elsif ($_[0]{code} == 0) {
		1822	audio_music_finished;
		1823	}
		1824	},
1451	);	1825	);
1452		1826
1453	#############################################################################	1827	#############################################################################
1454		1828
1455	$SIG{INT} = $SIG{TERM} = sub { exit };	1829	$SIG{INT} = $SIG{TERM} = sub { exit };
1456		1830
1457	$TILECACHE = CFClient::db_table "tilecache";
1458	$FACEMAP = CFClient::db_table "facemap";
1459
1460	CFClient::read_cfg "$Crossfire::VARDIR/pclientrc";
1461
1462	my %DEF_CFG = (
1463	sdl_mode => 0,
1464	width => 640,
1465	height => 480,
1466	fullscreen => 0,
1467	fast => 0,
1468	map_scale => 0.5,
1469	fow_enable => 1,
1470	fow_intensity => 0.45,
1471	fow_smooth => 0,
1472	gui_fontsize => 1,
1473	log_fontsize => 1,
1474	gauge_fontsize => 1,
1475	gauge_size => 0.35,
1476	stat_fontsize => 1,
1477	mapsize => 100,
1478	host => "crossfire.schmorp.de",
1479	say_command => 'say',
1480	audio_enable => 1,
1481	bgm_enable => 1,
1482	bgm_volume => 0.25,
1483	);
1484
1485	while (my ($k, $v) = each %DEF_CFG) {
1486	$CFG->{$k} = $v unless exists $CFG->{$k};
1487	}
1488
1489	sdl_init;
1490
1491	@SDL_MODES = reverse
1492	grep $_->[0] >= 640 && $_->[1] >= 480,
1493	CFClient::SDL_ListModes;
1494
1495	@SDL_MODES or CFClient::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)";
1496
1497	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES;
1498
1499	{	1831	{
		1832	local $SIG{__DIE__} = sub { CFClient::fatal $_[0] };
		1833
		1834	CFClient::read_cfg "$Crossfire::VARDIR/pclientrc";
		1835
		1836	$TILECACHE = CFClient::db_table "tilecache";
		1837	$FACEMAP = CFClient::db_table "facemap";
		1838
		1839	my %DEF_CFG = (
		1840	sdl_mode => 0,
		1841	width => 640,
		1842	height => 480,
		1843	fullscreen => 0,
		1844	fast => 0,
		1845	map_scale => 1,
		1846	fow_enable => 1,
		1847	fow_intensity => 0.45,
		1848	fow_smooth => 0,
		1849	gui_fontsize => 1,
		1850	log_fontsize => 1,
		1851	gauge_fontsize=> 1,
		1852	gauge_size => 0.35,
		1853	stat_fontsize => 1,
		1854	mapsize => 100,
		1855	host => "crossfire.schmorp.de",
		1856	say_command => 'say',
		1857	audio_enable => 1,
		1858	bgm_enable => 1,
		1859	bgm_volume => 0.25,
		1860	output_sync => 1,
		1861	output_count => 1,
		1862	);
		1863
		1864	while (my ($k, $v) = each %DEF_CFG) {
		1865	$CFG->{$k} = $v unless exists $CFG->{$k};
		1866	}
		1867
		1868	sdl_init;
		1869
		1870	@SDL_MODES = reverse
		1871	grep $_->[0] >= 640 && $_->[1] >= 480,
		1872	CFClient::SDL_ListModes;
		1873
		1874	@SDL_MODES or CFClient::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)";
		1875
		1876	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES;
		1877
		1878	{
1500	my @fonts = map CFClient::find_rcfile "fonts/$_", qw(	1879	my @fonts = map CFClient::find_rcfile "fonts/$_", qw(
1501	DejaVuSans.ttf	1880	DejaVuSans.ttf
1502	DejaVuSansMono.ttf	1881	DejaVuSansMono.ttf
1503	DejaVuSans-Bold.ttf	1882	DejaVuSans-Bold.ttf
1504	DejaVuSansMono-Bold.ttf	1883	DejaVuSansMono-Bold.ttf
1505	DejaVuSans-Oblique.ttf	1884	DejaVuSans-Oblique.ttf
1506	DejaVuSansMono-Oblique.ttf	1885	DejaVuSansMono-Oblique.ttf
1507	DejaVuSans-BoldOblique.ttf	1886	DejaVuSans-BoldOblique.ttf
1508	DejaVuSansMono-BoldOblique.ttf	1887	DejaVuSansMono-BoldOblique.ttf
1509	);	1888	);
1510		1889
1511	CFClient::add_font $_ for @fonts;	1890	CFClient::add_font $_ for @fonts;
1512		1891
		1892	CFClient::pango_init;
		1893
1513	$FONT_PROP = new_from_file CFClient::Font $fonts[0];	1894	$FONT_PROP = new_from_file CFClient::Font $fonts[0];
1514	$FONT_FIXED = new_from_file CFClient::Font $fonts[1];	1895	$FONT_FIXED = new_from_file CFClient::Font $fonts[1];
1515		1896
1516	$FONT_PROP->make_default;	1897	$FONT_PROP->make_default;
1517	}	1898	}
1518		1899
		1900	# compare mono (ft) vs. rgba (cairo)
		1901	# ft - 1.8s, cairo 3s, even in alpha-only mode
		1902	# for my $rgba (0..1) {
		1903	# my $t1 = Time::HiRes::time;
		1904	# for (1..1000) {
		1905	# my $layout = CFClient::Layout->new ($rgba);
		1906	# $layout->set_text ("hallo" x 100);
		1907	# $layout->render;
		1908	# }
		1909	# my $t2 = Time::HiRes::time;
		1910	# warn $t2-$t1;
		1911	# }
		1912
1519	video_init;	1913	video_init;
1520	audio_init;	1914	audio_init;
		1915	}
1521		1916
1522	Event::loop;	1917	Event::loop;
1523		1918
1524	END { CFClient::SDL_Quit }	1919	END { CFClient::SDL_Quit }
1525		1920
		1921	=head1 NAME
		1922
1526	=head1 pclient - Crossfire+ and Crossfire game client	1923	pclient - A Crossfire+ and Crossfire game client
1527		1924
1528	Pclient is a Crossfire+ and Crossfire game client.	1925	=head1 SYNOPSIS
1529		1926
1530	=head2 Features	1927	Just run it - no commandline arguments are supported.
1531
1532	=over 4
1533
1534	=item Fullscreen Map
1535
1536	PClient can uses a fullscreen map, which greatly enhances how much of the
1537	game world you can see.
1538
1539	=item Persistent Map Cache (Crossfire+ only)
1540
1541	PClient can persistently cache all map data it received from the
1542	server. This not only allows it to display an overview map, but also
1543	ensures that once-explored areas will be available the next time you want
1544	to explore more.
1545
1546	=item Hardware acceleration
1547
1548	Unlike most Crossfire clients, PClient take advantage of OpenGL hardware
1549	acceleration. Most modern graphics cards have difficulties with 2D
1550	acceleration, while 3D graphics is accelerated well.
1551
1552	=item No arbitrary limits
1553
1554	Unlike other Crossfire clients, pclient does not suffer from arbitrary
1555	limits (like a fixed amount of face numbers). There are still limits, but
1556	they are not arbitrarily low :)
1557
1558	=back
1559		1928
1560	=head1 USAGE	1929	=head1 USAGE
1561		1930
1562	=head2 The Map	1931	Pclient utilises OpenGL for all UI elements and the game. It is supposed to be used
1563		1932	fullscreen and interactively.
1564	The map is always displayed in the background, behind all other windows and UI elements.
1565
1566	#TODO# middle-click scrolls
1567	#
1568	# keys:
1569	#
1570	# a apply
1571	# keypad moves, kp_5 applies ranged attack to self
1572
1573	Starting to type enters the I<completion mode>. In that mode, you can type
1574	abbreviations or commands and have them executed as soon as they match a
1575	valid command. This is best explained by a few examples:
1576
1577	Typing B<climb> will display a list of commands with I<climb> in their
1578	name, such as I<ready_skill climbing> and I<use_skill climbing>.
1579
1580	You can abbreviate commands by typing only the first character of every
1581	word. For example, typing I<iwor> will likely select I<invoke word of
1582	recall>, while I<ccfo> will select I<cast create food>. Likewise, I<rscli>
1583	will likely select I<ready_skill climbing> and I<usl> will give you
1584	I<use_skill levitation>.
1585
1586	=head2 The map overview
1587
1588	#TODO#
1589
1590	=head2 The Status area in the lower right corner
1591
1592	#TODO#
1593
1594	=head2 The I<Statistics>/I>Stats> window
1595
1596	#TODO#
1597
1598	=head1 FAQ
1599
1600	=over 4
1601
1602	=item The client is very sluggish and slow, what can I do about this?
1603
1604	Most likely, you don't have accelerated OpenGL support. Try to find a
1605	newer driver, or a driver from your hardware vendor, that features OpenGL
1606	support.
1607
1608	If this is not an option, the following Setup options reduce the load and
1609	will likely make the client playable with sofwtare rendering (it will
1610	still be slow, though):
1611
1612	=over 4
1613
1614	=item B<Video Mode> should be set as low as possible (e.g. 640x480)
1615
1616	=item Enable B<Fast & Ugly> mode
1617
1618	=item Disable B<Fog of War>
1619
1620	=item Increase B<Map Scale>
1621
1622	=back
1623
1624	=back
1625		1933
1626	=head1 AUTHOR	1934	=head1 AUTHOR
1627		1935
1628	Marc Lehmann <crossfire@schmorp.de>, Robin Redeker <elmex@ta-sa.org>	1936	Marc Lehmann <crossfire@schmorp.de>, Robin Redeker <elmex@ta-sa.org>
1629		1937

Diff Legend

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