ViewVC Help

View File | Revision Log | Show Annotations | Download File

/cvs/deliantra/Deliantra-Client/bin/cfplus

Comparing deliantra/Deliantra-Client/bin/cfplus (file contents):
Revision 1.139 by root, Sat Dec 9 22:06:51 2006 UTC vs.
Revision 1.184 by root, Mon Jul 23 15:30:46 2007 UTC

1	#!/opt/bin/perl	1	#!/opt/bin/perl
2		2
3	my $startup_done = sub { };	3	my $startup_done = sub { };
		4	our $PANGO = "1.5.0";
4		5
5	# do splash-screen thingy on win32	6	# do splash-screen thingy on win32
6	BEGIN {	7	BEGIN {
7	if (%PAR::LibCache && $^O eq "MSWin32") {	8	if (%PAR::LibCache && $^O eq "MSWin32") {
8	while (my ($filename, $zip) = each %PAR::LibCache) {	9	while (my ($filename, $zip) = each %PAR::LibCache) {
…		…
29	# do things only needed for single-binary version (par)	30	# do things only needed for single-binary version (par)
30	BEGIN {	31	BEGIN {
31	if (%PAR::LibCache) {	32	if (%PAR::LibCache) {
32	@INC = grep ref, @INC; # weed out all paths except pars loader refs	33	@INC = grep ref, @INC; # weed out all paths except pars loader refs
33		34
		35	my $tmp = $ENV{PAR_TEMP};
		36
34	while (my ($filename, $zip) = each %PAR::LibCache) {	37	while (my ($filename, $zip) = each %PAR::LibCache) {
35	for ($zip->memberNames) {	38	for ($zip->memberNames) {
36	next unless /^root\/(.*)/;	39	next unless /^root\/(.*)/;
37	$zip->extractMember ($_, "$ENV{PAR_TEMP}/$1")	40	$zip->extractMember ($_, "$tmp/$1")
38	unless -e "$ENV{PAR_TEMP}/$1";	41	unless -e "$tmp/$1";
39	}	42	}
40	}	43	}
41		44
42	# TODO: pango-rc file, anybody?	45	if ($^O eq "MSWin32") {
		46	# relocatable
		47	} else {
		48	# unix, need to patch pango rc file
		49	open my $fh, "<:perlio", "$tmp/usr/lib/pango/$PANGO/module-files.d/libpango1.0-0.modules"
		50	or die "$tmp/usr/lib/$PANGO/module-files.d/libpango1.0-0.modules: $!";
		51	local $/;
		52	my $rc = <$fh>;
		53	$rc =~ s/^\//$tmp\//gm; # replace abs paths by relative ones
43		54
44	unshift @INC, $ENV{PAR_TEMP};	55	mkdir "$tmp/pango-modules";
		56	open my $fh, ">:perlio", "$tmp/pango-modules/pango.modules"
		57	or die "$tmp/pango-modules/pango.modules: $!";
		58	print $fh $rc;
		59
		60	$ENV{PANGO_RC_FILE} = "$tmp/pango.rc";
		61	open my $fh, ">:perlio", $ENV{PANGO_RC_FILE}
		62	or die "$ENV{PANGO_RC_FILE}: $!";
		63	print $fh "[Pango]\nModuleFiles = $tmp/pango-modules\n";
		64	}
		65
		66	unshift @INC, $tmp;
45	}	67	}
46	}	68	}
47		69
48	# need to do it again because that pile of garbage called PAR nukes it before main	70	# need to do it again because that pile of garbage called PAR nukes it before main
49	unshift @INC, $ENV{PAR_TEMP}	71	unshift @INC, $ENV{PAR_TEMP}
…		…
58	use Compress::LZF;	80	use Compress::LZF;
59		81
60	use CFPlus;	82	use CFPlus;
61	use CFPlus::OpenGL ();	83	use CFPlus::OpenGL ();
62	use CFPlus::Protocol;	84	use CFPlus::Protocol;
		85	use CFPlus::DB;
63	use CFPlus::UI;	86	use CFPlus::UI;
		87	use CFPlus::UI::Canvas;
64	use CFPlus::UI::Inventory;	88	use CFPlus::UI::Inventory;
65	use CFPlus::UI::SpellList;	89	use CFPlus::UI::SpellList;
		90	use CFPlus::UI::MessageWindow;
66	use CFPlus::Pod;	91	use CFPlus::Pod;
67	use CFPlus::MapWidget;	92	use CFPlus::MapWidget;
68	use CFPlus::Macro;	93	use CFPlus::Macro;
69		94
70	$SIG{QUIT} = sub { Carp::cluck "QUIT" };	95	$SIG{QUIT} = sub { Carp::cluck "QUIT" };
…		…
102		127
103	our $MAP;	128	our $MAP;
104	our $MAPMAP;	129	our $MAPMAP;
105	our $MAPWIDGET;	130	our $MAPWIDGET;
106	our $BUTTONBAR;	131	our $BUTTONBAR;
107	our $LOGVIEW;
108	our $CONSOLE;
109	our $METASERVER;	132	our $METASERVER;
110	our $LOGIN_BUTTON;	133	our $LOGIN_BUTTON;
111	our $QUIT_DIALOG;	134	our $QUIT_DIALOG;
112	our $HOST_ENTRY;	135	our $HOST_ENTRY;
113	our $FULLSCREEN_ENABLE;	136	our $FULLSCREEN_ENABLE;
…		…
136		159
137	our $SDL_ACTIVE;	160	our $SDL_ACTIVE;
138	our %SDL_CB;	161	our %SDL_CB;
139		162
140	our $SDL_MIXER;	163	our $SDL_MIXER;
		164	our $MUSIC_DEFAULT = "in_a_heartbeat.ogg";
		165	our @MUSIC_WANT;
		166	our $MUSIC_START;
		167	our $MUSIC_PLAYING;
		168	our $MUSIC_PLAYER;
		169	our $MUSIC_RESUME = 30; # resume music when players less than these many seconds before
141	our @SOUNDS; # event => file mapping	170	our @SOUNDS; # event => file mapping
142	our %AUDIO_CHUNKS; # audio files	171	our %AUDIO_CHUNKS; # audio files
143		172
144	our $ALT_ENTER_MESSAGE;	173	our $ALT_ENTER_MESSAGE;
145	our $STATUSBOX;	174	our $STATUSBOX;
…		…
162	$DEBUG_STATUS->set_text ($_[0]);	191	$DEBUG_STATUS->set_text ($_[0]);
163	}	192	}
164		193
165	sub message {	194	sub message {
166	my ($para) = @_;	195	my ($para) = @_;
167		196	$MESSAGE_WINDOW->message ($para);
168	my $time = sprintf "%02d:%02d:%02d", (localtime time)[2,1,0];
169
170	$para->{markup} = "<span foreground='#ffffff'>$time</span> $para->{markup}";
171
172	$LOGVIEW->add_paragraph ($para);
173	$LOGVIEW->scroll_to_bottom;
174	}	197	}
175		198
176	sub destroy_query_dialog {	199	sub destroy_query_dialog {
177	(delete $_[0]{query_dialog})->destroy	200	(delete $_[0]{query_dialog})->destroy
178	if $_[0]{query_dialog};	201	if $_[0]{query_dialog};
179	}	202	}
180		203
		204	# FIXME: a very ugly hack to wait for stat update look below! #d#
		205	our $QUERY_TIMER; #d#
		206
181	# server query dialog	207	# server query dialog
182	sub server_query {	208	sub server_query {
183	my ($conn, $flags, $prompt) = @_;	209	my ($conn, $flags, $prompt) = @_;
		210
		211	# FIXME: a very ugly hack to wait for stat update #d#
		212	if ($prompt =~ /roll new stats/ and not $conn->{stat_change_with}) {
		213	unless ($QUERY_TIMER) {
		214	$QUERY_TIMER =
		215	Event->timer (
		216	after => 1,
		217	cb => sub {
		218	server_query ($conn, $flags, $prompt, 1);
		219	$QUERY_TIMER = undef
		220	}
		221	);
		222	return;
		223	}
		224	}
184		225
185	$conn->{query_dialog} = my $dialog = new CFPlus::UI::Toplevel	226	$conn->{query_dialog} = my $dialog = new CFPlus::UI::Toplevel
186	x => "center",	227	x => "center",
187	y => "center",	228	y => "center",
188	title => "Server Query",	229	title => "Server Query",
189	child => my $vbox = new CFPlus::UI::VBox,	230	child => my $vbox = new CFPlus::UI::VBox,
190	;	231	;
191		232
192	my @dialog = my $label = new CFPlus::UI::Label	233	my @dialog = my $label = new CFPlus::UI::Label
193	max_w => $::WIDTH * 0.4,	234	max_w => $::WIDTH * 0.8,
194	ellipsise => 0,	235	ellipsise => 0,
195	text => $prompt;	236	text => $prompt;
196		237
197	if ($flags & CS_QUERY_YESNO) {	238	if ($flags & CS_QUERY_YESNO) {
198	push @dialog, my $hbox = new CFPlus::UI::HBox;	239	push @dialog, my $hbox = new CFPlus::UI::HBox;
…		…
215	);	256	);
216		257
217	$dialog->grab_focus;	258	$dialog->grab_focus;
218		259
219	} elsif ($flags & CS_QUERY_SINGLECHAR) {	260	} elsif ($flags & CS_QUERY_SINGLECHAR) {
220	$dialog->{tooltip} = "#charcreation_focus";
221
222	if ($prompt =~ /Now choose a character|Press any key for the next race/i) {	261	if ($prompt =~ /Now choose a character|Press any key for the next race/i) {
223	$MESSAGE_WINDOW->show;	262	$dialog->{tooltip} = "#charcreation_focus";
224		263
225	unshift @dialog, new CFPlus::UI::Label	264	unshift @dialog, new CFPlus::UI::Label
226	max_w => $::WIDTH * 0.4,	265	max_w => $::WIDTH * 0.8,
227	ellipsise => 0,	266	ellipsise => 0,
228	markup => "\nOr use your keyboard and the text entry below:\n";	267	markup => "\nOr use your keyboard and the text entry below:\n";
229		268
230	unshift @dialog, my $table = new CFPlus::UI::Table;	269	unshift @dialog, my $table = new CFPlus::UI::Table;
231		270
232	$table->add (0, 0, new CFPlus::UI::Button	271	$table->add_at (0, 0, new CFPlus::UI::Button
233	text => "Next Race",	272	text => "Next Race",
234	on_activate => sub {	273	on_activate => sub {
235	$conn->send ("reply n");	274	$conn->send ("reply n");
236	destroy_query_dialog $conn;	275	destroy_query_dialog $conn;
237	0	276	0
238	},	277	},
239	);	278	);
240	$table->add (2, 0, new CFPlus::UI::Button	279	$table->add_at (2, 0, new CFPlus::UI::Button
241	text => "Accept",	280	text => "Accept",
242	on_activate => sub {	281	on_activate => sub {
243	$conn->send ("reply d");	282	$conn->send ("reply d");
244	destroy_query_dialog $conn;	283	destroy_query_dialog $conn;
245	0	284	0
246	},	285	},
247	);	286	);
248		287
		288	if ($conn->{chargen_race_description}) {
		289	unshift @dialog, new CFPlus::UI::Label
		290	max_w => $::WIDTH * 0.8,
		291	ellipsise => 0,
		292	markup => "<span foreground='#ccccff'>$conn->{chargen_race_description}</span>",
		293	;
		294	}
		295
		296	unshift @dialog, new CFPlus::UI::Face
		297	face => $conn->{player}{face},
		298	bg => [.2, .2, .2, 1],
		299	min_w => 64,
		300	min_h => 64,
		301	;
		302
		303	if ($conn->{chargen_race_title}) {
		304	unshift @dialog, new CFPlus::UI::Label
		305	allign => 1,
		306	ellipsise => 0,
		307	markup => "<span foreground='#ccccff' size='large'>Race: $conn->{chargen_race_title}</span>",
		308	;
		309	}
		310
249	unshift @dialog, new CFPlus::UI::Label	311	unshift @dialog, new CFPlus::UI::Label
250	max_w => $::WIDTH * 0.4,	312	max_w => $::WIDTH * 0.4,
251	ellipsise => 0,	313	ellipsise => 0,
252	markup => (CFPlus::Pod::section_label ui => "chargen_race"),	314	markup => (CFPlus::Pod::section_label ui => "chargen_race"),
253	;	315	;
…		…
257	$conn->send ("reply $stat");	319	$conn->send ("reply $stat");
258	destroy_query_dialog $conn;	320	destroy_query_dialog $conn;
259	return;	321	return;
260	}	322	}
261		323
262	$STATS_PAGE->show;
263	$MESSAGE_WINDOW->hide;
264
265	unshift @dialog, new CFPlus::UI::Label	324	unshift @dialog, new CFPlus::UI::Label
266	max_w => $::WIDTH * 0.4,	325	max_w => $::WIDTH * 0.4,
267	ellipsise => 0,	326	ellipsise => 0,
268	markup => "\nOr use your keyboard and the text entry below:\n";	327	markup => "\nOr use your keyboard and the text entry below:\n";
269		328
270	unshift @dialog, my $table = new CFPlus::UI::Table;	329	unshift @dialog, my $table = new CFPlus::UI::Table;
271		330
272	# left: re-roll	331	# left: re-roll
273	$table->add (0, 0, new CFPlus::UI::Button	332	$table->add_at (0, 0, new CFPlus::UI::Button
274	text => "Roll Again",	333	text => "Roll Again",
275	on_activate => sub {	334	on_activate => sub {
276	$conn->send ("reply y");	335	$conn->send ("reply y");
277	destroy_query_dialog $conn;	336	destroy_query_dialog $conn;
278	0	337	0
…		…
292	[6 => "Pow", "Power ($conn->{stat}{+CS_STAT_POW})"],	351	[6 => "Pow", "Power ($conn->{stat}{+CS_STAT_POW})"],
293	[7 => "Cha", "Charisma ($conn->{stat}{+CS_STAT_CHA})"],	352	[7 => "Cha", "Charisma ($conn->{stat}{+CS_STAT_CHA})"],
294	],	353	],
295	), 1 .. 2;	354	), 1 .. 2;
296		355
297	$table->add (2, 0, new CFPlus::UI::Button	356	$table->add_at (2, 0, new CFPlus::UI::Button
298	text => "Swap Stats",	357	text => "Swap Stats",
299	on_activate => sub {	358	on_activate => sub {
300	$conn->{stat_change_with} = $sw2->{value};	359	$conn->{stat_change_with} = $sw2->{value};
301	$conn->send ("reply $sw1->{value}");	360	$conn->send ("reply $sw1->{value}");
302	destroy_query_dialog $conn;	361	destroy_query_dialog $conn;
303	0	362	0
304	},	363	},
305	);	364	);
306	$table->add (2, 1, new CFPlus::UI::HBox children => [$sw1, $sw2]);	365	$table->add_at (2, 1, new CFPlus::UI::HBox children => [$sw1, $sw2]);
307		366
308	# right: accept	367	# right: accept
309	$table->add (4, 0, new CFPlus::UI::Button	368	$table->add_at (4, 0, new CFPlus::UI::Button
310	text => "Accept",	369	text => "Accept",
311	on_activate => sub {	370	on_activate => sub {
312	$conn->send ("reply n");	371	$conn->send ("reply n");
313	$STATS_PAGE->hide;	372	$STATS_PAGE->hide;
314	destroy_query_dialog $conn;	373	destroy_query_dialog $conn;
…		…
395	maph => $mapsize,	454	maph => $mapsize,
396		455
397	client => "cfplus $CFPlus::VERSION $] $^O",	456	client => "cfplus $CFPlus::VERSION $] $^O",
398		457
399	map_widget => $MAPWIDGET,	458	map_widget => $MAPWIDGET,
400	logview => $LOGVIEW,
401	statusbox => $STATUSBOX,	459	statusbox => $STATUSBOX,
402	map => $MAP,	460	map => $MAP,
403	mapmap => $MAPMAP,	461	mapmap => $MAPMAP,
404	query => \&server_query,	462	query => \&server_query,
		463
		464	setup_req => {
		465	smoothing => $CFG->{map_smoothing}*1,
		466	},
405		467
406	sound_play => sub {	468	sound_play => sub {
407	my ($x, $y, $soundnum, $type) = @_;	469	my ($x, $y, $soundnum, $type) = @_;
408		470
409	$SDL_MIXER	471	$SDL_MIXER
…		…
430	$LOGIN_BUTTON->set_text ("Login");	492	$LOGIN_BUTTON->set_text ("Login");
431	$SETUP_NOTEBOOK->set_current_page ($SETUP_SERVER);	493	$SETUP_NOTEBOOK->set_current_page ($SETUP_SERVER);
432	$SETUP_DIALOG->show;	494	$SETUP_DIALOG->show;
433	$PL_WINDOW->hide;	495	$PL_WINDOW->hide;
434	$SPELL_LIST->clear_spells;	496	$SPELL_LIST->clear_spells;
		497	$CFPlus::UI::ROOT->emit (stop_game => ! ! $CONN);
		498
		499	&audio_music_set ([]);
435		500
436	return unless $CONN;	501	return unless $CONN;
437		502
438	status "connection closed";	503	status "connection closed";
439		504
…		…
447	sub graphics_setup {	512	sub graphics_setup {
448	my $vbox = new CFPlus::UI::VBox;	513	my $vbox = new CFPlus::UI::VBox;
449		514
450	$vbox->add (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]);	515	$vbox->add (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]);
451		516
		517	my $row = 0;
		518
		519	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "OpenGL Info");
		520	$table->add_at (1, $row++, new CFPlus::UI::Label valign => 0, fontsize => 0.8, text => CFPlus::OpenGL::gl_vendor . ", " . CFPlus::OpenGL::gl_version,
		521	can_events => 1,
		522	tooltip => "<tt><span size='8192'>" . (CFPlus::OpenGL::gl_extensions) . "</span></tt>");
		523
		524	my $vidmode_tooltip =
		525	"<b>Video Mode.</b> The video mode to use for fullscreen (and the window size for windowed operation). "
		526	. "The format is <i>width</i> x <i>height</i> \@ <i>depth-per-channel</i> + <i>alpha-channel</i>.";
		527
452	$table->add (0, 0, new CFPlus::UI::Label valign => 0, align => 1, text => "Video Mode");	528	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Video Mode");
453	$table->add (1, 0, my $hbox = new CFPlus::UI::HBox);	529	$table->add_at (1, $row++, my $hbox = new CFPlus::UI::HBox);
454		530
		531	$hbox->add (my $mode_slider = new CFPlus::UI::Slider
455	$hbox->add (my $mode_slider = new CFPlus::UI::Slider force_w => $WIDTH * 0.1, expand => 1, range => [$CFG->{sdl_mode}, 0, $#SDL_MODES, 0, 1]);	532	force_w => $WIDTH * 0.1, expand => 1, range => [$CFG->{sdl_mode}, 0, $#SDL_MODES, 0, 1],
456	$hbox->add (my $mode_label = new CFPlus::UI::Label align => 0, valign => 0, height => 0.8, template => "9999x9999");	533	tooltip => $vidmode_tooltip);
		534	$hbox->add (my $mode_label = new CFPlus::UI::Label
		535	align => 0, valign => 0, height => 0.8, template => "9999x9999@9+9",
		536	can_events => 1, tooltip => $vidmode_tooltip);
457		537
458	$mode_slider->connect (changed => sub {	538	$mode_slider->connect (changed => sub {
459	my ($self, $value) = @_;	539	my ($self, $value) = @_;
460		540
461	$CFG->{sdl_mode} = $self->{range}[0] = $value = int $value;	541	$CFG->{sdl_mode} = $self->{range}[0] = $value = int $value;
462	$mode_label->set_text (sprintf "%dx%d", @{$SDL_MODES[$value]});	542	$mode_label->set_text (sprintf '%dx%d@%d+%d', @{$SDL_MODES[$value]});
463	});	543	});
464	$mode_slider->emit (changed => $mode_slider->{range}[0]);	544	$mode_slider->emit (changed => $mode_slider->{range}[0]);
465		545
466	my $row = 1;
467
468	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fullscreen");	546	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fullscreen");
469	$table->add (1, $row++, $FULLSCREEN_ENABLE = new CFPlus::UI::CheckBox	547	$table->add_at (1, $row++, $FULLSCREEN_ENABLE = new CFPlus::UI::CheckBox
470	state => $CFG->{fullscreen},	548	state => $CFG->{fullscreen},
471	tooltip => "Bring the client into fullscreen mode.",	549	tooltip => "Bring the client into fullscreen mode.",
472	on_changed => sub { my ($self, $value) = @_; $CFG->{fullscreen} = $value; 0 }	550	on_changed => sub { my ($self, $value) = @_; $CFG->{fullscreen} = $value; 0 }
473	);	551	);
474		552
475	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fast & Ugly");	553	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fast & Ugly");
476	$table->add (1, $row++, new CFPlus::UI::CheckBox	554	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
477	state => $CFG->{fast},	555	state => $CFG->{fast},
478	tooltip => "Lower the visual quality considerably to speed up rendering.",	556	tooltip => "Lower the visual quality considerably to speed up rendering.",
479	on_changed => sub { my ($self, $value) = @_; $CFG->{fast} = $value; 0 }	557	on_changed => sub { my ($self, $value) = @_; $CFG->{fast} = $value; 0 }
480	);	558	);
481		559
		560	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "GUI Fontsize");
		561	$table->add_at (1, $row++, new CFPlus::UI::Slider
		562	range => [$CFG->{gui_fontsize}, 0.5, 2, 0, 0.1],
		563	tooltip => "The base font size used by most GUI elements that do not have their own setting.",
		564	on_changed => sub { $CFG->{gui_fontsize} = $_[1]; 0 },
		565	);
		566
		567	$table->add_at (1, $row++, new CFPlus::UI::Button
		568	expand => 1, align => 0, text => "Apply",
		569	tooltip => "Apply the video settings above.",
		570	on_activate => sub {
		571	video_shutdown ();
		572	video_init ();
		573	0
		574	}
		575	);
		576
482	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Map Scale");	577	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Map Scale");
483	$table->add (1, $row++, new CFPlus::UI::Slider	578	$table->add_at (1, $row++, new CFPlus::UI::Slider
484	range => [(log $CFG->{map_scale}) / (log 2), -3, 1, 0, 1],	579	range => [(log $CFG->{map_scale}) / (log 2), -3, 1, 0, 1],
485	tooltip => "Enlarge or shrink the displayed map. Changes are instant.",	580	tooltip => "Enlarge or shrink the displayed map. Changes are instant.",
486	on_changed => sub { my ($self, $value) = @_; $CFG->{map_scale} = 2 ** $value; 0 }	581	on_changed => sub { my ($self, $value) = @_; $CFG->{map_scale} = 2 ** $value; 0 }
487	);	582	);
488		583
		584	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Map Smoothing");
		585	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
		586	state => $CFG->{map_smoothing},
		587	tooltip => "<b>Map Smoothing</b> tries to make tile borders less square. "
		588	. "This increases load on the graphics subsystem and works only with 2.x servers. "
		589	. "Changes take effect at next connection only.",
		590	on_changed => sub { my ($self, $value) = @_; $CFG->{map_smoothing} = $value; 0 }
		591	);
		592
489	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fog of War");	593	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fog of War");
490	$table->add (1, $row++, new CFPlus::UI::CheckBox	594	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
491	state => $CFG->{fow_enable},	595	state => $CFG->{fow_enable},
492	tooltip => "<b>Fog-of-War</b> marks areas that cannot be seen by the player. Changes are instant.",	596	tooltip => "<b>Fog-of-War</b> marks areas that cannot be seen by the player. Changes are instant.",
493	on_changed => sub { my ($self, $value) = @_; $CFG->{fow_enable} = $value; 0 }	597	on_changed => sub { my ($self, $value) = @_; $CFG->{fow_enable} = $value; 0 }
494	);	598	);
495		599
496	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "FoW Intensity");	600	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "FoW Intensity");
497	$table->add (1, $row++, new CFPlus::UI::Slider	601	$table->add_at (1, $row++, new CFPlus::UI::Slider
498	range => [$CFG->{fow_intensity}, 0, 1, 0, 1 / 256],	602	range => [$CFG->{fow_intensity}, 0, 1, 0, 1 / 256],
499	tooltip => "<b>Fog of War Lightness.</b> The higher the intensity, the lighter the Fog-of-War color. Changes are instant.",	603	tooltip => "<b>Fog of War Lightness.</b> The higher the intensity, the lighter the Fog-of-War color. Changes are instant.",
500	on_changed => sub { my ($self, $value) = @_; $CFG->{fow_intensity} = $value; 0 }	604	on_changed => sub { my ($self, $value) = @_; $CFG->{fow_intensity} = $value; 0 }
501	);	605	);
502		606
503	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "FoW Smooth");
504	$table->add (1, $row++, new CFPlus::UI::CheckBox
505	state => $CFG->{fow_smooth},
506	tooltip => "Smooth the Fog-of-War a bit to make it more realistic. Changes are instant.",
507	on_changed => sub {
508	my ($self, $value) = @_;
509	$CFG->{fow_smooth} = $value;
510	status "Fog of War smoothing requires OpenGL 1.2 or higher" if $CFPlus::OpenGL::GL_VERSION < 1.2;
511	0
512	}
513	);
514
515	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "GUI Fontsize");
516	$table->add (1, $row++, new CFPlus::UI::Slider
517	range => [$CFG->{gui_fontsize}, 0.5, 2, 0, 0.1],
518	tooltip => "The base font size used by most GUI elements that do not have their own setting.",
519	on_changed => sub { $CFG->{gui_fontsize} = $_[1]; 0 },
520	);
521
522	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Message Fontsize");	607	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Message Fontsize");
523	$table->add (1, $row++, new CFPlus::UI::Slider	608	$table->add_at (1, $row++, new CFPlus::UI::Slider
524	range => [$CFG->{log_fontsize}, 0.5, 2, 0, 0.1],	609	range => [$CFG->{log_fontsize}, 0.5, 2, 0, 0.1],
525	tooltip => "The font size used by the <b>message/server log</b> window only. Changes are instant.",	610	tooltip => "The font size used by the <b>message/server log</b> window only. Changes are instant.",
526	on_changed => sub { $LOGVIEW->set_fontsize ($CFG->{log_fontsize} = $_[1]); 0 },	611	on_changed => sub { $MESSAGE_WINDOW->set_fontsize ($CFG->{log_fontsize} = $_[1]); 0 },
527	);	612	);
528		613
529	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Gauge fontsize");	614	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Gauge fontsize");
530	$table->add (1, $row++, new CFPlus::UI::Slider	615	$table->add_at (1, $row++, new CFPlus::UI::Slider
531	range => [$CFG->{gauge_fontsize}, 0.5, 2, 0, 0.1],	616	range => [$CFG->{gauge_fontsize}, 0.5, 2, 0, 0.1],
532	tooltip => "Adjusts the fontsize of the gauges at the bottom right. Changes are instant.",	617	tooltip => "Adjusts the fontsize of the gauges at the bottom right. Changes are instant.",
533	on_changed => sub {	618	on_changed => sub {
534	$CFG->{gauge_fontsize} = $_[1];	619	$CFG->{gauge_fontsize} = $_[1];
535	&set_gauge_window_fontsize;	620	&set_gauge_window_fontsize;
536	0	621	0
537	}	622	}
538	);	623	);
539		624
540	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Gauge size");	625	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Gauge size");
541	$table->add (1, $row++, new CFPlus::UI::Slider	626	$table->add_at (1, $row++, new CFPlus::UI::Slider
542	range => [$CFG->{gauge_size}, 0.2, 0.8],	627	range => [$CFG->{gauge_size}, 0.2, 0.8],
543	tooltip => "Adjust the size of the stats gauges at the bottom right. Changes are instant.",	628	tooltip => "Adjust the size of the stats gauges at the bottom right. Changes are instant.",
544	on_changed => sub {	629	on_changed => sub {
545	$CFG->{gauge_size} = $_[1];	630	$CFG->{gauge_size} = $_[1];
546	$GAUGES->{win}->set_size ($WIDTH, int $HEIGHT * $CFG->{gauge_size});	631	$GAUGES->{win}->set_size ($WIDTH, int $HEIGHT * $CFG->{gauge_size});
547	0	632	0
548	}	633	}
549	);	634	);
550		635
551	$table->add (1, $row++, new CFPlus::UI::Button
552	expand => 1, align => 0, text => "Apply",
553	tooltip => "Apply the video settings",
554	on_activate => sub {
555	video_shutdown ();
556	video_init ();
557	0
558	}
559	);
560
561	$vbox	636	$vbox
562	}	637	}
563		638
564	sub audio_setup {	639	sub audio_setup {
565	my $vbox = new CFPlus::UI::VBox;	640	my $vbox = new CFPlus::UI::VBox;
566		641
567	$vbox->add (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]);	642	$vbox->add (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]);
568		643
569	my $row = 0;	644	my $row = 0;
570		645
571	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Audio Enable");	646	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Audio Enable");
572	$table->add (1, $row++, new CFPlus::UI::CheckBox	647	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
573	state => $CFG->{audio_enable},	648	state => $CFG->{audio_enable},
574	tooltip => "<b>Master Audio Enable.</b> If enabled, sound effects and music will be played. If disabled, no audio will be used and the soundcard will not be opened.",	649	tooltip => "<b>Master Audio Enable.</b> If enabled, sound effects and music will be played. If disabled, no audio will be used and the soundcard will not be opened.",
575	on_changed => sub { $CFG->{audio_enable} = $_[1]; 0 }	650	on_changed => sub { $CFG->{audio_enable} = $_[1]; 0 }
576	);	651	);
577	# $table->add (0, 9, new CFPlus::UI::Label valign => 0, align => 1, text => "Effects Volume");	652	# $table->add_at (0, 9, new CFPlus::UI::Label valign => 0, align => 1, text => "Effects Volume");
578	# $table->add (1, 8, new CFPlus::UI::Slider range => [$CFG->{effects_volume}, 0, 128, 1], on_changed => sub {	653	# $table->add_at (1, 8, new CFPlus::UI::Slider range => [$CFG->{effects_volume}, 0, 128, 1], on_changed => sub {
579	# $CFG->{effects_volume} = $_[1];	654	# $CFG->{effects_volume} = $_[1];
580	# });	655	# });
581	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Background Music");	656	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Background Music");
582	$table->add (1, $row++, my $hbox = new CFPlus::UI::HBox);	657	$table->add_at (1, $row++, my $hbox = new CFPlus::UI::HBox);
583	$hbox->add (new CFPlus::UI::CheckBox	658	$hbox->add (new CFPlus::UI::CheckBox
584	expand => 1, state => $CFG->{bgm_enable},	659	expand => 1, state => $CFG->{bgm_enable},
585	tooltip => "If enabled, playing of background music is enabled. If disabled, no background music will be played.",	660	tooltip => "If enabled, playing of background music is enabled. If disabled, no background music will be played.",
586	on_changed => sub { $CFG->{bgm_enable} = $_[1]; 0 }	661	on_changed => sub { $CFG->{bgm_enable} = $_[1]; 0 }
587	);	662	);
…		…
589	expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0, 1/128],	664	expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0, 1/128],
590	tooltip => "The volume of the background music. Changes are instant.",	665	tooltip => "The volume of the background music. Changes are instant.",
591	on_changed => sub { $CFG->{bgm_volume} = $_[1]; CFPlus::MixMusic::volume $_[1] * 128; 0 }	666	on_changed => sub { $CFG->{bgm_volume} = $_[1]; CFPlus::MixMusic::volume $_[1] * 128; 0 }
592	);	667	);
593		668
594	$table->add (1, $row++, new CFPlus::UI::Button	669	$table->add_at (1, $row++, new CFPlus::UI::Button
595	expand => 1, align => 0, text => "Apply",	670	expand => 1, align => 0, text => "Apply",
596	tooltip => "Apply the audio settings",	671	tooltip => "Apply the audio settings",
597	on_activate => sub {	672	on_activate => sub {
598	audio_shutdown ();	673	audio_shutdown ();
599	audio_init ();	674	audio_init ();
…		…
658	}	733	}
659		734
660	sub debug_setup {	735	sub debug_setup {
661	my $table = new CFPlus::UI::Table;	736	my $table = new CFPlus::UI::Table;
662		737
663	$table->add (0, 0, new CFPlus::UI::Label text => "Widget Borders");	738	$table->add_at (0, 0, new CFPlus::UI::Label text => "Widget Borders");
664	$table->add (1, 0, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 1; 0 });	739	$table->add_at (1, 0, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 1; 0 });
665	$table->add (0, 1, new CFPlus::UI::Label text => "Tooltip Widget Info");	740	$table->add_at (0, 1, new CFPlus::UI::Label text => "Tooltip Widget Info");
666	$table->add (1, 1, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 2; 0 });	741	$table->add_at (1, 1, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 2; 0 });
667	$table->add (0, 2, new CFPlus::UI::Label text => "Show FPS");	742	$table->add_at (0, 2, new CFPlus::UI::Label text => "Show FPS");
668	$table->add (1, 2, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 4; 0 });	743	$table->add_at (1, 2, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 4; 0 });
669	$table->add (0, 3, new CFPlus::UI::Label text => "Suppress Tooltips");	744	$table->add_at (0, 3, new CFPlus::UI::Label text => "Suppress Tooltips");
670	$table->add (1, 3, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 8; 0 });	745	$table->add_at (1, 3, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 8; 0 });
671	$table->add (0, 4, new CFPlus::UI::Button text => "die on click(tm)", on_activate => sub { die "violator" } );	746	$table->add_at (0, 4, new CFPlus::UI::Button text => "die on click(tm)", on_activate => sub { &CFPlus::debug() } );
672		747
673	my @default_smooth = (0.05, 0.13, 0.05, 0.13, 0.30, 0.13, 0.05, 0.13, 0.05);
674
675	for my $x (0..2) {
676	for my $y (0 .. 2) {
677	$table->add ($x + 3, $y,
678	new CFPlus::UI::Entry
679	text => $default_smooth[$x * 3 + $y],
680	on_changed => sub { $MAP->{smooth_matrix}[$x * 3 + $y] = $_[1] if $MAP; 0 },
681	);
682	}
683	}
684
685	$table->add (0, 5, new CFPlus::UI::TextEdit text => "line1\0152\0153");#d#	748	$table->add_at (0, 5, new CFPlus::UI::TextEdit text => "line1\0152\0153");#d#
		749
		750	$table->add_at (7,7, my $t = new CFPlus::UI::Table expand => 0);
		751	$t->add_at (0,0, new CFPlus::UI::Label text => "a a a a", rowspan => 1, colspan => 2);
		752	$t->add_at (2,0, new CFPlus::UI::Label text => "b\nb", rowspan => 2, colspan => 1);
		753	$t->add_at (1,2, new CFPlus::UI::Label text => "c c c c", rowspan => 1, colspan => 2);
		754	$t->add_at (0,1, new CFPlus::UI::Label text => "d\nd", rowspan => 2, colspan => 1);
		755	$t->add_at (1,1, new CFPlus::UI::Label text => "e");
		756
		757	$table->add_at (7, 6, my $c = new CFPlus::UI::Canvas);
		758
		759	$c->add_items ({
		760	type => "line_loop",
		761	color => [0, 1, 0],
		762	width => 9,
		763	coord_mode => "abs",
		764	coord => [[10, 5], [5, 50], [20, 5], [5, 60]],
		765	});
		766
		767	$c->add_items ({
		768	type => "lines",
		769	color => [1, 1, 0],
		770	width => 2,
		771	coord_mode => "rel",
		772	coord => [[0,0], [1,1], [1,0], [0,1]],
		773	});
		774
		775	$c->add_items ({
		776	type => "polygon",
		777	color => [0, 0.43, 0],
		778	width => 2,
		779	coord_mode => "rel",
		780	coord => [[0,0.2], [1,.4], [1,.6], [0,.8]],
		781	});
686		782
687	$table	783	$table
688	}	784	}
689		785
690	sub stats_window {	786	sub stats_window {
…		…
738	[2, 4, st_spd => "Spd", 10.54],	834	[2, 4, st_spd => "Spd", 10.54],
739	[2, 5, st_wspd => "WSp", 10.54],	835	[2, 5, st_wspd => "WSp", 10.54],
740	) {	836	) {
741	my ($col, $row, $id, $label, $template) = @$_;	837	my ($col, $row, $id, $label, $template) = @$_;
742		838
743	$tbl->add ($col , $row, $STATWIDS->{$id} = new CFPlus::UI::Label	839	$tbl->add_at ($col , $row, $STATWIDS->{$id} = new CFPlus::UI::Label
744	font => $FONT_FIXED, can_hover => 1, can_events => 1, valign => 0,	840	font => $FONT_FIXED, can_hover => 1, can_events => 1, valign => 0,
745	align => +1, template => $template, tooltip => "#stat_$label");	841	align => +1, template => $template, tooltip => "#stat_$label");
746	$tbl->add ($col + 1, $row, $STATWIDS->{"$id\_lbl"} = new CFPlus::UI::Label	842	$tbl->add_at ($col + 1, $row, $STATWIDS->{"$id\_lbl"} = new CFPlus::UI::Label
747	font => $FONT_FIXED, can_hover => 1, can_events => 1, fg => $color2, valign => 0,	843	font => $FONT_FIXED, can_hover => 1, can_events => 1, fg => $color2, valign => 0,
748	align => -1, text => $label, tooltip => "#stat_$label");	844	align => -1, text => $label, tooltip => "#stat_$label");
749	}	845	}
750		846
751	$vb->add (new CFPlus::UI::FancyFrame	847	$vb->add (new CFPlus::UI::FancyFrame
…		…
792	cold => ["Cold",	888	cold => ["Cold",
793	"<b>Cold</b> (this is your resistance against cold spells like icestorm, snowstorm, ...)"],	889	"<b>Cold</b> (this is your resistance against cold spells like icestorm, snowstorm, ...)"],
794	ghit => ["Ghost hit",	890	ghit => ["Ghost hit",
795	"<b>Ghost hit</b> (special attack used by ghosts and ghost-like beings)"],	891	"<b>Ghost hit</b> (special attack used by ghosts and ghost-like beings)"],
796	);	892	);
		893
797	for (qw/slow holyw conf fire depl magic	894	for (qw/slow holyw conf fire depl magic
798	drain acid pois para deat phys	895	drain acid pois para deat phys
799	blind fear tund elec cold ghit/)	896	blind fear tund elec cold ghit/)
800	{	897	{
801	$tbl2->add ($col, $row,	898	$tbl2->add_at ($col, $row,
802	$STATWIDS->{"res_$_"} =	899	$STATWIDS->{"res_$_"} =
803	new CFPlus::UI::Label	900	new CFPlus::UI::Label
804	font => $FONT_FIXED,	901	font => $FONT_FIXED,
805	template => "-100%",	902	template => "-100%",
806	align => +1,	903	align => +1,
807	valign => 0,	904	valign => 0,
808	can_events => 1,	905	can_events => 1,
809	can_hover => 1,	906	can_hover => 1,
810	tooltip => $resist_names{$_}->[1],	907	tooltip => $resist_names{$_}->[1],
811	);	908	);
812	$tbl2->add ($col + 1, $row, new CFPlus::UI::Image	909	$tbl2->add_at ($col + 1, $row, new CFPlus::UI::Image
813	font => $FONT_FIXED,	910	font => $FONT_FIXED,
814	can_hover => 1,	911	can_hover => 1,
815	can_events => 1,	912	can_events => 1,
816	path => "ui/resist/resist_$_.png",	913	path => "ui/resist/resist_$_.png",
817	tooltip => $resist_names{$_}->[1],	914	tooltip => $resist_names{$_}->[1],
818	);	915	);
819	$tbl2->add ($col + 2, $row, new CFPlus::UI::Label	916	$tbl2->add_at ($col + 2, $row, new CFPlus::UI::Label
820	text => $resist_names{$_}->[0],	917	text => $resist_names{$_}->[0],
821	font => $FONT_FIXED,	918	font => $FONT_FIXED,
822	can_hover => 1,	919	can_hover => 1,
823	can_events => 1,	920	can_events => 1,
824	tooltip => $resist_names{$_}->[1],	921	tooltip => $resist_names{$_}->[1],
…		…
857	return if $METASERVER_ATIME > time;	954	return if $METASERVER_ATIME > time;
858	$METASERVER_ATIME = time + 60;	955	$METASERVER_ATIME = time + 60;
859		956
860	my $table = $METASERVER->{table};	957	my $table = $METASERVER->{table};
861	$table->clear;	958	$table->clear;
862	$table->add (0, 0, my $label = new CFPlus::UI::Label max_w => $WIDTH * 0.8, text => "fetching server list...");	959	$table->add_at (0, 0, my $label = new CFPlus::UI::Label max_w => $WIDTH * 0.8, text => "fetching server list...");
863		960
864	my $ok = 0;	961	my $ok = 0;
865		962
866	CFPlus::background {	963	CFPlus::background {
867	my $ua = CFPlus::lwp_useragent;	964	my $ua = CFPlus::lwp_useragent;
…		…
878	"The time this server has been running without being restarted.",	975	"The time this server has been running without being restarted.",
879	"The server software version - a '+' indicates a Crossfire+ server.",	976	"The server software version - a '+' indicates a Crossfire+ server.",
880	"Short information about this server provided by its admins.",	977	"Short information about this server provided by its admins.",
881	);	978	);
882	my @col = qw(#Users Host Uptime Version Description);	979	my @col = qw(#Users Host Uptime Version Description);
883	$table->add ($_, 0, new CFPlus::UI::Label	980	$table->add_at ($_, 0, new CFPlus::UI::Label
884	can_hover => 1, can_events => 1,	981	can_hover => 1, can_events => 1,
885	align => 0, fg => [1, 1, 0],	982	align => 0, fg => [1, 1, 0],
886	text => $col[$_], tooltip => $tip[$_])	983	text => $col[$_], tooltip => $tip[$_])
887	for 0 .. $#col;	984	for 0 .. $#col;
888		985
889	my @align = qw(1 0 1 1 -1);	986	my @align = qw(1 0 1 1 -1);
890		987
891	my $y = 0;	988	my $y = 0;
892	for my $m (
893	sort {
894	$b->{version} <=> $a->{version}
895	or $b->{users} <=> $a->{users}
896	}
897	@{ $msg->{servers} }	989	for my $m (@{ $msg->{servers} }) {
898	) {
899	my ($ip, $last, $host, $users, $version, $desc, $ibytes, $obytes, $uptime) =	990	my ($ip, $last, $host, $users, $version, $desc, $ibytes, $obytes, $uptime, $highlight) =
900	@$m{qw(ip age hostname users version description ibytes obytes uptime)};	991	@$m{qw(ip age hostname users version description ibytes obytes uptime highlight)};
901		992
902	for ($desc) {	993	for ($desc) {
903	s/<br>/\n/gi;	994	s/<br>/\n/gi;
904	s/<li>/\n· /gi;	995	s/<li>/\n· /gi;
905	s/<.*?>//sgi;	996	s/<.*?>//sgi;
…		…
916		1007
917	$m = [$users, $host, $uptime, $version, $desc];	1008	$m = [$users, $host, $uptime, $version, $desc];
918		1009
919	$y++;	1010	$y++;
920		1011
921	$table->add (scalar @$m, $y, new CFPlus::UI::VBox children => [	1012	$table->add_at (scalar @$m, $y, new CFPlus::UI::VBox children => [
922	(new CFPlus::UI::Button	1013	(new CFPlus::UI::Button
923	text => "Use",	1014	text => "Use",
924	tooltip => "Put this server into the <b>Host:Port</b> field",	1015	tooltip => "Put this server into the <b>Host:Port</b> field",
925	on_activate => sub {	1016	on_activate => sub {
926	$HOST_ENTRY->set_text ($CFG->{profile}{default}{host} = $host);	1017	$HOST_ENTRY->set_text ($CFG->{profile}{default}{host} = $host);
…		…
929	},	1020	},
930	),	1021	),
931	(new CFPlus::UI::Empty expand => 1),	1022	(new CFPlus::UI::Empty expand => 1),
932	]);	1023	]);
933		1024
934	$table->add ($_, $y, new CFPlus::UI::Label	1025	$table->add_at ($_, $y, new CFPlus::UI::Label
935	max_w => $::WIDTH * 0.4,	1026	max_w => $::WIDTH * 0.4,
936	ellipsise => 0,	1027	ellipsise => 0,
937	align => $align[$_],	1028	align => $align[$_],
938	text => $m->[$_],	1029	text => $m->[$_],
939	tooltip => $tip[$_],	1030	tooltip => $tip[$_],
940	fg => ($m->[3] =~ /\+$/ ? [1, 1, 1] : [.7, .7, .7]),	1031	fg => ($highlight ? [1, 1, 1] : [.7, .7, .7]),
941	can_hover => 1,	1032	can_hover => 1,
942	can_events => 1,	1033	can_events => 1,
943	fontsize => 0.8)	1034	fontsize => 0.8)
944	for 0 .. $#$m;	1035	for 0 .. $#$m;
945	}	1036	}
…		…
980		1071
981	$vbox->add (new CFPlus::UI::FancyFrame	1072	$vbox->add (new CFPlus::UI::FancyFrame
982	label => "Connection Settings",	1073	label => "Connection Settings",
983	child => (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]),	1074	child => (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]),
984	);	1075	);
985	$table->add (0, 2, new CFPlus::UI::Label valign => 0, align => 1, text => "Host:Port");	1076	$table->add_at (0, 2, new CFPlus::UI::Label valign => 0, align => 1, text => "Host:Port");
986		1077
987	{	1078	{
988	$table->add (1, 2, my $vbox = new CFPlus::UI::VBox);	1079	$table->add_at (1, 2, my $vbox = new CFPlus::UI::VBox);
989		1080
990	$vbox->add (	1081	$vbox->add (
991	$HOST_ENTRY = new CFPlus::UI::Entry	1082	$HOST_ENTRY = new CFPlus::UI::Entry
992	expand => 1,	1083	expand => 1,
993	text => $CFG->{profile}{default}{host},	1084	text => $CFG->{profile}{default}{host},
…		…
1007	on_activate => sub { $METASERVER->toggle_visibility; 0 },	1098	on_activate => sub { $METASERVER->toggle_visibility; 0 },
1008	on_visibility_change => sub { $METASERVER->hide unless $_[1]; 0 },	1099	on_visibility_change => sub { $METASERVER->hide unless $_[1]; 0 },
1009	);	1100	);
1010	}	1101	}
1011		1102
1012	$table->add (0, 4, new CFPlus::UI::Label valign => 0, align => 1, text => "Username");	1103	$table->add_at (0, 4, new CFPlus::UI::Label valign => 0, align => 1, text => "Username");
1013	$table->add (1, 4, new CFPlus::UI::Entry	1104	$table->add_at (1, 4, new CFPlus::UI::Entry
1014	text => $CFG->{profile}{default}{user},	1105	text => $CFG->{profile}{default}{user},
1015	tooltip => "The name of your character on the server",	1106	tooltip => "The name of your character on the server",
1016	on_changed => sub { my ($self, $value) = @_; $CFG->{profile}{default}{user} = $value }	1107	on_changed => sub { my ($self, $value) = @_; $CFG->{profile}{default}{user} = $value }
1017	);	1108	);
1018		1109
1019	$table->add (0, 5, new CFPlus::UI::Label valign => 0, align => 1, text => "Password");	1110	$table->add_at (0, 5, new CFPlus::UI::Label valign => 0, align => 1, text => "Password");
1020	$table->add (1, 5, new CFPlus::UI::Entry	1111	$table->add_at (1, 5, new CFPlus::UI::Entry
1021	text => $CFG->{profile}{default}{password},	1112	text => $CFG->{profile}{default}{password},
1022	hidden => 1,	1113	hidden => 1,
1023	tooltip => "The password for your character",	1114	tooltip => "The password for your character",
1024	on_changed => sub { my ($self, $value) = @_; $CFG->{profile}{default}{password} = $value }	1115	on_changed => sub { my ($self, $value) = @_; $CFG->{profile}{default}{password} = $value }
1025	);	1116	);
1026		1117
1027	$table->add (0, 7, new CFPlus::UI::Label valign => 0, align => 1, text => "Map Size");	1118	$table->add_at (0, 7, new CFPlus::UI::Label valign => 0, align => 1, text => "Map Size");
1028	$table->add (1, 7, new CFPlus::UI::Slider	1119	$table->add_at (1, 7, new CFPlus::UI::Slider
1029	force_w => 100,	1120	force_w => 100,
1030	range => [$CFG->{mapsize}, 10, 100, 0, 1],	1121	range => [$CFG->{mapsize}, 10, 100, 0, 1],
1031	tooltip => "This is the size of the portion of the map update the server sends you. "	1122	tooltip => "This is the size of the portion of the map update the server sends you. "
1032	. "If you set this to a high value you will be able to see further, "	1123	. "If you set this to a high value you will be able to see further, "
1033	. "but you also increase bandwidth requirements and latency. "	1124	. "but you also increase bandwidth requirements and latency. "
1034	. "This option is only used once at log-in.",	1125	. "This option is only used once at log-in.",
1035	on_changed => sub { my ($self, $value) = @_; $CFG->{mapsize} = $self->{range}[0] = $value = int $value; 0 },	1126	on_changed => sub { my ($self, $value) = @_; $CFG->{mapsize} = $self->{range}[0] = $value = int $value; 0 },
1036	);	1127	);
1037		1128
1038	$table->add (0, 8, new CFPlus::UI::Label valign => 0, align => 1, text => "Face Prefetch");	1129	$table->add_at (0, 8, new CFPlus::UI::Label valign => 0, align => 1, text => "Face Prefetch");
1039	$table->add (1, 8, new CFPlus::UI::CheckBox	1130	$table->add_at (1, 8, new CFPlus::UI::CheckBox
1040	state => $CFG->{face_prefetch},	1131	state => $CFG->{face_prefetch},
1041	tooltip => "<b>Background Image Prefetch</b>\n\n"	1132	tooltip => "<b>Background Image Prefetch</b>\n\n"
1042	. "If enabled, the client automatically pre-fetches images from the server. "	1133	. "If enabled, the client automatically pre-fetches images from the server. "
1043	. "This might increase or create lag, but increases the chances "	1134	. "This might increase or create lag, but increases the chances "
1044	. "of faces being ready for display when you encounter them. "	1135	. "of faces being ready for display when you encounter them. "
…		…
1046	. "so only set it if you really need to prefetch images. "	1137	. "so only set it if you really need to prefetch images. "
1047	. "This option can be set and unset any time.",	1138	. "This option can be set and unset any time.",
1048	on_changed => sub { $CFG->{face_prefetch} = $_[1]; 0 },	1139	on_changed => sub { $CFG->{face_prefetch} = $_[1]; 0 },
1049	);	1140	);
1050		1141
		1142	$table->add_at (0, 9, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Rate");
		1143	$table->add_at (1, 9, new CFPlus::UI::Entry
		1144	text => $CFG->{output_rate},
		1145	tooltip => "The approximate bandwidth in bytes per second that the server should not exceed "
		1146	. "when sending images, to ensure interactiveness. When 0 or unset, the server "
		1147	. "default will be used, which is usually around 100kb/s.",
		1148	on_changed => sub { $CFG->{output_rate} = $_[1]; 0 },
		1149	);
		1150
1051	$table->add (0, 9, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Count");	1151	$table->add_at (0, 10, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Count");
1052	$table->add (1, 9, new CFPlus::UI::Entry	1152	$table->add_at (1, 10, new CFPlus::UI::Entry
1053	text => $CFG->{output_count},	1153	text => $CFG->{output_count},
1054	tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.",	1154	tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.",
1055	on_changed => sub { $CFG->{output_count} = $_[1]; 0 },	1155	on_changed => sub { $CFG->{output_count} = $_[1]; 0 },
1056	);	1156	);
1057		1157
1058	$table->add (0, 10, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Sync");	1158	$table->add_at (0, 11, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Sync");
1059	$table->add (1, 10, new CFPlus::UI::Entry	1159	$table->add_at (1, 11, new CFPlus::UI::Entry
1060	text => $CFG->{output_sync},	1160	text => $CFG->{output_sync},
1061	tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.",	1161	tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.",
1062	on_changed => sub { $CFG->{output_sync} = $_[1]; 0 },	1162	on_changed => sub { $CFG->{output_sync} = $_[1]; 0 },
1063	);	1163	);
1064		1164
1065	$table->add (1, 11, $LOGIN_BUTTON = new CFPlus::UI::Button	1165	$table->add_at (1, 12, $LOGIN_BUTTON = new CFPlus::UI::Button
1066	expand => 1,	1166	expand => 1,
1067	align => 0,	1167	align => 0,
1068	text => "Login",	1168	text => "Login",
1069	on_activate => sub {	1169	on_activate => sub {
1070	$CONN ? stop_game	1170	$CONN ? stop_game
1071	: start_game;	1171	: start_game;
1072	0	1172	0
1073	},	1173	},
1074	);	1174	);
1075		1175
		1176	$vbox->add (new CFPlus::UI::FancyFrame
		1177	label => "Server Info",
		1178	child => ($SERVER_INFO = new CFPlus::UI::Label ellipsise => 0),
		1179	);
		1180
		1181	$vbox
		1182	}
		1183
		1184	sub client_setup {
		1185	my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1];
		1186
		1187	my $row = 0;
		1188
1076	$table->add (0, 12, new CFPlus::UI::Label valign => 0, align => 1, text => "Chat Command");	1189	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Chat Command");
1077	$table->add (1, 12, my $saycmd = new CFPlus::UI::Entry	1190	$table->add_at (1, $row++, my $saycmd = new CFPlus::UI::Entry
1078	text => $CFG->{say_command},	1191	text => $CFG->{say_command},
1079	tooltip => "This is the command that will be used if you write a line in the message window entry or press <b>\"</b> in the map window. "	1192	tooltip => "This is the command that will be used if you write a line in the message window entry or press <b>\"</b> in the map window. "
1080	. "Usually you want to enter something like 'say' or 'shout' or 'gsay' here. "	1193	. "Usually you want to enter something like 'say' or 'shout' or 'gsay' here. "
1081	. "But you could also set it to <b>tell <i>playername</i></b> to only chat with that user.",	1194	. "But you could also set it to <b>tell <i>playername</i></b> to only chat with that user.",
1082	on_changed => sub {	1195	on_changed => sub {
1083	my ($self, $value) = @_;	1196	my ($self, $value) = @_;
1084	$CFG->{say_command} = $value;	1197	$CFG->{say_command} = $value;
1085	0	1198	0
1086	}	1199	}
1087	);	1200	);
1088		1201
1089	$table->add (0, 13, new CFPlus::UI::Label valign => 0, align => 1, text => "Tip of the day");	1202	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Tip of the day");
1090	$table->add (1, 13, my $saycmd = new CFPlus::UI::CheckBox	1203	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
1091	state => $CFG->{show_tips},	1204	state => $CFG->{show_tips},
1092	tooltip => "Show the <b>Tip of the day</b> window at startup?",	1205	tooltip => "Show the <b>Tip of the day</b> window at startup?",
1093	on_changed => sub {	1206	on_changed => sub {
1094	my ($self, $value) = @_;	1207	my ($self, $value) = @_;
1095	$CFG->{show_tips} = $value;	1208	$CFG->{show_tips} = $value;
1096	0	1209	0
1097	}	1210	}
1098	);	1211	);
1099		1212
1100	$vbox->add (new CFPlus::UI::FancyFrame	1213	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Messages Window Size");
1101	label => "Server Info",	1214	$table->add_at (1, $row++, my $saycmd = new CFPlus::UI::Entry
1102	child => ($SERVER_INFO = new CFPlus::UI::Label ellipsise => 0),	1215	text => $CFG->{logview_max_par},
1103	);	1216	tooltip => "This is maximum number of messages remembered in the <b>Messages</b> window. If the server "
1104		1217	. "sends more messages than this number, older messages get removed to save memory and "
1105	$vbox	1218	. "computing time. A value of <b>0</b> disables this feature, but that is not recommended.",
1106	}
1107
1108	sub message_window {
1109	my $window = new CFPlus::UI::Toplevel
1110	name => "message_window",
1111	title => "Messages",
1112	border_bg => [1, 1, 1, 1],
1113	x => "max",
1114	y => 0,
1115	force_w => $::WIDTH * 0.4,
1116	force_h => $::HEIGHT * 0.5,
1117	child => (my $vbox = new CFPlus::UI::VBox),
1118	has_close_button => 1;
1119
1120	$vbox->add ($LOGVIEW);
1121
1122	$vbox->add (my $input = new CFPlus::UI::Entry
1123	tooltip => "<b>Chat Box</b>. If you enter a text and press return/enter here, the current <i>communication command</i> "
1124	. "from the client setup will be prepended (e.g. <b>shout</b>, <b>chat</b>...). "
1125	. "If you prepend a slash (/), you will submit a command instead (similar to IRC). "
1126	. "A better way to submit commands (and the occasional chat command) is often the map command completer.",
1127	on_focus_in => sub {	1219	on_changed => sub {
1128	my ($input, $prev_focus) = @_;	1220	my ($self, $value) = @_;
1129		1221	$MESSAGE_WINDOW->set_max_para ($CFG->{logview_max_par} = $value*1);
1130	delete $input->{refocus_map};
1131
1132	if ($prev_focus == $MAPWIDGET && $input->{auto_activated}) {
1133	$input->{refocus_map} = 1;
1134	}
1135	delete $input->{auto_activated};
1136
1137	0	1222	0
1138	},	1223	},
1139	on_activate => sub {
1140	my ($input, $text) = @_;
1141	$input->set_text ('');
1142
1143	if ($text =~ /^\/(.*)/) {
1144	$::CONN->user_send ($1);
1145	} else {
1146	my $say_cmd = $::CFG->{say_command} || 'say';
1147	$::CONN->user_send ("$say_cmd $text");
1148	}
1149	if ($input->{refocus_map}) {
1150	delete $input->{refocus_map};
1151	$MAPWIDGET->focus_in
1152	}
1153
1154	0
1155	},
1156	on_escape => sub {
1157	$MAPWIDGET->grab_focus;
1158
1159	0
1160	},
1161	);
1162
1163	$CONSOLE = {
1164	window => $window,
1165	input => $input,
1166	};	1224	);
1167		1225
1168	$window	1226	$table
1169	}	1227	}
1170		1228
1171	sub autopickup_setup {	1229	sub autopickup_setup {
		1230	my $r = new CFPlus::UI::ScrolledWindow (
		1231	expand => 1,
		1232	scroll_y => 1
		1233	);
1172	my $table = new CFPlus::UI::Table;	1234	$r->add (my $table = new CFPlus::UI::Table
		1235	row_expand => [0],
		1236	col_expand => [0, 1, 0, 1],
		1237	);
1173		1238
1174	for (	1239	for (
1175	["General", 0, 0,	1240	["General", 0, 0,
1176	["Enable autopickup" => PICKUP_NEWMODE, \$PICKUP_ENABLE],	1241	["Enable autopickup" => PICKUP_NEWMODE, \$PICKUP_ENABLE],
1177	["Inhibit autopickup" => PICKUP_INHIBIT],	1242	["Inhibit autopickup" => PICKUP_INHIBIT],
…		…
1212	],	1277	],
1213	["Weight/Value ratio", 2, 17]	1278	["Weight/Value ratio", 2, 17]
1214	)	1279	)
1215	{	1280	{
1216	my ($title, $x, $y, @bits) = @$_;	1281	my ($title, $x, $y, @bits) = @$_;
1217	$table->add ($x, $y, new CFPlus::UI::Label text => $title, align => 1, fg => [1, 1, 0]);	1282	$table->add_at ($x, $y, new CFPlus::UI::Label text => $title, align => 1, fg => [1, 1, 0]);
1218		1283
1219	for (@bits) {	1284	for (@bits) {
1220	++$y;	1285	++$y;
1221		1286
1222	my $mask = $_->[1];	1287	my $mask = $_->[1];
1223	$table->add ($x , $y, new CFPlus::UI::Label text => $_->[0], align => 1, expand => 1);	1288	$table->add_at ($x , $y, new CFPlus::UI::Label text => $_->[0], align => 1, expand => 1);
1224	$table->add ($x+1, $y, my $checkbox = new CFPlus::UI::CheckBox	1289	$table->add_at ($x+1, $y, my $checkbox = new CFPlus::UI::CheckBox
1225	state => $::CFG->{pickup} & $mask,	1290	state => $::CFG->{pickup} & $mask,
1226	on_changed => sub {	1291	on_changed => sub {
1227	my ($box, $value) = @_;	1292	my ($box, $value) = @_;
1228		1293
1229	if ($value) {	1294	if ($value) {
…		…
1240		1305
1241	${$_->[2]} = $checkbox if $_->[2];	1306	${$_->[2]} = $checkbox if $_->[2];
1242	}	1307	}
1243	}	1308	}
1244		1309
1245	$table->add (2, 18, new CFPlus::UI::ValSlider	1310	$table->add_at (2, 18, new CFPlus::UI::ValSlider
1246	range => [$::CFG->{pickup} & 0xF, 0, 16, 1, 1],	1311	range => [$::CFG->{pickup} & 0xF, 0, 16, 1, 1],
1247	template => ">= 99",	1312	template => ">= 99",
1248	to_value => sub { ">= " . 5 * $_[0] },	1313	to_value => sub { ">= " . 5 * $_[0] },
1249	on_changed => sub {	1314	on_changed => sub {
1250	my ($slider, $value) = @_;	1315	my ($slider, $value) = @_;
…		…
1253	$::CFG->{pickup} |= int $value	1318	$::CFG->{pickup} |= int $value
1254	if $value;	1319	if $value;
1255	1;	1320	1;
1256	});	1321	});
1257		1322
1258	$table->add (3, 18, new CFPlus::UI::Button	1323	$table->add_at (3, 18, new CFPlus::UI::Button
1259	text => "set",	1324	text => "set",
1260	on_activate => sub {	1325	on_activate => sub {
1261	$::CONN->send_command ("pickup $::CFG->{pickup}")	1326	$::CONN->send_command ("pickup $::CFG->{pickup}")
1262	if defined $::CONN;	1327	if defined $::CONN;
1263	0	1328	0
1264	});	1329	});
1265		1330
1266	$table	1331	$r
1267	}	1332	}
1268		1333
1269	my %SORT_ORDER = (	1334	my %SORT_ORDER = (
1270	type => undef,	1335	type => undef,
1271	mtime => sub {	1336	mtime => sub {
…		…
1350	has_close_button => 1	1415	has_close_button => 1
1351	;	1416	;
1352		1417
1353	my $ntb =	1418	my $ntb =
1354	$PL_NOTEBOOK =	1419	$PL_NOTEBOOK =
1355	new CFPlus::UI::Notebook expand => 1, debug => 1;	1420	new CFPlus::UI::Notebook expand => 1;
1356		1421
1357	$ntb->add (	1422	$ntb->add_tab (
1358	"Statistics (F2)" => $STATS_PAGE = stats_window,	1423	"Statistics (F2)" => $STATS_PAGE = stats_window,
1359	"Shows statistics, where all your Stats and Resistances are shown."	1424	"Shows statistics, where all your Stats and Resistances are shown."
1360	);	1425	);
1361	$ntb->add (	1426	$ntb->add_tab (
1362	"Skills (F3)" => $SKILL_PAGE = skill_window,	1427	"Skills (F3)" => $SKILL_PAGE = skill_window,
1363	"Shows all your Skills."	1428	"Shows all your Skills."
1364	);	1429	);
1365		1430
1366	my $spellsw = $SPELL_PAGE = new CFPlus::UI::ScrolledWindow (expand => 1, scroll_y => 1);	1431	my $spellsw = $SPELL_PAGE = new CFPlus::UI::ScrolledWindow (expand => 1, scroll_y => 1);
1367	$spellsw->add ($SPELL_LIST = new CFPlus::UI::SpellList);	1432	$spellsw->add ($SPELL_LIST = new CFPlus::UI::SpellList);
1368	$ntb->add (	1433	$ntb->add_tab (
1369	"Spellbook (F4)" => $spellsw,	1434	"Spellbook (F4)" => $spellsw,
1370	"Displays all spells you have and lets you edit keyboard shortcuts for them."	1435	"Displays all spells you have and lets you edit keyboard shortcuts for them."
1371	);	1436	);
1372	$ntb->add (	1437	$ntb->add_tab (
1373	"Inventory (F5)" => $INVENTORY_PAGE = inventory_widget,	1438	"Inventory (F5)" => $INVENTORY_PAGE = inventory_widget,
1374	"Toggles the inventory window, where you can manage your loot (or treasures :). "	1439	"Toggles the inventory window, where you can manage your loot (or treasures :). "
1375	. "You can also hit the <b>Tab</b>-key to show/hide the Inventory."	1440	. "You can also hit the <b>Tab</b>-key to show/hide the Inventory."
1376	);	1441	);
		1442	$ntb->add_tab (Pickup => autopickup_setup,
		1443	"Configure autopickup settings, i.e. which items you will pick up automatically when walking (or running) over them.");
1377		1444
1378	$ntb->set_current_page ($INVENTORY_PAGE);	1445	$ntb->set_current_page ($INVENTORY_PAGE);
1379		1446
1380	$plwin->add ($ntb);	1447	$plwin->add ($ntb);
1381	$plwin	1448	$plwin
…		…
1547		1614
1548	sub show_tip_of_the_day {	1615	sub show_tip_of_the_day {
1549	# find all tips	1616	# find all tips
1550	my @tod = CFPlus::Pod::find tip_of_the_day => "*";	1617	my @tod = CFPlus::Pod::find tip_of_the_day => "*";
1551		1618
1552	my $todindex = $CFPlus::DB_STATE->get ("tip_of_the_day");	1619	CFPlus::DB::get state => "tip_of_the_day", sub {
		1620	my ($todindex) = @_;
1553	$todindex = 0 if $todindex >= @tod;	1621	$todindex = 0 if $todindex >= @tod;
1554	$CFPlus::DB_STATE->put (tip_of_the_day => $todindex + 1);	1622	CFPlus::DB::put state => tip_of_the_day => $todindex + 1, sub { };
1555		1623
1556	# create dialog	1624	# create dialog
1557	my $dialog;	1625	my $dialog;
1558		1626
1559	my $close = sub {	1627	my $close = sub {
1560	$dialog->destroy;	1628	$dialog->destroy;
		1629	};
		1630
		1631	$dialog = new CFPlus::UI::Toplevel
		1632	x => "center",
		1633	y => "center",
		1634	z => 3,
		1635	name => 'tip_of_the_day',
		1636	force_w => int $WIDTH * 4/9,
		1637	force_h => int $WIDTH * 2/9,
		1638	title => "Tip of the day #" . (1 + $todindex),
		1639	child => my $vbox = new CFPlus::UI::VBox,
		1640	has_close_button => 1,
		1641	on_delete => $close,
		1642	;
		1643
		1644	$vbox->add (my $viewer = new CFPlus::UI::TextScroller
		1645	expand => 1, fontsize => 0.8, padding_x => 4, padding_y => 4);
		1646	$viewer->add_paragraph (CFPlus::Pod::as_paragraphs CFPlus::Pod::section_of $tod[$todindex]);
		1647
		1648	$vbox->add (my $table = new CFPlus::UI::Table col_expand => [0, 1]);
		1649
		1650	$table->add_at (0, 0, new CFPlus::UI::Button
		1651	text => "Close",
		1652	tooltip => "Close the tip of the day window. To never see it again, disable the tip of the day in the <b>Server Setup</b>.",
		1653	on_activate => $close,
		1654	);
		1655
		1656	$table->add_at (2, 0, new CFPlus::UI::Button
		1657	text => "Next",
		1658	tooltip => "Show the next <b>Tip of the day</b>.",
		1659	on_activate => sub {
		1660	$close->();
		1661	&show_tip_of_the_day;
		1662	},
		1663	);
		1664
		1665	$dialog->show;
1561	};	1666	};
1562
1563	$dialog = new CFPlus::UI::Toplevel
1564	x => "center",
1565	y => "center",
1566	z => 3,
1567	name => 'tip_of_the_day',
1568	force_w => int $WIDTH * 4/9,
1569	force_h => int $WIDTH * 2/9,
1570	title => "Tip of the day #" . (1 + $todindex),
1571	child => my $vbox = new CFPlus::UI::VBox,
1572	has_close_button => 1,
1573	on_delete => $close,
1574	;
1575
1576	$vbox->add (my $viewer = new CFPlus::UI::TextScroller
1577	expand => 1, fontsize => 0.8, padding_x => 4, padding_y => 4);
1578	$viewer->add_paragraph (CFPlus::Pod::as_paragraphs CFPlus::Pod::section_of $tod[$todindex]);
1579
1580	$vbox->add (my $table = new CFPlus::UI::Table col_expand => [0, 1]);
1581
1582	$table->add (0, 0, new CFPlus::UI::Button
1583	text => "Close",
1584	tooltip => "Close the tip of the day window. To never see it again, disable the tip of the day in the <b>Server Setup</b>.",
1585	on_activate => $close,
1586	);
1587
1588	$table->add (2, 0, new CFPlus::UI::Button
1589	text => "Next",
1590	tooltip => "Show the next <b>Tip of the day</b>.",
1591	on_activate => sub {
1592	$close->();
1593	&show_tip_of_the_day;
1594	},
1595	);
1596
1597	$dialog->show;
1598	}	1667	}
1599		1668
1600	sub sdl_init {	1669	sub sdl_init {
1601	CFPlus::SDL_Init	1670	CFPlus::SDL_Init
1602	and die "SDL::Init failed!\n";	1671	and die "SDL::Init failed!\n";
1603	}	1672	}
1604		1673
1605	sub video_init {	1674	sub video_init {
1606	sdl_init;
1607
1608	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} >= @SDL_MODES;	1675	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} >= @SDL_MODES;
1609		1676
1610	my ($old_w, $old_h) = ($WIDTH, $HEIGHT);	1677	my ($old_w, $old_h) = ($WIDTH, $HEIGHT);
1611		1678
1612	($WIDTH, $HEIGHT) = @{ $SDL_MODES[$CFG->{sdl_mode}] };	1679	($WIDTH, $HEIGHT, my ($rgb, $alpha)) = @{ $SDL_MODES[$CFG->{sdl_mode}] };
1613	$FULLSCREEN = $CFG->{fullscreen};	1680	$FULLSCREEN = $CFG->{fullscreen};
1614	$FAST = $CFG->{fast};	1681	$FAST = $CFG->{fast};
1615		1682
1616	CFPlus::SDL_SetVideoMode $WIDTH, $HEIGHT, $FULLSCREEN	1683	CFPlus::SDL_SetVideoMode $WIDTH, $HEIGHT, $rgb, $alpha, $FULLSCREEN
1617	or die "SDL_SetVideoMode failed: " . (CFPlus::SDL_GetError) . "\n";	1684	or die "SDL_SetVideoMode failed: " . (CFPlus::SDL_GetError) . "\n";
1618		1685
1619	$SDL_ACTIVE = 1;	1686	$SDL_ACTIVE = 1;
1620	$LAST_REFRESH = time - 0.01;	1687	$LAST_REFRESH = time - 0.01;
1621		1688
…		…
1663		1730
1664	$MAPWIDGET = new CFPlus::MapWidget;	1731	$MAPWIDGET = new CFPlus::MapWidget;
1665	$MAPWIDGET->connect (activate_console => sub {	1732	$MAPWIDGET->connect (activate_console => sub {
1666	my ($mapwidget, $preset) = @_;	1733	my ($mapwidget, $preset) = @_;
1667		1734
1668	if ($CONSOLE) {	1735	$MESSAGE_WINDOW->activate_console ($preset)
1669	$CONSOLE->{input}->{auto_activated} = 1;	1736	if $MESSAGE_WINDOW;
1670	$CONSOLE->{input}->grab_focus;
1671
1672	if ($preset && $CONSOLE->{input}->get_text eq '') {
1673	$CONSOLE->{input}->set_text ($preset);
1674	}
1675	}
1676	});	1737	});
1677	$MAPWIDGET->show;	1738	$MAPWIDGET->show;
1678	$MAPWIDGET->grab_focus;	1739	$MAPWIDGET->grab_focus;
1679
1680	$LOGVIEW = new CFPlus::UI::TextScroller
1681	expand => 1,
1682	font => $FONT_FIXED,
1683	fontsize => $::CFG->{log_fontsize},
1684	indent => -4,
1685	can_hover => 1,
1686	can_events => 1,
1687	tooltip => "<b>Server Log</b>. This text viewer contains all the messages sent by the server.",
1688	;
1689		1740
1690	$SETUP_DIALOG = new CFPlus::UI::Toplevel	1741	$SETUP_DIALOG = new CFPlus::UI::Toplevel
1691	title => "Setup",	1742	title => "Setup",
1692	name => "setup_dialog",	1743	name => "setup_dialog",
1693	x => 'center',	1744	x => 'center',
…		…
1697	force_h => $::HEIGHT * 0.6,	1748	force_h => $::HEIGHT * 0.6,
1698	has_close_button => 1,	1749	has_close_button => 1,
1699	;	1750	;
1700		1751
1701	$METASERVER = metaserver_dialog;	1752	$METASERVER = metaserver_dialog;
		1753	$MESSAGE_WINDOW = new CFPlus::UI::MessageWindow;
1702		1754
1703	$SETUP_DIALOG->add ($SETUP_NOTEBOOK = new CFPlus::UI::Notebook expand => 1, debug => 1,	1755	$SETUP_DIALOG->add ($SETUP_NOTEBOOK = new CFPlus::UI::Notebook expand => 1, debug => 1,
1704	filter => new CFPlus::UI::ScrolledWindow expand => 1, scroll_y => 1);	1756	filter => new CFPlus::UI::ScrolledWindow expand => 1, scroll_y => 1);
1705		1757
1706	$SETUP_NOTEBOOK->add (Server => $SETUP_SERVER = server_setup,	1758	$SETUP_NOTEBOOK->add_tab (Server => $SETUP_SERVER = server_setup,
1707	"Configure the server to play on, your username, password and other server-related options.");	1759	"Configure the server to play on, your username, password and other server-related options.");
1708	$SETUP_NOTEBOOK->add (Pickup => autopickup_setup,	1760	$SETUP_NOTEBOOK->add_tab (Client => client_setup,
1709	"Configure autopickup settings, i.e. which items you will pick up automatically when walking (or running) over them.");	1761	"Configure various client-specific settings.");
1710	$SETUP_NOTEBOOK->add (Graphics => graphics_setup,	1762	$SETUP_NOTEBOOK->add_tab (Graphics => graphics_setup,
1711	"Configure the video mode, performance, fonts and other graphical aspects of the game.");	1763	"Configure the video mode, performance, fonts and other graphical aspects of the game.");
1712	$SETUP_NOTEBOOK->add (Audio => audio_setup,	1764	$SETUP_NOTEBOOK->add_tab (Audio => audio_setup,
1713	"Configure the use of audio, sound effects and background music.");	1765	"Configure the use of audio, sound effects and background music.");
1714	$SETUP_NOTEBOOK->add (Keyboard => $SETUP_KEYBOARD = keyboard_setup,	1766	$SETUP_NOTEBOOK->add_tab (Keyboard => $SETUP_KEYBOARD = keyboard_setup,
1715	"Lets you define, edit and delete key bindings."	1767	"Lets you define, edit and delete key bindings."
1716	. "There is a shortcut for making bindings: <b>Control-Insert</b> opens the binding editor "	1768	. "There is a shortcut for making bindings: <b>Control-Insert</b> opens the binding editor "
1717	. "with nothing set and the recording started. After doing the actions you "	1769	. "with nothing set and the recording started. After doing the actions you "
1718	. "want to record press <b>Insert</b> and you will be asked to press a key-combo. "	1770	. "want to record press <b>Insert</b> and you will be asked to press a key-combo. "
1719	. "After pressing the combo the binding will be saved automatically and the "	1771	. "After pressing the combo the binding will be saved automatically and the "
1720	. "binding editor closes");	1772	. "binding editor closes");
1721	$SETUP_NOTEBOOK->add (Debug => debug_setup,	1773	$SETUP_NOTEBOOK->add_tab (Debug => debug_setup,
1722	"Some debuggin' options. Do not ask.");	1774	"Some debuggin' options. Do not ask.");
1723		1775
1724	$BUTTONBAR = new CFPlus::UI::Buttonbar x => 0, y => 0, z => 200; # put on top	1776	$BUTTONBAR = new CFPlus::UI::Buttonbar x => 0, y => 0, z => 200; # put on top
1725		1777
1726	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Setup", other => $SETUP_DIALOG,	1778	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Setup", other => $SETUP_DIALOG,
1727	tooltip => "Toggles a dialog where you can configure all aspects of this client.");	1779	tooltip => "Toggles a dialog where you can configure all aspects of this client.");
1728		1780
1729	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Message Window", other => $MESSAGE_WINDOW = message_window,	1781	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Message Window", other => $MESSAGE_WINDOW,
1730	tooltip => "Toggles the server message log, where the client collects <i>all</i> messages from the server.");	1782	tooltip => "Toggles the server message log, where the client collects <i>all</i> messages from the server.");
1731		1783
1732	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	1784	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
1733		1785
1734	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Playerbook", other => player_window,	1786	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Playerbook", other => player_window,
…		…
1770	}	1822	}
1771		1823
1772	sub setup_build_button {	1824	sub setup_build_button {
1773	my ($enabled) = @_;	1825	my ($enabled) = @_;
1774	if ($enabled) {	1826	if ($enabled) {
		1827	$BUILD_BUTTON->hide if $BUILD_BUTTON;
1775	$BUILD_BUTTON ||= new CFPlus::UI::Button	1828	$BUILD_BUTTON ||= new CFPlus::UI::Button
1776	text => "Build",	1829	text => "Build",
1777	tooltip => "Opens the ingame builder",	1830	tooltip => "Opens the ingame builder",
1778	on_activate => sub {	1831	on_activate => sub {
1779	if ($CONN) {	1832	if ($CONN) {
…		…
1859	$dialog->add (my $vb = new CFPlus::UI::VBox expand => 1);	1912	$dialog->add (my $vb = new CFPlus::UI::VBox expand => 1);
1860		1913
1861	$vb->add (my $table = new CFPlus::UI::Table expand => 1);	1914	$vb->add (my $table = new CFPlus::UI::Table expand => 1);
1862	my $row = 0;	1915	my $row = 0;
1863	if ($info->{has_name}) {	1916	if ($info->{has_name}) {
1864	$table->add (0, $row, new CFPlus::UI::Label text => "Name:");	1917	$table->add_at (0, $row, new CFPlus::UI::Label text => "Name:");
1865	$table->add (1, $row++, new CFPlus::UI::Entry expand => 1, on_changed => sub { $::IN_BUILD_MODE->{name} = $_[1]; 0 });	1918	$table->add_at (1, $row++, new CFPlus::UI::Entry expand => 1, on_changed => sub { $::IN_BUILD_MODE->{name} = $_[1]; 0 });
1866	}	1919	}
1867	if ($info->{has_text}) {	1920	if ($info->{has_text}) {
1868	$table->add (0, $row, new CFPlus::UI::Label text => "Text:");	1921	$table->add_at (0, $row, new CFPlus::UI::Label text => "Text:");
1869	$table->add (1, $row++, new CFPlus::UI::Entry expand => 1, on_changed => sub { $::IN_BUILD_MODE->{text} = $_[1]; 0 });	1922	$table->add_at (1, $row++, new CFPlus::UI::Entry expand => 1, on_changed => sub { $::IN_BUILD_MODE->{text} = $_[1]; 0 });
1870	}	1923	}
1871	if ($info->{has_connection}) {	1924	if ($info->{has_connection}) {
1872	$table->add (0, $row, new CFPlus::UI::Label text => "Connection ID:");	1925	$table->add_at (0, $row, new CFPlus::UI::Label text => "Connection ID:");
1873	$table->add (1, $row++,	1926	$table->add_at (1, $row++,
1874	new CFPlus::UI::Entry	1927	new CFPlus::UI::Entry
1875	expand => 1,	1928	expand => 1,
1876	on_changed => sub { $::IN_BUILD_MODE->{connection} = $_[1]; 0 },	1929	on_changed => sub { $::IN_BUILD_MODE->{connection} = $_[1]; 0 },
1877	tooltip => "Enter the connection ID here. The connection ID connects actors like a lever to a gate or a magic ear to a gate"	1930	tooltip => "Enter the connection ID here. The connection ID connects actors like a lever to a gate or a magic ear to a gate"
1878	);	1931	);
…		…
1891	CFPlus::OpenGL::shutdown;	1944	CFPlus::OpenGL::shutdown;
1892		1945
1893	undef $SDL_ACTIVE;	1946	undef $SDL_ACTIVE;
1894	}	1947	}
1895		1948
1896	my @bgmusic = qw(game1.ogg game2.ogg game3.ogg game5.ogg game6.ogg ross1.ogg ross2.ogg ross3.ogg ross4.ogg ross5.ogg); #d#
1897	my $bgmusic;#TODO#hack#d#
1898
1899	sub audio_channel_finished {	1949	sub audio_channel_finished {
1900	my ($channel) = @_;	1950	my ($channel) = @_;
1901		1951
1902	#warn "channel $channel finished\n";#d#	1952	#warn "channel $channel finished\n";#d#
1903	}	1953	}
1904		1954
		1955	sub audio_music_set {
		1956	my ($songs) = @_;
		1957
		1958	my @want =
		1959	grep $_,
		1960	map $CONN->{music_meta}{$_},
		1961	@$songs;
		1962
		1963	if (@want) {
		1964	@MUSIC_WANT = @want;
		1965	&audio_music_changed ();
		1966	}
		1967	}
		1968
		1969	sub audio_music_start {
		1970	my $path = $MUSIC_PLAYING->{path}
		1971	or return;
		1972
		1973	CFPlus::DB::prefetch_file $path, 1024_000, sub {
		1974	return unless $SDL_MIXER;
		1975
		1976	# music might have changed...
		1977	$path eq $MUSIC_PLAYING->{path}
		1978	or return &audio_music_start ();
		1979
		1980	$MUSIC_PLAYER = new_from_file CFPlus::MixMusic $path;
		1981
		1982	my $NOW = time;
		1983
		1984	if ($MUSIC_PLAYING->{stop_time} > $NOW - $MUSIC_RESUME) {
		1985	my $pos = $MUSIC_PLAYING->{stop_pos};
		1986	$MUSIC_PLAYER->fade_in_pos (0, 1000, $pos);
		1987	$MUSIC_START = time - $pos;
		1988	} else {
		1989	$MUSIC_PLAYER->play (0);
		1990	$MUSIC_START = time;
		1991	}
		1992
		1993	delete $MUSIC_PLAYING->{stop_time};
		1994	delete $MUSIC_PLAYING->{stop_pos};
		1995	}
		1996	}
		1997
		1998	sub audio_music_changed {
		1999	return unless $CFG->{bgm_enable};
		2000	return unless $SDL_MIXER;
		2001
		2002	# default MUSIC_WANT == MUSIC_DEFAULT
		2003	@MUSIC_WANT = { path => CFPlus::find_rcfile "music/$MUSIC_DEFAULT" } unless @MUSIC_WANT;
		2004
		2005	# if the currently playing song is acceptable, let it continue
		2006	return if $MUSIC_PLAYING
		2007	&& grep $MUSIC_PLAYING->{path} eq $_->{path}, @MUSIC_WANT;
		2008
		2009	my $NOW = time;
		2010
		2011	if ($MUSIC_PLAYING) {
		2012	$MUSIC_PLAYING->{stop_time} = $NOW;
		2013	$MUSIC_PLAYING->{stop_pos} = $NOW - $MUSIC_START;
		2014	CFPlus::MixMusic::fade_out 1000;
		2015	} else {
		2016	# sort by stop time, oldest first
		2017	@MUSIC_WANT = sort { $a->{stop_time} <=> $b->{stop_time} } @MUSIC_WANT;
		2018
		2019	# if the most recently-played piece played very recently,
		2020	# resume it, else choose the oldest piece for rotation.
		2021	$MUSIC_PLAYING =
		2022	$MUSIC_WANT[-1]{stop_time} > $NOW - $MUSIC_RESUME
		2023	? $MUSIC_WANT[-1]
		2024	: $MUSIC_WANT[0];
		2025
		2026	audio_music_start;
		2027	}
		2028	}
		2029
1905	sub audio_music_finished {	2030	sub audio_music_finished {
1906	return unless $CFG->{bgm_enable};	2031	$MUSIC_PLAYING = undef;
		2032	undef $MUSIC_PLAYER;
1907		2033
1908	# TODO: hack, do play loop and mood music	2034	audio_music_changed;
1909	$bgmusic = new_from_file CFPlus::MixMusic CFPlus::find_rcfile "music/$bgmusic[0]";
1910	$bgmusic->play (0);
1911
1912	push @bgmusic, shift @bgmusic;
1913	}	2035	}
1914		2036
1915	sub audio_init {	2037	sub audio_init {
1916	if ($CFG->{audio_enable}) {	2038	if ($CFG->{audio_enable}) {
1917	if (open my $fh, "<", CFPlus::find_rcfile "sounds/config") {	2039	if (open my $fh, "<", CFPlus::find_rcfile "sounds/config") {
…		…
1943	};	2065	};
1944	}	2066	}
1945	} else {	2067	} else {
1946	status "unable to open sound config: $!";	2068	status "unable to open sound config: $!";
1947	}	2069	}
		2070	} else {
		2071	undef $SDL_MIXER;
1948	}	2072	}
1949	}	2073	}
1950		2074
1951	sub audio_shutdown {	2075	sub audio_shutdown {
1952	CFPlus::Mix_CloseAudio if $SDL_MIXER;	2076	CFPlus::Mix_CloseAudio if $SDL_MIXER;
…		…
1967	debug sprintf "%3.2f", $fps if $ENV{CFPLUS_DEBUG} & 4;	2091	debug sprintf "%3.2f", $fps if $ENV{CFPLUS_DEBUG} & 4;
1968		2092
1969	$CFPlus::UI::ROOT->draw;	2093	$CFPlus::UI::ROOT->draw;
1970		2094
1971	$WANT_REFRESH = 0;	2095	$WANT_REFRESH = 0;
1972	$CAN_REFRESH = 0;	2096	$CAN_REFRESH = 0;
1973	$LAST_REFRESH = $NOW;	2097	$LAST_REFRESH = $NOW;
1974		2098
1975	CFPlus::SDL_GL_SwapBuffers;	2099	CFPlus::SDL_GL_SwapBuffers;
1976	}	2100	}
1977		2101
1978	my $refresh_watcher = Event->timer (after => 0, hard => 0, interval => 1 / $MAX_FPS, cb => sub {	2102	my $refresh_watcher = Event->timer (after => 0, hard => 0, interval => 1 / $MAX_FPS, cb => sub {
1979	$NOW = time;	2103	$NOW = time;
1980		2104
1981	($SDL_CB{$_->{type}} || sub { warn "unhandled event $_->{type}" })->($_)	2105	($SDL_CB{$_->{type}} || sub { warn "unhandled event $_->{type}" })->($_)
1982	for CFPlus::SDL_PollEvent;	2106	for CFPlus::poll_events;
1983		2107
1984	if (%animate_object) {	2108	if (%animate_object) {
1985	$_->animate ($LAST_REFRESH - $NOW) for values %animate_object;	2109	$_->animate ($LAST_REFRESH - $NOW) for values %animate_object;
1986	$WANT_REFRESH++;	2110	++$WANT_REFRESH;
1987	}	2111	}
1988		2112
1989	if ($WANT_REFRESH) {	2113	if ($WANT_REFRESH) {
1990	force_refresh;	2114	force_refresh;
1991	} else {	2115	} else {
…		…
2012	if $CONN;	2136	if $CONN;
2013	});	2137	});
2014		2138
2015	%SDL_CB = (	2139	%SDL_CB = (
2016	CFPlus::SDL_QUIT => sub {	2140	CFPlus::SDL_QUIT => sub {
2017	Event::unloop -1;	2141	exit;
2018	},	2142	},
2019	CFPlus::SDL_VIDEORESIZE => sub {	2143	CFPlus::SDL_VIDEORESIZE => sub {
2020	},	2144	},
2021	CFPlus::SDL_VIDEOEXPOSE => sub {	2145	CFPlus::SDL_VIDEOEXPOSE => sub {
2022	CFPlus::UI::full_refresh;	2146	CFPlus::UI::full_refresh;
2023	},	2147	},
2024	CFPlus::SDL_ACTIVEEVENT => sub {	2148	CFPlus::SDL_ACTIVEEVENT => sub {
2025	# not useful, as APPACTIVE include sonly iconified state, not unmapped	2149	# not useful, as APPACTIVE include sonly iconified state, not unmapped
2026	# printf "active %x %x\n", $_[0]{gain}, $_[0]{state};#d#	2150	# printf "active %x %x %x\n", $_[0]{gain}, $_[0]{state}, CFPlus::SDL_GetAppState;#d#
		2151	# printf "a %x\n", CFPlus::SDL_GetAppState & CFPlus::SDL_APPACTIVE;#d#
2027	# printf "A\n" if $_[0]{state} & CFPlus::SDL_APPACTIVE;	2152	# printf "A\n" if $_[0]{state} & CFPlus::SDL_APPACTIVE;
2028	# printf "K\n" if $_[0]{state} & CFPlus::SDL_APPINPUTFOCUS;	2153	# printf "K\n" if $_[0]{state} & CFPlus::SDL_APPINPUTFOCUS;
2029	# printf "M\n" if $_[0]{state} & CFPlus::SDL_APPMOUSEFOCUS;	2154	# printf "M\n" if $_[0]{state} & CFPlus::SDL_APPMOUSEFOCUS;
2030	},	2155	},
2031	CFPlus::SDL_KEYDOWN => sub {	2156	CFPlus::SDL_KEYDOWN => sub {
…		…
2055		2180
2056	$SIG{INT} = $SIG{TERM} = sub { exit };	2181	$SIG{INT} = $SIG{TERM} = sub { exit };
2057		2182
2058	{	2183	{
2059	CFPlus::read_cfg "$Crossfire::VARDIR/cfplusrc";	2184	CFPlus::read_cfg "$Crossfire::VARDIR/cfplusrc";
		2185	CFPlus::DB::Server::run;
		2186
2060	CFPlus::UI::set_layout ($::CFG->{layout});	2187	CFPlus::UI::set_layout ($::CFG->{layout});
2061		2188
2062	my %DEF_CFG = (	2189	my %DEF_CFG = (
2063	sdl_mode => 0,	2190	sdl_mode => 0,
2064	width => 640,	2191	width => 640,
2065	height => 480,	2192	height => 480,
2066	fullscreen => 0,	2193	fullscreen => 0,
2067	fast => 0,	2194	fast => 0,
2068	map_scale => 1,	2195	map_scale => 1,
2069	fow_enable => 1,	2196	fow_enable => 1,
2070	fow_intensity => 0.45,	2197	fow_intensity => 0,
2071	fow_smooth => 0,	2198	map_smoothing => 1,
2072	gui_fontsize => 1,	2199	gui_fontsize => 1,
2073	log_fontsize => 0.7,	2200	log_fontsize => 0.7,
2074	gauge_fontsize => 1,	2201	gauge_fontsize => 1,
2075	gauge_size => 0.35,	2202	gauge_size => 0.35,
2076	stat_fontsize => 0.7,	2203	stat_fontsize => 0.7,
2077	mapsize => 100,	2204	mapsize => 100,
2078	say_command => 'chat',	2205	say_command => 'chat',
2079	audio_enable => 1,	2206	audio_enable => 1,
2080	bgm_enable => 1,	2207	bgm_enable => 1,
2081	bgm_volume => 0.25,	2208	bgm_volume => 0.25,
2082	face_prefetch => 0,	2209	face_prefetch => 0,
2083	output_sync => 1,	2210	output_sync => 1,
2084	output_count => 1,	2211	output_count => 1,
		2212	output_rate => "",
2085	pickup => 0,	2213	pickup => 0,
2086	inv_sort => "mtime",	2214	inv_sort => "mtime",
2087	default => "profile", # default profile	2215	default => "profile", # default profile
2088	show_tips => 1,	2216	show_tips => 1,
		2217	logview_max_par => 1000,
2089	);	2218	);
2090		2219
2091	while (my ($k, $v) = each %DEF_CFG) {	2220	while (my ($k, $v) = each %DEF_CFG) {
2092	$CFG->{$k} = $v unless exists $CFG->{$k};	2221	$CFG->{$k} = $v unless exists $CFG->{$k};
2093	}	2222	}
…		…
2107	}	2236	}
2108	}	2237	}
2109		2238
2110	sdl_init;	2239	sdl_init;
2111		2240
2112	@SDL_MODES = reverse	2241	@SDL_MODES = CFPlus::SDL_ListModes 8, 8;
2113	grep $_->[0] >= 640 && $_->[1] >= 480,	2242	@SDL_MODES = CFPlus::SDL_ListModes 5, 0 unless @SDL_MODES;
2114	CFPlus::SDL_ListModes;
2115
2116	@SDL_MODES or CFPlus::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)";	2243	@SDL_MODES or CFPlus::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)";
		2244
		2245	@SDL_MODES = sort { $a->[0] * $a->[1] <=> $b->[0] * $b->[1] } @SDL_MODES;
2117		2246
2118	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES;	2247	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES;
2119		2248
2120	{	2249	{
2121	my @fonts = map CFPlus::find_rcfile "fonts/$_", qw(	2250	my @fonts = map CFPlus::find_rcfile "fonts/$_", qw(
…		…
2162		2291
2163	Event::loop;	2292	Event::loop;
2164	#CFPlus::SDL_Quit;	2293	#CFPlus::SDL_Quit;
2165	#CFPlus::_exit 0;	2294	#CFPlus::_exit 0;
2166		2295
		2296	END {
2167	END { CFPlus::SDL_Quit }	2297	CFPlus::SDL_Quit;
		2298	CFPlus::DB::Server::stop;
		2299	}
2168		2300
2169	=head1 NAME	2301	=head1 NAME
2170		2302
2171	cfplus - A Crossfire+ and Crossfire game client	2303	cfplus - A Crossfire+ and Crossfire game client
2172		2304

Diff Legend

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