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.141 by elmex, Sat Dec 16 17:33:26 2006 UTC vs.
Revision 1.189 by root, Sun Jul 29 18:22:34 2007 UTC

1	#!/opt/bin/perl	1	#!/opt/bin/perl
2		2
3	my $startup_done = sub { };	3	my $startup_done = sub { };
		4	our $PANGO = "1.5.0";
4		5
5	# do splash-screen thingy on win32	6	# do splash-screen thingy on win32
6	BEGIN {	7	BEGIN {
7	if (%PAR::LibCache && $^O eq "MSWin32") {	8	if (%PAR::LibCache && $^O eq "MSWin32") {
8	while (my ($filename, $zip) = each %PAR::LibCache) {	9	while (my ($filename, $zip) = each %PAR::LibCache) {
…		…
29	# do things only needed for single-binary version (par)	30	# do things only needed for single-binary version (par)
30	BEGIN {	31	BEGIN {
31	if (%PAR::LibCache) {	32	if (%PAR::LibCache) {
32	@INC = grep ref, @INC; # weed out all paths except pars loader refs	33	@INC = grep ref, @INC; # weed out all paths except pars loader refs
33		34
		35	my $tmp = $ENV{PAR_TEMP};
		36
34	while (my ($filename, $zip) = each %PAR::LibCache) {	37	while (my ($filename, $zip) = each %PAR::LibCache) {
35	for ($zip->memberNames) {	38	for ($zip->memberNames) {
36	next unless /^root\/(.*)/;	39	next unless /^root\/(.*)/;
37	$zip->extractMember ($_, "$ENV{PAR_TEMP}/$1")	40	$zip->extractMember ($_, "$tmp/$1")
38	unless -e "$ENV{PAR_TEMP}/$1";	41	unless -e "$tmp/$1";
39	}	42	}
40	}	43	}
41		44
42	# TODO: pango-rc file, anybody?	45	if ($^O eq "MSWin32") {
		46	# relocatable
		47	} else {
		48	# unix, need to patch pango rc file
		49	open my $fh, "<:perlio", "$tmp/usr/lib/pango/$PANGO/module-files.d/libpango1.0-0.modules"
		50	or die "$tmp/usr/lib/$PANGO/module-files.d/libpango1.0-0.modules: $!";
		51	local $/;
		52	my $rc = <$fh>;
		53	$rc =~ s/^\//$tmp\//gm; # replace abs paths by relative ones
43		54
44	unshift @INC, $ENV{PAR_TEMP};	55	mkdir "$tmp/pango-modules";
		56	open my $fh, ">:perlio", "$tmp/pango-modules/pango.modules"
		57	or die "$tmp/pango-modules/pango.modules: $!";
		58	print $fh $rc;
		59
		60	$ENV{PANGO_RC_FILE} = "$tmp/pango.rc";
		61	open my $fh, ">:perlio", $ENV{PANGO_RC_FILE}
		62	or die "$ENV{PANGO_RC_FILE}: $!";
		63	print $fh "[Pango]\nModuleFiles = $tmp/pango-modules\n";
		64	}
		65
		66	unshift @INC, $tmp;
45	}	67	}
46	}	68	}
47		69
48	# need to do it again because that pile of garbage called PAR nukes it before main	70	# need to do it again because that pile of garbage called PAR nukes it before main
49	unshift @INC, $ENV{PAR_TEMP}	71	unshift @INC, $ENV{PAR_TEMP}
…		…
58	use Compress::LZF;	80	use Compress::LZF;
59		81
60	use CFPlus;	82	use CFPlus;
61	use CFPlus::OpenGL ();	83	use CFPlus::OpenGL ();
62	use CFPlus::Protocol;	84	use CFPlus::Protocol;
		85	use CFPlus::DB;
63	use CFPlus::UI;	86	use CFPlus::UI;
		87	use CFPlus::UI::Canvas;
64	use CFPlus::UI::Inventory;	88	use CFPlus::UI::Inventory;
65	use CFPlus::UI::SpellList;	89	use CFPlus::UI::SpellList;
		90	use CFPlus::UI::MessageWindow;
66	use CFPlus::Pod;	91	use CFPlus::Pod;
67	use CFPlus::MapWidget;	92	use CFPlus::MapWidget;
68	use CFPlus::Macro;	93	use CFPlus::Macro;
69		94
70	$SIG{QUIT} = sub { Carp::cluck "QUIT" };	95	$SIG{QUIT} = sub { Carp::cluck "QUIT" };
…		…
102		127
103	our $MAP;	128	our $MAP;
104	our $MAPMAP;	129	our $MAPMAP;
105	our $MAPWIDGET;	130	our $MAPWIDGET;
106	our $BUTTONBAR;	131	our $BUTTONBAR;
107	our $LOGVIEW;
108	our $CONSOLE;
109	our $METASERVER;	132	our $METASERVER;
110	our $LOGIN_BUTTON;	133	our $LOGIN_BUTTON;
111	our $QUIT_DIALOG;	134	our $QUIT_DIALOG;
112	our $HOST_ENTRY;	135	our $HOST_ENTRY;
113	our $FULLSCREEN_ENABLE;	136	our $FULLSCREEN_ENABLE;
…		…
136		159
137	our $SDL_ACTIVE;	160	our $SDL_ACTIVE;
138	our %SDL_CB;	161	our %SDL_CB;
139		162
140	our $SDL_MIXER;	163	our $SDL_MIXER;
		164	our $MUSIC_DEFAULT = "in_a_heartbeat.ogg";
		165	our @MUSIC_WANT;
		166	our $MUSIC_START;
		167	our $MUSIC_PLAYING;
		168	our $MUSIC_PLAYER;
		169	our $MUSIC_RESUME = 30; # resume music when players less than these many seconds before
141	our @SOUNDS; # event => file mapping	170	our @SOUNDS; # event => file mapping
142	our %AUDIO_CHUNKS; # audio files	171	our %AUDIO_CHUNKS; # audio files
143		172
144	our $ALT_ENTER_MESSAGE;	173	our $ALT_ENTER_MESSAGE;
145	our $STATUSBOX;	174	our $STATUSBOX;
…		…
149	our $INVR;	178	our $INVR;
150	our $INV_RIGHT_HB;	179	our $INV_RIGHT_HB;
151		180
152	our $PICKUP_CFG;	181	our $PICKUP_CFG;
153		182
154	our $IN_BUILD_MODE;
155	our $BUILD_BUTTON;
156
157	sub status {	183	sub status {
158	$STATUSBOX->add (CFPlus::asxml $_[0], pri => -10, group => "status", timeout => 10, fg => [1, 1, 0, 1]);	184	$STATUSBOX->add (CFPlus::asxml $_[0], pri => -10, group => "status", timeout => 10, fg => [1, 1, 0, 1]);
159	}	185	}
160		186
161	sub debug {	187	sub debug {
162	$DEBUG_STATUS->set_text ($_[0]);	188	$DEBUG_STATUS->set_text ($_[0]);
163	}	189	}
164		190
165	sub message {	191	sub message {
166	my ($para) = @_;	192	my ($para) = @_;
167		193	$MESSAGE_WINDOW->message ($para);
168	my $time = sprintf "%02d:%02d:%02d", (localtime time)[2,1,0];
169
170	$para->{markup} = "<span foreground='#ffffff'>$time</span> $para->{markup}";
171
172	$LOGVIEW->add_paragraph ($para);
173	$LOGVIEW->scroll_to_bottom;
174	}	194	}
175		195
176	sub destroy_query_dialog {	196	sub destroy_query_dialog {
177	(delete $_[0]{query_dialog})->destroy	197	(delete $_[0]{query_dialog})->destroy
178	if $_[0]{query_dialog};	198	if $_[0]{query_dialog};
…		…
206	title => "Server Query",	226	title => "Server Query",
207	child => my $vbox = new CFPlus::UI::VBox,	227	child => my $vbox = new CFPlus::UI::VBox,
208	;	228	;
209		229
210	my @dialog = my $label = new CFPlus::UI::Label	230	my @dialog = my $label = new CFPlus::UI::Label
211	max_w => $::WIDTH * 0.4,	231	max_w => $::WIDTH * 0.8,
212	ellipsise => 0,	232	ellipsise => 0,
213	text => $prompt;	233	text => $prompt;
214		234
215	if ($flags & CS_QUERY_YESNO) {	235	if ($flags & CS_QUERY_YESNO) {
216	push @dialog, my $hbox = new CFPlus::UI::HBox;	236	push @dialog, my $hbox = new CFPlus::UI::HBox;
…		…
233	);	253	);
234		254
235	$dialog->grab_focus;	255	$dialog->grab_focus;
236		256
237	} elsif ($flags & CS_QUERY_SINGLECHAR) {	257	} elsif ($flags & CS_QUERY_SINGLECHAR) {
238	$dialog->{tooltip} = "#charcreation_focus";
239
240	if ($prompt =~ /Now choose a character|Press any key for the next race/i) {	258	if ($prompt =~ /Now choose a character|Press any key for the next race/i) {
241	$MESSAGE_WINDOW->show;	259	$dialog->{tooltip} = "#charcreation_focus";
242		260
243	unshift @dialog, new CFPlus::UI::Label	261	unshift @dialog, new CFPlus::UI::Label
244	max_w => $::WIDTH * 0.4,	262	max_w => $::WIDTH * 0.8,
245	ellipsise => 0,	263	ellipsise => 0,
246	markup => "\nOr use your keyboard and the text entry below:\n";	264	markup => "\nOr use your keyboard and the text entry below:\n";
247		265
248	unshift @dialog, my $table = new CFPlus::UI::Table;	266	unshift @dialog, my $table = new CFPlus::UI::Table;
249		267
250	$table->add (0, 0, new CFPlus::UI::Button	268	$table->add_at (0, 0, new CFPlus::UI::Button
251	text => "Next Race",	269	text => "Next Race",
252	on_activate => sub {	270	on_activate => sub {
253	$conn->send ("reply n");	271	$conn->send ("reply n");
254	destroy_query_dialog $conn;	272	destroy_query_dialog $conn;
255	0	273	0
256	},	274	},
257	);	275	);
258	$table->add (2, 0, new CFPlus::UI::Button	276	$table->add_at (2, 0, new CFPlus::UI::Button
259	text => "Accept",	277	text => "Accept",
260	on_activate => sub {	278	on_activate => sub {
261	$conn->send ("reply d");	279	$conn->send ("reply d");
262	destroy_query_dialog $conn;	280	destroy_query_dialog $conn;
263	0	281	0
264	},	282	},
265	);	283	);
266		284
		285	if ($conn->{chargen_race_description}) {
		286	unshift @dialog, new CFPlus::UI::Label
		287	max_w => $::WIDTH * 0.8,
		288	ellipsise => 0,
		289	markup => "<span foreground='#ccccff'>$conn->{chargen_race_description}</span>",
		290	;
		291	}
		292
		293	unshift @dialog, new CFPlus::UI::Face
		294	face => $conn->{player}{face},
		295	bg => [.2, .2, .2, 1],
		296	min_w => 64,
		297	min_h => 64,
		298	;
		299
		300	if ($conn->{chargen_race_title}) {
		301	unshift @dialog, new CFPlus::UI::Label
		302	allign => 1,
		303	ellipsise => 0,
		304	markup => "<span foreground='#ccccff' size='large'>Race: $conn->{chargen_race_title}</span>",
		305	;
		306	}
		307
267	unshift @dialog, new CFPlus::UI::Label	308	unshift @dialog, new CFPlus::UI::Label
268	max_w => $::WIDTH * 0.4,	309	max_w => $::WIDTH * 0.4,
269	ellipsise => 0,	310	ellipsise => 0,
270	markup => (CFPlus::Pod::section_label ui => "chargen_race"),	311	markup => (CFPlus::Pod::section_label ui => "chargen_race"),
271	;	312	;
…		…
275	$conn->send ("reply $stat");	316	$conn->send ("reply $stat");
276	destroy_query_dialog $conn;	317	destroy_query_dialog $conn;
277	return;	318	return;
278	}	319	}
279		320
280	$STATS_PAGE->show;
281	$MESSAGE_WINDOW->hide;
282
283	unshift @dialog, new CFPlus::UI::Label	321	unshift @dialog, new CFPlus::UI::Label
284	max_w => $::WIDTH * 0.4,	322	max_w => $::WIDTH * 0.4,
285	ellipsise => 0,	323	ellipsise => 0,
286	markup => "\nOr use your keyboard and the text entry below:\n";	324	markup => "\nOr use your keyboard and the text entry below:\n";
287		325
288	unshift @dialog, my $table = new CFPlus::UI::Table;	326	unshift @dialog, my $table = new CFPlus::UI::Table;
289		327
290	# left: re-roll	328	# left: re-roll
291	$table->add (0, 0, new CFPlus::UI::Button	329	$table->add_at (0, 0, new CFPlus::UI::Button
292	text => "Roll Again",	330	text => "Roll Again",
293	on_activate => sub {	331	on_activate => sub {
294	$conn->send ("reply y");	332	$conn->send ("reply y");
295	destroy_query_dialog $conn;	333	destroy_query_dialog $conn;
296	0	334	0
…		…
310	[6 => "Pow", "Power ($conn->{stat}{+CS_STAT_POW})"],	348	[6 => "Pow", "Power ($conn->{stat}{+CS_STAT_POW})"],
311	[7 => "Cha", "Charisma ($conn->{stat}{+CS_STAT_CHA})"],	349	[7 => "Cha", "Charisma ($conn->{stat}{+CS_STAT_CHA})"],
312	],	350	],
313	), 1 .. 2;	351	), 1 .. 2;
314		352
315	$table->add (2, 0, new CFPlus::UI::Button	353	$table->add_at (2, 0, new CFPlus::UI::Button
316	text => "Swap Stats",	354	text => "Swap Stats",
317	on_activate => sub {	355	on_activate => sub {
318	$conn->{stat_change_with} = $sw2->{value};	356	$conn->{stat_change_with} = $sw2->{value};
319	$conn->send ("reply $sw1->{value}");	357	$conn->send ("reply $sw1->{value}");
320	destroy_query_dialog $conn;	358	destroy_query_dialog $conn;
321	0	359	0
322	},	360	},
323	);	361	);
324	$table->add (2, 1, new CFPlus::UI::HBox children => [$sw1, $sw2]);	362	$table->add_at (2, 1, new CFPlus::UI::HBox children => [$sw1, $sw2]);
325		363
326	# right: accept	364	# right: accept
327	$table->add (4, 0, new CFPlus::UI::Button	365	$table->add_at (4, 0, new CFPlus::UI::Button
328	text => "Accept",	366	text => "Accept",
329	on_activate => sub {	367	on_activate => sub {
330	$conn->send ("reply n");	368	$conn->send ("reply n");
331	$STATS_PAGE->hide;	369	$STATS_PAGE->hide;
332	destroy_query_dialog $conn;	370	destroy_query_dialog $conn;
…		…
413	maph => $mapsize,	451	maph => $mapsize,
414		452
415	client => "cfplus $CFPlus::VERSION $] $^O",	453	client => "cfplus $CFPlus::VERSION $] $^O",
416		454
417	map_widget => $MAPWIDGET,	455	map_widget => $MAPWIDGET,
418	logview => $LOGVIEW,
419	statusbox => $STATUSBOX,	456	statusbox => $STATUSBOX,
420	map => $MAP,	457	map => $MAP,
421	mapmap => $MAPMAP,	458	mapmap => $MAPMAP,
422	query => \&server_query,	459	query => \&server_query,
		460
		461	setup_req => {
		462	smoothing => $CFG->{map_smoothing}*1,
		463	},
423		464
424	sound_play => sub {	465	sound_play => sub {
425	my ($x, $y, $soundnum, $type) = @_;	466	my ($x, $y, $soundnum, $type) = @_;
426		467
427	$SDL_MIXER	468	$SDL_MIXER
…		…
448	$LOGIN_BUTTON->set_text ("Login");	489	$LOGIN_BUTTON->set_text ("Login");
449	$SETUP_NOTEBOOK->set_current_page ($SETUP_SERVER);	490	$SETUP_NOTEBOOK->set_current_page ($SETUP_SERVER);
450	$SETUP_DIALOG->show;	491	$SETUP_DIALOG->show;
451	$PL_WINDOW->hide;	492	$PL_WINDOW->hide;
452	$SPELL_LIST->clear_spells;	493	$SPELL_LIST->clear_spells;
		494	$CFPlus::UI::ROOT->emit (stop_game => ! ! $CONN);
		495
		496	&audio_music_set ([]);
453		497
454	return unless $CONN;	498	return unless $CONN;
455		499
456	status "connection closed";	500	status "connection closed";
457		501
…		…
465	sub graphics_setup {	509	sub graphics_setup {
466	my $vbox = new CFPlus::UI::VBox;	510	my $vbox = new CFPlus::UI::VBox;
467		511
468	$vbox->add (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]);	512	$vbox->add (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]);
469		513
		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
470	$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");
471	$table->add (1, 0, my $hbox = new CFPlus::UI::HBox);	526	$table->add_at (1, $row++, my $hbox = new CFPlus::UI::HBox);
472		527
		528	$hbox->add (my $mode_slider = new CFPlus::UI::Slider
473	$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],
474	$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);
475		534
476	$mode_slider->connect (changed => sub {	535	$mode_slider->connect (changed => sub {
477	my ($self, $value) = @_;	536	my ($self, $value) = @_;
478		537
479	$CFG->{sdl_mode} = $self->{range}[0] = $value = int $value;	538	$CFG->{sdl_mode} = $self->{range}[0] = $value = int $value;
480	$mode_label->set_text (sprintf "%dx%d", @{$SDL_MODES[$value]});	539	$mode_label->set_text (sprintf '%dx%d@%d+%d', @{$SDL_MODES[$value]});
481	});	540	});
482	$mode_slider->emit (changed => $mode_slider->{range}[0]);	541	$mode_slider->emit (changed => $mode_slider->{range}[0]);
483		542
484	my $row = 1;
485
486	$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");
487	$table->add (1, $row++, $FULLSCREEN_ENABLE = new CFPlus::UI::CheckBox	544	$table->add_at (1, $row++, $FULLSCREEN_ENABLE = new CFPlus::UI::CheckBox
488	state => $CFG->{fullscreen},	545	state => $CFG->{fullscreen},
489	tooltip => "Bring the client into fullscreen mode.",	546	tooltip => "Bring the client into fullscreen mode.",
490	on_changed => sub { my ($self, $value) = @_; $CFG->{fullscreen} = $value; 0 }	547	on_changed => sub { my ($self, $value) = @_; $CFG->{fullscreen} = $value; 0 }
491	);	548	);
492		549
493	$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");
494	$table->add (1, $row++, new CFPlus::UI::CheckBox	551	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
495	state => $CFG->{fast},	552	state => $CFG->{fast},
496	tooltip => "Lower the visual quality considerably to speed up rendering.",	553	tooltip => "Lower the visual quality considerably to speed up rendering.",
497	on_changed => sub { my ($self, $value) = @_; $CFG->{fast} = $value; 0 }	554	on_changed => sub { my ($self, $value) = @_; $CFG->{fast} = $value; 0 }
498	);	555	);
499		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
500	$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");
501	$table->add (1, $row++, new CFPlus::UI::Slider	575	$table->add_at (1, $row++, new CFPlus::UI::Slider
502	range => [(log $CFG->{map_scale}) / (log 2), -3, 1, 0, 1],	576	range => [(log $CFG->{map_scale}) / (log 2), -3, 1, 0, 1],
503	tooltip => "Enlarge or shrink the displayed map. Changes are instant.",	577	tooltip => "Enlarge or shrink the displayed map. Changes are instant.",
504	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 }
505	);	579	);
506		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
507	$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");
508	$table->add (1, $row++, new CFPlus::UI::CheckBox	591	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
509	state => $CFG->{fow_enable},	592	state => $CFG->{fow_enable},
510	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.",
511	on_changed => sub { my ($self, $value) = @_; $CFG->{fow_enable} = $value; 0 }	594	on_changed => sub { my ($self, $value) = @_; $CFG->{fow_enable} = $value; 0 }
512	);	595	);
513		596
514	$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");
515	$table->add (1, $row++, new CFPlus::UI::Slider	598	$table->add_at (1, $row++, new CFPlus::UI::Slider
516	range => [$CFG->{fow_intensity}, 0, 1, 0, 1 / 256],	599	range => [$CFG->{fow_intensity}, 0, 1, 0, 1 / 256],
517	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.",
518	on_changed => sub { my ($self, $value) = @_; $CFG->{fow_intensity} = $value; 0 }	601	on_changed => sub { my ($self, $value) = @_; $CFG->{fow_intensity} = $value; 0 }
519	);	602	);
520		603
521	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "FoW Smooth");
522	$table->add (1, $row++, new CFPlus::UI::CheckBox
523	state => $CFG->{fow_smooth},
524	tooltip => "Smooth the Fog-of-War a bit to make it more realistic. Changes are instant.",
525	on_changed => sub {
526	my ($self, $value) = @_;
527	$CFG->{fow_smooth} = $value;
528	status "Fog of War smoothing requires OpenGL 1.2 or higher" if $CFPlus::OpenGL::GL_VERSION < 1.2;
529	0
530	}
531	);
532
533	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "GUI Fontsize");
534	$table->add (1, $row++, new CFPlus::UI::Slider
535	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.",
537	on_changed => sub { $CFG->{gui_fontsize} = $_[1]; 0 },
538	);
539
540	$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");
541	$table->add (1, $row++, new CFPlus::UI::Slider	605	$table->add_at (1, $row++, new CFPlus::UI::Slider
542	range => [$CFG->{log_fontsize}, 0.5, 2, 0, 0.1],	606	range => [$CFG->{log_fontsize}, 0.5, 2, 0, 0.1],
543	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.",
544	on_changed => sub { $LOGVIEW->set_fontsize ($CFG->{log_fontsize} = $_[1]); 0 },	608	on_changed => sub { $MESSAGE_WINDOW->set_fontsize ($CFG->{log_fontsize} = $_[1]); 0 },
545	);	609	);
546		610
547	$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");
548	$table->add (1, $row++, new CFPlus::UI::Slider	612	$table->add_at (1, $row++, new CFPlus::UI::Slider
549	range => [$CFG->{gauge_fontsize}, 0.5, 2, 0, 0.1],	613	range => [$CFG->{gauge_fontsize}, 0.5, 2, 0, 0.1],
550	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.",
551	on_changed => sub {	615	on_changed => sub {
552	$CFG->{gauge_fontsize} = $_[1];	616	$CFG->{gauge_fontsize} = $_[1];
553	&set_gauge_window_fontsize;	617	&set_gauge_window_fontsize;
554	0	618	0
555	}	619	}
556	);	620	);
557		621
558	$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");
559	$table->add (1, $row++, new CFPlus::UI::Slider	623	$table->add_at (1, $row++, new CFPlus::UI::Slider
560	range => [$CFG->{gauge_size}, 0.2, 0.8],	624	range => [$CFG->{gauge_size}, 0.2, 0.8],
561	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.",
562	on_changed => sub {	626	on_changed => sub {
563	$CFG->{gauge_size} = $_[1];	627	$CFG->{gauge_size} = $_[1];
564	$GAUGES->{win}->set_size ($WIDTH, int $HEIGHT * $CFG->{gauge_size});	628	$GAUGES->{win}->set_size ($WIDTH, int $HEIGHT * $CFG->{gauge_size});
565	0	629	0
566	}	630	}
567	);	631	);
568		632
569	$table->add (1, $row++, new CFPlus::UI::Button
570	expand => 1, align => 0, text => "Apply",
571	tooltip => "Apply the video settings",
572	on_activate => sub {
573	video_shutdown ();
574	video_init ();
575	0
576	}
577	);
578
579	$vbox	633	$vbox
580	}	634	}
581		635
582	sub audio_setup {	636	sub audio_setup {
583	my $vbox = new CFPlus::UI::VBox;	637	my $vbox = new CFPlus::UI::VBox;
584		638
585	$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]);
586		640
587	my $row = 0;	641	my $row = 0;
588		642
589	$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");
590	$table->add (1, $row++, new CFPlus::UI::CheckBox	644	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
591	state => $CFG->{audio_enable},	645	state => $CFG->{audio_enable},
592	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.",
593	on_changed => sub { $CFG->{audio_enable} = $_[1]; 0 }	647	on_changed => sub { $CFG->{audio_enable} = $_[1]; 0 }
594	);	648	);
595	# $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");
596	# $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 {
597	# $CFG->{effects_volume} = $_[1];	651	# $CFG->{effects_volume} = $_[1];
598	# });	652	# });
599	$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");
600	$table->add (1, $row++, my $hbox = new CFPlus::UI::HBox);	654	$table->add_at (1, $row++, my $hbox = new CFPlus::UI::HBox);
601	$hbox->add (new CFPlus::UI::CheckBox	655	$hbox->add (new CFPlus::UI::CheckBox
602	expand => 1, state => $CFG->{bgm_enable},	656	expand => 1, state => $CFG->{bgm_enable},
603	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.",
604	on_changed => sub { $CFG->{bgm_enable} = $_[1]; 0 }	658	on_changed => sub { $CFG->{bgm_enable} = $_[1]; 0 }
605	);	659	);
…		…
607	expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0, 1/128],	661	expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0, 1/128],
608	tooltip => "The volume of the background music. Changes are instant.",	662	tooltip => "The volume of the background music. Changes are instant.",
609	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 }
610	);	664	);
611		665
612	$table->add (1, $row++, new CFPlus::UI::Button	666	$table->add_at (1, $row++, new CFPlus::UI::Button
613	expand => 1, align => 0, text => "Apply",	667	expand => 1, align => 0, text => "Apply",
614	tooltip => "Apply the audio settings",	668	tooltip => "Apply the audio settings",
615	on_activate => sub {	669	on_activate => sub {
616	audio_shutdown ();	670	audio_shutdown ();
617	audio_init ();	671	audio_init ();
…		…
676	}	730	}
677		731
678	sub debug_setup {	732	sub debug_setup {
679	my $table = new CFPlus::UI::Table;	733	my $table = new CFPlus::UI::Table;
680		734
681	$table->add (0, 0, new CFPlus::UI::Label text => "Widget Borders");	735	$table->add_at (0, 0, new CFPlus::UI::Label text => "Widget Borders");
682	$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 });
683	$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");
684	$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 });
685	$table->add (0, 2, new CFPlus::UI::Label text => "Show FPS");	739	$table->add_at (0, 2, new CFPlus::UI::Label text => "Show FPS");
686	$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 });
687	$table->add (0, 3, new CFPlus::UI::Label text => "Suppress Tooltips");	741	$table->add_at (0, 3, new CFPlus::UI::Label text => "Suppress Tooltips");
688	$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 });
689	$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() } );
690		744
691	my @default_smooth = (0.05, 0.13, 0.05, 0.13, 0.30, 0.13, 0.05, 0.13, 0.05);
692
693	for my $x (0..2) {
694	for my $y (0 .. 2) {
695	$table->add ($x + 3, $y,
696	new CFPlus::UI::Entry
697	text => $default_smooth[$x * 3 + $y],
698	on_changed => sub { $MAP->{smooth_matrix}[$x * 3 + $y] = $_[1] if $MAP; 0 },
699	);
700	}
701	}
702
703	$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	});
704		779
705	$table	780	$table
706	}	781	}
707		782
708	sub stats_window {	783	sub stats_window {
…		…
756	[2, 4, st_spd => "Spd", 10.54],	831	[2, 4, st_spd => "Spd", 10.54],
757	[2, 5, st_wspd => "WSp", 10.54],	832	[2, 5, st_wspd => "WSp", 10.54],
758	) {	833	) {
759	my ($col, $row, $id, $label, $template) = @$_;	834	my ($col, $row, $id, $label, $template) = @$_;
760		835
761	$tbl->add ($col , $row, $STATWIDS->{$id} = new CFPlus::UI::Label	836	$tbl->add_at ($col , $row, $STATWIDS->{$id} = new CFPlus::UI::Label
762	font => $FONT_FIXED, can_hover => 1, can_events => 1, valign => 0,	837	font => $FONT_FIXED, can_hover => 1, can_events => 1, valign => 0,
763	align => +1, template => $template, tooltip => "#stat_$label");	838	align => +1, template => $template, tooltip => "#stat_$label");
764	$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
765	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,
766	align => -1, text => $label, tooltip => "#stat_$label");	841	align => -1, text => $label, tooltip => "#stat_$label");
767	}	842	}
768		843
769	$vb->add (new CFPlus::UI::FancyFrame	844	$vb->add (new CFPlus::UI::FancyFrame
…		…
810	cold => ["Cold",	885	cold => ["Cold",
811	"<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, ...)"],
812	ghit => ["Ghost hit",	887	ghit => ["Ghost hit",
813	"<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)"],
814	);	889	);
		890
815	for (qw/slow holyw conf fire depl magic	891	for (qw/slow holyw conf fire depl magic
816	drain acid pois para deat phys	892	drain acid pois para deat phys
817	blind fear tund elec cold ghit/)	893	blind fear tund elec cold ghit/)
818	{	894	{
819	$tbl2->add ($col, $row,	895	$tbl2->add_at ($col, $row,
820	$STATWIDS->{"res_$_"} =	896	$STATWIDS->{"res_$_"} =
821	new CFPlus::UI::Label	897	new CFPlus::UI::Label
822	font => $FONT_FIXED,	898	font => $FONT_FIXED,
823	template => "-100%",	899	template => "-100%",
824	align => +1,	900	align => +1,
825	valign => 0,	901	valign => 0,
826	can_events => 1,	902	can_events => 1,
827	can_hover => 1,	903	can_hover => 1,
828	tooltip => $resist_names{$_}->[1],	904	tooltip => $resist_names{$_}->[1],
829	);	905	);
830	$tbl2->add ($col + 1, $row, new CFPlus::UI::Image	906	$tbl2->add_at ($col + 1, $row, new CFPlus::UI::Image
831	font => $FONT_FIXED,	907	font => $FONT_FIXED,
832	can_hover => 1,	908	can_hover => 1,
833	can_events => 1,	909	can_events => 1,
834	path => "ui/resist/resist_$_.png",	910	path => "ui/resist/resist_$_.png",
835	tooltip => $resist_names{$_}->[1],	911	tooltip => $resist_names{$_}->[1],
836	);	912	);
837	$tbl2->add ($col + 2, $row, new CFPlus::UI::Label	913	$tbl2->add_at ($col + 2, $row, new CFPlus::UI::Label
838	text => $resist_names{$_}->[0],	914	text => $resist_names{$_}->[0],
839	font => $FONT_FIXED,	915	font => $FONT_FIXED,
840	can_hover => 1,	916	can_hover => 1,
841	can_events => 1,	917	can_events => 1,
842	tooltip => $resist_names{$_}->[1],	918	tooltip => $resist_names{$_}->[1],
…		…
875	return if $METASERVER_ATIME > time;	951	return if $METASERVER_ATIME > time;
876	$METASERVER_ATIME = time + 60;	952	$METASERVER_ATIME = time + 60;
877		953
878	my $table = $METASERVER->{table};	954	my $table = $METASERVER->{table};
879	$table->clear;	955	$table->clear;
880	$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...");
881		957
882	my $ok = 0;	958	my $ok = 0;
883		959
884	CFPlus::background {	960	CFPlus::background {
885	my $ua = CFPlus::lwp_useragent;	961	my $ua = CFPlus::lwp_useragent;
…		…
896	"The time this server has been running without being restarted.",	972	"The time this server has been running without being restarted.",
897	"The server software version - a '+' indicates a Crossfire+ server.",	973	"The server software version - a '+' indicates a Crossfire+ server.",
898	"Short information about this server provided by its admins.",	974	"Short information about this server provided by its admins.",
899	);	975	);
900	my @col = qw(#Users Host Uptime Version Description);	976	my @col = qw(#Users Host Uptime Version Description);
901	$table->add ($_, 0, new CFPlus::UI::Label	977	$table->add_at ($_, 0, new CFPlus::UI::Label
902	can_hover => 1, can_events => 1,	978	can_hover => 1, can_events => 1,
903	align => 0, fg => [1, 1, 0],	979	align => 0, fg => [1, 1, 0],
904	text => $col[$_], tooltip => $tip[$_])	980	text => $col[$_], tooltip => $tip[$_])
905	for 0 .. $#col;	981	for 0 .. $#col;
906		982
907	my @align = qw(1 0 1 1 -1);	983	my @align = qw(1 0 1 1 -1);
908		984
909	my $y = 0;	985	my $y = 0;
910	for my $m (
911	sort {
912	$b->{version} <=> $a->{version}
913	or $b->{users} <=> $a->{users}
914	}
915	@{ $msg->{servers} }	986	for my $m (@{ $msg->{servers} }) {
916	) {
917	my ($ip, $last, $host, $users, $version, $desc, $ibytes, $obytes, $uptime) =	987	my ($ip, $last, $host, $users, $version, $desc, $ibytes, $obytes, $uptime, $highlight) =
918	@$m{qw(ip age hostname users version description ibytes obytes uptime)};	988	@$m{qw(ip age hostname users version description ibytes obytes uptime highlight)};
919		989
920	for ($desc) {	990	for ($desc) {
921	s/<br>/\n/gi;	991	s/<br>/\n/gi;
922	s/<li>/\n· /gi;	992	s/<li>/\n· /gi;
923	s/<.*?>//sgi;	993	s/<.*?>//sgi;
…		…
934		1004
935	$m = [$users, $host, $uptime, $version, $desc];	1005	$m = [$users, $host, $uptime, $version, $desc];
936		1006
937	$y++;	1007	$y++;
938		1008
939	$table->add (scalar @$m, $y, new CFPlus::UI::VBox children => [	1009	$table->add_at (scalar @$m, $y, new CFPlus::UI::VBox children => [
940	(new CFPlus::UI::Button	1010	(new CFPlus::UI::Button
941	text => "Use",	1011	text => "Use",
942	tooltip => "Put this server into the <b>Host:Port</b> field",	1012	tooltip => "Put this server into the <b>Host:Port</b> field",
943	on_activate => sub {	1013	on_activate => sub {
944	$HOST_ENTRY->set_text ($CFG->{profile}{default}{host} = $host);	1014	$HOST_ENTRY->set_text ($CFG->{profile}{default}{host} = $host);
…		…
947	},	1017	},
948	),	1018	),
949	(new CFPlus::UI::Empty expand => 1),	1019	(new CFPlus::UI::Empty expand => 1),
950	]);	1020	]);
951		1021
952	$table->add ($_, $y, new CFPlus::UI::Label	1022	$table->add_at ($_, $y, new CFPlus::UI::Label
953	max_w => $::WIDTH * 0.4,	1023	max_w => $::WIDTH * 0.4,
954	ellipsise => 0,	1024	ellipsise => 0,
955	align => $align[$_],	1025	align => $align[$_],
956	text => $m->[$_],	1026	text => $m->[$_],
957	tooltip => $tip[$_],	1027	tooltip => $tip[$_],
958	fg => ($m->[3] =~ /\+$/ ? [1, 1, 1] : [.7, .7, .7]),	1028	fg => ($highlight ? [1, 1, 1] : [.7, .7, .7]),
959	can_hover => 1,	1029	can_hover => 1,
960	can_events => 1,	1030	can_events => 1,
961	fontsize => 0.8)	1031	fontsize => 0.8)
962	for 0 .. $#$m;	1032	for 0 .. $#$m;
963	}	1033	}
…		…
998		1068
999	$vbox->add (new CFPlus::UI::FancyFrame	1069	$vbox->add (new CFPlus::UI::FancyFrame
1000	label => "Connection Settings",	1070	label => "Connection Settings",
1001	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]),
1002	);	1072	);
1003	$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");
1004		1074
1005	{	1075	{
1006	$table->add (1, 2, my $vbox = new CFPlus::UI::VBox);	1076	$table->add_at (1, 2, my $vbox = new CFPlus::UI::VBox);
1007		1077
1008	$vbox->add (	1078	$vbox->add (
1009	$HOST_ENTRY = new CFPlus::UI::Entry	1079	$HOST_ENTRY = new CFPlus::UI::Entry
1010	expand => 1,	1080	expand => 1,
1011	text => $CFG->{profile}{default}{host},	1081	text => $CFG->{profile}{default}{host},
…		…
1025	on_activate => sub { $METASERVER->toggle_visibility; 0 },	1095	on_activate => sub { $METASERVER->toggle_visibility; 0 },
1026	on_visibility_change => sub { $METASERVER->hide unless $_[1]; 0 },	1096	on_visibility_change => sub { $METASERVER->hide unless $_[1]; 0 },
1027	);	1097	);
1028	}	1098	}
1029		1099
1030	$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");
1031	$table->add (1, 4, new CFPlus::UI::Entry	1101	$table->add_at (1, 4, new CFPlus::UI::Entry
1032	text => $CFG->{profile}{default}{user},	1102	text => $CFG->{profile}{default}{user},
1033	tooltip => "The name of your character on the server",	1103	tooltip => "The name of your character on the server",
1034	on_changed => sub { my ($self, $value) = @_; $CFG->{profile}{default}{user} = $value }	1104	on_changed => sub { my ($self, $value) = @_; $CFG->{profile}{default}{user} = $value }
1035	);	1105	);
1036		1106
1037	$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");
1038	$table->add (1, 5, new CFPlus::UI::Entry	1108	$table->add_at (1, 5, new CFPlus::UI::Entry
1039	text => $CFG->{profile}{default}{password},	1109	text => $CFG->{profile}{default}{password},
1040	hidden => 1,	1110	hidden => 1,
1041	tooltip => "The password for your character",	1111	tooltip => "The password for your character",
1042	on_changed => sub { my ($self, $value) = @_; $CFG->{profile}{default}{password} = $value }	1112	on_changed => sub { my ($self, $value) = @_; $CFG->{profile}{default}{password} = $value }
1043	);	1113	);
1044		1114
1045	$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");
1046	$table->add (1, 7, new CFPlus::UI::Slider	1116	$table->add_at (1, 7, new CFPlus::UI::Slider
1047	force_w => 100,	1117	force_w => 100,
1048	range => [$CFG->{mapsize}, 10, 100, 0, 1],	1118	range => [$CFG->{mapsize}, 10, 100, 0, 1],
1049	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. "
1050	. "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, "
1051	. "but you also increase bandwidth requirements and latency. "	1121	. "but you also increase bandwidth requirements and latency. "
1052	. "This option is only used once at log-in.",	1122	. "This option is only used once at log-in.",
1053	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 },
1054	);	1124	);
1055		1125
1056	$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 => "Output-Rate");
1057	$table->add (1, 8, new CFPlus::UI::CheckBox	1127	$table->add_at (1, 8, new CFPlus::UI::Entry
1058	state => $CFG->{face_prefetch},	1128	text => $CFG->{output_rate},
1059	tooltip => "<b>Background Image Prefetch</b>\n\n"	1129	tooltip => "The approximate bandwidth in bytes per second that the server should not exceed "
1060	. "If enabled, the client automatically pre-fetches images from the server. "	1130	. "when sending images, to ensure interactiveness. When 0 or unset, the server "
1061	. "This might increase or create lag, but increases the chances "	1131	. "default will be used, which is usually around 100kb/s.",
1062	. "of faces being ready for display when you encounter them. "
1063	. "It also uses up server bandwidth on every connect, "
1064	. "so only set it if you really need to prefetch images. "
1065	. "This option can be set and unset any time.",
1066	on_changed => sub { $CFG->{face_prefetch} = $_[1]; 0 },	1132	on_changed => sub { $CFG->{output_rate} = $_[1]; 0 },
1067	);	1133	);
1068		1134
1069	$table->add (0, 9, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Count");	1135	$table->add_at (0, 9, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Count");
1070	$table->add (1, 9, new CFPlus::UI::Entry	1136	$table->add_at (1, 9, new CFPlus::UI::Entry
1071	text => $CFG->{output_count},	1137	text => $CFG->{output_count},
1072	tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.",	1138	tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.",
1073	on_changed => sub { $CFG->{output_count} = $_[1]; 0 },	1139	on_changed => sub { $CFG->{output_count} = $_[1]; 0 },
1074	);	1140	);
1075		1141
1076	$table->add (0, 10, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Sync");	1142	$table->add_at (0, 10, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Sync");
1077	$table->add (1, 10, new CFPlus::UI::Entry	1143	$table->add_at (1, 10, new CFPlus::UI::Entry
1078	text => $CFG->{output_sync},	1144	text => $CFG->{output_sync},
1079	tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.",	1145	tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.",
1080	on_changed => sub { $CFG->{output_sync} = $_[1]; 0 },	1146	on_changed => sub { $CFG->{output_sync} = $_[1]; 0 },
1081	);	1147	);
1082		1148
1083	$table->add (1, 11, $LOGIN_BUTTON = new CFPlus::UI::Button	1149	$table->add_at (1, 11, $LOGIN_BUTTON = new CFPlus::UI::Button
1084	expand => 1,	1150	expand => 1,
1085	align => 0,	1151	align => 0,
1086	text => "Login",	1152	text => "Login",
1087	on_activate => sub {	1153	on_activate => sub {
1088	$CONN ? stop_game	1154	$CONN ? stop_game
1089	: start_game;	1155	: start_game;
1090	0	1156	0
1091	},	1157	},
1092	);	1158	);
1093		1159
1094	$table->add (0, 12, new CFPlus::UI::Label valign => 0, align => 1, text => "Chat Command");	1160	$vbox->add (new CFPlus::UI::FancyFrame
1095	$table->add (1, 12, my $saycmd = new CFPlus::UI::Entry	1161	label => "Server Info",
1096	text => $CFG->{say_command},	1162	child => ($SERVER_INFO = new CFPlus::UI::Label ellipsise => 0),
1097	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. "
1098	. "Usually you want to enter something like 'say' or 'shout' or 'gsay' here. "
1099	. "But you could also set it to <b>tell <i>playername</i></b> to only chat with that user.",
1100	on_changed => sub {
1101	my ($self, $value) = @_;
1102	$CFG->{say_command} = $value;
1103	0
1104	}
1105	);	1163	);
1106		1164
		1165	$vbox
		1166	}
		1167
		1168	sub client_setup {
		1169	my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1];
		1170
		1171	my $row = 0;
		1172
1107	$table->add (0, 13, new CFPlus::UI::Label valign => 0, align => 1, text => "Tip of the day");	1173	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Tip of the day");
1108	$table->add (1, 13, my $saycmd = new CFPlus::UI::CheckBox	1174	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
1109	state => $CFG->{show_tips},	1175	state => $CFG->{show_tips},
1110	tooltip => "Show the <b>Tip of the day</b> window at startup?",	1176	tooltip => "Show the <b>Tip of the day</b> window at startup?",
1111	on_changed => sub {	1177	on_changed => sub {
1112	my ($self, $value) = @_;	1178	my ($self, $value) = @_;
1113	$CFG->{show_tips} = $value;	1179	$CFG->{show_tips} = $value;
1114	0	1180	0
1115	}	1181	}
1116	);	1182	);
1117		1183
1118	$vbox->add (new CFPlus::UI::FancyFrame	1184	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Messages Window Size");
1119	label => "Server Info",	1185	$table->add_at (1, $row++, my $saycmd = new CFPlus::UI::Entry
1120	child => ($SERVER_INFO = new CFPlus::UI::Label ellipsise => 0),	1186	text => $CFG->{logview_max_par},
1121	);	1187	tooltip => "This is maximum number of messages remembered in the <b>Messages</b> window. If the server "
1122		1188	. "sends more messages than this number, older messages get removed to save memory and "
1123	$vbox	1189	. "computing time. A value of <b>0</b> disables this feature, but that is not recommended.",
1124	}
1125
1126	sub message_window {
1127	my $window = new CFPlus::UI::Toplevel
1128	name => "message_window",
1129	title => "Messages",
1130	border_bg => [1, 1, 1, 1],
1131	x => "max",
1132	y => 0,
1133	force_w => $::WIDTH * 0.4,
1134	force_h => $::HEIGHT * 0.5,
1135	child => (my $vbox = new CFPlus::UI::VBox),
1136	has_close_button => 1;
1137
1138	$vbox->add ($LOGVIEW);
1139
1140	$vbox->add (my $input = new CFPlus::UI::Entry
1141	tooltip => "<b>Chat Box</b>. If you enter a text and press return/enter here, the current <i>communication command</i> "
1142	. "from the client setup will be prepended (e.g. <b>shout</b>, <b>chat</b>...). "
1143	. "If you prepend a slash (/), you will submit a command instead (similar to IRC). "
1144	. "A better way to submit commands (and the occasional chat command) is often the map command completer.",
1145	on_focus_in => sub {	1190	on_changed => sub {
1146	my ($input, $prev_focus) = @_;	1191	my ($self, $value) = @_;
1147		1192	$MESSAGE_WINDOW->set_max_para ($CFG->{logview_max_par} = $value*1);
1148	delete $input->{refocus_map};
1149
1150	if ($prev_focus == $MAPWIDGET && $input->{auto_activated}) {
1151	$input->{refocus_map} = 1;
1152	}
1153	delete $input->{auto_activated};
1154
1155	0	1193	0
1156	},	1194	},
1157	on_activate => sub {
1158	my ($input, $text) = @_;
1159	$input->set_text ('');
1160
1161	if ($text =~ /^\/(.*)/) {
1162	$::CONN->user_send ($1);
1163	} else {
1164	my $say_cmd = $::CFG->{say_command} || 'say';
1165	$::CONN->user_send ("$say_cmd $text");
1166	}
1167	if ($input->{refocus_map}) {
1168	delete $input->{refocus_map};
1169	$MAPWIDGET->focus_in
1170	}
1171
1172	0
1173	},
1174	on_escape => sub {
1175	$MAPWIDGET->grab_focus;
1176
1177	0
1178	},
1179	);
1180
1181	$CONSOLE = {
1182	window => $window,
1183	input => $input,
1184	};	1195	);
1185		1196
1186	$window	1197	$table
1187	}	1198	}
1188		1199
1189	sub autopickup_setup {	1200	sub autopickup_setup {
		1201	my $r = new CFPlus::UI::ScrolledWindow (
		1202	expand => 1,
		1203	scroll_y => 1
		1204	);
1190	my $table = new CFPlus::UI::Table;	1205	$r->add (my $table = new CFPlus::UI::Table
		1206	row_expand => [0],
		1207	col_expand => [0, 1, 0, 1],
		1208	);
1191		1209
1192	for (	1210	for (
1193	["General", 0, 0,	1211	["General", 0, 0,
1194	["Enable autopickup" => PICKUP_NEWMODE, \$PICKUP_ENABLE],	1212	["Enable autopickup" => PICKUP_NEWMODE, \$PICKUP_ENABLE],
1195	["Inhibit autopickup" => PICKUP_INHIBIT],	1213	["Inhibit autopickup" => PICKUP_INHIBIT],
…		…
1230	],	1248	],
1231	["Weight/Value ratio", 2, 17]	1249	["Weight/Value ratio", 2, 17]
1232	)	1250	)
1233	{	1251	{
1234	my ($title, $x, $y, @bits) = @$_;	1252	my ($title, $x, $y, @bits) = @$_;
1235	$table->add ($x, $y, new CFPlus::UI::Label text => $title, align => 1, fg => [1, 1, 0]);	1253	$table->add_at ($x, $y, new CFPlus::UI::Label text => $title, align => 1, fg => [1, 1, 0]);
1236		1254
1237	for (@bits) {	1255	for (@bits) {
1238	++$y;	1256	++$y;
1239		1257
1240	my $mask = $_->[1];	1258	my $mask = $_->[1];
1241	$table->add ($x , $y, new CFPlus::UI::Label text => $_->[0], align => 1, expand => 1);	1259	$table->add_at ($x , $y, new CFPlus::UI::Label text => $_->[0], align => 1, expand => 1);
1242	$table->add ($x+1, $y, my $checkbox = new CFPlus::UI::CheckBox	1260	$table->add_at ($x+1, $y, my $checkbox = new CFPlus::UI::CheckBox
1243	state => $::CFG->{pickup} & $mask,	1261	state => $::CFG->{pickup} & $mask,
1244	on_changed => sub {	1262	on_changed => sub {
1245	my ($box, $value) = @_;	1263	my ($box, $value) = @_;
1246		1264
1247	if ($value) {	1265	if ($value) {
…		…
1258		1276
1259	${$_->[2]} = $checkbox if $_->[2];	1277	${$_->[2]} = $checkbox if $_->[2];
1260	}	1278	}
1261	}	1279	}
1262		1280
1263	$table->add (2, 18, new CFPlus::UI::ValSlider	1281	$table->add_at (2, 18, new CFPlus::UI::ValSlider
1264	range => [$::CFG->{pickup} & 0xF, 0, 16, 1, 1],	1282	range => [$::CFG->{pickup} & 0xF, 0, 16, 1, 1],
1265	template => ">= 99",	1283	template => ">= 99",
1266	to_value => sub { ">= " . 5 * $_[0] },	1284	to_value => sub { ">= " . 5 * $_[0] },
1267	on_changed => sub {	1285	on_changed => sub {
1268	my ($slider, $value) = @_;	1286	my ($slider, $value) = @_;
…		…
1271	$::CFG->{pickup} |= int $value	1289	$::CFG->{pickup} |= int $value
1272	if $value;	1290	if $value;
1273	1;	1291	1;
1274	});	1292	});
1275		1293
1276	$table->add (3, 18, new CFPlus::UI::Button	1294	$table->add_at (3, 18, new CFPlus::UI::Button
1277	text => "set",	1295	text => "set",
1278	on_activate => sub {	1296	on_activate => sub {
1279	$::CONN->send_command ("pickup $::CFG->{pickup}")	1297	$::CONN->send_command ("pickup $::CFG->{pickup}")
1280	if defined $::CONN;	1298	if defined $::CONN;
1281	0	1299	0
1282	});	1300	});
1283		1301
1284	$table	1302	$r
1285	}	1303	}
1286		1304
1287	my %SORT_ORDER = (	1305	my %SORT_ORDER = (
1288	type => undef,	1306	type => undef,
1289	mtime => sub {	1307	mtime => sub {
…		…
1368	has_close_button => 1	1386	has_close_button => 1
1369	;	1387	;
1370		1388
1371	my $ntb =	1389	my $ntb =
1372	$PL_NOTEBOOK =	1390	$PL_NOTEBOOK =
1373	new CFPlus::UI::Notebook expand => 1, debug => 1;	1391	new CFPlus::UI::Notebook expand => 1;
1374		1392
1375	$ntb->add (	1393	$ntb->add_tab (
1376	"Statistics (F2)" => $STATS_PAGE = stats_window,	1394	"Statistics (F2)" => $STATS_PAGE = stats_window,
1377	"Shows statistics, where all your Stats and Resistances are shown."	1395	"Shows statistics, where all your Stats and Resistances are shown."
1378	);	1396	);
1379	$ntb->add (	1397	$ntb->add_tab (
1380	"Skills (F3)" => $SKILL_PAGE = skill_window,	1398	"Skills (F3)" => $SKILL_PAGE = skill_window,
1381	"Shows all your Skills."	1399	"Shows all your Skills."
1382	);	1400	);
1383		1401
1384	my $spellsw = $SPELL_PAGE = new CFPlus::UI::ScrolledWindow (expand => 1, scroll_y => 1);	1402	my $spellsw = $SPELL_PAGE = new CFPlus::UI::ScrolledWindow (expand => 1, scroll_y => 1);
1385	$spellsw->add ($SPELL_LIST = new CFPlus::UI::SpellList);	1403	$spellsw->add ($SPELL_LIST = new CFPlus::UI::SpellList);
1386	$ntb->add (	1404	$ntb->add_tab (
1387	"Spellbook (F4)" => $spellsw,	1405	"Spellbook (F4)" => $spellsw,
1388	"Displays all spells you have and lets you edit keyboard shortcuts for them."	1406	"Displays all spells you have and lets you edit keyboard shortcuts for them."
1389	);	1407	);
1390	$ntb->add (	1408	$ntb->add_tab (
1391	"Inventory (F5)" => $INVENTORY_PAGE = inventory_widget,	1409	"Inventory (F5)" => $INVENTORY_PAGE = inventory_widget,
1392	"Toggles the inventory window, where you can manage your loot (or treasures :). "	1410	"Toggles the inventory window, where you can manage your loot (or treasures :). "
1393	. "You can also hit the <b>Tab</b>-key to show/hide the Inventory."	1411	. "You can also hit the <b>Tab</b>-key to show/hide the Inventory."
1394	);	1412	);
		1413	$ntb->add_tab (Pickup => autopickup_setup,
		1414	"Configure autopickup settings, i.e. which items you will pick up automatically when walking (or running) over them.");
1395		1415
1396	$ntb->set_current_page ($INVENTORY_PAGE);	1416	$ntb->set_current_page ($INVENTORY_PAGE);
1397		1417
1398	$plwin->add ($ntb);	1418	$plwin->add ($ntb);
1399	$plwin	1419	$plwin
…		…
1565		1585
1566	sub show_tip_of_the_day {	1586	sub show_tip_of_the_day {
1567	# find all tips	1587	# find all tips
1568	my @tod = CFPlus::Pod::find tip_of_the_day => "*";	1588	my @tod = CFPlus::Pod::find tip_of_the_day => "*";
1569		1589
1570	my $todindex = $CFPlus::DB_STATE->get ("tip_of_the_day");	1590	CFPlus::DB::get state => "tip_of_the_day", sub {
		1591	my ($todindex) = @_;
1571	$todindex = 0 if $todindex >= @tod;	1592	$todindex = 0 if $todindex >= @tod;
1572	$CFPlus::DB_STATE->put (tip_of_the_day => $todindex + 1);	1593	CFPlus::DB::put state => tip_of_the_day => $todindex + 1, sub { };
1573		1594
1574	# create dialog	1595	# create dialog
1575	my $dialog;	1596	my $dialog;
1576		1597
1577	my $close = sub {	1598	my $close = sub {
1578	$dialog->destroy;	1599	$dialog->destroy;
		1600	};
		1601
		1602	$dialog = new CFPlus::UI::Toplevel
		1603	x => "center",
		1604	y => "center",
		1605	z => 3,
		1606	name => 'tip_of_the_day',
		1607	force_w => int $WIDTH * 4/9,
		1608	force_h => int $WIDTH * 2/9,
		1609	title => "Tip of the day #" . (1 + $todindex),
		1610	child => my $vbox = new CFPlus::UI::VBox,
		1611	has_close_button => 1,
		1612	on_delete => $close,
		1613	;
		1614
		1615	$vbox->add (my $viewer = new CFPlus::UI::TextScroller
		1616	expand => 1, fontsize => 0.8, padding_x => 4, padding_y => 4);
		1617	$viewer->add_paragraph (CFPlus::Pod::as_paragraphs CFPlus::Pod::section_of $tod[$todindex]);
		1618
		1619	$vbox->add (my $table = new CFPlus::UI::Table col_expand => [0, 1]);
		1620
		1621	$table->add_at (0, 0, new CFPlus::UI::Button
		1622	text => "Close",
		1623	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>.",
		1624	on_activate => $close,
		1625	);
		1626
		1627	$table->add_at (2, 0, new CFPlus::UI::Button
		1628	text => "Next",
		1629	tooltip => "Show the next <b>Tip of the day</b>.",
		1630	on_activate => sub {
		1631	$close->();
		1632	&show_tip_of_the_day;
		1633	},
		1634	);
		1635
		1636	$dialog->show;
1579	};	1637	};
1580
1581	$dialog = new CFPlus::UI::Toplevel
1582	x => "center",
1583	y => "center",
1584	z => 3,
1585	name => 'tip_of_the_day',
1586	force_w => int $WIDTH * 4/9,
1587	force_h => int $WIDTH * 2/9,
1588	title => "Tip of the day #" . (1 + $todindex),
1589	child => my $vbox = new CFPlus::UI::VBox,
1590	has_close_button => 1,
1591	on_delete => $close,
1592	;
1593
1594	$vbox->add (my $viewer = new CFPlus::UI::TextScroller
1595	expand => 1, fontsize => 0.8, padding_x => 4, padding_y => 4);
1596	$viewer->add_paragraph (CFPlus::Pod::as_paragraphs CFPlus::Pod::section_of $tod[$todindex]);
1597
1598	$vbox->add (my $table = new CFPlus::UI::Table col_expand => [0, 1]);
1599
1600	$table->add (0, 0, new CFPlus::UI::Button
1601	text => "Close",
1602	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>.",
1603	on_activate => $close,
1604	);
1605
1606	$table->add (2, 0, new CFPlus::UI::Button
1607	text => "Next",
1608	tooltip => "Show the next <b>Tip of the day</b>.",
1609	on_activate => sub {
1610	$close->();
1611	&show_tip_of_the_day;
1612	},
1613	);
1614
1615	$dialog->show;
1616	}	1638	}
1617		1639
1618	sub sdl_init {	1640	sub sdl_init {
1619	CFPlus::SDL_Init	1641	CFPlus::SDL_Init
1620	and die "SDL::Init failed!\n";	1642	and die "SDL::Init failed!\n";
1621	}	1643	}
1622		1644
1623	sub video_init {	1645	sub video_init {
1624	sdl_init;
1625
1626	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} >= @SDL_MODES;	1646	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} >= @SDL_MODES;
1627		1647
1628	my ($old_w, $old_h) = ($WIDTH, $HEIGHT);	1648	my ($old_w, $old_h) = ($WIDTH, $HEIGHT);
1629		1649
1630	($WIDTH, $HEIGHT) = @{ $SDL_MODES[$CFG->{sdl_mode}] };	1650	($WIDTH, $HEIGHT, my ($rgb, $alpha)) = @{ $SDL_MODES[$CFG->{sdl_mode}] };
1631	$FULLSCREEN = $CFG->{fullscreen};	1651	$FULLSCREEN = $CFG->{fullscreen};
1632	$FAST = $CFG->{fast};	1652	$FAST = $CFG->{fast};
1633		1653
1634	CFPlus::SDL_SetVideoMode $WIDTH, $HEIGHT, $FULLSCREEN	1654	CFPlus::SDL_SetVideoMode $WIDTH, $HEIGHT, $rgb, $alpha, $FULLSCREEN
1635	or die "SDL_SetVideoMode failed: " . (CFPlus::SDL_GetError) . "\n";	1655	or die "SDL_SetVideoMode failed: " . (CFPlus::SDL_GetError) . "\n";
1636		1656
1637	$SDL_ACTIVE = 1;	1657	$SDL_ACTIVE = 1;
1638	$LAST_REFRESH = time - 0.01;	1658	$LAST_REFRESH = time - 0.01;
1639		1659
…		…
1681		1701
1682	$MAPWIDGET = new CFPlus::MapWidget;	1702	$MAPWIDGET = new CFPlus::MapWidget;
1683	$MAPWIDGET->connect (activate_console => sub {	1703	$MAPWIDGET->connect (activate_console => sub {
1684	my ($mapwidget, $preset) = @_;	1704	my ($mapwidget, $preset) = @_;
1685		1705
1686	if ($CONSOLE) {	1706	$MESSAGE_WINDOW->activate_console ($preset)
1687	$CONSOLE->{input}->{auto_activated} = 1;	1707	if $MESSAGE_WINDOW;
1688	$CONSOLE->{input}->grab_focus;
1689
1690	if ($preset && $CONSOLE->{input}->get_text eq '') {
1691	$CONSOLE->{input}->set_text ($preset);
1692	}
1693	}
1694	});	1708	});
1695	$MAPWIDGET->show;	1709	$MAPWIDGET->show;
1696	$MAPWIDGET->grab_focus;	1710	$MAPWIDGET->grab_focus;
1697
1698	$LOGVIEW = new CFPlus::UI::TextScroller
1699	expand => 1,
1700	font => $FONT_FIXED,
1701	fontsize => $::CFG->{log_fontsize},
1702	indent => -4,
1703	can_hover => 1,
1704	can_events => 1,
1705	tooltip => "<b>Server Log</b>. This text viewer contains all the messages sent by the server.",
1706	;
1707		1711
1708	$SETUP_DIALOG = new CFPlus::UI::Toplevel	1712	$SETUP_DIALOG = new CFPlus::UI::Toplevel
1709	title => "Setup",	1713	title => "Setup",
1710	name => "setup_dialog",	1714	name => "setup_dialog",
1711	x => 'center',	1715	x => 'center',
…		…
1715	force_h => $::HEIGHT * 0.6,	1719	force_h => $::HEIGHT * 0.6,
1716	has_close_button => 1,	1720	has_close_button => 1,
1717	;	1721	;
1718		1722
1719	$METASERVER = metaserver_dialog;	1723	$METASERVER = metaserver_dialog;
		1724	$MESSAGE_WINDOW = new CFPlus::UI::MessageWindow;
1720		1725
1721	$SETUP_DIALOG->add ($SETUP_NOTEBOOK = new CFPlus::UI::Notebook expand => 1, debug => 1,	1726	$SETUP_DIALOG->add ($SETUP_NOTEBOOK = new CFPlus::UI::Notebook expand => 1, debug => 1,
1722	filter => new CFPlus::UI::ScrolledWindow expand => 1, scroll_y => 1);	1727	filter => new CFPlus::UI::ScrolledWindow expand => 1, scroll_y => 1);
1723		1728
1724	$SETUP_NOTEBOOK->add (Server => $SETUP_SERVER = server_setup,	1729	$SETUP_NOTEBOOK->add_tab (Server => $SETUP_SERVER = server_setup,
1725	"Configure the server to play on, your username, password and other server-related options.");	1730	"Configure the server to play on, your username, password and other server-related options.");
1726	$SETUP_NOTEBOOK->add (Pickup => autopickup_setup,	1731	$SETUP_NOTEBOOK->add_tab (Client => client_setup,
1727	"Configure autopickup settings, i.e. which items you will pick up automatically when walking (or running) over them.");	1732	"Configure various client-specific settings.");
1728	$SETUP_NOTEBOOK->add (Graphics => graphics_setup,	1733	$SETUP_NOTEBOOK->add_tab (Graphics => graphics_setup,
1729	"Configure the video mode, performance, fonts and other graphical aspects of the game.");	1734	"Configure the video mode, performance, fonts and other graphical aspects of the game.");
1730	$SETUP_NOTEBOOK->add (Audio => audio_setup,	1735	$SETUP_NOTEBOOK->add_tab (Audio => audio_setup,
1731	"Configure the use of audio, sound effects and background music.");	1736	"Configure the use of audio, sound effects and background music.");
1732	$SETUP_NOTEBOOK->add (Keyboard => $SETUP_KEYBOARD = keyboard_setup,	1737	$SETUP_NOTEBOOK->add_tab (Keyboard => $SETUP_KEYBOARD = keyboard_setup,
1733	"Lets you define, edit and delete key bindings."	1738	"Lets you define, edit and delete key bindings."
1734	. "There is a shortcut for making bindings: <b>Control-Insert</b> opens the binding editor "	1739	. "There is a shortcut for making bindings: <b>Control-Insert</b> opens the binding editor "
1735	. "with nothing set and the recording started. After doing the actions you "	1740	. "with nothing set and the recording started. After doing the actions you "
1736	. "want to record press <b>Insert</b> and you will be asked to press a key-combo. "	1741	. "want to record press <b>Insert</b> and you will be asked to press a key-combo. "
1737	. "After pressing the combo the binding will be saved automatically and the "	1742	. "After pressing the combo the binding will be saved automatically and the "
1738	. "binding editor closes");	1743	. "binding editor closes");
1739	$SETUP_NOTEBOOK->add (Debug => debug_setup,	1744	$SETUP_NOTEBOOK->add_tab (Debug => debug_setup,
1740	"Some debuggin' options. Do not ask.");	1745	"Some debuggin' options. Do not ask.");
1741		1746
1742	$BUTTONBAR = new CFPlus::UI::Buttonbar x => 0, y => 0, z => 200; # put on top	1747	$BUTTONBAR = new CFPlus::UI::Buttonbar x => 0, y => 0, z => 200; # put on top
1743		1748
1744	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Setup", other => $SETUP_DIALOG,	1749	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Setup", other => $SETUP_DIALOG,
1745	tooltip => "Toggles a dialog where you can configure all aspects of this client.");	1750	tooltip => "Toggles a dialog where you can configure all aspects of this client.");
1746		1751
1747	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Message Window", other => $MESSAGE_WINDOW = message_window,	1752	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Message Window", other => $MESSAGE_WINDOW,
1748	tooltip => "Toggles the server message log, where the client collects <i>all</i> messages from the server.");	1753	tooltip => "Toggles the server message log, where the client collects <i>all</i> messages from the server.");
1749		1754
1750	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	1755	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
1751		1756
1752	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Playerbook", other => player_window,	1757	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Playerbook", other => player_window,
…		…
1785	}	1790	}
1786		1791
1787	$STATUSBOX->add ("Set video mode $WIDTH×$HEIGHT", timeout => 10, fg => [1, 1, 1, 0.5]);	1792	$STATUSBOX->add ("Set video mode $WIDTH×$HEIGHT", timeout => 10, fg => [1, 1, 1, 0.5]);
1788	}	1793	}
1789		1794
1790	sub setup_build_button {
1791	my ($enabled) = @_;
1792	if ($enabled) {
1793	$BUILD_BUTTON->hide if $BUILD_BUTTON;
1794	$BUILD_BUTTON ||= new CFPlus::UI::Button
1795	text => "Build",
1796	tooltip => "Opens the ingame builder",
1797	on_activate => sub {
1798	if ($CONN) {
1799	$CONN->send_ext_req (builder_player_items => sub {
1800	open_ingame_editor ($_[0]) if exists $_[0]->{items};
1801	});
1802	}
1803	0
1804	};
1805	$BUTTONBAR->add ($BUILD_BUTTON);
1806	} else {
1807	$BUILD_BUTTON->hide if $BUILD_BUTTON;
1808	}
1809	}
1810
1811	sub open_ingame_editor {
1812	my ($msg) = @_;
1813
1814	my $win = new CFPlus::UI::Toplevel
1815	x => 0,
1816	y => 'center',
1817	z => 4,
1818	name => 'builder_window',
1819	force_w => int $WIDTH * 1/4,
1820	force_h => int $HEIGHT * 3/4,
1821	title => "In game builder",
1822	has_close_button => 1;
1823
1824	my $r = new CFPlus::UI::ScrolledWindow (
1825	expand => 1,
1826	scroll_y => 1
1827	);
1828	$r->add (my $vb = new CFPlus::UI::VBox);
1829	$win->add ($r);
1830
1831
1832	$vb->add (
1833	new CFPlus::UI::Button
1834	text => "Disable build mode",
1835	on_activate => sub { $::IN_BUILD_MODE = undef }
1836	);
1837	$vb->add (
1838	new CFPlus::UI::Button
1839	text => "ERASE",
1840	on_activate => sub { $::IN_BUILD_MODE = { do_erase => 1 } }
1841	);
1842
1843	for my $itemarchname (
1844	sort {
1845	$msg->{items}->{$a}->{build_arch_name}
1846	cmp $msg->{items}->{$b}->{build_arch_name}
1847	} keys %{$msg->{items}}
1848	) {
1849	my $info = $msg->{items}->{$itemarchname};
1850	$vb->add (
1851	new CFPlus::UI::Button text => $info->{build_arch_name},
1852	on_activate => sub {
1853	$::IN_BUILD_MODE = { item => $itemarchname, info => $info };
1854
1855	if (grep { $msg->{items}->{$itemarchname}->{$_} } qw/has_connection has_name has_text/) {
1856	build_mode_query_arch_info ();
1857	}
1858	}
1859	);
1860	}
1861
1862	$win->show;
1863	}
1864
1865	sub build_mode_query_arch_info {
1866	my ($iteminfo) = $::IN_BUILD_MODE;
1867	my $itemarchname = $iteminfo->{item};
1868	my $info = $iteminfo->{info};
1869
1870	my $dialog = new CFPlus::UI::Toplevel
1871	x => "center",
1872	y => "center",
1873	z => 50,
1874	force_w => int $WIDTH * 1/2,
1875	title => "Enter information for placement of '$itemarchname'",
1876	has_close_button => 1;
1877
1878	$dialog->add (my $vb = new CFPlus::UI::VBox expand => 1);
1879
1880	$vb->add (my $table = new CFPlus::UI::Table expand => 1);
1881	my $row = 0;
1882	if ($info->{has_name}) {
1883	$table->add (0, $row, new CFPlus::UI::Label text => "Name:");
1884	$table->add (1, $row++, new CFPlus::UI::Entry expand => 1, on_changed => sub { $::IN_BUILD_MODE->{name} = $_[1]; 0 });
1885	}
1886	if ($info->{has_text}) {
1887	$table->add (0, $row, new CFPlus::UI::Label text => "Text:");
1888	$table->add (1, $row++, new CFPlus::UI::Entry expand => 1, on_changed => sub { $::IN_BUILD_MODE->{text} = $_[1]; 0 });
1889	}
1890	if ($info->{has_connection}) {
1891	$table->add (0, $row, new CFPlus::UI::Label text => "Connection ID:");
1892	$table->add (1, $row++,
1893	new CFPlus::UI::Entry
1894	expand => 1,
1895	on_changed => sub { $::IN_BUILD_MODE->{connection} = $_[1]; 0 },
1896	tooltip => "Enter the connection ID here. The connection ID connects actors like a lever to a gate or a magic ear to a gate"
1897	);
1898	}
1899
1900	$vb->add (my $hb = new CFPlus::UI::HBox expand => 1);
1901	$hb->add (new CFPlus::UI::Button
1902	text => "Close",
1903	expand => 1,
1904	on_activate => sub { $dialog->hide; 0 },
1905	);
1906	$dialog->show;
1907	}
1908
1909	sub video_shutdown {	1795	sub video_shutdown {
1910	CFPlus::OpenGL::shutdown;	1796	CFPlus::OpenGL::shutdown;
1911		1797
1912	undef $SDL_ACTIVE;	1798	undef $SDL_ACTIVE;
1913	}	1799	}
1914		1800
1915	my @bgmusic = qw(game1.ogg game2.ogg game3.ogg game5.ogg game6.ogg ross1.ogg ross2.ogg ross3.ogg ross4.ogg ross5.ogg); #d#
1916	my $bgmusic;#TODO#hack#d#
1917
1918	sub audio_channel_finished {	1801	sub audio_channel_finished {
1919	my ($channel) = @_;	1802	my ($channel) = @_;
1920		1803
1921	#warn "channel $channel finished\n";#d#	1804	#warn "channel $channel finished\n";#d#
1922	}	1805	}
1923		1806
		1807	sub audio_music_set {
		1808	my ($songs) = @_;
		1809
		1810	my @want =
		1811	grep $_,
		1812	map $CONN->{music_meta}{$_},
		1813	@$songs;
		1814
		1815	if (@want) {
		1816	@MUSIC_WANT = @want;
		1817	&audio_music_changed ();
		1818	}
		1819	}
		1820
		1821	sub audio_music_start {
		1822	my $path = $MUSIC_PLAYING->{path}
		1823	or return;
		1824
		1825	CFPlus::DB::prefetch_file $path, 1024_000, sub {
		1826	return unless $SDL_MIXER;
		1827
		1828	# music might have changed...
		1829	$path eq $MUSIC_PLAYING->{path}
		1830	or return &audio_music_start ();
		1831
		1832	my $rwops = new_from_file CFPlus::RW $path;
		1833	$MUSIC_PLAYER = new CFPlus::MixMusic $rwops;
		1834
		1835	my $NOW = time;
		1836
		1837	if ($MUSIC_PLAYING->{stop_time} > $NOW - $MUSIC_RESUME) {
		1838	my $pos = $MUSIC_PLAYING->{stop_pos};
		1839	$MUSIC_PLAYER->fade_in_pos (0, 1000, $pos);
		1840	$MUSIC_START = time - $pos;
		1841	} else {
		1842	$MUSIC_PLAYER->play (0);
		1843	$MUSIC_START = time;
		1844	}
		1845
		1846	delete $MUSIC_PLAYING->{stop_time};
		1847	delete $MUSIC_PLAYING->{stop_pos};
		1848	}
		1849	}
		1850
		1851	sub audio_music_changed {
		1852	return unless $CFG->{bgm_enable};
		1853	return unless $SDL_MIXER;
		1854
		1855	# default MUSIC_WANT == MUSIC_DEFAULT
		1856	@MUSIC_WANT = { path => CFPlus::find_rcfile "music/$MUSIC_DEFAULT" } unless @MUSIC_WANT;
		1857
		1858	# if the currently playing song is acceptable, let it continue
		1859	return if $MUSIC_PLAYING
		1860	&& grep $MUSIC_PLAYING->{path} eq $_->{path}, @MUSIC_WANT;
		1861
		1862	my $NOW = time;
		1863
		1864	if ($MUSIC_PLAYING) {
		1865	$MUSIC_PLAYING->{stop_time} = $NOW;
		1866	$MUSIC_PLAYING->{stop_pos} = $NOW - $MUSIC_START;
		1867	CFPlus::MixMusic::fade_out 1000;
		1868	} else {
		1869	# sort by stop time, oldest first
		1870	@MUSIC_WANT = sort { $a->{stop_time} <=> $b->{stop_time} } @MUSIC_WANT;
		1871
		1872	# if the most recently-played piece played very recently,
		1873	# resume it, else choose the oldest piece for rotation.
		1874	$MUSIC_PLAYING =
		1875	$MUSIC_WANT[-1]{stop_time} > $NOW - $MUSIC_RESUME
		1876	? $MUSIC_WANT[-1]
		1877	: $MUSIC_WANT[0];
		1878
		1879	audio_music_start;
		1880	}
		1881	}
		1882
1924	sub audio_music_finished {	1883	sub audio_music_finished {
1925	return unless $CFG->{bgm_enable};	1884	$MUSIC_PLAYING = undef;
		1885	undef $MUSIC_PLAYER;
1926		1886
1927	# TODO: hack, do play loop and mood music	1887	audio_music_changed;
1928	$bgmusic = new_from_file CFPlus::MixMusic CFPlus::find_rcfile "music/$bgmusic[0]";
1929	$bgmusic->play (0);
1930
1931	push @bgmusic, shift @bgmusic;
1932	}	1888	}
1933		1889
1934	sub audio_init {	1890	sub audio_init {
1935	if ($CFG->{audio_enable}) {	1891	if ($CFG->{audio_enable}) {
1936	if (open my $fh, "<", CFPlus::find_rcfile "sounds/config") {	1892	if (open my $fh, "<", CFPlus::find_rcfile "sounds/config") {
		1893	$ENV{MIX_EFFECTSMAXSPEED} = 1;
1937	$SDL_MIXER = !CFPlus::Mix_OpenAudio;	1894	$SDL_MIXER = !CFPlus::Mix_OpenAudio;
1938		1895
1939	unless ($SDL_MIXER) {	1896	unless ($SDL_MIXER) {
1940	status "Unable to open sound device: there will be no sound";	1897	status "Unable to open sound device: there will be no sound";
1941	return;	1898	return;
…		…
1954	my ($file, $volume, $event) = split /\s+/, $_, 3;	1911	my ($file, $volume, $event) = split /\s+/, $_, 3;
1955		1912
1956	push @SOUNDS, "$volume,$file";	1913	push @SOUNDS, "$volume,$file";
1957		1914
1958	$AUDIO_CHUNKS{"$volume,$file"} ||= do {	1915	$AUDIO_CHUNKS{"$volume,$file"} ||= do {
1959	my $chunk = new_from_file CFPlus::MixChunk CFPlus::find_rcfile "sounds/$file";	1916	my $rwops = new_from_file CFPlus::RW CFPlus::find_rcfile "sounds/$file";
		1917	my $chunk = new CFPlus::MixChunk $rwops;
1960	$chunk->volume ($volume * 128 / 100);	1918	$chunk->volume ($volume * 128 / 100);
1961	$chunk	1919	$chunk
1962	};	1920	};
1963	}	1921	}
1964	} else {	1922	} else {
1965	status "unable to open sound config: $!";	1923	status "unable to open sound config: $!";
1966	}	1924	}
		1925	} else {
		1926	undef $SDL_MIXER;
1967	}	1927	}
1968	}	1928	}
1969		1929
1970	sub audio_shutdown {	1930	sub audio_shutdown {
1971	CFPlus::Mix_CloseAudio if $SDL_MIXER;	1931	CFPlus::Mix_CloseAudio if $SDL_MIXER;
…		…
1986	debug sprintf "%3.2f", $fps if $ENV{CFPLUS_DEBUG} & 4;	1946	debug sprintf "%3.2f", $fps if $ENV{CFPLUS_DEBUG} & 4;
1987		1947
1988	$CFPlus::UI::ROOT->draw;	1948	$CFPlus::UI::ROOT->draw;
1989		1949
1990	$WANT_REFRESH = 0;	1950	$WANT_REFRESH = 0;
1991	$CAN_REFRESH = 0;	1951	$CAN_REFRESH = 0;
1992	$LAST_REFRESH = $NOW;	1952	$LAST_REFRESH = $NOW;
1993		1953
1994	CFPlus::SDL_GL_SwapBuffers;	1954	CFPlus::SDL_GL_SwapBuffers;
1995	}	1955	}
1996		1956
1997	my $refresh_watcher = Event->timer (after => 0, hard => 0, interval => 1 / $MAX_FPS, cb => sub {	1957	my $refresh_watcher = Event->timer (after => 0, hard => 0, interval => 1 / $MAX_FPS, cb => sub {
1998	$NOW = time;	1958	$NOW = time;
1999		1959
2000	($SDL_CB{$_->{type}} || sub { warn "unhandled event $_->{type}" })->($_)	1960	($SDL_CB{$_->{type}} || sub { warn "unhandled event $_->{type}" })->($_)
2001	for CFPlus::SDL_PollEvent;	1961	for CFPlus::poll_events;
2002		1962
2003	if (%animate_object) {	1963	if (%animate_object) {
2004	$_->animate ($LAST_REFRESH - $NOW) for values %animate_object;	1964	$_->animate ($LAST_REFRESH - $NOW) for values %animate_object;
2005	$WANT_REFRESH++;	1965	++$WANT_REFRESH;
2006	}	1966	}
2007		1967
2008	if ($WANT_REFRESH) {	1968	if ($WANT_REFRESH) {
2009	force_refresh;	1969	force_refresh;
2010	} else {	1970	} else {
…		…
2020	sub animation_stop {	1980	sub animation_stop {
2021	my ($widget) = @_;	1981	my ($widget) = @_;
2022	delete $animate_object{$widget};	1982	delete $animate_object{$widget};
2023	}	1983	}
2024		1984
2025	# check once/second for faces that need to be prefetched
2026	# this should, of course, only run on demand, but
2027	# SDL forces worse things on us....
2028
2029	Event->timer (after => 1, interval => 0.25, cb => sub {
2030	$CONN->face_prefetch
2031	if $CONN;
2032	});
2033
2034	%SDL_CB = (	1985	%SDL_CB = (
2035	CFPlus::SDL_QUIT => sub {	1986	CFPlus::SDL_QUIT => sub {
2036	Event::unloop -1;	1987	exit;
2037	},	1988	},
2038	CFPlus::SDL_VIDEORESIZE => sub {	1989	CFPlus::SDL_VIDEORESIZE => sub {
2039	},	1990	},
2040	CFPlus::SDL_VIDEOEXPOSE => sub {	1991	CFPlus::SDL_VIDEOEXPOSE => sub {
2041	CFPlus::UI::full_refresh;	1992	CFPlus::UI::full_refresh;
2042	},	1993	},
2043	CFPlus::SDL_ACTIVEEVENT => sub {	1994	CFPlus::SDL_ACTIVEEVENT => sub {
2044	# not useful, as APPACTIVE include sonly iconified state, not unmapped	1995	# not useful, as APPACTIVE include sonly iconified state, not unmapped
2045	# printf "active %x %x\n", $_[0]{gain}, $_[0]{state};#d#	1996	# printf "active %x %x %x\n", $_[0]{gain}, $_[0]{state}, CFPlus::SDL_GetAppState;#d#
		1997	# printf "a %x\n", CFPlus::SDL_GetAppState & CFPlus::SDL_APPACTIVE;#d#
2046	# printf "A\n" if $_[0]{state} & CFPlus::SDL_APPACTIVE;	1998	# printf "A\n" if $_[0]{state} & CFPlus::SDL_APPACTIVE;
2047	# printf "K\n" if $_[0]{state} & CFPlus::SDL_APPINPUTFOCUS;	1999	# printf "K\n" if $_[0]{state} & CFPlus::SDL_APPINPUTFOCUS;
2048	# printf "M\n" if $_[0]{state} & CFPlus::SDL_APPMOUSEFOCUS;	2000	# printf "M\n" if $_[0]{state} & CFPlus::SDL_APPMOUSEFOCUS;
2049	},	2001	},
2050	CFPlus::SDL_KEYDOWN => sub {	2002	CFPlus::SDL_KEYDOWN => sub {
…		…
2074		2026
2075	$SIG{INT} = $SIG{TERM} = sub { exit };	2027	$SIG{INT} = $SIG{TERM} = sub { exit };
2076		2028
2077	{	2029	{
2078	CFPlus::read_cfg "$Crossfire::VARDIR/cfplusrc";	2030	CFPlus::read_cfg "$Crossfire::VARDIR/cfplusrc";
		2031	CFPlus::DB::Server::run;
		2032
2079	CFPlus::UI::set_layout ($::CFG->{layout});	2033	CFPlus::UI::set_layout ($::CFG->{layout});
2080		2034
2081	my %DEF_CFG = (	2035	my %DEF_CFG = (
2082	sdl_mode => 0,	2036	sdl_mode => 0,
2083	width => 640,	2037	width => 640,
2084	height => 480,	2038	height => 480,
2085	fullscreen => 0,	2039	fullscreen => 0,
2086	fast => 0,	2040	fast => 0,
2087	map_scale => 1,	2041	map_scale => 1,
2088	fow_enable => 1,	2042	fow_enable => 1,
2089	fow_intensity => 0.45,	2043	fow_intensity => 0,
2090	fow_smooth => 0,	2044	map_smoothing => 1,
2091	gui_fontsize => 1,	2045	gui_fontsize => 1,
2092	log_fontsize => 0.7,	2046	log_fontsize => 0.7,
2093	gauge_fontsize => 1,	2047	gauge_fontsize => 1,
2094	gauge_size => 0.35,	2048	gauge_size => 0.35,
2095	stat_fontsize => 0.7,	2049	stat_fontsize => 0.7,
2096	mapsize => 100,	2050	mapsize => 100,
2097	say_command => 'chat',
2098	audio_enable => 1,	2051	audio_enable => 1,
2099	bgm_enable => 1,	2052	bgm_enable => 1,
2100	bgm_volume => 0.25,	2053	bgm_volume => 0.25,
2101	face_prefetch => 0,
2102	output_sync => 1,	2054	output_sync => 1,
2103	output_count => 1,	2055	output_count => 1,
		2056	output_rate => "",
2104	pickup => 0,	2057	pickup => 0,
2105	inv_sort => "mtime",	2058	inv_sort => "mtime",
2106	default => "profile", # default profile	2059	default => "profile", # default profile
2107	show_tips => 1,	2060	show_tips => 1,
		2061	logview_max_par => 1000,
2108	);	2062	);
2109		2063
2110	while (my ($k, $v) = each %DEF_CFG) {	2064	while (my ($k, $v) = each %DEF_CFG) {
2111	$CFG->{$k} = $v unless exists $CFG->{$k};	2065	$CFG->{$k} = $v unless exists $CFG->{$k};
2112	}	2066	}
…		…
2126	}	2080	}
2127	}	2081	}
2128		2082
2129	sdl_init;	2083	sdl_init;
2130		2084
2131	@SDL_MODES = reverse	2085	@SDL_MODES = CFPlus::SDL_ListModes 8, 8;
2132	grep $_->[0] >= 640 && $_->[1] >= 480,	2086	@SDL_MODES = CFPlus::SDL_ListModes 5, 0 unless @SDL_MODES;
2133	CFPlus::SDL_ListModes;
2134
2135	@SDL_MODES or CFPlus::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)";	2087	@SDL_MODES or CFPlus::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)";
		2088
		2089	@SDL_MODES = sort { $a->[0] * $a->[1] <=> $b->[0] * $b->[1] } @SDL_MODES;
2136		2090
2137	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES;	2091	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES;
2138		2092
2139	{	2093	{
2140	my @fonts = map CFPlus::find_rcfile "fonts/$_", qw(	2094	my @fonts = map CFPlus::find_rcfile "fonts/$_", qw(
…		…
2181		2135
2182	Event::loop;	2136	Event::loop;
2183	#CFPlus::SDL_Quit;	2137	#CFPlus::SDL_Quit;
2184	#CFPlus::_exit 0;	2138	#CFPlus::_exit 0;
2185		2139
		2140	END {
2186	END { CFPlus::SDL_Quit }	2141	CFPlus::SDL_Quit;
		2142	CFPlus::DB::Server::stop;
		2143	}
2187		2144
2188	=head1 NAME	2145	=head1 NAME
2189		2146
2190	cfplus - A Crossfire+ and Crossfire game client	2147	cfplus - A Crossfire+ and Crossfire game client
2191		2148

Diff Legend

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