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

Comparing deliantra/Deliantra-Client/bin/pclient (file contents):
Revision 1.136 by root, Tue Apr 18 06:34:30 2006 UTC vs.
Revision 1.178 by root, Tue Apr 25 08:39:18 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	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};
		28
6	use Time::HiRes 'time';	29	use Time::HiRes 'time';
7	use Event;	30	use Event;
8		31
9	use SDL;
10	use SDL::App;
11	use SDL::Event;
12	use SDL::Surface;
13
14	use SDL::Mixer;
15	use SDL::Sound;
16	use SDL::Music;
17
18	use SDL::OpenGL;
19
20	use Crossfire;	32	use Crossfire;
21	use Crossfire::Protocol;	33	use Crossfire::Protocol;
22		34
23	use Compress::LZF;	35	use Compress::LZF;
24		36
25	use CFClient;	37	use CFClient;
26	use CFClient::UI;	38	use CFClient::UI;
		39	use CFClient::MapWidget;
		40
		41	$Event::DIED = sub {
		42	CFClient::error $_[1];
		43	};
		44
		45	#$SIG{__WARN__} = sub { Carp::cluck $_[0] };#d#
27		46
28	our $VERSION = '0.1';	47	our $VERSION = '0.1';
29		48
30	my $MAX_FPS = 60;	49	my $MAX_FPS = 60;
31	my $MIN_FPS = 5; # unused as of yet	50	my $MIN_FPS = 5; # unused as of yet
46	our @SDL_MODES;	65	our @SDL_MODES;
47	our $WIDTH;	66	our $WIDTH;
48	our $HEIGHT;	67	our $HEIGHT;
49	our $FULLSCREEN;	68	our $FULLSCREEN;
50	our $FONTSIZE;	69	our $FONTSIZE;
		70
		71	our $FONT_PROP;
		72	our $FONT_FIXED;
51		73
52	our $MAP;	74	our $MAP;
53	our $MAPWIDGET;	75	our $MAPWIDGET;
54	our $BUTTONBAR;	76	our $BUTTONBAR;
55	our $LOGVIEW;	77	our $LOGVIEW;
56	our $CONSOLE;	78	our $CONSOLE;
57	our $METASERVER;	79	our $METASERVER;
58		80
		81	our $FLOORBOX;
59	our $GAUGES;	82	our $GAUGES;
		83	our $STATWIDS;
60		84
61	our $SDL_ACTIVE;	85	our $SDL_ACTIVE;
62	our $SDL_EV;
63	our %SDL_CB;	86	our %SDL_CB;
64		87
65	our $SDL_MIXER;	88	our $SDL_MIXER;
66	our @SOUNDS; # event => file mapping	89	our @SOUNDS; # event => file mapping
67	our %AUDIO_CHUNKS; # audio files	90	our %AUDIO_CHUNKS; # audio files
…		…
109	undef $CONN;	132	undef $CONN;
110	}	133	}
111		134
112	sub client_setup {	135	sub client_setup {
113	my $dialog = new CFClient::UI::FancyFrame	136	my $dialog = new CFClient::UI::FancyFrame
		137	title => "Client Setup",
114	child => (my $vbox = new CFClient::UI::VBox);	138	child => (my $vbox = new CFClient::UI::VBox);
115	$vbox->add (new CFClient::UI::Label align => 0, text => "Client Setup");
116	$vbox->add (my $table = new CFClient::UI::Table expand => 1, col_expand => [0, 1]);	139	$vbox->add (my $table = new CFClient::UI::Table expand => 1, col_expand => [0, 1]);
117		140
118	$table->add (0, 0, new CFClient::UI::Label align => 1, text => "Video Mode");	141	$table->add (0, 0, new CFClient::UI::Label valign => 0, align => 1, text => "Video Mode");
119	$table->add (1, 0, my $hbox = new CFClient::UI::HBox);	142	$table->add (1, 0, my $hbox = new CFClient::UI::HBox);
120		143
121	$hbox->add (my $mode_slider = new CFClient::UI::Slider expand => 1, req_w => 100, range => [$CFG->{sdl_mode}, 0, scalar @SDL_MODES, 1]);	144	$hbox->add (my $mode_slider = new CFClient::UI::Slider expand => 1, req_w => 100, range => [$CFG->{sdl_mode}, 0, scalar @SDL_MODES, 1]);
122	$hbox->add (my $mode_label = new CFClient::UI::Label height => $FONTSIZE * 0.8);	145	$hbox->add (my $mode_label = new CFClient::UI::Label align => 0, valign => 0, height => 0.8, template => "9999x9999");
123		146
124	$mode_slider->connect (changed => sub {	147	$mode_slider->connect (changed => sub {
125	my ($self, $value) = @_;	148	my ($self, $value) = @_;
126		149
127	$CFG->{sdl_mode} = $self->{range}[0] = $value = int $value;	150	$CFG->{sdl_mode} = $self->{range}[0] = $value = int $value;
128	$mode_label->set_text (sprintf "%dx%d", @{$SDL_MODES[$value]});	151	$mode_label->set_text (sprintf "%dx%d", @{$SDL_MODES[$value]});
129	});	152	});
130	$mode_slider->emit (changed => $mode_slider->{range}[0]);	153	$mode_slider->emit (changed => $mode_slider->{range}[0]);
131		154
		155	my $row = 1;
		156
132	$table->add (0, 1, new CFClient::UI::Label align => 1, text => "Fullscreen");	157	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fullscreen");
133	$table->add (1, 1, new CFClient::UI::CheckBox state => $CFG->{fullscreen}, connect_changed => sub {	158	$table->add (1, $row++, new CFClient::UI::CheckBox
		159	state => $CFG->{fullscreen},
		160	tooltip => "Bring the client into fullscreen mode",
		161	connect_changed => sub {
134	my ($self, $value) = @_;	162	my ($self, $value) = @_;
135	$CFG->{fullscreen} = $value;	163	$CFG->{fullscreen} = $value;
		164	}
136	});	165	);
137		166
138	$table->add (0, 2, new CFClient::UI::Label align => 1, text => "Fast & Ugly");	167	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fast & Ugly");
139	$table->add (1, 2, new CFClient::UI::CheckBox state => $CFG->{fast}, connect_changed => sub {	168	$table->add (1, $row++, new CFClient::UI::CheckBox
		169	state => $CFG->{fast},
		170	tooltip => "Lower the visual quality considerably to speed up rendering.",
		171	connect_changed => sub {
140	my ($self, $value) = @_;	172	my ($self, $value) = @_;
141	$CFG->{fast} = $value;	173	$CFG->{fast} = $value;
		174	}
142	});	175	);
143		176
144	$table->add (0, 3, new CFClient::UI::Label align => 1, text => "Fog of War");	177	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Map Scale");
145	$table->add (1, 3, new CFClient::UI::CheckBox state => $CFG->{fow_enable}, connect_changed => sub {	178	$table->add (1, $row++, new CFClient::UI::Slider
		179	range => [$CFG->{map_scale}, 0.25, 2, 0.05],
		180	tooltip => "Enlarge or shrink the displayed map",
		181	connect_changed => sub {
146	my ($self, $value) = @_;	182	my ($self, $value) = @_;
		183	$CFG->{map_scale} = 0.05 * int $value / 0.05;
		184	}
		185	);
		186
		187	$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
		189	state => $CFG->{fow_enable},
		190	tooltip => "Fog-of-War marks areas that cannot be seen by the player",
		191	connect_changed => sub {
		192	my ($self, $value) = @_;
147	$CFG->{fow_enable} = $value;	193	$CFG->{fow_enable} = $value;
		194	}
148	});	195	);
149		196
150	$table->add (0, 4, new CFClient::UI::Label align => 1, text => "FoW Intensity");	197	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "FoW Intensity");
151	$table->add (1, 4, new CFClient::UI::Slider range => [$CFG->{fow_intensity}, 0, 1 + 0.001, 0.001], connect_changed => sub {	198	$table->add (1, $row++, new CFClient::UI::Slider
		199	range => [$CFG->{fow_intensity}, 0, 1 + 0.001, 0.001],
		200	tooltip => "The higher the intensity, the lighter the Fog-of-War color",
		201	connect_changed => sub {
152	my ($self, $value) = @_;	202	my ($self, $value) = @_;
153	$CFG->{fow_intensity} = $value;	203	$CFG->{fow_intensity} = $value;
		204	}
154	});	205	);
155		206
156	$table->add (0, 5, new CFClient::UI::Label align => 1, text => "FoW Smooth");	207	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "FoW Smooth");
157	$table->add (1, 5, new CFClient::UI::CheckBox state => $CFG->{fow_smooth}, connect_changed => sub {	208	$table->add (1, $row++, new CFClient::UI::CheckBox
		209	state => $CFG->{fow_smooth},
		210	tooltip => "Smooth the Fog-of-War a bit to make it more realistic",
		211	connect_changed => sub {
158	my ($self, $value) = @_;	212	my ($self, $value) = @_;
159	$CFG->{fow_smooth} = $value;	213	$CFG->{fow_smooth} = $value;
160	status "Fog of War smoothing requires OpenGL 1.2 or higher" if $CFClient::GL_VERSION < 1.2;	214	status "Fog of War smoothing requires OpenGL 1.2 or higher" if $CFClient::GL_VERSION < 1.2;
		215	}
161	});	216	);
162		217
163	$table->add (0, 6, new CFClient::UI::Label align => 1, text => "Log Fontsize");	218	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "GUI Fontsize");
164	$table->add (1, 6, new CFClient::UI::Slider range => [$CFG->{log_fontsize}, 8, 30, 1], connect_changed => sub {	219	$table->add (1, $row++, new CFClient::UI::Slider
165	my ($self, $value) = @_;	220	range => [$CFG->{gui_fontsize}, 0.5, 2, 0.1],
166	$LOGVIEW->set_fontsize ($CFG->{log_fontsize} = int $value);	221	tooltip => "The font size used by most GUI elements",
		222	connect_changed => sub {
		223	$CFG->{gui_fontsize} = 0.1 * int $_[1] * 10;
		224	# $FONTSIZE = int $HEIGHT / 40 * $CFG->{gui_fontsize};
		225	}
167	});	226	);
168		227
169	$table->add (1, 7, new CFClient::UI::Button expand => 1, align => 0, text => "Apply", connect_activate => sub {	228	$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
		230	range => [$CFG->{log_fontsize}, 0.5, 2, 0.1],
		231	tooltip => "The font size used by the server log window only",
		232	connect_changed => sub {
		233	$LOGVIEW->set_fontsize ($CFG->{log_fontsize} = 0.1 * int $_[1] * 10);
		234	}
		235	);
		236
		237	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Stats Fontsize");
		238
		239	$table->add (1, $row++, new CFClient::UI::Slider
		240	range => [$CFG->{stat_fontsize}, 0.5, 2, 0.1],
		241	tooltip => "The font size used by the statistics window only",
		242	connect_changed => sub {
		243	$CFG->{stat_fontsize} = 0.1 * int $_[1] * 10;
		244	&set_stats_window_fontsize;
		245	}
		246	);
		247
		248	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Gauge size");
		249	$table->add (1, $row++, new CFClient::UI::Slider
		250	range => [$CFG->{gauge_size}, 0.2, 0.8, 0.02],
		251	tooltip => "Adjust the size of the stats gauges at the bottom right",
		252	connect_changed => sub {
		253	$CFG->{gauge_size} = $_[1];
		254	my $h = int $HEIGHT * $CFG->{gauge_size};
		255	$GAUGES->{win}->set_size ($WIDTH, $h);
		256	$GAUGES->{win}->move (0, $HEIGHT - $h);
		257	}
		258	);
		259
		260	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Gauge fontsize");
		261	$table->add (1, $row++, new CFClient::UI::Slider
		262	range => [$CFG->{gauge_fontsize}, 0.5, 2.0, 0.1],
		263	tooltip => "Adjusts the fontsize of the gauges at the bottom right",
		264	connect_changed => sub {
		265	$CFG->{gauge_fontsize} = 0.1 * int $_[1] * 10;
		266	&set_gauge_window_fontsize;
		267	}
		268	);
		269
		270	$table->add (1, $row++, new CFClient::UI::Button
		271	expand => 1, align => 0, text => "Apply",
		272	tooltip => "Apply the video settings",
		273	connect_activate => sub {
170	video_shutdown ();	274	video_shutdown ();
171	video_init ();	275	video_init ();
		276	}
		277	);
		278
		279	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Audio Enable");
		280	$table->add (1, $row++, new CFClient::UI::CheckBox
		281	state => $CFG->{audio_enable},
		282	tooltip => "If enabled, sound effects and music will be played. If disabled, no audio will be used and the soundcard will not be opened.",
		283	connect_changed => sub {
		284	$CFG->{audio_enable} = $_[1];
		285	}
		286	);
		287	# $table->add (0, 9, new CFClient::UI::Label valign => 0, align => 1, text => "Effects Volume");
		288	# $table->add (1, 8, new CFClient::UI::Slider range => [$CFG->{effects_volume}, 0, 128, 1], connect_changed => sub {
		289	# $CFG->{effects_volume} = $_[1];
172	});	290	# });
		291	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Background Music");
		292	$table->add (1, $row++, my $hbox = new CFClient::UI::HBox);
		293	$hbox->add (new CFClient::UI::CheckBox
		294	expand => 1, state => $CFG->{bgm_enable},
		295	tooltip => "Enable background music playing",
		296	connect_changed => sub {
		297	$CFG->{bgm_enable} = $_[1];
		298	}
		299	);
		300	$hbox->add (new CFClient::UI::Slider
		301	expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0.1],
		302	tooltip => "The volume of the background music",
		303	connect_changed => sub {
		304	$CFG->{bgm_volume} = $_[1];
		305	CFClient::MixMusic::volume $_[1] * 128;
		306	}
		307	);
		308
		309	$table->add (1, $row++, new CFClient::UI::Button
		310	expand => 1, align => 0, text => "Apply",
		311	tooltip => "Apply the audio settings",
		312	connect_activate => sub {
		313	audio_shutdown ();
		314	audio_init ();
		315	}
		316	);
173		317
174	$dialog	318	$dialog
		319	}
		320
		321	sub set_stats_window_fontsize {
		322	for (values %{$STATWIDS}) {
		323	$_->set_fontsize ($::CFG->{stat_fontsize});
		324	}
		325	}
		326
		327	sub set_gauge_window_fontsize {
		328	for (map { $GAUGES->{$_} } grep { $_ ne 'win' } keys %{$GAUGES}) {
		329	$_->set_fontsize ($::CFG->{gauge_fontsize});
		330	}
		331
		332	# local $GAUGES->{win}{parent};#d#
		333	# use PApp::Util; open D, ">:utf8", "d"; print D PApp::Util::dumpval $GAUGES->{win}; close D;
		334	}
		335
		336	sub make_gauge_window {
		337	my $gh = int ($HEIGHT * $CFG->{gauge_size});
		338	# my $gw = int ($WIDTH * $CFG->{gauge_w_size});
		339
		340	my $win = new CFClient::UI::Frame (
		341	y => $HEIGHT - $gh, x => 0, user_w => $WIDTH, user_h => $gh
		342	);
		343	$win->add (my $hbox = new CFClient::UI::HBox
		344	children => [
		345	(new CFClient::UI::HBox expand => 1),
		346	($FLOORBOX = new CFClient::UI::VBox),
		347	(my $vbox = new CFClient::UI::VBox),
		348	],
		349	);
		350
		351	$vbox->add (new CFClient::UI::HBox
		352	expand => 1,
		353	children => [
		354	(new CFClient::UI::Empty expand => 1),
		355	(my $hb = new CFClient::UI::HBox),
		356	],
		357	);
		358
		359	$hb->add (my $hg = new CFClient::UI::Gauge type => 'hp',
		360	tooltip => "Health points - depletes when you get wounded, refills when you heal or idle");
		361	$hb->add (my $mg = new CFClient::UI::Gauge type => 'mana',
		362	tooltip => "Spell points - deplete when you cast wizard spells, refills when you idle");
		363	$hb->add (my $gg = new CFClient::UI::Gauge type => 'grace',
		364	tooltip => "Grace points - deplete when you cast priest spells, refills when you pray");
		365	$hb->add (my $fg = new CFClient::UI::Gauge type => 'food',
		366	tooltip => "Food - depletes with time, faster when you heal or build mana, refills when you eat healthy food");
		367
		368	$vbox->add (my $exp = new CFClient::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1,
		369	tooltip => "Experience points and level - increases when you kill monsters or successfully use skills");
		370	$vbox->add (my $rng = new CFClient::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1,
		371	tooltip => "Ranged attack - how you attack when you press shift-cursor (spell, skill, weapon etc.)");
		372
		373	$GAUGES = {
		374	exp => $exp, win => $win, range => $rng,
		375	food => $fg, mana => $mg, hp => $hg, grace => $gg
		376	};
		377
		378	&set_gauge_window_fontsize;
		379
		380	$win
		381	}
		382
		383	sub make_stats_window {
		384	my $tgw = new CFClient::UI::FancyFrame (x => $WIDTH * 2/5, y => 0, title => "Stats");
		385
		386	$tgw->add (my $vb = new CFClient::UI::VBox);
		387	$vb->add ($STATWIDS->{title} = new CFClient::UI::Label valign => 0, align => -1, text => "Title:", expand => 1);
		388	$vb->add ($STATWIDS->{map} = new CFClient::UI::Label valign => 0, align => -1, text => "Map:", expand => 1);
		389
		390	$vb->add (my $hb = new CFClient::UI::HBox expand => 1);
		391
		392	$hb->add (my $tbl = new CFClient::UI::Table expand => 1);
		393
		394	my $black = [0, 0, 0];
		395
		396	$tbl->add (0, 0, $STATWIDS->{st_str} = new CFClient::UI::Label valign => 0, align => +1, template => "30");
		397	$tbl->add (0, 1, $STATWIDS->{st_dex} = new CFClient::UI::Label valign => 0, align => +1, template => "30");
		398	$tbl->add (0, 2, $STATWIDS->{st_con} = new CFClient::UI::Label valign => 0, align => +1, template => "30");
		399	$tbl->add (0, 3, $STATWIDS->{st_int} = new CFClient::UI::Label valign => 0, align => +1, template => "30");
		400	$tbl->add (0, 4, $STATWIDS->{st_wis} = new CFClient::UI::Label valign => 0, align => +1, template => "30");
		401	$tbl->add (0, 5, $STATWIDS->{st_pow} = new CFClient::UI::Label valign => 0, align => +1, template => "30");
		402	$tbl->add (0, 6, $STATWIDS->{st_cha} = new CFClient::UI::Label valign => 0, align => +1, template => "30");
		403
		404	$tbl->add (1, 0, $STATWIDS->{st_str_lbl} = new CFClient::UI::Label fg => $black, valign => 0, align => -1, text => "Str");
		405	$tbl->add (1, 1, $STATWIDS->{st_dex_lbl} = new CFClient::UI::Label fg => $black, valign => 0, align => -1, text => "Dex");
		406	$tbl->add (1, 2, $STATWIDS->{st_con_lbl} = new CFClient::UI::Label fg => $black, valign => 0, align => -1, text => "Con");
		407	$tbl->add (1, 3, $STATWIDS->{st_int_lbl} = new CFClient::UI::Label fg => $black, valign => 0, align => -1, text => "Int");
		408	$tbl->add (1, 4, $STATWIDS->{st_wis_lbl} = new CFClient::UI::Label fg => $black, valign => 0, align => -1, text => "Wis");
		409	$tbl->add (1, 5, $STATWIDS->{st_pow_lbl} = new CFClient::UI::Label fg => $black, valign => 0, align => -1, text => "Pow");
		410	$tbl->add (1, 6, $STATWIDS->{st_cha_lbl} = new CFClient::UI::Label fg => $black, valign => 0, align => -1, text => "Cha");
		411
		412	$tbl->add (2, 0, $STATWIDS->{st_wc} = new CFClient::UI::Label valign => 0, align => +1, template => "-120");
		413	$tbl->add (2, 1, $STATWIDS->{st_ac} = new CFClient::UI::Label valign => 0, align => +1, template => "-120");
		414	$tbl->add (2, 2, $STATWIDS->{st_dam} = new CFClient::UI::Label valign => 0, align => +1, template => "120");
		415	$tbl->add (2, 3, $STATWIDS->{st_arm} = new CFClient::UI::Label valign => 0, align => +1, template => "120");
		416	$tbl->add (2, 4, $STATWIDS->{st_spd} = new CFClient::UI::Label valign => 0, align => +1, template => "10.54");
		417	$tbl->add (2, 5, $STATWIDS->{st_wspd} = new CFClient::UI::Label valign => 0, align => +1, template => "9");
		418
		419	$tbl->add (3, 0, $STATWIDS->{st_wc_lbl} = new CFClient::UI::Label fg => $black, valign => 0, align => -1, text => "Wc");
		420	$tbl->add (3, 1, $STATWIDS->{st_ac_lbl} = new CFClient::UI::Label fg => $black, valign => 0, align => -1, text => "Ac");
		421	$tbl->add (3, 2, $STATWIDS->{st_dam_lbl} = new CFClient::UI::Label fg => $black, valign => 0, align => -1, text => "Dam");
		422	$tbl->add (3, 3, $STATWIDS->{st_arm_lbl} = new CFClient::UI::Label fg => $black, valign => 0, align => -1, text => "Arm");
		423	$tbl->add (3, 4, $STATWIDS->{st_spd_lbl} = new CFClient::UI::Label fg => $black, valign => 0, align => -1, text => "Sp");
		424	$tbl->add (3, 5, $STATWIDS->{st_wspd_lbl} = new CFClient::UI::Label fg => $black, valign => 0, align => -1, text => "WSp");
		425
		426	$hb->add (my $tbl2 = new CFClient::UI::Table expand => 1);
		427
		428	my $row = 0;
		429	my $col = 0;
		430
		431	my %resist_names = (
		432	slow => "Slow",
		433	holyw => "Holy Word",
		434	conf => "Confusion",
		435	fire => "Fire",
		436	depl => "Depletion",
		437	magic => "Magic",
		438	drain => "Draining",
		439	acid => "Acid",
		440	pois => "Poison",
		441	para => "Paralysation",
		442	deat => "Death",
		443	phys => "Physical",
		444	blind => "Blind",
		445	fear => "Fear",
		446	tund => "Turn undead",
		447	elec => "Electricity",
		448	cold => "Cold",
		449	ghit => "Ghost hit",
		450	);
		451	for (qw/slow holyw conf fire depl magic
		452	drain acid pois para deat phys
		453	blind fear tund elec cold ghit/)
		454	{
		455	$tbl2->add ($col, $row,
		456	$STATWIDS->{"res_$_"} =
		457	new CFClient::UI::Label
		458	template => "-100%",
		459	align => +1,
		460	valign => 0,
		461	tooltip => $resist_names{$_}
		462	);
		463	$tbl2->add ($col + 1, $row, new CFClient::UI::Image
		464	can_hover => 1,
		465	can_events => 1,
		466	image => "ui/resist/resist_$_.png",
		467	tooltip => $resist_names{$_}
		468	);
		469
		470	$row++;
		471	if ($row % 6 == 0) {
		472	$col += 2;
		473	$row = 0;
		474	}
		475	}
		476
		477	&set_stats_window_fontsize;
		478	update_stats_window ({});
		479
		480	$tgw
		481	}
		482
		483	sub formsep {
		484	reverse join ",", grep length, split /(...)/, reverse $_[0] * 1
		485	}
		486
		487	sub update_stats_window {
		488	my ($stats) = @_;
		489
		490	# i love text protocols!!!
		491	my $hp = $stats->{Crossfire::Protocol::CS_STAT_HP} * 1;
		492	my $hp_m = $stats->{Crossfire::Protocol::CS_STAT_MAXHP} * 1;
		493	my $sp = $stats->{Crossfire::Protocol::CS_STAT_SP} * 1;
		494	my $sp_m = $stats->{Crossfire::Protocol::CS_STAT_MAXSP} * 1;
		495	my $fo = $stats->{Crossfire::Protocol::CS_STAT_FOOD} * 1;
		496	my $fo_m = 999;
		497	my $gr = $stats->{Crossfire::Protocol::CS_STAT_GRACE} * 1;
		498	my $gr_m = $stats->{Crossfire::Protocol::CS_STAT_MAXGRACE} * 1;
		499
		500	$GAUGES->{hp} ->set_value ($hp, $hp_m);
		501	$GAUGES->{mana} ->set_value ($sp, $sp_m);
		502	$GAUGES->{food} ->set_value ($fo, $fo_m);
		503	$GAUGES->{grace} ->set_value ($gr, $gr_m);
		504	$GAUGES->{exp} ->set_text ("Exp: " . (formsep $stats->{Crossfire::Protocol::CS_STAT_EXP64})
		505	. " (lvl " . ($stats->{Crossfire::Protocol::CS_STAT_LEVEL} * 1) . ")");
		506	my $rng = $stats->{Crossfire::Protocol::CS_STAT_RANGE};
		507	$rng =~ s/^Range: //; # thank you so much dear server
		508	$GAUGES->{range} ->set_text ("Rng: " . $rng);
		509	my $title = $stats->{Crossfire::Protocol::CS_STAT_TITLE};
		510	$title =~ s/^Player: //;
		511	$STATWIDS->{title} ->set_text ("Title: " . $title);
		512
		513	$STATWIDS->{st_str} ->set_text (sprintf "%d", $stats->{5});
		514	$STATWIDS->{st_dex} ->set_text (sprintf "%d", $stats->{8});
		515	$STATWIDS->{st_con} ->set_text (sprintf "%d", $stats->{9});
		516	$STATWIDS->{st_int} ->set_text (sprintf "%d", $stats->{6});
		517	$STATWIDS->{st_wis} ->set_text (sprintf "%d", $stats->{7});
		518	$STATWIDS->{st_pow} ->set_text (sprintf "%d", $stats->{22});
		519	$STATWIDS->{st_cha} ->set_text (sprintf "%d", $stats->{10});
		520	$STATWIDS->{st_wc} ->set_text (sprintf "%d", $stats->{13});
		521	$STATWIDS->{st_ac} ->set_text (sprintf "%d", $stats->{14});
		522	$STATWIDS->{st_dam} ->set_text (sprintf "%d", $stats->{15});
		523	$STATWIDS->{st_arm} ->set_text (sprintf "%d", $stats->{16});
		524	$STATWIDS->{st_spd} ->set_text (sprintf "%.1f", $stats->{Crossfire::Protocol::CS_STAT_SPEED});
		525	$STATWIDS->{st_wspd}->set_text (sprintf "%.1f", $stats->{Crossfire::Protocol::CS_STAT_WEAP_SP});
		526
		527	my %tbl = (
		528	phys => 100,
		529	magic => 101,
		530	fire => 102,
		531	elec => 103,
		532	cold => 104,
		533	conf => 105,
		534	acid => 106,
		535	drain => 107,
		536	ghit => 108,
		537	pois => 109,
		538	slow => 110,
		539	para => 111,
		540	tund => 112,
		541	fear => 113,
		542	depl => 113,
		543	deat => 115,
		544	holyw => 116,
		545	blind => 117
		546	);
		547
		548	for (keys %tbl) {
		549	$STATWIDS->{"res_$_"}->set_text (sprintf "%d%", $stats->{$tbl{$_}});
		550	}
		551
175	}	552	}
176		553
177	sub metaserver_dialog {	554	sub metaserver_dialog {
178	my $dialog = new CFClient::UI::FancyFrame	555	my $dialog = new CFClient::UI::FancyFrame
		556	title => "Metaserver",
179	child => (my $vbox = new CFClient::UI::VBox);	557	child => (my $vbox = new CFClient::UI::VBox);
180		558
181	$vbox->add ($dialog->{table} = new CFClient::UI::Table);	559	$vbox->add ($dialog->{table} = new CFClient::UI::Table);
182		560
183	$dialog	561	$dialog
184	}	562	}
185		563
186	sub update_metaserver {	564	sub update_metaserver {
187	my ($HOST) = @_;	565	my ($HOST) = @_;
188		566
189	status "fetching metaserver list...";	567	my $table = $METASERVER->{table};
		568	$table->clear;
		569	$table->add (0, 0, my $label = new CFClient::UI::Label max_w => $WIDTH * 0.8, text => "fetching metaserver list...");
190		570
191	my $buf;	571	my $buf;
192		572
193	my $fh = new IO::Socket::INET PeerHost => $META_SERVER, Blocking => 0;	573	my $fh = new IO::Socket::INET PeerHost => $META_SERVER, Blocking => 0;
		574
		575	unless ($fh) {
		576	$label->set_text ("unable to contact metaserver: $!");
		577	return;
		578	}
194		579
195	Event->io (fd => $fh, poll => 'r', cb => sub {	580	Event->io (fd => $fh, poll => 'r', cb => sub {
196	my $res = sysread $fh, $buf, 8192, length $buf;	581	my $res = sysread $fh, $buf, 8192, length $buf;
197		582
198	if (!defined $res) {	583	if (!defined $res) {
199	$_[0]->w->cancel;	584	$_[0]->w->cancel;
200	status "metaserver: $!";	585	$label->set_text ("error while retrieving server list: $!");
201	} elsif ($res == 0) {	586	} elsif ($res == 0) {
202	$_[0]->w->cancel;	587	$_[0]->w->cancel;
203	status "server list retrieved";	588	status "server list retrieved";
204		589
205	my $table = $METASERVER->{table};	590	utf8::decode $buf if utf8::valid $buf;
206		591
207	$table->clear;	592	$table->clear;
208		593
209	my @col = qw(Use #Users Host Uptime Version Description);	594	my @col = qw(Use #Users Host Uptime Version Description);
210	$table->add ($_, 0, new CFClient::UI::Label align => 0, fg => [1, 1, 0], text => $col[$_])	595	$table->add ($_, 0, new CFClient::UI::Label align => 0, fg => [1, 1, 0], text => $col[$_])
…		…
234	$m = [$users, $host, $uptime, $version, $desc];	619	$m = [$users, $host, $uptime, $version, $desc];
235		620
236	$y++;	621	$y++;
237		622
238	$table->add (0, $y, new CFClient::UI::VBox children => [	623	$table->add (0, $y, new CFClient::UI::VBox children => [
239	(new CFClient::UI::Button text => " ", connect_activate => sub {	624	(new CFClient::UI::Button text => "Use", connect_activate => sub {
240	$HOST->set_text ($CFG->{host} = $host);	625	$HOST->set_text ($CFG->{host} = $host);
241	}),	626	}),
242	(new CFClient::UI::Empty expand => 1),	627	(new CFClient::UI::Empty expand => 1),
243	]);	628	]);
244		629
245	$table->add ($_ + 1, $y, new CFClient::UI::Label align => $align[$_], text => $m->[$_], fontsize => $FONTSIZE * 0.8)	630	$table->add ($_ + 1, $y, new CFClient::UI::Label align => $align[$_], text => $m->[$_], fontsize => 0.8)
246	for 0 .. $#$m;	631	for 0 .. $#$m;
247	}	632	}
248	}	633	}
249	});	634	});
250	}	635	}
251		636
252	sub server_setup {	637	sub server_setup {
253	my $dialog = new CFClient::UI::FancyFrame	638	my $dialog = new CFClient::UI::FancyFrame
		639	title => "Server Setup",
254	child => (my $vbox = new CFClient::UI::VBox);	640	child => (my $vbox = new CFClient::UI::VBox);
255		641
256	$vbox->add (new CFClient::UI::Label align => 0, text => "Server Setup");
257	$vbox->add (my $table = new CFClient::UI::Table expand => 1, col_expand => [0, 1]);	642	$vbox->add (my $table = new CFClient::UI::Table expand => 1, col_expand => [0, 1]);
258	$table->add (0, 2, new CFClient::UI::Label align => 1, text => "Host:Port");	643	$table->add (0, 2, new CFClient::UI::Label valign => 0, align => 1, text => "Host:Port");
259		644
260	{	645	{
261	$table->add (1, 2, my $vbox = new CFClient::UI::VBox);	646	$table->add (1, 2, my $vbox = new CFClient::UI::VBox);
262		647
263	$vbox->add (my $HOST = new CFClient::UI::Entry text => $CFG->{host}, connect_changed => sub {	648	$vbox->add (
		649	my $HOST = new CFClient::UI::Entry
		650	expand => 1,
		651	text => $CFG->{host},
		652	tooltip => "The hostname or ip address of the Crossfire(+) server to connect to",
		653	connect_changed => sub {
		654	my ($self, $value) = @_;
		655	$CFG->{host} = $value;
		656	}
		657	);
		658
		659	$METASERVER = metaserver_dialog;
		660
		661	$vbox->add (new CFClient::UI::Flopper
		662	expand => 1,
		663	text => "Metaserver",
		664	other => $METASERVER,
		665	tooltip => "Show a list of avaible crossfire servers",
		666	connect_open => sub {
		667	update_metaserver $HOST;
		668	}
		669	);
		670	}
		671
		672	$table->add (0, 4, new CFClient::UI::Label valign => 0, align => 1, text => "Username");
		673	$table->add (1, 4, new CFClient::UI::Entry
		674	text => $CFG->{user},
		675	tooltip => "The name of your character on the server",
		676	connect_changed => sub {
264	my ($self, $value) = @_;	677	my ($self, $value) = @_;
265	$CFG->{host} = $value;	678	$CFG->{user} = $value;
266	});	679	}
		680	);
267		681
268	$METASERVER = metaserver_dialog;
269
270	$vbox->add (new CFClient::UI::Flopper text => "Metaserver", other => $METASERVER, connect_open => sub {
271	update_metaserver $HOST;
272	});
273	}
274
275	$table->add (0, 4, new CFClient::UI::Label align => 1, text => "Username");	682	$table->add (0, 5, new CFClient::UI::Label valign => 0, align => 1, text => "Password");
276	$table->add (1, 4, new CFClient::UI::Entry text => $CFG->{user}, connect_changed => sub {	683	$table->add (1, 5, new CFClient::UI::Entry
		684	text => $CFG->{password},
		685	hidden => 1,
		686	tooltip => "The password for your character",
		687	connect_changed => sub {
277	my ($self, $value) = @_;	688	my ($self, $value) = @_;
278	$CFG->{user} = $value;
279	});
280
281	$table->add (0, 5, new CFClient::UI::Label align => 1, text => "Password");
282	$table->add (1, 5, new CFClient::UI::Entry text => $CFG->{password}, hidden => 1, connect_changed => sub {
283	my ($self, $value) = @_;
284	$CFG->{password} = $value;	689	$CFG->{password} = $value;
		690	}
285	});	691	);
286		692
287	$table->add (0, 6, new CFClient::UI::Label align => 1, text => "Def. say cmd");	693	$table->add (0, 6, new CFClient::UI::Label valign => 0, align => 1, text => "Def. say cmd");
288	$table->add (1, 6, my $saycmd = new CFClient::UI::Entry text => $CFG->{say_command}, connect_changed => sub {	694	$table->add (1, 6, my $saycmd = new CFClient::UI::Entry
		695	text => $CFG->{say_command},
		696	tooltip => "This is the command that will be used if you write a line in the message window entry. "
		697	."Usually you want to enter something like 'say' or 'shout' or 'gsay' here. "
		698	."But you could also set it to 'tell <playername>' to only chat with that user.",
		699	connect_changed => sub {
289	my ($self, $value) = @_;	700	my ($self, $value) = @_;
290	$CFG->{say_command} = $value;	701	$CFG->{say_command} = $value;
		702	}
291	});	703	);
292		704
293	$table->add (0, 7, new CFClient::UI::Label align => 1, text => "Map Size");	705	$table->add (0, 7, new CFClient::UI::Label valign => 0, align => 1, text => "Map Size");
294	$table->add (1, 7, new CFClient::UI::Slider	706	$table->add (1, 7, new CFClient::UI::Slider
295	req_w => 100,	707	req_w => 100,
296	range => [$CFG->{mapsize}, 10, 100 + 1, 1],	708	range => [$CFG->{mapsize}, 10, 100 + 1, 1],
		709	tooltip => "This is the size of the portion of the map update the server sends you. "
		710	."If you set this to a high value you will be able to see further for example.",
297	connect_changed => sub {	711	connect_changed => sub {
298	my ($self, $value) = @_;	712	my ($self, $value) = @_;
299		713
300	$CFG->{mapsize} = $self->{range}[0] = $value = int $value;	714	$CFG->{mapsize} = $self->{range}[0] = $value = int $value;
301	},	715	},
…		…
308	$dialog	722	$dialog
309	}	723	}
310		724
311	sub message_window {	725	sub message_window {
312	my $window = new CFClient::UI::FancyFrame	726	my $window = new CFClient::UI::FancyFrame
		727	title => "Messages",
313	border_bg => [1, 1, 1, 0.5],	728	border_bg => [1, 1, 1, 0.5],
314	bg => [0.3, 0.3, 0.3, 0.8],	729	bg => [0.3, 0.3, 0.3, 0.8],
315	user_w => int $::WIDTH / 3,	730	user_w => int $::WIDTH / 3,
316	user_h => int $::HEIGHT / 5,	731	user_h => int $::HEIGHT / 5,
317	child => (my $vbox = new CFClient::UI::VBox);	732	child => (my $vbox = new CFClient::UI::VBox);
318		733
319	$vbox->add ($LOGVIEW = new CFClient::UI::TextView	734	$vbox->add ($LOGVIEW = new CFClient::UI::TextView
320	expand => 1,	735	expand => 1,
		736	font => $FONT_FIXED,
321	fontsize => $::CFG->{log_fontsize},	737	fontsize => $::CFG->{log_fontsize},
322	);	738	);
323		739
324	$vbox->add (my $input = new CFClient::UI::Entry	740	$vbox->add (my $input = new CFClient::UI::Entry
325	connect_focus_in => sub {	741	connect_focus_in => sub {
…		…
359		775
360	$window	776	$window
361	}	777	}
362		778
363	sub sdl_init {	779	sub sdl_init {
364	#SDL::Init SDL_INIT_AUDIO \| SDL_INIT_VIDEO \| SDL_INIT_NOPARACHUTE	780	CFClient::SDL_Init
365	SDL::Init SDL_INIT_AUDIO \| SDL_INIT_VIDEO
366	and die "SDL::Init failed!\n";	781	and die "SDL::Init failed!\n";
367	}	782	}
368		783
369	sub video_init {	784	sub video_init {
370	sdl_init;	785	sdl_init;
371		786
372	($WIDTH, $HEIGHT) = @{ $SDL_MODES[$CFG->{sdl_mode}] };	787	($WIDTH, $HEIGHT) = @{ $SDL_MODES[$CFG->{sdl_mode}] };
373	$FULLSCREEN = $CFG->{fullscreen};	788	$FULLSCREEN = $CFG->{fullscreen};
374	$FAST = $CFG->{fast};	789	$FAST = $CFG->{fast};
375		790
376	SDL::GLSetAttribute SDL_GL_RED_SIZE, 5;	791	CFClient::SDL_SetVideoMode $WIDTH, $HEIGHT, $FULLSCREEN
377	SDL::GLSetAttribute SDL_GL_GREEN_SIZE, 5;
378	SDL::GLSetAttribute SDL_GL_BLUE_SIZE, 5;
379	SDL::GLSetAttribute SDL_GL_ALPHA_SIZE, 1;
380
381	SDL::GLSetAttribute SDL_GL_ACCUM_RED_SIZE, 0;
382	SDL::GLSetAttribute SDL_GL_ACCUM_GREEN_SIZE, 0;
383	SDL::GLSetAttribute SDL_GL_ACCUM_BLUE_SIZE, 0;
384	SDL::GLSetAttribute SDL_GL_ACCUM_ALPHA_SIZE, 0;
385
386	SDL::GLSetAttribute SDL_GL_DOUBLEBUFFER, 1;
387	SDL::GLSetAttribute SDL_GL_BUFFER_SIZE, 15;
388	SDL::GLSetAttribute SDL_GL_DEPTH_SIZE, 0;
389
390	SDL::SetVideoMode $WIDTH, $HEIGHT, 0,
391	SDL_HWSURFACE \| SDL_ANYFORMAT \| SDL_OPENGL \| SDL_DOUBLEBUF
392	\| ($FULLSCREEN ? SDL_FULLSCREEN : 0)
393	or die "SDL::SetVideoMode failed!\n";	792	or die "SDL_SetVideoMode failed!\n";
394
395	SDL::WMSetCaption "Crossfire+ Client", "Crossfire+";
396
397	$SDL_EV = new SDL::Event;
398	$SDL_EV->set_unicode (1);
399		793
400	$SDL_ACTIVE = 1;	794	$SDL_ACTIVE = 1;
401		795
402	$LAST_REFRESH = time - 0.01;	796	$LAST_REFRESH = time - 0.01;
403		797
404	CFClient::gl_init;	798	CFClient::gl_init;
405		799
406	$FONTSIZE = int $HEIGHT / 40;	800	$FONTSIZE = int $HEIGHT / 40 * $CFG->{gui_fontsize};
407		801
408	#############################################################################	802	#############################################################################
409		803
410	$DEBUG_STATUS = new CFClient::UI::Label padding => 0, z => 100;	804	$DEBUG_STATUS = new CFClient::UI::Label padding => 0, z => 100;
411	$CFClient::UI::ROOT->add ($DEBUG_STATUS);	805	$DEBUG_STATUS->show;
412		806
413	$STATUS_LINE = new CFClient::UI::Label	807	$STATUS_LINE = new CFClient::UI::Label
414	padding => 0,	808	padding => 0,
415	y => $HEIGHT * 44 / 45 - $FONTSIZE;	809	y => $HEIGHT - $FONTSIZE * 1.8;
416	$CFClient::UI::ROOT->add ($STATUS_LINE);	810	$STATUS_LINE->show;
417		811
418	$ALT_ENTER_MESSAGE = new CFClient::UI::Label	812	$ALT_ENTER_MESSAGE = new CFClient::UI::Label
419	padding => 0,	813	padding => 0,
420	y => $HEIGHT * 44 / 45,
421	fontsize => $HEIGHT / 45,	814	fontsize => 0.8,
422	markup => "Use <b>Alt-Enter</b> to toggle fullscreen mode";	815	markup => "Use <b>Alt-Enter</b> to toggle fullscreen mode";
423	$CFClient::UI::ROOT->add ($ALT_ENTER_MESSAGE);	816	$ALT_ENTER_MESSAGE->show;
		817	$ALT_ENTER_MESSAGE->move (0, $HEIGHT - $ALT_ENTER_MESSAGE->{h});
424		818
425	$CFClient::UI::ROOT->add ($MAPWIDGET = new CFClient::UI::MapWidget);	819	$CFClient::UI::ROOT->add ($MAPWIDGET = new CFClient::MapWidget);
426	$MAPWIDGET->focus_in;	820	$MAPWIDGET->focus_in;
427	$MAPWIDGET->connect (activate_console => sub {	821	$MAPWIDGET->connect (activate_console => sub {
428	my ($mapwidget, $preset) = @_;	822	my ($mapwidget, $preset) = @_;
429		823
430	if ($CONSOLE) {	824	if ($CONSOLE) {
…		…
440	$CFClient::UI::ROOT->add ($BUTTONBAR = new CFClient::UI::HBox);	834	$CFClient::UI::ROOT->add ($BUTTONBAR = new CFClient::UI::HBox);
441		835
442	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Client Setup", other => client_setup);	836	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Client Setup", other => client_setup);
443	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Server Setup", other => server_setup);	837	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Server Setup", other => server_setup);
444	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Message Window", other => message_window);	838	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Message Window", other => message_window);
		839
		840	$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
		841	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Stats Window", other => make_stats_window);
445		842
446	$BUTTONBAR->add (new CFClient::UI::Button text => "Save Config", connect_activate => sub {	843	$BUTTONBAR->add (new CFClient::UI::Button text => "Save Config", connect_activate => sub {
447	CFClient::write_cfg "$Crossfire::VARDIR/pclientrc";	844	CFClient::write_cfg "$Crossfire::VARDIR/pclientrc";
448	status "Configuration Saved";	845	status "Configuration Saved";
449	});	846	});
450		847
451	$BUTTONBAR->{children}[1]->emit ("activate"); # pop up server setup	848	$BUTTONBAR->{children}[1]->emit ("activate"); # pop up server setup
452
453	my $tgw = new CFClient::UI::FancyFrame (x => $WIDTH - 300, y => 0);
454	$tgw->add (my $hbox = new CFClient::UI::HBox ());
455
456	$hbox->add (my $hg = new CFClient::UI::VGauge (gauge => 'hp'));
457	$hbox->add (my $mg = new CFClient::UI::VGauge (gauge => 'mana'));
458	$hbox->add (my $gg = new CFClient::UI::VGauge (gauge => 'grace'));
459	$hbox->add (my $fg = new CFClient::UI::VGauge (gauge => 'food'));
460
461	$GAUGES = { food => $fg, mana => $mg, hp => $hg, grace => $gg };
462	$CFClient::UI::ROOT->add ($tgw);
463	}	849	}
464		850
465	sub video_shutdown {	851	sub video_shutdown {
466	$CFClient::UI::ROOT->{children} = [];	852	$CFClient::UI::ROOT->{children} = [];
		853	undef $CFClient::UI::GRAB;
		854	undef $CFClient::UI::HOVER;
467	undef $SDL_ACTIVE;	855	undef $SDL_ACTIVE;
468	undef $SDL_EV;
469	}	856	}
470		857
		858	my @bgmusic = qw(game1.ogg game2.ogg game3.ogg game5.ogg game6.ogg ross1.ogg ross2.ogg ross3.ogg ross4.ogg ross5.ogg); #d#
471	my $bgmusic;#TODO#hack#d#	859	my $bgmusic;#TODO#hack#d#
472		860
		861	sub audio_music_finished {
		862	return unless $CFG->{bgm_enable};
		863
		864	# TODO: hack, do play loop and mood music
		865	$bgmusic = new_from_file CFClient::MixMusic CFClient::find_rcfile "music/$bgmusic[0]";
		866	$bgmusic->play (0);
		867
		868	push @bgmusic, shift @bgmusic;
		869	}
		870
473	sub audio_init {	871	sub audio_init {
474	if ($CFG->{sound} \|\| 1) {	872	if ($CFG->{audio_enable}) {
475	if (open my $fh, "<:utf8", CFClient::find_rcfile "sounds/config") {	873	if (open my $fh, "<:utf8", CFClient::find_rcfile "sounds/config") {
476	$SDL_MIXER = new SDL::Mixer;	874	$SDL_MIXER = !CFClient::Mix_OpenAudio;
477	$SDL_MIXER->allocate_channels (8);	875	CFClient::Mix_AllocateChannels 8;
		876	CFClient::MixMusic::volume $CFG->{bgm_volume} * 128;
478		877
479	$bgmusic = new SDL::Music CFClient::find_rcfile "music/game3.ogg";	878	audio_music_finished;
480	$SDL_MIXER->play_music ($bgmusic, -1);
481		879
482	while (<$fh>) {	880	while (<$fh>) {
483	next if /^\s*#/;	881	next if /^\s*#/;
484	next if /^\s*$/;	882	next if /^\s*$/;
485		883
486	my ($file, $volume, $event) = split /\s+/, $_, 3;	884	my ($file, $volume, $event) = split /\s+/, $_, 3;
487		885
488	push @SOUNDS, "$volume,$file";	886	push @SOUNDS, "$volume,$file";
489		887
490	$AUDIO_CHUNKS{"$volume,$file"} \|\|= do {	888	$AUDIO_CHUNKS{"$volume,$file"} \|\|= do {
491	my $chunk = new SDL::Sound CFClient::find_rcfile "sounds/$file";	889	my $chunk = new_from_file CFClient::MixChunk CFClient::find_rcfile "sounds/$file";
492	$chunk->volume ($volume * 128 / 100);	890	$chunk->volume ($volume * 128 / 100);
493	$chunk	891	$chunk
494	};	892	};
495	}	893	}
496	} else {	894	} else {
…		…
498	}	896	}
499	}	897	}
500	}	898	}
501		899
502	sub audio_shutdown {	900	sub audio_shutdown {
		901	CFClient::Mix_CloseAudio if $SDL_MIXER;
503	undef $SDL_MIXER;	902	undef $SDL_MIXER;
504	@SOUNDS = ();	903	@SOUNDS = ();
505	%AUDIO_CHUNKS = ();	904	%AUDIO_CHUNKS = ();
506	}	905	}
507		906
…		…
520	$want_refresh = 0;	919	$want_refresh = 0;
521	$can_refresh = 0;	920	$can_refresh = 0;
522		921
523	$CFClient::UI::ROOT->draw;	922	$CFClient::UI::ROOT->draw;
524		923
525	SDL::GLSwapBuffers;	924	CFClient::SDL_GL_SwapBuffers;
526		925
527	$LAST_REFRESH = $NOW;	926	$LAST_REFRESH = $NOW;
528	}	927	}
529		928
530	my $refresh_watcher = Event->timer (after => 0, hard => 1, interval => 1 / $MAX_FPS, cb => sub {	929	my $refresh_watcher = Event->timer (after => 0, hard => 1, interval => 1 / $MAX_FPS, cb => sub {
531	$NOW = time;	930	$NOW = time;
532		931
533	($SDL_CB{$SDL_EV->type} \|\| sub { warn "unhandled event ", $SDL_EV->type })->()	932	($SDL_CB{$_->{type}} \|\| sub { warn "unhandled event $_->{type}" })->($_)
534	while $SDL_EV->poll;	933	for CFClient::SDL_PollEvent;
535		934
536	if (%animate_object) {	935	if (%animate_object) {
537	$_->animate ($LAST_REFRESH - $NOW) for values %animate_object;	936	$_->animate ($LAST_REFRESH - $NOW) for values %animate_object;
538	$want_refresh++;	937	$want_refresh++;
539	}	938	}
…		…
562	@conn::ISA = Crossfire::Protocol::;	961	@conn::ISA = Crossfire::Protocol::;
563		962
564	sub conn::stats_update {	963	sub conn::stats_update {
565	my ($self, $stats) = @_;	964	my ($self, $stats) = @_;
566		965
567	# i love text protocols!!!	966	update_stats_window ($stats);
568	# FIXME: the stats are somehow weird
569	my $hp = $stats->{1};
570	my $hp_m = $stats->{2};
571	my $sp = $stats->{3};
572	my $sp_m = $stats->{4};
573	my $fo = $stats->{18};
574	my $fo_m = 1000;
575	my $gr = $stats->{23};
576	my $gr_m = $stats->{24};
577
578	#d# warn "DATA $hp $hp_m $sp $sp_m $fo $fo_m $gr $gr_m\n";
579	$GAUGES->{hp}->set_value ($hp, $hp_m);
580	$GAUGES->{mana}->set_value ($sp, $sp_m);
581	$GAUGES->{food}->set_value ($fo, $fo_m);
582	$GAUGES->{grace}->set_value ($gr, $gr_m);
583	}	967	}
584		968
585	sub conn::user_send {	969	sub conn::user_send {
586	my ($self, $command) = @_;	970	my ($self, $command) = @_;
587		971
…		…
612		996
613	my ($hash, $x, $y, $w, $h) = @$map_info;	997	my ($hash, $x, $y, $w, $h) = @$map_info;
614		998
615	my $data = $MAP->get_rect ($x, $y, $w, $h);	999	my $data = $MAP->get_rect ($x, $y, $w, $h);
616	$MAPCACHE->put ($hash => Compress::LZF::compress $data);	1000	$MAPCACHE->put ($hash => Compress::LZF::compress $data);
617
618	warn sprintf "SAVEmap[%s] length %d\n", $hash, length $data;#d#	1001	#warn sprintf "SAVEmap[%s] length %d\n", $hash, length $data;#d#
619
620	}	1002	}
621		1003
622	sub conn::map_clear {	1004	sub conn::map_clear {
623	my ($self) = @_;	1005	my ($self) = @_;
624		1006
625	$self->flush_map;	1007	$self->flush_map;
626	delete $self->{neigh};	1008	delete $self->{neigh_map};
627		1009
628	$MAP->clear;	1010	$MAP->clear;
629	}	1011	}
630		1012
631		1013
632	sub conn::load_map($$$) {	1014	sub conn::load_map($$$) {
633	my ($self, $hash, $x, $y) = @_;	1015	my ($self, $hash, $x, $y) = @_;
634		1016
635	if (defined (my $data = $MAPCACHE->get ($hash))) {	1017	if (defined (my $data = $MAPCACHE->get ($hash))) {
636	$data = Compress::LZF::decompress $data;	1018	$data = Compress::LZF::decompress $data;
637	warn sprintf "LOADmap[%s,%d,%d] length %d\n", $hash, $x, $y, length $data;#d#	1019	#warn sprintf "LOADmap[%s,%d,%d] length %d\n", $hash, $x, $y, length $data;#d#
638	for my $id ($MAP->set_rect ($x, $y, $data)) {	1020	for my $id ($MAP->set_rect ($x, $y, $data)) {
639	my $data = $TILECACHE->get ($id)	1021	my $data = $TILECACHE->get ($id)
640	or next;	1022	or next;
641		1023
642	$self->set_texture ($id => $data);	1024	$self->set_texture ($id => $data);
643	}	1025	}
644	}	1026	}
645	}	1027	}
646		1028
		1029	# this method does a "flood fill" into every tile direction
		1030	# it assumes that tiles are arranged in a rectangular grid,
		1031	# i.e. a map is the same as the left of the right map etc.
		1032	# failure to comply are harmless and result in display errors
		1033	# at worst.
647	sub conn::flood_fill {	1034	sub conn::flood_fill {
648	my ($self, $path, $hash, $flags, $x0, $y0, $x1, $y1) = @_;	1035	my ($self, $gx, $gy, $path, $hash, $flags) = @_;
649		1036
650	# the server does not allow map paths > 6	1037	# the server does not allow map paths > 6
651	return if 6 <= length $path;	1038	return if 6 <= length $path;
652		1039
653	for my $tile (1..4) {	1040	my ($x0, $y0, $x1, $y1) = @{$self->{neigh_rect}};
654	next if $self->{neigh}{$hash}[$tile];	1041
		1042	for (
		1043	[1, 0, -1],
		1044	[2, 1, 0],
		1045	[3, 0, 1],
		1046	[4, -1, 0],
		1047	) {
		1048	my ($tile, $dx, $dy) = @$_;
		1049
		1050	my $gx = $gx + $dx;
		1051	my $gy = $gy + $dy;
		1052
655	next unless $flags & (1 << ($tile - 1));	1053	next unless $flags & (1 << ($tile - 1));
		1054	next if $self->{neigh_grid}{$gx, $gy}++;
656		1055
657	my $neigh = $self->{neigh}{$hash} \|\|= [];	1056	my $neigh = $self->{neigh_map}{$hash} \|\|= [];
658		1057	if (my $info = $neigh->[$tile]) {
659	$self->send_mapinfo ("spatial $path$tile", sub {
660	my ($mode, $flags, $x, $y, $w, $h, $hash) = @_;	1058	my ($flags, $x, $y, $w, $h, $hash) = @$info;
661		1059
662	#warn "map<$path>_$tile=<$mode,$x,$y,$w,$h,$hash>\n";#d#
663	return if $mode ne "spatial";
664
665	$x += $MAP->ox;
666	$y += $MAP->oy;
667
668	$self->load_map ($hash, $x, $y)
669	unless $self->{neigh}{$hash}[5]++;#d#
670
671	$neigh->[$tile] = [$x, $y, $w, $h];
672
673	$self->flood_fill ("$path$tile", $hash, $flags, $x0, $y0, $x1, $y1)	1060	$self->flood_fill ($gx, $gy, "$path$tile", $hash, $flags)
674	if $x >= $x0 && $x + $w < $x1 && $y >= $y0 && $y + $h < $y1;	1061	if $x >= $x0 && $x + $w < $x1 && $y >= $y0 && $y + $h < $y1;
		1062
		1063	} else {
		1064	$self->send_mapinfo ("spatial $path$tile", sub {
		1065	my ($mode, $flags, $x, $y, $w, $h, $hash) = @_;
		1066
		1067	return if $mode ne "spatial";
		1068
		1069	$x += $MAP->ox;
		1070	$y += $MAP->oy;
		1071
		1072	$self->load_map ($hash, $x, $y)
		1073	unless $self->{neigh_map}{$hash}[5]++;#d#
		1074
		1075	$neigh->[$tile] = [$flags, $x, $y, $w, $h, $hash];
		1076
		1077	$self->flood_fill ($gx, $gy, "$path$tile", $hash, $flags)
		1078	if $x >= $x0 && $x + $w < $x1 && $y >= $y0 && $y + $h < $y1;
		1079	});
675	});	1080	}
676	}	1081	}
677	}	1082	}
678		1083
679	sub conn::map_change {	1084	sub conn::map_change {
680	my ($self, $mode, $flags, $x, $y, $w, $h, $hash) = @_;	1085	my ($self, $mode, $flags, $x, $y, $w, $h, $hash) = @_;
…		…
683		1088
684	my ($ox, $oy) = ($::MAP->ox, $::MAP->oy);	1089	my ($ox, $oy) = ($::MAP->ox, $::MAP->oy);
685		1090
686	my $mapmapw = 250;	1091	my $mapmapw = 250;
687	my $mapmaph = 250;	1092	my $mapmaph = 250;
		1093
		1094	$self->{neigh_rect} = [
		1095	$ox - $mapmapw * 0.5, $oy - $mapmapw * 0.5,
		1096	$ox + $mapmapw * 0.5 + $w, $oy + $mapmapw * 0.5 + $h,
		1097	];
688		1098
		1099	delete $self->{neigh_grid};
689	$self->flood_fill ("", $hash, $flags,	1100	$self->flood_fill (0, 0, "", $hash, $flags);
690	$ox - $mapmapw * 0.5, $oy - $mapmapw * 0.5,
691	$ox + $mapmapw * 0.5, $oy + $mapmapw * 0.5);
692		1101
693	$x += $ox;	1102	$x += $ox;
694	$y += $oy;	1103	$y += $oy;
695		1104
696	$self->{map_info} = [$hash, $x, $y, $w, $h];	1105	$self->{map_info} = [$hash, $x, $y, $w, $h];
		1106
		1107	my $map = $self->{map_info}[0];
		1108	$map =~ s/^.*?\/([^\/]+)$/\1/;
		1109	$STATWIDS->{map}->set_text ("Map: " . $map);
697		1110
698	$self->load_map ($hash, $x, $y);	1111	$self->load_map ($hash, $x, $y);
699	}	1112	}
700		1113
701	sub conn::face_find {	1114	sub conn::face_find {
…		…
727	}	1140	}
728		1141
729	gotid:	1142	gotid:
730	$face->{id} = $id;	1143	$face->{id} = $id;
731	$MAP->set_face ($facenum => $id);	1144	$MAP->set_face ($facenum => $id);
		1145	$self->{faceid}[$facenum] = $id;#d#
732	$TILECACHE->get ($id)	1146	$TILECACHE->get ($id)
733	}	1147	}
734		1148
735	sub conn::face_update {	1149	sub conn::face_update {
736	my ($self, $facenum, $face) = @_;	1150	my ($self, $facenum, $face) = @_;
…		…
744	my ($self, $id, $data) = @_;	1158	my ($self, $id, $data) = @_;
745		1159
746	$self->{texture}[$id] \|\|= do {	1160	$self->{texture}[$id] \|\|= do {
747	my $tex =	1161	my $tex =
748	new_from_image CFClient::Texture	1162	new_from_image CFClient::Texture
749	$data, minify => 1;	1163	$data, minify => 1, mipmap => 1;
750		1164
751	$MAP->set_texture ($id, @$tex{qw(name w h s t)}, @{$tex->{minified}});	1165	$MAP->set_texture ($id, @$tex{qw(name w h s t)}, @{$tex->{minified}});
752	$MAPWIDGET->update;	1166	$MAPWIDGET->update;
753		1167
754	$tex	1168	$tex
…		…
756	}	1170	}
757		1171
758	sub conn::sound_play {	1172	sub conn::sound_play {
759	my ($self, $x, $y, $soundnum, $type) = @_;	1173	my ($self, $x, $y, $soundnum, $type) = @_;
760		1174
		1175	$SDL_MIXER
		1176	or return;
		1177
761	my $chunk = $AUDIO_CHUNKS{$SOUNDS[$soundnum]}	1178	my $chunk = $AUDIO_CHUNKS{$SOUNDS[$soundnum]}
762	or return;	1179	or return;
763		1180
764	$SDL_MIXER->play_channel (-1, $chunk);	1181	$chunk->play;
765	warn "sound $x,$y,$soundnum,$type\n";#d#	1182	# warn "sound $x,$y,$soundnum,$type\n";#d#
766	}	1183	}
		1184
		1185	my $LAST_QUERY; # server is stupid, stupid, stupid
767		1186
768	sub conn::query {	1187	sub conn::query {
769	my ($self, $flags, $prompt) = @_;	1188	my ($self, $flags, $prompt) = @_;
770		1189
771	#TODO	1190	$prompt = $LAST_QUERY unless length $prompt;
772	warn "<<<<QUERY:$flags:$prompt>>>\n";#d#	1191	$LAST_QUERY = $prompt;
		1192
		1193	my $dialog = new CFClient::UI::FancyFrame
		1194	title => "Query",
		1195	child => my $vbox = new CFClient::UI::VBox;
		1196
		1197	$vbox->add (new CFClient::UI::Label
		1198	max_w => $::WIDTH * 0.4,
		1199	text => $prompt);
		1200
		1201	if ($flags & Crossfire::Protocol::CS_QUERY_YESNO) {
		1202	$vbox->add (my $hbox = new CFClient::HBox);
		1203	$hbox->add (new CFClient::Button
		1204	text => "No",
		1205	connect_activate => sub {
		1206	$self->send ("reply n");
		1207	$dialog->destroy;
		1208	$MAPWIDGET->focus_in;
		1209	}
		1210	);
		1211	$hbox->add (new CFClient::Button
		1212	text => "Yes",
		1213	connect_activate => sub {
		1214	$self->send ("reply y");
		1215	$dialog->destroy;
		1216	$MAPWIDGET->focus_in;
		1217	},
		1218	);
		1219
		1220	$dialog->focus_in;
		1221
		1222	} elsif ($flags & Crossfire::Protocol::CS_QUERY_SINGLECHAR) {
		1223	$dialog->{tooltip} = "Press a key (click on the entry to make sure it has keyboard focus)";
		1224	$vbox->add (my $entry = new CFClient::UI::Entry
		1225	connect_changed => sub {
		1226	$self->send ("reply $_[1]");
		1227	$dialog->destroy;
		1228	$MAPWIDGET->focus_in;
		1229	},
		1230	);
		1231
		1232	$entry->focus_in;
		1233
		1234	} else {
		1235	$dialog->{tooltip} = "Enter the reply and press return (click on the entry to make sure it has keyboard focus)";
		1236
		1237	$vbox->add (my $entry = new CFClient::UI::Entry
		1238	$flags & Crossfire::Protocol::CS_QUERY_HIDEINPUT ? (hiddenchar => "*") : (),
		1239	connect_activate => sub {
		1240	$self->send ("reply $_[1]");
		1241	$dialog->destroy;
		1242	$MAPWIDGET->focus_in;
		1243	},
		1244	);
		1245
		1246	$entry->focus_in;
		1247	}
		1248
		1249	$dialog->show;
773	}	1250	}
774		1251
775	sub conn::drawinfo {	1252	sub conn::drawinfo {
776	my ($self, $color, $text) = @_;	1253	my ($self, $color, $text) = @_;
777		1254
…		…
792	);	1269	);
793		1270
794	$LOGVIEW->add_paragraph ($color[$color], $text);	1271	$LOGVIEW->add_paragraph ($color[$color], $text);
795	}	1272	}
796		1273
		1274	sub conn::spell_add {
		1275	my ($self, $spell) = @_;
		1276
		1277	# TODO
		1278	# create a widget dynamically, using spell face (CF::Protocol downloads them)
		1279	$MAPWIDGET->add_command ("invoke $spell->{name}", $spell->{message});
		1280	$MAPWIDGET->add_command ("cast $spell->{name}", $spell->{message});
		1281	}
		1282
		1283	sub conn::spell_delete {
		1284	my ($self, $spell) = @_;
		1285	}
		1286
		1287	sub conn::addme_success {
		1288	my ($self) = @_;
		1289
		1290	for my $skill (values %{$self->{skill_info}}) {
		1291	$MAPWIDGET->add_command ("ready_skill $skill", "Ready the skill '$skill'");
		1292	$MAPWIDGET->add_command ("use_skill $skill", "Immediately use the skill '$skill'");
		1293	}
		1294	}
		1295
		1296	sub update_floorbox {
		1297	$CFClient::UI::ROOT->on_refresh ($FLOORBOX => sub {
		1298	$FLOORBOX->clear;
		1299	$FLOORBOX->add (new CFClient::UI::Empty expand => 1);
		1300
		1301	my @items = values %{ $CONN->{container}{0} };
		1302
		1303	# we basically have to use the same sorting as everybody else
		1304	@items = sort { $a->{type} <=> $b->{type} } @items;
		1305
		1306	for my $item (reverse @items) {
		1307	my $desc = $item->{nrof} < 2
		1308	? $item->{name}
		1309	: "$item->{nrof} $item->{name_pl}";
		1310	# todo: animation widget, face widget, weight(?) etc.
		1311	$FLOORBOX->add (my $hbox = new CFClient::UI::HBox
		1312	tooltip => (CFClient::UI::Label->escape ($desc)
		1313	. "\n<small>leftclick - pick up\nmiddle click - apply\nrightclick - menu</small>"),
		1314	can_hover => 1,
		1315	can_events => 1,
		1316	connect_button_down => sub {
		1317	my ($self, $ev, $x, $y) = @_;
		1318
		1319	# todo: maybe put examine on 1? but should just be a tooltip :(
		1320	if ($ev->{button} == 1) {
		1321	$CONN->send ("move $CONN->{player}{tag} $item->{tag} 0");
		1322	} elsif ($ev->{button} == 2) {
		1323	$CONN->send ("apply $item->{tag}");
		1324	} elsif ($ev->{button} == 3) {
		1325	# examine, lock, mark, maybe other things
		1326	warn "MENU not implemented yet\n";
		1327	}
		1328
		1329	1
		1330	},
		1331	);
		1332
		1333	$hbox->add (new CFClient::UI::Face
		1334	can_events => 0,
		1335	face => $item->{face},
		1336	anim => $item->{anim},
		1337	animspeed => $item->{animspeed},
		1338	);
		1339
		1340	$hbox->add (new CFClient::UI::Label
		1341	can_events => 0,
		1342	text => $desc,
		1343	);
		1344	}
		1345	});
		1346	refresh;
		1347	}
		1348
		1349	sub conn::container_add {
		1350	my ($self, $id, $items) = @_;
		1351
		1352	update_floorbox if $id == 0;
		1353	# $self-<{player}{tag} => player inv
		1354	#use PApp::Util; warn PApp::Util::dumpval $self->{container}{$self->{player}{tag}};
		1355	}
		1356
		1357	sub conn::container_clear {
		1358	my ($self, $id) = @_;
		1359
		1360	update_floorbox if $id == 0;
		1361	# use PApp::Util; warn PApp::Util::dumpval $self->{container}{0};
		1362	}
		1363
		1364	sub conn::item_delete {
		1365	my ($self, @items) = @_;
		1366
		1367	for (@items) {
		1368	update_floorbox if $_->{container} == 0;
		1369	}
		1370	}
		1371
		1372	sub conn::item_update {
		1373	my ($self, $item) = @_;
		1374
		1375	update_floorbox if $item->{container} == 0;
		1376	}
		1377
797	%SDL_CB = (	1378	%SDL_CB = (
798	SDL_QUIT() => sub {	1379	CFClient::SDL_QUIT => sub {
799	Event::unloop -1;	1380	Event::unloop -1;
800	},	1381	},
801	SDL_VIDEORESIZE() => sub {	1382	CFClient::SDL_VIDEORESIZE => sub {
802	},	1383	},
803	SDL_VIDEOEXPOSE() => sub {	1384	CFClient::SDL_VIDEOEXPOSE => \&refresh,
804	refresh;	1385	CFClient::SDL_ACTIVEEVENT => sub {
		1386	# printf "active %x %x\n", $SDL_EV->active_gain, $SDL_EV->active_state;#d#
805	},	1387	},
806	SDL_KEYDOWN() => sub {	1388	CFClient::SDL_KEYDOWN => sub {
807	if ($SDL_EV->key_mod & KMOD_ALT && $SDL_EV->key_sym == SDLK_RETURN) {	1389	if ($_[0]{mod} & CFClient::KMOD_ALT && $_[0]{sym} == 13) {
808	# alt-enter	1390	# alt-enter
809	video_shutdown;	1391	video_shutdown;
810	$CFG->{fullscreen} = !$CFG->{fullscreen};	1392	$CFG->{fullscreen} = !$CFG->{fullscreen};
811	video_init;	1393	video_init;
812	} else {	1394	} else {
813	CFClient::UI::feed_sdl_key_down_event ($SDL_EV);	1395	CFClient::UI::feed_sdl_key_down_event ($_[0]);
814	}	1396	}
815	},	1397	},
816	SDL_KEYUP() => sub {	1398	CFClient::SDL_KEYUP => \&CFClient::UI::feed_sdl_key_up_event,
817	CFClient::UI::feed_sdl_key_up_event ($SDL_EV);	1399	CFClient::SDL_MOUSEMOTION => \&CFClient::UI::feed_sdl_motion_event,
818	},	1400	CFClient::SDL_MOUSEBUTTONDOWN => \&CFClient::UI::feed_sdl_button_down_event,
819	SDL_MOUSEMOTION() => sub {	1401	CFClient::SDL_MOUSEBUTTONUP => \&CFClient::UI::feed_sdl_button_up_event,
820	CFClient::UI::feed_sdl_motion_event ($SDL_EV);	1402	CFClient::SDL_USEREVENT => \&audio_music_finished,
821	},
822	SDL_MOUSEBUTTONDOWN() => sub {
823	CFClient::UI::feed_sdl_button_down_event ($SDL_EV);
824	},
825	SDL_MOUSEBUTTONUP() => sub {
826	CFClient::UI::feed_sdl_button_up_event ($SDL_EV);
827	},
828	SDL_ACTIVEEVENT() => sub {
829	# printf "active %x %x\n", $SDL_EV->active_gain, $SDL_EV->active_state;#d#
830	},
831	);	1403	);
832		1404
833	#############################################################################	1405	#############################################################################
834		1406
835	$SIG{INT} = $SIG{TERM} = sub { exit };	1407	$SIG{INT} = $SIG{TERM} = sub { exit };
…		…
843	sdl_mode => 0,	1415	sdl_mode => 0,
844	width => 640,	1416	width => 640,
845	height => 480,	1417	height => 480,
846	fullscreen => 0,	1418	fullscreen => 0,
847	fast => 0,	1419	fast => 0,
		1420	map_scale => 0.5,
848	fow_enable => 1,	1421	fow_enable => 1,
849	fow_intensity => 0.45,	1422	fow_intensity => 0.45,
850	fow_smooth => 0,	1423	fow_smooth => 0,
		1424	gui_fontsize => 1,
851	log_fontsize => 14,	1425	log_fontsize => 1,
		1426	gauge_fontsize => 1,
		1427	gauge_size => 0.35,
		1428	stat_fontsize => 1,
852	mapsize => 100,	1429	mapsize => 100,
853	host => "crossfire.schmorp.de",	1430	host => "crossfire.schmorp.de",
854	say_command => 'say',	1431	say_command => 'say',
		1432	audio_enable => 1,
		1433	bgm_enable => 1,
		1434	bgm_volume => 0.25,
855	);	1435	);
856		1436
857	while (my ($k, $v) = each %DEF_CFG) {	1437	while (my ($k, $v) = each %DEF_CFG) {
858	$CFG->{$k} = $v unless exists $CFG->{$k};	1438	$CFG->{$k} = $v unless exists $CFG->{$k};
859	}	1439	}
860		1440
861	sdl_init;	1441	sdl_init;
862		1442
863	@SDL_MODES = reverse	1443	@SDL_MODES = reverse
864	grep $_->[0] >= 640 && $_->[1] >= 480,	1444	grep $_->[0] >= 640 && $_->[1] >= 480,
865	map [SDL::RectW ($_), SDL::RectH ($_)],	1445	CFClient::SDL_ListModes;
866	@{ SDL::ListModes 0, SDL_FULLSCREEN \| SDL_HWSURFACE \| SDL_OPENGL };
867		1446
868	@SDL_MODES or CFClient::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)";	1447	@SDL_MODES or CFClient::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)";
869		1448
870	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES;	1449	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES;
871		1450
872	{	1451	{
873	my @fonts = map CFClient::find_rcfile $_, qw(uifont.ttf uifontb.ttf uifonti.ttf uifontbi.ttf);	1452	my @fonts = map CFClient::find_rcfile "fonts/$_", qw(
		1453	DejaVuSans.ttf
		1454	DejaVuSansMono.ttf
		1455	DejaVuSans-Bold.ttf
		1456	DejaVuSansMono-Bold.ttf
		1457	DejaVuSans-Oblique.ttf
		1458	DejaVuSansMono-Oblique.ttf
		1459	DejaVuSans-BoldOblique.ttf
		1460	DejaVuSansMono-BoldOblique.ttf
		1461	);
874		1462
875	CFClient::add_font $_ for @fonts;	1463	CFClient::add_font $_ for @fonts;
876	CFClient::set_font $fonts[0];	1464
		1465	$FONT_PROP = new_from_file CFClient::Font $fonts[0];
		1466	$FONT_FIXED = new_from_file CFClient::Font $fonts[1];
		1467
		1468	$FONT_PROP->make_default;
877	}	1469	}
878		1470
879	video_init;	1471	video_init;
880	audio_init;	1472	audio_init;
881		1473
882	Event::loop;	1474	Event::loop;
883		1475
884	END { SDL::Quit }	1476	END { CFClient::SDL_Quit }
885		1477
		1478	=head1 pclient - Crossfire+ and Crossfire game client
886		1479
		1480	Pclient is a Crossfire+ and Crossfire game client.
		1481
		1482	=head2 Features
		1483
		1484	=over 4
		1485
		1486	=item Fullscreen Map
		1487
		1488	PClient can uses a fullscreen map, which greatly enhances how much of the
		1489	game world you can see.
		1490
		1491	=item Persistent Map Cache (Crossfire+ only)
		1492
		1493	PClient can persistently cache all map data it received from the
		1494	server. This not only allows it to display an overview map, but also
		1495	ensures that once-explored areas will be available the next time you want
		1496	to explore more.
		1497
		1498	=item Hardware acceleration
		1499
		1500	Unlike most Crossfire clients, PClient take advantage of OpenGL hardware
		1501	acceleration. Most modern graphics cards have difficulties with 2D
		1502	acceleration, while 3D graphics is accelerated well.
		1503
		1504	=item No arbitrary limits
		1505
		1506	Unlike other Crossfire clients, pclient does not suffer from arbitrary
		1507	limits (like a fixed amount of face numbers). There are still limits, but
		1508	they are not arbitrarily low :)
		1509
		1510	=back
		1511
		1512	=head1 FAQ
		1513
		1514	=over 4
		1515
		1516	=item The client is very sluggish and slow, what can I do about this?
		1517
		1518	Most likely, you don't have accelerated OpenGL support. Try to find a
		1519	newer driver, or a driver from your hardware vendor, that features OpenGL
		1520	support.
		1521
		1522	If this is not an option, the following Setup options reduce the load and
		1523	will likely make the client playable with sofwtare rendering (it will
		1524	still be slow, though):
		1525
		1526	=over 4
		1527
		1528	=item B<Video Mode> should be set as low as possible (e.g. 640x480)
		1529
		1530	=item Enable B<Fast & Ugly> mode
		1531
		1532	=item Disable B<Fog of War>
		1533
		1534	=item Increase B<Map Scale>
		1535
		1536	=back
		1537
		1538	=back
		1539
		1540	=head1 AUTHOR
		1541
		1542	Marc Lehmann <crossfire@schmorp.de>, Robin Redeker <elmex@ta-sa.org>
		1543
		1544
		1545

Diff Legend

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

Comparing deliantra/Deliantra-Client/bin/pclient (file contents): Revision 1.136 by root, Tue Apr 18 06:34:30 2006 UTC vs. Revision 1.178 by root, Tue Apr 25 08:39:18 2006 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/bin/pclient (file contents):
Revision 1.136 by root, Tue Apr 18 06:34:30 2006 UTC vs.
Revision 1.178 by root, Tue Apr 25 08:39:18 2006 UTC