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.144 by root, Fri Mar 16 03:14:50 2007 UTC vs.
Revision 1.187 by elmex, Fri Jul 27 18:04:43 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;
…		…
149	our $INVR;	178	our $INVR;
150	our $INV_RIGHT_HB;	179	our $INV_RIGHT_HB;
151		180
152	our $PICKUP_CFG;	181	our $PICKUP_CFG;
153		182
154	our $IN_BUILD_MODE;
155	our $BUILD_BUTTON;
156
157	sub status {	183	sub status {
158	$STATUSBOX->add (CFPlus::asxml $_[0], pri => -10, group => "status", timeout => 10, fg => [1, 1, 0, 1]);	184	$STATUSBOX->add (CFPlus::asxml $_[0], pri => -10, group => "status", timeout => 10, fg => [1, 1, 0, 1]);
159	}	185	}
160		186
161	sub debug {	187	sub debug {
162	$DEBUG_STATUS->set_text ($_[0]);	188	$DEBUG_STATUS->set_text ($_[0]);
163	}	189	}
164		190
165	sub message {	191	sub message {
166	my ($para) = @_;	192	my ($para) = @_;
167		193	$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	}	194	}
175		195
176	sub destroy_query_dialog {	196	sub destroy_query_dialog {
177	(delete $_[0]{query_dialog})->destroy	197	(delete $_[0]{query_dialog})->destroy
178	if $_[0]{query_dialog};	198	if $_[0]{query_dialog};
…		…
206	title => "Server Query",	226	title => "Server Query",
207	child => my $vbox = new CFPlus::UI::VBox,	227	child => my $vbox = new CFPlus::UI::VBox,
208	;	228	;
209		229
210	my @dialog = my $label = new CFPlus::UI::Label	230	my @dialog = my $label = new CFPlus::UI::Label
211	max_w => $::WIDTH * 0.4,	231	max_w => $::WIDTH * 0.8,
212	ellipsise => 0,	232	ellipsise => 0,
213	text => $prompt;	233	text => $prompt;
214		234
215	if ($flags & CS_QUERY_YESNO) {	235	if ($flags & CS_QUERY_YESNO) {
216	push @dialog, my $hbox = new CFPlus::UI::HBox;	236	push @dialog, my $hbox = new CFPlus::UI::HBox;
…		…
233	);	253	);
234		254
235	$dialog->grab_focus;	255	$dialog->grab_focus;
236		256
237	} elsif ($flags & CS_QUERY_SINGLECHAR) {	257	} elsif ($flags & CS_QUERY_SINGLECHAR) {
238	$dialog->{tooltip} = "#charcreation_focus";
239
240	if ($prompt =~ /Now choose a character|Press any key for the next race/i) {	258	if ($prompt =~ /Now choose a character|Press any key for the next race/i) {
241	$MESSAGE_WINDOW->show;	259	$dialog->{tooltip} = "#charcreation_focus";
242		260
243	unshift @dialog, new CFPlus::UI::Label	261	unshift @dialog, new CFPlus::UI::Label
244	max_w => $::WIDTH * 0.4,	262	max_w => $::WIDTH * 0.8,
245	ellipsise => 0,	263	ellipsise => 0,
246	markup => "\nOr use your keyboard and the text entry below:\n";	264	markup => "\nOr use your keyboard and the text entry below:\n";
247		265
248	unshift @dialog, my $table = new CFPlus::UI::Table;	266	unshift @dialog, my $table = new CFPlus::UI::Table;
249		267
250	$table->add (0, 0, new CFPlus::UI::Button	268	$table->add_at (0, 0, new CFPlus::UI::Button
251	text => "Next Race",	269	text => "Next Race",
252	on_activate => sub {	270	on_activate => sub {
253	$conn->send ("reply n");	271	$conn->send ("reply n");
254	destroy_query_dialog $conn;	272	destroy_query_dialog $conn;
255	0	273	0
256	},	274	},
257	);	275	);
258	$table->add (2, 0, new CFPlus::UI::Button	276	$table->add_at (2, 0, new CFPlus::UI::Button
259	text => "Accept",	277	text => "Accept",
260	on_activate => sub {	278	on_activate => sub {
261	$conn->send ("reply d");	279	$conn->send ("reply d");
262	destroy_query_dialog $conn;	280	destroy_query_dialog $conn;
263	0	281	0
264	},	282	},
265	);	283	);
266		284
		285	if ($conn->{chargen_race_description}) {
		286	unshift @dialog, new CFPlus::UI::Label
		287	max_w => $::WIDTH * 0.8,
		288	ellipsise => 0,
		289	markup => "<span foreground='#ccccff'>$conn->{chargen_race_description}</span>",
		290	;
		291	}
		292
		293	unshift @dialog, new CFPlus::UI::Face
		294	face => $conn->{player}{face},
		295	bg => [.2, .2, .2, 1],
		296	min_w => 64,
		297	min_h => 64,
		298	;
		299
		300	if ($conn->{chargen_race_title}) {
		301	unshift @dialog, new CFPlus::UI::Label
		302	allign => 1,
		303	ellipsise => 0,
		304	markup => "<span foreground='#ccccff' size='large'>Race: $conn->{chargen_race_title}</span>",
		305	;
		306	}
		307
267	unshift @dialog, new CFPlus::UI::Label	308	unshift @dialog, new CFPlus::UI::Label
268	max_w => $::WIDTH * 0.4,	309	max_w => $::WIDTH * 0.4,
269	ellipsise => 0,	310	ellipsise => 0,
270	markup => (CFPlus::Pod::section_label ui => "chargen_race"),	311	markup => (CFPlus::Pod::section_label ui => "chargen_race"),
271	;	312	;
…		…
275	$conn->send ("reply $stat");	316	$conn->send ("reply $stat");
276	destroy_query_dialog $conn;	317	destroy_query_dialog $conn;
277	return;	318	return;
278	}	319	}
279		320
280	$STATS_PAGE->show;
281	$MESSAGE_WINDOW->hide;
282
283	unshift @dialog, new CFPlus::UI::Label	321	unshift @dialog, new CFPlus::UI::Label
284	max_w => $::WIDTH * 0.4,	322	max_w => $::WIDTH * 0.4,
285	ellipsise => 0,	323	ellipsise => 0,
286	markup => "\nOr use your keyboard and the text entry below:\n";	324	markup => "\nOr use your keyboard and the text entry below:\n";
287		325
288	unshift @dialog, my $table = new CFPlus::UI::Table;	326	unshift @dialog, my $table = new CFPlus::UI::Table;
289		327
290	# left: re-roll	328	# left: re-roll
291	$table->add (0, 0, new CFPlus::UI::Button	329	$table->add_at (0, 0, new CFPlus::UI::Button
292	text => "Roll Again",	330	text => "Roll Again",
293	on_activate => sub {	331	on_activate => sub {
294	$conn->send ("reply y");	332	$conn->send ("reply y");
295	destroy_query_dialog $conn;	333	destroy_query_dialog $conn;
296	0	334	0
…		…
310	[6 => "Pow", "Power ($conn->{stat}{+CS_STAT_POW})"],	348	[6 => "Pow", "Power ($conn->{stat}{+CS_STAT_POW})"],
311	[7 => "Cha", "Charisma ($conn->{stat}{+CS_STAT_CHA})"],	349	[7 => "Cha", "Charisma ($conn->{stat}{+CS_STAT_CHA})"],
312	],	350	],
313	), 1 .. 2;	351	), 1 .. 2;
314		352
315	$table->add (2, 0, new CFPlus::UI::Button	353	$table->add_at (2, 0, new CFPlus::UI::Button
316	text => "Swap Stats",	354	text => "Swap Stats",
317	on_activate => sub {	355	on_activate => sub {
318	$conn->{stat_change_with} = $sw2->{value};	356	$conn->{stat_change_with} = $sw2->{value};
319	$conn->send ("reply $sw1->{value}");	357	$conn->send ("reply $sw1->{value}");
320	destroy_query_dialog $conn;	358	destroy_query_dialog $conn;
321	0	359	0
322	},	360	},
323	);	361	);
324	$table->add (2, 1, new CFPlus::UI::HBox children => [$sw1, $sw2]);	362	$table->add_at (2, 1, new CFPlus::UI::HBox children => [$sw1, $sw2]);
325		363
326	# right: accept	364	# right: accept
327	$table->add (4, 0, new CFPlus::UI::Button	365	$table->add_at (4, 0, new CFPlus::UI::Button
328	text => "Accept",	366	text => "Accept",
329	on_activate => sub {	367	on_activate => sub {
330	$conn->send ("reply n");	368	$conn->send ("reply n");
331	$STATS_PAGE->hide;	369	$STATS_PAGE->hide;
332	destroy_query_dialog $conn;	370	destroy_query_dialog $conn;
…		…
413	maph => $mapsize,	451	maph => $mapsize,
414		452
415	client => "cfplus $CFPlus::VERSION $] $^O",	453	client => "cfplus $CFPlus::VERSION $] $^O",
416		454
417	map_widget => $MAPWIDGET,	455	map_widget => $MAPWIDGET,
418	logview => $LOGVIEW,
419	statusbox => $STATUSBOX,	456	statusbox => $STATUSBOX,
420	map => $MAP,	457	map => $MAP,
421	mapmap => $MAPMAP,	458	mapmap => $MAPMAP,
422	query => \&server_query,	459	query => \&server_query,
		460
		461	setup_req => {
		462	smoothing => $CFG->{map_smoothing}*1,
		463	},
423		464
424	sound_play => sub {	465	sound_play => sub {
425	my ($x, $y, $soundnum, $type) = @_;	466	my ($x, $y, $soundnum, $type) = @_;
426		467
427	$SDL_MIXER	468	$SDL_MIXER
…		…
448	$LOGIN_BUTTON->set_text ("Login");	489	$LOGIN_BUTTON->set_text ("Login");
449	$SETUP_NOTEBOOK->set_current_page ($SETUP_SERVER);	490	$SETUP_NOTEBOOK->set_current_page ($SETUP_SERVER);
450	$SETUP_DIALOG->show;	491	$SETUP_DIALOG->show;
451	$PL_WINDOW->hide;	492	$PL_WINDOW->hide;
452	$SPELL_LIST->clear_spells;	493	$SPELL_LIST->clear_spells;
		494	$CFPlus::UI::ROOT->emit (stop_game => ! ! $CONN);
		495
		496	&audio_music_set ([]);
453		497
454	return unless $CONN;	498	return unless $CONN;
455		499
456	status "connection closed";	500	status "connection closed";
457		501
…		…
467		511
468	$vbox->add (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]);	512	$vbox->add (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]);
469		513
470	my $row = 0;	514	my $row = 0;
471		515
472	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "OpenGL Info");	516	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "OpenGL Info");
473	$table->add (1, $row++, new CFPlus::UI::Label valign => 0, fontsize => 0.8, text => CFPlus::OpenGL::gl_vendor . ", " . CFPlus::OpenGL::gl_version,	517	$table->add_at (1, $row++, new CFPlus::UI::Label valign => 0, fontsize => 0.8, text => CFPlus::OpenGL::gl_vendor . ", " . CFPlus::OpenGL::gl_version,
474	can_events => 1,	518	can_events => 1,
475	tooltip => "<tt><span size='8192'>" . (CFPlus::OpenGL::gl_extensions) . "</span></tt>");	519	tooltip => "<tt><span size='8192'>" . (CFPlus::OpenGL::gl_extensions) . "</span></tt>");
476		520
		521	my $vidmode_tooltip =
		522	"<b>Video Mode.</b> The video mode to use for fullscreen (and the window size for windowed operation). "
		523	. "The format is <i>width</i> x <i>height</i> \@ <i>depth-per-channel</i> + <i>alpha-channel</i>.";
		524
477	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Video Mode");	525	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Video Mode");
478	$table->add (1, $row++, my $hbox = new CFPlus::UI::HBox);	526	$table->add_at (1, $row++, my $hbox = new CFPlus::UI::HBox);
479		527
		528	$hbox->add (my $mode_slider = new CFPlus::UI::Slider
480	$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]);	529	force_w => $WIDTH * 0.1, expand => 1, range => [$CFG->{sdl_mode}, 0, $#SDL_MODES, 0, 1],
481	$hbox->add (my $mode_label = new CFPlus::UI::Label align => 0, valign => 0, height => 0.8, template => "9999x9999");	530	tooltip => $vidmode_tooltip);
		531	$hbox->add (my $mode_label = new CFPlus::UI::Label
		532	align => 0, valign => 0, height => 0.8, template => "9999x9999@9+9",
		533	can_events => 1, tooltip => $vidmode_tooltip);
482		534
483	$mode_slider->connect (changed => sub {	535	$mode_slider->connect (changed => sub {
484	my ($self, $value) = @_;	536	my ($self, $value) = @_;
485		537
486	$CFG->{sdl_mode} = $self->{range}[0] = $value = int $value;	538	$CFG->{sdl_mode} = $self->{range}[0] = $value = int $value;
487	$mode_label->set_text (sprintf "%dx%d", @{$SDL_MODES[$value]});	539	$mode_label->set_text (sprintf '%dx%d@%d+%d', @{$SDL_MODES[$value]});
488	});	540	});
489	$mode_slider->emit (changed => $mode_slider->{range}[0]);	541	$mode_slider->emit (changed => $mode_slider->{range}[0]);
490		542
491	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fullscreen");	543	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fullscreen");
492	$table->add (1, $row++, $FULLSCREEN_ENABLE = new CFPlus::UI::CheckBox	544	$table->add_at (1, $row++, $FULLSCREEN_ENABLE = new CFPlus::UI::CheckBox
493	state => $CFG->{fullscreen},	545	state => $CFG->{fullscreen},
494	tooltip => "Bring the client into fullscreen mode.",	546	tooltip => "Bring the client into fullscreen mode.",
495	on_changed => sub { my ($self, $value) = @_; $CFG->{fullscreen} = $value; 0 }	547	on_changed => sub { my ($self, $value) = @_; $CFG->{fullscreen} = $value; 0 }
496	);	548	);
497		549
498	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fast & Ugly");	550	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fast & Ugly");
499	$table->add (1, $row++, new CFPlus::UI::CheckBox	551	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
500	state => $CFG->{fast},	552	state => $CFG->{fast},
501	tooltip => "Lower the visual quality considerably to speed up rendering.",	553	tooltip => "Lower the visual quality considerably to speed up rendering.",
502	on_changed => sub { my ($self, $value) = @_; $CFG->{fast} = $value; 0 }	554	on_changed => sub { my ($self, $value) = @_; $CFG->{fast} = $value; 0 }
503	);	555	);
504		556
		557	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "GUI Fontsize");
		558	$table->add_at (1, $row++, new CFPlus::UI::Slider
		559	range => [$CFG->{gui_fontsize}, 0.5, 2, 0, 0.1],
		560	tooltip => "The base font size used by most GUI elements that do not have their own setting.",
		561	on_changed => sub { $CFG->{gui_fontsize} = $_[1]; 0 },
		562	);
		563
		564	$table->add_at (1, $row++, new CFPlus::UI::Button
		565	expand => 1, align => 0, text => "Apply",
		566	tooltip => "Apply the video settings above.",
		567	on_activate => sub {
		568	video_shutdown ();
		569	video_init ();
		570	0
		571	}
		572	);
		573
505	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Map Scale");	574	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Map Scale");
506	$table->add (1, $row++, new CFPlus::UI::Slider	575	$table->add_at (1, $row++, new CFPlus::UI::Slider
507	range => [(log $CFG->{map_scale}) / (log 2), -3, 1, 0, 1],	576	range => [(log $CFG->{map_scale}) / (log 2), -3, 1, 0, 1],
508	tooltip => "Enlarge or shrink the displayed map. Changes are instant.",	577	tooltip => "Enlarge or shrink the displayed map. Changes are instant.",
509	on_changed => sub { my ($self, $value) = @_; $CFG->{map_scale} = 2 ** $value; 0 }	578	on_changed => sub { my ($self, $value) = @_; $CFG->{map_scale} = 2 ** $value; 0 }
510	);	579	);
511		580
		581	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Map Smoothing");
		582	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
		583	state => $CFG->{map_smoothing},
		584	tooltip => "<b>Map Smoothing</b> tries to make tile borders less square. "
		585	. "This increases load on the graphics subsystem and works only with 2.x servers. "
		586	. "Changes take effect at next connection only.",
		587	on_changed => sub { my ($self, $value) = @_; $CFG->{map_smoothing} = $value; 0 }
		588	);
		589
512	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fog of War");	590	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fog of War");
513	$table->add (1, $row++, new CFPlus::UI::CheckBox	591	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
514	state => $CFG->{fow_enable},	592	state => $CFG->{fow_enable},
515	tooltip => "<b>Fog-of-War</b> marks areas that cannot be seen by the player. Changes are instant.",	593	tooltip => "<b>Fog-of-War</b> marks areas that cannot be seen by the player. Changes are instant.",
516	on_changed => sub { my ($self, $value) = @_; $CFG->{fow_enable} = $value; 0 }	594	on_changed => sub { my ($self, $value) = @_; $CFG->{fow_enable} = $value; 0 }
517	);	595	);
518		596
519	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "FoW Intensity");	597	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "FoW Intensity");
520	$table->add (1, $row++, new CFPlus::UI::Slider	598	$table->add_at (1, $row++, new CFPlus::UI::Slider
521	range => [$CFG->{fow_intensity}, 0, 1, 0, 1 / 256],	599	range => [$CFG->{fow_intensity}, 0, 1, 0, 1 / 256],
522	tooltip => "<b>Fog of War Lightness.</b> The higher the intensity, the lighter the Fog-of-War color. Changes are instant.",	600	tooltip => "<b>Fog of War Lightness.</b> The higher the intensity, the lighter the Fog-of-War color. Changes are instant.",
523	on_changed => sub { my ($self, $value) = @_; $CFG->{fow_intensity} = $value; 0 }	601	on_changed => sub { my ($self, $value) = @_; $CFG->{fow_intensity} = $value; 0 }
524	);	602	);
525		603
526	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "FoW Smooth");
527	$table->add (1, $row++, new CFPlus::UI::CheckBox
528	state => $CFG->{fow_smooth},
529	tooltip => "Smooth the Fog-of-War a bit to make it more realistic. Changes are instant.",
530	on_changed => sub {
531	my ($self, $value) = @_;
532	$CFG->{fow_smooth} = $value;
533	status "Fog of War smoothing requires OpenGL 1.2 or higher" if $CFPlus::OpenGL::GL_VERSION < 1.2;
534	0
535	}
536	);
537
538	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "GUI Fontsize");
539	$table->add (1, $row++, new CFPlus::UI::Slider
540	range => [$CFG->{gui_fontsize}, 0.5, 2, 0, 0.1],
541	tooltip => "The base font size used by most GUI elements that do not have their own setting.",
542	on_changed => sub { $CFG->{gui_fontsize} = $_[1]; 0 },
543	);
544
545	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Message Fontsize");	604	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Message Fontsize");
546	$table->add (1, $row++, new CFPlus::UI::Slider	605	$table->add_at (1, $row++, new CFPlus::UI::Slider
547	range => [$CFG->{log_fontsize}, 0.5, 2, 0, 0.1],	606	range => [$CFG->{log_fontsize}, 0.5, 2, 0, 0.1],
548	tooltip => "The font size used by the <b>message/server log</b> window only. Changes are instant.",	607	tooltip => "The font size used by the <b>message/server log</b> window only. Changes are instant.",
549	on_changed => sub { $LOGVIEW->set_fontsize ($CFG->{log_fontsize} = $_[1]); 0 },	608	on_changed => sub { $MESSAGE_WINDOW->set_fontsize ($CFG->{log_fontsize} = $_[1]); 0 },
550	);	609	);
551		610
552	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Gauge fontsize");	611	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Gauge fontsize");
553	$table->add (1, $row++, new CFPlus::UI::Slider	612	$table->add_at (1, $row++, new CFPlus::UI::Slider
554	range => [$CFG->{gauge_fontsize}, 0.5, 2, 0, 0.1],	613	range => [$CFG->{gauge_fontsize}, 0.5, 2, 0, 0.1],
555	tooltip => "Adjusts the fontsize of the gauges at the bottom right. Changes are instant.",	614	tooltip => "Adjusts the fontsize of the gauges at the bottom right. Changes are instant.",
556	on_changed => sub {	615	on_changed => sub {
557	$CFG->{gauge_fontsize} = $_[1];	616	$CFG->{gauge_fontsize} = $_[1];
558	&set_gauge_window_fontsize;	617	&set_gauge_window_fontsize;
559	0	618	0
560	}	619	}
561	);	620	);
562		621
563	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Gauge size");	622	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Gauge size");
564	$table->add (1, $row++, new CFPlus::UI::Slider	623	$table->add_at (1, $row++, new CFPlus::UI::Slider
565	range => [$CFG->{gauge_size}, 0.2, 0.8],	624	range => [$CFG->{gauge_size}, 0.2, 0.8],
566	tooltip => "Adjust the size of the stats gauges at the bottom right. Changes are instant.",	625	tooltip => "Adjust the size of the stats gauges at the bottom right. Changes are instant.",
567	on_changed => sub {	626	on_changed => sub {
568	$CFG->{gauge_size} = $_[1];	627	$CFG->{gauge_size} = $_[1];
569	$GAUGES->{win}->set_size ($WIDTH, int $HEIGHT * $CFG->{gauge_size});	628	$GAUGES->{win}->set_size ($WIDTH, int $HEIGHT * $CFG->{gauge_size});
570	0	629	0
571	}	630	}
572	);	631	);
573		632
574	$table->add (1, $row++, new CFPlus::UI::Button
575	expand => 1, align => 0, text => "Apply",
576	tooltip => "Apply the video settings",
577	on_activate => sub {
578	video_shutdown ();
579	video_init ();
580	0
581	}
582	);
583
584	$vbox	633	$vbox
585	}	634	}
586		635
587	sub audio_setup {	636	sub audio_setup {
588	my $vbox = new CFPlus::UI::VBox;	637	my $vbox = new CFPlus::UI::VBox;
589		638
590	$vbox->add (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]);	639	$vbox->add (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]);
591		640
592	my $row = 0;	641	my $row = 0;
593		642
594	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Audio Enable");	643	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Audio Enable");
595	$table->add (1, $row++, new CFPlus::UI::CheckBox	644	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
596	state => $CFG->{audio_enable},	645	state => $CFG->{audio_enable},
597	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.",	646	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.",
598	on_changed => sub { $CFG->{audio_enable} = $_[1]; 0 }	647	on_changed => sub { $CFG->{audio_enable} = $_[1]; 0 }
599	);	648	);
600	# $table->add (0, 9, new CFPlus::UI::Label valign => 0, align => 1, text => "Effects Volume");	649	# $table->add_at (0, 9, new CFPlus::UI::Label valign => 0, align => 1, text => "Effects Volume");
601	# $table->add (1, 8, new CFPlus::UI::Slider range => [$CFG->{effects_volume}, 0, 128, 1], on_changed => sub {	650	# $table->add_at (1, 8, new CFPlus::UI::Slider range => [$CFG->{effects_volume}, 0, 128, 1], on_changed => sub {
602	# $CFG->{effects_volume} = $_[1];	651	# $CFG->{effects_volume} = $_[1];
603	# });	652	# });
604	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Background Music");	653	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Background Music");
605	$table->add (1, $row++, my $hbox = new CFPlus::UI::HBox);	654	$table->add_at (1, $row++, my $hbox = new CFPlus::UI::HBox);
606	$hbox->add (new CFPlus::UI::CheckBox	655	$hbox->add (new CFPlus::UI::CheckBox
607	expand => 1, state => $CFG->{bgm_enable},	656	expand => 1, state => $CFG->{bgm_enable},
608	tooltip => "If enabled, playing of background music is enabled. If disabled, no background music will be played.",	657	tooltip => "If enabled, playing of background music is enabled. If disabled, no background music will be played.",
609	on_changed => sub { $CFG->{bgm_enable} = $_[1]; 0 }	658	on_changed => sub { $CFG->{bgm_enable} = $_[1]; 0 }
610	);	659	);
…		…
612	expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0, 1/128],	661	expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0, 1/128],
613	tooltip => "The volume of the background music. Changes are instant.",	662	tooltip => "The volume of the background music. Changes are instant.",
614	on_changed => sub { $CFG->{bgm_volume} = $_[1]; CFPlus::MixMusic::volume $_[1] * 128; 0 }	663	on_changed => sub { $CFG->{bgm_volume} = $_[1]; CFPlus::MixMusic::volume $_[1] * 128; 0 }
615	);	664	);
616		665
617	$table->add (1, $row++, new CFPlus::UI::Button	666	$table->add_at (1, $row++, new CFPlus::UI::Button
618	expand => 1, align => 0, text => "Apply",	667	expand => 1, align => 0, text => "Apply",
619	tooltip => "Apply the audio settings",	668	tooltip => "Apply the audio settings",
620	on_activate => sub {	669	on_activate => sub {
621	audio_shutdown ();	670	audio_shutdown ();
622	audio_init ();	671	audio_init ();
…		…
681	}	730	}
682		731
683	sub debug_setup {	732	sub debug_setup {
684	my $table = new CFPlus::UI::Table;	733	my $table = new CFPlus::UI::Table;
685		734
686	$table->add (0, 0, new CFPlus::UI::Label text => "Widget Borders");	735	$table->add_at (0, 0, new CFPlus::UI::Label text => "Widget Borders");
687	$table->add (1, 0, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 1; 0 });	736	$table->add_at (1, 0, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 1; 0 });
688	$table->add (0, 1, new CFPlus::UI::Label text => "Tooltip Widget Info");	737	$table->add_at (0, 1, new CFPlus::UI::Label text => "Tooltip Widget Info");
689	$table->add (1, 1, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 2; 0 });	738	$table->add_at (1, 1, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 2; 0 });
690	$table->add (0, 2, new CFPlus::UI::Label text => "Show FPS");	739	$table->add_at (0, 2, new CFPlus::UI::Label text => "Show FPS");
691	$table->add (1, 2, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 4; 0 });	740	$table->add_at (1, 2, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 4; 0 });
692	$table->add (0, 3, new CFPlus::UI::Label text => "Suppress Tooltips");	741	$table->add_at (0, 3, new CFPlus::UI::Label text => "Suppress Tooltips");
693	$table->add (1, 3, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 8; 0 });	742	$table->add_at (1, 3, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 8; 0 });
694	$table->add (0, 4, new CFPlus::UI::Button text => "die on click(tm)", on_activate => sub { die "violator" } );	743	$table->add_at (0, 4, new CFPlus::UI::Button text => "die on click(tm)", on_activate => sub { &CFPlus::debug() } );
695		744
696	my @default_smooth = (0.05, 0.13, 0.05, 0.13, 0.30, 0.13, 0.05, 0.13, 0.05);
697
698	for my $x (0..2) {
699	for my $y (0 .. 2) {
700	$table->add ($x + 3, $y,
701	new CFPlus::UI::Entry
702	text => $default_smooth[$x * 3 + $y],
703	on_changed => sub { $MAP->{smooth_matrix}[$x * 3 + $y] = $_[1] if $MAP; 0 },
704	);
705	}
706	}
707
708	$table->add (0, 5, new CFPlus::UI::TextEdit text => "line1\0152\0153");#d#	745	$table->add_at (0, 5, new CFPlus::UI::TextEdit text => "line1\0152\0153");#d#
		746
		747	$table->add_at (7,7, my $t = new CFPlus::UI::Table expand => 0);
		748	$t->add_at (0,0, new CFPlus::UI::Label text => "a a a a", rowspan => 1, colspan => 2);
		749	$t->add_at (2,0, new CFPlus::UI::Label text => "b\nb", rowspan => 2, colspan => 1);
		750	$t->add_at (1,2, new CFPlus::UI::Label text => "c c c c", rowspan => 1, colspan => 2);
		751	$t->add_at (0,1, new CFPlus::UI::Label text => "d\nd", rowspan => 2, colspan => 1);
		752	$t->add_at (1,1, new CFPlus::UI::Label text => "e");
		753
		754	$table->add_at (7, 6, my $c = new CFPlus::UI::Canvas);
		755
		756	$c->add_items ({
		757	type => "line_loop",
		758	color => [0, 1, 0],
		759	width => 9,
		760	coord_mode => "abs",
		761	coord => [[10, 5], [5, 50], [20, 5], [5, 60]],
		762	});
		763
		764	$c->add_items ({
		765	type => "lines",
		766	color => [1, 1, 0],
		767	width => 2,
		768	coord_mode => "rel",
		769	coord => [[0,0], [1,1], [1,0], [0,1]],
		770	});
		771
		772	$c->add_items ({
		773	type => "polygon",
		774	color => [0, 0.43, 0],
		775	width => 2,
		776	coord_mode => "rel",
		777	coord => [[0,0.2], [1,.4], [1,.6], [0,.8]],
		778	});
709		779
710	$table	780	$table
711	}	781	}
712		782
713	sub stats_window {	783	sub stats_window {
…		…
761	[2, 4, st_spd => "Spd", 10.54],	831	[2, 4, st_spd => "Spd", 10.54],
762	[2, 5, st_wspd => "WSp", 10.54],	832	[2, 5, st_wspd => "WSp", 10.54],
763	) {	833	) {
764	my ($col, $row, $id, $label, $template) = @$_;	834	my ($col, $row, $id, $label, $template) = @$_;
765		835
766	$tbl->add ($col , $row, $STATWIDS->{$id} = new CFPlus::UI::Label	836	$tbl->add_at ($col , $row, $STATWIDS->{$id} = new CFPlus::UI::Label
767	font => $FONT_FIXED, can_hover => 1, can_events => 1, valign => 0,	837	font => $FONT_FIXED, can_hover => 1, can_events => 1, valign => 0,
768	align => +1, template => $template, tooltip => "#stat_$label");	838	align => +1, template => $template, tooltip => "#stat_$label");
769	$tbl->add ($col + 1, $row, $STATWIDS->{"$id\_lbl"} = new CFPlus::UI::Label	839	$tbl->add_at ($col + 1, $row, $STATWIDS->{"$id\_lbl"} = new CFPlus::UI::Label
770	font => $FONT_FIXED, can_hover => 1, can_events => 1, fg => $color2, valign => 0,	840	font => $FONT_FIXED, can_hover => 1, can_events => 1, fg => $color2, valign => 0,
771	align => -1, text => $label, tooltip => "#stat_$label");	841	align => -1, text => $label, tooltip => "#stat_$label");
772	}	842	}
773		843
774	$vb->add (new CFPlus::UI::FancyFrame	844	$vb->add (new CFPlus::UI::FancyFrame
…		…
815	cold => ["Cold",	885	cold => ["Cold",
816	"<b>Cold</b> (this is your resistance against cold spells like icestorm, snowstorm, ...)"],	886	"<b>Cold</b> (this is your resistance against cold spells like icestorm, snowstorm, ...)"],
817	ghit => ["Ghost hit",	887	ghit => ["Ghost hit",
818	"<b>Ghost hit</b> (special attack used by ghosts and ghost-like beings)"],	888	"<b>Ghost hit</b> (special attack used by ghosts and ghost-like beings)"],
819	);	889	);
		890
820	for (qw/slow holyw conf fire depl magic	891	for (qw/slow holyw conf fire depl magic
821	drain acid pois para deat phys	892	drain acid pois para deat phys
822	blind fear tund elec cold ghit/)	893	blind fear tund elec cold ghit/)
823	{	894	{
824	$tbl2->add ($col, $row,	895	$tbl2->add_at ($col, $row,
825	$STATWIDS->{"res_$_"} =	896	$STATWIDS->{"res_$_"} =
826	new CFPlus::UI::Label	897	new CFPlus::UI::Label
827	font => $FONT_FIXED,	898	font => $FONT_FIXED,
828	template => "-100%",	899	template => "-100%",
829	align => +1,	900	align => +1,
830	valign => 0,	901	valign => 0,
831	can_events => 1,	902	can_events => 1,
832	can_hover => 1,	903	can_hover => 1,
833	tooltip => $resist_names{$_}->[1],	904	tooltip => $resist_names{$_}->[1],
834	);	905	);
835	$tbl2->add ($col + 1, $row, new CFPlus::UI::Image	906	$tbl2->add_at ($col + 1, $row, new CFPlus::UI::Image
836	font => $FONT_FIXED,	907	font => $FONT_FIXED,
837	can_hover => 1,	908	can_hover => 1,
838	can_events => 1,	909	can_events => 1,
839	path => "ui/resist/resist_$_.png",	910	path => "ui/resist/resist_$_.png",
840	tooltip => $resist_names{$_}->[1],	911	tooltip => $resist_names{$_}->[1],
841	);	912	);
842	$tbl2->add ($col + 2, $row, new CFPlus::UI::Label	913	$tbl2->add_at ($col + 2, $row, new CFPlus::UI::Label
843	text => $resist_names{$_}->[0],	914	text => $resist_names{$_}->[0],
844	font => $FONT_FIXED,	915	font => $FONT_FIXED,
845	can_hover => 1,	916	can_hover => 1,
846	can_events => 1,	917	can_events => 1,
847	tooltip => $resist_names{$_}->[1],	918	tooltip => $resist_names{$_}->[1],
…		…
880	return if $METASERVER_ATIME > time;	951	return if $METASERVER_ATIME > time;
881	$METASERVER_ATIME = time + 60;	952	$METASERVER_ATIME = time + 60;
882		953
883	my $table = $METASERVER->{table};	954	my $table = $METASERVER->{table};
884	$table->clear;	955	$table->clear;
885	$table->add (0, 0, my $label = new CFPlus::UI::Label max_w => $WIDTH * 0.8, text => "fetching server list...");	956	$table->add_at (0, 0, my $label = new CFPlus::UI::Label max_w => $WIDTH * 0.8, text => "fetching server list...");
886		957
887	my $ok = 0;	958	my $ok = 0;
888		959
889	CFPlus::background {	960	CFPlus::background {
890	my $ua = CFPlus::lwp_useragent;	961	my $ua = CFPlus::lwp_useragent;
…		…
901	"The time this server has been running without being restarted.",	972	"The time this server has been running without being restarted.",
902	"The server software version - a '+' indicates a Crossfire+ server.",	973	"The server software version - a '+' indicates a Crossfire+ server.",
903	"Short information about this server provided by its admins.",	974	"Short information about this server provided by its admins.",
904	);	975	);
905	my @col = qw(#Users Host Uptime Version Description);	976	my @col = qw(#Users Host Uptime Version Description);
906	$table->add ($_, 0, new CFPlus::UI::Label	977	$table->add_at ($_, 0, new CFPlus::UI::Label
907	can_hover => 1, can_events => 1,	978	can_hover => 1, can_events => 1,
908	align => 0, fg => [1, 1, 0],	979	align => 0, fg => [1, 1, 0],
909	text => $col[$_], tooltip => $tip[$_])	980	text => $col[$_], tooltip => $tip[$_])
910	for 0 .. $#col;	981	for 0 .. $#col;
911		982
…		…
933		1004
934	$m = [$users, $host, $uptime, $version, $desc];	1005	$m = [$users, $host, $uptime, $version, $desc];
935		1006
936	$y++;	1007	$y++;
937		1008
938	$table->add (scalar @$m, $y, new CFPlus::UI::VBox children => [	1009	$table->add_at (scalar @$m, $y, new CFPlus::UI::VBox children => [
939	(new CFPlus::UI::Button	1010	(new CFPlus::UI::Button
940	text => "Use",	1011	text => "Use",
941	tooltip => "Put this server into the <b>Host:Port</b> field",	1012	tooltip => "Put this server into the <b>Host:Port</b> field",
942	on_activate => sub {	1013	on_activate => sub {
943	$HOST_ENTRY->set_text ($CFG->{profile}{default}{host} = $host);	1014	$HOST_ENTRY->set_text ($CFG->{profile}{default}{host} = $host);
…		…
946	},	1017	},
947	),	1018	),
948	(new CFPlus::UI::Empty expand => 1),	1019	(new CFPlus::UI::Empty expand => 1),
949	]);	1020	]);
950		1021
951	$table->add ($_, $y, new CFPlus::UI::Label	1022	$table->add_at ($_, $y, new CFPlus::UI::Label
952	max_w => $::WIDTH * 0.4,	1023	max_w => $::WIDTH * 0.4,
953	ellipsise => 0,	1024	ellipsise => 0,
954	align => $align[$_],	1025	align => $align[$_],
955	text => $m->[$_],	1026	text => $m->[$_],
956	tooltip => $tip[$_],	1027	tooltip => $tip[$_],
…		…
997		1068
998	$vbox->add (new CFPlus::UI::FancyFrame	1069	$vbox->add (new CFPlus::UI::FancyFrame
999	label => "Connection Settings",	1070	label => "Connection Settings",
1000	child => (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]),	1071	child => (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]),
1001	);	1072	);
1002	$table->add (0, 2, new CFPlus::UI::Label valign => 0, align => 1, text => "Host:Port");	1073	$table->add_at (0, 2, new CFPlus::UI::Label valign => 0, align => 1, text => "Host:Port");
1003		1074
1004	{	1075	{
1005	$table->add (1, 2, my $vbox = new CFPlus::UI::VBox);	1076	$table->add_at (1, 2, my $vbox = new CFPlus::UI::VBox);
1006		1077
1007	$vbox->add (	1078	$vbox->add (
1008	$HOST_ENTRY = new CFPlus::UI::Entry	1079	$HOST_ENTRY = new CFPlus::UI::Entry
1009	expand => 1,	1080	expand => 1,
1010	text => $CFG->{profile}{default}{host},	1081	text => $CFG->{profile}{default}{host},
…		…
1024	on_activate => sub { $METASERVER->toggle_visibility; 0 },	1095	on_activate => sub { $METASERVER->toggle_visibility; 0 },
1025	on_visibility_change => sub { $METASERVER->hide unless $_[1]; 0 },	1096	on_visibility_change => sub { $METASERVER->hide unless $_[1]; 0 },
1026	);	1097	);
1027	}	1098	}
1028		1099
1029	$table->add (0, 4, new CFPlus::UI::Label valign => 0, align => 1, text => "Username");	1100	$table->add_at (0, 4, new CFPlus::UI::Label valign => 0, align => 1, text => "Username");
1030	$table->add (1, 4, new CFPlus::UI::Entry	1101	$table->add_at (1, 4, new CFPlus::UI::Entry
1031	text => $CFG->{profile}{default}{user},	1102	text => $CFG->{profile}{default}{user},
1032	tooltip => "The name of your character on the server",	1103	tooltip => "The name of your character on the server",
1033	on_changed => sub { my ($self, $value) = @_; $CFG->{profile}{default}{user} = $value }	1104	on_changed => sub { my ($self, $value) = @_; $CFG->{profile}{default}{user} = $value }
1034	);	1105	);
1035		1106
1036	$table->add (0, 5, new CFPlus::UI::Label valign => 0, align => 1, text => "Password");	1107	$table->add_at (0, 5, new CFPlus::UI::Label valign => 0, align => 1, text => "Password");
1037	$table->add (1, 5, new CFPlus::UI::Entry	1108	$table->add_at (1, 5, new CFPlus::UI::Entry
1038	text => $CFG->{profile}{default}{password},	1109	text => $CFG->{profile}{default}{password},
1039	hidden => 1,	1110	hidden => 1,
1040	tooltip => "The password for your character",	1111	tooltip => "The password for your character",
1041	on_changed => sub { my ($self, $value) = @_; $CFG->{profile}{default}{password} = $value }	1112	on_changed => sub { my ($self, $value) = @_; $CFG->{profile}{default}{password} = $value }
1042	);	1113	);
1043		1114
1044	$table->add (0, 7, new CFPlus::UI::Label valign => 0, align => 1, text => "Map Size");	1115	$table->add_at (0, 7, new CFPlus::UI::Label valign => 0, align => 1, text => "Map Size");
1045	$table->add (1, 7, new CFPlus::UI::Slider	1116	$table->add_at (1, 7, new CFPlus::UI::Slider
1046	force_w => 100,	1117	force_w => 100,
1047	range => [$CFG->{mapsize}, 10, 100, 0, 1],	1118	range => [$CFG->{mapsize}, 10, 100, 0, 1],
1048	tooltip => "This is the size of the portion of the map update the server sends you. "	1119	tooltip => "This is the size of the portion of the map update the server sends you. "
1049	. "If you set this to a high value you will be able to see further, "	1120	. "If you set this to a high value you will be able to see further, "
1050	. "but you also increase bandwidth requirements and latency. "	1121	. "but you also increase bandwidth requirements and latency. "
1051	. "This option is only used once at log-in.",	1122	. "This option is only used once at log-in.",
1052	on_changed => sub { my ($self, $value) = @_; $CFG->{mapsize} = $self->{range}[0] = $value = int $value; 0 },	1123	on_changed => sub { my ($self, $value) = @_; $CFG->{mapsize} = $self->{range}[0] = $value = int $value; 0 },
1053	);	1124	);
1054		1125
1055	$table->add (0, 8, new CFPlus::UI::Label valign => 0, align => 1, text => "Face Prefetch");	1126	$table->add_at (0, 8, new CFPlus::UI::Label valign => 0, align => 1, text => "Face Prefetch");
1056	$table->add (1, 8, new CFPlus::UI::CheckBox	1127	$table->add_at (1, 8, new CFPlus::UI::CheckBox
1057	state => $CFG->{face_prefetch},	1128	state => $CFG->{face_prefetch},
1058	tooltip => "<b>Background Image Prefetch</b>\n\n"	1129	tooltip => "<b>Background Image Prefetch</b>\n\n"
1059	. "If enabled, the client automatically pre-fetches images from the server. "	1130	. "If enabled, the client automatically pre-fetches images from the server. "
1060	. "This might increase or create lag, but increases the chances "	1131	. "This might increase or create lag, but increases the chances "
1061	. "of faces being ready for display when you encounter them. "	1132	. "of faces being ready for display when you encounter them. "
…		…
1063	. "so only set it if you really need to prefetch images. "	1134	. "so only set it if you really need to prefetch images. "
1064	. "This option can be set and unset any time.",	1135	. "This option can be set and unset any time.",
1065	on_changed => sub { $CFG->{face_prefetch} = $_[1]; 0 },	1136	on_changed => sub { $CFG->{face_prefetch} = $_[1]; 0 },
1066	);	1137	);
1067		1138
1068	$table->add (0, 9, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Rate");	1139	$table->add_at (0, 9, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Rate");
1069	$table->add (1, 9, new CFPlus::UI::Entry	1140	$table->add_at (1, 9, new CFPlus::UI::Entry
1070	text => $CFG->{output_rate},	1141	text => $CFG->{output_rate},
1071	tooltip => "The approximate bandwidth in bytes per second that the server should not exceed "	1142	tooltip => "The approximate bandwidth in bytes per second that the server should not exceed "
1072	. "when sending images, to ensure interactiveness. When 0 or unset, the server "	1143	. "when sending images, to ensure interactiveness. When 0 or unset, the server "
1073	. "default will be used, which is usually around 100kb/s.",	1144	. "default will be used, which is usually around 100kb/s.",
1074	on_changed => sub { $CFG->{output_rate} = $_[1]; 0 },	1145	on_changed => sub { $CFG->{output_rate} = $_[1]; 0 },
1075	);	1146	);
1076		1147
1077	$table->add (0, 10, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Count");	1148	$table->add_at (0, 10, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Count");
1078	$table->add (1, 10, new CFPlus::UI::Entry	1149	$table->add_at (1, 10, new CFPlus::UI::Entry
1079	text => $CFG->{output_count},	1150	text => $CFG->{output_count},
1080	tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.",	1151	tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.",
1081	on_changed => sub { $CFG->{output_count} = $_[1]; 0 },	1152	on_changed => sub { $CFG->{output_count} = $_[1]; 0 },
1082	);	1153	);
1083		1154
1084	$table->add (0, 11, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Sync");	1155	$table->add_at (0, 11, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Sync");
1085	$table->add (1, 11, new CFPlus::UI::Entry	1156	$table->add_at (1, 11, new CFPlus::UI::Entry
1086	text => $CFG->{output_sync},	1157	text => $CFG->{output_sync},
1087	tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.",	1158	tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.",
1088	on_changed => sub { $CFG->{output_sync} = $_[1]; 0 },	1159	on_changed => sub { $CFG->{output_sync} = $_[1]; 0 },
1089	);	1160	);
1090		1161
1091	$table->add (1, 12, $LOGIN_BUTTON = new CFPlus::UI::Button	1162	$table->add_at (1, 12, $LOGIN_BUTTON = new CFPlus::UI::Button
1092	expand => 1,	1163	expand => 1,
1093	align => 0,	1164	align => 0,
1094	text => "Login",	1165	text => "Login",
1095	on_activate => sub {	1166	on_activate => sub {
1096	$CONN ? stop_game	1167	$CONN ? stop_game
1097	: start_game;	1168	: start_game;
1098	0	1169	0
1099	},	1170	},
1100	);	1171	);
1101		1172
1102	$table->add (0, 13, new CFPlus::UI::Label valign => 0, align => 1, text => "Chat Command");	1173	$vbox->add (new CFPlus::UI::FancyFrame
1103	$table->add (1, 13, my $saycmd = new CFPlus::UI::Entry	1174	label => "Server Info",
1104	text => $CFG->{say_command},	1175	child => ($SERVER_INFO = new CFPlus::UI::Label ellipsise => 0),
1105	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. "
1106	. "Usually you want to enter something like 'say' or 'shout' or 'gsay' here. "
1107	. "But you could also set it to <b>tell <i>playername</i></b> to only chat with that user.",
1108	on_changed => sub {
1109	my ($self, $value) = @_;
1110	$CFG->{say_command} = $value;
1111	0
1112	}
1113	);	1176	);
1114		1177
		1178	$vbox
		1179	}
		1180
		1181	sub client_setup {
		1182	my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1];
		1183
		1184	my $row = 0;
		1185
1115	$table->add (0, 14, new CFPlus::UI::Label valign => 0, align => 1, text => "Tip of the day");	1186	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Tip of the day");
1116	$table->add (1, 14, my $saycmd = new CFPlus::UI::CheckBox	1187	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
1117	state => $CFG->{show_tips},	1188	state => $CFG->{show_tips},
1118	tooltip => "Show the <b>Tip of the day</b> window at startup?",	1189	tooltip => "Show the <b>Tip of the day</b> window at startup?",
1119	on_changed => sub {	1190	on_changed => sub {
1120	my ($self, $value) = @_;	1191	my ($self, $value) = @_;
1121	$CFG->{show_tips} = $value;	1192	$CFG->{show_tips} = $value;
1122	0	1193	0
1123	}	1194	}
1124	);	1195	);
1125		1196
1126	$vbox->add (new CFPlus::UI::FancyFrame	1197	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Messages Window Size");
1127	label => "Server Info",	1198	$table->add_at (1, $row++, my $saycmd = new CFPlus::UI::Entry
1128	child => ($SERVER_INFO = new CFPlus::UI::Label ellipsise => 0),	1199	text => $CFG->{logview_max_par},
1129	);	1200	tooltip => "This is maximum number of messages remembered in the <b>Messages</b> window. If the server "
1130		1201	. "sends more messages than this number, older messages get removed to save memory and "
1131	$vbox	1202	. "computing time. A value of <b>0</b> disables this feature, but that is not recommended.",
1132	}
1133
1134	sub message_window {
1135	my $window = new CFPlus::UI::Toplevel
1136	name => "message_window",
1137	title => "Messages",
1138	border_bg => [1, 1, 1, 1],
1139	x => "max",
1140	y => 0,
1141	force_w => $::WIDTH * 0.4,
1142	force_h => $::HEIGHT * 0.5,
1143	child => (my $vbox = new CFPlus::UI::VBox),
1144	has_close_button => 1;
1145
1146	$vbox->add ($LOGVIEW);
1147
1148	$vbox->add (my $input = new CFPlus::UI::Entry
1149	tooltip => "<b>Chat Box</b>. If you enter a text and press return/enter here, the current <i>communication command</i> "
1150	. "from the client setup will be prepended (e.g. <b>shout</b>, <b>chat</b>...). "
1151	. "If you prepend a slash (/), you will submit a command instead (similar to IRC). "
1152	. "A better way to submit commands (and the occasional chat command) is often the map command completer.",
1153	on_focus_in => sub {	1203	on_changed => sub {
1154	my ($input, $prev_focus) = @_;	1204	my ($self, $value) = @_;
1155		1205	$MESSAGE_WINDOW->set_max_para ($CFG->{logview_max_par} = $value*1);
1156	delete $input->{refocus_map};
1157
1158	if ($prev_focus == $MAPWIDGET && $input->{auto_activated}) {
1159	$input->{refocus_map} = 1;
1160	}
1161	delete $input->{auto_activated};
1162
1163	0	1206	0
1164	},	1207	},
1165	on_activate => sub {
1166	my ($input, $text) = @_;
1167	$input->set_text ('');
1168
1169	if ($text =~ /^\/(.*)/) {
1170	$::CONN->user_send ($1);
1171	} else {
1172	my $say_cmd = $::CFG->{say_command} || 'say';
1173	$::CONN->user_send ("$say_cmd $text");
1174	}
1175	if ($input->{refocus_map}) {
1176	delete $input->{refocus_map};
1177	$MAPWIDGET->focus_in
1178	}
1179
1180	0
1181	},
1182	on_escape => sub {
1183	$MAPWIDGET->grab_focus;
1184
1185	0
1186	},
1187	);
1188
1189	$CONSOLE = {
1190	window => $window,
1191	input => $input,
1192	};	1208	);
1193		1209
1194	$window	1210	$table
1195	}	1211	}
1196		1212
1197	sub autopickup_setup {	1213	sub autopickup_setup {
		1214	my $r = new CFPlus::UI::ScrolledWindow (
		1215	expand => 1,
		1216	scroll_y => 1
		1217	);
1198	my $table = new CFPlus::UI::Table;	1218	$r->add (my $table = new CFPlus::UI::Table
		1219	row_expand => [0],
		1220	col_expand => [0, 1, 0, 1],
		1221	);
1199		1222
1200	for (	1223	for (
1201	["General", 0, 0,	1224	["General", 0, 0,
1202	["Enable autopickup" => PICKUP_NEWMODE, \$PICKUP_ENABLE],	1225	["Enable autopickup" => PICKUP_NEWMODE, \$PICKUP_ENABLE],
1203	["Inhibit autopickup" => PICKUP_INHIBIT],	1226	["Inhibit autopickup" => PICKUP_INHIBIT],
…		…
1238	],	1261	],
1239	["Weight/Value ratio", 2, 17]	1262	["Weight/Value ratio", 2, 17]
1240	)	1263	)
1241	{	1264	{
1242	my ($title, $x, $y, @bits) = @$_;	1265	my ($title, $x, $y, @bits) = @$_;
1243	$table->add ($x, $y, new CFPlus::UI::Label text => $title, align => 1, fg => [1, 1, 0]);	1266	$table->add_at ($x, $y, new CFPlus::UI::Label text => $title, align => 1, fg => [1, 1, 0]);
1244		1267
1245	for (@bits) {	1268	for (@bits) {
1246	++$y;	1269	++$y;
1247		1270
1248	my $mask = $_->[1];	1271	my $mask = $_->[1];
1249	$table->add ($x , $y, new CFPlus::UI::Label text => $_->[0], align => 1, expand => 1);	1272	$table->add_at ($x , $y, new CFPlus::UI::Label text => $_->[0], align => 1, expand => 1);
1250	$table->add ($x+1, $y, my $checkbox = new CFPlus::UI::CheckBox	1273	$table->add_at ($x+1, $y, my $checkbox = new CFPlus::UI::CheckBox
1251	state => $::CFG->{pickup} & $mask,	1274	state => $::CFG->{pickup} & $mask,
1252	on_changed => sub {	1275	on_changed => sub {
1253	my ($box, $value) = @_;	1276	my ($box, $value) = @_;
1254		1277
1255	if ($value) {	1278	if ($value) {
…		…
1266		1289
1267	${$_->[2]} = $checkbox if $_->[2];	1290	${$_->[2]} = $checkbox if $_->[2];
1268	}	1291	}
1269	}	1292	}
1270		1293
1271	$table->add (2, 18, new CFPlus::UI::ValSlider	1294	$table->add_at (2, 18, new CFPlus::UI::ValSlider
1272	range => [$::CFG->{pickup} & 0xF, 0, 16, 1, 1],	1295	range => [$::CFG->{pickup} & 0xF, 0, 16, 1, 1],
1273	template => ">= 99",	1296	template => ">= 99",
1274	to_value => sub { ">= " . 5 * $_[0] },	1297	to_value => sub { ">= " . 5 * $_[0] },
1275	on_changed => sub {	1298	on_changed => sub {
1276	my ($slider, $value) = @_;	1299	my ($slider, $value) = @_;
…		…
1279	$::CFG->{pickup} |= int $value	1302	$::CFG->{pickup} |= int $value
1280	if $value;	1303	if $value;
1281	1;	1304	1;
1282	});	1305	});
1283		1306
1284	$table->add (3, 18, new CFPlus::UI::Button	1307	$table->add_at (3, 18, new CFPlus::UI::Button
1285	text => "set",	1308	text => "set",
1286	on_activate => sub {	1309	on_activate => sub {
1287	$::CONN->send_command ("pickup $::CFG->{pickup}")	1310	$::CONN->send_command ("pickup $::CFG->{pickup}")
1288	if defined $::CONN;	1311	if defined $::CONN;
1289	0	1312	0
1290	});	1313	});
1291		1314
1292	$table	1315	$r
1293	}	1316	}
1294		1317
1295	my %SORT_ORDER = (	1318	my %SORT_ORDER = (
1296	type => undef,	1319	type => undef,
1297	mtime => sub {	1320	mtime => sub {
…		…
1376	has_close_button => 1	1399	has_close_button => 1
1377	;	1400	;
1378		1401
1379	my $ntb =	1402	my $ntb =
1380	$PL_NOTEBOOK =	1403	$PL_NOTEBOOK =
1381	new CFPlus::UI::Notebook expand => 1, debug => 1;	1404	new CFPlus::UI::Notebook expand => 1;
1382		1405
1383	$ntb->add (	1406	$ntb->add_tab (
1384	"Statistics (F2)" => $STATS_PAGE = stats_window,	1407	"Statistics (F2)" => $STATS_PAGE = stats_window,
1385	"Shows statistics, where all your Stats and Resistances are shown."	1408	"Shows statistics, where all your Stats and Resistances are shown."
1386	);	1409	);
1387	$ntb->add (	1410	$ntb->add_tab (
1388	"Skills (F3)" => $SKILL_PAGE = skill_window,	1411	"Skills (F3)" => $SKILL_PAGE = skill_window,
1389	"Shows all your Skills."	1412	"Shows all your Skills."
1390	);	1413	);
1391		1414
1392	my $spellsw = $SPELL_PAGE = new CFPlus::UI::ScrolledWindow (expand => 1, scroll_y => 1);	1415	my $spellsw = $SPELL_PAGE = new CFPlus::UI::ScrolledWindow (expand => 1, scroll_y => 1);
1393	$spellsw->add ($SPELL_LIST = new CFPlus::UI::SpellList);	1416	$spellsw->add ($SPELL_LIST = new CFPlus::UI::SpellList);
1394	$ntb->add (	1417	$ntb->add_tab (
1395	"Spellbook (F4)" => $spellsw,	1418	"Spellbook (F4)" => $spellsw,
1396	"Displays all spells you have and lets you edit keyboard shortcuts for them."	1419	"Displays all spells you have and lets you edit keyboard shortcuts for them."
1397	);	1420	);
1398	$ntb->add (	1421	$ntb->add_tab (
1399	"Inventory (F5)" => $INVENTORY_PAGE = inventory_widget,	1422	"Inventory (F5)" => $INVENTORY_PAGE = inventory_widget,
1400	"Toggles the inventory window, where you can manage your loot (or treasures :). "	1423	"Toggles the inventory window, where you can manage your loot (or treasures :). "
1401	. "You can also hit the <b>Tab</b>-key to show/hide the Inventory."	1424	. "You can also hit the <b>Tab</b>-key to show/hide the Inventory."
1402	);	1425	);
		1426	$ntb->add_tab (Pickup => autopickup_setup,
		1427	"Configure autopickup settings, i.e. which items you will pick up automatically when walking (or running) over them.");
1403		1428
1404	$ntb->set_current_page ($INVENTORY_PAGE);	1429	$ntb->set_current_page ($INVENTORY_PAGE);
1405		1430
1406	$plwin->add ($ntb);	1431	$plwin->add ($ntb);
1407	$plwin	1432	$plwin
…		…
1573		1598
1574	sub show_tip_of_the_day {	1599	sub show_tip_of_the_day {
1575	# find all tips	1600	# find all tips
1576	my @tod = CFPlus::Pod::find tip_of_the_day => "*";	1601	my @tod = CFPlus::Pod::find tip_of_the_day => "*";
1577		1602
1578	my $todindex = $CFPlus::DB_STATE->get ("tip_of_the_day");	1603	CFPlus::DB::get state => "tip_of_the_day", sub {
		1604	my ($todindex) = @_;
1579	$todindex = 0 if $todindex >= @tod;	1605	$todindex = 0 if $todindex >= @tod;
1580	$CFPlus::DB_STATE->put (tip_of_the_day => $todindex + 1);	1606	CFPlus::DB::put state => tip_of_the_day => $todindex + 1, sub { };
1581		1607
1582	# create dialog	1608	# create dialog
1583	my $dialog;	1609	my $dialog;
1584		1610
1585	my $close = sub {	1611	my $close = sub {
1586	$dialog->destroy;	1612	$dialog->destroy;
		1613	};
		1614
		1615	$dialog = new CFPlus::UI::Toplevel
		1616	x => "center",
		1617	y => "center",
		1618	z => 3,
		1619	name => 'tip_of_the_day',
		1620	force_w => int $WIDTH * 4/9,
		1621	force_h => int $WIDTH * 2/9,
		1622	title => "Tip of the day #" . (1 + $todindex),
		1623	child => my $vbox = new CFPlus::UI::VBox,
		1624	has_close_button => 1,
		1625	on_delete => $close,
		1626	;
		1627
		1628	$vbox->add (my $viewer = new CFPlus::UI::TextScroller
		1629	expand => 1, fontsize => 0.8, padding_x => 4, padding_y => 4);
		1630	$viewer->add_paragraph (CFPlus::Pod::as_paragraphs CFPlus::Pod::section_of $tod[$todindex]);
		1631
		1632	$vbox->add (my $table = new CFPlus::UI::Table col_expand => [0, 1]);
		1633
		1634	$table->add_at (0, 0, new CFPlus::UI::Button
		1635	text => "Close",
		1636	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>.",
		1637	on_activate => $close,
		1638	);
		1639
		1640	$table->add_at (2, 0, new CFPlus::UI::Button
		1641	text => "Next",
		1642	tooltip => "Show the next <b>Tip of the day</b>.",
		1643	on_activate => sub {
		1644	$close->();
		1645	&show_tip_of_the_day;
		1646	},
		1647	);
		1648
		1649	$dialog->show;
1587	};	1650	};
1588
1589	$dialog = new CFPlus::UI::Toplevel
1590	x => "center",
1591	y => "center",
1592	z => 3,
1593	name => 'tip_of_the_day',
1594	force_w => int $WIDTH * 4/9,
1595	force_h => int $WIDTH * 2/9,
1596	title => "Tip of the day #" . (1 + $todindex),
1597	child => my $vbox = new CFPlus::UI::VBox,
1598	has_close_button => 1,
1599	on_delete => $close,
1600	;
1601
1602	$vbox->add (my $viewer = new CFPlus::UI::TextScroller
1603	expand => 1, fontsize => 0.8, padding_x => 4, padding_y => 4);
1604	$viewer->add_paragraph (CFPlus::Pod::as_paragraphs CFPlus::Pod::section_of $tod[$todindex]);
1605
1606	$vbox->add (my $table = new CFPlus::UI::Table col_expand => [0, 1]);
1607
1608	$table->add (0, 0, new CFPlus::UI::Button
1609	text => "Close",
1610	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>.",
1611	on_activate => $close,
1612	);
1613
1614	$table->add (2, 0, new CFPlus::UI::Button
1615	text => "Next",
1616	tooltip => "Show the next <b>Tip of the day</b>.",
1617	on_activate => sub {
1618	$close->();
1619	&show_tip_of_the_day;
1620	},
1621	);
1622
1623	$dialog->show;
1624	}	1651	}
1625		1652
1626	sub sdl_init {	1653	sub sdl_init {
1627	CFPlus::SDL_Init	1654	CFPlus::SDL_Init
1628	and die "SDL::Init failed!\n";	1655	and die "SDL::Init failed!\n";
1629	}	1656	}
1630		1657
1631	sub video_init {	1658	sub video_init {
1632	sdl_init;
1633
1634	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} >= @SDL_MODES;	1659	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} >= @SDL_MODES;
1635		1660
1636	my ($old_w, $old_h) = ($WIDTH, $HEIGHT);	1661	my ($old_w, $old_h) = ($WIDTH, $HEIGHT);
1637		1662
1638	($WIDTH, $HEIGHT) = @{ $SDL_MODES[$CFG->{sdl_mode}] };	1663	($WIDTH, $HEIGHT, my ($rgb, $alpha)) = @{ $SDL_MODES[$CFG->{sdl_mode}] };
1639	$FULLSCREEN = $CFG->{fullscreen};	1664	$FULLSCREEN = $CFG->{fullscreen};
1640	$FAST = $CFG->{fast};	1665	$FAST = $CFG->{fast};
1641		1666
1642	CFPlus::SDL_SetVideoMode $WIDTH, $HEIGHT, $FULLSCREEN	1667	CFPlus::SDL_SetVideoMode $WIDTH, $HEIGHT, $rgb, $alpha, $FULLSCREEN
1643	or die "SDL_SetVideoMode failed: " . (CFPlus::SDL_GetError) . "\n";	1668	or die "SDL_SetVideoMode failed: " . (CFPlus::SDL_GetError) . "\n";
1644		1669
1645	$SDL_ACTIVE = 1;	1670	$SDL_ACTIVE = 1;
1646	$LAST_REFRESH = time - 0.01;	1671	$LAST_REFRESH = time - 0.01;
1647		1672
…		…
1689		1714
1690	$MAPWIDGET = new CFPlus::MapWidget;	1715	$MAPWIDGET = new CFPlus::MapWidget;
1691	$MAPWIDGET->connect (activate_console => sub {	1716	$MAPWIDGET->connect (activate_console => sub {
1692	my ($mapwidget, $preset) = @_;	1717	my ($mapwidget, $preset) = @_;
1693		1718
1694	if ($CONSOLE) {	1719	$MESSAGE_WINDOW->activate_console ($preset)
1695	$CONSOLE->{input}->{auto_activated} = 1;	1720	if $MESSAGE_WINDOW;
1696	$CONSOLE->{input}->grab_focus;
1697
1698	if ($preset && $CONSOLE->{input}->get_text eq '') {
1699	$CONSOLE->{input}->set_text ($preset);
1700	}
1701	}
1702	});	1721	});
1703	$MAPWIDGET->show;	1722	$MAPWIDGET->show;
1704	$MAPWIDGET->grab_focus;	1723	$MAPWIDGET->grab_focus;
1705
1706	$LOGVIEW = new CFPlus::UI::TextScroller
1707	expand => 1,
1708	font => $FONT_FIXED,
1709	fontsize => $::CFG->{log_fontsize},
1710	indent => -4,
1711	can_hover => 1,
1712	can_events => 1,
1713	tooltip => "<b>Server Log</b>. This text viewer contains all the messages sent by the server.",
1714	;
1715		1724
1716	$SETUP_DIALOG = new CFPlus::UI::Toplevel	1725	$SETUP_DIALOG = new CFPlus::UI::Toplevel
1717	title => "Setup",	1726	title => "Setup",
1718	name => "setup_dialog",	1727	name => "setup_dialog",
1719	x => 'center',	1728	x => 'center',
…		…
1723	force_h => $::HEIGHT * 0.6,	1732	force_h => $::HEIGHT * 0.6,
1724	has_close_button => 1,	1733	has_close_button => 1,
1725	;	1734	;
1726		1735
1727	$METASERVER = metaserver_dialog;	1736	$METASERVER = metaserver_dialog;
		1737	$MESSAGE_WINDOW = new CFPlus::UI::MessageWindow;
1728		1738
1729	$SETUP_DIALOG->add ($SETUP_NOTEBOOK = new CFPlus::UI::Notebook expand => 1, debug => 1,	1739	$SETUP_DIALOG->add ($SETUP_NOTEBOOK = new CFPlus::UI::Notebook expand => 1, debug => 1,
1730	filter => new CFPlus::UI::ScrolledWindow expand => 1, scroll_y => 1);	1740	filter => new CFPlus::UI::ScrolledWindow expand => 1, scroll_y => 1);
1731		1741
1732	$SETUP_NOTEBOOK->add (Server => $SETUP_SERVER = server_setup,	1742	$SETUP_NOTEBOOK->add_tab (Server => $SETUP_SERVER = server_setup,
1733	"Configure the server to play on, your username, password and other server-related options.");	1743	"Configure the server to play on, your username, password and other server-related options.");
1734	$SETUP_NOTEBOOK->add (Pickup => autopickup_setup,	1744	$SETUP_NOTEBOOK->add_tab (Client => client_setup,
1735	"Configure autopickup settings, i.e. which items you will pick up automatically when walking (or running) over them.");	1745	"Configure various client-specific settings.");
1736	$SETUP_NOTEBOOK->add (Graphics => graphics_setup,	1746	$SETUP_NOTEBOOK->add_tab (Graphics => graphics_setup,
1737	"Configure the video mode, performance, fonts and other graphical aspects of the game.");	1747	"Configure the video mode, performance, fonts and other graphical aspects of the game.");
1738	$SETUP_NOTEBOOK->add (Audio => audio_setup,	1748	$SETUP_NOTEBOOK->add_tab (Audio => audio_setup,
1739	"Configure the use of audio, sound effects and background music.");	1749	"Configure the use of audio, sound effects and background music.");
1740	$SETUP_NOTEBOOK->add (Keyboard => $SETUP_KEYBOARD = keyboard_setup,	1750	$SETUP_NOTEBOOK->add_tab (Keyboard => $SETUP_KEYBOARD = keyboard_setup,
1741	"Lets you define, edit and delete key bindings."	1751	"Lets you define, edit and delete key bindings."
1742	. "There is a shortcut for making bindings: <b>Control-Insert</b> opens the binding editor "	1752	. "There is a shortcut for making bindings: <b>Control-Insert</b> opens the binding editor "
1743	. "with nothing set and the recording started. After doing the actions you "	1753	. "with nothing set and the recording started. After doing the actions you "
1744	. "want to record press <b>Insert</b> and you will be asked to press a key-combo. "	1754	. "want to record press <b>Insert</b> and you will be asked to press a key-combo. "
1745	. "After pressing the combo the binding will be saved automatically and the "	1755	. "After pressing the combo the binding will be saved automatically and the "
1746	. "binding editor closes");	1756	. "binding editor closes");
1747	$SETUP_NOTEBOOK->add (Debug => debug_setup,	1757	$SETUP_NOTEBOOK->add_tab (Debug => debug_setup,
1748	"Some debuggin' options. Do not ask.");	1758	"Some debuggin' options. Do not ask.");
1749		1759
1750	$BUTTONBAR = new CFPlus::UI::Buttonbar x => 0, y => 0, z => 200; # put on top	1760	$BUTTONBAR = new CFPlus::UI::Buttonbar x => 0, y => 0, z => 200; # put on top
1751		1761
1752	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Setup", other => $SETUP_DIALOG,	1762	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Setup", other => $SETUP_DIALOG,
1753	tooltip => "Toggles a dialog where you can configure all aspects of this client.");	1763	tooltip => "Toggles a dialog where you can configure all aspects of this client.");
1754		1764
1755	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Message Window", other => $MESSAGE_WINDOW = message_window,	1765	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Message Window", other => $MESSAGE_WINDOW,
1756	tooltip => "Toggles the server message log, where the client collects <i>all</i> messages from the server.");	1766	tooltip => "Toggles the server message log, where the client collects <i>all</i> messages from the server.");
1757		1767
1758	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	1768	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
1759		1769
1760	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Playerbook", other => player_window,	1770	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Playerbook", other => player_window,
…		…
1793	}	1803	}
1794		1804
1795	$STATUSBOX->add ("Set video mode $WIDTH×$HEIGHT", timeout => 10, fg => [1, 1, 1, 0.5]);	1805	$STATUSBOX->add ("Set video mode $WIDTH×$HEIGHT", timeout => 10, fg => [1, 1, 1, 0.5]);
1796	}	1806	}
1797		1807
1798	sub setup_build_button {
1799	my ($enabled) = @_;
1800	if ($enabled) {
1801	$BUILD_BUTTON->hide if $BUILD_BUTTON;
1802	$BUILD_BUTTON ||= new CFPlus::UI::Button
1803	text => "Build",
1804	tooltip => "Opens the ingame builder",
1805	on_activate => sub {
1806	if ($CONN) {
1807	$CONN->send_ext_req (builder_player_items => sub {
1808	open_ingame_editor ($_[0]) if exists $_[0]->{items};
1809	});
1810	}
1811	0
1812	};
1813	$BUTTONBAR->add ($BUILD_BUTTON);
1814	} else {
1815	$BUILD_BUTTON->hide if $BUILD_BUTTON;
1816	}
1817	}
1818
1819	sub open_ingame_editor {
1820	my ($msg) = @_;
1821
1822	my $win = new CFPlus::UI::Toplevel
1823	x => 0,
1824	y => 'center',
1825	z => 4,
1826	name => 'builder_window',
1827	force_w => int $WIDTH * 1/4,
1828	force_h => int $HEIGHT * 3/4,
1829	title => "In game builder",
1830	has_close_button => 1;
1831
1832	my $r = new CFPlus::UI::ScrolledWindow (
1833	expand => 1,
1834	scroll_y => 1
1835	);
1836	$r->add (my $vb = new CFPlus::UI::VBox);
1837	$win->add ($r);
1838
1839
1840	$vb->add (
1841	new CFPlus::UI::Button
1842	text => "Disable build mode",
1843	on_activate => sub { $::IN_BUILD_MODE = undef }
1844	);
1845	$vb->add (
1846	new CFPlus::UI::Button
1847	text => "ERASE",
1848	on_activate => sub { $::IN_BUILD_MODE = { do_erase => 1 } }
1849	);
1850
1851	for my $itemarchname (
1852	sort {
1853	$msg->{items}->{$a}->{build_arch_name}
1854	cmp $msg->{items}->{$b}->{build_arch_name}
1855	} keys %{$msg->{items}}
1856	) {
1857	my $info = $msg->{items}->{$itemarchname};
1858	$vb->add (
1859	new CFPlus::UI::Button text => $info->{build_arch_name},
1860	on_activate => sub {
1861	$::IN_BUILD_MODE = { item => $itemarchname, info => $info };
1862
1863	if (grep { $msg->{items}->{$itemarchname}->{$_} } qw/has_connection has_name has_text/) {
1864	build_mode_query_arch_info ();
1865	}
1866	}
1867	);
1868	}
1869
1870	$win->show;
1871	}
1872
1873	sub build_mode_query_arch_info {
1874	my ($iteminfo) = $::IN_BUILD_MODE;
1875	my $itemarchname = $iteminfo->{item};
1876	my $info = $iteminfo->{info};
1877
1878	my $dialog = new CFPlus::UI::Toplevel
1879	x => "center",
1880	y => "center",
1881	z => 50,
1882	force_w => int $WIDTH * 1/2,
1883	title => "Enter information for placement of '$itemarchname'",
1884	has_close_button => 1;
1885
1886	$dialog->add (my $vb = new CFPlus::UI::VBox expand => 1);
1887
1888	$vb->add (my $table = new CFPlus::UI::Table expand => 1);
1889	my $row = 0;
1890	if ($info->{has_name}) {
1891	$table->add (0, $row, new CFPlus::UI::Label text => "Name:");
1892	$table->add (1, $row++, new CFPlus::UI::Entry expand => 1, on_changed => sub { $::IN_BUILD_MODE->{name} = $_[1]; 0 });
1893	}
1894	if ($info->{has_text}) {
1895	$table->add (0, $row, new CFPlus::UI::Label text => "Text:");
1896	$table->add (1, $row++, new CFPlus::UI::Entry expand => 1, on_changed => sub { $::IN_BUILD_MODE->{text} = $_[1]; 0 });
1897	}
1898	if ($info->{has_connection}) {
1899	$table->add (0, $row, new CFPlus::UI::Label text => "Connection ID:");
1900	$table->add (1, $row++,
1901	new CFPlus::UI::Entry
1902	expand => 1,
1903	on_changed => sub { $::IN_BUILD_MODE->{connection} = $_[1]; 0 },
1904	tooltip => "Enter the connection ID here. The connection ID connects actors like a lever to a gate or a magic ear to a gate"
1905	);
1906	}
1907
1908	$vb->add (my $hb = new CFPlus::UI::HBox expand => 1);
1909	$hb->add (new CFPlus::UI::Button
1910	text => "Close",
1911	expand => 1,
1912	on_activate => sub { $dialog->hide; 0 },
1913	);
1914	$dialog->show;
1915	}
1916
1917	sub video_shutdown {	1808	sub video_shutdown {
1918	CFPlus::OpenGL::shutdown;	1809	CFPlus::OpenGL::shutdown;
1919		1810
1920	undef $SDL_ACTIVE;	1811	undef $SDL_ACTIVE;
1921	}	1812	}
1922		1813
1923	my @bgmusic = qw(game1.ogg game2.ogg game3.ogg game5.ogg game6.ogg ross1.ogg ross2.ogg ross3.ogg ross4.ogg ross5.ogg); #d#
1924	my $bgmusic;#TODO#hack#d#
1925
1926	sub audio_channel_finished {	1814	sub audio_channel_finished {
1927	my ($channel) = @_;	1815	my ($channel) = @_;
1928		1816
1929	#warn "channel $channel finished\n";#d#	1817	#warn "channel $channel finished\n";#d#
1930	}	1818	}
1931		1819
		1820	sub audio_music_set {
		1821	my ($songs) = @_;
		1822
		1823	my @want =
		1824	grep $_,
		1825	map $CONN->{music_meta}{$_},
		1826	@$songs;
		1827
		1828	if (@want) {
		1829	@MUSIC_WANT = @want;
		1830	&audio_music_changed ();
		1831	}
		1832	}
		1833
		1834	sub audio_music_start {
		1835	my $path = $MUSIC_PLAYING->{path}
		1836	or return;
		1837
		1838	CFPlus::DB::prefetch_file $path, 1024_000, sub {
		1839	return unless $SDL_MIXER;
		1840
		1841	# music might have changed...
		1842	$path eq $MUSIC_PLAYING->{path}
		1843	or return &audio_music_start ();
		1844
		1845	$MUSIC_PLAYER = new_from_file CFPlus::MixMusic $path;
		1846
		1847	my $NOW = time;
		1848
		1849	if ($MUSIC_PLAYING->{stop_time} > $NOW - $MUSIC_RESUME) {
		1850	my $pos = $MUSIC_PLAYING->{stop_pos};
		1851	$MUSIC_PLAYER->fade_in_pos (0, 1000, $pos);
		1852	$MUSIC_START = time - $pos;
		1853	} else {
		1854	$MUSIC_PLAYER->play (0);
		1855	$MUSIC_START = time;
		1856	}
		1857
		1858	delete $MUSIC_PLAYING->{stop_time};
		1859	delete $MUSIC_PLAYING->{stop_pos};
		1860	}
		1861	}
		1862
		1863	sub audio_music_changed {
		1864	return unless $CFG->{bgm_enable};
		1865	return unless $SDL_MIXER;
		1866
		1867	# default MUSIC_WANT == MUSIC_DEFAULT
		1868	@MUSIC_WANT = { path => CFPlus::find_rcfile "music/$MUSIC_DEFAULT" } unless @MUSIC_WANT;
		1869
		1870	# if the currently playing song is acceptable, let it continue
		1871	return if $MUSIC_PLAYING
		1872	&& grep $MUSIC_PLAYING->{path} eq $_->{path}, @MUSIC_WANT;
		1873
		1874	my $NOW = time;
		1875
		1876	if ($MUSIC_PLAYING) {
		1877	$MUSIC_PLAYING->{stop_time} = $NOW;
		1878	$MUSIC_PLAYING->{stop_pos} = $NOW - $MUSIC_START;
		1879	CFPlus::MixMusic::fade_out 1000;
		1880	} else {
		1881	# sort by stop time, oldest first
		1882	@MUSIC_WANT = sort { $a->{stop_time} <=> $b->{stop_time} } @MUSIC_WANT;
		1883
		1884	# if the most recently-played piece played very recently,
		1885	# resume it, else choose the oldest piece for rotation.
		1886	$MUSIC_PLAYING =
		1887	$MUSIC_WANT[-1]{stop_time} > $NOW - $MUSIC_RESUME
		1888	? $MUSIC_WANT[-1]
		1889	: $MUSIC_WANT[0];
		1890
		1891	audio_music_start;
		1892	}
		1893	}
		1894
1932	sub audio_music_finished {	1895	sub audio_music_finished {
1933	return unless $CFG->{bgm_enable};	1896	$MUSIC_PLAYING = undef;
		1897	undef $MUSIC_PLAYER;
1934		1898
1935	# TODO: hack, do play loop and mood music	1899	audio_music_changed;
1936	$bgmusic = new_from_file CFPlus::MixMusic CFPlus::find_rcfile "music/$bgmusic[0]";
1937	$bgmusic->play (0);
1938
1939	push @bgmusic, shift @bgmusic;
1940	}	1900	}
1941		1901
1942	sub audio_init {	1902	sub audio_init {
1943	if ($CFG->{audio_enable}) {	1903	if ($CFG->{audio_enable}) {
1944	if (open my $fh, "<", CFPlus::find_rcfile "sounds/config") {	1904	if (open my $fh, "<", CFPlus::find_rcfile "sounds/config") {
…		…
1970	};	1930	};
1971	}	1931	}
1972	} else {	1932	} else {
1973	status "unable to open sound config: $!";	1933	status "unable to open sound config: $!";
1974	}	1934	}
		1935	} else {
		1936	undef $SDL_MIXER;
1975	}	1937	}
1976	}	1938	}
1977		1939
1978	sub audio_shutdown {	1940	sub audio_shutdown {
1979	CFPlus::Mix_CloseAudio if $SDL_MIXER;	1941	CFPlus::Mix_CloseAudio if $SDL_MIXER;
…		…
1994	debug sprintf "%3.2f", $fps if $ENV{CFPLUS_DEBUG} & 4;	1956	debug sprintf "%3.2f", $fps if $ENV{CFPLUS_DEBUG} & 4;
1995		1957
1996	$CFPlus::UI::ROOT->draw;	1958	$CFPlus::UI::ROOT->draw;
1997		1959
1998	$WANT_REFRESH = 0;	1960	$WANT_REFRESH = 0;
1999	$CAN_REFRESH = 0;	1961	$CAN_REFRESH = 0;
2000	$LAST_REFRESH = $NOW;	1962	$LAST_REFRESH = $NOW;
2001		1963
2002	CFPlus::SDL_GL_SwapBuffers;	1964	CFPlus::SDL_GL_SwapBuffers;
2003	}	1965	}
2004		1966
2005	my $refresh_watcher = Event->timer (after => 0, hard => 0, interval => 1 / $MAX_FPS, cb => sub {	1967	my $refresh_watcher = Event->timer (after => 0, hard => 0, interval => 1 / $MAX_FPS, cb => sub {
2006	$NOW = time;	1968	$NOW = time;
2007		1969
2008	($SDL_CB{$_->{type}} || sub { warn "unhandled event $_->{type}" })->($_)	1970	($SDL_CB{$_->{type}} || sub { warn "unhandled event $_->{type}" })->($_)
2009	for CFPlus::SDL_PollEvent;	1971	for CFPlus::poll_events;
2010		1972
2011	if (%animate_object) {	1973	if (%animate_object) {
2012	$_->animate ($LAST_REFRESH - $NOW) for values %animate_object;	1974	$_->animate ($LAST_REFRESH - $NOW) for values %animate_object;
2013	$WANT_REFRESH++;	1975	++$WANT_REFRESH;
2014	}	1976	}
2015		1977
2016	if ($WANT_REFRESH) {	1978	if ($WANT_REFRESH) {
2017	force_refresh;	1979	force_refresh;
2018	} else {	1980	} else {
…		…
2039	if $CONN;	2001	if $CONN;
2040	});	2002	});
2041		2003
2042	%SDL_CB = (	2004	%SDL_CB = (
2043	CFPlus::SDL_QUIT => sub {	2005	CFPlus::SDL_QUIT => sub {
2044	Event::unloop -1;	2006	exit;
2045	},	2007	},
2046	CFPlus::SDL_VIDEORESIZE => sub {	2008	CFPlus::SDL_VIDEORESIZE => sub {
2047	},	2009	},
2048	CFPlus::SDL_VIDEOEXPOSE => sub {	2010	CFPlus::SDL_VIDEOEXPOSE => sub {
2049	CFPlus::UI::full_refresh;	2011	CFPlus::UI::full_refresh;
2050	},	2012	},
2051	CFPlus::SDL_ACTIVEEVENT => sub {	2013	CFPlus::SDL_ACTIVEEVENT => sub {
2052	# not useful, as APPACTIVE include sonly iconified state, not unmapped	2014	# not useful, as APPACTIVE include sonly iconified state, not unmapped
2053	# printf "active %x %x\n", $_[0]{gain}, $_[0]{state};#d#	2015	# printf "active %x %x %x\n", $_[0]{gain}, $_[0]{state}, CFPlus::SDL_GetAppState;#d#
		2016	# printf "a %x\n", CFPlus::SDL_GetAppState & CFPlus::SDL_APPACTIVE;#d#
2054	# printf "A\n" if $_[0]{state} & CFPlus::SDL_APPACTIVE;	2017	# printf "A\n" if $_[0]{state} & CFPlus::SDL_APPACTIVE;
2055	# printf "K\n" if $_[0]{state} & CFPlus::SDL_APPINPUTFOCUS;	2018	# printf "K\n" if $_[0]{state} & CFPlus::SDL_APPINPUTFOCUS;
2056	# printf "M\n" if $_[0]{state} & CFPlus::SDL_APPMOUSEFOCUS;	2019	# printf "M\n" if $_[0]{state} & CFPlus::SDL_APPMOUSEFOCUS;
2057	},	2020	},
2058	CFPlus::SDL_KEYDOWN => sub {	2021	CFPlus::SDL_KEYDOWN => sub {
…		…
2082		2045
2083	$SIG{INT} = $SIG{TERM} = sub { exit };	2046	$SIG{INT} = $SIG{TERM} = sub { exit };
2084		2047
2085	{	2048	{
2086	CFPlus::read_cfg "$Crossfire::VARDIR/cfplusrc";	2049	CFPlus::read_cfg "$Crossfire::VARDIR/cfplusrc";
		2050	CFPlus::DB::Server::run;
		2051
2087	CFPlus::UI::set_layout ($::CFG->{layout});	2052	CFPlus::UI::set_layout ($::CFG->{layout});
2088		2053
2089	my %DEF_CFG = (	2054	my %DEF_CFG = (
2090	sdl_mode => 0,	2055	sdl_mode => 0,
2091	width => 640,	2056	width => 640,
2092	height => 480,	2057	height => 480,
2093	fullscreen => 0,	2058	fullscreen => 0,
2094	fast => 0,	2059	fast => 0,
2095	map_scale => 1,	2060	map_scale => 1,
2096	fow_enable => 1,	2061	fow_enable => 1,
2097	fow_intensity => 0.45,	2062	fow_intensity => 0,
2098	fow_smooth => 0,	2063	map_smoothing => 1,
2099	gui_fontsize => 1,	2064	gui_fontsize => 1,
2100	log_fontsize => 0.7,	2065	log_fontsize => 0.7,
2101	gauge_fontsize => 1,	2066	gauge_fontsize => 1,
2102	gauge_size => 0.35,	2067	gauge_size => 0.35,
2103	stat_fontsize => 0.7,	2068	stat_fontsize => 0.7,
2104	mapsize => 100,	2069	mapsize => 100,
2105	say_command => 'chat',
2106	audio_enable => 1,	2070	audio_enable => 1,
2107	bgm_enable => 1,	2071	bgm_enable => 1,
2108	bgm_volume => 0.25,	2072	bgm_volume => 0.25,
2109	face_prefetch => 0,	2073	face_prefetch => 0,
2110	output_sync => 1,	2074	output_sync => 1,
2111	output_count => 1,	2075	output_count => 1,
2112	output_rate => "",	2076	output_rate => "",
2113	pickup => 0,	2077	pickup => 0,
2114	inv_sort => "mtime",	2078	inv_sort => "mtime",
2115	default => "profile", # default profile	2079	default => "profile", # default profile
2116	show_tips => 1,	2080	show_tips => 1,
		2081	logview_max_par => 1000,
2117	);	2082	);
2118		2083
2119	while (my ($k, $v) = each %DEF_CFG) {	2084	while (my ($k, $v) = each %DEF_CFG) {
2120	$CFG->{$k} = $v unless exists $CFG->{$k};	2085	$CFG->{$k} = $v unless exists $CFG->{$k};
2121	}	2086	}
…		…
2135	}	2100	}
2136	}	2101	}
2137		2102
2138	sdl_init;	2103	sdl_init;
2139		2104
2140	@SDL_MODES = reverse	2105	@SDL_MODES = CFPlus::SDL_ListModes 8, 8;
2141	grep $_->[0] >= 640 && $_->[1] >= 480,	2106	@SDL_MODES = CFPlus::SDL_ListModes 5, 0 unless @SDL_MODES;
2142	CFPlus::SDL_ListModes;
2143
2144	@SDL_MODES or CFPlus::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)";	2107	@SDL_MODES or CFPlus::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)";
		2108
		2109	@SDL_MODES = sort { $a->[0] * $a->[1] <=> $b->[0] * $b->[1] } @SDL_MODES;
2145		2110
2146	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES;	2111	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES;
2147		2112
2148	{	2113	{
2149	my @fonts = map CFPlus::find_rcfile "fonts/$_", qw(	2114	my @fonts = map CFPlus::find_rcfile "fonts/$_", qw(
…		…
2190		2155
2191	Event::loop;	2156	Event::loop;
2192	#CFPlus::SDL_Quit;	2157	#CFPlus::SDL_Quit;
2193	#CFPlus::_exit 0;	2158	#CFPlus::_exit 0;
2194		2159
		2160	END {
2195	END { CFPlus::SDL_Quit }	2161	CFPlus::SDL_Quit;
		2162	CFPlus::DB::Server::stop;
		2163	}
2196		2164
2197	=head1 NAME	2165	=head1 NAME
2198		2166
2199	cfplus - A Crossfire+ and Crossfire game client	2167	cfplus - A Crossfire+ and Crossfire game client
2200		2168

Diff Legend

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