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.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};
179	}	199	}
180		200
		201	# FIXME: a very ugly hack to wait for stat update look below! #d#
		202	our $QUERY_TIMER; #d#
		203
181	# server query dialog	204	# server query dialog
182	sub server_query {	205	sub server_query {
183	my ($conn, $flags, $prompt) = @_;	206	my ($conn, $flags, $prompt) = @_;
		207
		208	# FIXME: a very ugly hack to wait for stat update #d#
		209	if ($prompt =~ /roll new stats/ and not $conn->{stat_change_with}) {
		210	unless ($QUERY_TIMER) {
		211	$QUERY_TIMER =
		212	Event->timer (
		213	after => 1,
		214	cb => sub {
		215	server_query ($conn, $flags, $prompt, 1);
		216	$QUERY_TIMER = undef
		217	}
		218	);
		219	return;
		220	}
		221	}
184		222
185	$conn->{query_dialog} = my $dialog = new CFPlus::UI::Toplevel	223	$conn->{query_dialog} = my $dialog = new CFPlus::UI::Toplevel
186	x => "center",	224	x => "center",
187	y => "center",	225	y => "center",
188	title => "Server Query",	226	title => "Server Query",
189	child => my $vbox = new CFPlus::UI::VBox,	227	child => my $vbox = new CFPlus::UI::VBox,
190	;	228	;
191		229
192	my @dialog = my $label = new CFPlus::UI::Label	230	my @dialog = my $label = new CFPlus::UI::Label
193	max_w => $::WIDTH * 0.4,	231	max_w => $::WIDTH * 0.8,
194	ellipsise => 0,	232	ellipsise => 0,
195	text => $prompt;	233	text => $prompt;
196		234
197	if ($flags & CS_QUERY_YESNO) {	235	if ($flags & CS_QUERY_YESNO) {
198	push @dialog, my $hbox = new CFPlus::UI::HBox;	236	push @dialog, my $hbox = new CFPlus::UI::HBox;
…		…
215	);	253	);
216		254
217	$dialog->grab_focus;	255	$dialog->grab_focus;
218		256
219	} elsif ($flags & CS_QUERY_SINGLECHAR) {	257	} 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) {	258	if ($prompt =~ /Now choose a character|Press any key for the next race/i) {
223	$MESSAGE_WINDOW->show;	259	$dialog->{tooltip} = "#charcreation_focus";
224		260
225	unshift @dialog, new CFPlus::UI::Label	261	unshift @dialog, new CFPlus::UI::Label
226	max_w => $::WIDTH * 0.4,	262	max_w => $::WIDTH * 0.8,
227	ellipsise => 0,	263	ellipsise => 0,
228	markup => "\nOr use your keyboard and the text entry below:\n";	264	markup => "\nOr use your keyboard and the text entry below:\n";
229		265
230	unshift @dialog, my $table = new CFPlus::UI::Table;	266	unshift @dialog, my $table = new CFPlus::UI::Table;
231		267
232	$table->add (0, 0, new CFPlus::UI::Button	268	$table->add_at (0, 0, new CFPlus::UI::Button
233	text => "Next Race",	269	text => "Next Race",
234	on_activate => sub {	270	on_activate => sub {
235	$conn->send ("reply n");	271	$conn->send ("reply n");
236	destroy_query_dialog $conn;	272	destroy_query_dialog $conn;
237	0	273	0
238	},	274	},
239	);	275	);
240	$table->add (2, 0, new CFPlus::UI::Button	276	$table->add_at (2, 0, new CFPlus::UI::Button
241	text => "Accept",	277	text => "Accept",
242	on_activate => sub {	278	on_activate => sub {
243	$conn->send ("reply d");	279	$conn->send ("reply d");
244	destroy_query_dialog $conn;	280	destroy_query_dialog $conn;
245	0	281	0
246	},	282	},
247	);	283	);
248		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
249	unshift @dialog, new CFPlus::UI::Label	308	unshift @dialog, new CFPlus::UI::Label
250	max_w => $::WIDTH * 0.4,	309	max_w => $::WIDTH * 0.4,
251	ellipsise => 0,	310	ellipsise => 0,
252	markup => (CFPlus::Pod::section_label ui => "chargen_race"),	311	markup => (CFPlus::Pod::section_label ui => "chargen_race"),
253	;	312	;
…		…
257	$conn->send ("reply $stat");	316	$conn->send ("reply $stat");
258	destroy_query_dialog $conn;	317	destroy_query_dialog $conn;
259	return;	318	return;
260	}	319	}
261		320
262	$STATS_PAGE->show;
263	$MESSAGE_WINDOW->hide;
264
265	unshift @dialog, new CFPlus::UI::Label	321	unshift @dialog, new CFPlus::UI::Label
266	max_w => $::WIDTH * 0.4,	322	max_w => $::WIDTH * 0.4,
267	ellipsise => 0,	323	ellipsise => 0,
268	markup => "\nOr use your keyboard and the text entry below:\n";	324	markup => "\nOr use your keyboard and the text entry below:\n";
269		325
270	unshift @dialog, my $table = new CFPlus::UI::Table;	326	unshift @dialog, my $table = new CFPlus::UI::Table;
271		327
272	# left: re-roll	328	# left: re-roll
273	$table->add (0, 0, new CFPlus::UI::Button	329	$table->add_at (0, 0, new CFPlus::UI::Button
274	text => "Roll Again",	330	text => "Roll Again",
275	on_activate => sub {	331	on_activate => sub {
276	$conn->send ("reply y");	332	$conn->send ("reply y");
277	destroy_query_dialog $conn;	333	destroy_query_dialog $conn;
278	0	334	0
…		…
292	[6 => "Pow", "Power ($conn->{stat}{+CS_STAT_POW})"],	348	[6 => "Pow", "Power ($conn->{stat}{+CS_STAT_POW})"],
293	[7 => "Cha", "Charisma ($conn->{stat}{+CS_STAT_CHA})"],	349	[7 => "Cha", "Charisma ($conn->{stat}{+CS_STAT_CHA})"],
294	],	350	],
295	), 1 .. 2;	351	), 1 .. 2;
296		352
297	$table->add (2, 0, new CFPlus::UI::Button	353	$table->add_at (2, 0, new CFPlus::UI::Button
298	text => "Swap Stats",	354	text => "Swap Stats",
299	on_activate => sub {	355	on_activate => sub {
300	$conn->{stat_change_with} = $sw2->{value};	356	$conn->{stat_change_with} = $sw2->{value};
301	$conn->send ("reply $sw1->{value}");	357	$conn->send ("reply $sw1->{value}");
302	destroy_query_dialog $conn;	358	destroy_query_dialog $conn;
303	0	359	0
304	},	360	},
305	);	361	);
306	$table->add (2, 1, new CFPlus::UI::HBox children => [$sw1, $sw2]);	362	$table->add_at (2, 1, new CFPlus::UI::HBox children => [$sw1, $sw2]);
307		363
308	# right: accept	364	# right: accept
309	$table->add (4, 0, new CFPlus::UI::Button	365	$table->add_at (4, 0, new CFPlus::UI::Button
310	text => "Accept",	366	text => "Accept",
311	on_activate => sub {	367	on_activate => sub {
312	$conn->send ("reply n");	368	$conn->send ("reply n");
313	$STATS_PAGE->hide;	369	$STATS_PAGE->hide;
314	destroy_query_dialog $conn;	370	destroy_query_dialog $conn;
…		…
395	maph => $mapsize,	451	maph => $mapsize,
396		452
397	client => "cfplus $CFPlus::VERSION $] $^O",	453	client => "cfplus $CFPlus::VERSION $] $^O",
398		454
399	map_widget => $MAPWIDGET,	455	map_widget => $MAPWIDGET,
400	logview => $LOGVIEW,
401	statusbox => $STATUSBOX,	456	statusbox => $STATUSBOX,
402	map => $MAP,	457	map => $MAP,
403	mapmap => $MAPMAP,	458	mapmap => $MAPMAP,
404	query => \&server_query,	459	query => \&server_query,
		460
		461	setup_req => {
		462	smoothing => $CFG->{map_smoothing}*1,
		463	},
405		464
406	sound_play => sub {	465	sound_play => sub {
407	my ($x, $y, $soundnum, $type) = @_;	466	my ($x, $y, $soundnum, $type) = @_;
408		467
409	$SDL_MIXER	468	$SDL_MIXER
…		…
430	$LOGIN_BUTTON->set_text ("Login");	489	$LOGIN_BUTTON->set_text ("Login");
431	$SETUP_NOTEBOOK->set_current_page ($SETUP_SERVER);	490	$SETUP_NOTEBOOK->set_current_page ($SETUP_SERVER);
432	$SETUP_DIALOG->show;	491	$SETUP_DIALOG->show;
433	$PL_WINDOW->hide;	492	$PL_WINDOW->hide;
434	$SPELL_LIST->clear_spells;	493	$SPELL_LIST->clear_spells;
		494	$CFPlus::UI::ROOT->emit (stop_game => ! ! $CONN);
		495
		496	&audio_music_set ([]);
435		497
436	return unless $CONN;	498	return unless $CONN;
437		499
438	status "connection closed";	500	status "connection closed";
439		501
…		…
447	sub graphics_setup {	509	sub graphics_setup {
448	my $vbox = new CFPlus::UI::VBox;	510	my $vbox = new CFPlus::UI::VBox;
449		511
450	$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]);
451		513
		514	my $row = 0;
		515
		516	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "OpenGL Info");
		517	$table->add_at (1, $row++, new CFPlus::UI::Label valign => 0, fontsize => 0.8, text => CFPlus::OpenGL::gl_vendor . ", " . CFPlus::OpenGL::gl_version,
		518	can_events => 1,
		519	tooltip => "<tt><span size='8192'>" . (CFPlus::OpenGL::gl_extensions) . "</span></tt>");
		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
452	$table->add (0, 0, 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");
453	$table->add (1, 0, my $hbox = new CFPlus::UI::HBox);	526	$table->add_at (1, $row++, my $hbox = new CFPlus::UI::HBox);
454		527
		528	$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]);	529	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");	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);
457		534
458	$mode_slider->connect (changed => sub {	535	$mode_slider->connect (changed => sub {
459	my ($self, $value) = @_;	536	my ($self, $value) = @_;
460		537
461	$CFG->{sdl_mode} = $self->{range}[0] = $value = int $value;	538	$CFG->{sdl_mode} = $self->{range}[0] = $value = int $value;
462	$mode_label->set_text (sprintf "%dx%d", @{$SDL_MODES[$value]});	539	$mode_label->set_text (sprintf '%dx%d@%d+%d', @{$SDL_MODES[$value]});
463	});	540	});
464	$mode_slider->emit (changed => $mode_slider->{range}[0]);	541	$mode_slider->emit (changed => $mode_slider->{range}[0]);
465		542
466	my $row = 1;
467
468	$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");
469	$table->add (1, $row++, $FULLSCREEN_ENABLE = new CFPlus::UI::CheckBox	544	$table->add_at (1, $row++, $FULLSCREEN_ENABLE = new CFPlus::UI::CheckBox
470	state => $CFG->{fullscreen},	545	state => $CFG->{fullscreen},
471	tooltip => "Bring the client into fullscreen mode.",	546	tooltip => "Bring the client into fullscreen mode.",
472	on_changed => sub { my ($self, $value) = @_; $CFG->{fullscreen} = $value; 0 }	547	on_changed => sub { my ($self, $value) = @_; $CFG->{fullscreen} = $value; 0 }
473	);	548	);
474		549
475	$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");
476	$table->add (1, $row++, new CFPlus::UI::CheckBox	551	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
477	state => $CFG->{fast},	552	state => $CFG->{fast},
478	tooltip => "Lower the visual quality considerably to speed up rendering.",	553	tooltip => "Lower the visual quality considerably to speed up rendering.",
479	on_changed => sub { my ($self, $value) = @_; $CFG->{fast} = $value; 0 }	554	on_changed => sub { my ($self, $value) = @_; $CFG->{fast} = $value; 0 }
480	);	555	);
481		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
482	$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");
483	$table->add (1, $row++, new CFPlus::UI::Slider	575	$table->add_at (1, $row++, new CFPlus::UI::Slider
484	range => [(log $CFG->{map_scale}) / (log 2), -3, 1, 0, 1],	576	range => [(log $CFG->{map_scale}) / (log 2), -3, 1, 0, 1],
485	tooltip => "Enlarge or shrink the displayed map. Changes are instant.",	577	tooltip => "Enlarge or shrink the displayed map. Changes are instant.",
486	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 }
487	);	579	);
488		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
489	$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");
490	$table->add (1, $row++, new CFPlus::UI::CheckBox	591	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
491	state => $CFG->{fow_enable},	592	state => $CFG->{fow_enable},
492	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.",
493	on_changed => sub { my ($self, $value) = @_; $CFG->{fow_enable} = $value; 0 }	594	on_changed => sub { my ($self, $value) = @_; $CFG->{fow_enable} = $value; 0 }
494	);	595	);
495		596
496	$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");
497	$table->add (1, $row++, new CFPlus::UI::Slider	598	$table->add_at (1, $row++, new CFPlus::UI::Slider
498	range => [$CFG->{fow_intensity}, 0, 1, 0, 1 / 256],	599	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.",	600	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 }	601	on_changed => sub { my ($self, $value) = @_; $CFG->{fow_intensity} = $value; 0 }
501	);	602	);
502		603
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");	604	$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	605	$table->add_at (1, $row++, new CFPlus::UI::Slider
524	range => [$CFG->{log_fontsize}, 0.5, 2, 0, 0.1],	606	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.",	607	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 },	608	on_changed => sub { $MESSAGE_WINDOW->set_fontsize ($CFG->{log_fontsize} = $_[1]); 0 },
527	);	609	);
528		610
529	$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");
530	$table->add (1, $row++, new CFPlus::UI::Slider	612	$table->add_at (1, $row++, new CFPlus::UI::Slider
531	range => [$CFG->{gauge_fontsize}, 0.5, 2, 0, 0.1],	613	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.",	614	tooltip => "Adjusts the fontsize of the gauges at the bottom right. Changes are instant.",
533	on_changed => sub {	615	on_changed => sub {
534	$CFG->{gauge_fontsize} = $_[1];	616	$CFG->{gauge_fontsize} = $_[1];
535	&set_gauge_window_fontsize;	617	&set_gauge_window_fontsize;
536	0	618	0
537	}	619	}
538	);	620	);
539		621
540	$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");
541	$table->add (1, $row++, new CFPlus::UI::Slider	623	$table->add_at (1, $row++, new CFPlus::UI::Slider
542	range => [$CFG->{gauge_size}, 0.2, 0.8],	624	range => [$CFG->{gauge_size}, 0.2, 0.8],
543	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.",
544	on_changed => sub {	626	on_changed => sub {
545	$CFG->{gauge_size} = $_[1];	627	$CFG->{gauge_size} = $_[1];
546	$GAUGES->{win}->set_size ($WIDTH, int $HEIGHT * $CFG->{gauge_size});	628	$GAUGES->{win}->set_size ($WIDTH, int $HEIGHT * $CFG->{gauge_size});
547	0	629	0
548	}	630	}
549	);	631	);
550		632
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	633	$vbox
562	}	634	}
563		635
564	sub audio_setup {	636	sub audio_setup {
565	my $vbox = new CFPlus::UI::VBox;	637	my $vbox = new CFPlus::UI::VBox;
566		638
567	$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]);
568		640
569	my $row = 0;	641	my $row = 0;
570		642
571	$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");
572	$table->add (1, $row++, new CFPlus::UI::CheckBox	644	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
573	state => $CFG->{audio_enable},	645	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.",	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.",
575	on_changed => sub { $CFG->{audio_enable} = $_[1]; 0 }	647	on_changed => sub { $CFG->{audio_enable} = $_[1]; 0 }
576	);	648	);
577	# $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");
578	# $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 {
579	# $CFG->{effects_volume} = $_[1];	651	# $CFG->{effects_volume} = $_[1];
580	# });	652	# });
581	$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");
582	$table->add (1, $row++, my $hbox = new CFPlus::UI::HBox);	654	$table->add_at (1, $row++, my $hbox = new CFPlus::UI::HBox);
583	$hbox->add (new CFPlus::UI::CheckBox	655	$hbox->add (new CFPlus::UI::CheckBox
584	expand => 1, state => $CFG->{bgm_enable},	656	expand => 1, state => $CFG->{bgm_enable},
585	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.",
586	on_changed => sub { $CFG->{bgm_enable} = $_[1]; 0 }	658	on_changed => sub { $CFG->{bgm_enable} = $_[1]; 0 }
587	);	659	);
…		…
589	expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0, 1/128],	661	expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0, 1/128],
590	tooltip => "The volume of the background music. Changes are instant.",	662	tooltip => "The volume of the background music. Changes are instant.",
591	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 }
592	);	664	);
593		665
594	$table->add (1, $row++, new CFPlus::UI::Button	666	$table->add_at (1, $row++, new CFPlus::UI::Button
595	expand => 1, align => 0, text => "Apply",	667	expand => 1, align => 0, text => "Apply",
596	tooltip => "Apply the audio settings",	668	tooltip => "Apply the audio settings",
597	on_activate => sub {	669	on_activate => sub {
598	audio_shutdown ();	670	audio_shutdown ();
599	audio_init ();	671	audio_init ();
…		…
658	}	730	}
659		731
660	sub debug_setup {	732	sub debug_setup {
661	my $table = new CFPlus::UI::Table;	733	my $table = new CFPlus::UI::Table;
662		734
663	$table->add (0, 0, new CFPlus::UI::Label text => "Widget Borders");	735	$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 });	736	$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");	737	$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 });	738	$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");	739	$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 });	740	$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");	741	$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 });	742	$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" } );	743	$table->add_at (0, 4, new CFPlus::UI::Button text => "die on click(tm)", on_activate => sub { &CFPlus::debug() } );
672		744
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#	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	});
686		779
687	$table	780	$table
688	}	781	}
689		782
690	sub stats_window {	783	sub stats_window {
…		…
738	[2, 4, st_spd => "Spd", 10.54],	831	[2, 4, st_spd => "Spd", 10.54],
739	[2, 5, st_wspd => "WSp", 10.54],	832	[2, 5, st_wspd => "WSp", 10.54],
740	) {	833	) {
741	my ($col, $row, $id, $label, $template) = @$_;	834	my ($col, $row, $id, $label, $template) = @$_;
742		835
743	$tbl->add ($col , $row, $STATWIDS->{$id} = new CFPlus::UI::Label	836	$tbl->add_at ($col , $row, $STATWIDS->{$id} = new CFPlus::UI::Label
744	font => $FONT_FIXED, can_hover => 1, can_events => 1, valign => 0,	837	font => $FONT_FIXED, can_hover => 1, can_events => 1, valign => 0,
745	align => +1, template => $template, tooltip => "#stat_$label");	838	align => +1, template => $template, tooltip => "#stat_$label");
746	$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
747	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,
748	align => -1, text => $label, tooltip => "#stat_$label");	841	align => -1, text => $label, tooltip => "#stat_$label");
749	}	842	}
750		843
751	$vb->add (new CFPlus::UI::FancyFrame	844	$vb->add (new CFPlus::UI::FancyFrame
…		…
792	cold => ["Cold",	885	cold => ["Cold",
793	"<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, ...)"],
794	ghit => ["Ghost hit",	887	ghit => ["Ghost hit",
795	"<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)"],
796	);	889	);
		890
797	for (qw/slow holyw conf fire depl magic	891	for (qw/slow holyw conf fire depl magic
798	drain acid pois para deat phys	892	drain acid pois para deat phys
799	blind fear tund elec cold ghit/)	893	blind fear tund elec cold ghit/)
800	{	894	{
801	$tbl2->add ($col, $row,	895	$tbl2->add_at ($col, $row,
802	$STATWIDS->{"res_$_"} =	896	$STATWIDS->{"res_$_"} =
803	new CFPlus::UI::Label	897	new CFPlus::UI::Label
804	font => $FONT_FIXED,	898	font => $FONT_FIXED,
805	template => "-100%",	899	template => "-100%",
806	align => +1,	900	align => +1,
807	valign => 0,	901	valign => 0,
808	can_events => 1,	902	can_events => 1,
809	can_hover => 1,	903	can_hover => 1,
810	tooltip => $resist_names{$_}->[1],	904	tooltip => $resist_names{$_}->[1],
811	);	905	);
812	$tbl2->add ($col + 1, $row, new CFPlus::UI::Image	906	$tbl2->add_at ($col + 1, $row, new CFPlus::UI::Image
813	font => $FONT_FIXED,	907	font => $FONT_FIXED,
814	can_hover => 1,	908	can_hover => 1,
815	can_events => 1,	909	can_events => 1,
816	path => "ui/resist/resist_$_.png",	910	path => "ui/resist/resist_$_.png",
817	tooltip => $resist_names{$_}->[1],	911	tooltip => $resist_names{$_}->[1],
818	);	912	);
819	$tbl2->add ($col + 2, $row, new CFPlus::UI::Label	913	$tbl2->add_at ($col + 2, $row, new CFPlus::UI::Label
820	text => $resist_names{$_}->[0],	914	text => $resist_names{$_}->[0],
821	font => $FONT_FIXED,	915	font => $FONT_FIXED,
822	can_hover => 1,	916	can_hover => 1,
823	can_events => 1,	917	can_events => 1,
824	tooltip => $resist_names{$_}->[1],	918	tooltip => $resist_names{$_}->[1],
…		…
857	return if $METASERVER_ATIME > time;	951	return if $METASERVER_ATIME > time;
858	$METASERVER_ATIME = time + 60;	952	$METASERVER_ATIME = time + 60;
859		953
860	my $table = $METASERVER->{table};	954	my $table = $METASERVER->{table};
861	$table->clear;	955	$table->clear;
862	$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...");
863		957
864	my $ok = 0;	958	my $ok = 0;
865		959
866	CFPlus::background {	960	CFPlus::background {
867	my $ua = CFPlus::lwp_useragent;	961	my $ua = CFPlus::lwp_useragent;
…		…
878	"The time this server has been running without being restarted.",	972	"The time this server has been running without being restarted.",
879	"The server software version - a '+' indicates a Crossfire+ server.",	973	"The server software version - a '+' indicates a Crossfire+ server.",
880	"Short information about this server provided by its admins.",	974	"Short information about this server provided by its admins.",
881	);	975	);
882	my @col = qw(#Users Host Uptime Version Description);	976	my @col = qw(#Users Host Uptime Version Description);
883	$table->add ($_, 0, new CFPlus::UI::Label	977	$table->add_at ($_, 0, new CFPlus::UI::Label
884	can_hover => 1, can_events => 1,	978	can_hover => 1, can_events => 1,
885	align => 0, fg => [1, 1, 0],	979	align => 0, fg => [1, 1, 0],
886	text => $col[$_], tooltip => $tip[$_])	980	text => $col[$_], tooltip => $tip[$_])
887	for 0 .. $#col;	981	for 0 .. $#col;
888		982
889	my @align = qw(1 0 1 1 -1);	983	my @align = qw(1 0 1 1 -1);
890		984
891	my $y = 0;	985	my $y = 0;
892	for my $m (
893	sort {
894	$b->{version} <=> $a->{version}
895	or $b->{users} <=> $a->{users}
896	}
897	@{ $msg->{servers} }	986	for my $m (@{ $msg->{servers} }) {
898	) {
899	my ($ip, $last, $host, $users, $version, $desc, $ibytes, $obytes, $uptime) =	987	my ($ip, $last, $host, $users, $version, $desc, $ibytes, $obytes, $uptime, $highlight) =
900	@$m{qw(ip age hostname users version description ibytes obytes uptime)};	988	@$m{qw(ip age hostname users version description ibytes obytes uptime highlight)};
901		989
902	for ($desc) {	990	for ($desc) {
903	s/<br>/\n/gi;	991	s/<br>/\n/gi;
904	s/<li>/\n· /gi;	992	s/<li>/\n· /gi;
905	s/<.*?>//sgi;	993	s/<.*?>//sgi;
…		…
916		1004
917	$m = [$users, $host, $uptime, $version, $desc];	1005	$m = [$users, $host, $uptime, $version, $desc];
918		1006
919	$y++;	1007	$y++;
920		1008
921	$table->add (scalar @$m, $y, new CFPlus::UI::VBox children => [	1009	$table->add_at (scalar @$m, $y, new CFPlus::UI::VBox children => [
922	(new CFPlus::UI::Button	1010	(new CFPlus::UI::Button
923	text => "Use",	1011	text => "Use",
924	tooltip => "Put this server into the <b>Host:Port</b> field",	1012	tooltip => "Put this server into the <b>Host:Port</b> field",
925	on_activate => sub {	1013	on_activate => sub {
926	$HOST_ENTRY->set_text ($CFG->{profile}{default}{host} = $host);	1014	$HOST_ENTRY->set_text ($CFG->{profile}{default}{host} = $host);
…		…
929	},	1017	},
930	),	1018	),
931	(new CFPlus::UI::Empty expand => 1),	1019	(new CFPlus::UI::Empty expand => 1),
932	]);	1020	]);
933		1021
934	$table->add ($_, $y, new CFPlus::UI::Label	1022	$table->add_at ($_, $y, new CFPlus::UI::Label
935	max_w => $::WIDTH * 0.4,	1023	max_w => $::WIDTH * 0.4,
936	ellipsise => 0,	1024	ellipsise => 0,
937	align => $align[$_],	1025	align => $align[$_],
938	text => $m->[$_],	1026	text => $m->[$_],
939	tooltip => $tip[$_],	1027	tooltip => $tip[$_],
940	fg => ($m->[3] =~ /\+$/ ? [1, 1, 1] : [.7, .7, .7]),	1028	fg => ($highlight ? [1, 1, 1] : [.7, .7, .7]),
941	can_hover => 1,	1029	can_hover => 1,
942	can_events => 1,	1030	can_events => 1,
943	fontsize => 0.8)	1031	fontsize => 0.8)
944	for 0 .. $#$m;	1032	for 0 .. $#$m;
945	}	1033	}
…		…
980		1068
981	$vbox->add (new CFPlus::UI::FancyFrame	1069	$vbox->add (new CFPlus::UI::FancyFrame
982	label => "Connection Settings",	1070	label => "Connection Settings",
983	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]),
984	);	1072	);
985	$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");
986		1074
987	{	1075	{
988	$table->add (1, 2, my $vbox = new CFPlus::UI::VBox);	1076	$table->add_at (1, 2, my $vbox = new CFPlus::UI::VBox);
989		1077
990	$vbox->add (	1078	$vbox->add (
991	$HOST_ENTRY = new CFPlus::UI::Entry	1079	$HOST_ENTRY = new CFPlus::UI::Entry
992	expand => 1,	1080	expand => 1,
993	text => $CFG->{profile}{default}{host},	1081	text => $CFG->{profile}{default}{host},
…		…
1007	on_activate => sub { $METASERVER->toggle_visibility; 0 },	1095	on_activate => sub { $METASERVER->toggle_visibility; 0 },
1008	on_visibility_change => sub { $METASERVER->hide unless $_[1]; 0 },	1096	on_visibility_change => sub { $METASERVER->hide unless $_[1]; 0 },
1009	);	1097	);
1010	}	1098	}
1011		1099
1012	$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");
1013	$table->add (1, 4, new CFPlus::UI::Entry	1101	$table->add_at (1, 4, new CFPlus::UI::Entry
1014	text => $CFG->{profile}{default}{user},	1102	text => $CFG->{profile}{default}{user},
1015	tooltip => "The name of your character on the server",	1103	tooltip => "The name of your character on the server",
1016	on_changed => sub { my ($self, $value) = @_; $CFG->{profile}{default}{user} = $value }	1104	on_changed => sub { my ($self, $value) = @_; $CFG->{profile}{default}{user} = $value }
1017	);	1105	);
1018		1106
1019	$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");
1020	$table->add (1, 5, new CFPlus::UI::Entry	1108	$table->add_at (1, 5, new CFPlus::UI::Entry
1021	text => $CFG->{profile}{default}{password},	1109	text => $CFG->{profile}{default}{password},
1022	hidden => 1,	1110	hidden => 1,
1023	tooltip => "The password for your character",	1111	tooltip => "The password for your character",
1024	on_changed => sub { my ($self, $value) = @_; $CFG->{profile}{default}{password} = $value }	1112	on_changed => sub { my ($self, $value) = @_; $CFG->{profile}{default}{password} = $value }
1025	);	1113	);
1026		1114
1027	$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");
1028	$table->add (1, 7, new CFPlus::UI::Slider	1116	$table->add_at (1, 7, new CFPlus::UI::Slider
1029	force_w => 100,	1117	force_w => 100,
1030	range => [$CFG->{mapsize}, 10, 100, 0, 1],	1118	range => [$CFG->{mapsize}, 10, 100, 0, 1],
1031	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. "
1032	. "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, "
1033	. "but you also increase bandwidth requirements and latency. "	1121	. "but you also increase bandwidth requirements and latency. "
1034	. "This option is only used once at log-in.",	1122	. "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 },	1123	on_changed => sub { my ($self, $value) = @_; $CFG->{mapsize} = $self->{range}[0] = $value = int $value; 0 },
1036	);	1124	);
1037		1125
1038	$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");
1039	$table->add (1, 8, new CFPlus::UI::CheckBox	1127	$table->add_at (1, 8, new CFPlus::UI::CheckBox
1040	state => $CFG->{face_prefetch},	1128	state => $CFG->{face_prefetch},
1041	tooltip => "<b>Background Image Prefetch</b>\n\n"	1129	tooltip => "<b>Background Image Prefetch</b>\n\n"
1042	. "If enabled, the client automatically pre-fetches images from the server. "	1130	. "If enabled, the client automatically pre-fetches images from the server. "
1043	. "This might increase or create lag, but increases the chances "	1131	. "This might increase or create lag, but increases the chances "
1044	. "of faces being ready for display when you encounter them. "	1132	. "of faces being ready for display when you encounter them. "
…		…
1046	. "so only set it if you really need to prefetch images. "	1134	. "so only set it if you really need to prefetch images. "
1047	. "This option can be set and unset any time.",	1135	. "This option can be set and unset any time.",
1048	on_changed => sub { $CFG->{face_prefetch} = $_[1]; 0 },	1136	on_changed => sub { $CFG->{face_prefetch} = $_[1]; 0 },
1049	);	1137	);
1050		1138
		1139	$table->add_at (0, 9, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Rate");
		1140	$table->add_at (1, 9, new CFPlus::UI::Entry
		1141	text => $CFG->{output_rate},
		1142	tooltip => "The approximate bandwidth in bytes per second that the server should not exceed "
		1143	. "when sending images, to ensure interactiveness. When 0 or unset, the server "
		1144	. "default will be used, which is usually around 100kb/s.",
		1145	on_changed => sub { $CFG->{output_rate} = $_[1]; 0 },
		1146	);
		1147
1051	$table->add (0, 9, 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");
1052	$table->add (1, 9, new CFPlus::UI::Entry	1149	$table->add_at (1, 10, new CFPlus::UI::Entry
1053	text => $CFG->{output_count},	1150	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.",	1151	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 },	1152	on_changed => sub { $CFG->{output_count} = $_[1]; 0 },
1056	);	1153	);
1057		1154
1058	$table->add (0, 10, 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");
1059	$table->add (1, 10, new CFPlus::UI::Entry	1156	$table->add_at (1, 11, new CFPlus::UI::Entry
1060	text => $CFG->{output_sync},	1157	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.",	1158	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 },	1159	on_changed => sub { $CFG->{output_sync} = $_[1]; 0 },
1063	);	1160	);
1064		1161
1065	$table->add (1, 11, $LOGIN_BUTTON = new CFPlus::UI::Button	1162	$table->add_at (1, 12, $LOGIN_BUTTON = new CFPlus::UI::Button
1066	expand => 1,	1163	expand => 1,
1067	align => 0,	1164	align => 0,
1068	text => "Login",	1165	text => "Login",
1069	on_activate => sub {	1166	on_activate => sub {
1070	$CONN ? stop_game	1167	$CONN ? stop_game
1071	: start_game;	1168	: start_game;
1072	0	1169	0
1073	},	1170	},
1074	);	1171	);
1075		1172
1076	$table->add (0, 12, new CFPlus::UI::Label valign => 0, align => 1, text => "Chat Command");	1173	$vbox->add (new CFPlus::UI::FancyFrame
1077	$table->add (1, 12, my $saycmd = new CFPlus::UI::Entry	1174	label => "Server Info",
1078	text => $CFG->{say_command},	1175	child => ($SERVER_INFO = new CFPlus::UI::Label ellipsise => 0),
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. "
1080	. "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.",
1082	on_changed => sub {
1083	my ($self, $value) = @_;
1084	$CFG->{say_command} = $value;
1085	0
1086	}
1087	);	1176	);
1088		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
1089	$table->add (0, 13, 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");
1090	$table->add (1, 13, my $saycmd = new CFPlus::UI::CheckBox	1187	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
1091	state => $CFG->{show_tips},	1188	state => $CFG->{show_tips},
1092	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?",
1093	on_changed => sub {	1190	on_changed => sub {
1094	my ($self, $value) = @_;	1191	my ($self, $value) = @_;
1095	$CFG->{show_tips} = $value;	1192	$CFG->{show_tips} = $value;
1096	0	1193	0
1097	}	1194	}
1098	);	1195	);
1099		1196
1100	$vbox->add (new CFPlus::UI::FancyFrame	1197	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Messages Window Size");
1101	label => "Server Info",	1198	$table->add_at (1, $row++, my $saycmd = new CFPlus::UI::Entry
1102	child => ($SERVER_INFO = new CFPlus::UI::Label ellipsise => 0),	1199	text => $CFG->{logview_max_par},
1103	);	1200	tooltip => "This is maximum number of messages remembered in the <b>Messages</b> window. If the server "
1104		1201	. "sends more messages than this number, older messages get removed to save memory and "
1105	$vbox	1202	. "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 {	1203	on_changed => sub {
1128	my ($input, $prev_focus) = @_;	1204	my ($self, $value) = @_;
1129		1205	$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	1206	0
1138	},	1207	},
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	};	1208	);
1167		1209
1168	$window	1210	$table
1169	}	1211	}
1170		1212
1171	sub autopickup_setup {	1213	sub autopickup_setup {
		1214	my $r = new CFPlus::UI::ScrolledWindow (
		1215	expand => 1,
		1216	scroll_y => 1
		1217	);
1172	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	);
1173		1222
1174	for (	1223	for (
1175	["General", 0, 0,	1224	["General", 0, 0,
1176	["Enable autopickup" => PICKUP_NEWMODE, \$PICKUP_ENABLE],	1225	["Enable autopickup" => PICKUP_NEWMODE, \$PICKUP_ENABLE],
1177	["Inhibit autopickup" => PICKUP_INHIBIT],	1226	["Inhibit autopickup" => PICKUP_INHIBIT],
…		…
1212	],	1261	],
1213	["Weight/Value ratio", 2, 17]	1262	["Weight/Value ratio", 2, 17]
1214	)	1263	)
1215	{	1264	{
1216	my ($title, $x, $y, @bits) = @$_;	1265	my ($title, $x, $y, @bits) = @$_;
1217	$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]);
1218		1267
1219	for (@bits) {	1268	for (@bits) {
1220	++$y;	1269	++$y;
1221		1270
1222	my $mask = $_->[1];	1271	my $mask = $_->[1];
1223	$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);
1224	$table->add ($x+1, $y, my $checkbox = new CFPlus::UI::CheckBox	1273	$table->add_at ($x+1, $y, my $checkbox = new CFPlus::UI::CheckBox
1225	state => $::CFG->{pickup} & $mask,	1274	state => $::CFG->{pickup} & $mask,
1226	on_changed => sub {	1275	on_changed => sub {
1227	my ($box, $value) = @_;	1276	my ($box, $value) = @_;
1228		1277
1229	if ($value) {	1278	if ($value) {
…		…
1240		1289
1241	${$_->[2]} = $checkbox if $_->[2];	1290	${$_->[2]} = $checkbox if $_->[2];
1242	}	1291	}
1243	}	1292	}
1244		1293
1245	$table->add (2, 18, new CFPlus::UI::ValSlider	1294	$table->add_at (2, 18, new CFPlus::UI::ValSlider
1246	range => [$::CFG->{pickup} & 0xF, 0, 16, 1, 1],	1295	range => [$::CFG->{pickup} & 0xF, 0, 16, 1, 1],
1247	template => ">= 99",	1296	template => ">= 99",
1248	to_value => sub { ">= " . 5 * $_[0] },	1297	to_value => sub { ">= " . 5 * $_[0] },
1249	on_changed => sub {	1298	on_changed => sub {
1250	my ($slider, $value) = @_;	1299	my ($slider, $value) = @_;
…		…
1253	$::CFG->{pickup} |= int $value	1302	$::CFG->{pickup} |= int $value
1254	if $value;	1303	if $value;
1255	1;	1304	1;
1256	});	1305	});
1257		1306
1258	$table->add (3, 18, new CFPlus::UI::Button	1307	$table->add_at (3, 18, new CFPlus::UI::Button
1259	text => "set",	1308	text => "set",
1260	on_activate => sub {	1309	on_activate => sub {
1261	$::CONN->send_command ("pickup $::CFG->{pickup}")	1310	$::CONN->send_command ("pickup $::CFG->{pickup}")
1262	if defined $::CONN;	1311	if defined $::CONN;
1263	0	1312	0
1264	});	1313	});
1265		1314
1266	$table	1315	$r
1267	}	1316	}
1268		1317
1269	my %SORT_ORDER = (	1318	my %SORT_ORDER = (
1270	type => undef,	1319	type => undef,
1271	mtime => sub {	1320	mtime => sub {
…		…
1350	has_close_button => 1	1399	has_close_button => 1
1351	;	1400	;
1352		1401
1353	my $ntb =	1402	my $ntb =
1354	$PL_NOTEBOOK =	1403	$PL_NOTEBOOK =
1355	new CFPlus::UI::Notebook expand => 1, debug => 1;	1404	new CFPlus::UI::Notebook expand => 1;
1356		1405
1357	$ntb->add (	1406	$ntb->add_tab (
1358	"Statistics (F2)" => $STATS_PAGE = stats_window,	1407	"Statistics (F2)" => $STATS_PAGE = stats_window,
1359	"Shows statistics, where all your Stats and Resistances are shown."	1408	"Shows statistics, where all your Stats and Resistances are shown."
1360	);	1409	);
1361	$ntb->add (	1410	$ntb->add_tab (
1362	"Skills (F3)" => $SKILL_PAGE = skill_window,	1411	"Skills (F3)" => $SKILL_PAGE = skill_window,
1363	"Shows all your Skills."	1412	"Shows all your Skills."
1364	);	1413	);
1365		1414
1366	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);
1367	$spellsw->add ($SPELL_LIST = new CFPlus::UI::SpellList);	1416	$spellsw->add ($SPELL_LIST = new CFPlus::UI::SpellList);
1368	$ntb->add (	1417	$ntb->add_tab (
1369	"Spellbook (F4)" => $spellsw,	1418	"Spellbook (F4)" => $spellsw,
1370	"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."
1371	);	1420	);
1372	$ntb->add (	1421	$ntb->add_tab (
1373	"Inventory (F5)" => $INVENTORY_PAGE = inventory_widget,	1422	"Inventory (F5)" => $INVENTORY_PAGE = inventory_widget,
1374	"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 :). "
1375	. "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."
1376	);	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.");
1377		1428
1378	$ntb->set_current_page ($INVENTORY_PAGE);	1429	$ntb->set_current_page ($INVENTORY_PAGE);
1379		1430
1380	$plwin->add ($ntb);	1431	$plwin->add ($ntb);
1381	$plwin	1432	$plwin
…		…
1547		1598
1548	sub show_tip_of_the_day {	1599	sub show_tip_of_the_day {
1549	# find all tips	1600	# find all tips
1550	my @tod = CFPlus::Pod::find tip_of_the_day => "*";	1601	my @tod = CFPlus::Pod::find tip_of_the_day => "*";
1551		1602
1552	my $todindex = $CFPlus::DB_STATE->get ("tip_of_the_day");	1603	CFPlus::DB::get state => "tip_of_the_day", sub {
		1604	my ($todindex) = @_;
1553	$todindex = 0 if $todindex >= @tod;	1605	$todindex = 0 if $todindex >= @tod;
1554	$CFPlus::DB_STATE->put (tip_of_the_day => $todindex + 1);	1606	CFPlus::DB::put state => tip_of_the_day => $todindex + 1, sub { };
1555		1607
1556	# create dialog	1608	# create dialog
1557	my $dialog;	1609	my $dialog;
1558		1610
1559	my $close = sub {	1611	my $close = sub {
1560	$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;
1561	};	1650	};
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	}	1651	}
1599		1652
1600	sub sdl_init {	1653	sub sdl_init {
1601	CFPlus::SDL_Init	1654	CFPlus::SDL_Init
1602	and die "SDL::Init failed!\n";	1655	and die "SDL::Init failed!\n";
1603	}	1656	}
1604		1657
1605	sub video_init {	1658	sub video_init {
1606	sdl_init;
1607
1608	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} >= @SDL_MODES;	1659	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} >= @SDL_MODES;
1609		1660
1610	my ($old_w, $old_h) = ($WIDTH, $HEIGHT);	1661	my ($old_w, $old_h) = ($WIDTH, $HEIGHT);
1611		1662
1612	($WIDTH, $HEIGHT) = @{ $SDL_MODES[$CFG->{sdl_mode}] };	1663	($WIDTH, $HEIGHT, my ($rgb, $alpha)) = @{ $SDL_MODES[$CFG->{sdl_mode}] };
1613	$FULLSCREEN = $CFG->{fullscreen};	1664	$FULLSCREEN = $CFG->{fullscreen};
1614	$FAST = $CFG->{fast};	1665	$FAST = $CFG->{fast};
1615		1666
1616	CFPlus::SDL_SetVideoMode $WIDTH, $HEIGHT, $FULLSCREEN	1667	CFPlus::SDL_SetVideoMode $WIDTH, $HEIGHT, $rgb, $alpha, $FULLSCREEN
1617	or die "SDL_SetVideoMode failed: " . (CFPlus::SDL_GetError) . "\n";	1668	or die "SDL_SetVideoMode failed: " . (CFPlus::SDL_GetError) . "\n";
1618		1669
1619	$SDL_ACTIVE = 1;	1670	$SDL_ACTIVE = 1;
1620	$LAST_REFRESH = time - 0.01;	1671	$LAST_REFRESH = time - 0.01;
1621		1672
…		…
1663		1714
1664	$MAPWIDGET = new CFPlus::MapWidget;	1715	$MAPWIDGET = new CFPlus::MapWidget;
1665	$MAPWIDGET->connect (activate_console => sub {	1716	$MAPWIDGET->connect (activate_console => sub {
1666	my ($mapwidget, $preset) = @_;	1717	my ($mapwidget, $preset) = @_;
1667		1718
1668	if ($CONSOLE) {	1719	$MESSAGE_WINDOW->activate_console ($preset)
1669	$CONSOLE->{input}->{auto_activated} = 1;	1720	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	});	1721	});
1677	$MAPWIDGET->show;	1722	$MAPWIDGET->show;
1678	$MAPWIDGET->grab_focus;	1723	$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		1724
1690	$SETUP_DIALOG = new CFPlus::UI::Toplevel	1725	$SETUP_DIALOG = new CFPlus::UI::Toplevel
1691	title => "Setup",	1726	title => "Setup",
1692	name => "setup_dialog",	1727	name => "setup_dialog",
1693	x => 'center',	1728	x => 'center',
…		…
1697	force_h => $::HEIGHT * 0.6,	1732	force_h => $::HEIGHT * 0.6,
1698	has_close_button => 1,	1733	has_close_button => 1,
1699	;	1734	;
1700		1735
1701	$METASERVER = metaserver_dialog;	1736	$METASERVER = metaserver_dialog;
		1737	$MESSAGE_WINDOW = new CFPlus::UI::MessageWindow;
1702		1738
1703	$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,
1704	filter => new CFPlus::UI::ScrolledWindow expand => 1, scroll_y => 1);	1740	filter => new CFPlus::UI::ScrolledWindow expand => 1, scroll_y => 1);
1705		1741
1706	$SETUP_NOTEBOOK->add (Server => $SETUP_SERVER = server_setup,	1742	$SETUP_NOTEBOOK->add_tab (Server => $SETUP_SERVER = server_setup,
1707	"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.");
1708	$SETUP_NOTEBOOK->add (Pickup => autopickup_setup,	1744	$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.");	1745	"Configure various client-specific settings.");
1710	$SETUP_NOTEBOOK->add (Graphics => graphics_setup,	1746	$SETUP_NOTEBOOK->add_tab (Graphics => graphics_setup,
1711	"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.");
1712	$SETUP_NOTEBOOK->add (Audio => audio_setup,	1748	$SETUP_NOTEBOOK->add_tab (Audio => audio_setup,
1713	"Configure the use of audio, sound effects and background music.");	1749	"Configure the use of audio, sound effects and background music.");
1714	$SETUP_NOTEBOOK->add (Keyboard => $SETUP_KEYBOARD = keyboard_setup,	1750	$SETUP_NOTEBOOK->add_tab (Keyboard => $SETUP_KEYBOARD = keyboard_setup,
1715	"Lets you define, edit and delete key bindings."	1751	"Lets you define, edit and delete key bindings."
1716	. "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 "
1717	. "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 "
1718	. "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. "
1719	. "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 "
1720	. "binding editor closes");	1756	. "binding editor closes");
1721	$SETUP_NOTEBOOK->add (Debug => debug_setup,	1757	$SETUP_NOTEBOOK->add_tab (Debug => debug_setup,
1722	"Some debuggin' options. Do not ask.");	1758	"Some debuggin' options. Do not ask.");
1723		1759
1724	$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
1725		1761
1726	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Setup", other => $SETUP_DIALOG,	1762	$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.");	1763	tooltip => "Toggles a dialog where you can configure all aspects of this client.");
1728		1764
1729	$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,
1730	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.");
1731		1767
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	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
1733		1769
1734	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Playerbook", other => player_window,	1770	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Playerbook", other => player_window,
…		…
1767	}	1803	}
1768		1804
1769	$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]);
1770	}	1806	}
1771		1807
1772	sub setup_build_button {
1773	my ($enabled) = @_;
1774	if ($enabled) {
1775	$BUILD_BUTTON ||= new CFPlus::UI::Button
1776	text => "Build",
1777	tooltip => "Opens the ingame builder",
1778	on_activate => sub {
1779	if ($CONN) {
1780	$CONN->send_ext_req (builder_player_items => sub {
1781	open_ingame_editor ($_[0]) if exists $_[0]->{items};
1782	});
1783	}
1784	0
1785	};
1786	$BUTTONBAR->add ($BUILD_BUTTON);
1787	} else {
1788	$BUILD_BUTTON->hide if $BUILD_BUTTON;
1789	}
1790	}
1791
1792	sub open_ingame_editor {
1793	my ($msg) = @_;
1794
1795	my $win = new CFPlus::UI::Toplevel
1796	x => 0,
1797	y => 'center',
1798	z => 4,
1799	name => 'builder_window',
1800	force_w => int $WIDTH * 1/4,
1801	force_h => int $HEIGHT * 3/4,
1802	title => "In game builder",
1803	has_close_button => 1;
1804
1805	my $r = new CFPlus::UI::ScrolledWindow (
1806	expand => 1,
1807	scroll_y => 1
1808	);
1809	$r->add (my $vb = new CFPlus::UI::VBox);
1810	$win->add ($r);
1811
1812
1813	$vb->add (
1814	new CFPlus::UI::Button
1815	text => "Disable build mode",
1816	on_activate => sub { $::IN_BUILD_MODE = undef }
1817	);
1818	$vb->add (
1819	new CFPlus::UI::Button
1820	text => "ERASE",
1821	on_activate => sub { $::IN_BUILD_MODE = { do_erase => 1 } }
1822	);
1823
1824	for my $itemarchname (
1825	sort {
1826	$msg->{items}->{$a}->{build_arch_name}
1827	cmp $msg->{items}->{$b}->{build_arch_name}
1828	} keys %{$msg->{items}}
1829	) {
1830	my $info = $msg->{items}->{$itemarchname};
1831	$vb->add (
1832	new CFPlus::UI::Button text => $info->{build_arch_name},
1833	on_activate => sub {
1834	$::IN_BUILD_MODE = { item => $itemarchname, info => $info };
1835
1836	if (grep { $msg->{items}->{$itemarchname}->{$_} } qw/has_connection has_name has_text/) {
1837	build_mode_query_arch_info ();
1838	}
1839	}
1840	);
1841	}
1842
1843	$win->show;
1844	}
1845
1846	sub build_mode_query_arch_info {
1847	my ($iteminfo) = $::IN_BUILD_MODE;
1848	my $itemarchname = $iteminfo->{item};
1849	my $info = $iteminfo->{info};
1850
1851	my $dialog = new CFPlus::UI::Toplevel
1852	x => "center",
1853	y => "center",
1854	z => 50,
1855	force_w => int $WIDTH * 1/2,
1856	title => "Enter information for placement of '$itemarchname'",
1857	has_close_button => 1;
1858
1859	$dialog->add (my $vb = new CFPlus::UI::VBox expand => 1);
1860
1861	$vb->add (my $table = new CFPlus::UI::Table expand => 1);
1862	my $row = 0;
1863	if ($info->{has_name}) {
1864	$table->add (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 });
1866	}
1867	if ($info->{has_text}) {
1868	$table->add (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 });
1870	}
1871	if ($info->{has_connection}) {
1872	$table->add (0, $row, new CFPlus::UI::Label text => "Connection ID:");
1873	$table->add (1, $row++,
1874	new CFPlus::UI::Entry
1875	expand => 1,
1876	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"
1878	);
1879	}
1880
1881	$vb->add (my $hb = new CFPlus::UI::HBox expand => 1);
1882	$hb->add (new CFPlus::UI::Button
1883	text => "Close",
1884	expand => 1,
1885	on_activate => sub { $dialog->hide; 0 },
1886	);
1887	$dialog->show;
1888	}
1889
1890	sub video_shutdown {	1808	sub video_shutdown {
1891	CFPlus::OpenGL::shutdown;	1809	CFPlus::OpenGL::shutdown;
1892		1810
1893	undef $SDL_ACTIVE;	1811	undef $SDL_ACTIVE;
1894	}	1812	}
1895		1813
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 {	1814	sub audio_channel_finished {
1900	my ($channel) = @_;	1815	my ($channel) = @_;
1901		1816
1902	#warn "channel $channel finished\n";#d#	1817	#warn "channel $channel finished\n";#d#
1903	}	1818	}
1904		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
1905	sub audio_music_finished {	1895	sub audio_music_finished {
1906	return unless $CFG->{bgm_enable};	1896	$MUSIC_PLAYING = undef;
		1897	undef $MUSIC_PLAYER;
1907		1898
1908	# TODO: hack, do play loop and mood music	1899	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	}	1900	}
1914		1901
1915	sub audio_init {	1902	sub audio_init {
1916	if ($CFG->{audio_enable}) {	1903	if ($CFG->{audio_enable}) {
1917	if (open my $fh, "<", CFPlus::find_rcfile "sounds/config") {	1904	if (open my $fh, "<", CFPlus::find_rcfile "sounds/config") {
…		…
1943	};	1930	};
1944	}	1931	}
1945	} else {	1932	} else {
1946	status "unable to open sound config: $!";	1933	status "unable to open sound config: $!";
1947	}	1934	}
		1935	} else {
		1936	undef $SDL_MIXER;
1948	}	1937	}
1949	}	1938	}
1950		1939
1951	sub audio_shutdown {	1940	sub audio_shutdown {
1952	CFPlus::Mix_CloseAudio if $SDL_MIXER;	1941	CFPlus::Mix_CloseAudio if $SDL_MIXER;
…		…
1967	debug sprintf "%3.2f", $fps if $ENV{CFPLUS_DEBUG} & 4;	1956	debug sprintf "%3.2f", $fps if $ENV{CFPLUS_DEBUG} & 4;
1968		1957
1969	$CFPlus::UI::ROOT->draw;	1958	$CFPlus::UI::ROOT->draw;
1970		1959
1971	$WANT_REFRESH = 0;	1960	$WANT_REFRESH = 0;
1972	$CAN_REFRESH = 0;	1961	$CAN_REFRESH = 0;
1973	$LAST_REFRESH = $NOW;	1962	$LAST_REFRESH = $NOW;
1974		1963
1975	CFPlus::SDL_GL_SwapBuffers;	1964	CFPlus::SDL_GL_SwapBuffers;
1976	}	1965	}
1977		1966
1978	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 {
1979	$NOW = time;	1968	$NOW = time;
1980		1969
1981	($SDL_CB{$_->{type}} || sub { warn "unhandled event $_->{type}" })->($_)	1970	($SDL_CB{$_->{type}} || sub { warn "unhandled event $_->{type}" })->($_)
1982	for CFPlus::SDL_PollEvent;	1971	for CFPlus::poll_events;
1983		1972
1984	if (%animate_object) {	1973	if (%animate_object) {
1985	$_->animate ($LAST_REFRESH - $NOW) for values %animate_object;	1974	$_->animate ($LAST_REFRESH - $NOW) for values %animate_object;
1986	$WANT_REFRESH++;	1975	++$WANT_REFRESH;
1987	}	1976	}
1988		1977
1989	if ($WANT_REFRESH) {	1978	if ($WANT_REFRESH) {
1990	force_refresh;	1979	force_refresh;
1991	} else {	1980	} else {
…		…
2012	if $CONN;	2001	if $CONN;
2013	});	2002	});
2014		2003
2015	%SDL_CB = (	2004	%SDL_CB = (
2016	CFPlus::SDL_QUIT => sub {	2005	CFPlus::SDL_QUIT => sub {
2017	Event::unloop -1;	2006	exit;
2018	},	2007	},
2019	CFPlus::SDL_VIDEORESIZE => sub {	2008	CFPlus::SDL_VIDEORESIZE => sub {
2020	},	2009	},
2021	CFPlus::SDL_VIDEOEXPOSE => sub {	2010	CFPlus::SDL_VIDEOEXPOSE => sub {
2022	CFPlus::UI::full_refresh;	2011	CFPlus::UI::full_refresh;
2023	},	2012	},
2024	CFPlus::SDL_ACTIVEEVENT => sub {	2013	CFPlus::SDL_ACTIVEEVENT => sub {
2025	# not useful, as APPACTIVE include sonly iconified state, not unmapped	2014	# not useful, as APPACTIVE include sonly iconified state, not unmapped
2026	# 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#
2027	# printf "A\n" if $_[0]{state} & CFPlus::SDL_APPACTIVE;	2017	# printf "A\n" if $_[0]{state} & CFPlus::SDL_APPACTIVE;
2028	# printf "K\n" if $_[0]{state} & CFPlus::SDL_APPINPUTFOCUS;	2018	# printf "K\n" if $_[0]{state} & CFPlus::SDL_APPINPUTFOCUS;
2029	# printf "M\n" if $_[0]{state} & CFPlus::SDL_APPMOUSEFOCUS;	2019	# printf "M\n" if $_[0]{state} & CFPlus::SDL_APPMOUSEFOCUS;
2030	},	2020	},
2031	CFPlus::SDL_KEYDOWN => sub {	2021	CFPlus::SDL_KEYDOWN => sub {
…		…
2055		2045
2056	$SIG{INT} = $SIG{TERM} = sub { exit };	2046	$SIG{INT} = $SIG{TERM} = sub { exit };
2057		2047
2058	{	2048	{
2059	CFPlus::read_cfg "$Crossfire::VARDIR/cfplusrc";	2049	CFPlus::read_cfg "$Crossfire::VARDIR/cfplusrc";
		2050	CFPlus::DB::Server::run;
		2051
2060	CFPlus::UI::set_layout ($::CFG->{layout});	2052	CFPlus::UI::set_layout ($::CFG->{layout});
2061		2053
2062	my %DEF_CFG = (	2054	my %DEF_CFG = (
2063	sdl_mode => 0,	2055	sdl_mode => 0,
2064	width => 640,	2056	width => 640,
2065	height => 480,	2057	height => 480,
2066	fullscreen => 0,	2058	fullscreen => 0,
2067	fast => 0,	2059	fast => 0,
2068	map_scale => 1,	2060	map_scale => 1,
2069	fow_enable => 1,	2061	fow_enable => 1,
2070	fow_intensity => 0.45,	2062	fow_intensity => 0,
2071	fow_smooth => 0,	2063	map_smoothing => 1,
2072	gui_fontsize => 1,	2064	gui_fontsize => 1,
2073	log_fontsize => 0.7,	2065	log_fontsize => 0.7,
2074	gauge_fontsize => 1,	2066	gauge_fontsize => 1,
2075	gauge_size => 0.35,	2067	gauge_size => 0.35,
2076	stat_fontsize => 0.7,	2068	stat_fontsize => 0.7,
2077	mapsize => 100,	2069	mapsize => 100,
2078	say_command => 'chat',
2079	audio_enable => 1,	2070	audio_enable => 1,
2080	bgm_enable => 1,	2071	bgm_enable => 1,
2081	bgm_volume => 0.25,	2072	bgm_volume => 0.25,
2082	face_prefetch => 0,	2073	face_prefetch => 0,
2083	output_sync => 1,	2074	output_sync => 1,
2084	output_count => 1,	2075	output_count => 1,
		2076	output_rate => "",
2085	pickup => 0,	2077	pickup => 0,
2086	inv_sort => "mtime",	2078	inv_sort => "mtime",
2087	default => "profile", # default profile	2079	default => "profile", # default profile
2088	show_tips => 1,	2080	show_tips => 1,
		2081	logview_max_par => 1000,
2089	);	2082	);
2090		2083
2091	while (my ($k, $v) = each %DEF_CFG) {	2084	while (my ($k, $v) = each %DEF_CFG) {
2092	$CFG->{$k} = $v unless exists $CFG->{$k};	2085	$CFG->{$k} = $v unless exists $CFG->{$k};
2093	}	2086	}
…		…
2107	}	2100	}
2108	}	2101	}
2109		2102
2110	sdl_init;	2103	sdl_init;
2111		2104
2112	@SDL_MODES = reverse	2105	@SDL_MODES = CFPlus::SDL_ListModes 8, 8;
2113	grep $_->[0] >= 640 && $_->[1] >= 480,	2106	@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)";	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;
2117		2110
2118	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES;	2111	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES;
2119		2112
2120	{	2113	{
2121	my @fonts = map CFPlus::find_rcfile "fonts/$_", qw(	2114	my @fonts = map CFPlus::find_rcfile "fonts/$_", qw(
…		…
2162		2155
2163	Event::loop;	2156	Event::loop;
2164	#CFPlus::SDL_Quit;	2157	#CFPlus::SDL_Quit;
2165	#CFPlus::_exit 0;	2158	#CFPlus::_exit 0;
2166		2159
		2160	END {
2167	END { CFPlus::SDL_Quit }	2161	CFPlus::SDL_Quit;
		2162	CFPlus::DB::Server::stop;
		2163	}
2168		2164
2169	=head1 NAME	2165	=head1 NAME
2170		2166
2171	cfplus - A Crossfire+ and Crossfire game client	2167	cfplus - A Crossfire+ and Crossfire game client
2172		2168

Diff Legend

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