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

Diff Legend

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