[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/bin/cfplus

Comparing deliantra/Deliantra-Client/bin/cfplus (file contents):
Revision 1.122 by root, Sun Oct 8 21:22:30 2006 UTC vs.
Revision 1.203 by root, Mon Aug 6 02:11:45 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 ($^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) {
9	$zip->extractMember ("SPLASH.bmp", "$ENV{PAR_TEMP}/SPLASH.bmp");	10	$zip->extractMember ("SPLASH.bmp", "$ENV{PAR_TEMP}/SPLASH.bmp");
10	}	11	}
11		12
12	require Win32::GUI::SplashScreen;	13	require Win32::GUI::SplashScreen;
22	}	23	}
23		24
24	use strict;	25	use strict;
25	use utf8;	26	use utf8;
26		27
		28	use Carp 'verbose';
		29
27	# do things only needed for single-binary version (par)	30	# do things only needed for single-binary version (par)
28	BEGIN {	31	BEGIN {
29	if (%PAR::LibCache) {	32	if (%PAR::LibCache) {
30	@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
31		34
		35	my $tmp = $ENV{PAR_TEMP};
		36
32	while (my ($filename, $zip) = each %PAR::LibCache) {	37	while (my ($filename, $zip) = each %PAR::LibCache) {
33	for ($zip->memberNames) {	38	for ($zip->memberNames) {
34	next unless /^root\/(.*)/;	39	next unless /^root\/(.*)/;
35	$zip->extractMember ($_, "$ENV{PAR_TEMP}/$1")	40	$zip->extractMember ($_, "$tmp/$1")
36	unless -e "$ENV{PAR_TEMP}/$1";	41	unless -e "$tmp/$1";
37	}	42	}
38	}	43	}
39		44
40	# 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
41		54
42	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;
43	}	67	}
44	}	68	}
45		69
46	# 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
47	unshift @INC, $ENV{PAR_TEMP}	71	unshift @INC, $ENV{PAR_TEMP}
48	if %PAR::LibCache;	72	if %PAR::LibCache;
49		73
50	use Time::HiRes 'time';	74	use Time::HiRes 'time';
51	use Event;	75	use Event;
		76	use List::Util qw(max min);
52		77
53	use Crossfire;	78	use Crossfire;
54	use Crossfire::Protocol::Constants;	79	use Crossfire::Protocol::Constants;
55		80
56	use Compress::LZF;	81	use Compress::LZF;
57		82
58	use CFPlus;	83	use CFPlus;
59	use CFPlus::OpenGL ();	84	use CFPlus::OpenGL ();
60	use CFPlus::Protocol;	85	use CFPlus::Protocol;
		86	use CFPlus::DB;
61	use CFPlus::UI;	87	use CFPlus::UI;
		88	use CFPlus::UI::Canvas;
		89	use CFPlus::UI::Inventory;
		90	use CFPlus::UI::SpellList;
		91	use CFPlus::UI::MessageWindow;
62	use CFPlus::Pod;	92	use CFPlus::Pod;
63	use CFPlus::BindingEditor;
64	use CFPlus::MapWidget;	93	use CFPlus::MapWidget;
		94	use CFPlus::Macro;
65		95
66	$SIG{QUIT} = sub { Carp::cluck "QUIT" };	96	$SIG{QUIT} = sub { Carp::cluck "QUIT" };
67	$SIG{PIPE} = 'IGNORE';	97	$SIG{PIPE} = 'IGNORE';
68		98
69	$Event::Eval = 0;	99	$Event::Eval = 1;
70	$Event::DIED = sub {	100	$Event::DIED = sub {
71	# TODO: display dialog box or so	101	CFPlus::fatal Carp::longmess $_[1]
72	Carp::cluck $_[1];#d#TODO: remove when stable
73	return;#d#
74	CFPlus::fatal ($_[1]);
75	};	102	};
76		103
77	my $MAX_FPS = 60;	104	my $MAX_FPS = 60;
78	my $MIN_FPS = 5; # unused as of yet	105	my $MIN_FPS = 5; # unused as of yet
79		106
80	our $META_SERVER = "crossfire.real-time.com:13326";	107	our $META_SERVER = "http://metaserver.schmorp.de/current.json";
81		108
82	our $LAST_REFRESH;	109	our $LAST_REFRESH;
83	our $NOW;	110	our $NOW;
84		111
85	our $CFG;	112	our $CFG;
…		…
101		128
102	our $MAP;	129	our $MAP;
103	our $MAPMAP;	130	our $MAPMAP;
104	our $MAPWIDGET;	131	our $MAPWIDGET;
105	our $BUTTONBAR;	132	our $BUTTONBAR;
106	our $LOGVIEW;
107	our $CONSOLE;
108	our $METASERVER;	133	our $METASERVER;
109	our $LOGIN_BUTTON;	134	our $LOGIN_BUTTON;
110	our $QUIT_DIALOG;	135	our $QUIT_DIALOG;
111	our $HOST_ENTRY;	136	our $HOST_ENTRY;
112	our $FULLSCREEN_ENABLE;	137	our $FULLSCREEN_ENABLE;
…		…
119	our $SETUP_KEYBOARD;	144	our $SETUP_KEYBOARD;
120		145
121	our $PL_NOTEBOOK;	146	our $PL_NOTEBOOK;
122	our $PL_WINDOW;	147	our $PL_WINDOW;
123		148
		149	our $MUSIC_PLAYING_WIDGET;
		150	our $LICENSE_WIDGET;
		151
124	our $INVENTORY_PAGE;	152	our $INVENTORY_PAGE;
125	our $STATS_PAGE;	153	our $STATS_PAGE;
126	our $SKILL_PAGE;	154	our $SKILL_PAGE;
127	our $SPELL_PAGE;	155	our $SPELL_PAGE;
		156	our $SPELL_LIST;
128		157
129	our $HELP_WINDOW;	158	our $HELP_WINDOW;
130	our $MESSAGE_WINDOW;	159	our $MESSAGE_WINDOW;
131	our $FLOORBOX;	160	our $FLOORBOX;
132	our $GAUGES;	161	our $GAUGES;
133	our $STATWIDS;	162	our $STATWIDS;
134		163
135	our $SDL_ACTIVE;	164	our $SDL_ACTIVE;
136	our %SDL_CB;	165	our %SDL_CB;
137		166
138	our $SDL_MIXER;
139	our @SOUNDS; # event => file mapping
140	our %AUDIO_CHUNKS; # audio files
141
142	our $ALT_ENTER_MESSAGE;	167	our $ALT_ENTER_MESSAGE;
143	our $STATUSBOX;	168	our $STATUSBOX;
144	our $DEBUG_STATUS;	169	our $DEBUG_STATUS;
145		170
146	our $INV;	171	our $INV;
147	our $INVR;	172	our $INVR;
148	our $INV_RIGHT_HB;	173	our $INV_RIGHT_HB;
149		174
150	our $BIND_EDITOR;
151	our $BIND_UPD_CB;
152
153	our $PICKUP_CFG;	175	our $PICKUP_CFG;
		176
		177	#############################################################################
154		178
155	sub status {	179	sub status {
156	$STATUSBOX->add (CFPlus::asxml $_[0], pri => -10, group => "status", timeout => 10, fg => [1, 1, 0, 1]);	180	$STATUSBOX->add (CFPlus::asxml $_[0], pri => -10, group => "status", timeout => 10, fg => [1, 1, 0, 1]);
157	}	181	}
158		182
…		…
160	$DEBUG_STATUS->set_text ($_[0]);	184	$DEBUG_STATUS->set_text ($_[0]);
161	}	185	}
162		186
163	sub message {	187	sub message {
164	my ($para) = @_;	188	my ($para) = @_;
165		189	$MESSAGE_WINDOW->message ($para);
166	my $time = sprintf "%02d:%02d:%02d", (localtime time)[2,1,0];
167
168	$para->{markup} = "<span foreground='#ffffff'>$time</span> $para->{markup}";
169
170	$LOGVIEW->add_paragraph ($para);
171	$LOGVIEW->scroll_to_bottom;
172	}	190	}
		191
		192	#############################################################################
		193	#TODO: maybe move into own audio module...
		194
		195	our $SDL_MIXER;
		196
		197	our $MUSIC_DEFAULT = "in_a_heartbeat.ogg";
		198	our $MUSIC_WANT; # arryref of ambient music we want to play
		199	our @MUSIC_HAVE; # ambient music we have on disk
		200	our $MUSIC_START;
		201	our @MUSIC_JINGLE; # which jingles to play next
		202	our $MUSIC_PLAYING_DATA;
		203	our $MUSIC_PLAYING_META;
		204	our $MUSIC_PLAYER;
		205	our $MUSIC_RESUME = 30; # resume music when played less than these many seconds before
		206
		207	our %AUDIO_CHUNK; # audio "files"
		208	our %AUDIO_PLAY; # which audio faces should be played
		209
		210	sub audio_channel_finished {
		211	my ($channel) = @_;
		212
		213	# warn "channel $channel finished\n";#d#
		214	}
		215
		216	sub audio_sound_push($) {
		217	my ($face) = @_;
		218
		219	$CFG->{effects_enable}
		220	or return;
		221
		222	if (my $chunk = $AUDIO_CHUNK{$face}) {
		223	for (grep $_->[0] >= Event::time, @{(delete $AUDIO_PLAY{$face}) \|\| []}) {
		224	my (undef, $dx, $dy, $vol) = @$_;
		225
		226	my $channel = CFPlus::Channel::find;
		227	$channel->volume ($vol * $CFG->{effects_volume} * 128 / 255);
		228	$dx = $dx / 10 * 255;
		229	$channel->set_panning (255 - $dx, 255 + $dx);
		230
		231	# my $angle = $dx ? : $dx < 0 ?
		232	# my $distance = -$vol;
		233	# $channel->set_position ($angle, $distance);
		234
		235	$chunk->play ($channel);
		236	}
		237	} else {
		238	# sound_meta not set means data is in flight either way
		239	my $meta = $CONN->{sound_meta}{$face}
		240	or return;
		241
		242	# if its a jingle, play it as ambient music
		243	if ($meta->{meta}{jingle}) {
		244	if (delete $AUDIO_PLAY{$face}) { # take the jingle out of the sound queue
		245	push @MUSIC_JINGLE, $meta; # push it oto the music/jingle queue
		246	&audio_music_push ($face);
		247	}
		248	} else {
		249	# fetch from database
		250	CFPlus::DB::get res_data => $meta->{name}, sub {
		251	my $rwops = new CFPlus::RW $_[0];
		252	my $chunk = new CFPlus::MixChunk $rwops
		253	or Carp::confess "sound face $meta->{face} unloadable: " . CFPlus::Mix_GetError;
		254	$chunk->volume (($meta->{meta}{volume} \|\| 1) * 128);
		255	$AUDIO_CHUNK{$face} = $chunk;
		256
		257	audio_sound_push ($face);
		258	};
		259	}
		260	}
		261	}
		262
		263	sub audio_sound_play {
		264	my ($face, $dx, $dy, $vol) = @_;
		265
		266	$SDL_MIXER
		267	or return;
		268	$CFG->{effects_enable}
		269	or return;
		270
		271	my $queue = $AUDIO_PLAY{$face} \|\|= [];
		272	push @$queue, [Event::time + 0.2, $dx, $dy, $vol]; # delay sound by max. 0.2s
		273	audio_sound_push $face
		274	unless @$queue > 1;
		275	}
		276
		277	sub audio_music_set_meta {
		278	my ($meta) = @_;
		279
		280	$MUSIC_PLAYING_META = $meta;
		281	$MUSIC_PLAYING_WIDGET->set_markup (
		282	"<b>Name</b>: " . (CFPlus::asxml $meta->{meta}{name}) . "\n"
		283	. "<b>Author</b>: " . (CFPlus::asxml $meta->{meta}{author}) . "\n"
		284	. "<b>Source</b>: " . (CFPlus::asxml $meta->{meta}{source}) . "\n"
		285	. "<b>License</b>: " . (CFPlus::asxml $meta->{meta}{license})
		286	);
		287	}
		288
		289	sub audio_music_update_volume {
		290	return unless $MUSIC_PLAYING_META;
		291	my $volume = $MUSIC_PLAYING_META->{meta}{volume} \|\| 1;
		292	my $base = $MUSIC_PLAYING_META->{meta}{jingle} ? 1 : $CFG->{bgm_volume};
		293	CFPlus::MixMusic::volume $base * $volume * 128;
		294	}
		295
		296	sub audio_music_start {
		297	my $meta = $MUSIC_PLAYING_META;
		298
		299	CFPlus::DB::get res_data => $meta->{name}, sub {
		300	return unless $SDL_MIXER;
		301
		302	# music might have changed...
		303	$meta eq $MUSIC_PLAYING_META
		304	or return &audio_music_start ();
		305
		306	audio_music_update_volume;
		307
		308	$MUSIC_PLAYING_DATA = \$_[0];
		309
		310	my $rwops = $meta->{path}
		311	? new_from_file CFPlus::RW $meta->{path}
		312	: new CFPlus::RW $$MUSIC_PLAYING_DATA;
		313
		314	$MUSIC_PLAYER = new CFPlus::MixMusic $rwops
		315	or Carp::confess "music face $meta->{face} unloadable: " . CFPlus::Mix_GetError;
		316
		317	my $NOW = time;
		318
		319	if ($MUSIC_PLAYING_META->{stop_time} > $NOW - $MUSIC_RESUME) {
		320	my $pos = $MUSIC_PLAYING_META->{stop_pos};
		321	$MUSIC_PLAYER->fade_in_pos (0, 1000, $pos);
		322	$MUSIC_START = time - $pos;
		323	} else {
		324	$MUSIC_PLAYER->play (0);
		325	$MUSIC_START = time;
		326	}
		327
		328	delete $meta->{stop_time};
		329	delete $meta->{stop_pos};
		330	}
		331	}
		332
		333	sub audio_music_push {
		334	return unless $SDL_MIXER;
		335
		336	my $fade_out;
		337
		338	if (@MUSIC_JINGLE) {
		339	@MUSIC_HAVE = $MUSIC_JINGLE[0];
		340	$fade_out = 333;
		341	} else {
		342	return unless $CFG->{bgm_enable};
		343
		344	my @have =
		345	grep $_,
		346	map $CONN->{music_meta}{$_},
		347	@$MUSIC_WANT;
		348
		349	@MUSIC_HAVE = @have
		350	if @have;
		351
		352	# default MUSIC_HAVE == MUSIC_DEFAULT
		353	@MUSIC_HAVE = { path => CFPlus::find_rcfile "music/$MUSIC_DEFAULT" } unless @MUSIC_HAVE;
		354	$fade_out = 1000;
		355	}
		356
		357	# if the currently playing song is acceptable, let it continue
		358	return if grep $MUSIC_PLAYING_META == $_, @MUSIC_HAVE;
		359
		360	my $NOW = time;
		361
		362	if ($MUSIC_PLAYING_META) {
		363	$MUSIC_PLAYING_META->{stop_time} = $NOW;
		364	$MUSIC_PLAYING_META->{stop_pos} = $NOW - $MUSIC_START;
		365	CFPlus::MixMusic::fade_out $fade_out;
		366	} else {
		367	# sort by stop time, oldest first
		368	@MUSIC_HAVE = sort { $a->{stop_time} <=> $b->{stop_time} } @MUSIC_HAVE;
		369
		370	# if the most recently-played piece played very recently,
		371	# resume it, else choose the oldest piece for rotation.
		372	audio_music_set_meta
		373	$MUSIC_HAVE[-1]{stop_time} > $NOW - $MUSIC_RESUME
		374	? $MUSIC_HAVE[-1]
		375	: $MUSIC_HAVE[0];
		376
		377	audio_music_start;
		378	}
		379	}
		380
		381	sub audio_music_set_ambient {
		382	my ($songs) = @_;
		383
		384	$MUSIC_WANT = $songs;
		385	audio_music_push;
		386	}
		387
		388	sub audio_music_finished {
		389	# we compress multiple jingles of the same type
		390	shift @MUSIC_JINGLE
		391	while @MUSIC_JINGLE && $MUSIC_PLAYING_META == $MUSIC_JINGLE[0];
		392
		393	$MUSIC_PLAYING_WIDGET->clear;
		394
		395	undef $MUSIC_PLAYER;
		396	undef $MUSIC_PLAYING_META;
		397	undef $MUSIC_PLAYING_DATA;
		398
		399	audio_music_push;
		400	}
		401
		402	sub audio_init {
		403	if ($CFG->{audio_enable}) {
		404	$ENV{MIX_EFFECTSMAXSPEED} = 1;
		405	$SDL_MIXER = !CFPlus::Mix_OpenAudio;
		406
		407	unless ($SDL_MIXER) {
		408	status "Unable to open sound device: there will be no sound";
		409	return;
		410	}
		411
		412	CFPlus::Mix_AllocateChannels 16;
		413
		414	audio_music_finished;
		415	} else {
		416	undef $SDL_MIXER;
		417	}
		418	}
		419
		420	sub audio_shutdown {
		421	undef $MUSIC_PLAYER;
		422	undef $MUSIC_PLAYING_META;
		423	undef $MUSIC_PLAYING_DATA;
		424
		425	audio_music_set_meta { };
		426
		427	$MUSIC_WANT = [];
		428	@MUSIC_JINGLE = ();
		429	%AUDIO_PLAY = ();
		430	%AUDIO_CHUNK = ();
		431
		432	CFPlus::Mix_CloseAudio if $SDL_MIXER;
		433	undef $SDL_MIXER;
		434	}
		435
		436	#############################################################################
173		437
174	sub destroy_query_dialog {	438	sub destroy_query_dialog {
175	(delete $_[0]{query_dialog})->destroy	439	(delete $_[0]{query_dialog})->destroy
176	if $_[0]{query_dialog};	440	if $_[0]{query_dialog};
177	}	441	}
178		442
		443	# FIXME: a very ugly hack to wait for stat update look below! #d#
		444	our $QUERY_TIMER; #d#
		445
179	# server query dialog	446	# server query dialog
180	sub server_query {	447	sub server_query {
181	my ($conn, $flags, $prompt) = @_;	448	my ($conn, $flags, $prompt) = @_;
		449
		450	# FIXME: a very ugly hack to wait for stat update #d#
		451	if ($prompt =~ /roll new stats/ and not $conn->{stat_change_with}) {
		452	unless ($QUERY_TIMER) {
		453	$QUERY_TIMER =
		454	Event->timer (
		455	after => 1,
		456	cb => sub {
		457	server_query ($conn, $flags, $prompt, 1);
		458	$QUERY_TIMER = undef
		459	}
		460	);
		461	return;
		462	}
		463	}
182		464
183	$conn->{query_dialog} = my $dialog = new CFPlus::UI::Toplevel	465	$conn->{query_dialog} = my $dialog = new CFPlus::UI::Toplevel
184	x => "center",	466	x => "center",
185	y => "center",	467	y => "center",
186	title => "Server Query",	468	title => "Server Query",
187	child => my $vbox = new CFPlus::UI::VBox,	469	child => my $vbox = new CFPlus::UI::VBox,
188	;	470	;
189		471
190	my @dialog = my $label = new CFPlus::UI::Label	472	my @dialog = my $label = new CFPlus::UI::Label
191	max_w => $::WIDTH * 0.4,	473	max_w => $::WIDTH * 0.8,
192	ellipsise => 0,	474	ellipsise => 0,
193	text => $prompt;	475	text => $prompt;
194		476
195	if ($flags & CS_QUERY_YESNO) {	477	if ($flags & CS_QUERY_YESNO) {
196	push @dialog, my $hbox = new CFPlus::UI::HBox;	478	push @dialog, my $hbox = new CFPlus::UI::HBox;
…		…
213	);	495	);
214		496
215	$dialog->grab_focus;	497	$dialog->grab_focus;
216		498
217	} elsif ($flags & CS_QUERY_SINGLECHAR) {	499	} elsif ($flags & CS_QUERY_SINGLECHAR) {
218	$dialog->{tooltip} = "#charcreation_focus";
219
220	if ($prompt =~ /Now choose a character\|Press any key for the next race/i) {	500	if ($prompt =~ /Now choose a character\|Press any key for the next race/i) {
221	$MESSAGE_WINDOW->show;	501	$dialog->{tooltip} = "#charcreation_focus";
222		502
223	unshift @dialog, new CFPlus::UI::Label	503	unshift @dialog, new CFPlus::UI::Label
224	max_w => $::WIDTH * 0.4,	504	max_w => $::WIDTH * 0.8,
225	ellipsise => 0,	505	ellipsise => 0,
226	markup => "\nOr use your keyboard and the text entry below:\n";	506	markup => "\nOr use your keyboard and the text entry below:\n";
227		507
228	unshift @dialog, my $table = new CFPlus::UI::Table;	508	unshift @dialog, my $table = new CFPlus::UI::Table;
229		509
230	$table->add (0, 0, new CFPlus::UI::Button	510	$table->add_at (0, 0, new CFPlus::UI::Button
231	text => "Next Race",	511	text => "Next Race",
232	on_activate => sub {	512	on_activate => sub {
233	$conn->send ("reply n");	513	$conn->send ("reply n");
234	destroy_query_dialog $conn;	514	destroy_query_dialog $conn;
235	0	515	0
236	},	516	},
237	);	517	);
238	$table->add (2, 0, new CFPlus::UI::Button	518	$table->add_at (2, 0, new CFPlus::UI::Button
239	text => "Accept",	519	text => "Accept",
240	on_activate => sub {	520	on_activate => sub {
241	$conn->send ("reply d");	521	$conn->send ("reply d");
242	destroy_query_dialog $conn;	522	destroy_query_dialog $conn;
243	0	523	0
244	},	524	},
245	);	525	);
246		526
		527	if ($conn->{chargen_race_description}) {
		528	unshift @dialog, new CFPlus::UI::Label
		529	max_w => $::WIDTH * 0.8,
		530	ellipsise => 0,
		531	markup => "<span foreground='#ccccff'>$conn->{chargen_race_description}</span>",
		532	;
		533	}
		534
		535	unshift @dialog, new CFPlus::UI::Face
		536	face => $conn->{player}{face},
		537	bg => [.2, .2, .2, 1],
		538	min_w => 64,
		539	min_h => 64,
		540	;
		541
		542	if ($conn->{chargen_race_title}) {
		543	unshift @dialog, new CFPlus::UI::Label
		544	allign => 1,
		545	ellipsise => 0,
		546	markup => "<span foreground='#ccccff' size='large'>Race: $conn->{chargen_race_title}</span>",
		547	;
		548	}
		549
247	unshift @dialog, new CFPlus::UI::Label	550	unshift @dialog, new CFPlus::UI::Label
248	max_w => $::WIDTH * 0.4,	551	max_w => $::WIDTH * 0.4,
249	ellipsise => 0,	552	ellipsise => 0,
250	markup => (CFPlus::Pod::section_label ui => "chargen_race"),	553	markup => (CFPlus::Pod::section_label ui => "chargen_race"),
251	;	554	;
…		…
255	$conn->send ("reply $stat");	558	$conn->send ("reply $stat");
256	destroy_query_dialog $conn;	559	destroy_query_dialog $conn;
257	return;	560	return;
258	}	561	}
259		562
260	$STATS_PAGE->show;
261	$MESSAGE_WINDOW->hide;
262
263	unshift @dialog, new CFPlus::UI::Label	563	unshift @dialog, new CFPlus::UI::Label
264	max_w => $::WIDTH * 0.4,	564	max_w => $::WIDTH * 0.4,
265	ellipsise => 0,	565	ellipsise => 0,
266	markup => "\nOr use your keyboard and the text entry below:\n";	566	markup => "\nOr use your keyboard and the text entry below:\n";
267		567
268	unshift @dialog, my $table = new CFPlus::UI::Table;	568	unshift @dialog, my $table = new CFPlus::UI::Table;
269		569
270	# left: re-roll	570	# left: re-roll
271	$table->add (0, 0, new CFPlus::UI::Button	571	$table->add_at (0, 0, new CFPlus::UI::Button
272	text => "Roll Again",	572	text => "Roll Again",
273	on_activate => sub {	573	on_activate => sub {
274	$conn->send ("reply y");	574	$conn->send ("reply y");
275	destroy_query_dialog $conn;	575	destroy_query_dialog $conn;
276	0	576	0
…		…
290	[6 => "Pow", "Power ($conn->{stat}{+CS_STAT_POW})"],	590	[6 => "Pow", "Power ($conn->{stat}{+CS_STAT_POW})"],
291	[7 => "Cha", "Charisma ($conn->{stat}{+CS_STAT_CHA})"],	591	[7 => "Cha", "Charisma ($conn->{stat}{+CS_STAT_CHA})"],
292	],	592	],
293	), 1 .. 2;	593	), 1 .. 2;
294		594
295	$table->add (2, 0, new CFPlus::UI::Button	595	$table->add_at (2, 0, new CFPlus::UI::Button
296	text => "Swap Stats",	596	text => "Swap Stats",
297	on_activate => sub {	597	on_activate => sub {
298	$conn->{stat_change_with} = $sw2->{value};	598	$conn->{stat_change_with} = $sw2->{value};
299	$conn->send ("reply $sw1->{value}");	599	$conn->send ("reply $sw1->{value}");
300	destroy_query_dialog $conn;	600	destroy_query_dialog $conn;
301	0	601	0
302	},	602	},
303	);	603	);
304	$table->add (2, 1, new CFPlus::UI::HBox children => [$sw1, $sw2]);	604	$table->add_at (2, 1, new CFPlus::UI::HBox children => [$sw1, $sw2]);
305		605
306	# right: accept	606	# right: accept
307	$table->add (4, 0, new CFPlus::UI::Button	607	$table->add_at (4, 0, new CFPlus::UI::Button
308	text => "Accept",	608	text => "Accept",
309	on_activate => sub {	609	on_activate => sub {
310	$conn->send ("reply n");	610	$conn->send ("reply n");
311	$STATS_PAGE->hide;	611	$STATS_PAGE->hide;
312	destroy_query_dialog $conn;	612	destroy_query_dialog $conn;
…		…
375	status "logging in...";	675	status "logging in...";
376		676
377	$LOGIN_BUTTON->set_text ("Logout");	677	$LOGIN_BUTTON->set_text ("Logout");
378	$SETUP_DIALOG->hide;	678	$SETUP_DIALOG->hide;
379		679
380	$PROFILE = $CFG->{profile}{default};
381
382	my $mapsize = List::Util::min 32, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / 32;	680	my $mapsize = List::Util::min 32, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / 32;
383		681
384	my ($host, $port) = split /:/, $PROFILE->{host};	682	my ($host, $port) = split /:/, $PROFILE->{host};
385		683
386	$MAP = new CFPlus::Map $mapsize, $mapsize;	684	$MAP = new CFPlus::Map;
387		685
388	$CONN = eval {	686	$CONN = eval {
389	new CFPlus::Protocol	687	new CFPlus::Protocol
390	host => $host,	688	host => $host,
391	port => $port \|\| 13327,	689	port => $port \|\| 13327,
…		…
395	maph => $mapsize,	693	maph => $mapsize,
396		694
397	client => "cfplus $CFPlus::VERSION $] $^O",	695	client => "cfplus $CFPlus::VERSION $] $^O",
398		696
399	map_widget => $MAPWIDGET,	697	map_widget => $MAPWIDGET,
400	logview => $LOGVIEW,
401	statusbox => $STATUSBOX,	698	statusbox => $STATUSBOX,
402	map => $MAP,	699	map => $MAP,
403	mapmap => $MAPMAP,	700	mapmap => $MAPMAP,
404	query => \&server_query,	701	query => \&server_query,
405		702
406	sound_play => sub {	703	setup_req => {
407	my ($x, $y, $soundnum, $type) = @_;	704	smoothing => $CFG->{map_smoothing}*1,
408
409	$SDL_MIXER
410	or return;
411
412	my $chunk = $AUDIO_CHUNKS{$SOUNDS[$soundnum]}
413	or return;
414
415	$chunk->play;
416	},	705	},
417	};	706	};
418		707
419	if ($CONN) {	708	if ($CONN) {
420	CFPlus::lowdelay fileno $CONN->{fh};	709	CFPlus::lowdelay fileno $CONN->{fh};
…		…
429	sub stop_game {	718	sub stop_game {
430	$LOGIN_BUTTON->set_text ("Login");	719	$LOGIN_BUTTON->set_text ("Login");
431	$SETUP_NOTEBOOK->set_current_page ($SETUP_SERVER);	720	$SETUP_NOTEBOOK->set_current_page ($SETUP_SERVER);
432	$SETUP_DIALOG->show;	721	$SETUP_DIALOG->show;
433	$PL_WINDOW->hide;	722	$PL_WINDOW->hide;
434	$SPELL_PAGE->clear_spells;	723	$SPELL_LIST->clear_spells;
		724	$CFPlus::UI::ROOT->emit (stop_game => ! ! $CONN);
		725
		726	&audio_music_set_ambient ([]);
435		727
436	return unless $CONN;	728	return unless $CONN;
437		729
438	status "connection closed";	730	status "connection closed";
439		731
…		…
447	sub graphics_setup {	739	sub graphics_setup {
448	my $vbox = new CFPlus::UI::VBox;	740	my $vbox = new CFPlus::UI::VBox;
449		741
450	$vbox->add (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]);	742	$vbox->add (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]);
451		743
		744	my $row = 0;
		745
		746	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "OpenGL Info");
		747	$table->add_at (1, $row++, new CFPlus::UI::Label valign => 0, fontsize => 0.8, text => CFPlus::OpenGL::gl_vendor . ", " . CFPlus::OpenGL::gl_version,
		748	can_events => 1,
		749	tooltip => "<tt><span size='8192'>" . (CFPlus::OpenGL::gl_extensions) . "</span></tt>");
		750
		751	my $vidmode_tooltip =
		752	"<b>Video Mode.</b> The video mode to use for fullscreen (and the window size for windowed operation). "
		753	. "The format is <i>width</i> x <i>height</i> \@ <i>depth-per-channel</i> + <i>alpha-channel</i>.";
		754
452	$table->add (0, 0, new CFPlus::UI::Label valign => 0, align => 1, text => "Video Mode");	755	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Video Mode");
453	$table->add (1, 0, my $hbox = new CFPlus::UI::HBox);	756	$table->add_at (1, $row++, my $hbox = new CFPlus::UI::HBox);
454		757
		758	$hbox->add (my $mode_slider = new CFPlus::UI::Slider
455	$hbox->add (my $mode_slider = new CFPlus::UI::Slider force_w => $WIDTH * 0.1, expand => 1, range => [$CFG->{sdl_mode}, 0, $#SDL_MODES, 0, 1]);	759	force_w => $WIDTH * 0.1, expand => 1, range => [$CFG->{sdl_mode}, 0, $#SDL_MODES, 0, 1],
456	$hbox->add (my $mode_label = new CFPlus::UI::Label align => 0, valign => 0, height => 0.8, template => "9999x9999");	760	tooltip => $vidmode_tooltip);
		761	$hbox->add (my $mode_label = new CFPlus::UI::Label
		762	align => 0, valign => 0, height => 0.8, template => "9999x9999@9+9",
		763	can_events => 1, tooltip => $vidmode_tooltip);
457		764
458	$mode_slider->connect (changed => sub {	765	$mode_slider->connect (changed => sub {
459	my ($self, $value) = @_;	766	my ($self, $value) = @_;
460		767
461	$CFG->{sdl_mode} = $self->{range}[0] = $value = int $value;	768	$CFG->{sdl_mode} = $self->{range}[0] = $value = int $value;
462	$mode_label->set_text (sprintf "%dx%d", @{$SDL_MODES[$value]});	769	$mode_label->set_text (sprintf '%dx%d@%d+%d', @{$SDL_MODES[$value]});
463	});	770	});
464	$mode_slider->emit (changed => $mode_slider->{range}[0]);	771	$mode_slider->emit (changed => $mode_slider->{range}[0]);
465		772
466	my $row = 1;
467
468	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fullscreen");	773	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fullscreen");
469	$table->add (1, $row++, $FULLSCREEN_ENABLE = new CFPlus::UI::CheckBox	774	$table->add_at (1, $row++, $FULLSCREEN_ENABLE = new CFPlus::UI::CheckBox
470	state => $CFG->{fullscreen},	775	state => $CFG->{fullscreen},
471	tooltip => "Bring the client into fullscreen mode.",	776	tooltip => "Bring the client into fullscreen mode.",
472	on_changed => sub { my ($self, $value) = @_; $CFG->{fullscreen} = $value; 0 }	777	on_changed => sub { my ($self, $value) = @_; $CFG->{fullscreen} = $value; 0 }
473	);	778	);
474		779
475	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fast & Ugly");	780	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fast & Ugly");
476	$table->add (1, $row++, new CFPlus::UI::CheckBox	781	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
477	state => $CFG->{fast},	782	state => $CFG->{fast},
478	tooltip => "Lower the visual quality considerably to speed up rendering.",	783	tooltip => "Lower the visual quality considerably to speed up rendering.",
479	on_changed => sub { my ($self, $value) = @_; $CFG->{fast} = $value; 0 }	784	on_changed => sub { my ($self, $value) = @_; $CFG->{fast} = $value; 0 }
480	);	785	);
481		786
		787	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "GUI Fontsize");
		788	$table->add_at (1, $row++, new CFPlus::UI::Slider
		789	range => [$CFG->{gui_fontsize}, 0.5, 2, 0, 0.1],
		790	tooltip => "The base font size used by most GUI elements that do not have their own setting.",
		791	on_changed => sub { $CFG->{gui_fontsize} = $_[1]; 0 },
		792	);
		793
		794	$table->add_at (1, $row++, new CFPlus::UI::Button
		795	expand => 1, align => 0, text => "Apply",
		796	tooltip => "Apply the video settings above.",
		797	on_activate => sub {
		798	video_shutdown ();
		799	video_init ();
		800	0
		801	}
		802	);
		803
482	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Map Scale");	804	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Map Scale");
483	$table->add (1, $row++, new CFPlus::UI::Slider	805	$table->add_at (1, $row++, new CFPlus::UI::Slider
484	range => [(log $CFG->{map_scale}) / (log 2), -3, 1, 0, 1],	806	range => [(log $CFG->{map_scale}) / (log 2), -3, 1, 0, 1],
485	tooltip => "Enlarge or shrink the displayed map. Changes are instant.",	807	tooltip => "Enlarge or shrink the displayed map. Changes are instant.",
486	on_changed => sub { my ($self, $value) = @_; $CFG->{map_scale} = 2 ** $value; 0 }	808	on_changed => sub { my ($self, $value) = @_; $CFG->{map_scale} = 2 ** $value; 0 }
487	);	809	);
488		810
		811	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Map Smoothing");
		812	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
		813	state => $CFG->{map_smoothing},
		814	tooltip => "<b>Map Smoothing</b> tries to make tile borders less square. "
		815	. "This increases load on the graphics subsystem and works only with 2.x servers. "
		816	. "Changes take effect at next connection only.",
		817	on_changed => sub { my ($self, $value) = @_; $CFG->{map_smoothing} = $value; 0 }
		818	);
		819
489	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fog of War");	820	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fog of War");
490	$table->add (1, $row++, new CFPlus::UI::CheckBox	821	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
491	state => $CFG->{fow_enable},	822	state => $CFG->{fow_enable},
492	tooltip => "<b>Fog-of-War</b> marks areas that cannot be seen by the player. Changes are instant.",	823	tooltip => "<b>Fog-of-War</b> marks areas that cannot be seen by the player. Changes are instant.",
493	on_changed => sub { my ($self, $value) = @_; $CFG->{fow_enable} = $value; 0 }	824	on_changed => sub { my ($self, $value) = @_; $CFG->{fow_enable} = $value; 0 }
494	);	825	);
495		826
496	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "FoW Intensity");	827	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "FoW Intensity");
497	$table->add (1, $row++, new CFPlus::UI::Slider	828	$table->add_at (1, $row++, new CFPlus::UI::Slider
498	range => [$CFG->{fow_intensity}, 0, 1, 0, 1 / 256],	829	range => [$CFG->{fow_intensity}, 0, 1, 0, 1 / 256],
499	tooltip => "<b>Fog of War Lightness.</b> The higher the intensity, the lighter the Fog-of-War color. Changes are instant.",	830	tooltip => "<b>Fog of War Lightness.</b> The higher the intensity, the lighter the Fog-of-War color. Changes are instant.",
500	on_changed => sub { my ($self, $value) = @_; $CFG->{fow_intensity} = $value; 0 }	831	on_changed => sub { my ($self, $value) = @_; $CFG->{fow_intensity} = $value; 0 }
501	);	832	);
502		833
503	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "FoW Smooth");
504	$table->add (1, $row++, new CFPlus::UI::CheckBox
505	state => $CFG->{fow_smooth},
506	tooltip => "Smooth the Fog-of-War a bit to make it more realistic. Changes are instant.",
507	on_changed => sub {
508	my ($self, $value) = @_;
509	$CFG->{fow_smooth} = $value;
510	status "Fog of War smoothing requires OpenGL 1.2 or higher" if $CFPlus::OpenGL::GL_VERSION < 1.2;
511	0
512	}
513	);
514
515	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "GUI Fontsize");
516	$table->add (1, $row++, new CFPlus::UI::Slider
517	range => [$CFG->{gui_fontsize}, 0.5, 2, 0, 0.1],
518	tooltip => "The base font size used by most GUI elements that do not have their own setting.",
519	on_changed => sub { $CFG->{gui_fontsize} = $_[1]; 0 },
520	);
521
522	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Message Fontsize");	834	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Message Fontsize");
523	$table->add (1, $row++, new CFPlus::UI::Slider	835	$table->add_at (1, $row++, new CFPlus::UI::Slider
524	range => [$CFG->{log_fontsize}, 0.5, 2, 0, 0.1],	836	range => [$CFG->{log_fontsize}, 0.5, 2, 0, 0.1],
525	tooltip => "The font size used by the <b>message/server log</b> window only. Changes are instant.",	837	tooltip => "The font size used by the <b>message/server log</b> window only. Changes are instant.",
526	on_changed => sub { $LOGVIEW->set_fontsize ($CFG->{log_fontsize} = $_[1]); 0 },	838	on_changed => sub { $MESSAGE_WINDOW->set_fontsize ($CFG->{log_fontsize} = $_[1]); 0 },
527	);	839	);
528		840
529	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Gauge fontsize");	841	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Gauge fontsize");
530	$table->add (1, $row++, new CFPlus::UI::Slider	842	$table->add_at (1, $row++, new CFPlus::UI::Slider
531	range => [$CFG->{gauge_fontsize}, 0.5, 2, 0, 0.1],	843	range => [$CFG->{gauge_fontsize}, 0.5, 2, 0, 0.1],
532	tooltip => "Adjusts the fontsize of the gauges at the bottom right. Changes are instant.",	844	tooltip => "Adjusts the fontsize of the gauges at the bottom right. Changes are instant.",
533	on_changed => sub {	845	on_changed => sub {
534	$CFG->{gauge_fontsize} = $_[1];	846	$CFG->{gauge_fontsize} = $_[1];
535	&set_gauge_window_fontsize;	847	&set_gauge_window_fontsize;
536	0	848	0
537	}	849	}
538	);	850	);
539		851
540	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Gauge size");	852	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Gauge size");
541	$table->add (1, $row++, new CFPlus::UI::Slider	853	$table->add_at (1, $row++, new CFPlus::UI::Slider
542	range => [$CFG->{gauge_size}, 0.2, 0.8],	854	range => [$CFG->{gauge_size}, 0.2, 0.8],
543	tooltip => "Adjust the size of the stats gauges at the bottom right. Changes are instant.",	855	tooltip => "Adjust the size of the stats gauges at the bottom right. Changes are instant.",
544	on_changed => sub {	856	on_changed => sub {
545	$CFG->{gauge_size} = $_[1];	857	$CFG->{gauge_size} = $_[1];
546	$GAUGES->{win}->set_size ($WIDTH, int $HEIGHT * $CFG->{gauge_size});	858	$GAUGES->{win}->set_size ($WIDTH, int $HEIGHT * $CFG->{gauge_size});
547	0	859	0
548	}	860	}
549	);	861	);
550		862
551	$table->add (1, $row++, new CFPlus::UI::Button
552	expand => 1, align => 0, text => "Apply",
553	tooltip => "Apply the video settings",
554	on_activate => sub {
555	video_shutdown ();
556	video_init ();
557	0
558	}
559	);
560
561	$vbox	863	$vbox
562	}	864	}
563		865
564	sub audio_setup {	866	sub audio_setup {
565	my $vbox = new CFPlus::UI::VBox;	867	my $vbox = new CFPlus::UI::VBox;
566		868
567	$vbox->add (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]);	869	$vbox->add (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 0, 1]);
568		870
569	my $row = 0;	871	my $row = 0;
570		872
571	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Audio Enable");	873	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Audio Enable");
572	$table->add (1, $row++, new CFPlus::UI::CheckBox	874	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
573	state => $CFG->{audio_enable},	875	state => $CFG->{audio_enable},
574	tooltip => "<b>Master Audio Enable.</b> If enabled, sound effects and music will be played. If disabled, no audio will be used and the soundcard will not be opened.",	876	tooltip => "<b>Master Audio Enable.</b> If enabled, sound effects and music will be played. If disabled, no audio will be used and the soundcard will not be opened.",
575	on_changed => sub { $CFG->{audio_enable} = $_[1]; 0 }	877	on_changed => sub { $CFG->{audio_enable} = $_[1]; 0 }
576	);	878	);
577	# $table->add (0, 9, new CFPlus::UI::Label valign => 0, align => 1, text => "Effects Volume");	879	# $table->add_at (0, 9, new CFPlus::UI::Label valign => 0, align => 1, text => "Effects Volume");
578	# $table->add (1, 8, new CFPlus::UI::Slider range => [$CFG->{effects_volume}, 0, 128, 1], on_changed => sub {	880	# $table->add_at (1, 8, new CFPlus::UI::Slider range => [$CFG->{effects_volume}, 0, 128, 1], on_changed => sub {
579	# $CFG->{effects_volume} = $_[1];	881	# $CFG->{effects_volume} = $_[1];
580	# });	882	# });
		883
		884	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Effects Volume");
		885	$table->add_at (1, $row, new CFPlus::UI::CheckBox
		886	expand => 1, state => $CFG->{effects_enable},
		887	tooltip => "If enabled, sound effects are enabled. If disabled, no sound effects will be played.",
		888	on_changed => sub { $CFG->{effects_enable} = $_[1]; 0 }
		889	);
		890	$table->add_at (2, $row++, new CFPlus::UI::Slider
		891	expand => 1, range => [$CFG->{effects_volume}, 0, 1, 0, 1/128],
		892	tooltip => "The relative volume of sound effects. Best audio quality is achieved if this "
		893	. "is set highest and you use your operating system volume setting. Changes are instant.",
		894	on_changed => sub { $CFG->{effects_volume} = $_[1]; 0 }
		895	);
		896
581	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Background Music");	897	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Background Music");
582	$table->add (1, $row++, my $hbox = new CFPlus::UI::HBox);
583	$hbox->add (new CFPlus::UI::CheckBox	898	$table->add_at (1, $row, new CFPlus::UI::CheckBox
584	expand => 1, state => $CFG->{bgm_enable},	899	expand => 1, state => $CFG->{bgm_enable},
585	tooltip => "If enabled, playing of background music is enabled. If disabled, no background music will be played.",	900	tooltip => "If enabled, playing of background music is enabled. If disabled, no background music will be played.",
586	on_changed => sub { $CFG->{bgm_enable} = $_[1]; 0 }	901	on_changed => sub { $CFG->{bgm_enable} = $_[1]; 0 }
587	);	902	);
588	$hbox->add (new CFPlus::UI::Slider	903	$table->add_at (2, $row++, new CFPlus::UI::Slider
589	expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0, 1/128],	904	expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0, 1/128],
590	tooltip => "The volume of the background music. Changes are instant.",	905	tooltip => "The volume of the background music. Changes are instant.",
591	on_changed => sub { $CFG->{bgm_volume} = $_[1]; CFPlus::MixMusic::volume $_[1] * 128; 0 }	906	on_changed => sub { $CFG->{bgm_volume} = $_[1]; audio_music_update_volume; 0 }
592	);	907	);
593		908
594	$table->add (1, $row++, new CFPlus::UI::Button	909	$table->add_at (1, $row++, new CFPlus::UI::Button
595	expand => 1, align => 0, text => "Apply",	910	c_colspan => 2, expand => 1, align => 0, text => "Apply",
596	tooltip => "Apply the audio settings",	911	tooltip => "Apply the audio settings",
597	on_activate => sub {	912	on_activate => sub {
598	audio_shutdown ();	913	audio_shutdown ();
599	audio_init ();	914	audio_init ();
600	0	915	0
…		…
658	}	973	}
659		974
660	sub debug_setup {	975	sub debug_setup {
661	my $table = new CFPlus::UI::Table;	976	my $table = new CFPlus::UI::Table;
662		977
663	$table->add (0, 0, new CFPlus::UI::Label text => "Widget Borders");	978	$table->add_at (0, 0, new CFPlus::UI::Label text => "Widget Borders");
664	$table->add (1, 0, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 1; 0 });	979	$table->add_at (1, 0, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 1; 0 });
665	$table->add (0, 1, new CFPlus::UI::Label text => "Tooltip Widget Info");	980	$table->add_at (0, 1, new CFPlus::UI::Label text => "Tooltip Widget Info");
666	$table->add (1, 1, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 2; 0 });	981	$table->add_at (1, 1, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 2; 0 });
667	$table->add (0, 2, new CFPlus::UI::Label text => "Show FPS");	982	$table->add_at (0, 2, new CFPlus::UI::Label text => "Show FPS");
668	$table->add (1, 2, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 4; 0 });	983	$table->add_at (1, 2, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 4; 0 });
669	$table->add (0, 3, new CFPlus::UI::Label text => "Suppress Tooltips");	984	$table->add_at (0, 3, new CFPlus::UI::Label text => "Suppress Tooltips");
670	$table->add (1, 3, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 8; 0 });	985	$table->add_at (1, 3, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 8; 0 });
		986	$table->add_at (0, 4, new CFPlus::UI::Button text => "die on click(tm)", on_activate => sub { &CFPlus::debug() } );
671		987
672	my @default_smooth = (0.05, 0.13, 0.05, 0.13, 0.30, 0.13, 0.05, 0.13, 0.05);	988	$table->add_at (0, 5, new CFPlus::UI::TextEdit text => "line1\0152\0153");#d#
673		989
674	for my $x (0..2) {	990	$table->add_at (7,7, my $t = new CFPlus::UI::Table expand => 0);
675	for my $y (0 .. 2) {	991	$t->add_at (0,0, new CFPlus::UI::Label text => "a a a a", c_rowspan => 1, c_colspan => 2);
676	$table->add ($x + 3, $y,	992	$t->add_at (2,0, new CFPlus::UI::Label text => "b\nb", c_rowspan => 2, c_colspan => 1);
677	new CFPlus::UI::Entry	993	$t->add_at (1,2, new CFPlus::UI::Label text => "c c c c", c_rowspan => 1, c_colspan => 2);
678	text => $default_smooth[$x * 3 + $y],	994	$t->add_at (0,1, new CFPlus::UI::Label text => "d\nd", c_rowspan => 2, c_colspan => 1);
679	on_changed => sub { $MAP->{smooth_matrix}[$x * 3 + $y] = $_[1] if $MAP; 0 },	995	$t->add_at (1,1, new CFPlus::UI::Label text => "e");
680	);	996
681	}	997	$table->add_at (7, 6, my $c = new CFPlus::UI::Canvas);
		998
		999	$c->add_items ({
		1000	type => "line_loop",
		1001	color => [0, 1, 0],
		1002	width => 9,
		1003	coord_mode => "abs",
		1004	coord => [[10, 5], [5, 50], [20, 5], [5, 60]],
682	}	1005	});
683		1006
		1007	$c->add_items ({
		1008	type => "lines",
		1009	color => [1, 1, 0],
		1010	width => 2,
		1011	coord_mode => "rel",
		1012	coord => [[0,0], [1,1], [1,0], [0,1]],
		1013	});
		1014
		1015	$c->add_items ({
		1016	type => "polygon",
		1017	color => [0, 0.43, 0],
		1018	width => 2,
		1019	coord_mode => "rel",
		1020	coord => [[0,0.2], [1,.4], [1,.6], [0,.8]],
		1021	});
684		1022
685	$table	1023	$table
686	}	1024	}
687		1025
688	sub stats_window {	1026	sub stats_window {
…		…
736	[2, 4, st_spd => "Spd", 10.54],	1074	[2, 4, st_spd => "Spd", 10.54],
737	[2, 5, st_wspd => "WSp", 10.54],	1075	[2, 5, st_wspd => "WSp", 10.54],
738	) {	1076	) {
739	my ($col, $row, $id, $label, $template) = @$_;	1077	my ($col, $row, $id, $label, $template) = @$_;
740		1078
741	$tbl->add ($col , $row, $STATWIDS->{$id} = new CFPlus::UI::Label	1079	$tbl->add_at ($col , $row, $STATWIDS->{$id} = new CFPlus::UI::Label
742	font => $FONT_FIXED, can_hover => 1, can_events => 1, valign => 0,	1080	font => $FONT_FIXED, can_hover => 1, can_events => 1, valign => 0,
743	align => +1, template => $template, tooltip => "#stat_$label");	1081	align => +1, template => $template, tooltip => "#stat_$label");
744	$tbl->add ($col + 1, $row, $STATWIDS->{"$id\_lbl"} = new CFPlus::UI::Label	1082	$tbl->add_at ($col + 1, $row, $STATWIDS->{"$id\_lbl"} = new CFPlus::UI::Label
745	font => $FONT_FIXED, can_hover => 1, can_events => 1, fg => $color2, valign => 0,	1083	font => $FONT_FIXED, can_hover => 1, can_events => 1, fg => $color2, valign => 0,
746	align => -1, text => $label, tooltip => "#stat_$label");	1084	align => -1, text => $label, tooltip => "#stat_$label");
747	}	1085	}
748		1086
749	$vb->add (new CFPlus::UI::FancyFrame	1087	$vb->add (new CFPlus::UI::FancyFrame
…		…
790	cold => ["Cold",	1128	cold => ["Cold",
791	"<b>Cold</b> (this is your resistance against cold spells like icestorm, snowstorm, ...)"],	1129	"<b>Cold</b> (this is your resistance against cold spells like icestorm, snowstorm, ...)"],
792	ghit => ["Ghost hit",	1130	ghit => ["Ghost hit",
793	"<b>Ghost hit</b> (special attack used by ghosts and ghost-like beings)"],	1131	"<b>Ghost hit</b> (special attack used by ghosts and ghost-like beings)"],
794	);	1132	);
		1133
795	for (qw/slow holyw conf fire depl magic	1134	for (qw/slow holyw conf fire depl magic
796	drain acid pois para deat phys	1135	drain acid pois para deat phys
797	blind fear tund elec cold ghit/)	1136	blind fear tund elec cold ghit/)
798	{	1137	{
799	$tbl2->add ($col, $row,	1138	$tbl2->add_at ($col, $row,
800	$STATWIDS->{"res_$_"} =	1139	$STATWIDS->{"res_$_"} =
801	new CFPlus::UI::Label	1140	new CFPlus::UI::Label
802	font => $FONT_FIXED,	1141	font => $FONT_FIXED,
803	template => "-100%",	1142	template => "-100%",
804	align => +1,	1143	align => +1,
805	valign => 0,	1144	valign => 0,
806	can_events => 1,	1145	can_events => 1,
807	can_hover => 1,	1146	can_hover => 1,
808	tooltip => $resist_names{$_}->[1],	1147	tooltip => $resist_names{$_}->[1],
809	);	1148	);
810	$tbl2->add ($col + 1, $row, new CFPlus::UI::Image	1149	$tbl2->add_at ($col + 1, $row, new CFPlus::UI::Image
811	font => $FONT_FIXED,	1150	font => $FONT_FIXED,
812	can_hover => 1,	1151	can_hover => 1,
813	can_events => 1,	1152	can_events => 1,
814	path => "ui/resist/resist_$_.png",	1153	path => "ui/resist/resist_$_.png",
815	tooltip => $resist_names{$_}->[1],	1154	tooltip => $resist_names{$_}->[1],
816	);	1155	);
817	$tbl2->add ($col + 2, $row, new CFPlus::UI::Label	1156	$tbl2->add_at ($col + 2, $row, new CFPlus::UI::Label
818	text => $resist_names{$_}->[0],	1157	text => $resist_names{$_}->[0],
819	font => $FONT_FIXED,	1158	font => $FONT_FIXED,
820	can_hover => 1,	1159	can_hover => 1,
821	can_events => 1,	1160	can_events => 1,
822	tooltip => $resist_names{$_}->[1],	1161	tooltip => $resist_names{$_}->[1],
…		…
855	return if $METASERVER_ATIME > time;	1194	return if $METASERVER_ATIME > time;
856	$METASERVER_ATIME = time + 60;	1195	$METASERVER_ATIME = time + 60;
857		1196
858	my $table = $METASERVER->{table};	1197	my $table = $METASERVER->{table};
859	$table->clear;	1198	$table->clear;
860	$table->add (0, 0, my $label = new CFPlus::UI::Label max_w => $WIDTH * 0.8, text => "fetching server list...");	1199	$table->add_at (0, 0, my $label = new CFPlus::UI::Label max_w => $WIDTH * 0.8, text => "fetching server list...");
861		1200
862	my $buf;	1201	my $ok = 0;
863		1202
864	my $fh = new IO::Socket::INET PeerHost => $META_SERVER, Blocking => 0;	1203	CFPlus::background {
		1204	my $ua = CFPlus::lwp_useragent;
865		1205
866	unless ($fh) {	1206	CFPlus::background_msg CFPlus::from_json +(CFPlus::lwp_check $ua->get ($META_SERVER))->decoded_content;
867	$label->set_text ("unable to contact metaserver: $!");	1207	} sub {
868	return;	1208	my ($msg) = @_;
869	}	1209	if ($msg) {
870
871	Event->io (fd => $fh, poll => 'r', cb => sub {
872	my $res = sysread $fh, $buf, 8192, length $buf;
873
874	if (!defined $res) {
875	$_[0]->w->cancel;
876	$label->set_text ("error while retrieving server list: $!");
877	} elsif ($res == 0) {
878	$_[0]->w->cancel;
879	status "server list retrieved";
880
881	utf8::decode $buf if utf8::valid $buf;
882
883	$table->clear;	1210	$table->clear;
884		1211
885	my @tip = (	1212	my @tip = (
886	"The current number of users logged in on the server.",	1213	"The current number of users logged in on the server.",
887	"The hostname of the server.",	1214	"The hostname of the server.",
888	"The time this server has been running without being restarted.",	1215	"The time this server has been running without being restarted.",
889	"The server software version - a '+' indicates a Crossfire+ server.",	1216	"The server software version - a '+' indicates a Crossfire+ server.",
890	"Short information about this server provided by its admins.",	1217	"Short information about this server provided by its admins.",
891	);	1218	);
892	my @col = qw(#Users Host Uptime Version Description);	1219	my @col = qw(#Users Host Uptime Version Description);
893	$table->add ($_, 0, new CFPlus::UI::Label	1220	$table->add_at ($_, 0, new CFPlus::UI::Label
894	can_hover => 1, can_events => 1,	1221	can_hover => 1, can_events => 1,
895	align => 0, fg => [1, 1, 0],	1222	align => 0, fg => [1, 1, 0],
896	text => $col[$_], tooltip => $tip[$_])	1223	text => $col[$_], tooltip => $tip[$_])
897	for 0 .. $#col;	1224	for 0 .. $#col;
898		1225
899	my @align = qw(1 0 1 1 -1);	1226	my @align = qw(1 0 1 1 -1);
900		1227
901	my $y = 0;	1228	my $y = 0;
902	for my $m (sort { $b->[3] <=> $a->[3] } map [split /\\|/], split /\015?\012/, $buf) {	1229	for my $m (@{ $msg->{servers} }) {
903	my ($ip, $last, $host, $users, $version, $desc, $ibytes, $obytes, $uptime) = @$m;	1230	my ($ip, $last, $host, $users, $version, $desc, $ibytes, $obytes, $uptime, $highlight) =
		1231	@$m{qw(ip age hostname users version description ibytes obytes uptime highlight)};
904		1232
905	for ($desc) {	1233	for ($desc) {
906	s/<br>/\n/gi;	1234	s/<br>/\n/gi;
907	s/<li>/\n· /gi;	1235	s/<li>/\n· /gi;
908	s/<.*?>//sgi;	1236	s/<.*?>//sgi;
909	s/&/&/g;	1237	s/&/&/g;
910	s/</</g;	1238	s/</</g;
911	s/>/>/g;	1239	s/>/>/g;
912	}	1240	}
913		1241
914	$uptime = sprintf "%dd %02d:%02d:%02d",	1242	$uptime = sprintf "%dd %02d:%02d:%02d",
915	(int $m->[8] / 86400),	1243	(int $uptime / 86400),
916	(int $m->[8] / 3600) % 24,	1244	(int $uptime / 3600) % 24,
917	(int $m->[8] / 60) % 60,	1245	(int $uptime / 60) % 60,
918	$m->[8] % 60;	1246	$uptime % 60;
919		1247
920	$m = [$users, $host, $uptime, $version, $desc];	1248	$m = [$users, $host, $uptime, $version, $desc];
921		1249
922	$y++;	1250	$y++;
923		1251
924	$table->add (scalar @$m, $y, new CFPlus::UI::VBox children => [	1252	$table->add_at (scalar @$m, $y, new CFPlus::UI::VBox children => [
925	(new CFPlus::UI::Button	1253	(new CFPlus::UI::Button
926	text => "Use",	1254	text => "Use",
927	tooltip => "Put this server into the <b>Host:Port</b> field",	1255	tooltip => "Put this server into the <b>Host:Port</b> field",
928	on_activate => sub {	1256	on_activate => sub {
929	$HOST_ENTRY->set_text ($CFG->{profile}{default}{host} = $host);	1257	$HOST_ENTRY->set_text ($CFG->{profile}{default}{host} = $host);
…		…
932	},	1260	},
933	),	1261	),
934	(new CFPlus::UI::Empty expand => 1),	1262	(new CFPlus::UI::Empty expand => 1),
935	]);	1263	]);
936		1264
937	$table->add ($_, $y, new CFPlus::UI::Label	1265	$table->add_at ($_, $y, new CFPlus::UI::Label
		1266	max_w => $::WIDTH * 0.4,
938	ellipsise => 0,	1267	ellipsise => 0,
939	align => $align[$_],	1268	align => $align[$_],
940	text => $m->[$_],	1269	text => $m->[$_],
941	tooltip => $tip[$_],	1270	tooltip => $tip[$_],
		1271	fg => ($highlight ? [1, 1, 1] : [.7, .7, .7]),
942	can_hover => 1,	1272	can_hover => 1,
943	can_events => 1,	1273	can_events => 1,
944	fontsize => 0.8)	1274	fontsize => 0.8)
945	for 0 .. $#$m;	1275	for 0 .. $#$m;
946	}	1276	}
		1277	} else {
		1278	$ok or $label->set_text ("error while contacting metaserver");
947	}	1279	}
948	});	1280	};
		1281
949	}	1282	}
950		1283
951	sub metaserver_dialog {	1284	sub metaserver_dialog {
952	my $vbox = new CFPlus::UI::VBox;	1285	my $vbox = new CFPlus::UI::VBox;
953	my $table = new CFPlus::UI::Table;	1286	my $table = new CFPlus::UI::Table;
…		…
957	title => "Server List",	1290	title => "Server List",
958	name => 'metaserver_dialog',	1291	name => 'metaserver_dialog',
959	x => 'center',	1292	x => 'center',
960	y => 'center',	1293	y => 'center',
961	z => 3,	1294	z => 3,
		1295	force_w => $::WIDTH * 0.9,
962	force_h => $::HEIGHT * 0.4,	1296	force_h => $::HEIGHT * 0.7,
963	child => $vbox,	1297	child => $vbox,
964	has_close_button => 1,	1298	has_close_button => 1,
965	table => $table,	1299	table => $table,
966	on_visibility_change => sub {	1300	on_visibility_change => sub {
967	update_metaserver ($_[0]) if $_[1];	1301	update_metaserver ($_[0]) if $_[1];
…		…
977		1311
978	$vbox->add (new CFPlus::UI::FancyFrame	1312	$vbox->add (new CFPlus::UI::FancyFrame
979	label => "Connection Settings",	1313	label => "Connection Settings",
980	child => (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]),	1314	child => (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]),
981	);	1315	);
982	$table->add (0, 2, new CFPlus::UI::Label valign => 0, align => 1, text => "Host:Port");	1316	$table->add_at (0, 2, new CFPlus::UI::Label valign => 0, align => 1, text => "Host:Port");
983		1317
984	{	1318	{
985	$table->add (1, 2, my $vbox = new CFPlus::UI::VBox);	1319	$table->add_at (1, 2, my $vbox = new CFPlus::UI::VBox);
986		1320
987	$vbox->add (	1321	$vbox->add (
988	$HOST_ENTRY = new CFPlus::UI::Entry	1322	$HOST_ENTRY = new CFPlus::UI::Entry
989	expand => 1,	1323	expand => 1,
990	text => $CFG->{profile}{default}{host},	1324	text => $CFG->{profile}{default}{host},
991	tooltip => "The hostname or ip address of the Crossfire(+) server to connect to",	1325	tooltip => "The hostname or ip address of the Crossfire(+) server to connect to",
992	on_changed => sub {	1326	on_changed => sub {
993	my ($self, $value) = @_;	1327	my ($self, $value) = @_;
994	$CFG->{profile}{default}{host} = $value;	1328	$CFG->{profile}{default}{host} = $value;
995	0	1329	1
996	}	1330	}
997	);	1331	);
998		1332
999	$vbox->add (new CFPlus::UI::Button	1333	$vbox->add (new CFPlus::UI::Button
1000	expand => 1,	1334	expand => 1,
1001	text => "Server List",	1335	text => "Server List",
1002	other => $METASERVER,	1336	other => $METASERVER,
1003	tooltip => "Show a list of available crossfire servers",	1337	tooltip => "Show a list of available crossfire servers",
1004	on_activate => sub { $METASERVER->toggle_visibility; 0 },	1338	on_activate => sub { $METASERVER->toggle_visibility; 0 },
1005	on_visibility_change => sub { $METASERVER->hide unless $_[1]; 0 },	1339	on_visibility_change => sub { $METASERVER->hide unless $_[1]; 1 },
1006	);	1340	);
1007	}	1341	}
1008		1342
1009	$table->add (0, 4, new CFPlus::UI::Label valign => 0, align => 1, text => "Username");	1343	$table->add_at (0, 4, new CFPlus::UI::Label valign => 0, align => 1, text => "Username");
1010	$table->add (1, 4, new CFPlus::UI::Entry	1344	$table->add_at (1, 4, new CFPlus::UI::Entry
1011	text => $CFG->{profile}{default}{user},	1345	text => $CFG->{profile}{default}{user},
1012	tooltip => "The name of your character on the server",	1346	tooltip => "The name of your character on the server",
1013	on_changed => sub { my ($self, $value) = @_; $CFG->{profile}{default}{user} = $value }	1347	on_changed => sub { my ($self, $value) = @_; $CFG->{profile}{default}{user} = $value; 1 }
1014	);	1348	);
1015		1349
1016	$table->add (0, 5, new CFPlus::UI::Label valign => 0, align => 1, text => "Password");	1350	$table->add_at (0, 5, new CFPlus::UI::Label valign => 0, align => 1, text => "Password");
1017	$table->add (1, 5, new CFPlus::UI::Entry	1351	$table->add_at (1, 5, new CFPlus::UI::Entry
1018	text => $CFG->{profile}{default}{password},	1352	text => $CFG->{profile}{default}{password},
1019	hidden => 1,	1353	hidden => 1,
1020	tooltip => "The password for your character",	1354	tooltip => "The password for your character",
1021	on_changed => sub { my ($self, $value) = @_; $CFG->{profile}{default}{password} = $value }	1355	on_changed => sub { my ($self, $value) = @_; $CFG->{profile}{default}{password} = $value; 1 }
1022	);	1356	);
1023		1357
1024	$table->add (0, 7, new CFPlus::UI::Label valign => 0, align => 1, text => "Map Size");	1358	$table->add_at (0, 7, new CFPlus::UI::Label valign => 0, align => 1, text => "Map Size");
1025	$table->add (1, 7, new CFPlus::UI::Slider	1359	$table->add_at (1, 7, new CFPlus::UI::Slider
1026	force_w => 100,	1360	force_w => 100,
1027	range => [$CFG->{mapsize}, 10, 100, 0, 1],	1361	range => [$CFG->{mapsize}, 10, 100, 0, 1],
1028	tooltip => "This is the size of the portion of the map update the server sends you. "	1362	tooltip => "This is the size of the portion of the map update the server sends you. "
1029	. "If you set this to a high value you will be able to see further, "	1363	. "If you set this to a high value you will be able to see further, "
1030	. "but you also increase bandwidth requirements and latency. "	1364	. "but you also increase bandwidth requirements and latency. "
1031	. "This option is only used once at log-in.",	1365	. "This option is only used once at log-in.",
1032	on_changed => sub { my ($self, $value) = @_; $CFG->{mapsize} = $self->{range}[0] = $value = int $value; 0 },	1366	on_changed => sub { my ($self, $value) = @_; $CFG->{mapsize} = $self->{range}[0] = $value = int $value; 1 },
1033	);	1367	);
1034		1368
1035	$table->add (0, 8, new CFPlus::UI::Label valign => 0, align => 1, text => "Face Prefetch");	1369	$table->add_at (0, 8, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Rate");
1036	$table->add (1, 8, new CFPlus::UI::CheckBox	1370	$table->add_at (1, 8, new CFPlus::UI::Entry
1037	state => $CFG->{face_prefetch},	1371	text => $CFG->{output_rate},
1038	tooltip => "<b>Background Image Prefetch</b>\n\n"	1372	tooltip => "The maximum bandwidth in bytes per second that the server should not exceed "
1039	. "If enabled, the client automatically pre-fetches images from the server. "	1373	. "when sending data. When 0 or unset, the server "
1040	. "This might increase or create lag, but increases the chances "	1374	. "default will be used, which is usually around 100kb/s. Most servers will "
1041	. "of faces being ready for display when you encounter them. "	1375	. "dynamically find an optimal rate, so adjust this only when necessary.",
1042	. "It also uses up server bandwidth on every connect, "
1043	. "so only set it if you really need to prefetch images. "
1044	. "This option can be set and unset any time.",
1045	on_changed => sub { $CFG->{face_prefetch} = $_[1]; 0 },	1376	on_changed => sub { $CFG->{output_rate} = $_[1]; 1 },
1046	);	1377	);
1047		1378
1048	$table->add (0, 9, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Count");	1379	$table->add_at (0, 9, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Count");
1049	$table->add (1, 9, new CFPlus::UI::Entry	1380	$table->add_at (1, 9, new CFPlus::UI::Entry
1050	text => $CFG->{output_count},	1381	text => $CFG->{output_count},
1051	tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.",	1382	tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.",
1052	on_changed => sub { $CFG->{output_count} = $_[1]; 0 },	1383	on_changed => sub { $CFG->{output_count} = $_[1]; 1 },
1053	);	1384	);
1054		1385
1055	$table->add (0, 10, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Sync");	1386	$table->add_at (0, 10, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Sync");
1056	$table->add (1, 10, new CFPlus::UI::Entry	1387	$table->add_at (1, 10, new CFPlus::UI::Entry
1057	text => $CFG->{output_sync},	1388	text => $CFG->{output_sync},
1058	tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.",	1389	tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.",
1059	on_changed => sub { $CFG->{output_sync} = $_[1]; 0 },	1390	on_changed => sub { $CFG->{output_sync} = $_[1]; 1 },
1060	);	1391	);
1061		1392
1062	$table->add (1, 11, $LOGIN_BUTTON = new CFPlus::UI::Button	1393	$table->add_at (1, 11, $LOGIN_BUTTON = new CFPlus::UI::Button
1063	expand => 1,	1394	expand => 1,
1064	align => 0,	1395	align => 0,
1065	text => "Login",	1396	text => "Login",
1066	on_activate => sub {	1397	on_activate => sub {
1067	$CONN ? stop_game	1398	$CONN ? stop_game
1068	: start_game;	1399	: start_game;
1069	0	1400	1
1070	},	1401	},
1071	);	1402	);
1072		1403
1073	$table->add (0, 12, new CFPlus::UI::Label valign => 0, align => 1, text => "Chat Command");	1404	$vbox->add (new CFPlus::UI::FancyFrame
1074	$table->add (1, 12, my $saycmd = new CFPlus::UI::Entry	1405	label => "Server Info",
1075	text => $CFG->{say_command},	1406	child => ($SERVER_INFO = new CFPlus::UI::Label ellipsise => 0),
1076	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. "
1077	. "Usually you want to enter something like 'say' or 'shout' or 'gsay' here. "
1078	. "But you could also set it to <b>tell <i>playername</i></b> to only chat with that user.",
1079	on_changed => sub {
1080	my ($self, $value) = @_;
1081	$CFG->{say_command} = $value;
1082	0
1083	}
1084	);	1407	);
1085		1408
		1409	$vbox
		1410	}
		1411
		1412	sub client_setup {
		1413	my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1];
		1414
		1415	my $row = 0;
		1416
1086	$table->add (0, 13, new CFPlus::UI::Label valign => 0, align => 1, text => "Tip of the day");	1417	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Tip of the day");
1087	$table->add (1, 13, my $saycmd = new CFPlus::UI::CheckBox	1418	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
1088	state => $CFG->{show_tips},	1419	state => $CFG->{show_tips},
1089	tooltip => "Show the <b>Tip of the day</b> window at startup?",	1420	tooltip => "Show the <b>Tip of the day</b> window at startup?",
1090	on_changed => sub {	1421	on_changed => sub {
1091	my ($self, $value) = @_;	1422	my ($self, $value) = @_;
1092	$CFG->{show_tips} = $value;	1423	$CFG->{show_tips} = $value;
1093	0	1424	0
1094	}	1425	}
1095	);	1426	);
1096		1427
1097	$vbox->add (new CFPlus::UI::FancyFrame	1428	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Messages Window Size");
1098	label => "Server Info",	1429	$table->add_at (1, $row++, my $saycmd = new CFPlus::UI::Entry
1099	child => ($SERVER_INFO = new CFPlus::UI::Label ellipsise => 0),	1430	text => $CFG->{logview_max_par},
1100	);	1431	tooltip => "This is maximum number of messages remembered in the <b>Messages</b> window. If the server "
1101		1432	. "sends more messages than this number, older messages get removed to save memory and "
1102	$vbox	1433	. "computing time. A value of <b>0</b> disables this feature, but that is not recommended.",
1103	}
1104
1105	sub message_window {
1106	my $window = new CFPlus::UI::Toplevel
1107	name => "message_window",
1108	title => "Messages",
1109	border_bg => [1, 1, 1, 1],
1110	x => "max",
1111	y => 0,
1112	force_w => $::WIDTH * 0.4,
1113	force_h => $::HEIGHT * 0.5,
1114	child => (my $vbox = new CFPlus::UI::VBox),
1115	has_close_button => 1;
1116
1117	$vbox->add ($LOGVIEW);
1118
1119	$vbox->add (my $input = new CFPlus::UI::Entry
1120	tooltip => "<b>Chat Box</b>. If you enter a text and press return/enter here, the current <i>communication command</i> "
1121	. "from the client setup will be prepended (e.g. <b>shout</b>, <b>chat</b>...). "
1122	. "If you prepend a slash (/), you will submit a command instead (similar to IRC). "
1123	. "A better way to submit commands (and the occasional chat command) is often the map command completer.",
1124	on_focus_in => sub {	1434	on_changed => sub {
1125	my ($input, $prev_focus) = @_;	1435	my ($self, $value) = @_;
1126		1436	$MESSAGE_WINDOW->set_max_para ($CFG->{logview_max_par} = $value*1);
1127	delete $input->{refocus_map};
1128
1129	if ($prev_focus == $MAPWIDGET && $input->{auto_activated}) {
1130	$input->{refocus_map} = 1;
1131	}
1132	delete $input->{auto_activated};
1133
1134	0	1437	0
1135	},	1438	},
1136	on_activate => sub {
1137	my ($input, $text) = @_;
1138	$input->set_text ('');
1139
1140	if ($text =~ /^\/(.*)/) {
1141	$::CONN->user_send ($1);
1142	} else {
1143	my $say_cmd = $::CFG->{say_command} \|\| 'say';
1144	$::CONN->user_send ("$say_cmd $text");
1145	}
1146	if ($input->{refocus_map}) {
1147	delete $input->{refocus_map};
1148	$MAPWIDGET->focus_in
1149	}
1150
1151	0
1152	},
1153	on_escape => sub {
1154	$MAPWIDGET->grab_focus;
1155
1156	0
1157	},
1158	);
1159
1160	$CONSOLE = {
1161	window => $window,
1162	input => $input,
1163	};	1439	);
1164		1440
1165	$window	1441	$table
1166	}	1442	}
1167		1443
1168	sub autopickup_setup {	1444	sub autopickup_setup {
		1445	my $r = new CFPlus::UI::ScrolledWindow (
		1446	expand => 1,
		1447	scroll_y => 1
		1448	);
1169	my $table = new CFPlus::UI::Table;	1449	$r->add (my $table = new CFPlus::UI::Table
		1450	row_expand => [0],
		1451	col_expand => [0, 1, 0, 1],
		1452	);
1170		1453
1171	for (	1454	for (
1172	["General", 0, 0,	1455	["General", 0, 0,
1173	["Enable autopickup" => PICKUP_NEWMODE, \$PICKUP_ENABLE],	1456	["Enable autopickup" => PICKUP_NEWMODE, \$PICKUP_ENABLE],
1174	["Inhibit autopickup" => PICKUP_INHIBIT],	1457	["Inhibit autopickup" => PICKUP_INHIBIT],
…		…
1188	["Boots" => PICKUP_BOOTS],	1471	["Boots" => PICKUP_BOOTS],
1189	["Gloves" => PICKUP_GLOVES],	1472	["Gloves" => PICKUP_GLOVES],
1190	["Cloaks" => PICKUP_CLOAK],	1473	["Cloaks" => PICKUP_CLOAK],
1191	],	1474	],
1192		1475
1193	["Readables", 2, 2,	1476	["Readables", 2, 0,
1194	["Spellbooks" => PICKUP_SPELLBOOK],	1477	["Spellbooks" => PICKUP_SPELLBOOK],
1195	["Skillscrolls" => PICKUP_SKILLSCROLL],	1478	["Skillscrolls" => PICKUP_SKILLSCROLL],
1196	["Normal Books/Scrolls" => PICKUP_READABLES],	1479	["Normal Books/Scrolls" => PICKUP_READABLES],
1197	],	1480	],
1198	["Misc", 2, 7,	1481	["Misc", 2, 5,
1199	["Food" => PICKUP_FOOD],	1482	["Food" => PICKUP_FOOD],
1200	["Drinks" => PICKUP_DRINK],	1483	["Drinks" => PICKUP_DRINK],
1201	["Valuables (Money, Gems)" => PICKUP_VALUABLES],	1484	["Valuables (Money, Gems)" => PICKUP_VALUABLES],
1202	["Keys" => PICKUP_KEY],	1485	["Keys" => PICKUP_KEY],
1203	["Magical Items" => PICKUP_MAGICAL],	1486	["Magical Items" => PICKUP_MAGICAL],
1204	["Potions" => PICKUP_POTION],	1487	["Potions" => PICKUP_POTION],
1205	["Magic Devices" => PICKUP_MAGIC_DEVICE],	1488	["Magic Devices" => PICKUP_MAGIC_DEVICE],
1206	["Ignore cursed" => PICKUP_NOT_CURSED],	1489	["Ignore cursed" => PICKUP_NOT_CURSED],
1207	["Jewelery" => PICKUP_JEWELS],	1490	["Jewelery" => PICKUP_JEWELS],
		1491	["Flesh" => PICKUP_FLESH],
1208	],	1492	],
1209	["Weight/Value ratio", 2, 17]	1493	["Weight/Value ratio", 2, 17]
1210	)	1494	)
1211	{	1495	{
1212	my ($title, $x, $y, @bits) = @$_;	1496	my ($title, $x, $y, @bits) = @$_;
1213	$table->add ($x, $y, new CFPlus::UI::Label text => $title, align => 1, fg => [1, 1, 0]);	1497	$table->add_at ($x, $y, new CFPlus::UI::Label text => $title, align => 1, fg => [1, 1, 0]);
1214		1498
1215	for (@bits) {	1499	for (@bits) {
1216	++$y;	1500	++$y;
1217		1501
1218	my $mask = $_->[1];	1502	my $mask = $_->[1];
1219	$table->add ($x , $y, new CFPlus::UI::Label text => $_->[0], align => 1, expand => 1);	1503	$table->add_at ($x , $y, new CFPlus::UI::Label text => $_->[0], align => 1, expand => 1);
1220	$table->add ($x+1, $y, my $checkbox = new CFPlus::UI::CheckBox	1504	$table->add_at ($x+1, $y, my $checkbox = new CFPlus::UI::CheckBox
1221	state => $::CFG->{pickup} & $mask,	1505	state => $::CFG->{pickup} & $mask,
1222	on_changed => sub {	1506	on_changed => sub {
1223	my ($box, $value) = @_;	1507	my ($box, $value) = @_;
1224		1508
1225	if ($value) {	1509	if ($value) {
…		…
1236		1520
1237	${$_->[2]} = $checkbox if $_->[2];	1521	${$_->[2]} = $checkbox if $_->[2];
1238	}	1522	}
1239	}	1523	}
1240		1524
1241	$table->add (2, 18, new CFPlus::UI::ValSlider	1525	$table->add_at (2, 18, new CFPlus::UI::ValSlider
1242	range => [$::CFG->{pickup} & 0xF, 0, 16, 1, 1],	1526	range => [$::CFG->{pickup} & 0xF, 0, 16, 1, 1],
1243	template => ">= 99",	1527	template => ">= 99",
1244	to_value => sub { ">= " . 5 * $_[0] },	1528	to_value => sub { ">= " . 5 * $_[0] },
1245	on_changed => sub {	1529	on_changed => sub {
1246	my ($slider, $value) = @_;	1530	my ($slider, $value) = @_;
…		…
1249	$::CFG->{pickup} \|= int $value	1533	$::CFG->{pickup} \|= int $value
1250	if $value;	1534	if $value;
1251	1;	1535	1;
1252	});	1536	});
1253		1537
1254	$table->add (3, 18, new CFPlus::UI::Button	1538	$table->add_at (3, 18, new CFPlus::UI::Button
1255	text => "set",	1539	text => "set",
1256	on_activate => sub {	1540	on_activate => sub {
1257	$::CONN->send_command ("pickup $::CFG->{pickup}")	1541	$::CONN->send_command ("pickup $::CFG->{pickup}")
1258	if defined $::CONN;	1542	if defined $::CONN;
1259	0	1543	0
1260	});	1544	});
1261		1545
1262	$table	1546	$r
1263	}	1547	}
1264		1548
1265	my %SORT_ORDER = (	1549	my %SORT_ORDER = (
1266	type => undef,	1550	type => undef,
1267	mtime => sub { sort {	1551	mtime => sub {
		1552	my $NOW = time;
		1553	sort {
		1554	my $atime = $a->{mtime} - $NOW; $atime = $atime < 5 * 60 ? int $atime / 60 : 6;
		1555	my $btime = $b->{mtime} - $NOW; $btime = $btime < 5 * 60 ? int $btime / 60 : 6;
		1556
1268	($a->{flags} & F_LOCKED) <=> ($b->{flags} & F_LOCKED)	1557	($a->{flags} & F_LOCKED) <=> ($b->{flags} & F_LOCKED)
1269	or $b->{mtime} <=> $a->{mtime}	1558	or $btime <=> $atime
1270	or $a->{type} <=> $b->{type}	1559	or $a->{type} <=> $b->{type}
		1560	} @_
1271	} @_ },	1561	},
1272	weight => sub { sort {	1562	weight => sub { sort {
1273	$a->{weight} * ($a->{nrof} \|\| 1) <=> $b->{weight} * ($b->{nrof} \|\| 1)	1563	$a->{weight} * ($a->{nrof} \|\| 1) <=> $b->{weight} * ($b->{nrof} \|\| 1)
1274	or $a->{type} <=> $b->{type}	1564	or $a->{type} <=> $b->{type}
1275	} @_ },	1565	} @_ },
1276	);	1566	);
…		…
1301	#TODO# update to weigh/maxweight	1591	#TODO# update to weigh/maxweight
1302	$hb1->add ($STATWIDS->{i_weight} = new CFPlus::UI::Label align => -1);	1592	$hb1->add ($STATWIDS->{i_weight} = new CFPlus::UI::Label align => -1);
1303		1593
1304	$vb1->add (my $sw1 = new CFPlus::UI::ScrolledWindow expand => 1, scroll_y => 1);	1594	$vb1->add (my $sw1 = new CFPlus::UI::ScrolledWindow expand => 1, scroll_y => 1);
1305	$sw1->add ($INV = new CFPlus::UI::Inventory);	1595	$sw1->add ($INV = new CFPlus::UI::Inventory);
		1596	$INV->set_sort_order ($SORT_ORDER{$::CFG->{inv_sort}});
1306		1597
1307	$hb->add (my $vb2 = new CFPlus::UI::VBox);	1598	$hb->add (my $vb2 = new CFPlus::UI::VBox);
1308		1599
1309	$vb2->add ($INV_RIGHT_HB = new CFPlus::UI::HBox);	1600	$vb2->add ($INV_RIGHT_HB = new CFPlus::UI::HBox);
1310		1601
…		…
1313		1604
1314	# XXX: Call after $INVR = ... because set_opencont sets the items	1605	# XXX: Call after $INVR = ... because set_opencont sets the items
1315	CFPlus::Protocol::set_opencont ($::CONN, 0, "Floor");	1606	CFPlus::Protocol::set_opencont ($::CONN, 0, "Floor");
1316		1607
1317	$hb	1608	$hb
		1609	}
		1610
		1611	sub media_window {
		1612	my $vb = new CFPlus::UI::VBox;
		1613
		1614	$vb->add (new CFPlus::UI::FancyFrame
		1615	label => "Currently playing music",
		1616	child => new CFPlus::UI::ScrolledWindow scroll_x => 1, scroll_y => 0,
		1617	child => ($MUSIC_PLAYING_WIDGET = new CFPlus::UI::Label ellipsise => 0, fontsize => 0.8),
		1618	);
		1619
		1620	$vb->add (new CFPlus::UI::FancyFrame
		1621	label => "Other media used in this session",
		1622	expand => 1,
		1623	child => ($LICENSE_WIDGET = new CFPlus::UI::TextScroller
		1624	expand => 1, fontsize => 0.8, padding_x => 4, padding_y => 4),
		1625	);
		1626
		1627	$vb
		1628	}
		1629
		1630	sub add_license {
		1631	my ($meta) = @_;
		1632
		1633	$meta = $meta->{meta}
		1634	or return;
		1635
		1636	$meta->{license} \|\| $meta->{author} \|\| $meta->{source}
		1637	or return;
		1638
		1639	$LICENSE_WIDGET->add_paragraph ({
		1640	fg => [1, 1, 1, 1],
		1641	markup => "<small>"
		1642	. "<b>Name:</b> " . (CFPlus::asxml $meta->{name}) . "\n"
		1643	. "<b>Author:</b> " . (CFPlus::asxml $meta->{author}) . "\n"
		1644	. "<b>Source:</b> " . (CFPlus::asxml $meta->{source}) . "\n"
		1645	. "<b>License:</b> " . (CFPlus::asxml $meta->{license}) . "\n"
		1646	. "</small>",
		1647	});
		1648	$LICENSE_WIDGET->scroll_to_bottom;
1318	}	1649	}
1319		1650
1320	sub toggle_player_page {	1651	sub toggle_player_page {
1321	my ($widget) = @_;	1652	my ($widget) = @_;
1322		1653
…		…
1339	has_close_button => 1	1670	has_close_button => 1
1340	;	1671	;
1341		1672
1342	my $ntb =	1673	my $ntb =
1343	$PL_NOTEBOOK =	1674	$PL_NOTEBOOK =
1344	new CFPlus::UI::Notebook expand => 1, debug => 1;	1675	new CFPlus::UI::Notebook expand => 1;
1345		1676
1346	$ntb->add (	1677	$ntb->add_tab (
1347	"Statistics (F2)" => $STATS_PAGE = stats_window,	1678	"Statistics (F2)" => $STATS_PAGE = stats_window,
1348	"Shows statistics, where all your Stats and Resistances are shown."	1679	"Shows statistics, where all your Stats and Resistances are shown."
1349	);	1680	);
1350	$ntb->add (	1681	$ntb->add_tab (
1351	"Skills (F3)" => $SKILL_PAGE = skill_window,	1682	"Skills (F3)" => $SKILL_PAGE = skill_window,
1352	"Shows all your Skills."	1683	"Shows all your Skills."
1353	);	1684	);
1354		1685
1355	my $spellsw = new CFPlus::UI::ScrolledWindow (expand => 1, scroll_y => 1);	1686	my $spellsw = $SPELL_PAGE = new CFPlus::UI::ScrolledWindow (expand => 1, scroll_y => 1);
1356	$spellsw->add ($SPELL_PAGE = new CFPlus::UI::SpellList);	1687	$spellsw->add ($SPELL_LIST = new CFPlus::UI::SpellList);
1357	$ntb->add (	1688	$ntb->add_tab (
1358	"Spellbook (F4)" => $spellsw,	1689	"Spellbook (F4)" => $spellsw,
1359	"Displays all spells you have and lets you edit keyboard shortcuts for them."	1690	"Displays all spells you have and lets you edit keyboard shortcuts for them."
1360	);	1691	);
1361	$ntb->add (	1692	$ntb->add_tab (
1362	"Inventory (F5)" => $INVENTORY_PAGE = inventory_widget,	1693	"Inventory (F5)" => $INVENTORY_PAGE = inventory_widget,
1363	"Toggles the inventory window, where you can manage your loot (or treasures :). "	1694	"Toggles the inventory window, where you can manage your loot (or treasures :). "
1364	. "You can also hit the <b>Tab</b>-key to show/hide the Inventory."	1695	. "You can also hit the <b>Tab</b>-key to show/hide the Inventory."
1365	);	1696	);
		1697	$ntb->add_tab (Pickup => autopickup_setup,
		1698	"Configure autopickup settings, i.e. which items you will pick up automatically when walking (or running) over them.");
		1699
		1700	$ntb->add_tab (Media => media_window,
		1701	"License, Author and Source info for media sent by the server.");
1366		1702
1367	$ntb->set_current_page ($INVENTORY_PAGE);	1703	$ntb->set_current_page ($INVENTORY_PAGE);
1368		1704
1369	$plwin->add ($ntb);	1705	$plwin->add ($ntb);
1370	$plwin	1706	$plwin
1371	}	1707	}
1372		1708
1373	sub update_bindings {
1374	$BIND_UPD_CB->() if $BIND_UPD_CB;
1375	}
1376
1377	sub keyboard_setup {	1709	sub keyboard_setup {
1378	my $binding_list = new CFPlus::UI::VBox;	1710	CFPlus::Macro::keyboard_setup
1379
1380	my $refresh;
1381	$refresh = $BIND_UPD_CB = sub {
1382	$binding_list->clear ();
1383
1384	return unless $PROFILE;
1385
1386	for my $mod (keys %{$PROFILE->{bindings}}) {
1387	for my $sym (keys %{$PROFILE->{bindings}{$mod}}) {
1388	my $cmds = $PROFILE->{bindings}{$mod}{$sym};
1389	next unless ref $cmds eq 'ARRAY' and @$cmds > 0;
1390
1391	my $lbl = join "; ", @$cmds;
1392	my $nam = CFPlus::BindingEditor::keycombo_to_name ($mod, $sym);
1393	$binding_list->add (my $hb = new CFPlus::UI::HBox);
1394	$hb->add (new CFPlus::UI::Button
1395	text => "delete",
1396	tooltip => "Deletes the binding",
1397	on_activate => sub {
1398	$binding_list->remove ($hb);
1399	delete $PROFILE->{bindings}{$mod}{$sym};
1400	0
1401	});
1402
1403	$hb->add (new CFPlus::UI::Button
1404	text => "edit",
1405	tooltip => "Edits the binding",
1406	on_activate => sub {
1407	$::BIND_EDITOR->set_binding (
1408	$mod, $sym, $PROFILE->{bindings}{$mod}{$sym},
1409	sub {
1410	my ($nmod, $nsym, $ncmds) = @_;
1411	$::BIND_EDITOR->cfg_unbind ($mod, $sym);
1412	$::BIND_EDITOR->cfg_bind ($nmod, $nsym, $ncmds);
1413	$refresh->();
1414	$SETUP_NOTEBOOK->set_current_page ($SETUP_KEYBOARD);
1415	$SETUP_DIALOG->show;
1416	},
1417	sub {
1418	$SETUP_NOTEBOOK->set_current_page ($SETUP_KEYBOARD);
1419	$SETUP_DIALOG->show;
1420	});
1421	$::BIND_EDITOR->show;
1422	$SETUP_DIALOG->hide;
1423	0
1424	});
1425
1426	$hb->add (new CFPlus::UI::Label text => "(Key: $nam)");
1427	$hb->add (new CFPlus::UI::Label text => $lbl, expand => 1);
1428	}
1429	}
1430	};
1431
1432	my $vb = new CFPlus::UI::VBox;
1433	$vb->add (new CFPlus::UI::FancyFrame
1434	label => "Options",
1435	child => (my $hb = new CFPlus::UI::HBox),
1436	);
1437	$hb->add (new CFPlus::UI::Label text => "only shift-up stops fire");
1438	$hb->add (new CFPlus::UI::CheckBox
1439	expand => 1,
1440	state => $CFG->{shift_fire_stop},
1441	tooltip => "If this checkbox is enabled you will stop fire only if you stop pressing shift",
1442	on_changed => sub {
1443	my ($cbox, $value) = @_;
1444	$CFG->{shift_fire_stop} = $value;
1445	0
1446	});
1447
1448	$vb->add (new CFPlus::UI::FancyFrame
1449	label => "Bindings",
1450	child => $binding_list);
1451	$vb->add (my $hb = new CFPlus::UI::HBox);
1452
1453	$hb->add (new CFPlus::UI::Button
1454	text => "record new",
1455	expand => 1,
1456	tooltip => "This button opens the binding editor with an empty binding.",
1457	on_activate => sub {
1458	$::BIND_EDITOR->set_binding (undef, undef, [],
1459	sub {
1460	my ($mod, $sym, $cmds) = @_;
1461	$::BIND_EDITOR->cfg_bind ($mod, $sym, $cmds);
1462	$refresh->();
1463	$SETUP_NOTEBOOK->set_current_page ($SETUP_KEYBOARD);
1464	$SETUP_DIALOG->show;
1465	},
1466	sub {
1467	$SETUP_NOTEBOOK->set_current_page ($SETUP_KEYBOARD);
1468	$SETUP_DIALOG->show;
1469	},
1470	);
1471	$SETUP_DIALOG->hide;
1472	$::BIND_EDITOR->show;
1473	0
1474	},
1475	);
1476
1477	$hb->add (new CFPlus::UI::Button
1478	text => "close",
1479	tooltip => "Closes the binding window",
1480	expand => 1,
1481	on_activate => sub {
1482	$SETUP_DIALOG->hide;
1483	0
1484	}
1485	);
1486
1487	$refresh->();
1488
1489	$vb
1490	}	1711	}
1491		1712
1492	sub help_window {	1713	sub help_window {
1493	my $win = new CFPlus::UI::Toplevel	1714	my $win = new CFPlus::UI::Toplevel
1494	x => 'center',	1715	x => 'center',
…		…
1651		1872
1652	sub show_tip_of_the_day {	1873	sub show_tip_of_the_day {
1653	# find all tips	1874	# find all tips
1654	my @tod = CFPlus::Pod::find tip_of_the_day => "*";	1875	my @tod = CFPlus::Pod::find tip_of_the_day => "*";
1655		1876
1656	my $todindex = $CFPlus::DB_STATE->get ("tip_of_the_day");	1877	CFPlus::DB::get state => "tip_of_the_day", sub {
		1878	my ($todindex) = @_;
1657	$todindex = 0 if $todindex >= @tod;	1879	$todindex = 0 if $todindex >= @tod;
1658	$CFPlus::DB_STATE->put (tip_of_the_day => $todindex + 1);	1880	CFPlus::DB::put state => tip_of_the_day => $todindex + 1, sub { };
1659		1881
1660	# create dialog	1882	# create dialog
1661	my $dialog;	1883	my $dialog;
1662		1884
1663	my $close = sub {	1885	my $close = sub {
1664	$dialog->destroy;	1886	$dialog->destroy;
		1887	};
		1888
		1889	$dialog = new CFPlus::UI::Toplevel
		1890	x => "center",
		1891	y => "center",
		1892	z => 3,
		1893	name => 'tip_of_the_day',
		1894	force_w => int $WIDTH * 4/9,
		1895	force_h => int $WIDTH * 2/9,
		1896	title => "Tip of the day #" . (1 + $todindex),
		1897	child => my $vbox = new CFPlus::UI::VBox,
		1898	has_close_button => 1,
		1899	on_delete => $close,
		1900	;
		1901
		1902	$vbox->add (my $viewer = new CFPlus::UI::TextScroller
		1903	expand => 1, fontsize => 0.8, padding_x => 4, padding_y => 4);
		1904	$viewer->add_paragraph (CFPlus::Pod::as_paragraphs CFPlus::Pod::section_of $tod[$todindex]);
		1905
		1906	$vbox->add (my $table = new CFPlus::UI::Table col_expand => [0, 1]);
		1907
		1908	$table->add_at (0, 0, new CFPlus::UI::Button
		1909	text => "Close",
		1910	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>.",
		1911	on_activate => $close,
		1912	);
		1913
		1914	$table->add_at (2, 0, new CFPlus::UI::Button
		1915	text => "Next",
		1916	tooltip => "Show the next <b>Tip of the day</b>.",
		1917	on_activate => sub {
		1918	$close->();
		1919	&show_tip_of_the_day;
		1920	},
		1921	);
		1922
		1923	$dialog->show;
1665	};	1924	};
1666
1667	$dialog = new CFPlus::UI::Toplevel
1668	x => "center",
1669	y => "center",
1670	z => 3,
1671	name => 'tip_of_the_day',
1672	force_w => int $WIDTH * 4/9,
1673	force_h => int $WIDTH * 2/9,
1674	title => "Tip of the day #" . (1 + $todindex),
1675	child => my $vbox = new CFPlus::UI::VBox,
1676	has_close_button => 1,
1677	on_delete => $close,
1678	;
1679
1680	$vbox->add (my $viewer = new CFPlus::UI::TextScroller
1681	expand => 1, fontsize => 0.8, padding_x => 4, padding_y => 4);
1682	$viewer->add_paragraph (CFPlus::Pod::as_paragraphs CFPlus::Pod::section_of $tod[$todindex]);
1683
1684	$vbox->add (my $table = new CFPlus::UI::Table);
1685
1686	$table->add (0, 0, new CFPlus::UI::Button
1687	text => "Close",
1688	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>.",
1689	on_activate => $close,
1690	);
1691
1692	$table->add (2, 0, new CFPlus::UI::Button
1693	text => "Next",
1694	tooltip => "Show the next <b>Tip of the day</b>.",
1695	on_activate => sub {
1696	$close->();
1697	&show_tip_of_the_day;
1698	},
1699	);
1700
1701	$dialog->show;
1702	}	1925	}
1703		1926
1704	sub sdl_init {	1927	sub sdl_init {
1705	CFPlus::SDL_Init	1928	CFPlus::SDL_Init
1706	and die "SDL::Init failed!\n";	1929	and die "SDL::Init failed!\n";
1707	}	1930	}
1708		1931
1709	sub video_init {	1932	sub video_init {
1710	sdl_init;
1711
1712	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} >= @SDL_MODES;	1933	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} >= @SDL_MODES;
1713		1934
1714	my ($old_w, $old_h) = ($WIDTH, $HEIGHT);	1935	my ($old_w, $old_h) = ($WIDTH, $HEIGHT);
1715		1936
1716	($WIDTH, $HEIGHT) = @{ $SDL_MODES[$CFG->{sdl_mode}] };	1937	($WIDTH, $HEIGHT, my ($rgb, $alpha)) = @{ $SDL_MODES[$CFG->{sdl_mode}] };
1717	$FULLSCREEN = $CFG->{fullscreen};	1938	$FULLSCREEN = $CFG->{fullscreen};
1718	$FAST = $CFG->{fast};	1939	$FAST = $CFG->{fast};
1719		1940
1720	CFPlus::SDL_SetVideoMode $WIDTH, $HEIGHT, $FULLSCREEN	1941	CFPlus::SDL_SetVideoMode $WIDTH, $HEIGHT, $rgb, $alpha, $FULLSCREEN
1721	or die "SDL_SetVideoMode failed: " . (CFPlus::SDL_GetError) . "\n";	1942	or die "SDL_SetVideoMode failed: " . (CFPlus::SDL_GetError) . "\n";
1722		1943
1723	$SDL_ACTIVE = 1;	1944	$SDL_ACTIVE = 1;
1724	$LAST_REFRESH = time - 0.01;	1945	$LAST_REFRESH = time - 0.01;
1725		1946
…		…
1740	padding => 0,	1961	padding => 0,
1741	z => 100,	1962	z => 100,
1742	force_x => "max",	1963	force_x => "max",
1743	force_y => 0;	1964	force_y => 0;
1744	$DEBUG_STATUS->show;	1965	$DEBUG_STATUS->show;
1745
1746	$BIND_EDITOR = new CFPlus::BindingEditor (x => "max", y => 0);
1747		1966
1748	$STATUSBOX = new CFPlus::UI::Statusbox;	1967	$STATUSBOX = new CFPlus::UI::Statusbox;
1749	$STATUSBOX->add ("Use <b>Alt-Enter</b> to toggle fullscreen mode", timeout => 864000, pri => -100, color => [1, 1, 1, 0.8]);	1968	$STATUSBOX->add ("Use <b>Alt-Enter</b> to toggle fullscreen mode", timeout => 864000, pri => -100, color => [1, 1, 1, 0.8]);
1750		1969
1751	(new CFPlus::UI::Frame	1970	(new CFPlus::UI::Frame
…		…
1769		1988
1770	$MAPWIDGET = new CFPlus::MapWidget;	1989	$MAPWIDGET = new CFPlus::MapWidget;
1771	$MAPWIDGET->connect (activate_console => sub {	1990	$MAPWIDGET->connect (activate_console => sub {
1772	my ($mapwidget, $preset) = @_;	1991	my ($mapwidget, $preset) = @_;
1773		1992
1774	if ($CONSOLE) {	1993	$MESSAGE_WINDOW->activate_console ($preset)
1775	$CONSOLE->{input}->{auto_activated} = 1;	1994	if $MESSAGE_WINDOW;
1776	$CONSOLE->{input}->grab_focus;
1777
1778	if ($preset && $CONSOLE->{input}->get_text eq '') {
1779	$CONSOLE->{input}->set_text ($preset);
1780	}
1781	}
1782	});	1995	});
1783	$MAPWIDGET->show;	1996	$MAPWIDGET->show;
1784	$MAPWIDGET->grab_focus;	1997	$MAPWIDGET->grab_focus;
1785
1786	$LOGVIEW = new CFPlus::UI::TextScroller
1787	expand => 1,
1788	font => $FONT_FIXED,
1789	fontsize => $::CFG->{log_fontsize},
1790	indent => -4,
1791	can_hover => 1,
1792	can_events => 1,
1793	tooltip => "<b>Server Log</b>. This text viewer contains all the messages sent by the server.",
1794	;
1795		1998
1796	$SETUP_DIALOG = new CFPlus::UI::Toplevel	1999	$SETUP_DIALOG = new CFPlus::UI::Toplevel
1797	title => "Setup",	2000	title => "Setup",
1798	name => "setup_dialog",	2001	name => "setup_dialog",
1799	x => 'center',	2002	x => 'center',
…		…
1803	force_h => $::HEIGHT * 0.6,	2006	force_h => $::HEIGHT * 0.6,
1804	has_close_button => 1,	2007	has_close_button => 1,
1805	;	2008	;
1806		2009
1807	$METASERVER = metaserver_dialog;	2010	$METASERVER = metaserver_dialog;
		2011	$MESSAGE_WINDOW = new CFPlus::UI::MessageWindow;
1808		2012
1809	$SETUP_DIALOG->add ($SETUP_NOTEBOOK = new CFPlus::UI::Notebook expand => 1, debug => 1,	2013	$SETUP_DIALOG->add ($SETUP_NOTEBOOK = new CFPlus::UI::Notebook expand => 1, debug => 1,
1810	filter => new CFPlus::UI::ScrolledWindow expand => 1, scroll_y => 1);	2014	filter => new CFPlus::UI::ScrolledWindow expand => 1, scroll_y => 1);
1811		2015
1812	$SETUP_NOTEBOOK->add (Server => $SETUP_SERVER = server_setup,	2016	$SETUP_NOTEBOOK->add_tab (Server => $SETUP_SERVER = server_setup,
1813	"Configure the server to play on, your username, password and other server-related options.");	2017	"Configure the server to play on, your username, password and other server-related options.");
1814	$SETUP_NOTEBOOK->add (Pickup => autopickup_setup,	2018	$SETUP_NOTEBOOK->add_tab (Client => client_setup,
1815	"Configure autopickup settings, i.e. which items you will pick up automatically when walking (or running) over them.");	2019	"Configure various client-specific settings.");
1816	$SETUP_NOTEBOOK->add (Graphics => graphics_setup,	2020	$SETUP_NOTEBOOK->add_tab (Graphics => graphics_setup,
1817	"Configure the video mode, performance, fonts and other graphical aspects of the game.");	2021	"Configure the video mode, performance, fonts and other graphical aspects of the game.");
1818	$SETUP_NOTEBOOK->add (Audio => audio_setup,	2022	$SETUP_NOTEBOOK->add_tab (Audio => audio_setup,
1819	"Configure the use of audio, sound effects and background music.");	2023	"Configure the use of audio, sound effects and background music.");
1820	$SETUP_NOTEBOOK->add (Keyboard => $SETUP_KEYBOARD = keyboard_setup,	2024	$SETUP_NOTEBOOK->add_tab (Keyboard => $SETUP_KEYBOARD = keyboard_setup,
1821	"Lets you define, edit and delete key bindings."	2025	"Lets you define, edit and delete key bindings."
1822	. "There is a shortcut for making bindings: <b>Control-Insert</b> opens the binding editor "	2026	. "There is a shortcut for making bindings: <b>Control-Insert</b> opens the binding editor "
1823	. "with nothing set and the recording started. After doing the actions you "	2027	. "with nothing set and the recording started. After doing the actions you "
1824	. "want to record press <b>Insert</b> and you will be asked to press a key-combo. "	2028	. "want to record press <b>Insert</b> and you will be asked to press a key-combo. "
1825	. "After pressing the combo the binding will be saved automatically and the "	2029	. "After pressing the combo the binding will be saved automatically and the "
1826	. "binding editor closes");	2030	. "binding editor closes");
1827	$SETUP_NOTEBOOK->add (Debug => debug_setup,	2031	$SETUP_NOTEBOOK->add_tab (Debug => debug_setup,
1828	"Some debuggin' options. Do not ask.");	2032	"Some debuggin' options. Do not ask.");
1829		2033
1830	$BUTTONBAR = new CFPlus::UI::Buttonbar x => 0, y => 0, z => 200; # put on top	2034	$BUTTONBAR = new CFPlus::UI::Buttonbar x => 0, y => 0, z => 200; # put on top
1831		2035
1832	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Setup", other => $SETUP_DIALOG,	2036	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Setup", other => $SETUP_DIALOG,
1833	tooltip => "Toggles a dialog where you can configure all aspects of this client.");	2037	tooltip => "Toggles a dialog where you can configure all aspects of this client.");
1834		2038
1835	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Message Window", other => $MESSAGE_WINDOW = message_window,	2039	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Message Window", other => $MESSAGE_WINDOW,
1836	tooltip => "Toggles the server message log, where the client collects <i>all</i> messages from the server.");	2040	tooltip => "Toggles the server message log, where the client collects <i>all</i> messages from the server.");
1837		2041
1838	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	2042	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
1839		2043
1840	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Playerbook", other => player_window,	2044	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Playerbook", other => player_window,
…		…
1851	},	2055	},
1852	);	2056	);
1853		2057
1854	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Help!", other => $HELP_WINDOW = help_window,	2058	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Help!", other => $HELP_WINDOW = help_window,
1855	tooltip => "View Documentation");	2059	tooltip => "View Documentation");
		2060
1856		2061
1857	$BUTTONBAR->add (new CFPlus::UI::Button	2062	$BUTTONBAR->add (new CFPlus::UI::Button
1858	text => "Quit",	2063	text => "Quit",
1859	tooltip => "Terminates the program",	2064	tooltip => "Terminates the program",
1860	on_activate => sub {	2065	on_activate => sub {
…		…
1878	CFPlus::OpenGL::shutdown;	2083	CFPlus::OpenGL::shutdown;
1879		2084
1880	undef $SDL_ACTIVE;	2085	undef $SDL_ACTIVE;
1881	}	2086	}
1882		2087
1883	my @bgmusic = qw(game1.ogg game2.ogg game3.ogg game5.ogg game6.ogg ross1.ogg ross2.ogg ross3.ogg ross4.ogg ross5.ogg); #d#
1884	my $bgmusic;#TODO#hack#d#
1885
1886	sub audio_channel_finished {
1887	my ($channel) = @_;
1888
1889	#warn "channel $channel finished\n";#d#
1890	}
1891
1892	sub audio_music_finished {
1893	return unless $CFG->{bgm_enable};
1894
1895	# TODO: hack, do play loop and mood music
1896	$bgmusic = new_from_file CFPlus::MixMusic CFPlus::find_rcfile "music/$bgmusic[0]";
1897	$bgmusic->play (0);
1898
1899	push @bgmusic, shift @bgmusic;
1900	}
1901
1902	sub audio_init {
1903	if ($CFG->{audio_enable}) {
1904	if (open my $fh, "<", CFPlus::find_rcfile "sounds/config") {
1905	$SDL_MIXER = !CFPlus::Mix_OpenAudio;
1906
1907	unless ($SDL_MIXER) {
1908	status "Unable to open sound device: there will be no sound";
1909	return;
1910	}
1911
1912	CFPlus::Mix_AllocateChannels 8;
1913	CFPlus::MixMusic::volume $CFG->{bgm_volume} * 128;
1914
1915	audio_music_finished;
1916
1917	while (<$fh>) {
1918	next if /^\s*#/;
1919	next if /^\s*$/;
1920
1921	my ($file, $volume, $event) = split /\s+/, $_, 3;
1922
1923	push @SOUNDS, "$volume,$file";
1924
1925	$AUDIO_CHUNKS{"$volume,$file"} \|\|= do {
1926	my $chunk = new_from_file CFPlus::MixChunk CFPlus::find_rcfile "sounds/$file";
1927	$chunk->volume ($volume * 128 / 100);
1928	$chunk
1929	};
1930	}
1931	} else {
1932	status "unable to open sound config: $!";
1933	}
1934	}
1935	}
1936
1937	sub audio_shutdown {
1938	CFPlus::Mix_CloseAudio if $SDL_MIXER;
1939	undef $SDL_MIXER;
1940	@SOUNDS = ();
1941	%AUDIO_CHUNKS = ();
1942	}
1943
1944	my %animate_object;	2088	my %animate_object;
1945	my $animate_timer;	2089	my $animate_timer;
1946		2090
1947	my $fps = 9;	2091	my $fps = 9;
1948
1949	my %demo;#d#
1950		2092
1951	sub force_refresh {	2093	sub force_refresh {
1952	$fps = $fps * 0.95 + 1 / (($NOW - $LAST_REFRESH) \|\| 0.1) * 0.05;	2094	$fps = $fps * 0.95 + 1 / (($NOW - $LAST_REFRESH) \|\| 0.1) * 0.05;
1953	debug sprintf "%3.2f", $fps if $ENV{CFPLUS_DEBUG} & 4;	2095	debug sprintf "%3.2f", $fps if $ENV{CFPLUS_DEBUG} & 4;
1954		2096
1955	$CFPlus::UI::ROOT->draw;	2097	$CFPlus::UI::ROOT->draw;
1956		2098
1957	$WANT_REFRESH = 0;	2099	$WANT_REFRESH = 0;
1958	$CAN_REFRESH = 0;	2100	$CAN_REFRESH = 0;
1959	$LAST_REFRESH = $NOW;	2101	$LAST_REFRESH = $NOW;
1960		2102
1961	CFPlus::SDL_GL_SwapBuffers;	2103	CFPlus::SDL_GL_SwapBuffers;
1962	}	2104	}
1963		2105
1964	my $refresh_watcher = Event->timer (after => 0, hard => 0, interval => 1 / $MAX_FPS, cb => sub {	2106	my $refresh_watcher = Event->timer (after => 0, hard => 0, interval => 1 / $MAX_FPS, cb => sub {
1965	$NOW = time;	2107	$NOW = time;
1966		2108
1967	($SDL_CB{$_->{type}} \|\| sub { warn "unhandled event $_->{type}" })->($_)	2109	($SDL_CB{$_->{type}} \|\| sub { warn "unhandled event $_->{type}" })->($_)
1968	for CFPlus::SDL_PollEvent;	2110	for CFPlus::poll_events;
1969		2111
1970	if (%animate_object) {	2112	if (%animate_object) {
1971	$_->animate ($LAST_REFRESH - $NOW) for values %animate_object;	2113	$_->animate ($LAST_REFRESH - $NOW) for values %animate_object;
1972	$WANT_REFRESH++;	2114	++$WANT_REFRESH;
1973	}	2115	}
1974		2116
1975	if ($WANT_REFRESH) {	2117	if ($WANT_REFRESH) {
1976	force_refresh;	2118	force_refresh;
1977	} else {	2119	} else {
…		…
1987	sub animation_stop {	2129	sub animation_stop {
1988	my ($widget) = @_;	2130	my ($widget) = @_;
1989	delete $animate_object{$widget};	2131	delete $animate_object{$widget};
1990	}	2132	}
1991		2133
1992	# check once/second for faces that need to be prefetched
1993	# this should, of course, only run on demand, but
1994	# SDL forces worse things on us....
1995
1996	Event->timer (after => 1, interval => 0.25, cb => sub {
1997	$CONN->face_prefetch
1998	if $CONN;
1999	});
2000
2001	%SDL_CB = (	2134	%SDL_CB = (
2002	CFPlus::SDL_QUIT => sub {	2135	CFPlus::SDL_QUIT => sub {
2003	Event::unloop -1;	2136	exit;
2004	},	2137	},
2005	CFPlus::SDL_VIDEORESIZE => sub {	2138	CFPlus::SDL_VIDEORESIZE => sub {
2006	},	2139	},
2007	CFPlus::SDL_VIDEOEXPOSE => sub {	2140	CFPlus::SDL_VIDEOEXPOSE => sub {
2008	CFPlus::UI::full_refresh;	2141	CFPlus::UI::full_refresh;
2009	},	2142	},
2010	CFPlus::SDL_ACTIVEEVENT => sub {	2143	CFPlus::SDL_ACTIVEEVENT => sub {
2011	# printf "active %x %x\n", $SDL_EV->active_gain, $SDL_EV->active_state;#d#	2144	# not useful, as APPACTIVE include sonly iconified state, not unmapped
		2145	# printf "active %x %x %x\n", $_[0]{gain}, $_[0]{state}, CFPlus::SDL_GetAppState;#d#
		2146	# printf "a %x\n", CFPlus::SDL_GetAppState & CFPlus::SDL_APPACTIVE;#d#
		2147	# printf "A\n" if $_[0]{state} & CFPlus::SDL_APPACTIVE;
		2148	# printf "K\n" if $_[0]{state} & CFPlus::SDL_APPINPUTFOCUS;
		2149	# printf "M\n" if $_[0]{state} & CFPlus::SDL_APPMOUSEFOCUS;
2012	},	2150	},
2013	CFPlus::SDL_KEYDOWN => sub {	2151	CFPlus::SDL_KEYDOWN => sub {
2014	if ($_[0]{mod} & CFPlus::KMOD_ALT && $_[0]{sym} == 13) {	2152	if ($_[0]{mod} & CFPlus::KMOD_ALT && $_[0]{sym} == 13) {
2015	# alt-enter	2153	# alt-enter
2016	$FULLSCREEN_ENABLE->toggle;	2154	$FULLSCREEN_ENABLE->toggle;
…		…
2037		2175
2038	$SIG{INT} = $SIG{TERM} = sub { exit };	2176	$SIG{INT} = $SIG{TERM} = sub { exit };
2039		2177
2040	{	2178	{
2041	CFPlus::read_cfg "$Crossfire::VARDIR/cfplusrc";	2179	CFPlus::read_cfg "$Crossfire::VARDIR/cfplusrc";
		2180	CFPlus::DB::Server::run;
		2181
2042	CFPlus::UI::set_layout ($::CFG->{layout});	2182	CFPlus::UI::set_layout ($::CFG->{layout});
2043		2183
2044	my %DEF_CFG = (	2184	my %DEF_CFG = (
2045	sdl_mode => 0,	2185	sdl_mode => 0,
2046	width => 640,
2047	height => 480,
2048	fullscreen => 0,	2186	fullscreen => 0,
2049	fast => 0,	2187	fast => 0,
2050	map_scale => 1,	2188	map_scale => 1,
2051	fow_enable => 1,	2189	fow_enable => 1,
2052	fow_intensity => 0.45,	2190	fow_intensity => 0,
2053	fow_smooth => 0,	2191	map_smoothing => 1,
2054	gui_fontsize => 1,	2192	gui_fontsize => 1,
2055	log_fontsize => 0.7,	2193	log_fontsize => 0.7,
2056	gauge_fontsize => 1,	2194	gauge_fontsize => 1,
2057	gauge_size => 0.35,	2195	gauge_size => 0.35,
2058	stat_fontsize => 0.7,	2196	stat_fontsize => 0.7,
2059	mapsize => 100,	2197	mapsize => 100,
2060	say_command => 'say',
2061	audio_enable => 1,	2198	audio_enable => 1,
		2199	effects_enable => 1,
		2200	effects_volume => 1,
2062	bgm_enable => 1,	2201	bgm_enable => 1,
2063	bgm_volume => 0.25,	2202	bgm_volume => 0.5,
2064	face_prefetch => 0,
2065	output_sync => 1,	2203	output_sync => 1,
2066	output_count => 1,	2204	output_count => 1,
		2205	output_rate => "",
2067	pickup => 0,	2206	pickup => 0,
2068	inv_sort => "mtime",	2207	inv_sort => "mtime",
2069	default => "profile", # default profile	2208	default => "profile", # default profile
2070	show_tips => 1,	2209	show_tips => 1,
		2210	logview_max_par => 1000,
2071	);	2211	);
2072		2212
2073	while (my ($k, $v) = each %DEF_CFG) {	2213	while (my ($k, $v) = each %DEF_CFG) {
2074	$CFG->{$k} = $v unless exists $CFG->{$k};	2214	$CFG->{$k} = $v unless exists $CFG->{$k};
2075	}	2215	}
2076		2216
2077	$CFG->{profile}{default}{host} \|\|= "crossfire.schmorp.de";	2217	$CFG->{profile}{default}{host} \|\|= "crossfire.schmorp.de";
		2218	$PROFILE = $CFG->{profile}{default};
		2219
		2220	# convert old bindings (only default profile matters)
		2221	if (my $bindings = delete $PROFILE->{bindings}) {
		2222	while (my ($mod, $syms) = each %$bindings) {
		2223	while (my ($sym, $cmds) = each %$syms) {
		2224	push @{ $PROFILE->{macro} }, {
		2225	accelkey => [$mod1, $sym1],
		2226	action => $cmds,
		2227	};
		2228	}
		2229	}
		2230	}
2078		2231
2079	sdl_init;	2232	sdl_init;
2080		2233
2081	@SDL_MODES = reverse	2234	@SDL_MODES = CFPlus::SDL_ListModes 8, 8;
2082	grep $_->[0] >= 640 && $_->[1] >= 480,	2235	@SDL_MODES = CFPlus::SDL_ListModes 5, 0 unless @SDL_MODES;
2083	CFPlus::SDL_ListModes;
2084
2085	@SDL_MODES or CFPlus::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)";	2236	@SDL_MODES or CFPlus::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)";
		2237
		2238	@SDL_MODES = sort { $a->[0] * $a->[1] <=> $b->[0] * $b->[1] } @SDL_MODES;
2086		2239
2087	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES;	2240	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES;
2088		2241
2089	{	2242	{
2090	my @fonts = map CFPlus::find_rcfile "fonts/$_", qw(	2243	my @fonts = map CFPlus::find_rcfile "fonts/$_", qw(
…		…
2131		2284
2132	Event::loop;	2285	Event::loop;
2133	#CFPlus::SDL_Quit;	2286	#CFPlus::SDL_Quit;
2134	#CFPlus::_exit 0;	2287	#CFPlus::_exit 0;
2135		2288
		2289	END {
2136	END { CFPlus::SDL_Quit }	2290	CFPlus::SDL_Quit;
		2291	CFPlus::DB::Server::stop;
		2292	}
2137		2293
2138	=head1 NAME	2294	=head1 NAME
2139		2295
2140	cfplus - A Crossfire+ and Crossfire game client	2296	cfplus - A Crossfire+ and Crossfire game client
2141		2297

Diff Legend

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

Comparing deliantra/Deliantra-Client/bin/cfplus (file contents): Revision 1.122 by root, Sun Oct 8 21:22:30 2006 UTC vs. Revision 1.203 by root, Mon Aug 6 02:11:45 2007 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/bin/cfplus (file contents):
Revision 1.122 by root, Sun Oct 8 21:22:30 2006 UTC vs.
Revision 1.203 by root, Mon Aug 6 02:11:45 2007 UTC