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.153 by root, Thu Apr 20 09:13:32 2006 UTC vs.
Revision 1.206 by root, Tue May 9 22:27:55 2006 UTC

1	#!/opt/bin/perl	1	#!/opt/bin/perl
2		2
3	use strict;	3	use strict;
4	use utf8;	4	use utf8;
		5
		6	BEGIN {
		7	if (%PAR::LibCache) {
		8	@INC = grep ref, @INC; # weed out all paths except pars loader refs
		9
		10	while (my ($filename, $zip) = each %PAR::LibCache) {
		11	for ($zip->memberNames) {
		12	next unless /^\/root\/(.*)/;
		13	$zip->extractMember ($_, "$ENV{PAR_TEMP}/$1")
		14	unless -e "$ENV{PAR_TEMP}/$1";
		15	}
		16	}
		17
		18	unshift @INC, $ENV{PAR_TEMP};
		19
		20	if ($^O eq "MSWin32") {
		21	$ENV{GTK_RC_FILES} = "$ENV{PAR_TEMP}/share/themes/MS-Windows/gtk-2.0/gtkrc";
		22	}
		23	}
		24	}
		25
		26	# need to do it again because that pile of garbage called PAR nukes it before main
		27	unshift @INC, $ENV{PAR_TEMP};
5		28
6	use Time::HiRes 'time';	29	use Time::HiRes 'time';
7	use Event;	30	use Event;
8		31
9	use Crossfire;	32	use Crossfire;
…		…
13		36
14	use CFClient;	37	use CFClient;
15	use CFClient::UI;	38	use CFClient::UI;
16	use CFClient::MapWidget;	39	use CFClient::MapWidget;
17		40
		41	$Event::DIED = sub {
		42	CFClient::error $_[1];
		43	};
		44
		45	#$SIG{__WARN__} = sub { Carp::cluck $_[0] };#d#
		46
18	our $VERSION = '0.1';	47	our $VERSION = '0.1';
19		48
20	my $MAX_FPS = 60;	49	my $MAX_FPS = 60;
21	my $MIN_FPS = 5; # unused as of yet	50	my $MIN_FPS = 5; # unused as of yet
22		51
…		…
30	our $NOW;	59	our $NOW;
31		60
32	our $CFG;	61	our $CFG;
33	our $CONN;	62	our $CONN;
34	our $FAST; # fast, low-quality mode, possibly useful for software-rendering	63	our $FAST; # fast, low-quality mode, possibly useful for software-rendering
		64
		65	our $WANT_REFRESH;
		66	our $CAN_REFRESH;
35		67
36	our @SDL_MODES;	68	our @SDL_MODES;
37	our $WIDTH;	69	our $WIDTH;
38	our $HEIGHT;	70	our $HEIGHT;
39	our $FULLSCREEN;	71	our $FULLSCREEN;
40	our $FONTSIZE;	72	our $FONTSIZE;
41		73
		74	our $FONT_PROP;
		75	our $FONT_FIXED;
		76
42	our $MAP;	77	our $MAP;
		78	our $MAPMAP;
43	our $MAPWIDGET;	79	our $MAPWIDGET;
44	our $BUTTONBAR;	80	our $BUTTONBAR;
45	our $LOGVIEW;	81	our $LOGVIEW;
46	our $CONSOLE;	82	our $CONSOLE;
47	our $METASERVER;	83	our $METASERVER;
		84	our $LOGIN_BUTTON;
48		85
		86	our $FLOORBOX;
49	our $GAUGES;	87	our $GAUGES;
		88	our $STATWIDS;
50		89
51	our $SDL_ACTIVE;	90	our $SDL_ACTIVE;
52	our %SDL_CB;	91	our %SDL_CB;
53		92
54	our $SDL_MIXER;	93	our $SDL_MIXER;
…		…
57		96
58	our $ALT_ENTER_MESSAGE;	97	our $ALT_ENTER_MESSAGE;
59	our $STATUS_LINE;	98	our $STATUS_LINE;
60	our $DEBUG_STATUS;	99	our $DEBUG_STATUS;
61		100
		101	our $INVWIN;
		102	our $INV;
		103
62	sub status {	104	sub status {
63	$STATUS_LINE->set_text ($_[0]);	105	$STATUS_LINE->set_text ($_[0]);
64	$STATUS_LINE->move (0, $HEIGHT - $ALT_ENTER_MESSAGE->{h} - $STATUS_LINE->{h});	106	$STATUS_LINE->move (0, $HEIGHT - $ALT_ENTER_MESSAGE->{h} - $STATUS_LINE->{h});
65	}	107	}
66		108
67	sub debug {	109	sub debug {
68	$DEBUG_STATUS->set_text ($_[0]);	110	$DEBUG_STATUS->set_text ($_[0]);
69	$DEBUG_STATUS->move ($WIDTH - $DEBUG_STATUS->{w}, 0, $DEBUG_STATUS->{w}, $DEBUG_STATUS->{h});	111	my ($w, $h) = $DEBUG_STATUS->size_request;
		112	$DEBUG_STATUS->move ($WIDTH - $w, 0);
70	}	113	}
71		114
72	sub start_game {	115	sub start_game {
73	status "logging in...";	116	status "logging in...";
74		117
75	my $mapsize = List::Util::min 32, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / 32;	118	my $mapsize = List::Util::min 32, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / 32;
76		119
77	$MAPCACHE = CFClient::db_table "mapcache_$CFG->{host}";	120	$MAPCACHE = CFClient::db_table "mapcache_$CFG->{host}";
78
79	$MAP = new CFClient::Map $mapsize, $mapsize;	121	$MAP = new CFClient::Map $mapsize, $mapsize;
80		122
81	my ($host, $port) = split /:/, $CFG->{host};	123	my ($host, $port) = split /:/, $CFG->{host};
82		124
83	$CONN = new conn	125	$CONN = eval {
		126	new conn
84	host => $host,	127	host => $host,
85	port => $port || 13327,	128	port => $port || 13327,
86	user => $CFG->{user},	129	user => $CFG->{user},
87	pass => $CFG->{password},	130	pass => $CFG->{password},
88	mapw => $mapsize,	131	mapw => $mapsize,
89	maph => $mapsize,	132	maph => $mapsize,
		133	;
90	;	134	};
91		135
		136	if ($CONN) {
		137	$LOGIN_BUTTON->set_text ("Logout");
		138
92	status "login successful";	139	status "login successful";
93		140
94	CFClient::lowdelay fileno $CONN->{fh};	141	CFClient::lowdelay fileno $CONN->{fh};
		142	} else {
		143	status "unable to connect";
		144	stop_game();
		145	}
95	}	146	}
96		147
97	sub stop_game {	148	sub stop_game {
		149	return unless $CONN;
		150
		151	status "connection closed";
		152	$LOGIN_BUTTON->set_text ("Login");
		153	$CONN->destroy;
		154	$CONN = 0; # false, does not autovivify
		155
		156	undef $MAPCACHE;
98	undef $CONN;	157	undef $MAP;
99	}	158	}
100		159
101	sub client_setup {	160	sub client_setup {
102	my $dialog = new CFClient::UI::FancyFrame	161	my $dialog = new CFClient::UI::FancyFrame
103	title => "Client Setup",	162	title => "Client Setup",
…		…
116	$CFG->{sdl_mode} = $self->{range}[0] = $value = int $value;	175	$CFG->{sdl_mode} = $self->{range}[0] = $value = int $value;
117	$mode_label->set_text (sprintf "%dx%d", @{$SDL_MODES[$value]});	176	$mode_label->set_text (sprintf "%dx%d", @{$SDL_MODES[$value]});
118	});	177	});
119	$mode_slider->emit (changed => $mode_slider->{range}[0]);	178	$mode_slider->emit (changed => $mode_slider->{range}[0]);
120		179
		180	my $row = 1;
		181
121	$table->add (0, 1, new CFClient::UI::Label valign => 0, align => 1, text => "Fullscreen");	182	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fullscreen");
122	$table->add (1, 1, new CFClient::UI::CheckBox state => $CFG->{fullscreen}, connect_changed => sub {	183	$table->add (1, $row++, new CFClient::UI::CheckBox
		184	state => $CFG->{fullscreen},
		185	tooltip => "Bring the client into fullscreen mode",
		186	connect_changed => sub {
123	my ($self, $value) = @_;	187	my ($self, $value) = @_;
124	$CFG->{fullscreen} = $value;	188	$CFG->{fullscreen} = $value;
		189	}
125	});	190	);
126		191
127	$table->add (0, 2, new CFClient::UI::Label valign => 0, align => 1, text => "Fast & Ugly");	192	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fast & Ugly");
128	$table->add (1, 2, new CFClient::UI::CheckBox state => $CFG->{fast}, connect_changed => sub {	193	$table->add (1, $row++, new CFClient::UI::CheckBox
		194	state => $CFG->{fast},
		195	tooltip => "Lower the visual quality considerably to speed up rendering.",
		196	connect_changed => sub {
129	my ($self, $value) = @_;	197	my ($self, $value) = @_;
130	$CFG->{fast} = $value;	198	$CFG->{fast} = $value;
		199	}
131	});	200	);
132		201
		202	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Map Scale");
		203	$table->add (1, $row++, new CFClient::UI::Slider
		204	range => [$CFG->{map_scale}, 0.25, 2, 0.05],
		205	tooltip => "Enlarge or shrink the displayed map",
		206	connect_changed => sub {
		207	my ($self, $value) = @_;
		208	$CFG->{map_scale} = 0.05 * int $value / 0.05;
		209	}
		210	);
		211
133	$table->add (0, 3, new CFClient::UI::Label valign => 0, align => 1, text => "Fog of War");	212	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fog of War");
134	$table->add (1, 3, new CFClient::UI::CheckBox state => $CFG->{fow_enable}, connect_changed => sub {	213	$table->add (1, $row++, new CFClient::UI::CheckBox
		214	state => $CFG->{fow_enable},
		215	tooltip => "Fog-of-War marks areas that cannot be seen by the player",
		216	connect_changed => sub {
135	my ($self, $value) = @_;	217	my ($self, $value) = @_;
136	$CFG->{fow_enable} = $value;	218	$CFG->{fow_enable} = $value;
		219	}
137	});	220	);
138		221
139	$table->add (0, 4, new CFClient::UI::Label valign => 0, align => 1, text => "FoW Intensity");	222	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "FoW Intensity");
140	$table->add (1, 4, new CFClient::UI::Slider range => [$CFG->{fow_intensity}, 0, 1 + 0.001, 0.001], connect_changed => sub {	223	$table->add (1, $row++, new CFClient::UI::Slider
		224	range => [$CFG->{fow_intensity}, 0, 1 + 0.001, 0.001],
		225	tooltip => "The higher the intensity, the lighter the Fog-of-War color",
		226	connect_changed => sub {
141	my ($self, $value) = @_;	227	my ($self, $value) = @_;
142	$CFG->{fow_intensity} = $value;	228	$CFG->{fow_intensity} = $value;
		229	}
143	});	230	);
144		231
145	$table->add (0, 5, new CFClient::UI::Label valign => 0, align => 1, text => "FoW Smooth");	232	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "FoW Smooth");
146	$table->add (1, 5, new CFClient::UI::CheckBox state => $CFG->{fow_smooth}, connect_changed => sub {	233	$table->add (1, $row++, new CFClient::UI::CheckBox
		234	state => $CFG->{fow_smooth},
		235	tooltip => "Smooth the Fog-of-War a bit to make it more realistic",
		236	connect_changed => sub {
147	my ($self, $value) = @_;	237	my ($self, $value) = @_;
148	$CFG->{fow_smooth} = $value;	238	$CFG->{fow_smooth} = $value;
149	status "Fog of War smoothing requires OpenGL 1.2 or higher" if $CFClient::GL_VERSION < 1.2;	239	status "Fog of War smoothing requires OpenGL 1.2 or higher" if $CFClient::GL_VERSION < 1.2;
		240	}
150	});	241	);
151		242
152	$table->add (0, 6, new CFClient::UI::Label valign => 0, align => 1, text => "GUI Fontsize");	243	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "GUI Fontsize");
153	$table->add (1, 6, new CFClient::UI::Slider range => [$CFG->{gui_fontsize}, 0.7, 1.7, 0.1], connect_changed => sub {	244	$table->add (1, $row++, new CFClient::UI::Slider
		245	range => [$CFG->{gui_fontsize}, 0.5, 2, 0.1],
		246	tooltip => "The font size used by most GUI elements",
		247	connect_changed => sub {
154	$CFG->{gui_fontsize} = 0.1 * int $_[1] * 10;	248	$CFG->{gui_fontsize} = 0.1 * int $_[1] * 10;
155	# $FONTSIZE = int $HEIGHT / 40 * $CFG->{gui_fontsize};	249	# $FONTSIZE = int $HEIGHT / 40 * $CFG->{gui_fontsize};
		250	}
156	});	251	);
157		252
158	$table->add (0, 7, new CFClient::UI::Label valign => 0, align => 1, text => "Server Log Fontsize");	253	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Server Log Fontsize");
159	$table->add (1, 7, new CFClient::UI::Slider range => [$CFG->{log_fontsize}, 0.7, 1.7, 0.1], connect_changed => sub {	254	$table->add (1, $row++, new CFClient::UI::Slider
		255	range => [$CFG->{log_fontsize}, 0.5, 2, 0.1],
		256	tooltip => "The font size used by the server log window only",
		257	connect_changed => sub {
160	$LOGVIEW->set_fontsize ($CFG->{log_fontsize} = 0.1 * int $_[1] * 10);	258	$LOGVIEW->set_fontsize ($CFG->{log_fontsize} = 0.1 * int $_[1] * 10);
		259	}
161	});	260	);
162		261
163	$table->add (1, 8, new CFClient::UI::Button expand => 1, align => 0, text => "Apply", connect_activate => sub {	262	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Stats Fontsize");
		263
		264	$table->add (1, $row++, new CFClient::UI::Slider
		265	range => [$CFG->{stat_fontsize}, 0.5, 2, 0.1],
		266	tooltip => "The font size used by the statistics window only",
		267	connect_changed => sub {
		268	$CFG->{stat_fontsize} = 0.1 * int $_[1] * 10;
		269	&set_stats_window_fontsize;
		270	}
		271	);
		272
		273	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Gauge size");
		274	$table->add (1, $row++, new CFClient::UI::Slider
		275	range => [$CFG->{gauge_size}, 0.2, 0.8, 0.02],
		276	tooltip => "Adjust the size of the stats gauges at the bottom right",
		277	connect_changed => sub {
		278	$CFG->{gauge_size} = $_[1];
		279	my $h = int $HEIGHT * $CFG->{gauge_size};
		280	$GAUGES->{win}->set_size ($WIDTH, $h);
		281	$GAUGES->{win}->move (0, $HEIGHT - $h);
		282	}
		283	);
		284
		285	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Gauge fontsize");
		286	$table->add (1, $row++, new CFClient::UI::Slider
		287	range => [$CFG->{gauge_fontsize}, 0.5, 2.0, 0.1],
		288	tooltip => "Adjusts the fontsize of the gauges at the bottom right",
		289	connect_changed => sub {
		290	$CFG->{gauge_fontsize} = 0.1 * int $_[1] * 10;
		291	&set_gauge_window_fontsize;
		292	}
		293	);
		294
		295	$table->add (1, $row++, new CFClient::UI::Button
		296	expand => 1, align => 0, text => "Apply",
		297	tooltip => "Apply the video settings",
		298	connect_activate => sub {
164	video_shutdown ();	299	video_shutdown ();
165	video_init ();	300	video_init ();
		301	}
166	});	302	);
167		303
168	$table->add (0, 9, new CFClient::UI::Label valign => 0, align => 1, text => "Audio Enable");	304	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Audio Enable");
169	$table->add (1, 9, new CFClient::UI::CheckBox state => $CFG->{audio_enable}, connect_changed => sub {	305	$table->add (1, $row++, new CFClient::UI::CheckBox
		306	state => $CFG->{audio_enable},
		307	tooltip => "If enabled, sound effects and music will be played. If disabled, no audio will be used and the soundcard will not be opened.",
		308	connect_changed => sub {
170	$CFG->{audio_enable} = $_[1];	309	$CFG->{audio_enable} = $_[1];
		310	}
171	});	311	);
172	# $table->add (0, 9, new CFClient::UI::Label valign => 0, align => 1, text => "Effects Volume");	312	# $table->add (0, 9, new CFClient::UI::Label valign => 0, align => 1, text => "Effects Volume");
173	# $table->add (1, 8, new CFClient::UI::Slider range => [$CFG->{effects_volume}, 0, 128, 1], connect_changed => sub {	313	# $table->add (1, 8, new CFClient::UI::Slider range => [$CFG->{effects_volume}, 0, 128, 1], connect_changed => sub {
174	# $CFG->{effects_volume} = $_[1];	314	# $CFG->{effects_volume} = $_[1];
175	# });	315	# });
176	$table->add (0, 10, new CFClient::UI::Label valign => 0, align => 1, text => "Background Music");	316	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Background Music");
177	$table->add (1, 10, my $hbox = new CFClient::UI::HBox);	317	$table->add (1, $row++, my $hbox = new CFClient::UI::HBox);
178	$hbox->add (new CFClient::UI::CheckBox expand => 1, state => $CFG->{bgm_enable}, connect_changed => sub {	318	$hbox->add (new CFClient::UI::CheckBox
		319	expand => 1, state => $CFG->{bgm_enable},
		320	tooltip => "Enable background music playing",
		321	connect_changed => sub {
179	$CFG->{bgm_enable} = $_[1];	322	$CFG->{bgm_enable} = $_[1];
		323	}
180	});	324	);
181	$hbox->add (new CFClient::UI::Slider expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0.1], connect_changed => sub {	325	$hbox->add (new CFClient::UI::Slider
		326	expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0.1],
		327	tooltip => "The volume of the background music",
		328	connect_changed => sub {
182	$CFG->{bgm_volume} = $_[1];	329	$CFG->{bgm_volume} = $_[1];
183	CFClient::MixMusic::volume $_[1] * 128;	330	CFClient::MixMusic::volume $_[1] * 128;
		331	}
184	});	332	);
185		333
186	$table->add (1, 11, new CFClient::UI::Button expand => 1, align => 0, text => "Apply", connect_activate => sub {	334	$table->add (1, $row++, new CFClient::UI::Button
		335	expand => 1, align => 0, text => "Apply",
		336	tooltip => "Apply the audio settings",
		337	connect_activate => sub {
187	audio_shutdown ();	338	audio_shutdown ();
188	audio_init ();	339	audio_init ();
		340	}
189	});	341	);
		342
		343	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Communication cmd");
		344	$table->add (1, $row++, my $saycmd = new CFClient::UI::Entry
		345	text => $CFG->{say_command},
		346	tooltip => "This is the command that will be used if you write a line in the message window entry. "
		347	."Usually you want to enter something like 'say' or 'shout' or 'gsay' here. "
		348	."But you could also set it to 'tell &lt;playername&gt;' to only chat with that user.",
		349	connect_changed => sub {
		350	my ($self, $value) = @_;
		351	$CFG->{say_command} = $value;
		352	}
		353	);
190		354
191	$dialog	355	$dialog
		356	}
		357
		358	sub set_stats_window_fontsize {
		359	for (values %{$STATWIDS}) {
		360	$_->set_fontsize ($::CFG->{stat_fontsize});
		361	}
		362	}
		363
		364	sub set_gauge_window_fontsize {
		365	for (map { $GAUGES->{$_} } grep { $_ ne 'win' } keys %{$GAUGES}) {
		366	$_->set_fontsize ($::CFG->{gauge_fontsize});
		367	}
		368
		369	# local $GAUGES->{win}{parent};#d#
		370	# use PApp::Util; open D, ">:utf8", "d"; print D PApp::Util::dumpval $GAUGES->{win}; close D;
		371	}
		372
		373	sub make_gauge_window {
		374	my $gh = int ($HEIGHT * $CFG->{gauge_size});
		375	# my $gw = int ($WIDTH * $CFG->{gauge_w_size});
		376
		377	my $win = new CFClient::UI::Frame (
		378	y => $HEIGHT - $gh, x => 0, user_w => $WIDTH, user_h => $gh
		379	);
		380	$win->add (my $hbox = new CFClient::UI::HBox
		381	children => [
		382	(new CFClient::UI::HBox expand => 1),
		383	($FLOORBOX = new CFClient::UI::VBox),
		384	(my $vbox = new CFClient::UI::VBox),
		385	],
		386	);
		387
		388	$vbox->add (new CFClient::UI::HBox
		389	expand => 1,
		390	children => [
		391	(new CFClient::UI::Empty expand => 1),
		392	(my $hb = new CFClient::UI::HBox),
		393	],
		394	);
		395
		396	$hb->add (my $hg = new CFClient::UI::Gauge type => 'hp',
		397	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.");
		398	$hb->add (my $mg = new CFClient::UI::Gauge type => 'mana',
		399	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.");
		400	$hb->add (my $gg = new CFClient::UI::Gauge type => 'grace',
		401	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.");
		402	$hb->add (my $fg = new CFClient::UI::Gauge type => 'food',
		403	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.");
		404
		405	$vbox->add (my $exp = new CFClient::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1,
		406	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.");
		407	$vbox->add (my $rng = new CFClient::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1,
		408	tooltip => "Ranged attack - how you attack when you press shift-cursor (spell, skill, weapon etc.)");
		409
		410	$GAUGES = {
		411	exp => $exp, win => $win, range => $rng,
		412	food => $fg, mana => $mg, hp => $hg, grace => $gg
		413	};
		414
		415	&set_gauge_window_fontsize;
		416
		417	$win
		418	}
		419
		420	sub make_stats_window {
		421	my $tgw = new CFClient::UI::FancyFrame x => $WIDTH * 2/5, y => 0, title => "Stats";
		422
		423	$tgw->add (new CFClient::UI::Window child => my $vb = new CFClient::UI::VBox);
		424	$vb->add ($STATWIDS->{title} = new CFClient::UI::Label valign => 0, align => -1, text => "Title:", expand => 1);
		425	$vb->add ($STATWIDS->{map} = new CFClient::UI::Label valign => 0, align => -1, text => "Map:", expand => 1);
		426
		427	$vb->add (my $hb = new CFClient::UI::HBox expand => 1);
		428
		429	$hb->add (my $tbl = new CFClient::UI::Table expand => 1);
		430
		431	my $black = [0, 0, 0];
		432
		433	for (
		434	[0, 0, st_str => "Str", 30, "Physical Strength, determines damage dealt with weapons, how much you can carry, and how often you can attack"],
		435	[0, 1, st_dex => "Dex", 30, "Dexterity, your physical agility. Determines chance of being hit and affects armor class and speed"],
		436	[0, 2, st_con => "Con", 30, "Constitution, physical health and toughness. Determines how many healthpoints you can have"],
		437	[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"],
		438	[0, 4, st_wis => "Wis", 30, "Wisdom, the ability to learn and use divine magic (prayers). Determines how many grace points you can have"],
		439	[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"],
		440	[0, 6, st_cha => "Cha", 30, "Charisma, how well you are received by NPCs. Affects buying and selling prices in shops."],
		441
		442	[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."],
		443	[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."],
		444	[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."],
		445	[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."],
		446	[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."],
		447	[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."],
		448	) {
		449	my ($col, $row, $id, $label, $template, $tooltip) = @$_;
		450
		451	$tbl->add ($col , $row, $STATWIDS->{$id} = new CFClient::UI::Label
		452	font => $FONT_FIXED, can_hover => 1, can_events => 1, valign => 0, align => +1, template => $template, tooltip => $tooltip);
		453	$tbl->add ($col + 1, $row, $STATWIDS->{"$id\_lbl"} = new CFClient::UI::Label
		454	font => $FONT_FIXED, can_hover => 1, can_events => 1, fg => $black, valign => 0, align => -1, text => $label, tooltip => $tooltip);
		455	}
		456
		457	$hb->add (my $tbl2 = new CFClient::UI::Table expand => 1);
		458
		459	my $row = 0;
		460	my $col = 0;
		461
		462	my %resist_names = (
		463	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.)",
		464	holyw => "Holy Word (resistance you against getting the fear when someone whose god doesn't like you spells the holy word on you.)",
		465	conf => "Confusion (If you are hit by confusion you will move into random directions, and likely into monsters.)",
		466	fire => "Fire (just your resistance to fire spells like burning hands, dragonbreath, meteor swarm fire, ...)",
		467	depl => "Depletion (some monsters and other effects can cause stats depletion)",
		468	magic => "Magic (resistance to magic spells like magic missile or similar)",
		469	drain => "Draining (some monsters (e.g. vampires) and other effects can steal experience)",
		470	acid => "Acid (resistance to acid, acid hurts pretty much and also corrodes your weapons)",
		471	pois => "Poison (resistance to getting poisoned)",
		472	para => "Paralysation (this resistance affects the chance you get paralysed)",
		473	deat => "Death (resistance against death spells)",
		474	phys => "Physical (this is the resistance against physical attacks, like when a monster hit you in melee combat)",
		475	blind => "Blind (blind resistance affects the chance of a successful blinding attack)",
		476	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)",
		477	tund => "Turn undead",
		478	elec => "Electricity (resistance againt electricity, spells like large lightning, small lightning, ...)",
		479	cold => "Cold (this is your resistance against cold spells like icestorm, snowstorm, ...)",
		480	ghit => "Ghost hit (special attack used by ghosts and ghost-like beings)",
		481	);
		482	for (qw/slow holyw conf fire depl magic
		483	drain acid pois para deat phys
		484	blind fear tund elec cold ghit/)
		485	{
		486	$tbl2->add ($col, $row,
		487	$STATWIDS->{"res_$_"} =
		488	new CFClient::UI::Label
		489	font => $FONT_FIXED,
		490	template => "-100%",
		491	align => +1,
		492	valign => 0,
		493	can_events => 1,
		494	can_hover => 1,
		495	tooltip => $resist_names{$_},
		496	);
		497	$tbl2->add ($col + 1, $row, new CFClient::UI::Image
		498	font => $FONT_FIXED,
		499	can_hover => 1,
		500	can_events => 1,
		501	image => "ui/resist/resist_$_.png",
		502	tooltip => $resist_names{$_},
		503	);
		504
		505	$row++;
		506	if ($row % 6 == 0) {
		507	$col += 2;
		508	$row = 0;
		509	}
		510	}
		511
		512	&set_stats_window_fontsize;
		513	update_stats_window ({});
		514
		515	$tgw
		516	}
		517
		518	sub formsep {
		519	reverse join ",", grep length, split /(...)/, reverse $_[0] * 1
		520	}
		521
		522	sub update_stats_window {
		523	my ($stats) = @_;
		524
		525	# i love text protocols!!!
		526	my $hp = $stats->{Crossfire::Protocol::CS_STAT_HP} * 1;
		527	my $hp_m = $stats->{Crossfire::Protocol::CS_STAT_MAXHP} * 1;
		528	my $sp = $stats->{Crossfire::Protocol::CS_STAT_SP} * 1;
		529	my $sp_m = $stats->{Crossfire::Protocol::CS_STAT_MAXSP} * 1;
		530	my $fo = $stats->{Crossfire::Protocol::CS_STAT_FOOD} * 1;
		531	my $fo_m = 999;
		532	my $gr = $stats->{Crossfire::Protocol::CS_STAT_GRACE} * 1;
		533	my $gr_m = $stats->{Crossfire::Protocol::CS_STAT_MAXGRACE} * 1;
		534
		535	$GAUGES->{hp} ->set_value ($hp, $hp_m);
		536	$GAUGES->{mana} ->set_value ($sp, $sp_m);
		537	$GAUGES->{food} ->set_value ($fo, $fo_m);
		538	$GAUGES->{grace} ->set_value ($gr, $gr_m);
		539	$GAUGES->{exp} ->set_text ("Exp: " . (formsep $stats->{Crossfire::Protocol::CS_STAT_EXP64})
		540	. " (lvl " . ($stats->{Crossfire::Protocol::CS_STAT_LEVEL} * 1) . ")");
		541	my $rng = $stats->{Crossfire::Protocol::CS_STAT_RANGE};
		542	$rng =~ s/^Range: //; # thank you so much dear server
		543	$GAUGES->{range} ->set_text ("Rng: " . $rng);
		544	my $title = $stats->{Crossfire::Protocol::CS_STAT_TITLE};
		545	$title =~ s/^Player: //;
		546	$STATWIDS->{title} ->set_text ("Title: " . $title);
		547
		548	$STATWIDS->{st_str} ->set_text (sprintf "%d", $stats->{5});
		549	$STATWIDS->{st_dex} ->set_text (sprintf "%d", $stats->{8});
		550	$STATWIDS->{st_con} ->set_text (sprintf "%d", $stats->{9});
		551	$STATWIDS->{st_int} ->set_text (sprintf "%d", $stats->{6});
		552	$STATWIDS->{st_wis} ->set_text (sprintf "%d", $stats->{7});
		553	$STATWIDS->{st_pow} ->set_text (sprintf "%d", $stats->{22});
		554	$STATWIDS->{st_cha} ->set_text (sprintf "%d", $stats->{10});
		555	$STATWIDS->{st_wc} ->set_text (sprintf "%d", $stats->{13});
		556	$STATWIDS->{st_ac} ->set_text (sprintf "%d", $stats->{14});
		557	$STATWIDS->{st_dam} ->set_text (sprintf "%d", $stats->{15});
		558	$STATWIDS->{st_arm} ->set_text (sprintf "%d", $stats->{16});
		559	$STATWIDS->{st_spd} ->set_text (sprintf "%.1f", $stats->{Crossfire::Protocol::CS_STAT_SPEED});
		560	$STATWIDS->{st_wspd}->set_text (sprintf "%.1f", $stats->{Crossfire::Protocol::CS_STAT_WEAP_SP});
		561
		562	my %tbl = (
		563	phys => 100,
		564	magic => 101,
		565	fire => 102,
		566	elec => 103,
		567	cold => 104,
		568	conf => 105,
		569	acid => 106,
		570	drain => 107,
		571	ghit => 108,
		572	pois => 109,
		573	slow => 110,
		574	para => 111,
		575	tund => 112,
		576	fear => 113,
		577	depl => 113,
		578	deat => 115,
		579	holyw => 116,
		580	blind => 117
		581	);
		582
		583	for (keys %tbl) {
		584	$STATWIDS->{"res_$_"}->set_text (sprintf "%d%", $stats->{$tbl{$_}});
		585	}
		586
192	}	587	}
193		588
194	sub metaserver_dialog {	589	sub metaserver_dialog {
195	my $dialog = new CFClient::UI::FancyFrame	590	my $dialog = new CFClient::UI::FancyFrame
196	title => "Metaserver",	591	title => "Server List",
197	child => (my $vbox = new CFClient::UI::VBox);	592	child => (my $vbox = new CFClient::UI::VBox);
198		593
199	$vbox->add ($dialog->{table} = new CFClient::UI::Table);	594	$vbox->add ($dialog->{table} = new CFClient::UI::Table);
200		595
201	$dialog	596	$dialog
202	}	597	}
		598
		599	my $METASERVER_ATIME;
203		600
204	sub update_metaserver {	601	sub update_metaserver {
205	my ($HOST) = @_;	602	my ($HOST) = @_;
206		603
207	status "fetching metaserver list...";	604	return if $METASERVER_ATIME > time;
		605	$METASERVER_ATIME = time + 60;
		606
		607	my $table = $METASERVER->{table};
		608	$table->clear;
		609	$table->add (0, 0, my $label = new CFClient::UI::Label max_w => $WIDTH * 0.8, text => "fetching server list...");
208		610
209	my $buf;	611	my $buf;
210		612
211	my $fh = new IO::Socket::INET PeerHost => $META_SERVER, Blocking => 0;	613	my $fh = new IO::Socket::INET PeerHost => $META_SERVER, Blocking => 0;
		614
		615	unless ($fh) {
		616	$label->set_text ("unable to contact metaserver: $!");
		617	return;
		618	}
212		619
213	Event->io (fd => $fh, poll => 'r', cb => sub {	620	Event->io (fd => $fh, poll => 'r', cb => sub {
214	my $res = sysread $fh, $buf, 8192, length $buf;	621	my $res = sysread $fh, $buf, 8192, length $buf;
215		622
216	if (!defined $res) {	623	if (!defined $res) {
217	$_[0]->w->cancel;	624	$_[0]->w->cancel;
218	status "metaserver: $!";	625	$label->set_text ("error while retrieving server list: $!");
219	} elsif ($res == 0) {	626	} elsif ($res == 0) {
220	$_[0]->w->cancel;	627	$_[0]->w->cancel;
221	status "server list retrieved";	628	status "server list retrieved";
222		629
223	my $table = $METASERVER->{table};	630	utf8::decode $buf if utf8::valid $buf;
224		631
225	$table->clear;	632	$table->clear;
226		633
227	my @col = qw(Use #Users Host Uptime Version Description);	634	my @col = qw(Use #Users Host Uptime Version Description);
228	$table->add ($_, 0, new CFClient::UI::Label align => 0, fg => [1, 1, 0], text => $col[$_])	635	$table->add ($_, 0, new CFClient::UI::Label align => 0, fg => [1, 1, 0], text => $col[$_])
…		…
252	$m = [$users, $host, $uptime, $version, $desc];	659	$m = [$users, $host, $uptime, $version, $desc];
253		660
254	$y++;	661	$y++;
255		662
256	$table->add (0, $y, new CFClient::UI::VBox children => [	663	$table->add (0, $y, new CFClient::UI::VBox children => [
257	(new CFClient::UI::Button text => " ", connect_activate => sub {	664	(new CFClient::UI::Button text => "Use", connect_activate => sub {
258	$HOST->set_text ($CFG->{host} = $host);	665	$HOST->set_text ($CFG->{host} = $host);
259	}),	666	}),
260	(new CFClient::UI::Empty expand => 1),	667	(new CFClient::UI::Empty expand => 1),
261	]);	668	]);
262		669
…		…
276	$table->add (0, 2, new CFClient::UI::Label valign => 0, align => 1, text => "Host:Port");	683	$table->add (0, 2, new CFClient::UI::Label valign => 0, align => 1, text => "Host:Port");
277		684
278	{	685	{
279	$table->add (1, 2, my $vbox = new CFClient::UI::VBox);	686	$table->add (1, 2, my $vbox = new CFClient::UI::VBox);
280		687
281	$vbox->add (my $HOST = new CFClient::UI::Entry expand => 1, text => $CFG->{host}, connect_changed => sub {	688	$vbox->add (
		689	my $HOST = new CFClient::UI::Entry
		690	expand => 1,
		691	text => $CFG->{host},
		692	tooltip => "The hostname or ip address of the Crossfire(+) server to connect to",
		693	connect_changed => sub {
		694	my ($self, $value) = @_;
		695	$CFG->{host} = $value;
		696	}
		697	);
		698
		699	$METASERVER = metaserver_dialog;
		700
		701	$vbox->add (new CFClient::UI::Flopper
		702	expand => 1,
		703	text => "Server List",
		704	other => $METASERVER,
		705	tooltip => "Show a list of available crossfire servers",
		706	connect_open => sub {
		707	update_metaserver $HOST;
		708	}
		709	);
		710	}
		711
		712	$table->add (0, 4, new CFClient::UI::Label valign => 0, align => 1, text => "Username");
		713	$table->add (1, 4, new CFClient::UI::Entry
		714	text => $CFG->{user},
		715	tooltip => "The name of your character on the server",
		716	connect_changed => sub {
282	my ($self, $value) = @_;	717	my ($self, $value) = @_;
283	$CFG->{host} = $value;
284	});
285
286	$METASERVER = metaserver_dialog;
287
288	$vbox->add (new CFClient::UI::Flopper expand => 1, text => "Metaserver", other => $METASERVER, connect_open => sub {
289	update_metaserver $HOST;
290	});
291	}
292
293	$table->add (0, 4, new CFClient::UI::Label valign => 0, align => 1, text => "Username");
294	$table->add (1, 4, new CFClient::UI::Entry text => $CFG->{user}, connect_changed => sub {
295	my ($self, $value) = @_;
296	$CFG->{user} = $value;	718	$CFG->{user} = $value;
		719	}
297	});	720	);
298		721
299	$table->add (0, 5, new CFClient::UI::Label valign => 0, align => 1, text => "Password");	722	$table->add (0, 5, new CFClient::UI::Label valign => 0, align => 1, text => "Password");
300	$table->add (1, 5, new CFClient::UI::Entry text => $CFG->{password}, hidden => 1, connect_changed => sub {	723	$table->add (1, 5, new CFClient::UI::Entry
		724	text => $CFG->{password},
		725	hidden => 1,
		726	tooltip => "The password for your character",
		727	connect_changed => sub {
301	my ($self, $value) = @_;	728	my ($self, $value) = @_;
302	$CFG->{password} = $value;	729	$CFG->{password} = $value;
		730	}
303	});	731	);
304
305	$table->add (0, 6, new CFClient::UI::Label valign => 0, align => 1, text => "Def. say cmd");
306	$table->add (1, 6, my $saycmd = new CFClient::UI::Entry text => $CFG->{say_command}, connect_changed => sub {
307	my ($self, $value) = @_;
308	$CFG->{say_command} = $value;
309	});
310		732
311	$table->add (0, 7, new CFClient::UI::Label valign => 0, align => 1, text => "Map Size");	733	$table->add (0, 7, new CFClient::UI::Label valign => 0, align => 1, text => "Map Size");
312	$table->add (1, 7, new CFClient::UI::Slider	734	$table->add (1, 7, new CFClient::UI::Slider
313	req_w => 100,	735	req_w => 100,
314	range => [$CFG->{mapsize}, 10, 100 + 1, 1],	736	range => [$CFG->{mapsize}, 10, 100 + 1, 1],
		737	tooltip => "This is the size of the portion of the map update the server sends you. "
		738	."If you set this to a high value you will be able to see further for example.",
315	connect_changed => sub {	739	connect_changed => sub {
316	my ($self, $value) = @_;	740	my ($self, $value) = @_;
317		741
318	$CFG->{mapsize} = $self->{range}[0] = $value = int $value;	742	$CFG->{mapsize} = $self->{range}[0] = $value = int $value;
319	},	743	},
320	);	744	);
321		745
322	$table->add (1, 8, new CFClient::UI::Button expand => 1, align => 0, text => "Login", connect_activate => sub {	746	$table->add (1, 8, $LOGIN_BUTTON = new CFClient::UI::Button
		747	expand => 1,
		748	align => 0,
		749	text => "Login",
		750	connect_activate => sub {
		751	$CONN ? stop_game
323	start_game;	752	: start_game;
		753	},
324	});	754	);
325		755
326	$dialog	756	$dialog
327	}	757	}
328		758
329	sub message_window {	759	sub message_window {
330	my $window = new CFClient::UI::FancyFrame	760	my $window = new CFClient::UI::FancyFrame
331	title => "Messages",	761	title => "Messages",
332	border_bg => [1, 1, 1, 0.5],	762	border_bg => [1, 1, 1, 1],
333	bg => [0.3, 0.3, 0.3, 0.8],	763	bg => [0, 0, 0, 0.5],
334	user_w => int $::WIDTH / 3,	764	user_w => int $::WIDTH / 3,
335	user_h => int $::HEIGHT / 5,	765	user_h => int $::HEIGHT / 5,
336	child => (my $vbox = new CFClient::UI::VBox);	766	child => (my $vbox = new CFClient::UI::VBox);
337		767
338	$vbox->add ($LOGVIEW = new CFClient::UI::TextView	768	$vbox->add ($LOGVIEW = new CFClient::UI::TextView
339	expand => 1,	769	expand => 1,
		770	font => $FONT_FIXED,
340	fontsize => $::CFG->{log_fontsize},	771	fontsize => $::CFG->{log_fontsize},
341	);	772	);
342		773
343	$vbox->add (my $input = new CFClient::UI::Entry	774	$vbox->add (my $input = new CFClient::UI::Entry
344	connect_focus_in => sub {	775	connect_focus_in => sub {
…		…
377	};	808	};
378		809
379	$window	810	$window
380	}	811	}
381		812
		813	sub make_inventory_window {
		814	my $invwin = new CFClient::UI::FancyFrame user_w => 300, user_h => 300, title => "Inventory";
		815	$invwin->add ($INV = new CFClient::UI::Inventory expand => 1);
		816	$invwin
		817	}
		818
382	sub sdl_init {	819	sub sdl_init {
383	CFClient::SDL_Init	820	CFClient::SDL_Init
384	and die "SDL::Init failed!\n";	821	and die "SDL::Init failed!\n";
385	}	822	}
386		823
387	sub video_init {	824	sub video_init {
388	sdl_init;	825	sdl_init;
389		826
		827	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} >= @SDL_MODES;
		828
390	($WIDTH, $HEIGHT) = @{ $SDL_MODES[$CFG->{sdl_mode}] };	829	($WIDTH, $HEIGHT) = @{ $SDL_MODES[$CFG->{sdl_mode}] };
391	$FULLSCREEN = $CFG->{fullscreen};	830	$FULLSCREEN = $CFG->{fullscreen};
392	$FAST = $CFG->{fast};	831	$FAST = $CFG->{fast};
393		832
394	CFClient::SDL_SetVideoMode $WIDTH, $HEIGHT, $FULLSCREEN	833	CFClient::SDL_SetVideoMode $WIDTH, $HEIGHT, $FULLSCREEN
395	or die "SDL_SetVideoMode failed!\n";	834	or die "SDL_SetVideoMode failed!\n";
396		835
397	$SDL_ACTIVE = 1;	836	$SDL_ACTIVE = 1;
398
399	$LAST_REFRESH = time - 0.01;	837	$LAST_REFRESH = time - 0.01;
400		838
401	CFClient::gl_init;	839	CFClient::gl_init;
402		840
403	$FONTSIZE = int $HEIGHT / 40 * $CFG->{gui_fontsize};	841	$FONTSIZE = int $HEIGHT / 40 * $CFG->{gui_fontsize};
404		842
		843	$CFClient::UI::ROOT->configure (0, 0, $WIDTH, $HEIGHT);#d#
		844
405	#############################################################################	845	#############################################################################
406		846
		847	if ($DEBUG_STATUS) {
		848	# reconfigure all widgets
		849	$CFClient::UI::ROOT->reconfigure;
		850
		851	} else {
		852	# create the widgets
		853
407	$DEBUG_STATUS = new CFClient::UI::Label padding => 0, z => 100;	854	$DEBUG_STATUS = new CFClient::UI::Label padding => 0, z => 100, text => "hulla", x => 100;#d#
408	$DEBUG_STATUS->show;	855	$DEBUG_STATUS->show;
409		856
410	$STATUS_LINE = new CFClient::UI::Label	857	$STATUS_LINE = new CFClient::UI::Label
411	padding => 0,	858	padding => 0,
412	y => $HEIGHT - $FONTSIZE * 1.8;	859	y => $HEIGHT - $FONTSIZE * 1.8;
413	$STATUS_LINE->show;	860	$STATUS_LINE->show;
414		861
415	$ALT_ENTER_MESSAGE = new CFClient::UI::Label	862	$ALT_ENTER_MESSAGE = new CFClient::UI::Label
416	padding => 0,	863	padding => 0,
417	fontsize => 0.8,	864	fontsize => 0.8,
418	markup => "Use <b>Alt-Enter</b> to toggle fullscreen mode";	865	markup => "Use <b>Alt-Enter</b> to toggle fullscreen mode";
419	$ALT_ENTER_MESSAGE->show;	866	$ALT_ENTER_MESSAGE->show;
420	$ALT_ENTER_MESSAGE->move (0, $HEIGHT - $ALT_ENTER_MESSAGE->{h});	867	$ALT_ENTER_MESSAGE->move (0, $HEIGHT - $ALT_ENTER_MESSAGE->{h});
421		868
422	$CFClient::UI::ROOT->add ($MAPWIDGET = new CFClient::MapWidget);	869	CFClient::UI::FancyFrame->new (
423	$MAPWIDGET->focus_in;	870	border_bg => [1, 1, 1, 192/255],
		871	bg => [1, 1, 1, 0],
		872	child => ($MAPMAP = new CFClient::MapWidget::MapMap),
		873	)->show;
		874
		875	$MAPWIDGET = new CFClient::MapWidget;
424	$MAPWIDGET->connect (activate_console => sub {	876	$MAPWIDGET->connect (activate_console => sub {
425	my ($mapwidget, $preset) = @_;	877	my ($mapwidget, $preset) = @_;
426		878
427	if ($CONSOLE) {	879	if ($CONSOLE) {
428	$CONSOLE->{input}->{auto_activated} = 1;	880	$CONSOLE->{input}->{auto_activated} = 1;
429	$CONSOLE->{input}->focus_in;	881	$CONSOLE->{input}->focus_in;
430		882
431	if ($preset && $CONSOLE->{input}->get_text eq '') {	883	if ($preset && $CONSOLE->{input}->get_text eq '') {
432	$CONSOLE->{input}->set_text ($preset);	884	$CONSOLE->{input}->set_text ($preset);
		885	}
433	}	886	}
434	}	887	});
435	});	888	$MAPWIDGET->show;
		889	$MAPWIDGET->focus_in;
436		890
437	$CFClient::UI::ROOT->add ($BUTTONBAR = new CFClient::UI::HBox);	891	$BUTTONBAR = new CFClient::UI::HBox;
438		892
439	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Client Setup", other => client_setup);	893	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Client Setup", other => client_setup);
440	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Server Setup", other => server_setup);	894	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Server Setup", other => server_setup);
441	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Message Window", other => message_window);	895	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Message Window", other => message_window);
442		896
		897	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
		898
		899	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Stats Window", other => make_stats_window);
		900	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Inventory", other => make_inventory_window);
		901
443	$BUTTONBAR->add (new CFClient::UI::Button text => "Save Config", connect_activate => sub {	902	$BUTTONBAR->add (new CFClient::UI::Button text => "Save Config", connect_activate => sub {
444	CFClient::write_cfg "$Crossfire::VARDIR/pclientrc";	903	CFClient::write_cfg "$Crossfire::VARDIR/pclientrc";
445	status "Configuration Saved";	904	status "Configuration Saved";
446	});	905	});
447		906
		907	$BUTTONBAR->show;
		908
		909	# delay till geometry is constant
		910	$CFClient::UI::ROOT->on_refresh (startup => sub {
448	$BUTTONBAR->{children}[1]->emit ("activate"); # pop up server setup	911	$BUTTONBAR->{children}[1]->emit ("activate"); # pop up server setup
449		912	});
450	my $tgw = new CFClient::UI::FancyFrame (x => $WIDTH - 300, y => 0, title => "Stats");	913	force_refresh ();
451	$tgw->add (my $hbox = new CFClient::UI::HBox ());	914	}
452
453	$hbox->add (my $hg = new CFClient::UI::Gauge (type => 'hp'));
454	$hbox->add (my $mg = new CFClient::UI::Gauge (type => 'mana'));
455	$hbox->add (my $gg = new CFClient::UI::Gauge (type => 'grace'));
456	$hbox->add (my $fg = new CFClient::UI::Gauge (type => 'food'));
457
458	$GAUGES = { food => $fg, mana => $mg, hp => $hg, grace => $gg };
459	$CFClient::UI::ROOT->add ($tgw);
460	}	915	}
461		916
462	sub video_shutdown {	917	sub video_shutdown {
463	$CFClient::UI::ROOT->{children} = [];
464	undef $SDL_ACTIVE;	918	undef $SDL_ACTIVE;
465	}	919	}
466		920
467	my @bgmusic = qw(game1.ogg game2.ogg game3.ogg game5.ogg game6.ogg ross1.ogg ross2.ogg ross3.ogg ross4.ogg ross5.ogg); #d#	921	my @bgmusic = qw(game1.ogg game2.ogg game3.ogg game5.ogg game6.ogg ross1.ogg ross2.ogg ross3.ogg ross4.ogg ross5.ogg); #d#
468	my $bgmusic;#TODO#hack#d#	922	my $bgmusic;#TODO#hack#d#
		923
		924	sub audio_channel_finished {
		925	my ($channel) = @_;
		926
		927	warn "channel $channel finished\n";#d#
		928	}
469		929
470	sub audio_music_finished {	930	sub audio_music_finished {
471	return unless $CFG->{bgm_enable};	931	return unless $CFG->{bgm_enable};
472		932
473	# TODO: hack, do play loop and mood music	933	# TODO: hack, do play loop and mood music
…		…
477	push @bgmusic, shift @bgmusic;	937	push @bgmusic, shift @bgmusic;
478	}	938	}
479		939
480	sub audio_init {	940	sub audio_init {
481	if ($CFG->{audio_enable}) {	941	if ($CFG->{audio_enable}) {
482	if (open my $fh, "<:utf8", CFClient::find_rcfile "sounds/config") {	942	if (open my $fh, "<", CFClient::find_rcfile "sounds/config") {
483
484	$SDL_MIXER = !CFClient::Mix_OpenAudio;	943	$SDL_MIXER = !CFClient::Mix_OpenAudio;
485	CFClient::Mix_AllocateChannels 8;	944	CFClient::Mix_AllocateChannels 8;
486	CFClient::MixMusic::volume $CFG->{bgm_volume} * 128;	945	CFClient::MixMusic::volume $CFG->{bgm_volume} * 128;
487		946
488	audio_music_finished;	947	audio_music_finished;
…		…
515	}	974	}
516		975
517	my %animate_object;	976	my %animate_object;
518	my $animate_timer;	977	my $animate_timer;
519		978
520	my $want_refresh;
521	my $can_refresh;
522
523	my $fps = 9;	979	my $fps = 9;
524		980
525	sub force_refresh {	981	sub force_refresh {
526	$fps = $fps * 0.95 + 1 / ($NOW - $LAST_REFRESH) * 0.05;	982	$fps = $fps * 0.95 + 1 / ($NOW - $LAST_REFRESH) * 0.05;
527	debug sprintf "%3.2f", $fps;	983	debug sprintf "%3.2f", $fps;
528		984
529	$want_refresh = 0;
530	$can_refresh = 0;
531
532	$CFClient::UI::ROOT->draw;	985	$CFClient::UI::ROOT->draw;
533
534	CFClient::SDL_GL_SwapBuffers;	986	CFClient::SDL_GL_SwapBuffers;
535		987
		988	$WANT_REFRESH = 0;
		989	$CAN_REFRESH = 0;
536	$LAST_REFRESH = $NOW;	990	$LAST_REFRESH = $NOW;
537	}	991	}
538		992
539	my $refresh_watcher = Event->timer (after => 0, hard => 1, interval => 1 / $MAX_FPS, cb => sub {	993	my $refresh_watcher = Event->timer (after => 0, hard => 1, interval => 1 / $MAX_FPS, cb => sub {
540	$NOW = time;	994	$NOW = time;
…		…
542	($SDL_CB{$_->{type}} || sub { warn "unhandled event $_->{type}" })->($_)	996	($SDL_CB{$_->{type}} || sub { warn "unhandled event $_->{type}" })->($_)
543	for CFClient::SDL_PollEvent;	997	for CFClient::SDL_PollEvent;
544		998
545	if (%animate_object) {	999	if (%animate_object) {
546	$_->animate ($LAST_REFRESH - $NOW) for values %animate_object;	1000	$_->animate ($LAST_REFRESH - $NOW) for values %animate_object;
547	$want_refresh++;	1001	$WANT_REFRESH++;
548	}	1002	}
549		1003
550	if ($want_refresh) {	1004	if ($WANT_REFRESH) {
551	force_refresh;	1005	force_refresh;
552	} else {	1006	} else {
553	$can_refresh = 1;	1007	$CAN_REFRESH = 1;
554	}	1008	}
555	});	1009	});
556
557	sub refresh {
558	$want_refresh++;
559	}
560		1010
561	sub animation_start {	1011	sub animation_start {
562	my ($widget) = @_;	1012	my ($widget) = @_;
563	$animate_object{$widget} = $widget;	1013	$animate_object{$widget} = $widget;
564	}	1014	}
…		…
571	@conn::ISA = Crossfire::Protocol::;	1021	@conn::ISA = Crossfire::Protocol::;
572		1022
573	sub conn::stats_update {	1023	sub conn::stats_update {
574	my ($self, $stats) = @_;	1024	my ($self, $stats) = @_;
575		1025
576	# i love text protocols!!!	1026	update_stats_window ($stats);
577	# FIXME: the stats are somehow weird
578	my $hp = $stats->{1};
579	my $hp_m = $stats->{2};
580	my $sp = $stats->{3};
581	my $sp_m = $stats->{4};
582	my $fo = $stats->{18};
583	my $fo_m = 999;
584	my $gr = $stats->{23};
585	my $gr_m = $stats->{24};
586
587	#d# warn "DATA $hp $hp_m $sp $sp_m $fo $fo_m $gr $gr_m\n";
588	$GAUGES->{hp} ->set_value ($hp, $hp_m);
589	$GAUGES->{mana} ->set_value ($sp, $sp_m);
590	$GAUGES->{food} ->set_value ($fo, $fo_m);
591	$GAUGES->{grace}->set_value ($gr, $gr_m);
592	}	1027	}
593		1028
594	sub conn::user_send {	1029	sub conn::user_send {
595	my ($self, $command) = @_;	1030	my ($self, $command) = @_;
596		1031
…		…
658	# at worst.	1093	# at worst.
659	sub conn::flood_fill {	1094	sub conn::flood_fill {
660	my ($self, $gx, $gy, $path, $hash, $flags) = @_;	1095	my ($self, $gx, $gy, $path, $hash, $flags) = @_;
661		1096
662	# the server does not allow map paths > 6	1097	# the server does not allow map paths > 6
663	return if 6 <= length $path;	1098	return if 7 <= length $path;
664		1099
665	my ($x0, $y0, $x1, $y1) = @{$self->{neigh_rect}};	1100	my ($x0, $y0, $x1, $y1) = @{$self->{neigh_rect}};
666		1101
667	for (	1102	for (
668	[1, 0, -1],	1103	[1, 0, -1],
…		…
711		1146
712	$self->flush_map;	1147	$self->flush_map;
713		1148
714	my ($ox, $oy) = ($::MAP->ox, $::MAP->oy);	1149	my ($ox, $oy) = ($::MAP->ox, $::MAP->oy);
715		1150
716	my $mapmapw = 250;	1151	my $mapmapw = $MAPMAP->{w};
717	my $mapmaph = 250;	1152	my $mapmaph = $MAPMAP->{h};
718		1153
719	$self->{neigh_rect} = [	1154	$self->{neigh_rect} = [
720	$ox - $mapmapw * 0.5, $oy - $mapmapw * 0.5,	1155	$ox - $mapmapw * 0.5, $oy - $mapmapw * 0.5,
721	$ox + $mapmapw * 0.5 + $w, $oy + $mapmapw * 0.5 + $h,	1156	$ox + $mapmapw * 0.5 + $w, $oy + $mapmapw * 0.5 + $h,
722	];	1157	];
…		…
726		1161
727	$x += $ox;	1162	$x += $ox;
728	$y += $oy;	1163	$y += $oy;
729		1164
730	$self->{map_info} = [$hash, $x, $y, $w, $h];	1165	$self->{map_info} = [$hash, $x, $y, $w, $h];
		1166
		1167	my $map = $self->{map_info}[0];
		1168	$map =~ s/^.*?\/([^\/]+)$/\1/;
		1169	$STATWIDS->{map}->set_text ("Map: " . $map);
731		1170
732	$self->load_map ($hash, $x, $y);	1171	$self->load_map ($hash, $x, $y);
733	}	1172	}
734		1173
735	sub conn::face_find {	1174	sub conn::face_find {
…		…
761	}	1200	}
762		1201
763	gotid:	1202	gotid:
764	$face->{id} = $id;	1203	$face->{id} = $id;
765	$MAP->set_face ($facenum => $id);	1204	$MAP->set_face ($facenum => $id);
		1205	$self->{faceid}[$facenum] = $id;#d#
766	$TILECACHE->get ($id)	1206	$TILECACHE->get ($id)
767	}	1207	}
768		1208
769	sub conn::face_update {	1209	sub conn::face_update {
770	my ($self, $facenum, $face) = @_;	1210	my ($self, $facenum, $face) = @_;
…		…
778	my ($self, $id, $data) = @_;	1218	my ($self, $id, $data) = @_;
779		1219
780	$self->{texture}[$id] ||= do {	1220	$self->{texture}[$id] ||= do {
781	my $tex =	1221	my $tex =
782	new_from_image CFClient::Texture	1222	new_from_image CFClient::Texture
783	$data, minify => 1;	1223	$data, minify => 1, mipmap => 1;
784		1224
785	$MAP->set_texture ($id, @$tex{qw(name w h s t)}, @{$tex->{minified}});	1225	$MAP->set_texture ($id, @$tex{qw(name w h s t)}, @{$tex->{minified}});
786	$MAPWIDGET->update;	1226	$MAPWIDGET->update;
787		1227
788	$tex	1228	$tex
…		…
800		1240
801	$chunk->play;	1241	$chunk->play;
802	# warn "sound $x,$y,$soundnum,$type\n";#d#	1242	# warn "sound $x,$y,$soundnum,$type\n";#d#
803	}	1243	}
804		1244
		1245	my $LAST_QUERY; # server is stupid, stupid, stupid
		1246
805	sub conn::query {	1247	sub conn::query {
806	my ($self, $flags, $prompt) = @_;	1248	my ($self, $flags, $prompt) = @_;
807		1249
808	#TODO, display dialog with relevant information	1250	$prompt = $LAST_QUERY unless length $prompt;
809	warn "<<<<QUERY:$flags:$prompt>>>\n";#d#	1251	$LAST_QUERY = $prompt;
		1252
		1253	my $dialog = new CFClient::UI::FancyFrame
		1254	title => "Query",
		1255	child => my $vbox = new CFClient::UI::VBox;
		1256
		1257	$vbox->add (new CFClient::UI::Label
		1258	max_w => $::WIDTH * 0.4,
		1259	text => $prompt);
		1260
		1261	if ($flags & Crossfire::Protocol::CS_QUERY_YESNO) {
		1262	$vbox->add (my $hbox = new CFClient::HBox);
		1263	$hbox->add (new CFClient::Button
		1264	text => "No",
		1265	connect_activate => sub {
		1266	$self->send ("reply n");
		1267	$dialog->destroy;
		1268	$MAPWIDGET->focus_in;
		1269	}
		1270	);
		1271	$hbox->add (new CFClient::Button
		1272	text => "Yes",
		1273	connect_activate => sub {
		1274	$self->send ("reply y");
		1275	$dialog->destroy;
		1276	$MAPWIDGET->focus_in;
		1277	},
		1278	);
		1279
		1280	$dialog->focus_in;
		1281
		1282	} elsif ($flags & Crossfire::Protocol::CS_QUERY_SINGLECHAR) {
		1283	$dialog->{tooltip} = "Press a key (click on the entry to make sure it has keyboard focus)";
		1284	$vbox->add (my $entry = new CFClient::UI::Entry
		1285	connect_changed => sub {
		1286	$self->send ("reply $_[1]");
		1287	$dialog->destroy;
		1288	$MAPWIDGET->focus_in;
		1289	},
		1290	);
		1291
		1292	$entry->focus_in;
		1293
		1294	} else {
		1295	$dialog->{tooltip} = "Enter the reply and press return (click on the entry to make sure it has keyboard focus)";
		1296
		1297	$vbox->add (my $entry = new CFClient::UI::Entry
		1298	$flags & Crossfire::Protocol::CS_QUERY_HIDEINPUT ? (hiddenchar => "*") : (),
		1299	connect_activate => sub {
		1300	$self->send ("reply $_[1]");
		1301	$dialog->destroy;
		1302	$MAPWIDGET->focus_in;
		1303	},
		1304	);
		1305
		1306	$entry->focus_in;
		1307	}
		1308
		1309	$dialog->show;
810	}	1310	}
811		1311
812	sub conn::drawinfo {	1312	sub conn::drawinfo {
813	my ($self, $color, $text) = @_;	1313	my ($self, $color, $text) = @_;
814		1314
…		…
832	}	1332	}
833		1333
834	sub conn::spell_add {	1334	sub conn::spell_add {
835	my ($self, $spell) = @_;	1335	my ($self, $spell) = @_;
836		1336
		1337	# TODO
		1338	# create a widget dynamically, using spell face (CF::Protocol downloads them)
837	$MAPWIDGET->add_command ("invoke $spell->{name}", $spell->{message}, sub {	1339	$MAPWIDGET->add_command ("invoke $spell->{name}", $spell->{message});
838	});
839	$MAPWIDGET->add_command ("cast $spell->{name}", $spell->{message}, sub {	1340	$MAPWIDGET->add_command ("cast $spell->{name}", $spell->{message});
840	});
841	}	1341	}
842		1342
843	sub conn::spell_delete {	1343	sub conn::spell_delete {
844	my ($self, $spell) = @_;	1344	my ($self, $spell) = @_;
845	}	1345	}
846		1346
847	sub conn::addme_success {	1347	sub conn::addme_success {
848	my ($self) = @_;	1348	my ($self) = @_;
849		1349
850	for my $skill (values %{$self->{skill_info}}) {	1350	for my $skill (values %{$self->{skill_info}}) {
851	$MAPWIDGET->add_command ("ready_skill $skill", "", sub {	1351	$MAPWIDGET->add_command ("ready_skill $skill", "Ready the skill '$skill'");
		1352	$MAPWIDGET->add_command ("use_skill $skill", "Immediately use the skill '$skill'");
		1353	}
		1354
		1355	$MAPWIDGET->add_command ("pet\\_mode defend", "Tell pets to stay close to you and defend you");
		1356	$MAPWIDGET->add_command ("pet\\_mode arena", "Same as petmode attack, but also attack other players");
		1357	$MAPWIDGET->add_command ("pet\\_mode sad", "Search &amp; Destroy - tell pets to roam about and attack enemies");
		1358	$MAPWIDGET->add_command ("kill\\_pets", "kill your pets");
		1359	}
		1360
		1361	sub conn::eof {
		1362	stop_game;
		1363	}
		1364
		1365	sub update_floorbox {
		1366	$CFClient::UI::ROOT->on_refresh ($FLOORBOX => sub {
		1367	return unless $CONN;
		1368
		1369	$FLOORBOX->clear;
		1370	$FLOORBOX->add (new CFClient::UI::Empty expand => 1);
		1371
		1372	# we basically have to use the same sorting as everybody else
		1373	$FLOORBOX->add (
		1374	map +(new CFClient::UI::InventoryItem item => $_),
		1375	@{ $CONN->{container}{0} }
852	});	1376	);
853	$MAPWIDGET->add_command ("use_skill $skill", "", sub {
854	});	1377	});
855	}	1378
		1379	$WANT_REFRESH++;
		1380	}
		1381
		1382	sub conn::container_add {
		1383	my ($self, $tag, $items) = @_;
		1384
		1385	update_floorbox if $tag == 0;
		1386
		1387	$INV->set_items ($self->{container}{$self->{player}{tag}})
		1388	if $tag == $self->{player}{tag};
		1389
		1390	# $self-<{player}{tag} => player inv
		1391	#use PApp::Util; warn PApp::Util::dumpval $self->{container}{$self->{player}{tag}};
		1392	}
		1393
		1394	sub conn::container_clear {
		1395	my ($self, $tag) = @_;
		1396
		1397	update_floorbox if $tag == 0;
		1398
		1399	$INV->set_items ($self->{container}{$tag})
		1400	if $tag == $self->{player}{tag};
		1401
		1402	# use PApp::Util; warn PApp::Util::dumpval $self->{container}{0};
		1403	}
		1404
		1405	sub conn::item_delete {
		1406	my ($self, @items) = @_;
		1407
		1408	for (@items) {
		1409	update_floorbox if $_->{container} == 0;
		1410
		1411	$INV->set_items ($self->{container}{$_->{container}})
		1412	if $_->{container} == $self->{player}{tag};
		1413	}
		1414	}
		1415
		1416	sub conn::item_update {
		1417	my ($self, $item) = @_;
		1418
		1419	update_floorbox if $item->{container} == 0;
		1420
		1421	$INV->set_items ($self->{container}{$item->{container}})
		1422	if $item->{container} == $self->{player}{tag};
856	}	1423	}
857		1424
858	%SDL_CB = (	1425	%SDL_CB = (
859	CFClient::SDL_QUIT => sub {	1426	CFClient::SDL_QUIT => sub {
860	Event::unloop -1;	1427	Event::unloop -1;
861	},	1428	},
862	CFClient::SDL_VIDEORESIZE => sub {	1429	CFClient::SDL_VIDEORESIZE => sub {
863	},	1430	},
864	CFClient::SDL_VIDEOEXPOSE => \&refresh,	1431	CFClient::SDL_VIDEOEXPOSE => sub {
		1432	$WANT_REFRESH++;
		1433	},
865	CFClient::SDL_ACTIVEEVENT => sub {	1434	CFClient::SDL_ACTIVEEVENT => sub {
866	# printf "active %x %x\n", $SDL_EV->active_gain, $SDL_EV->active_state;#d#	1435	# printf "active %x %x\n", $SDL_EV->active_gain, $SDL_EV->active_state;#d#
867	},	1436	},
868	CFClient::SDL_KEYDOWN => sub {	1437	CFClient::SDL_KEYDOWN => sub {
869	if ($_[0]{mod} & CFClient::KMOD_ALT && $_[0]{sym} == 13) {	1438	if ($_[0]{mod} & CFClient::KMOD_ALT && $_[0]{sym} == 13) {
…		…
873	video_init;	1442	video_init;
874	} else {	1443	} else {
875	CFClient::UI::feed_sdl_key_down_event ($_[0]);	1444	CFClient::UI::feed_sdl_key_down_event ($_[0]);
876	}	1445	}
877	},	1446	},
878	CFClient::SDL_KEYUP => \&CFClient::UI::feed_sdl_key_up_event,	1447	CFClient::SDL_KEYUP => \&CFClient::UI::feed_sdl_key_up_event,
879	CFClient::SDL_MOUSEMOTION => \&CFClient::UI::feed_sdl_motion_event,	1448	CFClient::SDL_MOUSEMOTION => \&CFClient::UI::feed_sdl_motion_event,
880	CFClient::SDL_MOUSEBUTTONDOWN => \&CFClient::UI::feed_sdl_button_down_event,	1449	CFClient::SDL_MOUSEBUTTONDOWN => \&CFClient::UI::feed_sdl_button_down_event,
881	CFClient::SDL_MOUSEBUTTONUP => \&CFClient::UI::feed_sdl_button_up_event,	1450	CFClient::SDL_MOUSEBUTTONUP => \&CFClient::UI::feed_sdl_button_up_event,
882	CFClient::SDL_USEREVENT => \&audio_music_finished,	1451	CFClient::SDL_USEREVENT => sub {
		1452	if ($_[0]{code} == 1) {
		1453	audio_channel_finished $_[0]{data1};
		1454	} elsif ($_[0]{code} == 0) {
		1455	audio_music_finished;
		1456	}
		1457	},
883	);	1458	);
884		1459
885	#############################################################################	1460	#############################################################################
886		1461
887	$SIG{INT} = $SIG{TERM} = sub { exit };	1462	$SIG{INT} = $SIG{TERM} = sub { exit };
888		1463
889	$TILECACHE = CFClient::db_table "tilecache";
890	$FACEMAP = CFClient::db_table "facemap";
891
892	CFClient::read_cfg "$Crossfire::VARDIR/pclientrc";
893
894	my %DEF_CFG = (
895	sdl_mode => 0,
896	width => 640,
897	height => 480,
898	fullscreen => 0,
899	fast => 0,
900	fow_enable => 1,
901	fow_intensity => 0.45,
902	fow_smooth => 0,
903	gui_fontsize => 1,
904	log_fontsize => 14,
905	mapsize => 100,
906	host => "crossfire.schmorp.de",
907	say_command => 'say',
908	audio_enable => 1,
909	bgm_enable => 1,
910	bgm_volume => 0.25,
911	);
912
913	while (my ($k, $v) = each %DEF_CFG) {
914	$CFG->{$k} = $v unless exists $CFG->{$k};
915	}
916
917	sdl_init;
918
919	@SDL_MODES = reverse
920	grep $_->[0] >= 640 && $_->[1] >= 480,
921	CFClient::SDL_ListModes;
922
923	@SDL_MODES or CFClient::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)";
924
925	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES;
926
927	{	1464	{
928	my @fonts = map CFClient::find_rcfile $_, qw(uifont.ttf uifontb.ttf uifonti.ttf uifontbi.ttf);	1465	local $SIG{__DIE__} = sub { CFClient::fatal $_[0] };
929		1466
		1467	CFClient::read_cfg "$Crossfire::VARDIR/pclientrc";
		1468
		1469	$TILECACHE = CFClient::db_table "tilecache";
		1470	$FACEMAP = CFClient::db_table "facemap";
		1471
		1472	my %DEF_CFG = (
		1473	sdl_mode => 0,
		1474	width => 640,
		1475	height => 480,
		1476	fullscreen => 0,
		1477	fast => 0,
		1478	map_scale => 0.5,
		1479	fow_enable => 1,
		1480	fow_intensity => 0.45,
		1481	fow_smooth => 0,
		1482	gui_fontsize => 1,
		1483	log_fontsize => 1,
		1484	gauge_fontsize=> 1,
		1485	gauge_size => 0.35,
		1486	stat_fontsize => 1,
		1487	mapsize => 100,
		1488	host => "crossfire.schmorp.de",
		1489	say_command => 'say',
		1490	audio_enable => 1,
		1491	bgm_enable => 1,
		1492	bgm_volume => 0.25,
		1493	);
		1494
		1495	while (my ($k, $v) = each %DEF_CFG) {
		1496	$CFG->{$k} = $v unless exists $CFG->{$k};
		1497	}
		1498
		1499	sdl_init;
		1500
		1501	@SDL_MODES = reverse
		1502	grep $_->[0] >= 640 && $_->[1] >= 480,
		1503	CFClient::SDL_ListModes;
		1504
		1505	@SDL_MODES or CFClient::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)";
		1506
		1507	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES;
		1508
		1509	{
		1510	my @fonts = map CFClient::find_rcfile "fonts/$_", qw(
		1511	DejaVuSans.ttf
		1512	DejaVuSansMono.ttf
		1513	DejaVuSans-Bold.ttf
		1514	DejaVuSansMono-Bold.ttf
		1515	DejaVuSans-Oblique.ttf
		1516	DejaVuSansMono-Oblique.ttf
		1517	DejaVuSans-BoldOblique.ttf
		1518	DejaVuSansMono-BoldOblique.ttf
		1519	);
		1520
930	CFClient::add_font $_ for @fonts;	1521	CFClient::add_font $_ for @fonts;
931	CFClient::set_font $fonts[0];	1522
932	}	1523	$FONT_PROP = new_from_file CFClient::Font $fonts[0];
		1524	$FONT_FIXED = new_from_file CFClient::Font $fonts[1];
933		1525
		1526	$FONT_PROP->make_default;
		1527	}
		1528
934	video_init;	1529	video_init;
935	audio_init;	1530	audio_init;
		1531	}
936		1532
937	Event::loop;	1533	Event::loop;
938		1534
939	END { CFClient::SDL_Quit }	1535	END { CFClient::SDL_Quit }
940		1536
		1537	=head1 pclient - Crossfire+ and Crossfire game client
941		1538
		1539	Pclient is a Crossfire+ and Crossfire game client.
		1540
		1541	=head2 Features
		1542
		1543	=over 4
		1544
		1545	=item Fullscreen Map
		1546
		1547	PClient can uses a fullscreen map, which greatly enhances how much of the
		1548	game world you can see.
		1549
		1550	=item Persistent Map Cache (Crossfire+ only)
		1551
		1552	PClient can persistently cache all map data it received from the
		1553	server. This not only allows it to display an overview map, but also
		1554	ensures that once-explored areas will be available the next time you want
		1555	to explore more.
		1556
		1557	=item Hardware acceleration
		1558
		1559	Unlike most Crossfire clients, PClient take advantage of OpenGL hardware
		1560	acceleration. Most modern graphics cards have difficulties with 2D
		1561	acceleration, while 3D graphics is accelerated well.
		1562
		1563	=item No arbitrary limits
		1564
		1565	Unlike other Crossfire clients, pclient does not suffer from arbitrary
		1566	limits (like a fixed amount of face numbers). There are still limits, but
		1567	they are not arbitrarily low :)
		1568
		1569	=back
		1570
		1571	=head1 USAGE
		1572
		1573	=head2 The Map
		1574
		1575	The map is always displayed in the background, behind all other windows and UI elements.
		1576
		1577	#TODO# middle-click scrolls
		1578	#
		1579	# keys:
		1580	#
		1581	# a apply
		1582	# keypad moves, kp_5 applies ranged attack to self
		1583
		1584	Starting to type enters the I<completion mode>. In that mode, you can type
		1585	abbreviations or commands and have them executed as soon as they match a
		1586	valid command. This is best explained by a few examples:
		1587
		1588	Typing B<climb> will display a list of commands with I<climb> in their
		1589	name, such as I<ready_skill climbing> and I<use_skill climbing>.
		1590
		1591	You can abbreviate commands by typing only the first character of every
		1592	word. For example, typing I<iwor> will likely select I<invoke word of
		1593	recall>, while I<ccfo> will select I<cast create food>. Likewise, I<rscli>
		1594	will likely select I<ready_skill climbing> and I<usl> will give you
		1595	I<use_skill levitation>.
		1596
		1597	=head2 The map overview
		1598
		1599	#TODO#
		1600
		1601	=head2 The Status area in the lower right corner
		1602
		1603	#TODO#
		1604
		1605	=head2 The I<Statistics>/I>Stats> window
		1606
		1607	#TODO#
		1608
		1609	=head1 FAQ
		1610
		1611	=over 4
		1612
		1613	=item The client is very sluggish and slow, what can I do about this?
		1614
		1615	Most likely, you don't have accelerated OpenGL support. Try to find a
		1616	newer driver, or a driver from your hardware vendor, that features OpenGL
		1617	support.
		1618
		1619	If this is not an option, the following Setup options reduce the load and
		1620	will likely make the client playable with sofwtare rendering (it will
		1621	still be slow, though):
		1622
		1623	=over 4
		1624
		1625	=item B<Video Mode> should be set as low as possible (e.g. 640x480)
		1626
		1627	=item Enable B<Fast & Ugly> mode
		1628
		1629	=item Disable B<Fog of War>
		1630
		1631	=item Increase B<Map Scale>
		1632
		1633	=back
		1634
		1635	=back
		1636
		1637	=head1 AUTHOR
		1638
		1639	Marc Lehmann <crossfire@schmorp.de>, Robin Redeker <elmex@ta-sa.org>
		1640
		1641
		1642

Diff Legend

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