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

Comparing deliantra/Deliantra-Client/bin/pclient (file contents):
Revision 1.179 by root, Tue Apr 25 09:52:05 2006 UTC vs.
Revision 1.235 by root, Mon May 22 02:23:10 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;
…		…
70		75
71	our $FONT_PROP;	76	our $FONT_PROP;
72	our $FONT_FIXED;	77	our $FONT_FIXED;
73		78
74	our $MAP;	79	our $MAP;
		80	our $MAPMAP;
75	our $MAPWIDGET;	81	our $MAPWIDGET;
76	our $BUTTONBAR;	82	our $BUTTONBAR;
77	our $LOGVIEW;	83	our $LOGVIEW;
78	our $CONSOLE;	84	our $CONSOLE;
79	our $METASERVER;	85	our $METASERVER;
		86	our $LOGIN_BUTTON;
80		87
81	our $FLOORBOX;	88	our $FLOORBOX;
82	our $GAUGES;	89	our $GAUGES;
83	our $STATWIDS;	90	our $STATWIDS;
84		91
…		…
88	our $SDL_MIXER;	95	our $SDL_MIXER;
89	our @SOUNDS; # event => file mapping	96	our @SOUNDS; # event => file mapping
90	our %AUDIO_CHUNKS; # audio files	97	our %AUDIO_CHUNKS; # audio files
91		98
92	our $ALT_ENTER_MESSAGE;	99	our $ALT_ENTER_MESSAGE;
93	our $STATUS_LINE;	100	our $STATUSBOX;
94	our $DEBUG_STATUS;	101	our $DEBUG_STATUS;
95		102
		103	our $INVWIN;
		104	our $INV;
		105	our $INVR;
		106	our $INVR_LBL;
		107	our $OPENCONT;
		108
96	sub status {	109	sub status {
97	$STATUS_LINE->set_text ($_[0]);	110	$STATUSBOX->add (CFClient::UI::Label::escape $_[0], pri => -10, group => "status", timeout => 20, fg => [1, 1, 0, 1]);
98	$STATUS_LINE->move (0, $HEIGHT - $ALT_ENTER_MESSAGE->{h} - $STATUS_LINE->{h});
99	}	111	}
100		112
101	sub debug {	113	sub debug {
102	$DEBUG_STATUS->set_text ($_[0]);	114	$DEBUG_STATUS->set_text ($_[0]);
103	$DEBUG_STATUS->move ($WIDTH - $DEBUG_STATUS->{w}, 0, $DEBUG_STATUS->{w}, $DEBUG_STATUS->{h});	115	my ($w, $h) = $DEBUG_STATUS->size_request;
		116	$DEBUG_STATUS->move ($WIDTH - $w, 0);
104	}	117	}
105		118
106	sub start_game {	119	sub start_game {
107	status "logging in...";	120	status "logging in...";
108		121
109	my $mapsize = List::Util::min 32, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / 32;	122	my $mapsize = List::Util::min 32, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / 32;
110		123
111	$MAPCACHE = CFClient::db_table "mapcache_$CFG->{host}";	124	$MAPCACHE = CFClient::db_table "mapcache_$CFG->{host}";
112
113	$MAP = new CFClient::Map $mapsize, $mapsize;	125	$MAP = new CFClient::Map $mapsize, $mapsize;
114		126
115	my ($host, $port) = split /:/, $CFG->{host};	127	my ($host, $port) = split /:/, $CFG->{host};
116		128
117	$CONN = new conn	129	$CONN = eval {
		130	new conn
118	host => $host,	131	host => $host,
119	port => $port \|\| 13327,	132	port => $port \|\| 13327,
120	user => $CFG->{user},	133	user => $CFG->{user},
121	pass => $CFG->{password},	134	pass => $CFG->{password},
122	mapw => $mapsize,	135	mapw => $mapsize,
123	maph => $mapsize,	136	maph => $mapsize,
		137	;
124	;	138	};
125		139
126	status "login successful";	140	if ($CONN) {
127
128	CFClient::lowdelay fileno $CONN->{fh};	141	CFClient::lowdelay fileno $CONN->{fh};
		142
		143	$LOGIN_BUTTON->set_text ("Logout");
		144	status "login successful";
		145
		146	$BUTTONBAR->{children}[1]->emit ("activate")
		147	if $BUTTONBAR->{children}[1]->{state};
		148
		149	} else {
		150	status "unable to connect";
		151	stop_game();
		152	}
129	}	153	}
130		154
131	sub stop_game {	155	sub stop_game {
		156	return unless $CONN;
		157
		158	status "connection closed";
		159	$LOGIN_BUTTON->set_text ("Login");
		160	$CONN->destroy;
		161	$CONN = 0; # false, does not autovivify
		162
		163	$BUTTONBAR->{children}[1]->emit ("activate")
		164	unless $BUTTONBAR->{children}[1]->{state};
		165
		166	undef $MAPCACHE;
132	undef $CONN;	167	undef $MAP;
133	}	168	}
134		169
135	sub client_setup {	170	sub client_setup {
136	my $dialog = new CFClient::UI::FancyFrame	171	my $dialog = new CFClient::UI::FancyFrame
137	title => "Client Setup",	172	title => "Client Setup",
…		…
139	$vbox->add (my $table = new CFClient::UI::Table expand => 1, col_expand => [0, 1]);	174	$vbox->add (my $table = new CFClient::UI::Table expand => 1, col_expand => [0, 1]);
140		175
141	$table->add (0, 0, new CFClient::UI::Label valign => 0, align => 1, text => "Video Mode");	176	$table->add (0, 0, new CFClient::UI::Label valign => 0, align => 1, text => "Video Mode");
142	$table->add (1, 0, my $hbox = new CFClient::UI::HBox);	177	$table->add (1, 0, my $hbox = new CFClient::UI::HBox);
143		178
144	$hbox->add (my $mode_slider = new CFClient::UI::Slider expand => 1, req_w => 100, range => [$CFG->{sdl_mode}, 0, scalar @SDL_MODES, 1]);	179	$hbox->add (my $mode_slider = new CFClient::UI::Slider expand => 1, req_w => 100, range => [$CFG->{sdl_mode}, 0, $#SDL_MODES, 1, 1]);
145	$hbox->add (my $mode_label = new CFClient::UI::Label align => 0, valign => 0, height => 0.8, template => "9999x9999");	180	$hbox->add (my $mode_label = new CFClient::UI::Label align => 0, valign => 0, height => 0.8, template => "9999x9999");
146		181
147	$mode_slider->connect (changed => sub {	182	$mode_slider->connect (changed => sub {
148	my ($self, $value) = @_;	183	my ($self, $value) = @_;
149		184
…		…
174	}	209	}
175	);	210	);
176		211
177	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Map Scale");	212	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Map Scale");
178	$table->add (1, $row++, new CFClient::UI::Slider	213	$table->add (1, $row++, new CFClient::UI::Slider
179	range => [$CFG->{map_scale}, 0.25, 2, 0.05],	214	range => [$CFG->{map_scale}, 0.25, 2, 0.05, 0.05],
180	tooltip => "Enlarge or shrink the displayed map",	215	tooltip => "Enlarge or shrink the displayed map",
181	connect_changed => sub {	216	connect_changed => sub {
182	my ($self, $value) = @_;	217	my ($self, $value) = @_;
183	$CFG->{map_scale} = 0.05 * int $value / 0.05;	218	$CFG->{map_scale} = $value;
184	}	219	}
185	);	220	);
186		221
187	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fog of War");	222	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fog of War");
188	$table->add (1, $row++, new CFClient::UI::CheckBox	223	$table->add (1, $row++, new CFClient::UI::CheckBox
…		…
215	}	250	}
216	);	251	);
217		252
218	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "GUI Fontsize");	253	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "GUI Fontsize");
219	$table->add (1, $row++, new CFClient::UI::Slider	254	$table->add (1, $row++, new CFClient::UI::Slider
220	range => [$CFG->{gui_fontsize}, 0.5, 2, 0.1],	255	range => [$CFG->{gui_fontsize}, 0.5, 2, 0.1, 0.1],
221	tooltip => "The font size used by most GUI elements",	256	tooltip => "The font size used by most GUI elements",
222	connect_changed => sub {	257	connect_changed => sub { $CFG->{gui_fontsize} = $_[1] },
223	$CFG->{gui_fontsize} = 0.1 * int $_[1] * 10;
224	# $FONTSIZE = int $HEIGHT / 40 * $CFG->{gui_fontsize};
225	}
226	);	258	);
227		259
228	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Server Log Fontsize");	260	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Server Log Fontsize");
229	$table->add (1, $row++, new CFClient::UI::Slider	261	$table->add (1, $row++, new CFClient::UI::Slider
230	range => [$CFG->{log_fontsize}, 0.5, 2, 0.1],	262	range => [$CFG->{log_fontsize}, 0.5, 2, 0.1, 0.1],
231	tooltip => "The font size used by the server log window only",	263	tooltip => "The font size used by the server log window only",
232	connect_changed => sub {	264	connect_changed => sub { $LOGVIEW->set_fontsize ($CFG->{log_fontsize} = $_[1]) },
233	$LOGVIEW->set_fontsize ($CFG->{log_fontsize} = 0.1 * int $_[1] * 10);
234	}
235	);	265	);
236		266
237	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Stats Fontsize");	267	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Stats Fontsize");
238		268
239	$table->add (1, $row++, new CFClient::UI::Slider	269	$table->add (1, $row++, new CFClient::UI::Slider
240	range => [$CFG->{stat_fontsize}, 0.5, 2, 0.1],	270	range => [$CFG->{stat_fontsize}, 0.5, 2, 0.1, 0.1],
241	tooltip => "The font size used by the statistics window only",	271	tooltip => "The font size used by the statistics window only",
242	connect_changed => sub {	272	connect_changed => sub {
243	$CFG->{stat_fontsize} = 0.1 * int $_[1] * 10;	273	$CFG->{stat_fontsize} = $_[1];
244	&set_stats_window_fontsize;	274	&set_stats_window_fontsize;
245	}	275	}
246	);	276	);
247		277
248	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Gauge size");	278	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Gauge size");
249	$table->add (1, $row++, new CFClient::UI::Slider	279	$table->add (1, $row++, new CFClient::UI::Slider
250	range => [$CFG->{gauge_size}, 0.2, 0.8, 0.02],	280	range => [$CFG->{gauge_size}, 0.2, 0.8, 0.02],
251	tooltip => "Adjust the size of the stats gauges at the bottom right",	281	tooltip => "Adjust the size of the stats gauges at the bottom right",
252	connect_changed => sub {	282	connect_changed => sub {
253	$CFG->{gauge_size} = $_[1];	283	$CFG->{gauge_size} = $_[1];
254	my $h = int $HEIGHT * $CFG->{gauge_size};	284	$GAUGES->{win}->set_size ($WIDTH, int $HEIGHT * $CFG->{gauge_size});
255	$GAUGES->{win}->set_size ($WIDTH, $h);
256	$GAUGES->{win}->move (0, $HEIGHT - $h);
257	}	285	}
258	);	286	);
259		287
260	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Gauge fontsize");	288	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Gauge fontsize");
261	$table->add (1, $row++, new CFClient::UI::Slider	289	$table->add (1, $row++, new CFClient::UI::Slider
262	range => [$CFG->{gauge_fontsize}, 0.5, 2.0, 0.1],	290	range => [$CFG->{gauge_fontsize}, 0.5, 2.0, 0.1, 0.1],
263	tooltip => "Adjusts the fontsize of the gauges at the bottom right",	291	tooltip => "Adjusts the fontsize of the gauges at the bottom right",
264	connect_changed => sub {	292	connect_changed => sub {
265	$CFG->{gauge_fontsize} = 0.1 * int $_[1] * 10;	293	$CFG->{gauge_fontsize} = $_[1];
266	&set_gauge_window_fontsize;	294	&set_gauge_window_fontsize;
267	}	295	}
268	);	296	);
269		297
270	$table->add (1, $row++, new CFClient::UI::Button	298	$table->add (1, $row++, new CFClient::UI::Button
…		…
313	audio_shutdown ();	341	audio_shutdown ();
314	audio_init ();	342	audio_init ();
315	}	343	}
316	);	344	);
317		345
		346	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Communication cmd");
		347	$table->add (1, $row++, my $saycmd = new CFClient::UI::Entry
		348	text => $CFG->{say_command},
		349	tooltip => "This is the command that will be used if you write a line in the message window entry. "
		350	."Usually you want to enter something like 'say' or 'shout' or 'gsay' here. "
		351	."But you could also set it to 'tell <playername>' to only chat with that user.",
		352	connect_changed => sub {
		353	my ($self, $value) = @_;
		354	$CFG->{say_command} = $value;
		355	}
		356	);
		357
318	$dialog	358	$dialog
319	}	359	}
320		360
321	sub set_stats_window_fontsize {	361	sub set_stats_window_fontsize {
322	for (values %{$STATWIDS}) {	362	for (values %{$STATWIDS}) {
…		…
332	# local $GAUGES->{win}{parent};#d#	372	# local $GAUGES->{win}{parent};#d#
333	# use PApp::Util; open D, ">:utf8", "d"; print D PApp::Util::dumpval $GAUGES->{win}; close D;	373	# use PApp::Util; open D, ">:utf8", "d"; print D PApp::Util::dumpval $GAUGES->{win}; close D;
334	}	374	}
335		375
336	sub make_gauge_window {	376	sub make_gauge_window {
337	my $gh = int ($HEIGHT * $CFG->{gauge_size});	377	my $gh = int $HEIGHT * $CFG->{gauge_size};
338	# my $gw = int ($WIDTH * $CFG->{gauge_w_size});
339		378
340	my $win = new CFClient::UI::Frame (	379	my $win = new CFClient::UI::Frame (
341	y => $HEIGHT - $gh, x => 0, user_w => $WIDTH, user_h => $gh	380	req_y => -1,
		381	user_w => $WIDTH,
		382	user_h => $gh,
342	);	383	);
		384
343	$win->add (my $hbox = new CFClient::UI::HBox	385	$win->add (my $hbox = new CFClient::UI::HBox
344	children => [	386	children => [
345	(new CFClient::UI::HBox expand => 1),	387	(new CFClient::UI::HBox expand => 1),
346	($FLOORBOX = new CFClient::UI::VBox),	388	(new CFClient::UI::VBox children => [
		389	(new CFClient::UI::Empty expand => 1),
		390	(new CFClient::UI::Frame bg => [0, 0, 0, 0.4], child => ($FLOORBOX = new CFClient::UI::VBox)),
		391	]),
347	(my $vbox = new CFClient::UI::VBox),	392	(my $vbox = new CFClient::UI::VBox),
348	],	393	],
349	);	394	);
350		395
351	$vbox->add (new CFClient::UI::HBox	396	$vbox->add (new CFClient::UI::HBox
…		…
355	(my $hb = new CFClient::UI::HBox),	400	(my $hb = new CFClient::UI::HBox),
356	],	401	],
357	);	402	);
358		403
359	$hb->add (my $hg = new CFClient::UI::Gauge type => 'hp',	404	$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");	405	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.");
361	$hb->add (my $mg = new CFClient::UI::Gauge type => 'mana',	406	$hb->add (my $mg = new CFClient::UI::Gauge type => 'mana',
362	tooltip => "Spell points - deplete when you cast wizard spells, refills when you idle");	407	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.");
363	$hb->add (my $gg = new CFClient::UI::Gauge type => 'grace',	408	$hb->add (my $gg = new CFClient::UI::Gauge type => 'grace',
364	tooltip => "Grace points - deplete when you cast priest spells, refills when you pray");	409	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.");
365	$hb->add (my $fg = new CFClient::UI::Gauge type => 'food',	410	$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");	411	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.");
367		412
368	$vbox->add (my $exp = new CFClient::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1,	413	$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");	414	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.");
370	$vbox->add (my $rng = new CFClient::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1,	415	$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.)");	416	tooltip => "Ranged attack - how you attack when you press shift-cursor (spell, skill, weapon etc.)");
372		417
373	$GAUGES = {	418	$GAUGES = {
374	exp => $exp, win => $win, range => $rng,	419	exp => $exp, win => $win, range => $rng,
…		…
379		424
380	$win	425	$win
381	}	426	}
382		427
383	sub make_stats_window {	428	sub make_stats_window {
384	my $tgw = new CFClient::UI::FancyFrame (x => $WIDTH * 2/5, y => 0, title => "Stats");	429	my $tgw = new CFClient::UI::FancyFrame x => $WIDTH * 2/5, y => 0, title => "Stats";
385		430
386	$tgw->add (my $vb = new CFClient::UI::VBox);	431	$tgw->add (new CFClient::UI::Window child => my $vb = new CFClient::UI::VBox);
387	$vb->add ($STATWIDS->{title} = new CFClient::UI::Label valign => 0, align => -1, text => "Title:", expand => 1);	432	$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);	433	$vb->add ($STATWIDS->{map} = new CFClient::UI::Label valign => 0, align => -1, text => "Map:", expand => 1);
389		434
390	$vb->add (my $hb = new CFClient::UI::HBox expand => 1);	435	$vb->add (my $hb = new CFClient::UI::HBox expand => 1);
391		436
392	$hb->add (my $tbl = new CFClient::UI::Table expand => 1);	437	$hb->add (my $tbl = new CFClient::UI::Table expand => 1);
393		438
394	my $black = [0, 0, 0];	439	my $black = [0, 0, 0];
395		440
396	$tbl->add (0, 0, $STATWIDS->{st_str} = new CFClient::UI::Label valign => 0, align => +1, template => "30");	441	for (
397	$tbl->add (0, 1, $STATWIDS->{st_dex} = new CFClient::UI::Label valign => 0, align => +1, template => "30");	442	[0, 0, st_str => "Str", 30, "Physical Strength, determines damage dealt with weapons, how much you can carry, and how often you can attack"],
398	$tbl->add (0, 2, $STATWIDS->{st_con} = new CFClient::UI::Label valign => 0, align => +1, template => "30");	443	[0, 1, st_dex => "Dex", 30, "Dexterity, your physical agility. Determines chance of being hit and affects armor class and speed"],
399	$tbl->add (0, 3, $STATWIDS->{st_int} = new CFClient::UI::Label valign => 0, align => +1, template => "30");	444	[0, 2, st_con => "Con", 30, "Constitution, physical health and toughness. Determines how many healthpoints you can have"],
400	$tbl->add (0, 4, $STATWIDS->{st_wis} = new CFClient::UI::Label valign => 0, align => +1, template => "30");	445	[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"],
401	$tbl->add (0, 5, $STATWIDS->{st_pow} = new CFClient::UI::Label valign => 0, align => +1, template => "30");	446	[0, 4, st_wis => "Wis", 30, "Wisdom, the ability to learn and use divine magic (prayers). Determines how many grace points you can have"],
402	$tbl->add (0, 6, $STATWIDS->{st_cha} = new CFClient::UI::Label valign => 0, align => +1, template => "30");	447	[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, 6, st_cha => "Cha", 30, "Charisma, how well you are received by NPCs. Affects buying and selling prices in shops."],
403		449
404	$tbl->add (1, 0, $STATWIDS->{st_str_lbl} = new CFClient::UI::Label fg => $black, valign => 0, align => -1, text => "Str");	450	[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."],
405	$tbl->add (1, 1, $STATWIDS->{st_dex_lbl} = new CFClient::UI::Label fg => $black, valign => 0, align => -1, text => "Dex");	451	[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."],
406	$tbl->add (1, 2, $STATWIDS->{st_con_lbl} = new CFClient::UI::Label fg => $black, valign => 0, align => -1, text => "Con");	452	[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."],
407	$tbl->add (1, 3, $STATWIDS->{st_int_lbl} = new CFClient::UI::Label fg => $black, valign => 0, align => -1, text => "Int");	453	[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."],
408	$tbl->add (1, 4, $STATWIDS->{st_wis_lbl} = new CFClient::UI::Label fg => $black, valign => 0, align => -1, text => "Wis");	454	[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."],
409	$tbl->add (1, 5, $STATWIDS->{st_pow_lbl} = new CFClient::UI::Label fg => $black, valign => 0, align => -1, text => "Pow");	455	[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."],
410	$tbl->add (1, 6, $STATWIDS->{st_cha_lbl} = new CFClient::UI::Label fg => $black, valign => 0, align => -1, text => "Cha");	456	) {
		457	my ($col, $row, $id, $label, $template, $tooltip) = @$_;
411		458
412	$tbl->add (2, 0, $STATWIDS->{st_wc} = new CFClient::UI::Label valign => 0, align => +1, template => "-120");	459	$tbl->add ($col , $row, $STATWIDS->{$id} = new CFClient::UI::Label
413	$tbl->add (2, 1, $STATWIDS->{st_ac} = new CFClient::UI::Label valign => 0, align => +1, template => "-120");	460	font => $FONT_FIXED, can_hover => 1, can_events => 1, valign => 0, align => +1, template => $template, tooltip => $tooltip);
414	$tbl->add (2, 2, $STATWIDS->{st_dam} = new CFClient::UI::Label valign => 0, align => +1, template => "120");	461	$tbl->add ($col + 1, $row, $STATWIDS->{"$id\_lbl"} = new CFClient::UI::Label
415	$tbl->add (2, 3, $STATWIDS->{st_arm} = new CFClient::UI::Label valign => 0, align => +1, template => "120");	462	font => $FONT_FIXED, can_hover => 1, can_events => 1, fg => $black, valign => 0, align => -1, text => $label, tooltip => $tooltip);
416	$tbl->add (2, 4, $STATWIDS->{st_spd} = new CFClient::UI::Label valign => 0, align => +1, template => "10.54");	463	}
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		464
426	$hb->add (my $tbl2 = new CFClient::UI::Table expand => 1);	465	$hb->add (my $tbl2 = new CFClient::UI::Table expand => 1);
427		466
428	my $row = 0;	467	my $row = 0;
429	my $col = 0;	468	my $col = 0;
430		469
431	my %resist_names = (	470	my %resist_names = (
432	slow => "Slow",	471	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.)",
433	holyw => "Holy Word",	472	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.)",
434	conf => "Confusion",	473	conf => "<b>Confusion</b> (If you are hit by confusion you will move into random directions, and likely into monsters.)",
435	fire => "Fire",	474	fire => "<b>Fire</b> (just your resistance to fire spells like burning hands, dragonbreath, meteor swarm fire, ...)",
436	depl => "Depletion",	475	depl => "<b>Depletion</b> (some monsters and other effects can cause stats depletion)",
437	magic => "Magic",	476	magic => "<b>Magic</b> (resistance to magic spells like magic missile or similar)",
438	drain => "Draining",	477	drain => "<b>Draining</b> (some monsters (e.g. vampires) and other effects can steal experience)",
439	acid => "Acid",	478	acid => "<b>Acid</b> (resistance to acid, acid hurts pretty much and also corrodes your weapons)",
440	pois => "Poison",	479	pois => "<b>Poison</b> (resistance to getting poisoned)",
441	para => "Paralysation",	480	para => "<b>Paralysation</b> (this resistance affects the chance you get paralysed)",
442	deat => "Death",	481	deat => "<b>Death</b> (resistance against death spells)",
443	phys => "Physical",	482	phys => "<b>Physical</b> (this is the resistance against physical attacks, like when a monster hit you in melee combat)",
444	blind => "Blind",	483	blind => "<b>Blind</b> (blind resistance affects the chance of a successful blinding attack)",
445	fear => "Fear",	484	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)",
446	tund => "Turn undead",	485	tund => "<b>Turn undead</b> (affects your resistancy to various forms of 'turn undead' spells. Only relevant when you are, in fact, undead...",
447	elec => "Electricity",	486	elec => "<b>Electricity</b> (resistance against electricity, spells like large lightning, small lightning, ...)",
448	cold => "Cold",	487	cold => "<b>Cold</b> (this is your resistance against cold spells like icestorm, snowstorm, ...)",
449	ghit => "Ghost hit",	488	ghit => "<b>Ghost hit</b> (special attack used by ghosts and ghost-like beings)",
450	);	489	);
451	for (qw/slow holyw conf fire depl magic	490	for (qw/slow holyw conf fire depl magic
452	drain acid pois para deat phys	491	drain acid pois para deat phys
453	blind fear tund elec cold ghit/)	492	blind fear tund elec cold ghit/)
454	{	493	{
455	$tbl2->add ($col, $row,	494	$tbl2->add ($col, $row,
456	$STATWIDS->{"res_$_"} =	495	$STATWIDS->{"res_$_"} =
457	new CFClient::UI::Label	496	new CFClient::UI::Label
		497	font => $FONT_FIXED,
458	template => "-100%",	498	template => "-100%",
459	align => +1,	499	align => +1,
460	valign => 0,	500	valign => 0,
		501	can_events => 1,
		502	can_hover => 1,
461	tooltip => $resist_names{$_}	503	tooltip => $resist_names{$_},
462	);	504	);
463	$tbl2->add ($col + 1, $row, new CFClient::UI::Image	505	$tbl2->add ($col + 1, $row, new CFClient::UI::Image
		506	font => $FONT_FIXED,
464	can_hover => 1,	507	can_hover => 1,
465	can_events => 1,	508	can_events => 1,
466	image => "ui/resist/resist_$_.png",	509	image => "ui/resist/resist_$_.png",
467	tooltip => $resist_names{$_}	510	tooltip => $resist_names{$_},
468	);	511	);
469		512
470	$row++;	513	$row++;
471	if ($row % 6 == 0) {	514	if ($row % 6 == 0) {
472	$col += 2;	515	$col += 2;
…		…
551		594
552	}	595	}
553		596
554	sub metaserver_dialog {	597	sub metaserver_dialog {
555	my $dialog = new CFClient::UI::FancyFrame	598	my $dialog = new CFClient::UI::FancyFrame
556	title => "Metaserver",	599	title => "Server List",
557	child => (my $vbox = new CFClient::UI::VBox);	600	child => (my $vbox = new CFClient::UI::VBox);
558		601
559	$vbox->add ($dialog->{table} = new CFClient::UI::Table);	602	$vbox->add ($dialog->{table} = new CFClient::UI::Table);
560		603
561	$dialog	604	$dialog
…		…
630	$HOST->set_text ($CFG->{host} = $host);	673	$HOST->set_text ($CFG->{host} = $host);
631	}),	674	}),
632	(new CFClient::UI::Empty expand => 1),	675	(new CFClient::UI::Empty expand => 1),
633	]);	676	]);
634		677
635	$table->add ($_ + 1, $y, new CFClient::UI::Label align => $align[$_], text => $m->[$_], fontsize => 0.8)	678	$table->add ($_ + 1, $y, new CFClient::UI::Label
		679	ellipsise => 0, align => $align[$_], text => $m->[$_], fontsize => 0.8)
636	for 0 .. $#$m;	680	for 0 .. $#$m;
637	}	681	}
638	}	682	}
639	});	683	});
640	}	684	}
…		…
663		707
664	$METASERVER = metaserver_dialog;	708	$METASERVER = metaserver_dialog;
665		709
666	$vbox->add (new CFClient::UI::Flopper	710	$vbox->add (new CFClient::UI::Flopper
667	expand => 1,	711	expand => 1,
668	text => "Metaserver",	712	text => "Server List",
669	other => $METASERVER,	713	other => $METASERVER,
670	tooltip => "Show a list of avaible crossfire servers",	714	tooltip => "Show a list of available crossfire servers",
671	connect_open => sub {	715	connect_open => sub {
672	update_metaserver $HOST;	716	update_metaserver $HOST;
673	}	717	}
674	);	718	);
675	}	719	}
…		…
693	my ($self, $value) = @_;	737	my ($self, $value) = @_;
694	$CFG->{password} = $value;	738	$CFG->{password} = $value;
695	}	739	}
696	);	740	);
697		741
698	$table->add (0, 6, new CFClient::UI::Label valign => 0, align => 1, text => "Def. say cmd");
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 {
705	my ($self, $value) = @_;
706	$CFG->{say_command} = $value;
707	}
708	);
709
710	$table->add (0, 7, new CFClient::UI::Label valign => 0, align => 1, text => "Map Size");	742	$table->add (0, 7, new CFClient::UI::Label valign => 0, align => 1, text => "Map Size");
711	$table->add (1, 7, new CFClient::UI::Slider	743	$table->add (1, 7, new CFClient::UI::Slider
712	req_w => 100,	744	req_w => 100,
713	range => [$CFG->{mapsize}, 10, 100 + 1, 1],	745	range => [$CFG->{mapsize}, 10, 100 + 1, 1, 1],
714	tooltip => "This is the size of the portion of the map update the server sends you. "	746	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.",	747	."If you set this to a high value you will be able to see further for example.",
716	connect_changed => sub {	748	connect_changed => sub {
717	my ($self, $value) = @_;	749	my ($self, $value) = @_;
718		750
719	$CFG->{mapsize} = $self->{range}[0] = $value = int $value;	751	$CFG->{mapsize} = $self->{range}[0] = $value = int $value;
720	},	752	},
721	);	753	);
722		754
723	$table->add (1, 8, new CFClient::UI::Button expand => 1, align => 0, text => "Login", connect_activate => sub {	755	$table->add (0, 8, new CFClient::UI::Label valign => 0, align => 1, text => "Output-Count");
724	start_game;	756	$table->add (1, 8, new CFClient::UI::Entry
		757	text => $CFG->{output_count},
		758	tooltip => "Should be set to 1 unless you know what you are doing",
		759	connect_changed => sub { $CFG->{output_count} = $_[1] },
725	});	760	);
		761
		762	$table->add (0, 9, new CFClient::UI::Label valign => 0, align => 1, text => "Output-Sync");
		763	$table->add (1, 9, new CFClient::UI::Entry
		764	text => $CFG->{output_sync},
		765	tooltip => "Should be set to 1 unless you know what you are doing",
		766	connect_changed => sub { $CFG->{output_sync} = $_[1] },
		767	);
		768
		769	$table->add (1, 10, $LOGIN_BUTTON = new CFClient::UI::Button
		770	expand => 1,
		771	align => 0,
		772	text => "Login",
		773	connect_activate => sub {
		774	$CONN ? stop_game
		775	: start_game;
		776	},
		777	);
726		778
727	$dialog	779	$dialog
728	}	780	}
729		781
730	sub message_window {	782	sub message_window {
731	my $window = new CFClient::UI::FancyFrame	783	my $window = new CFClient::UI::FancyFrame
732	title => "Messages",	784	title => "Messages",
733	border_bg => [1, 1, 1, 0.5],	785	border_bg => [1, 1, 1, 1],
734	bg => [0.3, 0.3, 0.3, 0.8],	786	bg => [0, 0, 0, 0.5],
735	user_w => int $::WIDTH / 3,	787	user_w => int $::WIDTH / 3,
736	user_h => int $::HEIGHT / 5,	788	user_h => int $::HEIGHT / 5,
737	child => (my $vbox = new CFClient::UI::VBox);	789	child => (my $vbox = new CFClient::UI::VBox);
738		790
739	$vbox->add ($LOGVIEW = new CFClient::UI::TextView	791	$vbox->add ($LOGVIEW);
740	expand => 1,
741	font => $FONT_FIXED,
742	fontsize => $::CFG->{log_fontsize},
743	);
744		792
745	$vbox->add (my $input = new CFClient::UI::Entry	793	$vbox->add (my $input = new CFClient::UI::Entry
746	connect_focus_in => sub {	794	connect_focus_in => sub {
747	my ($input, $prev_focus) = @_;	795	my ($input, $prev_focus) = @_;
748		796
…		…
779	};	827	};
780		828
781	$window	829	$window
782	}	830	}
783		831
		832	sub make_inventory_window {
		833	my $invwin = new CFClient::UI::FancyFrame
		834	user_w => $WIDTH * (4/5), user_h => $HEIGHT * (4/5), title => "Inventory";
		835
		836	$invwin->add (my $hb = new CFClient::UI::HBox expand => 1);
		837
		838	$hb->add (my $vb1 = new CFClient::UI::VBox expand => 1);
		839	$vb1->add (my $lbl = new CFClient::UI::Label);
		840	$lbl->set_text ("Player");
		841	$vb1->add ($INV = new CFClient::UI::Inventory expand => 1);
		842
		843	$hb->add (my $vb2 = new CFClient::UI::VBox expand => 1);
		844	$vb2->add ($INVR_LBL = new CFClient::UI::Label);
		845	$INVR_LBL->set_text ("Floor");
		846	$vb2->add ($INVR = new CFClient::UI::Inventory expand => 1);
		847
		848	$invwin
		849	}
		850
784	sub sdl_init {	851	sub sdl_init {
785	CFClient::SDL_Init	852	CFClient::SDL_Init
786	and die "SDL::Init failed!\n";	853	and die "SDL::Init failed!\n";
787	}	854	}
788		855
789	sub video_init {	856	sub video_init {
790	sdl_init;	857	sdl_init;
791		858
		859	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} >= @SDL_MODES;
		860
792	($WIDTH, $HEIGHT) = @{ $SDL_MODES[$CFG->{sdl_mode}] };	861	($WIDTH, $HEIGHT) = @{ $SDL_MODES[$CFG->{sdl_mode}] };
793	$FULLSCREEN = $CFG->{fullscreen};	862	$FULLSCREEN = $CFG->{fullscreen};
794	$FAST = $CFG->{fast};	863	$FAST = $CFG->{fast};
795		864
796	CFClient::SDL_SetVideoMode $WIDTH, $HEIGHT, $FULLSCREEN	865	CFClient::SDL_SetVideoMode $WIDTH, $HEIGHT, $FULLSCREEN
797	or die "SDL_SetVideoMode failed!\n";	866	or die "SDL_SetVideoMode failed: " . (CFClient::SDL_GetError) . "\n";
798		867
799	$SDL_ACTIVE = 1;	868	$SDL_ACTIVE = 1;
800
801	$LAST_REFRESH = time - 0.01;	869	$LAST_REFRESH = time - 0.01;
802		870
803	CFClient::gl_init;	871	CFClient::gl_init;
804		872
805	$FONTSIZE = int $HEIGHT / 40 * $CFG->{gui_fontsize};	873	$FONTSIZE = int $HEIGHT / 40 * $CFG->{gui_fontsize};
806		874
		875	$CFClient::UI::ROOT->configure (0, 0, $WIDTH, $HEIGHT);#d#
		876
807	#############################################################################	877	#############################################################################
808		878
		879	unless ($DEBUG_STATUS) {
		880	# create the widgets
		881
809	$DEBUG_STATUS = new CFClient::UI::Label padding => 0, z => 100;	882	$DEBUG_STATUS = new CFClient::UI::Label padding => 0, z => 100, req_x => -1;
810	$DEBUG_STATUS->show;	883	$DEBUG_STATUS->show;
811		884
812	$STATUS_LINE = new CFClient::UI::Label	885	$STATUSBOX = new CFClient::UI::Statusbox;
813	padding => 0,	886	$STATUSBOX->add ("Use <b>Alt-Enter</b> to toggle fullscreen mode", pri => -100, color => [1, 1, 1, 0.8]);
814	y => $HEIGHT - $FONTSIZE * 1.8;
815	$STATUS_LINE->show;
816		887
817	$ALT_ENTER_MESSAGE = new CFClient::UI::Label	888	(new CFClient::UI::Frame
818	padding => 0,	889	bg => [0, 0, 0, 0.4],
819	fontsize => 0.8,	890	req_y => -1,
820	markup => "Use <b>Alt-Enter</b> to toggle fullscreen mode";	891	child => $STATUSBOX,
821	$ALT_ENTER_MESSAGE->show;	892	)->show;
822	$ALT_ENTER_MESSAGE->move (0, $HEIGHT - $ALT_ENTER_MESSAGE->{h});
823		893
824	$CFClient::UI::ROOT->add ($MAPWIDGET = new CFClient::MapWidget);	894	CFClient::UI::FancyFrame->new (
825	$MAPWIDGET->focus_in;	895	border_bg => [1, 1, 1, 192/255],
		896	bg => [1, 1, 1, 0],
		897	child => ($MAPMAP = new CFClient::MapWidget::MapMap),
		898	)->show;
		899
		900	$MAPWIDGET = new CFClient::MapWidget;
826	$MAPWIDGET->connect (activate_console => sub {	901	$MAPWIDGET->connect (activate_console => sub {
827	my ($mapwidget, $preset) = @_;	902	my ($mapwidget, $preset) = @_;
828		903
829	if ($CONSOLE) {	904	if ($CONSOLE) {
830	$CONSOLE->{input}->{auto_activated} = 1;	905	$CONSOLE->{input}->{auto_activated} = 1;
831	$CONSOLE->{input}->focus_in;	906	$CONSOLE->{input}->focus_in;
832		907
833	if ($preset && $CONSOLE->{input}->get_text eq '') {	908	if ($preset && $CONSOLE->{input}->get_text eq '') {
834	$CONSOLE->{input}->set_text ($preset);	909	$CONSOLE->{input}->set_text ($preset);
		910	}
835	}	911	}
836	}	912	});
837	});	913	$MAPWIDGET->show;
		914	$MAPWIDGET->focus_in;
838		915
839	$CFClient::UI::ROOT->add ($BUTTONBAR = new CFClient::UI::HBox);	916	$LOGVIEW = new CFClient::UI::TextView
		917	expand => 1,
		918	font => $FONT_FIXED,
		919	fontsize => $::CFG->{log_fontsize},
		920	;
840		921
		922	$BUTTONBAR = new CFClient::UI::HBox;
		923
841	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Client Setup", other => client_setup);	924	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Client Setup", other => client_setup);
842	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Server Setup", other => server_setup);	925	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Server Setup", other => server_setup);
843	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Message Window", other => message_window);	926	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Message Window", other => message_window);
844		927
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	928	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
		929
846	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Stats Window", other => make_stats_window);	930	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Stats Window", other => make_stats_window);
		931	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Inventory", other => make_inventory_window);
847		932
848	$BUTTONBAR->add (new CFClient::UI::Button text => "Save Config", connect_activate => sub {	933	$BUTTONBAR->add (new CFClient::UI::Button text => "Save Config", connect_activate => sub {
849	CFClient::write_cfg "$Crossfire::VARDIR/pclientrc";	934	CFClient::write_cfg "$Crossfire::VARDIR/pclientrc";
850	status "Configuration Saved";	935	status "Configuration Saved";
851	});	936	});
852		937
		938	$BUTTONBAR->show;
		939
		940	$STATUSBOX->add ("Set video mode $WIDTH×$HEIGHT", timeout => 10, fg => [1, 1, 1, 0.5]);
		941
		942	# delay till geometry is constant
		943	$CFClient::UI::ROOT->on_post_alloc (startup => sub {
853	$BUTTONBAR->{children}[1]->emit ("activate"); # pop up server setup	944	$BUTTONBAR->{children}[1]->emit ("activate"); # pop up server setup
		945	my $widget = $GAUGES->{win};
		946	$widget->move (0, $HEIGHT - $widget->{h});#d# to in toplevel
		947	});
		948	force_refresh ();
		949	}
854	}	950	}
855		951
856	sub video_shutdown {	952	sub video_shutdown {
857	$CFClient::UI::ROOT->{children} = [];
858	undef $CFClient::UI::GRAB;
859	undef $CFClient::UI::HOVER;
860	undef $SDL_ACTIVE;	953	undef $SDL_ACTIVE;
861	}	954	}
862		955
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#	956	my @bgmusic = qw(game1.ogg game2.ogg game3.ogg game5.ogg game6.ogg ross1.ogg ross2.ogg ross3.ogg ross4.ogg ross5.ogg); #d#
864	my $bgmusic;#TODO#hack#d#	957	my $bgmusic;#TODO#hack#d#
		958
		959	sub audio_channel_finished {
		960	my ($channel) = @_;
		961
		962	#warn "channel $channel finished\n";#d#
		963	}
865		964
866	sub audio_music_finished {	965	sub audio_music_finished {
867	return unless $CFG->{bgm_enable};	966	return unless $CFG->{bgm_enable};
868		967
869	# TODO: hack, do play loop and mood music	968	# TODO: hack, do play loop and mood music
…		…
873	push @bgmusic, shift @bgmusic;	972	push @bgmusic, shift @bgmusic;
874	}	973	}
875		974
876	sub audio_init {	975	sub audio_init {
877	if ($CFG->{audio_enable}) {	976	if ($CFG->{audio_enable}) {
878	if (open my $fh, "<:utf8", CFClient::find_rcfile "sounds/config") {	977	if (open my $fh, "<", CFClient::find_rcfile "sounds/config") {
879	$SDL_MIXER = !CFClient::Mix_OpenAudio;	978	$SDL_MIXER = !CFClient::Mix_OpenAudio;
880	CFClient::Mix_AllocateChannels 8;	979	CFClient::Mix_AllocateChannels 8;
881	CFClient::MixMusic::volume $CFG->{bgm_volume} * 128;	980	CFClient::MixMusic::volume $CFG->{bgm_volume} * 128;
882		981
883	audio_music_finished;	982	audio_music_finished;
…		…
910	}	1009	}
911		1010
912	my %animate_object;	1011	my %animate_object;
913	my $animate_timer;	1012	my $animate_timer;
914		1013
915	my $want_refresh;
916	my $can_refresh;
917
918	my $fps = 9;	1014	my $fps = 9;
919		1015
		1016	my %demo;#d#
		1017
920	sub force_refresh {	1018	sub force_refresh {
921	$fps = $fps * 0.95 + 1 / ($NOW - $LAST_REFRESH) * 0.05;	1019	$fps = $fps * 0.95 + 1 / (($NOW - $LAST_REFRESH) \|\| 0.1) * 0.05;
922	debug sprintf "%3.2f", $fps;	1020	debug sprintf "%3.2f", $fps;
923		1021
924	$want_refresh = 0;
925	$can_refresh = 0;
926
927	$CFClient::UI::ROOT->draw;	1022	$CFClient::UI::ROOT->draw;
928		1023
		1024	$WANT_REFRESH = 0;
		1025	$CAN_REFRESH = 0;
		1026	$LAST_REFRESH = $NOW;
		1027
		1028	0 && do {
		1029	# some weird model-drawing code, just a joke right now
		1030	use CFClient::OpenGL;
		1031
		1032	$demo{t}{eye_auv} \|\|= new_from_file CFClient::Texture "eye2.png" or die;
		1033	$demo{t}{body_auv} \|\|= new_from_file CFClient::Texture "body_auv3.png" or die;
		1034	$demo{r} \|\|= do {
		1035	my $mod = Compress::LZF::sthaw do { local $/; open my $fh, "<:raw:perlio", "dread.lz3"; <$fh> };
		1036	$mod->{v} = pack "f*", @{$mod->{v}};
		1037	$_ = [scalar @$_, pack "S!*", @$_]
		1038	for values %{$mod->{g}};
		1039	$mod
		1040	};
		1041
		1042	my $r = $demo{r} or die;
		1043
		1044	glDepthMask 1;
		1045	glClear GL_DEPTH_BUFFER_BIT;
		1046	glEnable GL_TEXTURE_2D;
		1047	glEnable GL_DEPTH_TEST;
		1048	glEnable GL_CULL_FACE;
		1049	glShadeModel $::FAST ? GL_FLAT : GL_SMOOTH;
		1050
		1051	glMatrixMode GL_PROJECTION;
		1052	glLoadIdentity;
		1053	glFrustum -1 * ($::WIDTH / $::HEIGHT), 1 * ($::WIDTH / $::HEIGHT), 1, -1, 1, 10000;
		1054	#glOrtho 0, $::WIDTH, 0, $::HEIGHT, -10000, 10000;
		1055	glMatrixMode GL_MODELVIEW;
		1056	glLoadIdentity;
		1057
		1058	glPushMatrix;
		1059	glTranslate 0, 0, -800;
		1060	glScale 1, -1, 1;
		1061	glRotate $NOW * 1000 % 36000 / 5, 0, 1, 0;
		1062	glRotate $NOW * 1000 % 36000 / 6, 1, 0, 0;
		1063	glRotate $NOW * 1000 % 36000 / 7, 0, 0, 1;
		1064	glScale 50, 50, 50;
		1065
		1066	glInterleavedArrays GL_T2F_N3F_V3F, 0, $r->{v};
		1067	while (my ($k, $v) = each %{$r->{g}}) {
		1068	glBindTexture GL_TEXTURE_2D, ($demo{t}{$k}{name} or die);
		1069	glDrawElements GL_TRIANGLES, $v->[0], GL_UNSIGNED_SHORT, $v->[1];
		1070	}
		1071
		1072	glPopMatrix;
		1073
		1074	glShadeModel GL_FLAT;
		1075	glDisable GL_DEPTH_TEST;
		1076	glDisable GL_TEXTURE_2D;
		1077	glDepthMask 0;
		1078
		1079	$WANT_REFRESH++;
		1080	};
		1081
929	CFClient::SDL_GL_SwapBuffers;	1082	CFClient::SDL_GL_SwapBuffers;
930
931	$LAST_REFRESH = $NOW;
932	}	1083	}
933		1084
934	my $refresh_watcher = Event->timer (after => 0, hard => 1, interval => 1 / $MAX_FPS, cb => sub {	1085	my $refresh_watcher = Event->timer (after => 0, hard => 1, interval => 1 / $MAX_FPS, cb => sub {
935	$NOW = time;	1086	$NOW = time;
936		1087
937	($SDL_CB{$_->{type}} \|\| sub { warn "unhandled event $_->{type}" })->($_)	1088	($SDL_CB{$_->{type}} \|\| sub { warn "unhandled event $_->{type}" })->($_)
938	for CFClient::SDL_PollEvent;	1089	for CFClient::SDL_PollEvent;
939		1090
940	if (%animate_object) {	1091	if (%animate_object) {
941	$_->animate ($LAST_REFRESH - $NOW) for values %animate_object;	1092	$_->animate ($LAST_REFRESH - $NOW) for values %animate_object;
942	$want_refresh++;	1093	$WANT_REFRESH++;
943	}	1094	}
944		1095
945	if ($want_refresh) {	1096	if ($WANT_REFRESH) {
946	force_refresh;	1097	force_refresh;
947	} else {	1098	} else {
948	$can_refresh = 1;	1099	$CAN_REFRESH = 1;
949	}	1100	}
950	});	1101	});
951
952	sub refresh {
953	$want_refresh++;
954	}
955		1102
956	sub animation_start {	1103	sub animation_start {
957	my ($widget) = @_;	1104	my ($widget) = @_;
958	$animate_object{$widget} = $widget;	1105	$animate_object{$widget} = $widget;
959	}	1106	}
…		…
963	delete $animate_object{$widget};	1110	delete $animate_object{$widget};
964	}	1111	}
965		1112
966	@conn::ISA = Crossfire::Protocol::;	1113	@conn::ISA = Crossfire::Protocol::;
967		1114
		1115	sub conn::new {
		1116	my $class = shift;
		1117
		1118	my $self = $class->Crossfire::Protocol::new (@_);
		1119
		1120	$MAPWIDGET->clr_commands;
		1121
		1122	my $parser = new Pod::POM;
		1123	my $pod = $parser->parse_file (CFClient::find_rcfile "pod/command_help.pod");
		1124
		1125	for my $head2 ($pod->head2) {
		1126	$head2->title =~ /^(\S+) (?:\s+ $ ([^$]*) \) )?/x
		1127	or next;
		1128
		1129	my $cmd = $1;
		1130	my @args = split /\\|/, $2;
		1131	@args = (".*") unless @args;
		1132
		1133	my $text = CFClient::pod_to_pango $head2->content;
		1134
		1135	for my $arg (@args) {
		1136	$arg = $arg eq ".*" ? "" : " $arg";
		1137
		1138	$MAPWIDGET->add_command ("$cmd$arg", $text);
		1139	}
		1140	}
		1141
		1142	$self
		1143	}
		1144
968	sub conn::stats_update {	1145	sub conn::stats_update {
969	my ($self, $stats) = @_;	1146	my ($self, $stats) = @_;
		1147
		1148	if (my $exp = $stats->{Crossfire::Protocol::CS_STAT_EXP64}) {
		1149	my $diff = $exp - $self->{prev_exp};
		1150	$STATUSBOX->add ("$diff experience gained", group => "experience $diff", fg => [0.5, 1, 0.5, 0.8], timeout => 5)
		1151	if exists $self->{prev_exp} && $diff;
		1152	$self->{prev_exp} = $exp;
		1153	}
970		1154
971	update_stats_window ($stats);	1155	update_stats_window ($stats);
972	}	1156	}
973		1157
974	sub conn::user_send {	1158	sub conn::user_send {
…		…
1029	$self->set_texture ($id => $data);	1213	$self->set_texture ($id => $data);
1030	}	1214	}
1031	}	1215	}
1032	}	1216	}
1033		1217
		1218	# hardcode /world/world_xxx_xxx map names, the savings are enourmous,
		1219	# (server resource,s latency, bandwidth), so this hack is warranted.
		1220	# the right fix is to make real tiled maps with an overview file
		1221	sub conn::send_mapinfo {
		1222	my ($self, $data, $cb) = @_;
		1223
		1224	if ($self->{map_info}[0] =~ m%^/world/world_(\d\d\d)_(\d\d\d)$%) {
		1225	my ($wx, $wy) = ($1, $2);
		1226
		1227	if ($data =~ /^spatial ([1-4]+)$/) {
		1228	my @dx = (0, 0, 1, 0, -1);
		1229	my @dy = (0, -1, 0, 1, 0);
		1230	my ($dx, $dy);
		1231
		1232	for (split //, $1) {
		1233	$dx += $dx[$_];
		1234	$dy += $dy[$_];
		1235	}
		1236
		1237	$cb->(spatial => 15,
		1238	$self->{map_info}[1] - $MAP->ox + $dx * 50,
		1239	$self->{map_info}[2] - $MAP->oy + $dy * 50,
		1240	50, 50,
		1241	sprintf "/world/world_%03d_%03d", $wx + $dx, $wy + $dy
		1242	);
		1243
		1244	return;
		1245	}
		1246	}
		1247
		1248	$self->SUPER::send_mapinfo ($data, $cb);
		1249	}
		1250
1034	# this method does a "flood fill" into every tile direction	1251	# this method does a "flood fill" into every tile direction
1035	# it assumes that tiles are arranged in a rectangular grid,	1252	# it assumes that tiles are arranged in a rectangular grid,
1036	# i.e. a map is the same as the left of the right map etc.	1253	# i.e. a map is the same as the left of the right map etc.
1037	# failure to comply are harmless and result in display errors	1254	# failure to comply are harmless and result in display errors
1038	# at worst.	1255	# at worst.
1039	sub conn::flood_fill {	1256	sub conn::flood_fill {
1040	my ($self, $gx, $gy, $path, $hash, $flags) = @_;	1257	my ($self, $block, $gx, $gy, $path, $hash, $flags) = @_;
1041		1258
1042	# the server does not allow map paths > 6	1259	# the server does not allow map paths > 6
1043	return if 6 <= length $path;	1260	return if 7 <= length $path;
1044		1261
1045	my ($x0, $y0, $x1, $y1) = @{$self->{neigh_rect}};	1262	my ($x0, $y0, $x1, $y1) = @{$self->{neigh_rect}};
1046		1263
1047	for (	1264	for (
1048	[1, 0, -1],	1265	[1, 3, 0, -1],
1049	[2, 1, 0],	1266	[2, 4, 1, 0],
1050	[3, 0, 1],	1267	[3, 1, 0, 1],
1051	[4, -1, 0],	1268	[4, 2, -1, 0],
1052	) {	1269	) {
1053	my ($tile, $dx, $dy) = @$_;	1270	my ($tile, $tile2, $dx, $dy) = @$_;
		1271
		1272	next if $block & (1 << $tile);
		1273	my $block = $block \| (1 << $tile2);
1054		1274
1055	my $gx = $gx + $dx;	1275	my $gx = $gx + $dx;
1056	my $gy = $gy + $dy;	1276	my $gy = $gy + $dy;
1057		1277
1058	next unless $flags & (1 << ($tile - 1));	1278	next unless $flags & (1 << ($tile - 1));
…		…
1060		1280
1061	my $neigh = $self->{neigh_map}{$hash} \|\|= [];	1281	my $neigh = $self->{neigh_map}{$hash} \|\|= [];
1062	if (my $info = $neigh->[$tile]) {	1282	if (my $info = $neigh->[$tile]) {
1063	my ($flags, $x, $y, $w, $h, $hash) = @$info;	1283	my ($flags, $x, $y, $w, $h, $hash) = @$info;
1064		1284
1065	$self->flood_fill ($gx, $gy, "$path$tile", $hash, $flags)	1285	$self->flood_fill ($block, $gx, $gy, "$path$tile", $hash, $flags)
1066	if $x >= $x0 && $x + $w < $x1 && $y >= $y0 && $y + $h < $y1;	1286	if $x >= $x0 && $x + $w < $x1 && $y >= $y0 && $y + $h < $y1;
1067		1287
1068	} else {	1288	} else {
1069	$self->send_mapinfo ("spatial $path$tile", sub {	1289	$self->send_mapinfo ("spatial $path$tile", sub {
1070	my ($mode, $flags, $x, $y, $w, $h, $hash) = @_;	1290	my ($mode, $flags, $x, $y, $w, $h, $hash) = @_;
1071		1291
1072	return if $mode ne "spatial";	1292	return if $mode ne "spatial";
1073		1293
1074	$x += $MAP->ox;	1294	$x += $MAP->ox;
1075	$y += $MAP->oy;	1295	$y += $MAP->oy;
1076		1296
1077	$self->load_map ($hash, $x, $y)	1297	$self->load_map ($hash, $x, $y)
1078	unless $self->{neigh_map}{$hash}[5]++;#d#	1298	unless $self->{neigh_map}{$hash}[5]++;#d#
1079		1299
1080	$neigh->[$tile] = [$flags, $x, $y, $w, $h, $hash];	1300	$neigh->[$tile] = [$flags, $x, $y, $w, $h, $hash];
1081		1301
1082	$self->flood_fill ($gx, $gy, "$path$tile", $hash, $flags)	1302	$self->flood_fill ($block, $gx, $gy, "$path$tile", $hash, $flags)
1083	if $x >= $x0 && $x + $w < $x1 && $y >= $y0 && $y + $h < $y1;	1303	if $x >= $x0 && $x + $w < $x1 && $y >= $y0 && $y + $h < $y1;
1084	});	1304	});
1085	}	1305	}
1086	}	1306	}
1087	}	1307	}
…		…
1091		1311
1092	$self->flush_map;	1312	$self->flush_map;
1093		1313
1094	my ($ox, $oy) = ($::MAP->ox, $::MAP->oy);	1314	my ($ox, $oy) = ($::MAP->ox, $::MAP->oy);
1095		1315
1096	my $mapmapw = 250;	1316	my $mapmapw = $MAPMAP->{w};
1097	my $mapmaph = 250;	1317	my $mapmaph = $MAPMAP->{h};
1098		1318
1099	$self->{neigh_rect} = [	1319	$self->{neigh_rect} = [
1100	$ox - $mapmapw * 0.5, $oy - $mapmapw * 0.5,	1320	$ox - $mapmapw * 0.5, $oy - $mapmapw * 0.5,
1101	$ox + $mapmapw * 0.5 + $w, $oy + $mapmapw * 0.5 + $h,	1321	$ox + $mapmapw * 0.5 + $w, $oy + $mapmapw * 0.5 + $h,
1102	];	1322	];
1103		1323
1104	delete $self->{neigh_grid};	1324	delete $self->{neigh_grid};
1105	$self->flood_fill (0, 0, "", $hash, $flags);
1106		1325
1107	$x += $ox;	1326	$x += $ox;
1108	$y += $oy;	1327	$y += $oy;
1109		1328
1110	$self->{map_info} = [$hash, $x, $y, $w, $h];	1329	$self->{map_info} = [$hash, $x, $y, $w, $h];
1111		1330
1112	my $map = $self->{map_info}[0];
1113	$map =~ s/^.*?\/([^\/]+)$/\1/;	1331	(my $map = $hash) =~ s/^.*?\/([^\/]+)$/\1/;
1114	$STATWIDS->{map}->set_text ("Map: " . $map);	1332	$STATWIDS->{map}->set_text ("Map: " . $map);
1115		1333
1116	$self->load_map ($hash, $x, $y);	1334	$self->load_map ($hash, $x, $y);
		1335	$self->flood_fill (0, 0, 0, "", $hash, $flags);
1117	}	1336	}
1118		1337
1119	sub conn::face_find {	1338	sub conn::face_find {
1120	my ($self, $facenum, $face) = @_;	1339	my ($self, $facenum, $face) = @_;
1121		1340
…		…
1271	[0.55, 0.41, 0.13],	1490	[0.55, 0.41, 0.13],
1272	[0.99, 0.77, 0.26],	1491	[0.99, 0.77, 0.26],
1273	[0.74, 0.65, 0.41],	1492	[0.74, 0.65, 0.41],
1274	);	1493	);
1275		1494
		1495	my $time = sprintf "%02d:%02d:%02d", (localtime time)[2,1,0];
		1496
		1497	$text = CFClient::UI::Label::escape $text;
		1498	$text =~ s/\[b\](.*?)\[\/b\]/<b>\1<\/b>/g;
		1499	$text =~ s/\[color=(.?)\](.?)\[\/color\]/<span foreground='\1'>\2<\/span>/g;
		1500
1276	$LOGVIEW->add_paragraph ($color[$color], $text);	1501	$LOGVIEW->add_paragraph ($color[$color],
		1502	join "\n", map "$time $_", split /\n/, $text);
		1503
		1504	$STATUSBOX->add ($text,
		1505	group => $text,
		1506	fg => $color[$color],
		1507	timeout => 60,
		1508	tooltip_font => $::FONT_FIXED,
		1509	);
		1510	}
		1511
		1512	sub conn::drawextinfo {
		1513	my ($self, $color, $type, $subtype, $message) = @_;
		1514
		1515	$self->drawinfo ($color, $message);
1277	}	1516	}
1278		1517
1279	sub conn::spell_add {	1518	sub conn::spell_add {
1280	my ($self, $spell) = @_;	1519	my ($self, $spell) = @_;
1281		1520
1282	# TODO	1521	# TODO
1283	# create a widget dynamically, using spell face (CF::Protocol downloads them)	1522	# create a widget dynamically, using spell face (CF::Protocol downloads them)
1284	$MAPWIDGET->add_command ("invoke $spell->{name}", $spell->{message});	1523	$MAPWIDGET->add_command ("invoke $spell->{name}", CFClient::UI::Label::escape $spell->{message});
1285	$MAPWIDGET->add_command ("cast $spell->{name}", $spell->{message});	1524	$MAPWIDGET->add_command ("cast $spell->{name}", CFClient::UI::Label::escape $spell->{message});
1286	}	1525	}
1287		1526
1288	sub conn::spell_delete {	1527	sub conn::spell_delete {
1289	my ($self, $spell) = @_;	1528	my ($self, $spell) = @_;
1290	}	1529	}
1291		1530
1292	sub conn::addme_success {	1531	sub conn::addme_success {
1293	my ($self) = @_;	1532	my ($self) = @_;
1294		1533
		1534	$self->send ("command output-sync $CFG->{output_sync}");
		1535	$self->send ("command output-count $CFG->{output_count}");
		1536
		1537	my $parser = new Pod::POM;
		1538	my $pod = $parser->parse_file (CFClient::find_rcfile "pod/skill_help.pod");
		1539
		1540	my %skill_tooltip;
		1541
		1542	for my $head2 ($pod->head2) {
		1543	$skill_tooltip{$head2->title} = CFClient::pod_to_pango $head2->content;
		1544	}
		1545
1295	for my $skill (values %{$self->{skill_info}}) {	1546	for my $skill (values %{$self->{skill_info}}) {
1296	$MAPWIDGET->add_command ("ready_skill $skill", "Ready the skill '$skill'");	1547	$MAPWIDGET->add_command ("ready_skill $skill",
1297	$MAPWIDGET->add_command ("use_skill $skill", "Immediately use the skill '$skill'");	1548	(CFClient::UI::Label::escape "Ready the skill '$skill'\n\n")
		1549	. $skill_tooltip{$skill});
		1550	$MAPWIDGET->add_command ("use_skill $skill",
		1551	(CFClient::UI::Label::escape "Immediately use the skill '$skill'\n\n")
		1552	. $skill_tooltip{$skill});
1298	}	1553	}
		1554	}
		1555
		1556	sub conn::eof {
		1557	$MAPWIDGET->clr_commands;
		1558
		1559	stop_game;
1299	}	1560	}
1300		1561
1301	sub update_floorbox {	1562	sub update_floorbox {
1302	$CFClient::UI::ROOT->on_refresh ($FLOORBOX => sub {	1563	$CFClient::UI::ROOT->on_refresh ($FLOORBOX => sub {
		1564	return unless $CONN;
		1565
1303	$FLOORBOX->clear;	1566	$FLOORBOX->clear;
1304	$FLOORBOX->add (new CFClient::UI::Empty expand => 1);	1567	$FLOORBOX->add (new CFClient::UI::Empty expand => 1);
1305		1568
1306	my @items = values %{ $CONN->{container}{0} };	1569	my $count = 4;
1307		1570	for (@{ $CONN->{container}{0} }) {
1308	# we basically have to use the same sorting as everybody else	1571	if (--$count) {
1309	@items = sort { $a->{type} <=> $b->{type} } @items;	1572	$FLOORBOX->add (new CFClient::UI::InventoryItem item => $_);
1310		1573	} else {
1311	for my $item (reverse @items) {	1574	$FLOORBOX->add (new CFClient::UI::Label text => "More...");
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	},	1575	last;
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		1576	}
1345	$hbox->add (new CFClient::UI::Label
1346	can_events => 0,
1347	text => $desc,
1348	);
1349	}	1577	}
1350	});	1578	});
1351	refresh;	1579
		1580	$WANT_REFRESH++;
1352	}	1581	}
1353		1582
1354	sub conn::container_add {	1583	sub conn::container_add {
1355	my ($self, $id, $items) = @_;	1584	my ($self, $tag, $items) = @_;
1356		1585
1357	update_floorbox if $id == 0;	1586	#d# print "container_add: container $tag ($self->{player}{tag})\n";
		1587
		1588	if ($tag == 0) {
		1589	update_floorbox;
		1590	$OPENCONT = 0;
		1591	$INVR_LBL->set_text ("Floor");
		1592	$INVR->set_items ($self->{container}{0});
		1593	} elsif ($tag == $self->{player}{tag}) {
		1594	$INVR_LBL->set_text ("Player");
		1595	$INV->set_items ($self->{container}{$self->{player}{tag}})
		1596	} else {
		1597	$OPENCONT = $tag;
		1598	$INVR_LBL->set_text (CFClient::UI::InventoryItem::_item_to_desc ($self->{item}->{$OPENCONT}));
		1599	$INVR->set_items ($self->{container}{$tag});
		1600	}
		1601
1358	# $self-<{player}{tag} => player inv	1602	# $self-<{player}{tag} => player inv
1359	#use PApp::Util; warn PApp::Util::dumpval $self->{container}{$self->{player}{tag}};	1603	#use PApp::Util; warn PApp::Util::dumpval $self->{container}{$self->{player}{tag}};
1360	}	1604	}
1361		1605
1362	sub conn::container_clear {	1606	sub conn::container_clear {
1363	my ($self, $id) = @_;	1607	my ($self, $tag) = @_;
1364		1608
1365	update_floorbox if $id == 0;	1609	#d# print "container_clear: container $tag ($self->{player}{tag})\n";
		1610
		1611	if ($tag == 0) {
		1612	update_floorbox;
		1613	$OPENCONT = 0;
		1614	$INVR_LBL->set_text ("Floor");
		1615	$INVR->set_items ($self->{container}{0});
		1616	} elsif ($tag == $self->{player}{tag}) {
		1617	$INVR_LBL->set_text ("Player");
		1618	$INV->set_items ($self->{container}{$tag})
		1619	} else {
		1620	$OPENCONT = $tag;
		1621	$INVR_LBL->set_text (CFClient::UI::InventoryItem::_item_to_desc ($self->{item}->{$OPENCONT}));
		1622	$INVR->set_items ($self->{container}{$tag});
		1623	}
		1624
1366	# use PApp::Util; warn PApp::Util::dumpval $self->{container}{0};	1625	# use PApp::Util; warn PApp::Util::dumpval $self->{container}{0};
1367	}	1626	}
1368		1627
1369	sub conn::item_delete {	1628	sub conn::item_delete {
1370	my ($self, @items) = @_;	1629	my ($self, @items) = @_;
1371		1630
1372	for (@items) {	1631	for (@items) {
1373	update_floorbox if $_->{container} == 0;	1632	#d# print "item_delete: $_->{tag} from $_->{container} ($self->{player}{tag})\n";
		1633
		1634	if ($_->{container} == 0) {
		1635	update_floorbox;
		1636	$OPENCONT = 0;
		1637	$INVR_LBL->set_text ("Floor");
		1638	$INVR->set_items ($self->{container}{0});
		1639	} elsif ($_->{container} == $self->{player}{tag}) {
		1640	$INVR_LBL->set_text ("Player");
		1641	$INV->set_items ($self->{container}{$self->{player}{tag}})
		1642	} else {
		1643	$OPENCONT = $_->{container};
		1644	$INVR_LBL->set_text (CFClient::UI::InventoryItem::_item_to_desc ($self->{item}->{$OPENCONT}));
		1645	$INVR->set_items ($self->{container}{$_->{container}});
		1646	}
1374	}	1647	}
1375	}	1648	}
1376		1649
1377	sub conn::item_update {	1650	sub conn::item_update {
1378	my ($self, $item) = @_;	1651	my ($self, $item) = @_;
1379		1652
1380	update_floorbox if $item->{container} == 0;	1653	#d# print "item_update: $item->{tag} in $item->{container} ($self->{player}{tag}) ($OPENCONT)\n";
		1654
		1655	if ($item->{tag} == $OPENCONT && not ($item->{flags} & Crossfire::Protocol::F_OPEN)) {
		1656	$OPENCONT = 0;
		1657	$INVR_LBL->set_text ("Floor");
		1658	$INVR->set_items ($self->{container}{0});
		1659
		1660	$item->{widget}->update_item
		1661	if $item->{widget};
		1662	} else {
		1663	if ($item->{container} == 0) {
		1664	update_floorbox;
		1665	$OPENCONT = 0;
		1666	$INVR_LBL->set_text ("Floor");
		1667	$INVR->set_items ($self->{container}{0});
		1668	} elsif ($item->{container} == $self->{player}{tag}) {
		1669	$INV->set_items ($self->{container}{$item->{container}})
		1670	}
		1671	}
1381	}	1672	}
1382		1673
1383	%SDL_CB = (	1674	%SDL_CB = (
1384	CFClient::SDL_QUIT => sub {	1675	CFClient::SDL_QUIT => sub {
1385	Event::unloop -1;	1676	Event::unloop -1;
1386	},	1677	},
1387	CFClient::SDL_VIDEORESIZE => sub {	1678	CFClient::SDL_VIDEORESIZE => sub {
1388	},	1679	},
1389	CFClient::SDL_VIDEOEXPOSE => \&refresh,	1680	CFClient::SDL_VIDEOEXPOSE => sub {
		1681	$WANT_REFRESH++;
		1682	},
1390	CFClient::SDL_ACTIVEEVENT => sub {	1683	CFClient::SDL_ACTIVEEVENT => sub {
1391	# printf "active %x %x\n", $SDL_EV->active_gain, $SDL_EV->active_state;#d#	1684	# printf "active %x %x\n", $SDL_EV->active_gain, $SDL_EV->active_state;#d#
1392	},	1685	},
1393	CFClient::SDL_KEYDOWN => sub {	1686	CFClient::SDL_KEYDOWN => sub {
1394	if ($_[0]{mod} & CFClient::KMOD_ALT && $_[0]{sym} == 13) {	1687	if ($_[0]{mod} & CFClient::KMOD_ALT && $_[0]{sym} == 13) {
…		…
1398	video_init;	1691	video_init;
1399	} else {	1692	} else {
1400	CFClient::UI::feed_sdl_key_down_event ($_[0]);	1693	CFClient::UI::feed_sdl_key_down_event ($_[0]);
1401	}	1694	}
1402	},	1695	},
1403	CFClient::SDL_KEYUP => \&CFClient::UI::feed_sdl_key_up_event,	1696	CFClient::SDL_KEYUP => \&CFClient::UI::feed_sdl_key_up_event,
1404	CFClient::SDL_MOUSEMOTION => \&CFClient::UI::feed_sdl_motion_event,	1697	CFClient::SDL_MOUSEMOTION => \&CFClient::UI::feed_sdl_motion_event,
1405	CFClient::SDL_MOUSEBUTTONDOWN => \&CFClient::UI::feed_sdl_button_down_event,	1698	CFClient::SDL_MOUSEBUTTONDOWN => \&CFClient::UI::feed_sdl_button_down_event,
1406	CFClient::SDL_MOUSEBUTTONUP => \&CFClient::UI::feed_sdl_button_up_event,	1699	CFClient::SDL_MOUSEBUTTONUP => \&CFClient::UI::feed_sdl_button_up_event,
1407	CFClient::SDL_USEREVENT => \&audio_music_finished,	1700	CFClient::SDL_USEREVENT => sub {
		1701	if ($_[0]{code} == 1) {
		1702	audio_channel_finished $_[0]{data1};
		1703	} elsif ($_[0]{code} == 0) {
		1704	audio_music_finished;
		1705	}
		1706	},
1408	);	1707	);
1409		1708
1410	#############################################################################	1709	#############################################################################
1411		1710
1412	$SIG{INT} = $SIG{TERM} = sub { exit };	1711	$SIG{INT} = $SIG{TERM} = sub { exit };
1413		1712
1414	$TILECACHE = CFClient::db_table "tilecache";
1415	$FACEMAP = CFClient::db_table "facemap";
1416
1417	CFClient::read_cfg "$Crossfire::VARDIR/pclientrc";
1418
1419	my %DEF_CFG = (
1420	sdl_mode => 0,
1421	width => 640,
1422	height => 480,
1423	fullscreen => 0,
1424	fast => 0,
1425	map_scale => 0.5,
1426	fow_enable => 1,
1427	fow_intensity => 0.45,
1428	fow_smooth => 0,
1429	gui_fontsize => 1,
1430	log_fontsize => 1,
1431	gauge_fontsize => 1,
1432	gauge_size => 0.35,
1433	stat_fontsize => 1,
1434	mapsize => 100,
1435	host => "crossfire.schmorp.de",
1436	say_command => 'say',
1437	audio_enable => 1,
1438	bgm_enable => 1,
1439	bgm_volume => 0.25,
1440	);
1441
1442	while (my ($k, $v) = each %DEF_CFG) {
1443	$CFG->{$k} = $v unless exists $CFG->{$k};
1444	}
1445
1446	sdl_init;
1447
1448	@SDL_MODES = reverse
1449	grep $_->[0] >= 640 && $_->[1] >= 480,
1450	CFClient::SDL_ListModes;
1451
1452	@SDL_MODES or CFClient::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)";
1453
1454	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES;
1455
1456	{	1713	{
		1714	local $SIG{__DIE__} = sub { CFClient::fatal $_[0] };
		1715
		1716	CFClient::read_cfg "$Crossfire::VARDIR/pclientrc";
		1717
		1718	$TILECACHE = CFClient::db_table "tilecache";
		1719	$FACEMAP = CFClient::db_table "facemap";
		1720
		1721	my %DEF_CFG = (
		1722	sdl_mode => 0,
		1723	width => 640,
		1724	height => 480,
		1725	fullscreen => 0,
		1726	fast => 0,
		1727	map_scale => 1,
		1728	fow_enable => 1,
		1729	fow_intensity => 0.45,
		1730	fow_smooth => 0,
		1731	gui_fontsize => 1,
		1732	log_fontsize => 1,
		1733	gauge_fontsize=> 1,
		1734	gauge_size => 0.35,
		1735	stat_fontsize => 1,
		1736	mapsize => 100,
		1737	host => "crossfire.schmorp.de",
		1738	say_command => 'say',
		1739	audio_enable => 1,
		1740	bgm_enable => 1,
		1741	bgm_volume => 0.25,
		1742	output_sync => 1,
		1743	output_count => 1,
		1744	);
		1745
		1746	while (my ($k, $v) = each %DEF_CFG) {
		1747	$CFG->{$k} = $v unless exists $CFG->{$k};
		1748	}
		1749
		1750	sdl_init;
		1751
		1752	@SDL_MODES = reverse
		1753	grep $_->[0] >= 640 && $_->[1] >= 480,
		1754	CFClient::SDL_ListModes;
		1755
		1756	@SDL_MODES or CFClient::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)";
		1757
		1758	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES;
		1759
		1760	{
1457	my @fonts = map CFClient::find_rcfile "fonts/$_", qw(	1761	my @fonts = map CFClient::find_rcfile "fonts/$_", qw(
1458	DejaVuSans.ttf	1762	DejaVuSans.ttf
1459	DejaVuSansMono.ttf	1763	DejaVuSansMono.ttf
1460	DejaVuSans-Bold.ttf	1764	DejaVuSans-Bold.ttf
1461	DejaVuSansMono-Bold.ttf	1765	DejaVuSansMono-Bold.ttf
1462	DejaVuSans-Oblique.ttf	1766	DejaVuSans-Oblique.ttf
1463	DejaVuSansMono-Oblique.ttf	1767	DejaVuSansMono-Oblique.ttf
1464	DejaVuSans-BoldOblique.ttf	1768	DejaVuSans-BoldOblique.ttf
1465	DejaVuSansMono-BoldOblique.ttf	1769	DejaVuSansMono-BoldOblique.ttf
1466	);	1770	);
1467		1771
1468	CFClient::add_font $_ for @fonts;	1772	CFClient::add_font $_ for @fonts;
1469		1773
		1774	CFClient::pango_init;
		1775
1470	$FONT_PROP = new_from_file CFClient::Font $fonts[0];	1776	$FONT_PROP = new_from_file CFClient::Font $fonts[0];
1471	$FONT_FIXED = new_from_file CFClient::Font $fonts[1];	1777	$FONT_FIXED = new_from_file CFClient::Font $fonts[1];
1472		1778
1473	$FONT_PROP->make_default;	1779	$FONT_PROP->make_default;
1474	}	1780	}
1475		1781
		1782	# compare mono (ft) vs. rgba (cairo)
		1783	# ft - 1.8s, cairo 3s, even in alpha-only mode
		1784	# for my $rgba (0..1) {
		1785	# my $t1 = Time::HiRes::time;
		1786	# for (1..1000) {
		1787	# my $layout = CFClient::Layout->new ($rgba);
		1788	# $layout->set_text ("hallo" x 100);
		1789	# $layout->render;
		1790	# }
		1791	# my $t2 = Time::HiRes::time;
		1792	# warn $t2-$t1;
		1793	# }
		1794
1476	video_init;	1795	video_init;
1477	audio_init;	1796	audio_init;
		1797	}
1478		1798
1479	Event::loop;	1799	Event::loop;
1480		1800
1481	END { CFClient::SDL_Quit }	1801	END { CFClient::SDL_Quit }
1482		1802
…		…
1533		1853
1534	Typing B<climb> will display a list of commands with I<climb> in their	1854	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>.	1855	name, such as I<ready_skill climbing> and I<use_skill climbing>.
1536		1856
1537	You can abbreviate commands by typing only the first character of every	1857	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	1858	word (or even characters within the word - the client will try to make
1539	recall>, while I<ccfo> will select I<cast create food>. Likewise, I<rscli>	1859	a good guess, as long as the characters are in order). For example,
1540	will likely select I<ready_skill climbing> and I<usl> will give you	1860	typing I<iwor> will likely select I<invoke word of recall>, while I<ccfo>
1541	I<use_skill levitation>.	1861	will select I<cast create food>. Likewise, I<rscli> will likely select
		1862	I<ready_skill climbing> and I<usl> will give you I<use_skill levitation>.
		1863
		1864	You can enter space and other text as arguemnt to the command. For
		1865	example, C<cfoo waybread> will expand to C<cast create food waybread>.
1542		1866
1543	=head2 The map overview	1867	=head2 The map overview
1544		1868
1545	#TODO#	1869	#TODO#
1546		1870

Diff Legend

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

Comparing deliantra/Deliantra-Client/bin/pclient (file contents): Revision 1.179 by root, Tue Apr 25 09:52:05 2006 UTC vs. Revision 1.235 by root, Mon May 22 02:23:10 2006 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/bin/pclient (file contents):
Revision 1.179 by root, Tue Apr 25 09:52:05 2006 UTC vs.
Revision 1.235 by root, Mon May 22 02:23:10 2006 UTC