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.152 by root, Tue Apr 24 01:13:15 2007 UTC vs.
Revision 1.194 by root, Tue Jul 31 00:50:04 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}
50	if %PAR::LibCache;	72	if %PAR::LibCache;
51		73
52	use Time::HiRes 'time';	74	use Time::HiRes 'time';
53	use Event;	75	use Event;
		76	use List::Util qw(max min);
54		77
55	use Crossfire;	78	use Crossfire;
56	use Crossfire::Protocol::Constants;	79	use Crossfire::Protocol::Constants;
57		80
58	use Compress::LZF;	81	use Compress::LZF;
…		…
60	use CFPlus;	83	use CFPlus;
61	use CFPlus::OpenGL ();	84	use CFPlus::OpenGL ();
62	use CFPlus::Protocol;	85	use CFPlus::Protocol;
63	use CFPlus::DB;	86	use CFPlus::DB;
64	use CFPlus::UI;	87	use CFPlus::UI;
		88	use CFPlus::UI::Canvas;
65	use CFPlus::UI::Inventory;	89	use CFPlus::UI::Inventory;
66	use CFPlus::UI::SpellList;	90	use CFPlus::UI::SpellList;
		91	use CFPlus::UI::MessageWindow;
67	use CFPlus::Pod;	92	use CFPlus::Pod;
68	use CFPlus::MapWidget;	93	use CFPlus::MapWidget;
69	use CFPlus::Macro;	94	use CFPlus::Macro;
70		95
71	$SIG{QUIT} = sub { Carp::cluck "QUIT" };	96	$SIG{QUIT} = sub { Carp::cluck "QUIT" };
…		…
103		128
104	our $MAP;	129	our $MAP;
105	our $MAPMAP;	130	our $MAPMAP;
106	our $MAPWIDGET;	131	our $MAPWIDGET;
107	our $BUTTONBAR;	132	our $BUTTONBAR;
108	our $LOGVIEW;
109	our $CONSOLE;
110	our $METASERVER;	133	our $METASERVER;
111	our $LOGIN_BUTTON;	134	our $LOGIN_BUTTON;
112	our $QUIT_DIALOG;	135	our $QUIT_DIALOG;
113	our $HOST_ENTRY;	136	our $HOST_ENTRY;
114	our $FULLSCREEN_ENABLE;	137	our $FULLSCREEN_ENABLE;
…		…
137		160
138	our $SDL_ACTIVE;	161	our $SDL_ACTIVE;
139	our %SDL_CB;	162	our %SDL_CB;
140		163
141	our $SDL_MIXER;	164	our $SDL_MIXER;
		165	our $MUSIC_DEFAULT = "in_a_heartbeat.ogg";
		166	our @MUSIC_WANT;
		167	our $MUSIC_START;
		168	our $MUSIC_PLAYING_DATA;
		169	our $MUSIC_PLAYING_META;
		170	our $MUSIC_PLAYER;
		171	our $MUSIC_RESUME = 30; # resume music when players less than these many seconds before
142	our @SOUNDS; # event => file mapping	172	our @SOUNDS; # event => file mapping
143	our %AUDIO_CHUNKS; # audio files	173	our %AUDIO_CHUNK; # audio files
144		174
145	our $ALT_ENTER_MESSAGE;	175	our $ALT_ENTER_MESSAGE;
146	our $STATUSBOX;	176	our $STATUSBOX;
147	our $DEBUG_STATUS;	177	our $DEBUG_STATUS;
148		178
…		…
150	our $INVR;	180	our $INVR;
151	our $INV_RIGHT_HB;	181	our $INV_RIGHT_HB;
152		182
153	our $PICKUP_CFG;	183	our $PICKUP_CFG;
154		184
155	our $IN_BUILD_MODE;
156	our $BUILD_BUTTON;
157
158	sub status {	185	sub status {
159	$STATUSBOX->add (CFPlus::asxml $_[0], pri => -10, group => "status", timeout => 10, fg => [1, 1, 0, 1]);	186	$STATUSBOX->add (CFPlus::asxml $_[0], pri => -10, group => "status", timeout => 10, fg => [1, 1, 0, 1]);
160	}	187	}
161		188
162	sub debug {	189	sub debug {
163	$DEBUG_STATUS->set_text ($_[0]);	190	$DEBUG_STATUS->set_text ($_[0]);
164	}	191	}
165		192
166	sub message {	193	sub message {
167	my ($para) = @_;	194	my ($para) = @_;
168		195	$MESSAGE_WINDOW->message ($para);
169	my $time = sprintf "%02d:%02d:%02d", (localtime time)[2,1,0];
170
171	$para->{markup} = "<span foreground='#ffffff'>$time</span> $para->{markup}";
172
173	$LOGVIEW->add_paragraph ($para);
174	$LOGVIEW->scroll_to_bottom;
175	}	196	}
176		197
177	sub destroy_query_dialog {	198	sub destroy_query_dialog {
178	(delete $_[0]{query_dialog})->destroy	199	(delete $_[0]{query_dialog})->destroy
179	if $_[0]{query_dialog};	200	if $_[0]{query_dialog};
…		…
244	ellipsise => 0,	265	ellipsise => 0,
245	markup => "\nOr use your keyboard and the text entry below:\n";	266	markup => "\nOr use your keyboard and the text entry below:\n";
246		267
247	unshift @dialog, my $table = new CFPlus::UI::Table;	268	unshift @dialog, my $table = new CFPlus::UI::Table;
248		269
249	$table->add (0, 0, new CFPlus::UI::Button	270	$table->add_at (0, 0, new CFPlus::UI::Button
250	text => "Next Race",	271	text => "Next Race",
251	on_activate => sub {	272	on_activate => sub {
252	$conn->send ("reply n");	273	$conn->send ("reply n");
253	destroy_query_dialog $conn;	274	destroy_query_dialog $conn;
254	0	275	0
255	},	276	},
256	);	277	);
257	$table->add (2, 0, new CFPlus::UI::Button	278	$table->add_at (2, 0, new CFPlus::UI::Button
258	text => "Accept",	279	text => "Accept",
259	on_activate => sub {	280	on_activate => sub {
260	$conn->send ("reply d");	281	$conn->send ("reply d");
261	destroy_query_dialog $conn;	282	destroy_query_dialog $conn;
262	0	283	0
…		…
269	ellipsise => 0,	290	ellipsise => 0,
270	markup => "<span foreground='#ccccff'>$conn->{chargen_race_description}</span>",	291	markup => "<span foreground='#ccccff'>$conn->{chargen_race_description}</span>",
271	;	292	;
272	}	293	}
273		294
274	if ($conn->{chargen_race_title}) {
275	unshift @dialog, new CFPlus::UI::Face	295	unshift @dialog, new CFPlus::UI::Face
276	face => $conn->{player}{face},	296	face => $conn->{player}{face},
277	bg => [.2, .2, .2, 1],	297	bg => [.2, .2, .2, 1],
278	min_w => 64,	298	min_w => 64,
279	min_h => 64,	299	min_h => 64,
280	;
281	}	300	;
282		301
283	if ($conn->{chargen_race_title}) {	302	if ($conn->{chargen_race_title}) {
284	unshift @dialog, new CFPlus::UI::Label	303	unshift @dialog, new CFPlus::UI::Label
285	allign => 1,	304	allign => 1,
286	ellipsise => 0,	305	ellipsise => 0,
…		…
299	$conn->send ("reply $stat");	318	$conn->send ("reply $stat");
300	destroy_query_dialog $conn;	319	destroy_query_dialog $conn;
301	return;	320	return;
302	}	321	}
303		322
304	$STATS_PAGE->show;
305	$MESSAGE_WINDOW->hide;
306
307	unshift @dialog, new CFPlus::UI::Label	323	unshift @dialog, new CFPlus::UI::Label
308	max_w => $::WIDTH * 0.4,	324	max_w => $::WIDTH * 0.4,
309	ellipsise => 0,	325	ellipsise => 0,
310	markup => "\nOr use your keyboard and the text entry below:\n";	326	markup => "\nOr use your keyboard and the text entry below:\n";
311		327
312	unshift @dialog, my $table = new CFPlus::UI::Table;	328	unshift @dialog, my $table = new CFPlus::UI::Table;
313		329
314	# left: re-roll	330	# left: re-roll
315	$table->add (0, 0, new CFPlus::UI::Button	331	$table->add_at (0, 0, new CFPlus::UI::Button
316	text => "Roll Again",	332	text => "Roll Again",
317	on_activate => sub {	333	on_activate => sub {
318	$conn->send ("reply y");	334	$conn->send ("reply y");
319	destroy_query_dialog $conn;	335	destroy_query_dialog $conn;
320	0	336	0
…		…
334	[6 => "Pow", "Power ($conn->{stat}{+CS_STAT_POW})"],	350	[6 => "Pow", "Power ($conn->{stat}{+CS_STAT_POW})"],
335	[7 => "Cha", "Charisma ($conn->{stat}{+CS_STAT_CHA})"],	351	[7 => "Cha", "Charisma ($conn->{stat}{+CS_STAT_CHA})"],
336	],	352	],
337	), 1 .. 2;	353	), 1 .. 2;
338		354
339	$table->add (2, 0, new CFPlus::UI::Button	355	$table->add_at (2, 0, new CFPlus::UI::Button
340	text => "Swap Stats",	356	text => "Swap Stats",
341	on_activate => sub {	357	on_activate => sub {
342	$conn->{stat_change_with} = $sw2->{value};	358	$conn->{stat_change_with} = $sw2->{value};
343	$conn->send ("reply $sw1->{value}");	359	$conn->send ("reply $sw1->{value}");
344	destroy_query_dialog $conn;	360	destroy_query_dialog $conn;
345	0	361	0
346	},	362	},
347	);	363	);
348	$table->add (2, 1, new CFPlus::UI::HBox children => [$sw1, $sw2]);	364	$table->add_at (2, 1, new CFPlus::UI::HBox children => [$sw1, $sw2]);
349		365
350	# right: accept	366	# right: accept
351	$table->add (4, 0, new CFPlus::UI::Button	367	$table->add_at (4, 0, new CFPlus::UI::Button
352	text => "Accept",	368	text => "Accept",
353	on_activate => sub {	369	on_activate => sub {
354	$conn->send ("reply n");	370	$conn->send ("reply n");
355	$STATS_PAGE->hide;	371	$STATS_PAGE->hide;
356	destroy_query_dialog $conn;	372	destroy_query_dialog $conn;
…		…
437	maph => $mapsize,	453	maph => $mapsize,
438		454
439	client => "cfplus $CFPlus::VERSION $] $^O",	455	client => "cfplus $CFPlus::VERSION $] $^O",
440		456
441	map_widget => $MAPWIDGET,	457	map_widget => $MAPWIDGET,
442	logview => $LOGVIEW,
443	statusbox => $STATUSBOX,	458	statusbox => $STATUSBOX,
444	map => $MAP,	459	map => $MAP,
445	mapmap => $MAPMAP,	460	mapmap => $MAPMAP,
446	query => \&server_query,	461	query => \&server_query,
447		462
448	setup_req => {	463	setup_req => {
449	smoothing => $CFG->{map_smoothing}*1,	464	smoothing => $CFG->{map_smoothing}*1,
450	},
451
452	sound_play => sub {
453	my ($x, $y, $soundnum, $type) = @_;
454
455	$SDL_MIXER
456	or return;
457
458	my $chunk = $AUDIO_CHUNKS{$SOUNDS[$soundnum]}
459	or return;
460
461	$chunk->play;
462	},	465	},
463	};	466	};
464		467
465	if ($CONN) {	468	if ($CONN) {
466	CFPlus::lowdelay fileno $CONN->{fh};	469	CFPlus::lowdelay fileno $CONN->{fh};
…		…
476	$LOGIN_BUTTON->set_text ("Login");	479	$LOGIN_BUTTON->set_text ("Login");
477	$SETUP_NOTEBOOK->set_current_page ($SETUP_SERVER);	480	$SETUP_NOTEBOOK->set_current_page ($SETUP_SERVER);
478	$SETUP_DIALOG->show;	481	$SETUP_DIALOG->show;
479	$PL_WINDOW->hide;	482	$PL_WINDOW->hide;
480	$SPELL_LIST->clear_spells;	483	$SPELL_LIST->clear_spells;
		484	$CFPlus::UI::ROOT->emit (stop_game => ! ! $CONN);
		485
		486	&audio_music_set_ambient ([]);
481		487
482	return unless $CONN;	488	return unless $CONN;
483		489
484	status "connection closed";	490	status "connection closed";
485		491
…		…
495		501
496	$vbox->add (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]);	502	$vbox->add (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]);
497		503
498	my $row = 0;	504	my $row = 0;
499		505
500	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "OpenGL Info");	506	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "OpenGL Info");
501	$table->add (1, $row++, new CFPlus::UI::Label valign => 0, fontsize => 0.8, text => CFPlus::OpenGL::gl_vendor . ", " . CFPlus::OpenGL::gl_version,	507	$table->add_at (1, $row++, new CFPlus::UI::Label valign => 0, fontsize => 0.8, text => CFPlus::OpenGL::gl_vendor . ", " . CFPlus::OpenGL::gl_version,
502	can_events => 1,	508	can_events => 1,
503	tooltip => "<tt><span size='8192'>" . (CFPlus::OpenGL::gl_extensions) . "</span></tt>");	509	tooltip => "<tt><span size='8192'>" . (CFPlus::OpenGL::gl_extensions) . "</span></tt>");
504		510
		511	my $vidmode_tooltip =
		512	"<b>Video Mode.</b> The video mode to use for fullscreen (and the window size for windowed operation). "
		513	. "The format is <i>width</i> x <i>height</i> \@ <i>depth-per-channel</i> + <i>alpha-channel</i>.";
		514
505	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Video Mode");	515	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Video Mode");
506	$table->add (1, $row++, my $hbox = new CFPlus::UI::HBox);	516	$table->add_at (1, $row++, my $hbox = new CFPlus::UI::HBox);
507		517
		518	$hbox->add (my $mode_slider = new CFPlus::UI::Slider
508	$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]);	519	force_w => $WIDTH * 0.1, expand => 1, range => [$CFG->{sdl_mode}, 0, $#SDL_MODES, 0, 1],
509	$hbox->add (my $mode_label = new CFPlus::UI::Label align => 0, valign => 0, height => 0.8, template => "9999x9999");	520	tooltip => $vidmode_tooltip);
		521	$hbox->add (my $mode_label = new CFPlus::UI::Label
		522	align => 0, valign => 0, height => 0.8, template => "9999x9999@9+9",
		523	can_events => 1, tooltip => $vidmode_tooltip);
510		524
511	$mode_slider->connect (changed => sub {	525	$mode_slider->connect (changed => sub {
512	my ($self, $value) = @_;	526	my ($self, $value) = @_;
513		527
514	$CFG->{sdl_mode} = $self->{range}[0] = $value = int $value;	528	$CFG->{sdl_mode} = $self->{range}[0] = $value = int $value;
515	$mode_label->set_text (sprintf "%dx%d", @{$SDL_MODES[$value]});	529	$mode_label->set_text (sprintf '%dx%d@%d+%d', @{$SDL_MODES[$value]});
516	});	530	});
517	$mode_slider->emit (changed => $mode_slider->{range}[0]);	531	$mode_slider->emit (changed => $mode_slider->{range}[0]);
518		532
519	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fullscreen");	533	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fullscreen");
520	$table->add (1, $row++, $FULLSCREEN_ENABLE = new CFPlus::UI::CheckBox	534	$table->add_at (1, $row++, $FULLSCREEN_ENABLE = new CFPlus::UI::CheckBox
521	state => $CFG->{fullscreen},	535	state => $CFG->{fullscreen},
522	tooltip => "Bring the client into fullscreen mode.",	536	tooltip => "Bring the client into fullscreen mode.",
523	on_changed => sub { my ($self, $value) = @_; $CFG->{fullscreen} = $value; 0 }	537	on_changed => sub { my ($self, $value) = @_; $CFG->{fullscreen} = $value; 0 }
524	);	538	);
525		539
526	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fast & Ugly");	540	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fast & Ugly");
527	$table->add (1, $row++, new CFPlus::UI::CheckBox	541	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
528	state => $CFG->{fast},	542	state => $CFG->{fast},
529	tooltip => "Lower the visual quality considerably to speed up rendering.",	543	tooltip => "Lower the visual quality considerably to speed up rendering.",
530	on_changed => sub { my ($self, $value) = @_; $CFG->{fast} = $value; 0 }	544	on_changed => sub { my ($self, $value) = @_; $CFG->{fast} = $value; 0 }
531	);	545	);
532		546
533	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "GUI Fontsize");	547	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "GUI Fontsize");
534	$table->add (1, $row++, new CFPlus::UI::Slider	548	$table->add_at (1, $row++, new CFPlus::UI::Slider
535	range => [$CFG->{gui_fontsize}, 0.5, 2, 0, 0.1],	549	range => [$CFG->{gui_fontsize}, 0.5, 2, 0, 0.1],
536	tooltip => "The base font size used by most GUI elements that do not have their own setting.",	550	tooltip => "The base font size used by most GUI elements that do not have their own setting.",
537	on_changed => sub { $CFG->{gui_fontsize} = $_[1]; 0 },	551	on_changed => sub { $CFG->{gui_fontsize} = $_[1]; 0 },
538	);	552	);
539		553
540	$table->add (1, $row++, new CFPlus::UI::Button	554	$table->add_at (1, $row++, new CFPlus::UI::Button
541	expand => 1, align => 0, text => "Apply",	555	expand => 1, align => 0, text => "Apply",
542	tooltip => "Apply the video settings above.",	556	tooltip => "Apply the video settings above.",
543	on_activate => sub {	557	on_activate => sub {
544	video_shutdown ();	558	video_shutdown ();
545	video_init ();	559	video_init ();
546	0	560	0
547	}	561	}
548	);	562	);
549		563
550	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Map Scale");	564	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Map Scale");
551	$table->add (1, $row++, new CFPlus::UI::Slider	565	$table->add_at (1, $row++, new CFPlus::UI::Slider
552	range => [(log $CFG->{map_scale}) / (log 2), -3, 1, 0, 1],	566	range => [(log $CFG->{map_scale}) / (log 2), -3, 1, 0, 1],
553	tooltip => "Enlarge or shrink the displayed map. Changes are instant.",	567	tooltip => "Enlarge or shrink the displayed map. Changes are instant.",
554	on_changed => sub { my ($self, $value) = @_; $CFG->{map_scale} = 2 ** $value; 0 }	568	on_changed => sub { my ($self, $value) = @_; $CFG->{map_scale} = 2 ** $value; 0 }
555	);	569	);
556		570
557	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Smoothing");	571	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Map Smoothing");
558	$table->add (1, $row++, new CFPlus::UI::CheckBox	572	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
559	state => $CFG->{map_smoothing},	573	state => $CFG->{map_smoothing},
560	tooltip => "<b>Map Smoothing</b> tries to make tile borders less square. "	574	tooltip => "<b>Map Smoothing</b> tries to make tile borders less square. "
561	. "This increases load on the graphics subsystem and works only with 2.x servers. "	575	. "This increases load on the graphics subsystem and works only with 2.x servers. "
562	. "Changes take effect at next connection only.",	576	. "Changes take effect at next connection only.",
563	on_changed => sub { my ($self, $value) = @_; $CFG->{map_smoothing} = $value; 0 }	577	on_changed => sub { my ($self, $value) = @_; $CFG->{map_smoothing} = $value; 0 }
564	);	578	);
565		579
566	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fog of War");	580	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fog of War");
567	$table->add (1, $row++, new CFPlus::UI::CheckBox	581	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
568	state => $CFG->{fow_enable},	582	state => $CFG->{fow_enable},
569	tooltip => "<b>Fog-of-War</b> marks areas that cannot be seen by the player. Changes are instant.",	583	tooltip => "<b>Fog-of-War</b> marks areas that cannot be seen by the player. Changes are instant.",
570	on_changed => sub { my ($self, $value) = @_; $CFG->{fow_enable} = $value; 0 }	584	on_changed => sub { my ($self, $value) = @_; $CFG->{fow_enable} = $value; 0 }
571	);	585	);
572		586
573	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "FoW Intensity");	587	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "FoW Intensity");
574	$table->add (1, $row++, new CFPlus::UI::Slider	588	$table->add_at (1, $row++, new CFPlus::UI::Slider
575	range => [$CFG->{fow_intensity}, 0, 1, 0, 1 / 256],	589	range => [$CFG->{fow_intensity}, 0, 1, 0, 1 / 256],
576	tooltip => "<b>Fog of War Lightness.</b> The higher the intensity, the lighter the Fog-of-War color. Changes are instant.",	590	tooltip => "<b>Fog of War Lightness.</b> The higher the intensity, the lighter the Fog-of-War color. Changes are instant.",
577	on_changed => sub { my ($self, $value) = @_; $CFG->{fow_intensity} = $value; 0 }	591	on_changed => sub { my ($self, $value) = @_; $CFG->{fow_intensity} = $value; 0 }
578	);	592	);
579		593
580	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "FoW Smooth");
581	$table->add (1, $row++, new CFPlus::UI::CheckBox
582	state => $CFG->{fow_smooth},
583	tooltip => "Smooth the Fog-of-War a bit to make it more realistic. Changes are instant.",
584	on_changed => sub {
585	my ($self, $value) = @_;
586	$CFG->{fow_smooth} = $value;
587	status "Fog of War smoothing requires OpenGL 1.2 or higher" if $CFPlus::OpenGL::GL_VERSION < 1.2;
588	0
589	}
590	);
591
592	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Message Fontsize");	594	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Message Fontsize");
593	$table->add (1, $row++, new CFPlus::UI::Slider	595	$table->add_at (1, $row++, new CFPlus::UI::Slider
594	range => [$CFG->{log_fontsize}, 0.5, 2, 0, 0.1],	596	range => [$CFG->{log_fontsize}, 0.5, 2, 0, 0.1],
595	tooltip => "The font size used by the <b>message/server log</b> window only. Changes are instant.",	597	tooltip => "The font size used by the <b>message/server log</b> window only. Changes are instant.",
596	on_changed => sub { $LOGVIEW->set_fontsize ($CFG->{log_fontsize} = $_[1]); 0 },	598	on_changed => sub { $MESSAGE_WINDOW->set_fontsize ($CFG->{log_fontsize} = $_[1]); 0 },
597	);	599	);
598		600
599	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Gauge fontsize");	601	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Gauge fontsize");
600	$table->add (1, $row++, new CFPlus::UI::Slider	602	$table->add_at (1, $row++, new CFPlus::UI::Slider
601	range => [$CFG->{gauge_fontsize}, 0.5, 2, 0, 0.1],	603	range => [$CFG->{gauge_fontsize}, 0.5, 2, 0, 0.1],
602	tooltip => "Adjusts the fontsize of the gauges at the bottom right. Changes are instant.",	604	tooltip => "Adjusts the fontsize of the gauges at the bottom right. Changes are instant.",
603	on_changed => sub {	605	on_changed => sub {
604	$CFG->{gauge_fontsize} = $_[1];	606	$CFG->{gauge_fontsize} = $_[1];
605	&set_gauge_window_fontsize;	607	&set_gauge_window_fontsize;
606	0	608	0
607	}	609	}
608	);	610	);
609		611
610	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Gauge size");	612	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Gauge size");
611	$table->add (1, $row++, new CFPlus::UI::Slider	613	$table->add_at (1, $row++, new CFPlus::UI::Slider
612	range => [$CFG->{gauge_size}, 0.2, 0.8],	614	range => [$CFG->{gauge_size}, 0.2, 0.8],
613	tooltip => "Adjust the size of the stats gauges at the bottom right. Changes are instant.",	615	tooltip => "Adjust the size of the stats gauges at the bottom right. Changes are instant.",
614	on_changed => sub {	616	on_changed => sub {
615	$CFG->{gauge_size} = $_[1];	617	$CFG->{gauge_size} = $_[1];
616	$GAUGES->{win}->set_size ($WIDTH, int $HEIGHT * $CFG->{gauge_size});	618	$GAUGES->{win}->set_size ($WIDTH, int $HEIGHT * $CFG->{gauge_size});
…		…
626		628
627	$vbox->add (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]);	629	$vbox->add (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]);
628		630
629	my $row = 0;	631	my $row = 0;
630		632
631	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Audio Enable");	633	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Audio Enable");
632	$table->add (1, $row++, new CFPlus::UI::CheckBox	634	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
633	state => $CFG->{audio_enable},	635	state => $CFG->{audio_enable},
634	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.",	636	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.",
635	on_changed => sub { $CFG->{audio_enable} = $_[1]; 0 }	637	on_changed => sub { $CFG->{audio_enable} = $_[1]; 0 }
636	);	638	);
637	# $table->add (0, 9, new CFPlus::UI::Label valign => 0, align => 1, text => "Effects Volume");	639	# $table->add_at (0, 9, new CFPlus::UI::Label valign => 0, align => 1, text => "Effects Volume");
638	# $table->add (1, 8, new CFPlus::UI::Slider range => [$CFG->{effects_volume}, 0, 128, 1], on_changed => sub {	640	# $table->add_at (1, 8, new CFPlus::UI::Slider range => [$CFG->{effects_volume}, 0, 128, 1], on_changed => sub {
639	# $CFG->{effects_volume} = $_[1];	641	# $CFG->{effects_volume} = $_[1];
640	# });	642	# });
641	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Background Music");	643	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Background Music");
642	$table->add (1, $row++, my $hbox = new CFPlus::UI::HBox);	644	$table->add_at (1, $row++, my $hbox = new CFPlus::UI::HBox);
643	$hbox->add (new CFPlus::UI::CheckBox	645	$hbox->add (new CFPlus::UI::CheckBox
644	expand => 1, state => $CFG->{bgm_enable},	646	expand => 1, state => $CFG->{bgm_enable},
645	tooltip => "If enabled, playing of background music is enabled. If disabled, no background music will be played.",	647	tooltip => "If enabled, playing of background music is enabled. If disabled, no background music will be played.",
646	on_changed => sub { $CFG->{bgm_enable} = $_[1]; 0 }	648	on_changed => sub { $CFG->{bgm_enable} = $_[1]; 0 }
647	);	649	);
…		…
649	expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0, 1/128],	651	expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0, 1/128],
650	tooltip => "The volume of the background music. Changes are instant.",	652	tooltip => "The volume of the background music. Changes are instant.",
651	on_changed => sub { $CFG->{bgm_volume} = $_[1]; CFPlus::MixMusic::volume $_[1] * 128; 0 }	653	on_changed => sub { $CFG->{bgm_volume} = $_[1]; CFPlus::MixMusic::volume $_[1] * 128; 0 }
652	);	654	);
653		655
654	$table->add (1, $row++, new CFPlus::UI::Button	656	$table->add_at (1, $row++, new CFPlus::UI::Button
655	expand => 1, align => 0, text => "Apply",	657	expand => 1, align => 0, text => "Apply",
656	tooltip => "Apply the audio settings",	658	tooltip => "Apply the audio settings",
657	on_activate => sub {	659	on_activate => sub {
658	audio_shutdown ();	660	audio_shutdown ();
659	audio_init ();	661	audio_init ();
…		…
718	}	720	}
719		721
720	sub debug_setup {	722	sub debug_setup {
721	my $table = new CFPlus::UI::Table;	723	my $table = new CFPlus::UI::Table;
722		724
723	$table->add (0, 0, new CFPlus::UI::Label text => "Widget Borders");	725	$table->add_at (0, 0, new CFPlus::UI::Label text => "Widget Borders");
724	$table->add (1, 0, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 1; 0 });	726	$table->add_at (1, 0, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 1; 0 });
725	$table->add (0, 1, new CFPlus::UI::Label text => "Tooltip Widget Info");	727	$table->add_at (0, 1, new CFPlus::UI::Label text => "Tooltip Widget Info");
726	$table->add (1, 1, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 2; 0 });	728	$table->add_at (1, 1, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 2; 0 });
727	$table->add (0, 2, new CFPlus::UI::Label text => "Show FPS");	729	$table->add_at (0, 2, new CFPlus::UI::Label text => "Show FPS");
728	$table->add (1, 2, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 4; 0 });	730	$table->add_at (1, 2, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 4; 0 });
729	$table->add (0, 3, new CFPlus::UI::Label text => "Suppress Tooltips");	731	$table->add_at (0, 3, new CFPlus::UI::Label text => "Suppress Tooltips");
730	$table->add (1, 3, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 8; 0 });	732	$table->add_at (1, 3, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 8; 0 });
731	$table->add (0, 4, new CFPlus::UI::Button text => "die on click(tm)", on_activate => sub { die "violator" } );	733	$table->add_at (0, 4, new CFPlus::UI::Button text => "die on click(tm)", on_activate => sub { &CFPlus::debug() } );
732		734
733	my @default_smooth = (0.05, 0.13, 0.05, 0.13, 0.30, 0.13, 0.05, 0.13, 0.05);
734
735	for my $x (0..2) {
736	for my $y (0 .. 2) {
737	$table->add ($x + 3, $y,
738	new CFPlus::UI::Entry
739	text => $default_smooth[$x * 3 + $y],
740	on_changed => sub { $MAP->{smooth_matrix}[$x * 3 + $y] = $_[1] if $MAP; 0 },
741	);
742	}
743	}
744
745	$table->add (0, 5, new CFPlus::UI::TextEdit text => "line1\0152\0153");#d#	735	$table->add_at (0, 5, new CFPlus::UI::TextEdit text => "line1\0152\0153");#d#
		736
		737	$table->add_at (7,7, my $t = new CFPlus::UI::Table expand => 0);
		738	$t->add_at (0,0, new CFPlus::UI::Label text => "a a a a", rowspan => 1, colspan => 2);
		739	$t->add_at (2,0, new CFPlus::UI::Label text => "b\nb", rowspan => 2, colspan => 1);
		740	$t->add_at (1,2, new CFPlus::UI::Label text => "c c c c", rowspan => 1, colspan => 2);
		741	$t->add_at (0,1, new CFPlus::UI::Label text => "d\nd", rowspan => 2, colspan => 1);
		742	$t->add_at (1,1, new CFPlus::UI::Label text => "e");
		743
		744	$table->add_at (7, 6, my $c = new CFPlus::UI::Canvas);
		745
		746	$c->add_items ({
		747	type => "line_loop",
		748	color => [0, 1, 0],
		749	width => 9,
		750	coord_mode => "abs",
		751	coord => [[10, 5], [5, 50], [20, 5], [5, 60]],
		752	});
		753
		754	$c->add_items ({
		755	type => "lines",
		756	color => [1, 1, 0],
		757	width => 2,
		758	coord_mode => "rel",
		759	coord => [[0,0], [1,1], [1,0], [0,1]],
		760	});
		761
		762	$c->add_items ({
		763	type => "polygon",
		764	color => [0, 0.43, 0],
		765	width => 2,
		766	coord_mode => "rel",
		767	coord => [[0,0.2], [1,.4], [1,.6], [0,.8]],
		768	});
746		769
747	$table	770	$table
748	}	771	}
749		772
750	sub stats_window {	773	sub stats_window {
…		…
798	[2, 4, st_spd => "Spd", 10.54],	821	[2, 4, st_spd => "Spd", 10.54],
799	[2, 5, st_wspd => "WSp", 10.54],	822	[2, 5, st_wspd => "WSp", 10.54],
800	) {	823	) {
801	my ($col, $row, $id, $label, $template) = @$_;	824	my ($col, $row, $id, $label, $template) = @$_;
802		825
803	$tbl->add ($col , $row, $STATWIDS->{$id} = new CFPlus::UI::Label	826	$tbl->add_at ($col , $row, $STATWIDS->{$id} = new CFPlus::UI::Label
804	font => $FONT_FIXED, can_hover => 1, can_events => 1, valign => 0,	827	font => $FONT_FIXED, can_hover => 1, can_events => 1, valign => 0,
805	align => +1, template => $template, tooltip => "#stat_$label");	828	align => +1, template => $template, tooltip => "#stat_$label");
806	$tbl->add ($col + 1, $row, $STATWIDS->{"$id\_lbl"} = new CFPlus::UI::Label	829	$tbl->add_at ($col + 1, $row, $STATWIDS->{"$id\_lbl"} = new CFPlus::UI::Label
807	font => $FONT_FIXED, can_hover => 1, can_events => 1, fg => $color2, valign => 0,	830	font => $FONT_FIXED, can_hover => 1, can_events => 1, fg => $color2, valign => 0,
808	align => -1, text => $label, tooltip => "#stat_$label");	831	align => -1, text => $label, tooltip => "#stat_$label");
809	}	832	}
810		833
811	$vb->add (new CFPlus::UI::FancyFrame	834	$vb->add (new CFPlus::UI::FancyFrame
…		…
852	cold => ["Cold",	875	cold => ["Cold",
853	"<b>Cold</b> (this is your resistance against cold spells like icestorm, snowstorm, ...)"],	876	"<b>Cold</b> (this is your resistance against cold spells like icestorm, snowstorm, ...)"],
854	ghit => ["Ghost hit",	877	ghit => ["Ghost hit",
855	"<b>Ghost hit</b> (special attack used by ghosts and ghost-like beings)"],	878	"<b>Ghost hit</b> (special attack used by ghosts and ghost-like beings)"],
856	);	879	);
		880
857	for (qw/slow holyw conf fire depl magic	881	for (qw/slow holyw conf fire depl magic
858	drain acid pois para deat phys	882	drain acid pois para deat phys
859	blind fear tund elec cold ghit/)	883	blind fear tund elec cold ghit/)
860	{	884	{
861	$tbl2->add ($col, $row,	885	$tbl2->add_at ($col, $row,
862	$STATWIDS->{"res_$_"} =	886	$STATWIDS->{"res_$_"} =
863	new CFPlus::UI::Label	887	new CFPlus::UI::Label
864	font => $FONT_FIXED,	888	font => $FONT_FIXED,
865	template => "-100%",	889	template => "-100%",
866	align => +1,	890	align => +1,
867	valign => 0,	891	valign => 0,
868	can_events => 1,	892	can_events => 1,
869	can_hover => 1,	893	can_hover => 1,
870	tooltip => $resist_names{$_}->[1],	894	tooltip => $resist_names{$_}->[1],
871	);	895	);
872	$tbl2->add ($col + 1, $row, new CFPlus::UI::Image	896	$tbl2->add_at ($col + 1, $row, new CFPlus::UI::Image
873	font => $FONT_FIXED,	897	font => $FONT_FIXED,
874	can_hover => 1,	898	can_hover => 1,
875	can_events => 1,	899	can_events => 1,
876	path => "ui/resist/resist_$_.png",	900	path => "ui/resist/resist_$_.png",
877	tooltip => $resist_names{$_}->[1],	901	tooltip => $resist_names{$_}->[1],
878	);	902	);
879	$tbl2->add ($col + 2, $row, new CFPlus::UI::Label	903	$tbl2->add_at ($col + 2, $row, new CFPlus::UI::Label
880	text => $resist_names{$_}->[0],	904	text => $resist_names{$_}->[0],
881	font => $FONT_FIXED,	905	font => $FONT_FIXED,
882	can_hover => 1,	906	can_hover => 1,
883	can_events => 1,	907	can_events => 1,
884	tooltip => $resist_names{$_}->[1],	908	tooltip => $resist_names{$_}->[1],
…		…
917	return if $METASERVER_ATIME > time;	941	return if $METASERVER_ATIME > time;
918	$METASERVER_ATIME = time + 60;	942	$METASERVER_ATIME = time + 60;
919		943
920	my $table = $METASERVER->{table};	944	my $table = $METASERVER->{table};
921	$table->clear;	945	$table->clear;
922	$table->add (0, 0, my $label = new CFPlus::UI::Label max_w => $WIDTH * 0.8, text => "fetching server list...");	946	$table->add_at (0, 0, my $label = new CFPlus::UI::Label max_w => $WIDTH * 0.8, text => "fetching server list...");
923		947
924	my $ok = 0;	948	my $ok = 0;
925		949
926	CFPlus::background {	950	CFPlus::background {
927	my $ua = CFPlus::lwp_useragent;	951	my $ua = CFPlus::lwp_useragent;
…		…
938	"The time this server has been running without being restarted.",	962	"The time this server has been running without being restarted.",
939	"The server software version - a '+' indicates a Crossfire+ server.",	963	"The server software version - a '+' indicates a Crossfire+ server.",
940	"Short information about this server provided by its admins.",	964	"Short information about this server provided by its admins.",
941	);	965	);
942	my @col = qw(#Users Host Uptime Version Description);	966	my @col = qw(#Users Host Uptime Version Description);
943	$table->add ($_, 0, new CFPlus::UI::Label	967	$table->add_at ($_, 0, new CFPlus::UI::Label
944	can_hover => 1, can_events => 1,	968	can_hover => 1, can_events => 1,
945	align => 0, fg => [1, 1, 0],	969	align => 0, fg => [1, 1, 0],
946	text => $col[$_], tooltip => $tip[$_])	970	text => $col[$_], tooltip => $tip[$_])
947	for 0 .. $#col;	971	for 0 .. $#col;
948		972
…		…
970		994
971	$m = [$users, $host, $uptime, $version, $desc];	995	$m = [$users, $host, $uptime, $version, $desc];
972		996
973	$y++;	997	$y++;
974		998
975	$table->add (scalar @$m, $y, new CFPlus::UI::VBox children => [	999	$table->add_at (scalar @$m, $y, new CFPlus::UI::VBox children => [
976	(new CFPlus::UI::Button	1000	(new CFPlus::UI::Button
977	text => "Use",	1001	text => "Use",
978	tooltip => "Put this server into the <b>Host:Port</b> field",	1002	tooltip => "Put this server into the <b>Host:Port</b> field",
979	on_activate => sub {	1003	on_activate => sub {
980	$HOST_ENTRY->set_text ($CFG->{profile}{default}{host} = $host);	1004	$HOST_ENTRY->set_text ($CFG->{profile}{default}{host} = $host);
…		…
983	},	1007	},
984	),	1008	),
985	(new CFPlus::UI::Empty expand => 1),	1009	(new CFPlus::UI::Empty expand => 1),
986	]);	1010	]);
987		1011
988	$table->add ($_, $y, new CFPlus::UI::Label	1012	$table->add_at ($_, $y, new CFPlus::UI::Label
989	max_w => $::WIDTH * 0.4,	1013	max_w => $::WIDTH * 0.4,
990	ellipsise => 0,	1014	ellipsise => 0,
991	align => $align[$_],	1015	align => $align[$_],
992	text => $m->[$_],	1016	text => $m->[$_],
993	tooltip => $tip[$_],	1017	tooltip => $tip[$_],
…		…
1034		1058
1035	$vbox->add (new CFPlus::UI::FancyFrame	1059	$vbox->add (new CFPlus::UI::FancyFrame
1036	label => "Connection Settings",	1060	label => "Connection Settings",
1037	child => (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]),	1061	child => (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]),
1038	);	1062	);
1039	$table->add (0, 2, new CFPlus::UI::Label valign => 0, align => 1, text => "Host:Port");	1063	$table->add_at (0, 2, new CFPlus::UI::Label valign => 0, align => 1, text => "Host:Port");
1040		1064
1041	{	1065	{
1042	$table->add (1, 2, my $vbox = new CFPlus::UI::VBox);	1066	$table->add_at (1, 2, my $vbox = new CFPlus::UI::VBox);
1043		1067
1044	$vbox->add (	1068	$vbox->add (
1045	$HOST_ENTRY = new CFPlus::UI::Entry	1069	$HOST_ENTRY = new CFPlus::UI::Entry
1046	expand => 1,	1070	expand => 1,
1047	text => $CFG->{profile}{default}{host},	1071	text => $CFG->{profile}{default}{host},
1048	tooltip => "The hostname or ip address of the Crossfire(+) server to connect to",	1072	tooltip => "The hostname or ip address of the Crossfire(+) server to connect to",
1049	on_changed => sub {	1073	on_changed => sub {
1050	my ($self, $value) = @_;	1074	my ($self, $value) = @_;
1051	$CFG->{profile}{default}{host} = $value;	1075	$CFG->{profile}{default}{host} = $value;
1052	0	1076	1
1053	}	1077	}
1054	);	1078	);
1055		1079
1056	$vbox->add (new CFPlus::UI::Button	1080	$vbox->add (new CFPlus::UI::Button
1057	expand => 1,	1081	expand => 1,
1058	text => "Server List",	1082	text => "Server List",
1059	other => $METASERVER,	1083	other => $METASERVER,
1060	tooltip => "Show a list of available crossfire servers",	1084	tooltip => "Show a list of available crossfire servers",
1061	on_activate => sub { $METASERVER->toggle_visibility; 0 },	1085	on_activate => sub { $METASERVER->toggle_visibility; 0 },
1062	on_visibility_change => sub { $METASERVER->hide unless $_[1]; 0 },	1086	on_visibility_change => sub { $METASERVER->hide unless $_[1]; 1 },
1063	);	1087	);
1064	}	1088	}
1065		1089
1066	$table->add (0, 4, new CFPlus::UI::Label valign => 0, align => 1, text => "Username");	1090	$table->add_at (0, 4, new CFPlus::UI::Label valign => 0, align => 1, text => "Username");
1067	$table->add (1, 4, new CFPlus::UI::Entry	1091	$table->add_at (1, 4, new CFPlus::UI::Entry
1068	text => $CFG->{profile}{default}{user},	1092	text => $CFG->{profile}{default}{user},
1069	tooltip => "The name of your character on the server",	1093	tooltip => "The name of your character on the server",
1070	on_changed => sub { my ($self, $value) = @_; $CFG->{profile}{default}{user} = $value }	1094	on_changed => sub { my ($self, $value) = @_; $CFG->{profile}{default}{user} = $value; 1 }
1071	);	1095	);
1072		1096
1073	$table->add (0, 5, new CFPlus::UI::Label valign => 0, align => 1, text => "Password");	1097	$table->add_at (0, 5, new CFPlus::UI::Label valign => 0, align => 1, text => "Password");
1074	$table->add (1, 5, new CFPlus::UI::Entry	1098	$table->add_at (1, 5, new CFPlus::UI::Entry
1075	text => $CFG->{profile}{default}{password},	1099	text => $CFG->{profile}{default}{password},
1076	hidden => 1,	1100	hidden => 1,
1077	tooltip => "The password for your character",	1101	tooltip => "The password for your character",
1078	on_changed => sub { my ($self, $value) = @_; $CFG->{profile}{default}{password} = $value }	1102	on_changed => sub { my ($self, $value) = @_; $CFG->{profile}{default}{password} = $value; 1 }
1079	);	1103	);
1080		1104
1081	$table->add (0, 7, new CFPlus::UI::Label valign => 0, align => 1, text => "Map Size");	1105	$table->add_at (0, 7, new CFPlus::UI::Label valign => 0, align => 1, text => "Map Size");
1082	$table->add (1, 7, new CFPlus::UI::Slider	1106	$table->add_at (1, 7, new CFPlus::UI::Slider
1083	force_w => 100,	1107	force_w => 100,
1084	range => [$CFG->{mapsize}, 10, 100, 0, 1],	1108	range => [$CFG->{mapsize}, 10, 100, 0, 1],
1085	tooltip => "This is the size of the portion of the map update the server sends you. "	1109	tooltip => "This is the size of the portion of the map update the server sends you. "
1086	. "If you set this to a high value you will be able to see further, "	1110	. "If you set this to a high value you will be able to see further, "
1087	. "but you also increase bandwidth requirements and latency. "	1111	. "but you also increase bandwidth requirements and latency. "
1088	. "This option is only used once at log-in.",	1112	. "This option is only used once at log-in.",
1089	on_changed => sub { my ($self, $value) = @_; $CFG->{mapsize} = $self->{range}[0] = $value = int $value; 0 },	1113	on_changed => sub { my ($self, $value) = @_; $CFG->{mapsize} = $self->{range}[0] = $value = int $value; 1 },
1090	);	1114	);
1091		1115
1092	$table->add (0, 8, new CFPlus::UI::Label valign => 0, align => 1, text => "Face Prefetch");
1093	$table->add (1, 8, new CFPlus::UI::CheckBox
1094	state => $CFG->{face_prefetch},
1095	tooltip => "<b>Background Image Prefetch</b>\n\n"
1096	. "If enabled, the client automatically pre-fetches images from the server. "
1097	. "This might increase or create lag, but increases the chances "
1098	. "of faces being ready for display when you encounter them. "
1099	. "It also uses up server bandwidth on every connect, "
1100	. "so only set it if you really need to prefetch images. "
1101	. "This option can be set and unset any time.",
1102	on_changed => sub { $CFG->{face_prefetch} = $_[1]; 0 },
1103	);
1104
1105	$table->add (0, 9, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Rate");	1116	$table->add_at (0, 8, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Rate");
1106	$table->add (1, 9, new CFPlus::UI::Entry	1117	$table->add_at (1, 8, new CFPlus::UI::Entry
1107	text => $CFG->{output_rate},	1118	text => $CFG->{output_rate},
1108	tooltip => "The approximate bandwidth in bytes per second that the server should not exceed "	1119	tooltip => "The maximum bandwidth in bytes per second that the server should not exceed "
1109	. "when sending images, to ensure interactiveness. When 0 or unset, the server "	1120	. "when sending data. When 0 or unset, the server "
1110	. "default will be used, which is usually around 100kb/s.",	1121	. "default will be used, which is usually around 100kb/s. Most servers will "
		1122	. "dynamically find an optimal rate, so adjust this only when necessary.",
1111	on_changed => sub { $CFG->{output_rate} = $_[1]; 0 },	1123	on_changed => sub { $CFG->{output_rate} = $_[1]; 1 },
1112	);	1124	);
1113		1125
1114	$table->add (0, 10, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Count");	1126	$table->add_at (0, 9, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Count");
1115	$table->add (1, 10, new CFPlus::UI::Entry	1127	$table->add_at (1, 9, new CFPlus::UI::Entry
1116	text => $CFG->{output_count},	1128	text => $CFG->{output_count},
1117	tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.",	1129	tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.",
1118	on_changed => sub { $CFG->{output_count} = $_[1]; 0 },	1130	on_changed => sub { $CFG->{output_count} = $_[1]; 1 },
1119	);	1131	);
1120		1132
1121	$table->add (0, 11, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Sync");	1133	$table->add_at (0, 10, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Sync");
1122	$table->add (1, 11, new CFPlus::UI::Entry	1134	$table->add_at (1, 10, new CFPlus::UI::Entry
1123	text => $CFG->{output_sync},	1135	text => $CFG->{output_sync},
1124	tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.",	1136	tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.",
1125	on_changed => sub { $CFG->{output_sync} = $_[1]; 0 },	1137	on_changed => sub { $CFG->{output_sync} = $_[1]; 1 },
1126	);	1138	);
1127		1139
1128	$table->add (1, 12, $LOGIN_BUTTON = new CFPlus::UI::Button	1140	$table->add_at (1, 11, $LOGIN_BUTTON = new CFPlus::UI::Button
1129	expand => 1,	1141	expand => 1,
1130	align => 0,	1142	align => 0,
1131	text => "Login",	1143	text => "Login",
1132	on_activate => sub {	1144	on_activate => sub {
1133	$CONN ? stop_game	1145	$CONN ? stop_game
1134	: start_game;	1146	: start_game;
1135	0	1147	1
1136	},	1148	},
1137	);	1149	);
1138		1150
1139	$vbox->add (new CFPlus::UI::FancyFrame	1151	$vbox->add (new CFPlus::UI::FancyFrame
1140	label => "Server Info",	1152	label => "Server Info",
…		…
1147	sub client_setup {	1159	sub client_setup {
1148	my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1];	1160	my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1];
1149		1161
1150	my $row = 0;	1162	my $row = 0;
1151		1163
1152	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Chat Command");
1153	$table->add (1, $row++, my $saycmd = new CFPlus::UI::Entry
1154	text => $CFG->{say_command},
1155	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. "
1156	. "Usually you want to enter something like 'say' or 'shout' or 'gsay' here. "
1157	. "But you could also set it to <b>tell <i>playername</i></b> to only chat with that user.",
1158	on_changed => sub {
1159	my ($self, $value) = @_;
1160	$CFG->{say_command} = $value;
1161	0
1162	}
1163	);
1164
1165	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Tip of the day");	1164	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Tip of the day");
1166	$table->add (1, $row++, new CFPlus::UI::CheckBox	1165	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
1167	state => $CFG->{show_tips},	1166	state => $CFG->{show_tips},
1168	tooltip => "Show the <b>Tip of the day</b> window at startup?",	1167	tooltip => "Show the <b>Tip of the day</b> window at startup?",
1169	on_changed => sub {	1168	on_changed => sub {
1170	my ($self, $value) = @_;	1169	my ($self, $value) = @_;
1171	$CFG->{show_tips} = $value;	1170	$CFG->{show_tips} = $value;
1172	0	1171	0
1173	}	1172	}
1174	);	1173	);
1175		1174
1176	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Messages Window Size");	1175	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Messages Window Size");
1177	$table->add (1, $row++, my $saycmd = new CFPlus::UI::Entry	1176	$table->add_at (1, $row++, my $saycmd = new CFPlus::UI::Entry
1178	text => $CFG->{logview_max_par},	1177	text => $CFG->{logview_max_par},
1179	tooltip => "This is maximum number of messages remembered in the <b>Messages</b> window. If the server "	1178	tooltip => "This is maximum number of messages remembered in the <b>Messages</b> window. If the server "
1180	. "sends more messages than this number, older messages get removed to save memory and "	1179	. "sends more messages than this number, older messages get removed to save memory and "
1181	. "computing time. A value of <b>0</b> disables this feature, but that is not recommended.",	1180	. "computing time. A value of <b>0</b> disables this feature, but that is not recommended.",
1182	on_changed => sub {	1181	on_changed => sub {
1183	my ($self, $value) = @_;	1182	my ($self, $value) = @_;
1184	$LOGVIEW->{max_par} = $CFG->{logview_max_par} = $value*1;	1183	$MESSAGE_WINDOW->set_max_para ($CFG->{logview_max_par} = $value*1);
1185	0	1184	0
1186	},	1185	},
1187	);	1186	);
1188		1187
1189	$table	1188	$table
1190	}	1189	}
1191		1190
1192	sub message_window {
1193	my $window = new CFPlus::UI::Toplevel
1194	name => "message_window",
1195	title => "Messages",
1196	border_bg => [1, 1, 1, 1],
1197	x => "max",
1198	y => 0,
1199	force_w => $::WIDTH * 0.4,
1200	force_h => $::HEIGHT * 0.5,
1201	child => (my $vbox = new CFPlus::UI::VBox),
1202	has_close_button => 1;
1203
1204	$vbox->add ($LOGVIEW);
1205
1206	$vbox->add (my $input = new CFPlus::UI::Entry
1207	tooltip => "<b>Chat Box</b>. If you enter a text and press return/enter here, the current <i>communication command</i> "
1208	. "from the client setup will be prepended (e.g. <b>shout</b>, <b>chat</b>...). "
1209	. "If you prepend a slash (/), you will submit a command instead (similar to IRC). "
1210	. "A better way to submit commands (and the occasional chat command) is often the map command completer.",
1211	on_focus_in => sub {
1212	my ($input, $prev_focus) = @_;
1213
1214	delete $input->{refocus_map};
1215
1216	if ($prev_focus == $MAPWIDGET && $input->{auto_activated}) {
1217	$input->{refocus_map} = 1;
1218	}
1219	delete $input->{auto_activated};
1220
1221	0
1222	},
1223	on_activate => sub {
1224	my ($input, $text) = @_;
1225	$input->set_text ('');
1226
1227	if ($text =~ /^\/(.*)/) {
1228	$::CONN->user_send ($1);
1229	} else {
1230	my $say_cmd = $::CFG->{say_command} || 'say';
1231	$::CONN->user_send ("$say_cmd $text");
1232	}
1233	if ($input->{refocus_map}) {
1234	delete $input->{refocus_map};
1235	$MAPWIDGET->focus_in
1236	}
1237
1238	0
1239	},
1240	on_escape => sub {
1241	$MAPWIDGET->grab_focus;
1242
1243	0
1244	},
1245	);
1246
1247	$CONSOLE = {
1248	window => $window,
1249	input => $input,
1250	};
1251
1252	$window
1253	}
1254
1255	sub autopickup_setup {	1191	sub autopickup_setup {
		1192	my $r = new CFPlus::UI::ScrolledWindow (
		1193	expand => 1,
		1194	scroll_y => 1
		1195	);
1256	my $table = new CFPlus::UI::Table;	1196	$r->add (my $table = new CFPlus::UI::Table
		1197	row_expand => [0],
		1198	col_expand => [0, 1, 0, 1],
		1199	);
1257		1200
1258	for (	1201	for (
1259	["General", 0, 0,	1202	["General", 0, 0,
1260	["Enable autopickup" => PICKUP_NEWMODE, \$PICKUP_ENABLE],	1203	["Enable autopickup" => PICKUP_NEWMODE, \$PICKUP_ENABLE],
1261	["Inhibit autopickup" => PICKUP_INHIBIT],	1204	["Inhibit autopickup" => PICKUP_INHIBIT],
…		…
1296	],	1239	],
1297	["Weight/Value ratio", 2, 17]	1240	["Weight/Value ratio", 2, 17]
1298	)	1241	)
1299	{	1242	{
1300	my ($title, $x, $y, @bits) = @$_;	1243	my ($title, $x, $y, @bits) = @$_;
1301	$table->add ($x, $y, new CFPlus::UI::Label text => $title, align => 1, fg => [1, 1, 0]);	1244	$table->add_at ($x, $y, new CFPlus::UI::Label text => $title, align => 1, fg => [1, 1, 0]);
1302		1245
1303	for (@bits) {	1246	for (@bits) {
1304	++$y;	1247	++$y;
1305		1248
1306	my $mask = $_->[1];	1249	my $mask = $_->[1];
1307	$table->add ($x , $y, new CFPlus::UI::Label text => $_->[0], align => 1, expand => 1);	1250	$table->add_at ($x , $y, new CFPlus::UI::Label text => $_->[0], align => 1, expand => 1);
1308	$table->add ($x+1, $y, my $checkbox = new CFPlus::UI::CheckBox	1251	$table->add_at ($x+1, $y, my $checkbox = new CFPlus::UI::CheckBox
1309	state => $::CFG->{pickup} & $mask,	1252	state => $::CFG->{pickup} & $mask,
1310	on_changed => sub {	1253	on_changed => sub {
1311	my ($box, $value) = @_;	1254	my ($box, $value) = @_;
1312		1255
1313	if ($value) {	1256	if ($value) {
…		…
1324		1267
1325	${$_->[2]} = $checkbox if $_->[2];	1268	${$_->[2]} = $checkbox if $_->[2];
1326	}	1269	}
1327	}	1270	}
1328		1271
1329	$table->add (2, 18, new CFPlus::UI::ValSlider	1272	$table->add_at (2, 18, new CFPlus::UI::ValSlider
1330	range => [$::CFG->{pickup} & 0xF, 0, 16, 1, 1],	1273	range => [$::CFG->{pickup} & 0xF, 0, 16, 1, 1],
1331	template => ">= 99",	1274	template => ">= 99",
1332	to_value => sub { ">= " . 5 * $_[0] },	1275	to_value => sub { ">= " . 5 * $_[0] },
1333	on_changed => sub {	1276	on_changed => sub {
1334	my ($slider, $value) = @_;	1277	my ($slider, $value) = @_;
…		…
1337	$::CFG->{pickup} |= int $value	1280	$::CFG->{pickup} |= int $value
1338	if $value;	1281	if $value;
1339	1;	1282	1;
1340	});	1283	});
1341		1284
1342	$table->add (3, 18, new CFPlus::UI::Button	1285	$table->add_at (3, 18, new CFPlus::UI::Button
1343	text => "set",	1286	text => "set",
1344	on_activate => sub {	1287	on_activate => sub {
1345	$::CONN->send_command ("pickup $::CFG->{pickup}")	1288	$::CONN->send_command ("pickup $::CFG->{pickup}")
1346	if defined $::CONN;	1289	if defined $::CONN;
1347	0	1290	0
1348	});	1291	});
1349		1292
1350	$table	1293	$r
1351	}	1294	}
1352		1295
1353	my %SORT_ORDER = (	1296	my %SORT_ORDER = (
1354	type => undef,	1297	type => undef,
1355	mtime => sub {	1298	mtime => sub {
…		…
1434	has_close_button => 1	1377	has_close_button => 1
1435	;	1378	;
1436		1379
1437	my $ntb =	1380	my $ntb =
1438	$PL_NOTEBOOK =	1381	$PL_NOTEBOOK =
1439	new CFPlus::UI::Notebook expand => 1, debug => 1;	1382	new CFPlus::UI::Notebook expand => 1;
1440		1383
1441	$ntb->add (	1384	$ntb->add_tab (
1442	"Statistics (F2)" => $STATS_PAGE = stats_window,	1385	"Statistics (F2)" => $STATS_PAGE = stats_window,
1443	"Shows statistics, where all your Stats and Resistances are shown."	1386	"Shows statistics, where all your Stats and Resistances are shown."
1444	);	1387	);
1445	$ntb->add (	1388	$ntb->add_tab (
1446	"Skills (F3)" => $SKILL_PAGE = skill_window,	1389	"Skills (F3)" => $SKILL_PAGE = skill_window,
1447	"Shows all your Skills."	1390	"Shows all your Skills."
1448	);	1391	);
1449		1392
1450	my $spellsw = $SPELL_PAGE = new CFPlus::UI::ScrolledWindow (expand => 1, scroll_y => 1);	1393	my $spellsw = $SPELL_PAGE = new CFPlus::UI::ScrolledWindow (expand => 1, scroll_y => 1);
1451	$spellsw->add ($SPELL_LIST = new CFPlus::UI::SpellList);	1394	$spellsw->add ($SPELL_LIST = new CFPlus::UI::SpellList);
1452	$ntb->add (	1395	$ntb->add_tab (
1453	"Spellbook (F4)" => $spellsw,	1396	"Spellbook (F4)" => $spellsw,
1454	"Displays all spells you have and lets you edit keyboard shortcuts for them."	1397	"Displays all spells you have and lets you edit keyboard shortcuts for them."
1455	);	1398	);
1456	$ntb->add (	1399	$ntb->add_tab (
1457	"Inventory (F5)" => $INVENTORY_PAGE = inventory_widget,	1400	"Inventory (F5)" => $INVENTORY_PAGE = inventory_widget,
1458	"Toggles the inventory window, where you can manage your loot (or treasures :). "	1401	"Toggles the inventory window, where you can manage your loot (or treasures :). "
1459	. "You can also hit the <b>Tab</b>-key to show/hide the Inventory."	1402	. "You can also hit the <b>Tab</b>-key to show/hide the Inventory."
1460	);	1403	);
		1404	$ntb->add_tab (Pickup => autopickup_setup,
		1405	"Configure autopickup settings, i.e. which items you will pick up automatically when walking (or running) over them.");
1461		1406
1462	$ntb->set_current_page ($INVENTORY_PAGE);	1407	$ntb->set_current_page ($INVENTORY_PAGE);
1463		1408
1464	$plwin->add ($ntb);	1409	$plwin->add ($ntb);
1465	$plwin	1410	$plwin
…		…
1662	expand => 1, fontsize => 0.8, padding_x => 4, padding_y => 4);	1607	expand => 1, fontsize => 0.8, padding_x => 4, padding_y => 4);
1663	$viewer->add_paragraph (CFPlus::Pod::as_paragraphs CFPlus::Pod::section_of $tod[$todindex]);	1608	$viewer->add_paragraph (CFPlus::Pod::as_paragraphs CFPlus::Pod::section_of $tod[$todindex]);
1664		1609
1665	$vbox->add (my $table = new CFPlus::UI::Table col_expand => [0, 1]);	1610	$vbox->add (my $table = new CFPlus::UI::Table col_expand => [0, 1]);
1666		1611
1667	$table->add (0, 0, new CFPlus::UI::Button	1612	$table->add_at (0, 0, new CFPlus::UI::Button
1668	text => "Close",	1613	text => "Close",
1669	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>.",	1614	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>.",
1670	on_activate => $close,	1615	on_activate => $close,
1671	);	1616	);
1672		1617
1673	$table->add (2, 0, new CFPlus::UI::Button	1618	$table->add_at (2, 0, new CFPlus::UI::Button
1674	text => "Next",	1619	text => "Next",
1675	tooltip => "Show the next <b>Tip of the day</b>.",	1620	tooltip => "Show the next <b>Tip of the day</b>.",
1676	on_activate => sub {	1621	on_activate => sub {
1677	$close->();	1622	$close->();
1678	&show_tip_of_the_day;	1623	&show_tip_of_the_day;
…		…
1687	CFPlus::SDL_Init	1632	CFPlus::SDL_Init
1688	and die "SDL::Init failed!\n";	1633	and die "SDL::Init failed!\n";
1689	}	1634	}
1690		1635
1691	sub video_init {	1636	sub video_init {
1692	sdl_init;
1693
1694	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} >= @SDL_MODES;	1637	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} >= @SDL_MODES;
1695		1638
1696	my ($old_w, $old_h) = ($WIDTH, $HEIGHT);	1639	my ($old_w, $old_h) = ($WIDTH, $HEIGHT);
1697		1640
1698	($WIDTH, $HEIGHT) = @{ $SDL_MODES[$CFG->{sdl_mode}] };	1641	($WIDTH, $HEIGHT, my ($rgb, $alpha)) = @{ $SDL_MODES[$CFG->{sdl_mode}] };
1699	$FULLSCREEN = $CFG->{fullscreen};	1642	$FULLSCREEN = $CFG->{fullscreen};
1700	$FAST = $CFG->{fast};	1643	$FAST = $CFG->{fast};
1701		1644
1702	CFPlus::SDL_SetVideoMode $WIDTH, $HEIGHT, $FULLSCREEN	1645	CFPlus::SDL_SetVideoMode $WIDTH, $HEIGHT, $rgb, $alpha, $FULLSCREEN
1703	or die "SDL_SetVideoMode failed: " . (CFPlus::SDL_GetError) . "\n";	1646	or die "SDL_SetVideoMode failed: " . (CFPlus::SDL_GetError) . "\n";
1704		1647
1705	$SDL_ACTIVE = 1;	1648	$SDL_ACTIVE = 1;
1706	$LAST_REFRESH = time - 0.01;	1649	$LAST_REFRESH = time - 0.01;
1707		1650
…		…
1749		1692
1750	$MAPWIDGET = new CFPlus::MapWidget;	1693	$MAPWIDGET = new CFPlus::MapWidget;
1751	$MAPWIDGET->connect (activate_console => sub {	1694	$MAPWIDGET->connect (activate_console => sub {
1752	my ($mapwidget, $preset) = @_;	1695	my ($mapwidget, $preset) = @_;
1753		1696
1754	if ($CONSOLE) {	1697	$MESSAGE_WINDOW->activate_console ($preset)
1755	$CONSOLE->{input}->{auto_activated} = 1;	1698	if $MESSAGE_WINDOW;
1756	$CONSOLE->{input}->grab_focus;
1757
1758	if ($preset && $CONSOLE->{input}->get_text eq '') {
1759	$CONSOLE->{input}->set_text ($preset);
1760	}
1761	}
1762	});	1699	});
1763	$MAPWIDGET->show;	1700	$MAPWIDGET->show;
1764	$MAPWIDGET->grab_focus;	1701	$MAPWIDGET->grab_focus;
1765
1766	$LOGVIEW = new CFPlus::UI::TextScroller
1767	expand => 1,
1768	font => $FONT_FIXED,
1769	fontsize => $::CFG->{log_fontsize},
1770	indent => -4,
1771	can_hover => 1,
1772	can_events => 1,
1773	max_par => $CFG->{logview_max_par},
1774	tooltip => "<b>Server Log</b>. This text viewer contains all recent messages sent by the server.",
1775	;
1776		1702
1777	$SETUP_DIALOG = new CFPlus::UI::Toplevel	1703	$SETUP_DIALOG = new CFPlus::UI::Toplevel
1778	title => "Setup",	1704	title => "Setup",
1779	name => "setup_dialog",	1705	name => "setup_dialog",
1780	x => 'center',	1706	x => 'center',
…		…
1784	force_h => $::HEIGHT * 0.6,	1710	force_h => $::HEIGHT * 0.6,
1785	has_close_button => 1,	1711	has_close_button => 1,
1786	;	1712	;
1787		1713
1788	$METASERVER = metaserver_dialog;	1714	$METASERVER = metaserver_dialog;
		1715	$MESSAGE_WINDOW = new CFPlus::UI::MessageWindow;
1789		1716
1790	$SETUP_DIALOG->add ($SETUP_NOTEBOOK = new CFPlus::UI::Notebook expand => 1, debug => 1,	1717	$SETUP_DIALOG->add ($SETUP_NOTEBOOK = new CFPlus::UI::Notebook expand => 1, debug => 1,
1791	filter => new CFPlus::UI::ScrolledWindow expand => 1, scroll_y => 1);	1718	filter => new CFPlus::UI::ScrolledWindow expand => 1, scroll_y => 1);
1792		1719
1793	$SETUP_NOTEBOOK->add (Server => $SETUP_SERVER = server_setup,	1720	$SETUP_NOTEBOOK->add_tab (Server => $SETUP_SERVER = server_setup,
1794	"Configure the server to play on, your username, password and other server-related options.");	1721	"Configure the server to play on, your username, password and other server-related options.");
1795	$SETUP_NOTEBOOK->add (Client => client_setup,	1722	$SETUP_NOTEBOOK->add_tab (Client => client_setup,
1796	"Configure various client-specific settings.");	1723	"Configure various client-specific settings.");
1797	$SETUP_NOTEBOOK->add (Pickup => autopickup_setup,
1798	"Configure autopickup settings, i.e. which items you will pick up automatically when walking (or running) over them.");
1799	$SETUP_NOTEBOOK->add (Graphics => graphics_setup,	1724	$SETUP_NOTEBOOK->add_tab (Graphics => graphics_setup,
1800	"Configure the video mode, performance, fonts and other graphical aspects of the game.");	1725	"Configure the video mode, performance, fonts and other graphical aspects of the game.");
1801	$SETUP_NOTEBOOK->add (Audio => audio_setup,	1726	$SETUP_NOTEBOOK->add_tab (Audio => audio_setup,
1802	"Configure the use of audio, sound effects and background music.");	1727	"Configure the use of audio, sound effects and background music.");
1803	$SETUP_NOTEBOOK->add (Keyboard => $SETUP_KEYBOARD = keyboard_setup,	1728	$SETUP_NOTEBOOK->add_tab (Keyboard => $SETUP_KEYBOARD = keyboard_setup,
1804	"Lets you define, edit and delete key bindings."	1729	"Lets you define, edit and delete key bindings."
1805	. "There is a shortcut for making bindings: <b>Control-Insert</b> opens the binding editor "	1730	. "There is a shortcut for making bindings: <b>Control-Insert</b> opens the binding editor "
1806	. "with nothing set and the recording started. After doing the actions you "	1731	. "with nothing set and the recording started. After doing the actions you "
1807	. "want to record press <b>Insert</b> and you will be asked to press a key-combo. "	1732	. "want to record press <b>Insert</b> and you will be asked to press a key-combo. "
1808	. "After pressing the combo the binding will be saved automatically and the "	1733	. "After pressing the combo the binding will be saved automatically and the "
1809	. "binding editor closes");	1734	. "binding editor closes");
1810	$SETUP_NOTEBOOK->add (Debug => debug_setup,	1735	$SETUP_NOTEBOOK->add_tab (Debug => debug_setup,
1811	"Some debuggin' options. Do not ask.");	1736	"Some debuggin' options. Do not ask.");
1812		1737
1813	$BUTTONBAR = new CFPlus::UI::Buttonbar x => 0, y => 0, z => 200; # put on top	1738	$BUTTONBAR = new CFPlus::UI::Buttonbar x => 0, y => 0, z => 200; # put on top
1814		1739
1815	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Setup", other => $SETUP_DIALOG,	1740	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Setup", other => $SETUP_DIALOG,
1816	tooltip => "Toggles a dialog where you can configure all aspects of this client.");	1741	tooltip => "Toggles a dialog where you can configure all aspects of this client.");
1817		1742
1818	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Message Window", other => $MESSAGE_WINDOW = message_window,	1743	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Message Window", other => $MESSAGE_WINDOW,
1819	tooltip => "Toggles the server message log, where the client collects <i>all</i> messages from the server.");	1744	tooltip => "Toggles the server message log, where the client collects <i>all</i> messages from the server.");
1820		1745
1821	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	1746	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
1822		1747
1823	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Playerbook", other => player_window,	1748	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Playerbook", other => player_window,
…		…
1856	}	1781	}
1857		1782
1858	$STATUSBOX->add ("Set video mode $WIDTH×$HEIGHT", timeout => 10, fg => [1, 1, 1, 0.5]);	1783	$STATUSBOX->add ("Set video mode $WIDTH×$HEIGHT", timeout => 10, fg => [1, 1, 1, 0.5]);
1859	}	1784	}
1860		1785
1861	sub setup_build_button {
1862	my ($enabled) = @_;
1863	if ($enabled) {
1864	$BUILD_BUTTON->hide if $BUILD_BUTTON;
1865	$BUILD_BUTTON ||= new CFPlus::UI::Button
1866	text => "Build",
1867	tooltip => "Opens the ingame builder",
1868	on_activate => sub {
1869	if ($CONN) {
1870	$CONN->send_ext_req (builder_player_items => sub {
1871	open_ingame_editor ($_[0]) if exists $_[0]->{items};
1872	});
1873	}
1874	0
1875	};
1876	$BUTTONBAR->add ($BUILD_BUTTON);
1877	} else {
1878	$BUILD_BUTTON->hide if $BUILD_BUTTON;
1879	}
1880	}
1881
1882	sub open_ingame_editor {
1883	my ($msg) = @_;
1884
1885	my $win = new CFPlus::UI::Toplevel
1886	x => 0,
1887	y => 'center',
1888	z => 4,
1889	name => 'builder_window',
1890	force_w => int $WIDTH * 1/4,
1891	force_h => int $HEIGHT * 3/4,
1892	title => "In game builder",
1893	has_close_button => 1;
1894
1895	my $r = new CFPlus::UI::ScrolledWindow (
1896	expand => 1,
1897	scroll_y => 1
1898	);
1899	$r->add (my $vb = new CFPlus::UI::VBox);
1900	$win->add ($r);
1901
1902
1903	$vb->add (
1904	new CFPlus::UI::Button
1905	text => "Disable build mode",
1906	on_activate => sub { $::IN_BUILD_MODE = undef }
1907	);
1908	$vb->add (
1909	new CFPlus::UI::Button
1910	text => "ERASE",
1911	on_activate => sub { $::IN_BUILD_MODE = { do_erase => 1 } }
1912	);
1913
1914	for my $itemarchname (
1915	sort {
1916	$msg->{items}->{$a}->{build_arch_name}
1917	cmp $msg->{items}->{$b}->{build_arch_name}
1918	} keys %{$msg->{items}}
1919	) {
1920	my $info = $msg->{items}->{$itemarchname};
1921	$vb->add (
1922	new CFPlus::UI::Button text => $info->{build_arch_name},
1923	on_activate => sub {
1924	$::IN_BUILD_MODE = { item => $itemarchname, info => $info };
1925
1926	if (grep { $msg->{items}->{$itemarchname}->{$_} } qw/has_connection has_name has_text/) {
1927	build_mode_query_arch_info ();
1928	}
1929	}
1930	);
1931	}
1932
1933	$win->show;
1934	}
1935
1936	sub build_mode_query_arch_info {
1937	my ($iteminfo) = $::IN_BUILD_MODE;
1938	my $itemarchname = $iteminfo->{item};
1939	my $info = $iteminfo->{info};
1940
1941	my $dialog = new CFPlus::UI::Toplevel
1942	x => "center",
1943	y => "center",
1944	z => 50,
1945	force_w => int $WIDTH * 1/2,
1946	title => "Enter information for placement of '$itemarchname'",
1947	has_close_button => 1;
1948
1949	$dialog->add (my $vb = new CFPlus::UI::VBox expand => 1);
1950
1951	$vb->add (my $table = new CFPlus::UI::Table expand => 1);
1952	my $row = 0;
1953	if ($info->{has_name}) {
1954	$table->add (0, $row, new CFPlus::UI::Label text => "Name:");
1955	$table->add (1, $row++, new CFPlus::UI::Entry expand => 1, on_changed => sub { $::IN_BUILD_MODE->{name} = $_[1]; 0 });
1956	}
1957	if ($info->{has_text}) {
1958	$table->add (0, $row, new CFPlus::UI::Label text => "Text:");
1959	$table->add (1, $row++, new CFPlus::UI::Entry expand => 1, on_changed => sub { $::IN_BUILD_MODE->{text} = $_[1]; 0 });
1960	}
1961	if ($info->{has_connection}) {
1962	$table->add (0, $row, new CFPlus::UI::Label text => "Connection ID:");
1963	$table->add (1, $row++,
1964	new CFPlus::UI::Entry
1965	expand => 1,
1966	on_changed => sub { $::IN_BUILD_MODE->{connection} = $_[1]; 0 },
1967	tooltip => "Enter the connection ID here. The connection ID connects actors like a lever to a gate or a magic ear to a gate"
1968	);
1969	}
1970
1971	$vb->add (my $hb = new CFPlus::UI::HBox expand => 1);
1972	$hb->add (new CFPlus::UI::Button
1973	text => "Close",
1974	expand => 1,
1975	on_activate => sub { $dialog->hide; 0 },
1976	);
1977	$dialog->show;
1978	}
1979
1980	sub video_shutdown {	1786	sub video_shutdown {
1981	CFPlus::OpenGL::shutdown;	1787	CFPlus::OpenGL::shutdown;
1982		1788
1983	undef $SDL_ACTIVE;	1789	undef $SDL_ACTIVE;
1984	}	1790	}
1985		1791
1986	my @bgmusic = qw(game1.ogg game2.ogg game3.ogg game5.ogg game6.ogg ross1.ogg ross2.ogg ross3.ogg ross4.ogg ross5.ogg); #d#
1987	my $bgmusic;#TODO#hack#d#
1988
1989	sub audio_channel_finished {	1792	sub audio_channel_finished {
1990	my ($channel) = @_;	1793	my ($channel) = @_;
1991		1794
1992	#warn "channel $channel finished\n";#d#	1795	# warn "channel $channel finished\n";#d#
		1796	}
		1797
		1798	our %AUDIO_PLAY;
		1799	our %AUDIO_CHUNK;
		1800
		1801	sub audio_sound_push($) {
		1802	my ($face) = @_;
		1803
		1804	if (my $chunk = $AUDIO_CHUNK{$face}) {
		1805	for (grep $_->[0] >= Event::time, @{(delete $AUDIO_PLAY{$face}) || []}) {
		1806	my (undef, $dx, $dy, $vol) = @$_;
		1807
		1808	my $channel = CFPlus::Channel::find;
		1809	$channel->volume (128 + $vol);
		1810	$dx = $dx / 10 * 255;
		1811	$channel->set_panning ((min 255, 255 - $dx), (min 255, 255 + $dx));
		1812
		1813	# my $angle = $dx ? : $dx < 0 ?
		1814	# my $distance = -$vol;
		1815	# $channel->set_position ($angle, $distance);
		1816
		1817	$chunk->play ($channel);
		1818	}
		1819	} else {
		1820	# sound_meta not set means data is in flight either way
		1821	my $meta = $CONN->{sound_meta}{$face}
		1822	or return;
		1823
		1824	# fetch from database
		1825	CFPlus::DB::get res_data => $meta->{name}, sub {
		1826	my $vol = $meta->{meta}{volume} || 1;
		1827	my $rwops = new CFPlus::RW $_[0];
		1828	my $chunk = new CFPlus::MixChunk $rwops;
		1829	$chunk->volume ($vol * 128);
		1830	$AUDIO_CHUNK{$face} = $chunk;
		1831
		1832	audio_sound_push ($face);
		1833	};
		1834	}
		1835	}
		1836
		1837	sub audio_sound_play {
		1838	my ($face, $dx, $dy, $vol) = @_;
		1839
		1840	$SDL_MIXER
		1841	or return;
		1842
		1843	my $queue = $AUDIO_PLAY{$face} ||= [];
		1844	push @$queue, [Event::time + 0.2, $dx, $dy, $vol]; # delay sound by max. 0.2s
		1845	audio_sound_push $face
		1846	unless @$queue > 1;
		1847	}
		1848
		1849	sub audio_music_set_ambient {
		1850	my ($songs) = @_;
		1851
		1852	my @want =
		1853	grep $_,
		1854	map $CONN->{music_meta}{$_},
		1855	@$songs;
		1856
		1857	if (@want) {
		1858	@MUSIC_WANT = @want;
		1859	&audio_music_changed ();
		1860	}
		1861	}
		1862
		1863	sub audio_music_start {
		1864	my $meta = $MUSIC_PLAYING_META;
		1865
		1866	CFPlus::DB::get res_data => $meta->{name}, sub {
		1867	return unless $SDL_MIXER;
		1868
		1869	# music might have changed...
		1870	$meta eq $MUSIC_PLAYING_META
		1871	or return &audio_music_start ();
		1872
		1873	$MUSIC_PLAYING_DATA = \$_[0];
		1874
		1875	my $rwops = $meta->{path}
		1876	? new_from_file CFPlus::RW $meta->{path}
		1877	: new CFPlus::RW $$MUSIC_PLAYING_DATA;
		1878
		1879	$MUSIC_PLAYER = new CFPlus::MixMusic $rwops
		1880	or ((warn CFPlus::Mix_GetError), return); # pretty fatal error
		1881
		1882	my $NOW = time;
		1883
		1884	if ($MUSIC_PLAYING_META->{stop_time} > $NOW - $MUSIC_RESUME) {
		1885	my $pos = $MUSIC_PLAYING_META->{stop_pos};
		1886	$MUSIC_PLAYER->fade_in_pos (0, 1000, $pos);
		1887	$MUSIC_START = time - $pos;
		1888	} else {
		1889	$MUSIC_PLAYER->play (0);
		1890	$MUSIC_START = time;
		1891	}
		1892
		1893	delete $MUSIC_PLAYING_META->{stop_time};
		1894	delete $MUSIC_PLAYING_META->{stop_pos};
		1895	}
		1896	}
		1897
		1898	sub audio_music_changed {
		1899	return unless $CFG->{bgm_enable};
		1900	return unless $SDL_MIXER;
		1901
		1902	# default MUSIC_WANT == MUSIC_DEFAULT
		1903	@MUSIC_WANT = { path => CFPlus::find_rcfile "music/$MUSIC_DEFAULT" } unless @MUSIC_WANT;
		1904
		1905	# if the currently playing song is acceptable, let it continue
		1906	return if $MUSIC_PLAYING_META
		1907	&& grep $MUSIC_PLAYING_META == $_, @MUSIC_WANT;
		1908
		1909	my $NOW = time;
		1910
		1911	if ($MUSIC_PLAYING_META) {
		1912	$MUSIC_PLAYING_META->{stop_time} = $NOW;
		1913	$MUSIC_PLAYING_META->{stop_pos} = $NOW - $MUSIC_START;
		1914	CFPlus::MixMusic::fade_out 1000;
		1915	} else {
		1916	# sort by stop time, oldest first
		1917	@MUSIC_WANT = sort { $a->{stop_time} <=> $b->{stop_time} } @MUSIC_WANT;
		1918
		1919	# if the most recently-played piece played very recently,
		1920	# resume it, else choose the oldest piece for rotation.
		1921	$MUSIC_PLAYING_META =
		1922	$MUSIC_WANT[-1]{stop_time} > $NOW - $MUSIC_RESUME
		1923	? $MUSIC_WANT[-1]
		1924	: $MUSIC_WANT[0];
		1925
		1926	audio_music_start;
		1927	}
1993	}	1928	}
1994		1929
1995	sub audio_music_finished {	1930	sub audio_music_finished {
1996	return unless $CFG->{bgm_enable};	1931	undef $MUSIC_PLAYER;
		1932	undef $MUSIC_PLAYING_META;
		1933	undef $MUSIC_PLAYING_DATA;
1997		1934
1998	# TODO: hack, do play loop and mood music	1935	audio_music_changed;
1999	$bgmusic = new_from_file CFPlus::MixMusic CFPlus::find_rcfile "music/$bgmusic[0]";
2000	$bgmusic->play (0);
2001
2002	push @bgmusic, shift @bgmusic;
2003	}	1936	}
2004		1937
2005	sub audio_init {	1938	sub audio_init {
2006	if ($CFG->{audio_enable}) {	1939	if ($CFG->{audio_enable}) {
2007	if (open my $fh, "<", CFPlus::find_rcfile "sounds/config") {	1940	$ENV{MIX_EFFECTSMAXSPEED} = 1;
2008	$SDL_MIXER = !CFPlus::Mix_OpenAudio;	1941	$SDL_MIXER = !CFPlus::Mix_OpenAudio;
2009		1942
2010	unless ($SDL_MIXER) {	1943	unless ($SDL_MIXER) {
2011	status "Unable to open sound device: there will be no sound";	1944	status "Unable to open sound device: there will be no sound";
2012	return;	1945	return;
2013	}
2014
2015	CFPlus::Mix_AllocateChannels 8;
2016	CFPlus::MixMusic::volume $CFG->{bgm_volume} * 128;
2017
2018	audio_music_finished;
2019
2020	local $_;
2021	while (<$fh>) {
2022	next if /^\s*#/;
2023	next if /^\s*$/;
2024
2025	my ($file, $volume, $event) = split /\s+/, $_, 3;
2026
2027	push @SOUNDS, "$volume,$file";
2028
2029	$AUDIO_CHUNKS{"$volume,$file"} ||= do {
2030	my $chunk = new_from_file CFPlus::MixChunk CFPlus::find_rcfile "sounds/$file";
2031	$chunk->volume ($volume * 128 / 100);
2032	$chunk
2033	};
2034	}
2035	} else {
2036	status "unable to open sound config: $!";
2037	}	1946	}
		1947
		1948	CFPlus::Mix_AllocateChannels 16;
		1949	CFPlus::MixMusic::volume $CFG->{bgm_volume} * 128;
		1950
		1951	audio_music_finished;
		1952	} else {
		1953	undef $SDL_MIXER;
2038	}	1954	}
2039	}	1955	}
2040		1956
2041	sub audio_shutdown {	1957	sub audio_shutdown {
2042	CFPlus::Mix_CloseAudio if $SDL_MIXER;	1958	CFPlus::Mix_CloseAudio if $SDL_MIXER;
2043	undef $SDL_MIXER;	1959	undef $SDL_MIXER;
2044	@SOUNDS = ();	1960	@SOUNDS = ();
2045	%AUDIO_CHUNKS = ();	1961	%AUDIO_CHUNK = ();
2046	}	1962	}
2047		1963
2048	my %animate_object;	1964	my %animate_object;
2049	my $animate_timer;	1965	my $animate_timer;
2050		1966
2051	my $fps = 9;	1967	my $fps = 9;
2052
2053	my %demo;#d#
2054		1968
2055	sub force_refresh {	1969	sub force_refresh {
2056	$fps = $fps * 0.95 + 1 / (($NOW - $LAST_REFRESH) || 0.1) * 0.05;	1970	$fps = $fps * 0.95 + 1 / (($NOW - $LAST_REFRESH) || 0.1) * 0.05;
2057	debug sprintf "%3.2f", $fps if $ENV{CFPLUS_DEBUG} & 4;	1971	debug sprintf "%3.2f", $fps if $ENV{CFPLUS_DEBUG} & 4;
2058		1972
2059	$CFPlus::UI::ROOT->draw;	1973	$CFPlus::UI::ROOT->draw;
2060		1974
2061	$WANT_REFRESH = 0;	1975	$WANT_REFRESH = 0;
2062	$CAN_REFRESH = 0;	1976	$CAN_REFRESH = 0;
2063	$LAST_REFRESH = $NOW;	1977	$LAST_REFRESH = $NOW;
2064		1978
2065	CFPlus::SDL_GL_SwapBuffers;	1979	CFPlus::SDL_GL_SwapBuffers;
2066	}	1980	}
2067		1981
2068	my $refresh_watcher = Event->timer (after => 0, hard => 0, interval => 1 / $MAX_FPS, cb => sub {	1982	my $refresh_watcher = Event->timer (after => 0, hard => 0, interval => 1 / $MAX_FPS, cb => sub {
2069	$NOW = time;	1983	$NOW = time;
2070		1984
2071	($SDL_CB{$_->{type}} || sub { warn "unhandled event $_->{type}" })->($_)	1985	($SDL_CB{$_->{type}} || sub { warn "unhandled event $_->{type}" })->($_)
2072	for CFPlus::SDL_PollEvent;	1986	for CFPlus::poll_events;
2073		1987
2074	if (%animate_object) {	1988	if (%animate_object) {
2075	$_->animate ($LAST_REFRESH - $NOW) for values %animate_object;	1989	$_->animate ($LAST_REFRESH - $NOW) for values %animate_object;
2076	$WANT_REFRESH++;	1990	++$WANT_REFRESH;
2077	}	1991	}
2078		1992
2079	if ($WANT_REFRESH) {	1993	if ($WANT_REFRESH) {
2080	force_refresh;	1994	force_refresh;
2081	} else {	1995	} else {
…		…
2090		2004
2091	sub animation_stop {	2005	sub animation_stop {
2092	my ($widget) = @_;	2006	my ($widget) = @_;
2093	delete $animate_object{$widget};	2007	delete $animate_object{$widget};
2094	}	2008	}
2095
2096	# check once/second for faces that need to be prefetched
2097	# this should, of course, only run on demand, but
2098	# SDL forces worse things on us....
2099
2100	Event->timer (after => 1, interval => 0.25, cb => sub {
2101	$CONN->face_prefetch
2102	if $CONN;
2103	});
2104		2009
2105	%SDL_CB = (	2010	%SDL_CB = (
2106	CFPlus::SDL_QUIT => sub {	2011	CFPlus::SDL_QUIT => sub {
2107	exit;	2012	exit;
2108	},	2013	},
…		…
2111	CFPlus::SDL_VIDEOEXPOSE => sub {	2016	CFPlus::SDL_VIDEOEXPOSE => sub {
2112	CFPlus::UI::full_refresh;	2017	CFPlus::UI::full_refresh;
2113	},	2018	},
2114	CFPlus::SDL_ACTIVEEVENT => sub {	2019	CFPlus::SDL_ACTIVEEVENT => sub {
2115	# not useful, as APPACTIVE include sonly iconified state, not unmapped	2020	# not useful, as APPACTIVE include sonly iconified state, not unmapped
2116	# printf "active %x %x\n", $_[0]{gain}, $_[0]{state};#d#	2021	# printf "active %x %x %x\n", $_[0]{gain}, $_[0]{state}, CFPlus::SDL_GetAppState;#d#
		2022	# printf "a %x\n", CFPlus::SDL_GetAppState & CFPlus::SDL_APPACTIVE;#d#
2117	# printf "A\n" if $_[0]{state} & CFPlus::SDL_APPACTIVE;	2023	# printf "A\n" if $_[0]{state} & CFPlus::SDL_APPACTIVE;
2118	# printf "K\n" if $_[0]{state} & CFPlus::SDL_APPINPUTFOCUS;	2024	# printf "K\n" if $_[0]{state} & CFPlus::SDL_APPINPUTFOCUS;
2119	# printf "M\n" if $_[0]{state} & CFPlus::SDL_APPMOUSEFOCUS;	2025	# printf "M\n" if $_[0]{state} & CFPlus::SDL_APPMOUSEFOCUS;
2120	},	2026	},
2121	CFPlus::SDL_KEYDOWN => sub {	2027	CFPlus::SDL_KEYDOWN => sub {
…		…
2151		2057
2152	CFPlus::UI::set_layout ($::CFG->{layout});	2058	CFPlus::UI::set_layout ($::CFG->{layout});
2153		2059
2154	my %DEF_CFG = (	2060	my %DEF_CFG = (
2155	sdl_mode => 0,	2061	sdl_mode => 0,
2156	width => 640,
2157	height => 480,
2158	fullscreen => 0,	2062	fullscreen => 0,
2159	fast => 0,	2063	fast => 0,
2160	map_scale => 1,	2064	map_scale => 1,
2161	fow_enable => 1,	2065	fow_enable => 1,
2162	fow_intensity => 0.45,	2066	fow_intensity => 0,
2163	fow_smooth => 0,
2164	map_smoothing => 1,	2067	map_smoothing => 1,
2165	gui_fontsize => 1,	2068	gui_fontsize => 1,
2166	log_fontsize => 0.7,	2069	log_fontsize => 0.7,
2167	gauge_fontsize => 1,	2070	gauge_fontsize => 1,
2168	gauge_size => 0.35,	2071	gauge_size => 0.35,
2169	stat_fontsize => 0.7,	2072	stat_fontsize => 0.7,
2170	mapsize => 100,	2073	mapsize => 100,
2171	say_command => 'chat',
2172	audio_enable => 1,	2074	audio_enable => 1,
2173	bgm_enable => 1,	2075	bgm_enable => 1,
2174	bgm_volume => 0.25,	2076	bgm_volume => 0.25,
2175	face_prefetch => 0,
2176	output_sync => 1,	2077	output_sync => 1,
2177	output_count => 1,	2078	output_count => 1,
2178	output_rate => "",	2079	output_rate => "",
2179	pickup => 0,	2080	pickup => 0,
2180	inv_sort => "mtime",	2081	inv_sort => "mtime",
…		…
2202	}	2103	}
2203	}	2104	}
2204		2105
2205	sdl_init;	2106	sdl_init;
2206		2107
2207	@SDL_MODES = reverse	2108	@SDL_MODES = CFPlus::SDL_ListModes 8, 8;
2208	grep $_->[0] >= 640 && $_->[1] >= 480,	2109	@SDL_MODES = CFPlus::SDL_ListModes 5, 0 unless @SDL_MODES;
2209	CFPlus::SDL_ListModes;
2210
2211	@SDL_MODES or CFPlus::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)";	2110	@SDL_MODES or CFPlus::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)";
		2111
		2112	@SDL_MODES = sort { $a->[0] * $a->[1] <=> $b->[0] * $b->[1] } @SDL_MODES;
2212		2113
2213	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES;	2114	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES;
2214		2115
2215	{	2116	{
2216	my @fonts = map CFPlus::find_rcfile "fonts/$_", qw(	2117	my @fonts = map CFPlus::find_rcfile "fonts/$_", qw(

Diff Legend

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