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

Comparing deliantra/Deliantra-Client/bin/cfplus (file contents):
Revision 1.192 by root, Mon Jul 30 02:16:16 2007 UTC vs.
Revision 1.230 by root, Mon Oct 8 17:05:29 2007 UTC

…		…
1	#!/opt/bin/perl	1	#!/opt/bin/perl
2		2
		3	# do splash-screen thingy on win32
3	my $startup_done = sub { };	4	my $startup_done = sub { };
4	our $PANGO = "1.5.0";
5
6	# do splash-screen thingy on win32
7	BEGIN {	5	BEGIN {
8	if (%PAR::LibCache && $^O eq "MSWin32") {	6	if (%PAR::LibCache && $^O eq "MSWin32") {
9	while (my ($filename, $zip) = each %PAR::LibCache) {	7	while (my ($filename, $zip) = each %PAR::LibCache) {
10	$zip->extractMember ("SPLASH.bmp", "$ENV{PAR_TEMP}/SPLASH.bmp");	8	$zip->extractMember ("SPLASH.bmp", "$ENV{PAR_TEMP}/SPLASH.bmp");
11	}	9	}
30	# do things only needed for single-binary version (par)	28	# do things only needed for single-binary version (par)
31	BEGIN {	29	BEGIN {
32	if (%PAR::LibCache) {	30	if (%PAR::LibCache) {
33	@INC = grep ref, @INC; # weed out all paths except pars loader refs	31	@INC = grep ref, @INC; # weed out all paths except pars loader refs
34		32
35	my $tmp = $ENV{PAR_TEMP};	33	my $root = $ENV{PAR_TEMP};
36		34
37	while (my ($filename, $zip) = each %PAR::LibCache) {	35	while (my ($filename, $zip) = each %PAR::LibCache) {
38	for ($zip->memberNames) {	36	for ($zip->memberNames) {
39	next unless /^root\/(.*)/;	37	next unless /^root\/(.*)/;
40	$zip->extractMember ($_, "$tmp/$1")	38	$zip->extractMember ($_, "$root/$1")
41	unless -e "$tmp/$1";	39	unless -e "$root/$1";
42	}	40	}
43	}	41	}
44		42
45	if ($^O eq "MSWin32") {	43	if ($^O eq "MSWin32") {
46	# relocatable	44	# pango is relocatable on win32
47	} else {	45	} else {
		46	open my $fh, "<:perlio", "$root/pangoversion"
		47	or die "pangoversion: $!";
		48	my $PANGO = <$fh>;
48	# unix, need to patch pango rc file	49	# 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	open my $fh, "<:perlio", "$root/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	or die "$root/usr/lib/$PANGO/module-files.d/libpango1.0-0.modules: $!";
51	local $/;	52	local $/;
52	my $rc = <$fh>;	53	my $rc = <$fh>;
53	$rc =~ s/^\//$tmp\//gm; # replace abs paths by relative ones	54	$rc =~ s/^\//$root\//gm; # replace abs paths by relative ones
54		55
55	mkdir "$tmp/pango-modules";	56	mkdir "$root/pango-modules";
56	open my $fh, ">:perlio", "$tmp/pango-modules/pango.modules"	57	open my $fh, ">:perlio", "$root/pango-modules/pango.modules"
57	or die "$tmp/pango-modules/pango.modules: $!";	58	or die "$root/pango-modules/pango.modules: $!";
58	print $fh $rc;	59	print $fh $rc;
59		60
60	$ENV{PANGO_RC_FILE} = "$tmp/pango.rc";	61	$ENV{PANGO_RC_FILE} = "$root/pango.rc";
61	open my $fh, ">:perlio", $ENV{PANGO_RC_FILE}	62	open my $fh, ">:perlio", $ENV{PANGO_RC_FILE}
62	or die "$ENV{PANGO_RC_FILE}: $!";	63	or die "$ENV{PANGO_RC_FILE}: $!";
63	print $fh "[Pango]\nModuleFiles = $tmp/pango-modules\n";	64	print $fh "[Pango]\nModuleFiles = $root/pango-modules\n";
64	}	65	}
65		66
66	unshift @INC, $tmp;	67	unshift @INC, $root;
67	}	68	}
68	}	69	}
69		70
70	# need to do it again because that pile of garbage called PAR nukes it before main	71	# need to do it again because that pile of garbage called PAR nukes it before main
71	unshift @INC, $ENV{PAR_TEMP}	72	unshift @INC, $ENV{PAR_TEMP}
…		…
86	use CFPlus::DB;	87	use CFPlus::DB;
87	use CFPlus::UI;	88	use CFPlus::UI;
88	use CFPlus::UI::Canvas;	89	use CFPlus::UI::Canvas;
89	use CFPlus::UI::Inventory;	90	use CFPlus::UI::Inventory;
90	use CFPlus::UI::SpellList;	91	use CFPlus::UI::SpellList;
		92	use CFPlus::UI::Dockable;
91	use CFPlus::UI::MessageWindow;	93	use CFPlus::UI::MessageWindow;
		94	use CFPlus::UI::ChatView;
92	use CFPlus::Pod;	95	use CFPlus::Pod;
93	use CFPlus::MapWidget;	96	use CFPlus::MapWidget;
94	use CFPlus::Macro;	97	use CFPlus::Macro;
95		98
96	$SIG{QUIT} = sub { Carp::cluck "QUIT" };	99	$SIG{QUIT} = sub { Carp::cluck "QUIT" };
…		…
113	our $CONN;	116	our $CONN;
114	our $PROFILE; # current profile	117	our $PROFILE; # current profile
115	our $FAST; # fast, low-quality mode, possibly useful for software-rendering	118	our $FAST; # fast, low-quality mode, possibly useful for software-rendering
116		119
117	our $WANT_REFRESH;	120	our $WANT_REFRESH;
118	our $CAN_REFRESH;
119		121
120	our @SDL_MODES;	122	our @SDL_MODES;
121	our $WIDTH;	123	our $WIDTH;
122	our $HEIGHT;	124	our $HEIGHT;
123	our $FULLSCREEN;	125	our $FULLSCREEN;
…		…
127	our $FONT_FIXED;	129	our $FONT_FIXED;
128		130
129	our $MAP;	131	our $MAP;
130	our $MAPMAP;	132	our $MAPMAP;
131	our $MAPWIDGET;	133	our $MAPWIDGET;
		134	our $COMPLETER;
132	our $BUTTONBAR;	135	our $BUTTONBAR;
133	our $METASERVER;	136	our $METASERVER;
134	our $LOGIN_BUTTON;	137	our $LOGIN_BUTTON;
135	our $QUIT_DIALOG;	138	our $QUIT_DIALOG;
136	our $HOST_ENTRY;	139	our $HOST_ENTRY;
…		…
144	our $SETUP_KEYBOARD;	147	our $SETUP_KEYBOARD;
145		148
146	our $PL_NOTEBOOK;	149	our $PL_NOTEBOOK;
147	our $PL_WINDOW;	150	our $PL_WINDOW;
148		151
		152	our $MUSIC_PLAYING_WIDGET;
		153	our $LICENSE_WIDGET;
		154
		155	our $PICKUP_PAGE;
149	our $INVENTORY_PAGE;	156	our $INVENTORY_PAGE;
150	our $STATS_PAGE;	157	our $STATS_PAGE;
151	our $SKILL_PAGE;	158	our $SKILL_PAGE;
152	our $SPELL_PAGE;	159	our $SPELL_PAGE;
153	our $SPELL_LIST;	160	our $SPELL_LIST;
…		…
159	our $STATWIDS;	166	our $STATWIDS;
160		167
161	our $SDL_ACTIVE;	168	our $SDL_ACTIVE;
162	our %SDL_CB;	169	our %SDL_CB;
163		170
		171	our $ALT_ENTER_MESSAGE;
		172	our $STATUSBOX;
		173	our $DEBUG_STATUS;
		174
		175	our $INV;
		176	our $INVR;
		177	our $INVR_HB;
		178
		179	#############################################################################
		180
		181	sub status {
		182	$STATUSBOX->add (CFPlus::asxml $_[0], pri => -10, group => "status", timeout => 10, fg => [1, 1, 0, 1]);
		183	}
		184
		185	sub debug {
		186	$DEBUG_STATUS->set_text ($_[0]);
		187	}
		188
		189	sub message {
		190	$MESSAGE_WINDOW->message (@_);
		191	}
		192
		193	#############################################################################
		194	#TODO: maybe move into own audio module...
		195
164	our $SDL_MIXER;	196	our $SDL_MIXER;
		197
165	our $MUSIC_DEFAULT = "in_a_heartbeat.ogg";	198	our $MUSIC_DEFAULT = "in_a_heartbeat.ogg";
166	our @MUSIC_WANT;	199	our $MUSIC_WANT; # arryref of ambient music we want to play
		200	our @MUSIC_HAVE; # ambient music we have on disk
167	our $MUSIC_START;	201	our $MUSIC_START;
		202	our @MUSIC_JINGLE; # which jingles to play next
168	our $MUSIC_PLAYING_DATA;	203	our $MUSIC_PLAYING_DATA;
169	our $MUSIC_PLAYING_META;	204	our $MUSIC_PLAYING_META;
170	our $MUSIC_PLAYER;	205	our $MUSIC_PLAYER;
171	our $MUSIC_RESUME = 30; # resume music when players less than these many seconds before	206	our $MUSIC_RESUME = 30; # resume music when played less than these many seconds before
172	our @SOUNDS; # event => file mapping	207
173	our %AUDIO_CHUNKS; # audio files	208	our %AUDIO_CHUNK; # audio "files"
		209	our %AUDIO_PLAY; # which audio faces should be played
174		210
175	our $ALT_ENTER_MESSAGE;	211	sub audio_channel_finished {
176	our $STATUSBOX;	212	my ($channel) = @_;
177	our $DEBUG_STATUS;
178		213
179	our $INV;	214	# warn "channel $channel finished\n";#d#
180	our $INVR;
181	our $INV_RIGHT_HB;
182
183	our $PICKUP_CFG;
184
185	sub status {
186	$STATUSBOX->add (CFPlus::asxml $_[0], pri => -10, group => "status", timeout => 10, fg => [1, 1, 0, 1]);
187	}	215	}
188		216
189	sub debug {	217	sub audio_sound_push($) {
190	$DEBUG_STATUS->set_text ($_[0]);
191	}
192
193	sub message {
194	my ($para) = @_;	218	my ($face) = @_;
195	$MESSAGE_WINDOW->message ($para);	219
		220	$CFG->{effects_enable}
		221	or return;
		222
		223	$AUDIO_PLAY{$face}
		224	or return;
		225
		226	if (my $chunk = $AUDIO_CHUNK{$face}) {
		227	for (grep $_->[0] >= Event::time, @{(delete $AUDIO_PLAY{$face}) \|\| []}) {
		228	my (undef, $dx, $dy, $vol) = @$_;
		229
		230	my $channel = CFPlus::Channel::find;
		231	$channel->volume ($vol * $CFG->{effects_volume} * 128 / 255);
		232	$channel->set_position_r ($dx, $dy, 20);
		233	$chunk->play ($channel);
		234	}
		235	} else {
		236	# sound_meta not set means data is in flight either way
		237	my $meta = $CONN->{face}[$face]
		238	or return;
		239
		240	$meta->{data}
		241	or return;
		242
		243	# if its a jingle, play it as ambient music
		244	if ($meta->{data}{jingle}) {
		245	if (delete $AUDIO_PLAY{$face}) { # take the jingle out of the sound queue
		246	push @MUSIC_JINGLE, $meta; # push it oto the music/jingle queue
		247	&audio_music_push ($face);
		248	}
		249	} else {
		250	# fetch from database
		251	CFPlus::DB::get res_data => $meta->{name}, sub {
		252	my $rwops = new CFPlus::RW $_[0];
		253	my $chunk = new CFPlus::MixChunk $rwops
		254	or Carp::confess "sound face " . (JSON::XS::to_json $meta) . " unloadable: " . CFPlus::Mix_GetError;
		255	$chunk->volume (($meta->{data}{volume} \|\| 1) * 128);
		256	$AUDIO_CHUNK{$face} = $chunk;
		257
		258	audio_sound_push ($face);
		259	};
		260	}
		261	}
196	}	262	}
		263
		264	sub audio_sound_play {
		265	my ($face, $dx, $dy, $vol) = @_;
		266
		267	$SDL_MIXER
		268	or return;
		269	$CFG->{effects_enable}
		270	or return;
		271
		272	my $queue = $AUDIO_PLAY{$face} \|\|= [];
		273	push @$queue, [Event::time + 0.6, $dx, $dy, $vol]; # do not play sound for outdated events
		274	audio_sound_push $face
		275	unless @$queue > 1;
		276	}
		277
		278	sub audio_music_set_meta {
		279	my ($meta) = @_;
		280
		281	$MUSIC_PLAYING_META = $meta;
		282	$MUSIC_PLAYING_WIDGET->set_markup (
		283	"<b>Name</b>: " . (CFPlus::asxml $meta->{data}{name}) . "\n"
		284	. "<b>Author</b>: " . (CFPlus::asxml $meta->{data}{author}) . "\n"
		285	. "<b>Source</b>: " . (CFPlus::asxml $meta->{data}{source}) . "\n"
		286	. "<b>License</b>: " . (CFPlus::asxml $meta->{data}{license})
		287	);
		288	}
		289
		290	sub audio_music_update_volume {
		291	return unless $MUSIC_PLAYING_META;
		292	my $volume = $MUSIC_PLAYING_META->{data}{volume} \|\| 1;
		293	my $base = $MUSIC_PLAYING_META->{data}{jingle} ? 1 : $CFG->{bgm_volume};
		294	CFPlus::MixMusic::volume $base * $volume * 128;
		295	}
		296
		297	sub audio_music_start {
		298	my $meta = $MUSIC_PLAYING_META;
		299
		300	CFPlus::DB::get res_data => $meta->{name}, sub {
		301	return unless $SDL_MIXER;
		302
		303	# music might have changed...
		304	$meta eq $MUSIC_PLAYING_META
		305	or return &audio_music_start ();
		306
		307	audio_music_update_volume;
		308
		309	$MUSIC_PLAYING_DATA = \$_[0];
		310
		311	my $rwops = $meta->{path}
		312	? new_from_file CFPlus::RW $meta->{path}
		313	: new CFPlus::RW $$MUSIC_PLAYING_DATA;
		314
		315	$MUSIC_PLAYER = new CFPlus::MixMusic $rwops
		316	or Carp::confess "music face $meta->{face} unloadable: " . CFPlus::Mix_GetError;
		317
		318	my $NOW = time;
		319
		320	if ($MUSIC_PLAYING_META->{stop_time} > $NOW - $MUSIC_RESUME) {
		321	my $pos = $MUSIC_PLAYING_META->{stop_pos};
		322	$MUSIC_PLAYER->fade_in_pos (0, 700, $pos);
		323	$MUSIC_START = time - $pos;
		324	} else {
		325	$MUSIC_PLAYER->play (0);
		326	$MUSIC_START = time;
		327	}
		328
		329	delete $meta->{stop_time};
		330	delete $meta->{stop_pos};
		331	}
		332	}
		333
		334	sub audio_music_push {
		335	return unless $SDL_MIXER;
		336
		337	my $fade_out;
		338
		339	if (@MUSIC_JINGLE) {
		340	@MUSIC_HAVE = $MUSIC_JINGLE[0];
		341	$fade_out = 333;
		342	} else {
		343	return unless $CFG->{bgm_enable};
		344
		345	my @have =
		346	grep $_ && $_->{data},
		347	map $CONN->{face}[$_],
		348	@$MUSIC_WANT;
		349
		350	# randomize music a bit so that the order is not always the same
		351	$_->{stop_time} \|\|= rand for @have;
		352
		353	@MUSIC_HAVE = @have
		354	if @have;
		355
		356	# default MUSIC_HAVE == MUSIC_DEFAULT
		357	@MUSIC_HAVE = { path => CFPlus::find_rcfile "music/$MUSIC_DEFAULT" } unless @MUSIC_HAVE;
		358	$fade_out = 700;
		359	}
		360
		361	# if the currently playing song is acceptable, let it continue
		362	return if grep $MUSIC_PLAYING_META == $_, @MUSIC_HAVE;
		363
		364	my $NOW = time;
		365
		366	if ($MUSIC_PLAYING_META) {
		367	$MUSIC_PLAYING_META->{stop_time} = $NOW;
		368	$MUSIC_PLAYING_META->{stop_pos} = $NOW - $MUSIC_START;
		369	CFPlus::MixMusic::fade_out $fade_out;
		370	} else {
		371	# sort by stop time, oldest first
		372	@MUSIC_HAVE = sort { $a->{stop_time} <=> $b->{stop_time} } @MUSIC_HAVE;
		373
		374	# if the most recently-played piece played very recently,
		375	# resume it, else choose the oldest piece for rotation.
		376	audio_music_set_meta
		377	$MUSIC_HAVE[-1]{stop_pos} && $MUSIC_HAVE[-1]{stop_time} > $NOW - $MUSIC_RESUME
		378	? $MUSIC_HAVE[-1]
		379	: $MUSIC_HAVE[0];
		380
		381	audio_music_start;
		382	}
		383	}
		384
		385	sub audio_music_set_ambient {
		386	my ($songs) = @_;
		387
		388	$MUSIC_WANT = $songs;
		389	audio_music_push;
		390	}
		391
		392	sub audio_music_finished {
		393	if ($MUSIC_PLAYING_META) {
		394	$MUSIC_PLAYING_META->{stop_time} = time;
		395	}
		396
		397	# we compress multiple jingles of the same type
		398	shift @MUSIC_JINGLE
		399	while @MUSIC_JINGLE && $MUSIC_PLAYING_META == $MUSIC_JINGLE[0];
		400
		401	$MUSIC_PLAYING_WIDGET->clear;
		402
		403	undef $MUSIC_PLAYER;
		404	undef $MUSIC_PLAYING_META;
		405	undef $MUSIC_PLAYING_DATA;
		406
		407	audio_music_push;
		408	}
		409
		410	sub audio_init {
		411	if ($CFG->{audio_enable}) {
		412	$ENV{MIX_EFFECTSMAXSPEED} = 1;
		413	$SDL_MIXER = !CFPlus::Mix_OpenAudio
		414	$CFG->{audio_hw_frequency},
		415	CFPlus::MIX_DEFAULT_FORMAT,
		416	$CFG->{audio_hw_channels},
		417	$CFG->{audio_hw_chunksize};
		418
		419	if ($SDL_MIXER) {
		420	CFPlus::Mix_AllocateChannels $CFG->{audio_mix_channels};
		421
		422	audio_music_finished;
		423	} else {
		424	status "Unable to open sound device: there will be no sound";
		425	}
		426	} else {
		427	undef $SDL_MIXER;
		428	}
		429
		430	sub audio_tab_update;
		431	audio_tab_update;
		432	}
		433
		434	sub audio_shutdown {
		435	undef $MUSIC_PLAYER;
		436	undef $MUSIC_PLAYING_META;
		437	undef $MUSIC_PLAYING_DATA;
		438
		439	$MUSIC_WANT = [];
		440	@MUSIC_JINGLE = ();
		441	%AUDIO_PLAY = ();
		442	%AUDIO_CHUNK = ();
		443
		444	CFPlus::Mix_CloseAudio if $SDL_MIXER;
		445	undef $SDL_MIXER;
		446	}
		447
		448	#############################################################################
197		449
198	sub destroy_query_dialog {	450	sub destroy_query_dialog {
199	(delete $_[0]{query_dialog})->destroy	451	(delete $_[0]{query_dialog})->destroy
200	if $_[0]{query_dialog};	452	if $_[0]{query_dialog};
201	}	453	}
…		…
481	$SETUP_DIALOG->show;	733	$SETUP_DIALOG->show;
482	$PL_WINDOW->hide;	734	$PL_WINDOW->hide;
483	$SPELL_LIST->clear_spells;	735	$SPELL_LIST->clear_spells;
484	$CFPlus::UI::ROOT->emit (stop_game => ! ! $CONN);	736	$CFPlus::UI::ROOT->emit (stop_game => ! ! $CONN);
485		737
486	&audio_music_set ([]);	738	&audio_music_set_ambient ([]);
487		739
488	return unless $CONN;	740	return unless $CONN;
489		741
490	status "connection closed";	742	status "connection closed";
491		743
…		…
533	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fullscreen");	785	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fullscreen");
534	$table->add_at (1, $row++, $FULLSCREEN_ENABLE = new CFPlus::UI::CheckBox	786	$table->add_at (1, $row++, $FULLSCREEN_ENABLE = new CFPlus::UI::CheckBox
535	state => $CFG->{fullscreen},	787	state => $CFG->{fullscreen},
536	tooltip => "Bring the client into fullscreen mode.",	788	tooltip => "Bring the client into fullscreen mode.",
537	on_changed => sub { my ($self, $value) = @_; $CFG->{fullscreen} = $value; 0 }	789	on_changed => sub { my ($self, $value) = @_; $CFG->{fullscreen} = $value; 0 }
		790	);
		791
		792	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Force OpenGL 1.1");
		793	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
		794	state => $CFG->{force_opengl11},
		795	tooltip => "Limit CFPlus to use OpenGL 1.1 features only. This will normally result in "
		796	. "higher memory usage and slower performance. It will, however, help tremendously on "
		797	. "cards that claim to support a feature but fall back to software rendering. "
		798	. "Nvidia Geforce FX cards are known to claim features the hardware doesn't support, "
		799	. "but cards and drivers from other vendors (ATI) are often just as bad. <b>If you "
		800	. "experience extremely low framerates and your card should do better, try this option.</b>",
		801	on_changed => sub { my ($self, $value) = @_; $CFG->{force_opengl11} = $value; 0 }
		802	);
		803
		804	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Compress Textures");
		805	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
		806	state => $CFG->{texture_compression},
		807	tooltip => "Use texture compression. Normally this will not reduce visual quality noticable but "
		808	. "will save a lot of memory and increase performance. The compression algorithm "
		809	. "can differ form card to card, so your mileage may vary. This setting is ignored in "
		810	. "forced OpenGL 1.1 mode.",
		811	on_changed => sub { my ($self, $value) = @_; $CFG->{texture_compression} = $value; 0 }
538	);	812	);
539		813
540	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fast & Ugly");	814	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fast & Ugly");
541	$table->add_at (1, $row++, new CFPlus::UI::CheckBox	815	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
542	state => $CFG->{fast},	816	state => $CFG->{fast},
…		…
570		844
571	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Map Smoothing");	845	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Map Smoothing");
572	$table->add_at (1, $row++, new CFPlus::UI::CheckBox	846	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
573	state => $CFG->{map_smoothing},	847	state => $CFG->{map_smoothing},
574	tooltip => "<b>Map Smoothing</b> tries to make tile borders less square. "	848	tooltip => "<b>Map Smoothing</b> tries to make tile borders less square. "
575	. "This increases load on the graphics subsystem and works only with 2.x servers. "	849	. "This increases load on the graphics subsystem and works only with TRT servers. "
576	. "Changes take effect at next connection only.",	850	. "Changes take effect at next login only.",
577	on_changed => sub { my ($self, $value) = @_; $CFG->{map_smoothing} = $value; 0 }	851	on_changed => sub { my ($self, $value) = @_; $CFG->{map_smoothing} = $value; 0 }
578	);	852	);
579		853
580	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fog of War");	854	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fog of War");
581	$table->add_at (1, $row++, new CFPlus::UI::CheckBox	855	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
…		…
592	);	866	);
593		867
594	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Message Fontsize");	868	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Message Fontsize");
595	$table->add_at (1, $row++, new CFPlus::UI::Slider	869	$table->add_at (1, $row++, new CFPlus::UI::Slider
596	range => [$CFG->{log_fontsize}, 0.5, 2, 0, 0.1],	870	range => [$CFG->{log_fontsize}, 0.5, 2, 0, 0.1],
597	tooltip => "The font size used by the <b>message/server log</b> window only. Changes are instant.",	871	tooltip => "The font size used by the <b>message/server log</b> window only. Changes are instant, "
		872	. "but you still need to press apply to correctly re-layout the widget.",
598	on_changed => sub { $MESSAGE_WINDOW->set_fontsize ($CFG->{log_fontsize} = $_[1]); 0 },	873	on_changed => sub { $MESSAGE_WINDOW->set_fontsize ($CFG->{log_fontsize} = $_[1]); 0 },
599	);	874	);
600		875
601	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Gauge fontsize");	876	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Gauge fontsize");
602	$table->add_at (1, $row++, new CFPlus::UI::Slider	877	$table->add_at (1, $row++, new CFPlus::UI::Slider
…		…
621	);	896	);
622		897
623	$vbox	898	$vbox
624	}	899	}
625		900
		901	our $AUDIO_HW_CHUNKSIZE;
		902	our $AUDIO_INFO;
		903
		904	sub audio_tab_update {
		905	my ($freq, $format, $chans) = CFPlus::Mix_QuerySpec;
		906
		907	$AUDIO_HW_CHUNKSIZE->set_options ([
		908	[0, "default", "Use System Default"],
		909	map {
		910	my $ms = sprintf "%dms", 1000 * $_ / ($CFG->{audio_hw_frequency} \|\| 22050);
		911	[$_, $ms, "$ms ($_ samples)"],
		912	} 256, 512, 1024, 2048, 4096, 8192, 16384, 32768
		913	]);
		914
		915	my $text = !$freq
		916	? "audio is off"
		917	: "audio is enabled\n"
		918	. "frequency (Hz): $freq\n"
		919	. "channels: $chans";
		920
		921	$AUDIO_INFO->set_text ($text);
		922	}
		923
626	sub audio_setup {	924	sub audio_setup {
627	my $vbox = new CFPlus::UI::VBox;	925	my $vbox = new CFPlus::UI::VBox;
628		926
629	$vbox->add (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]);	927	$vbox->add (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 0, 1]);
630		928
631	my $row = 0;	929	my $row = 0;
632		930
633	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Audio Enable");	931	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Audio Enable");
634	$table->add_at (1, $row++, new CFPlus::UI::CheckBox	932	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
635	state => $CFG->{audio_enable},	933	state => $CFG->{audio_enable},
636	tooltip => "<b>Master Audio Enable.</b> If enabled, sound effects and music will be played. If disabled, no audio will be used and the soundcard will not be opened.",	934	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.",
637	on_changed => sub { $CFG->{audio_enable} = $_[1]; 0 }	935	on_changed => sub { $CFG->{audio_enable} = $_[1]; 1 }
638	);	936	);
		937
639	# $table->add_at (0, 9, new CFPlus::UI::Label valign => 0, align => 1, text => "Effects Volume");	938	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Sound Effects");
640	# $table->add_at (1, 8, new CFPlus::UI::Slider range => [$CFG->{effects_volume}, 0, 128, 1], on_changed => sub {	939	$table->add_at (1, $row, new CFPlus::UI::CheckBox
		940	expand => 1, state => $CFG->{effects_enable},
		941	tooltip => "If enabled, sound effects are enabled. If disabled, no sound effects will be played.",
		942	on_changed => sub {
641	# $CFG->{effects_volume} = $_[1];	943	$CFG->{effects_enable} = $_[1];
642	# });	944	$CONN->update_fx_want if $CONN;
		945	1
		946	}
		947	);
		948	$table->add_at (2, $row++, new CFPlus::UI::Slider
		949	expand => 1, range => [$CFG->{effects_volume}, 0, 1, 0, 1/128],
		950	tooltip => "The relative volume of sound effects. Best audio quality is achieved if this "
		951	. "is set highest (rightmost) and you use your operating system volume setting. Changes are instant.",
		952	on_changed => sub { $CFG->{effects_volume} = $_[1]; 1 }
		953	);
		954
643	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Background Music");	955	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Background Music");
644	$table->add_at (1, $row++, my $hbox = new CFPlus::UI::HBox);	956	$table->add_at (1, $row, new CFPlus::UI::CheckBox
645	$hbox->add (new CFPlus::UI::CheckBox
646	expand => 1, state => $CFG->{bgm_enable},	957	expand => 1, state => $CFG->{bgm_enable},
647	tooltip => "If enabled, playing of background music is enabled. If disabled, no background music will be played.",	958	tooltip => "If enabled, playing of background music is enabled. If disabled, no background music will be played.",
648	on_changed => sub { $CFG->{bgm_enable} = $_[1]; 0 }	959	on_changed => sub {
		960	$CFG->{bgm_enable} = $_[1];
		961	$CONN->update_fx_want if $CONN;
		962	audio_music_push;
		963	1
		964	}
649	);	965	);
650	$hbox->add (new CFPlus::UI::Slider	966	$table->add_at (2, $row++, new CFPlus::UI::Slider
651	expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0, 1/128],	967	expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0, 1/128],
652	tooltip => "The volume of the background music. Changes are instant.",	968	tooltip => "The volume of the background music. Changes are instant.",
653	on_changed => sub { $CFG->{bgm_volume} = $_[1]; CFPlus::MixMusic::volume $_[1] * 128; 0 }	969	on_changed => sub { $CFG->{bgm_volume} = $_[1]; audio_music_update_volume; 0 }
		970	);
		971
		972	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Frequency");
		973	$table->add_at (1, $row++, new CFPlus::UI::Selector
		974	c_colspan => 2, expand => 1,
		975	value => $CFG->{audio_hw_frequency},
		976	options => [
		977	[ 0, "default" , "Use System Default"],
		978	[11025, "11 kHz" , "11kHz (low quality)"],
		979	[22050, "22 kHz" , "22kHz (reduced quality)"],
		980	[44100, "44.1 kHz", "44.1kHz (cd quality)"],
		981	[48000, "48 kHz" , "48kHz (studio quality)"],
		982	],
		983	tooltip => "The sampling frequency to use. Higher sounds better, but also more cpu-intensive and might cause stuttering.",
		984	on_changed => sub {
		985	$CFG->{audio_hw_frequency} = $_[1];
		986	audio_tab_update;
		987	1
		988	}
		989	);
		990
		991	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Channels");
		992	$table->add_at (1, $row++, new CFPlus::UI::Selector
		993	c_colspan => 2, expand => 1,
		994	value => $CFG->{audio_hw_channels},
		995	options => [
		996	[0, "default" , "Use System Default"],
		997	[1, "Mono" , "Mono (single channel, low quality)"],
		998	[2, "Stereo" , "Stereo (dual channe, standard quality)"],
		999	[4, "4 Ch Surround", "4 Channel Surround Sound (3d sound, high quality)"],
		1000	[6, "6 Ch Surround", "6 Channel Surround Sound (3d sound + center + lfe)"],
		1001	],
		1002	tooltip => "The number of independent sound channels to use. Higher sounds better, but also more cpu-intensive and might cause stuttering.",
		1003	on_changed => sub {
		1004	$CFG->{audio_hw_channels} = $_[1];
		1005	audio_tab_update;
		1006	1
		1007	}
		1008	);
		1009
		1010	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Latency");
		1011	$table->add_at (1, $row++, $AUDIO_HW_CHUNKSIZE = new CFPlus::UI::Selector
		1012	c_colspan => 2, expand => 1,
		1013	value => $CFG->{audio_hw_chunksize},
		1014	tooltip => "The guarenteed latency. Lower is better, but also more cpu-intensive and might cause stuttering. If music playback "
		1015	. "is stuttering, increase this value. Values of 50-100ms are optimal.",
		1016	on_changed => sub {
		1017	$CFG->{audio_hw_chunksize} = $_[1];
		1018	audio_tab_update;
		1019	1
		1020	}
		1021	);
		1022
		1023	# should really be a slider
		1024	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Mixer Voices");
		1025	$table->add_at (1, $row++, new CFPlus::UI::ValSlider
		1026	c_colspan => 2, expand => 1,
		1027	tooltip => "The number of simultaneous sound effects possible. Higher is better, but also more cpu-intensive and might cause stuttering.",
		1028	range => [$::CFG->{audio_mix_channels}, 4, 32, 0, 1],
		1029	template => ">= 99",
		1030	on_changed => sub {
		1031	my ($slider, $value) = @_;
		1032
		1033	$CFG->{audio_mix_channels} = $value
		1034	if $value;
		1035	1;
		1036	}
654	);	1037	);
655		1038
656	$table->add_at (1, $row++, new CFPlus::UI::Button	1039	$table->add_at (1, $row++, new CFPlus::UI::Button
657	expand => 1, align => 0, text => "Apply",	1040	c_colspan => 2, expand => 1, align => 0, text => "Apply",
658	tooltip => "Apply the audio settings",	1041	tooltip => "Apply the audio settings",
659	on_activate => sub {	1042	on_activate => sub {
660	audio_shutdown ();	1043	audio_shutdown ();
661	audio_init ();	1044	audio_init ();
662	0	1045	0
663	}	1046	}
664	);	1047	);
		1048
		1049	$vbox->add (new CFPlus::UI::FancyFrame
		1050	expand => 1,
		1051	label => "Audio Info",
		1052	child => ($AUDIO_INFO = new CFPlus::UI::Label ellipsise => 0),
		1053	);
		1054
		1055	audio_tab_update;
665		1056
666	$vbox	1057	$vbox
667	}	1058	}
668		1059
669	sub set_gauge_window_fontsize {	1060	sub set_gauge_window_fontsize {
…		…
704	$hb->add (my $hg = new CFPlus::UI::Gauge type => 'hp', tooltip => "#stat_health");	1095	$hb->add (my $hg = new CFPlus::UI::Gauge type => 'hp', tooltip => "#stat_health");
705	$hb->add (my $mg = new CFPlus::UI::Gauge type => 'mana', tooltip => "#stat_mana");	1096	$hb->add (my $mg = new CFPlus::UI::Gauge type => 'mana', tooltip => "#stat_mana");
706	$hb->add (my $gg = new CFPlus::UI::Gauge type => 'grace', tooltip => "#stat_grace");	1097	$hb->add (my $gg = new CFPlus::UI::Gauge type => 'grace', tooltip => "#stat_grace");
707	$hb->add (my $fg = new CFPlus::UI::Gauge type => 'food', tooltip => "#stat_food");	1098	$hb->add (my $fg = new CFPlus::UI::Gauge type => 'food', tooltip => "#stat_food");
708		1099
709	$vbox->add (my $exp = new CFPlus::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1, tooltip => "#stat_exp");	1100	$vbox->add (my $exp = new CFPlus::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1, tooltip => "#stat_exp");
		1101	$vbox->add (my $prg = new CFPlus::UI::ExperienceProgress);
		1102	$vbox->add (my $sklprg = new CFPlus::UI::ExperienceProgress);
710	$vbox->add (my $rng = new CFPlus::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1, tooltip => "#stat_ranged");	1103	$vbox->add (my $rng = new CFPlus::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1, tooltip => "#stat_ranged");
711		1104
712	$GAUGES = {	1105	$GAUGES = {
		1106	exp => $exp, prg => $prg, sklprg => $sklprg,
713	exp => $exp, win => $win, range => $rng,	1107	win => $win, range => $rng,
714	food => $fg, mana => $mg, hp => $hg, grace => $gg	1108	hp => $hg, mana => $mg, grace => $gg, food => $fg,
715	};	1109	};
716		1110
717	&set_gauge_window_fontsize;	1111	&set_gauge_window_fontsize;
718		1112
719	$win	1113	$win
…		…
733	$table->add_at (0, 4, new CFPlus::UI::Button text => "die on click(tm)", on_activate => sub { &CFPlus::debug() } );	1127	$table->add_at (0, 4, new CFPlus::UI::Button text => "die on click(tm)", on_activate => sub { &CFPlus::debug() } );
734		1128
735	$table->add_at (0, 5, new CFPlus::UI::TextEdit text => "line1\0152\0153");#d#	1129	$table->add_at (0, 5, new CFPlus::UI::TextEdit text => "line1\0152\0153");#d#
736		1130
737	$table->add_at (7,7, my $t = new CFPlus::UI::Table expand => 0);	1131	$table->add_at (7,7, my $t = new CFPlus::UI::Table expand => 0);
738	$t->add_at (0,0, new CFPlus::UI::Label text => "a a a a", rowspan => 1, colspan => 2);	1132	$t->add_at (0,0, new CFPlus::UI::Label text => "a a a a", c_rowspan => 1, c_colspan => 2);
739	$t->add_at (2,0, new CFPlus::UI::Label text => "b\nb", rowspan => 2, colspan => 1);	1133	$t->add_at (2,0, new CFPlus::UI::Label text => "b\nb", c_rowspan => 2, c_colspan => 1);
740	$t->add_at (1,2, new CFPlus::UI::Label text => "c c c c", rowspan => 1, colspan => 2);	1134	$t->add_at (1,2, new CFPlus::UI::Label text => "c c c c", c_rowspan => 1, c_colspan => 2);
741	$t->add_at (0,1, new CFPlus::UI::Label text => "d\nd", rowspan => 2, colspan => 1);	1135	$t->add_at (0,1, new CFPlus::UI::Label text => "d\nd", c_rowspan => 2, c_colspan => 1);
742	$t->add_at (1,1, new CFPlus::UI::Label text => "e");	1136	$t->add_at (1,1, new CFPlus::UI::Label text => "e");
743		1137
744	$table->add_at (7, 6, my $c = new CFPlus::UI::Canvas);	1138	$table->add_at (7, 6, my $c = new CFPlus::UI::Canvas);
745		1139
746	$c->add_items ({	1140	$c->add_items ({
…		…
920	$r	1314	$r
921	}	1315	}
922		1316
923	sub skill_window {	1317	sub skill_window {
924	my $sw = new CFPlus::UI::ScrolledWindow (expand => 1);	1318	my $sw = new CFPlus::UI::ScrolledWindow (expand => 1);
		1319
925	$sw->add ($STATWIDS->{skill_tbl} = new CFPlus::UI::Table expand => 1, col_expand => [0, 0, 1, 0, 0, 1]);	1320	$sw->add ($STATWIDS->{skill_tbl} = new CFPlus::UI::Table expand => 1, col_expand => [0, 0, 1, .1, 0, 0, 1, .1]);
		1321
926	$sw	1322	$sw
927	}	1323	}
928		1324
929	sub formsep($) {	1325	sub formsep($) {
930	scalar reverse join ",", unpack "(A3)", reverse $_[0] 1	1326	scalar reverse join ",", unpack "(A3)", reverse $_[0] 1
…		…
1342	$sw1->add ($INV = new CFPlus::UI::Inventory);	1738	$sw1->add ($INV = new CFPlus::UI::Inventory);
1343	$INV->set_sort_order ($SORT_ORDER{$::CFG->{inv_sort}});	1739	$INV->set_sort_order ($SORT_ORDER{$::CFG->{inv_sort}});
1344		1740
1345	$hb->add (my $vb2 = new CFPlus::UI::VBox);	1741	$hb->add (my $vb2 = new CFPlus::UI::VBox);
1346		1742
1347	$vb2->add ($INV_RIGHT_HB = new CFPlus::UI::HBox);	1743	$vb2->add ($INVR_HB = new CFPlus::UI::HBox);
1348		1744
1349	$vb2->add (my $sw2 = new CFPlus::UI::ScrolledWindow expand => 1, scroll_y => 1);	1745	$vb2->add (my $sw2 = new CFPlus::UI::ScrolledWindow expand => 1, scroll_y => 1);
1350	$sw2->add ($INVR = new CFPlus::UI::Inventory);	1746	$sw2->add ($INVR = new CFPlus::UI::Inventory);
1351		1747
1352	# XXX: Call after $INVR = ... because set_opencont sets the items	1748	# XXX: Call after $INVR = ... because set_opencont sets the items
1353	CFPlus::Protocol::set_opencont ($::CONN, 0, "Floor");	1749	CFPlus::Protocol::set_opencont ($::CONN, 0, "Floor");
1354		1750
1355	$hb	1751	$hb
		1752	}
		1753
		1754	sub media_window {
		1755	my $vb = new CFPlus::UI::VBox;
		1756
		1757	$vb->add (new CFPlus::UI::FancyFrame
		1758	label => "Currently playing music",
		1759	child => new CFPlus::UI::ScrolledWindow scroll_x => 1, scroll_y => 0,
		1760	child => ($MUSIC_PLAYING_WIDGET = new CFPlus::UI::Label ellipsise => 0, fontsize => 0.8),
		1761	);
		1762
		1763	$vb->add (new CFPlus::UI::FancyFrame
		1764	label => "Other media used in this session",
		1765	expand => 1,
		1766	child => ($LICENSE_WIDGET = new CFPlus::UI::TextScroller
		1767	expand => 1, fontsize => 0.8, padding_x => 4, padding_y => 4),
		1768	);
		1769
		1770	$vb
		1771	}
		1772
		1773	sub add_license {
		1774	my ($meta) = @_;
		1775
		1776	$meta = $meta->{data}
		1777	or return;
		1778
		1779	$meta->{license} \|\| $meta->{author} \|\| $meta->{source}
		1780	or return;
		1781
		1782	$LICENSE_WIDGET->add_paragraph ({
		1783	fg => [1, 1, 1, 1],
		1784	markup => "<small>"
		1785	. "<b>Name:</b> " . (CFPlus::asxml $meta->{name}) . "\n"
		1786	. "<b>Author:</b> " . (CFPlus::asxml $meta->{author}) . "\n"
		1787	. "<b>Source:</b> " . (CFPlus::asxml $meta->{source}) . "\n"
		1788	. "<b>License:</b> " . (CFPlus::asxml $meta->{license}) . "\n"
		1789	. "</small>",
		1790	});
		1791	$LICENSE_WIDGET->scroll_to_bottom;
1356	}	1792	}
1357		1793
1358	sub toggle_player_page {	1794	sub toggle_player_page {
1359	my ($widget) = @_;	1795	my ($widget) = @_;
1360		1796
…		…
1399	$ntb->add_tab (	1835	$ntb->add_tab (
1400	"Inventory (F5)" => $INVENTORY_PAGE = inventory_widget,	1836	"Inventory (F5)" => $INVENTORY_PAGE = inventory_widget,
1401	"Toggles the inventory window, where you can manage your loot (or treasures :). "	1837	"Toggles the inventory window, where you can manage your loot (or treasures :). "
1402	. "You can also hit the <b>Tab</b>-key to show/hide the Inventory."	1838	. "You can also hit the <b>Tab</b>-key to show/hide the Inventory."
1403	);	1839	);
1404	$ntb->add_tab (Pickup => autopickup_setup,	1840	$ntb->add_tab (Pickup => $PICKUP_PAGE = autopickup_setup,
1405	"Configure autopickup settings, i.e. which items you will pick up automatically when walking (or running) over them.");	1841	"Configure autopickup settings, i.e. which items you will pick up automatically when walking (or running) over them.");
		1842
		1843	$ntb->add_tab (Media => media_window,
		1844	"License, Author and Source info for media sent by the server.");
1406		1845
1407	$ntb->set_current_page ($INVENTORY_PAGE);	1846	$ntb->set_current_page ($INVENTORY_PAGE);
1408		1847
1409	$plwin->add ($ntb);	1848	$plwin->add ($ntb);
1410	$plwin	1849	$plwin
…		…
1564	on_activate => sub { $QUIT_DIALOG->hide; 0 },	2003	on_activate => sub { $QUIT_DIALOG->hide; 0 },
1565	);	2004	);
1566	$hb->add (new CFPlus::UI::Button	2005	$hb->add (new CFPlus::UI::Button
1567	text => "Quit anyway",	2006	text => "Quit anyway",
1568	expand => 1,	2007	expand => 1,
1569	on_activate => sub { exit },	2008	on_activate => sub { Event::unloop_all },
1570	);	2009	);
1571	}	2010	}
1572		2011
1573	$QUIT_DIALOG->show;	2012	$QUIT_DIALOG->show;
1574	$QUIT_DIALOG->grab_focus;	2013	$QUIT_DIALOG->grab_focus;
…		…
1647		2086
1648	$SDL_ACTIVE = 1;	2087	$SDL_ACTIVE = 1;
1649	$LAST_REFRESH = time - 0.01;	2088	$LAST_REFRESH = time - 0.01;
1650		2089
1651	CFPlus::OpenGL::init;	2090	CFPlus::OpenGL::init;
		2091	CFPlus::Macro::init;
1652		2092
1653	$FONTSIZE = int $HEIGHT / 40 * $CFG->{gui_fontsize};	2093	$FONTSIZE = int $HEIGHT / 40 * $CFG->{gui_fontsize};
1654		2094
1655	$CFPlus::UI::ROOT->configure (0, 0, $WIDTH, $HEIGHT);#d#	2095	$CFPlus::UI::ROOT->configure (0, 0, $WIDTH, $HEIGHT);#d#
1656		2096
1657	#############################################################################	2097	#############################################################################
1658		2098
1659	if ($DEBUG_STATUS) {	2099	if ($DEBUG_STATUS) {
1660	CFPlus::UI::rescale_widgets $WIDTH / $old_w, $HEIGHT / $old_h;	2100	CFPlus::UI::rescale_widgets $WIDTH / $old_w, $HEIGHT / $old_h;
1661	} else {	2101	} else {
1662	# create the widgets	2102	# create/configure the widgets
		2103
		2104	$CFPlus::UI::ROOT->connect (key_down => sub {
		2105	my (undef, $ev) = @_;
		2106
		2107	if (my @macros = CFPlus::Macro::find $ev) {
		2108	CFPlus::Macro::execute $_ for @macros;
		2109
		2110	return 1;
		2111	}
		2112
		2113	0
		2114	});
1663		2115
1664	$DEBUG_STATUS = new CFPlus::UI::Label	2116	$DEBUG_STATUS = new CFPlus::UI::Label
1665	padding => 0,	2117	padding => 0,
1666	z => 100,	2118	z => 100,
1667	force_x => "max",	2119	force_x => "max",
…		…
1697	$MESSAGE_WINDOW->activate_console ($preset)	2149	$MESSAGE_WINDOW->activate_console ($preset)
1698	if $MESSAGE_WINDOW;	2150	if $MESSAGE_WINDOW;
1699	});	2151	});
1700	$MAPWIDGET->show;	2152	$MAPWIDGET->show;
1701	$MAPWIDGET->grab_focus;	2153	$MAPWIDGET->grab_focus;
		2154
		2155	$COMPLETER = new CFPlus::MapWidget::Command::
		2156	command => { },
		2157	tooltip => "#completer_help",
		2158	;
1702		2159
1703	$SETUP_DIALOG = new CFPlus::UI::Toplevel	2160	$SETUP_DIALOG = new CFPlus::UI::Toplevel
1704	title => "Setup",	2161	title => "Setup",
1705	name => "setup_dialog",	2162	name => "setup_dialog",
1706	x => 'center',	2163	x => 'center',
…		…
1768	tooltip => "Terminates the program",	2225	tooltip => "Terminates the program",
1769	on_activate => sub {	2226	on_activate => sub {
1770	if ($CONN) {	2227	if ($CONN) {
1771	open_quit_dialog;	2228	open_quit_dialog;
1772	} else {	2229	} else {
1773	exit;	2230	Event::unloop_all;
1774	}	2231	}
1775	0	2232	0
1776	},	2233	},
1777	);	2234	);
1778		2235
1779	$BUTTONBAR->show;	2236	$BUTTONBAR->show;
1780	$SETUP_DIALOG->show;	2237	$SETUP_DIALOG->show;
		2238	$MESSAGE_WINDOW->show;
1781	}	2239	}
1782		2240
1783	$STATUSBOX->add ("Set video mode $WIDTH×$HEIGHT", timeout => 10, fg => [1, 1, 1, 0.5]);	2241	$STATUSBOX->add ("Set video mode $WIDTH×$HEIGHT", timeout => 10, fg => [1, 1, 1, 0.5]);
1784	}	2242	}
1785		2243
…		…
1787	CFPlus::OpenGL::shutdown;	2245	CFPlus::OpenGL::shutdown;
1788		2246
1789	undef $SDL_ACTIVE;	2247	undef $SDL_ACTIVE;
1790	}	2248	}
1791		2249
1792	sub audio_channel_finished {
1793	my ($channel) = @_;
1794
1795	# warn "channel $channel finished\n";#d#
1796	}
1797
1798	our %AUDIO_PLAY;
1799	our %AUDIO_CHUNK;
1800
1801	sub audio_sound_push($) {
1802	my ($face) = @_;
1803
1804	if (my $chunk = $AUDIO_CHUNK{$face}) {
1805	for (grep $_->[0] >= Event::time, @{(delete $AUDIO_PLAY{$face}) \|\| []}) {
1806	my (undef, $dx, $dy, $vol) = @$_;
1807
1808	my $channel = $chunk->play
1809	or return;
1810
1811	$channel->volume (128 + $vol);
1812	$dx = $dx / 10 * 255;
1813	$channel->set_panning ((min 255, 255 - $dx), (min 255, 255 + $dx));
1814	# my $angle = $dx ? : $dx < 0 ?
1815	# my $distance = -$vol;
1816	# $channel->set_position ($angle, $distance);
1817	}
1818	} else {
1819	# sound_meta not set means data is in flight either way
1820	my $meta = $CONN->{sound_meta}{$face}
1821	or return;
1822
1823	# fetch from database
1824	CFPlus::DB::get res_data => $meta->{name}, sub {
1825	my $vol = $meta->{meta}{volume} \|\| 100;
1826	my $rwops = new CFPlus::RW $_[0];
1827	my $chunk = new CFPlus::MixChunk $rwops;
1828	$chunk->volume ($vol * 128 / 100);
1829	$AUDIO_CHUNK{$face} = $chunk;
1830
1831	audio_sound_push ($face);
1832	};
1833	}
1834	}
1835
1836	sub audio_sound_play {
1837	my ($face, $dx, $dy, $vol) = @_;
1838
1839	$SDL_MIXER
1840	or return;
1841
1842	my $queue = $AUDIO_PLAY{$face} \|\|= [];
1843	push @$queue, [Event::time + 0.2, $dx, $dy, $vol]; # delay sound by max. 0.2s
1844	audio_sound_push $face
1845	unless @$queue > 1;
1846	}
1847
1848	sub audio_music_set {
1849	my ($songs) = @_;
1850
1851	my @want =
1852	grep $_,
1853	map $CONN->{music_meta}{$_},
1854	@$songs;
1855
1856	if (@want) {
1857	@MUSIC_WANT = @want;
1858	&audio_music_changed ();
1859	}
1860	}
1861
1862	sub audio_music_start {
1863	my $meta = $MUSIC_PLAYING_META;
1864
1865	CFPlus::DB::get res_data => $meta->{name}, sub {
1866	return unless $SDL_MIXER;
1867
1868	# music might have changed...
1869	$meta eq $MUSIC_PLAYING_META
1870	or return &audio_music_start ();
1871
1872	$MUSIC_PLAYING_DATA = \$_[0];
1873
1874	my $rwops = $meta->{path}
1875	? new_from_file CFPlus::RW $meta->{path}
1876	: new CFPlus::RW $$MUSIC_PLAYING_DATA;
1877
1878	$MUSIC_PLAYER = new CFPlus::MixMusic $rwops
1879	or ((warn CFPlus::Mix_GetError), return); # pretty fatal error
1880
1881	my $NOW = time;
1882
1883	if ($MUSIC_PLAYING_META->{stop_time} > $NOW - $MUSIC_RESUME) {
1884	my $pos = $MUSIC_PLAYING_META->{stop_pos};
1885	$MUSIC_PLAYER->fade_in_pos (0, 1000, $pos);
1886	$MUSIC_START = time - $pos;
1887	} else {
1888	$MUSIC_PLAYER->play (0);
1889	$MUSIC_START = time;
1890	}
1891
1892	delete $MUSIC_PLAYING_META->{stop_time};
1893	delete $MUSIC_PLAYING_META->{stop_pos};
1894	}
1895	}
1896
1897	sub audio_music_changed {
1898	return unless $CFG->{bgm_enable};
1899	return unless $SDL_MIXER;
1900
1901	# default MUSIC_WANT == MUSIC_DEFAULT
1902	@MUSIC_WANT = { path => CFPlus::find_rcfile "music/$MUSIC_DEFAULT" } unless @MUSIC_WANT;
1903
1904	# if the currently playing song is acceptable, let it continue
1905	return if $MUSIC_PLAYING_META
1906	&& grep $MUSIC_PLAYING_META == $_, @MUSIC_WANT;
1907
1908	my $NOW = time;
1909
1910	if ($MUSIC_PLAYING_META) {
1911	$MUSIC_PLAYING_META->{stop_time} = $NOW;
1912	$MUSIC_PLAYING_META->{stop_pos} = $NOW - $MUSIC_START;
1913	CFPlus::MixMusic::fade_out 1000;
1914	} else {
1915	# sort by stop time, oldest first
1916	@MUSIC_WANT = sort { $a->{stop_time} <=> $b->{stop_time} } @MUSIC_WANT;
1917
1918	# if the most recently-played piece played very recently,
1919	# resume it, else choose the oldest piece for rotation.
1920	$MUSIC_PLAYING_META =
1921	$MUSIC_WANT[-1]{stop_time} > $NOW - $MUSIC_RESUME
1922	? $MUSIC_WANT[-1]
1923	: $MUSIC_WANT[0];
1924
1925	audio_music_start;
1926	}
1927	}
1928
1929	sub audio_music_finished {
1930	undef $MUSIC_PLAYER;
1931	undef $MUSIC_PLAYING_META;
1932	undef $MUSIC_PLAYING_DATA;
1933
1934	audio_music_changed;
1935	}
1936
1937	sub audio_init {
1938	if ($CFG->{audio_enable}) {
1939	$ENV{MIX_EFFECTSMAXSPEED} = 1;
1940	$SDL_MIXER = !CFPlus::Mix_OpenAudio;
1941
1942	unless ($SDL_MIXER) {
1943	status "Unable to open sound device: there will be no sound";
1944	return;
1945	}
1946
1947	CFPlus::Mix_AllocateChannels 16;
1948	CFPlus::MixMusic::volume $CFG->{bgm_volume} * 128;
1949
1950	audio_music_finished;
1951	} else {
1952	undef $SDL_MIXER;
1953	}
1954	}
1955
1956	sub audio_shutdown {
1957	CFPlus::Mix_CloseAudio if $SDL_MIXER;
1958	undef $SDL_MIXER;
1959	@SOUNDS = ();
1960	%AUDIO_CHUNKS = ();
1961	}
1962
1963	my %animate_object;	2250	my %animate_object;
1964	my $animate_timer;	2251	my $animate_timer;
1965		2252
1966	my $fps = 9;	2253	my $fps = 9;
1967		2254
1968	my %demo;#d#
1969
1970	sub force_refresh {	2255	sub force_refresh {
		2256	if ($ENV{CFPLUS_DEBUG} & 4) {
1971	$fps = $fps * 0.95 + 1 / (($NOW - $LAST_REFRESH) \|\| 0.1) * 0.05;	2257	$fps = $fps * 0.98 + 1 / (($NOW - $LAST_REFRESH) \|\| 0.1) * 0.02;
1972	debug sprintf "%3.2f", $fps if $ENV{CFPLUS_DEBUG} & 4;	2258	debug sprintf "%3.2f", $fps;
		2259	}
1973		2260
1974	$CFPlus::UI::ROOT->draw;	2261	$CFPlus::UI::ROOT->draw;
1975		2262	CFPlus::SDL_GL_SwapBuffers;
1976	$WANT_REFRESH = 0;
1977	$CAN_REFRESH = 0;
1978	$LAST_REFRESH = $NOW;	2263	$LAST_REFRESH = $NOW;
1979		2264	$WANT_REFRESH->stop;
1980	CFPlus::SDL_GL_SwapBuffers;
1981	}	2265	}
1982		2266
		2267	$WANT_REFRESH = Event->idle (min => 0.001, max => 0.06, parked => 1, cb => \&force_refresh);
		2268
1983	my $refresh_watcher = Event->timer (after => 0, hard => 0, interval => 1 / $MAX_FPS, cb => sub {	2269	my $input = Event->timer (after => 0, hard => 0, interval => 1 / 50, cb => sub {
1984	$NOW = time;	2270	$NOW = time;
1985		2271
1986	($SDL_CB{$_->{type}} \|\| sub { warn "unhandled event $_->{type}" })->($_)	2272	($SDL_CB{$_->{type}} \|\| sub { warn "unhandled event $_->{type}" })->($_)
1987	for CFPlus::poll_events;	2273	for CFPlus::poll_events;
1988		2274
1989	if (%animate_object) {	2275	if (%animate_object) {
1990	$_->animate ($LAST_REFRESH - $NOW) for values %animate_object;	2276	$_->animate ($LAST_REFRESH - $NOW) for values %animate_object;
1991	++$WANT_REFRESH;	2277	$WANT_REFRESH->start;
1992	}
1993
1994	if ($WANT_REFRESH) {
1995	force_refresh;
1996	} else {
1997	$CAN_REFRESH = 1;
1998	}	2278	}
1999	});	2279	});
2000		2280
2001	sub animation_start {	2281	sub animation_start {
2002	my ($widget) = @_;	2282	my ($widget) = @_;
…		…
2008	delete $animate_object{$widget};	2288	delete $animate_object{$widget};
2009	}	2289	}
2010		2290
2011	%SDL_CB = (	2291	%SDL_CB = (
2012	CFPlus::SDL_QUIT => sub {	2292	CFPlus::SDL_QUIT => sub {
2013	exit;	2293	Event::unloop_all;
2014	},	2294	},
2015	CFPlus::SDL_VIDEORESIZE => sub {	2295	CFPlus::SDL_VIDEORESIZE => sub {
2016	},	2296	},
2017	CFPlus::SDL_VIDEOEXPOSE => sub {	2297	CFPlus::SDL_VIDEOEXPOSE => sub {
2018	CFPlus::UI::full_refresh;	2298	CFPlus::UI::full_refresh;
…		…
2057	CFPlus::DB::Server::run;	2337	CFPlus::DB::Server::run;
2058		2338
2059	CFPlus::UI::set_layout ($::CFG->{layout});	2339	CFPlus::UI::set_layout ($::CFG->{layout});
2060		2340
2061	my %DEF_CFG = (	2341	my %DEF_CFG = (
2062	sdl_mode => 0,	2342	sdl_mode => 0,
2063	width => 640,
2064	height => 480,
2065	fullscreen => 0,	2343	fullscreen => 0,
2066	fast => 0,	2344	fast => 0,
		2345	force_opengl11 => undef,
		2346	texture_compression => 1,
2067	map_scale => 1,	2347	map_scale => 1,
2068	fow_enable => 1,	2348	fow_enable => 1,
2069	fow_intensity => 0,	2349	fow_intensity => 0,
2070	map_smoothing => 1,	2350	map_smoothing => 1,
2071	gui_fontsize => 1,	2351	gui_fontsize => 1,
2072	log_fontsize => 0.7,	2352	log_fontsize => 0.7,
2073	gauge_fontsize => 1,	2353	gauge_fontsize => 1,
2074	gauge_size => 0.35,	2354	gauge_size => 0.35,
2075	stat_fontsize => 0.7,	2355	stat_fontsize => 0.7,
2076	mapsize => 100,	2356	mapsize => 100,
2077	audio_enable => 1,	2357	audio_enable => 1,
		2358	audio_hw_channels => 0,
		2359	audio_hw_frequency => 0,
		2360	audio_hw_chunksize => 0,
		2361	audio_mix_channels => 8,
		2362	effects_enable => 1,
		2363	effects_volume => 1,
2078	bgm_enable => 1,	2364	bgm_enable => 1,
2079	bgm_volume => 0.25,	2365	bgm_volume => 0.5,
2080	output_sync => 1,	2366	output_sync => 1,
2081	output_count => 1,	2367	output_count => 1,
2082	output_rate => "",	2368	output_rate => "",
2083	pickup => 0,	2369	pickup => 0,
2084	inv_sort => "mtime",	2370	inv_sort => "mtime",
2085	default => "profile", # default profile	2371	default => "profile", # default profile
2086	show_tips => 1,	2372	show_tips => 1,
2087	logview_max_par => 1000,	2373	logview_max_par => 1000,
2088	);	2374	);
2089		2375
2090	while (my ($k, $v) = each %DEF_CFG) {	2376	while (my ($k, $v) = each %DEF_CFG) {
2091	$CFG->{$k} = $v unless exists $CFG->{$k};	2377	$CFG->{$k} = $v unless exists $CFG->{$k};
2092	}	2378	}
…		…
2149	# }	2435	# }
2150	# my $t2 = Time::HiRes::time;	2436	# my $t2 = Time::HiRes::time;
2151	# warn $t2-$t1;	2437	# warn $t2-$t1;
2152	# }	2438	# }
2153		2439
2154	$startup_done->();
2155
2156	video_init;	2440	video_init;
2157	audio_init;	2441	audio_init;
2158	}	2442	}
2159		2443
2160	show_tip_of_the_day if $CFG->{show_tips};	2444	show_tip_of_the_day if $CFG->{show_tips};
2161		2445
		2446	Event->idle (cb => sub {
		2447	$_[0]->w->cancel;
		2448	$startup_done->();
		2449	});
		2450
2162	Event::loop;	2451	Event::loop;
		2452
		2453	#video_shutdown;
		2454	#audio_shutdown;
2163	#CFPlus::SDL_Quit;	2455	CFPlus::SDL_Quit;
2164	#CFPlus::_exit 0;
2165
2166	END {
2167	CFPlus::SDL_Quit;
2168	CFPlus::DB::Server::stop;	2456	CFPlus::DB::Server::stop;
2169	}
2170		2457
2171	=head1 NAME	2458	=head1 NAME
2172		2459
2173	cfplus - A Crossfire+ and Crossfire game client	2460	cfplus - A Crossfire TRT and Crossfire game client
2174		2461
2175	=head1 SYNOPSIS	2462	=head1 SYNOPSIS
2176		2463
2177	Just run it - no commandline arguments are supported.	2464	Just run it - no commandline arguments are supported.
2178		2465
2179	=head1 USAGE	2466	=head1 USAGE
2180		2467
2181	cfplus utilises OpenGL for all UI elements and the game. It is supposed to be used	2468	cfplus utilises OpenGL for all UI elements and the game. It is supposed to
2182	fullscreen and interactively.	2469	be used in fullscreen mode and interactively.
2183		2470
2184	=head1 DEBUGGING	2471	=head1 DEBUGGING
2185		2472
2186		2473
2187	CFPLUS_DEBUG - environment variable	2474	CFPLUS_DEBUG - environment variable

Diff Legend

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

Comparing deliantra/Deliantra-Client/bin/cfplus (file contents): Revision 1.192 by root, Mon Jul 30 02:16:16 2007 UTC vs. Revision 1.230 by root, Mon Oct 8 17:05:29 2007 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/bin/cfplus (file contents):
Revision 1.192 by root, Mon Jul 30 02:16:16 2007 UTC vs.
Revision 1.230 by root, Mon Oct 8 17:05:29 2007 UTC