[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.227 by root, Sun Sep 2 09:48:42 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
		415	unless ($SDL_MIXER) {
		416	status "Unable to open sound device: there will be no sound";
		417	return;
		418	}
		419
		420	CFPlus::Mix_AllocateChannels 16;
		421
		422	audio_music_finished;
		423	} else {
		424	undef $SDL_MIXER;
		425	}
		426	}
		427
		428	sub audio_shutdown {
		429	undef $MUSIC_PLAYER;
		430	undef $MUSIC_PLAYING_META;
		431	undef $MUSIC_PLAYING_DATA;
		432
		433	$MUSIC_WANT = [];
		434	@MUSIC_JINGLE = ();
		435	%AUDIO_PLAY = ();
		436	%AUDIO_CHUNK = ();
		437
		438	CFPlus::Mix_CloseAudio if $SDL_MIXER;
		439	undef $SDL_MIXER;
		440	}
		441
		442	#############################################################################
197		443
198	sub destroy_query_dialog {	444	sub destroy_query_dialog {
199	(delete $_[0]{query_dialog})->destroy	445	(delete $_[0]{query_dialog})->destroy
200	if $_[0]{query_dialog};	446	if $_[0]{query_dialog};
201	}	447	}
…		…
481	$SETUP_DIALOG->show;	727	$SETUP_DIALOG->show;
482	$PL_WINDOW->hide;	728	$PL_WINDOW->hide;
483	$SPELL_LIST->clear_spells;	729	$SPELL_LIST->clear_spells;
484	$CFPlus::UI::ROOT->emit (stop_game => ! ! $CONN);	730	$CFPlus::UI::ROOT->emit (stop_game => ! ! $CONN);
485		731
486	&audio_music_set ([]);	732	&audio_music_set_ambient ([]);
487		733
488	return unless $CONN;	734	return unless $CONN;
489		735
490	status "connection closed";	736	status "connection closed";
491		737
…		…
533	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fullscreen");	779	$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	780	$table->add_at (1, $row++, $FULLSCREEN_ENABLE = new CFPlus::UI::CheckBox
535	state => $CFG->{fullscreen},	781	state => $CFG->{fullscreen},
536	tooltip => "Bring the client into fullscreen mode.",	782	tooltip => "Bring the client into fullscreen mode.",
537	on_changed => sub { my ($self, $value) = @_; $CFG->{fullscreen} = $value; 0 }	783	on_changed => sub { my ($self, $value) = @_; $CFG->{fullscreen} = $value; 0 }
		784	);
		785
		786	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Force OpenGL 1.1");
		787	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
		788	state => $CFG->{force_opengl11},
		789	tooltip => "Limit CFPlus to use OpenGL 1.1 features only. This will normally result in "
		790	. "higher memory usage and slower performance. It will, however, help tremendously on "
		791	. "cards that claim to support a feature but fall back to software rendering. "
		792	. "Nvidia Geforce FX cards are known to claim features the hardware doesn't support, "
		793	. "but cards and drivers from other vendors (ATI) are often just as bad. <b>If you "
		794	. "experience extremely low framerates and your card should do better, try this option.</b>",
		795	on_changed => sub { my ($self, $value) = @_; $CFG->{force_opengl11} = $value; 0 }
		796	);
		797
		798	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Compress Textures");
		799	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
		800	state => $CFG->{texture_compression},
		801	tooltip => "Use texture compression. Normally this will not reduce visual quality noticable but "
		802	. "will save a lot of memory and increase performance. The compression algorithm "
		803	. "can differ form card to card, so your mileage may vary. This setting is ignored in "
		804	. "forced OpenGL 1.1 mode.",
		805	on_changed => sub { my ($self, $value) = @_; $CFG->{texture_compression} = $value; 0 }
538	);	806	);
539		807
540	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fast & Ugly");	808	$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	809	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
542	state => $CFG->{fast},	810	state => $CFG->{fast},
…		…
570		838
571	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Map Smoothing");	839	$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	840	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
573	state => $CFG->{map_smoothing},	841	state => $CFG->{map_smoothing},
574	tooltip => "<b>Map Smoothing</b> tries to make tile borders less square. "	842	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. "	843	. "This increases load on the graphics subsystem and works only with TRT servers. "
576	. "Changes take effect at next connection only.",	844	. "Changes take effect at next login only.",
577	on_changed => sub { my ($self, $value) = @_; $CFG->{map_smoothing} = $value; 0 }	845	on_changed => sub { my ($self, $value) = @_; $CFG->{map_smoothing} = $value; 0 }
578	);	846	);
579		847
580	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fog of War");	848	$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	849	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
…		…
592	);	860	);
593		861
594	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Message Fontsize");	862	$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	863	$table->add_at (1, $row++, new CFPlus::UI::Slider
596	range => [$CFG->{log_fontsize}, 0.5, 2, 0, 0.1],	864	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.",	865	tooltip => "The font size used by the <b>message/server log</b> window only. Changes are instant, "
		866	. "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 },	867	on_changed => sub { $MESSAGE_WINDOW->set_fontsize ($CFG->{log_fontsize} = $_[1]); 0 },
599	);	868	);
600		869
601	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Gauge fontsize");	870	$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	871	$table->add_at (1, $row++, new CFPlus::UI::Slider
…		…
624	}	893	}
625		894
626	sub audio_setup {	895	sub audio_setup {
627	my $vbox = new CFPlus::UI::VBox;	896	my $vbox = new CFPlus::UI::VBox;
628		897
629	$vbox->add (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]);	898	$vbox->add (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 0, 1]);
630		899
631	my $row = 0;	900	my $row = 0;
632		901
633	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Audio Enable");	902	$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	903	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
…		…
638	);	907	);
639	# $table->add_at (0, 9, new CFPlus::UI::Label valign => 0, align => 1, text => "Effects Volume");	908	# $table->add_at (0, 9, new CFPlus::UI::Label valign => 0, align => 1, text => "Effects Volume");
640	# $table->add_at (1, 8, new CFPlus::UI::Slider range => [$CFG->{effects_volume}, 0, 128, 1], on_changed => sub {	909	# $table->add_at (1, 8, new CFPlus::UI::Slider range => [$CFG->{effects_volume}, 0, 128, 1], on_changed => sub {
641	# $CFG->{effects_volume} = $_[1];	910	# $CFG->{effects_volume} = $_[1];
642	# });	911	# });
		912
		913	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Sound Effects");
		914	$table->add_at (1, $row, new CFPlus::UI::CheckBox
		915	expand => 1, state => $CFG->{effects_enable},
		916	tooltip => "If enabled, sound effects are enabled. If disabled, no sound effects will be played.",
		917	on_changed => sub {
		918	$CFG->{effects_enable} = $_[1];
		919	$CONN->update_fx_want if $CONN;
		920	0
		921	}
		922	);
		923	$table->add_at (2, $row++, new CFPlus::UI::Slider
		924	expand => 1, range => [$CFG->{effects_volume}, 0, 1, 0, 1/128],
		925	tooltip => "The relative volume of sound effects. Best audio quality is achieved if this "
		926	. "is set highest (rightmost) and you use your operating system volume setting. Changes are instant.",
		927	on_changed => sub { $CFG->{effects_volume} = $_[1]; 0 }
		928	);
		929
643	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Background Music");	930	$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);	931	$table->add_at (1, $row, new CFPlus::UI::CheckBox
645	$hbox->add (new CFPlus::UI::CheckBox
646	expand => 1, state => $CFG->{bgm_enable},	932	expand => 1, state => $CFG->{bgm_enable},
647	tooltip => "If enabled, playing of background music is enabled. If disabled, no background music will be played.",	933	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 }	934	on_changed => sub {
		935	$CFG->{bgm_enable} = $_[1];
		936	$CONN->update_fx_want if $CONN;
		937	audio_music_push;
		938	0
		939	}
649	);	940	);
650	$hbox->add (new CFPlus::UI::Slider	941	$table->add_at (2, $row++, new CFPlus::UI::Slider
651	expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0, 1/128],	942	expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0, 1/128],
652	tooltip => "The volume of the background music. Changes are instant.",	943	tooltip => "The volume of the background music. Changes are instant.",
653	on_changed => sub { $CFG->{bgm_volume} = $_[1]; CFPlus::MixMusic::volume $_[1] * 128; 0 }	944	on_changed => sub { $CFG->{bgm_volume} = $_[1]; audio_music_update_volume; 0 }
654	);	945	);
655		946
656	$table->add_at (1, $row++, new CFPlus::UI::Button	947	$table->add_at (1, $row++, new CFPlus::UI::Button
657	expand => 1, align => 0, text => "Apply",	948	c_colspan => 2, expand => 1, align => 0, text => "Apply",
658	tooltip => "Apply the audio settings",	949	tooltip => "Apply the audio settings",
659	on_activate => sub {	950	on_activate => sub {
660	audio_shutdown ();	951	audio_shutdown ();
661	audio_init ();	952	audio_init ();
662	0	953	0
…		…
704	$hb->add (my $hg = new CFPlus::UI::Gauge type => 'hp', tooltip => "#stat_health");	995	$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");	996	$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");	997	$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");	998	$hb->add (my $fg = new CFPlus::UI::Gauge type => 'food', tooltip => "#stat_food");
708		999
709	$vbox->add (my $exp = new CFPlus::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1, tooltip => "#stat_exp");	1000	$vbox->add (my $exp = new CFPlus::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1, tooltip => "#stat_exp");
		1001	$vbox->add (my $prg = new CFPlus::UI::ExperienceProgress);
		1002	$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");	1003	$vbox->add (my $rng = new CFPlus::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1, tooltip => "#stat_ranged");
711		1004
712	$GAUGES = {	1005	$GAUGES = {
		1006	exp => $exp, prg => $prg, sklprg => $sklprg,
713	exp => $exp, win => $win, range => $rng,	1007	win => $win, range => $rng,
714	food => $fg, mana => $mg, hp => $hg, grace => $gg	1008	hp => $hg, mana => $mg, grace => $gg, food => $fg,
715	};	1009	};
716		1010
717	&set_gauge_window_fontsize;	1011	&set_gauge_window_fontsize;
718		1012
719	$win	1013	$win
…		…
733	$table->add_at (0, 4, new CFPlus::UI::Button text => "die on click(tm)", on_activate => sub { &CFPlus::debug() } );	1027	$table->add_at (0, 4, new CFPlus::UI::Button text => "die on click(tm)", on_activate => sub { &CFPlus::debug() } );
734		1028
735	$table->add_at (0, 5, new CFPlus::UI::TextEdit text => "line1\0152\0153");#d#	1029	$table->add_at (0, 5, new CFPlus::UI::TextEdit text => "line1\0152\0153");#d#
736		1030
737	$table->add_at (7,7, my $t = new CFPlus::UI::Table expand => 0);	1031	$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);	1032	$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);	1033	$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);	1034	$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);	1035	$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");	1036	$t->add_at (1,1, new CFPlus::UI::Label text => "e");
743		1037
744	$table->add_at (7, 6, my $c = new CFPlus::UI::Canvas);	1038	$table->add_at (7, 6, my $c = new CFPlus::UI::Canvas);
745		1039
746	$c->add_items ({	1040	$c->add_items ({
…		…
920	$r	1214	$r
921	}	1215	}
922		1216
923	sub skill_window {	1217	sub skill_window {
924	my $sw = new CFPlus::UI::ScrolledWindow (expand => 1);	1218	my $sw = new CFPlus::UI::ScrolledWindow (expand => 1);
		1219
925	$sw->add ($STATWIDS->{skill_tbl} = new CFPlus::UI::Table expand => 1, col_expand => [0, 0, 1, 0, 0, 1]);	1220	$sw->add ($STATWIDS->{skill_tbl} = new CFPlus::UI::Table expand => 1, col_expand => [0, 0, 1, .1, 0, 0, 1, .1]);
		1221
926	$sw	1222	$sw
927	}	1223	}
928		1224
929	sub formsep($) {	1225	sub formsep($) {
930	scalar reverse join ",", unpack "(A3)", reverse $_[0] 1	1226	scalar reverse join ",", unpack "(A3)", reverse $_[0] 1
…		…
1342	$sw1->add ($INV = new CFPlus::UI::Inventory);	1638	$sw1->add ($INV = new CFPlus::UI::Inventory);
1343	$INV->set_sort_order ($SORT_ORDER{$::CFG->{inv_sort}});	1639	$INV->set_sort_order ($SORT_ORDER{$::CFG->{inv_sort}});
1344		1640
1345	$hb->add (my $vb2 = new CFPlus::UI::VBox);	1641	$hb->add (my $vb2 = new CFPlus::UI::VBox);
1346		1642
1347	$vb2->add ($INV_RIGHT_HB = new CFPlus::UI::HBox);	1643	$vb2->add ($INVR_HB = new CFPlus::UI::HBox);
1348		1644
1349	$vb2->add (my $sw2 = new CFPlus::UI::ScrolledWindow expand => 1, scroll_y => 1);	1645	$vb2->add (my $sw2 = new CFPlus::UI::ScrolledWindow expand => 1, scroll_y => 1);
1350	$sw2->add ($INVR = new CFPlus::UI::Inventory);	1646	$sw2->add ($INVR = new CFPlus::UI::Inventory);
1351		1647
1352	# XXX: Call after $INVR = ... because set_opencont sets the items	1648	# XXX: Call after $INVR = ... because set_opencont sets the items
1353	CFPlus::Protocol::set_opencont ($::CONN, 0, "Floor");	1649	CFPlus::Protocol::set_opencont ($::CONN, 0, "Floor");
1354		1650
1355	$hb	1651	$hb
		1652	}
		1653
		1654	sub media_window {
		1655	my $vb = new CFPlus::UI::VBox;
		1656
		1657	$vb->add (new CFPlus::UI::FancyFrame
		1658	label => "Currently playing music",
		1659	child => new CFPlus::UI::ScrolledWindow scroll_x => 1, scroll_y => 0,
		1660	child => ($MUSIC_PLAYING_WIDGET = new CFPlus::UI::Label ellipsise => 0, fontsize => 0.8),
		1661	);
		1662
		1663	$vb->add (new CFPlus::UI::FancyFrame
		1664	label => "Other media used in this session",
		1665	expand => 1,
		1666	child => ($LICENSE_WIDGET = new CFPlus::UI::TextScroller
		1667	expand => 1, fontsize => 0.8, padding_x => 4, padding_y => 4),
		1668	);
		1669
		1670	$vb
		1671	}
		1672
		1673	sub add_license {
		1674	my ($meta) = @_;
		1675
		1676	$meta = $meta->{data}
		1677	or return;
		1678
		1679	$meta->{license} \|\| $meta->{author} \|\| $meta->{source}
		1680	or return;
		1681
		1682	$LICENSE_WIDGET->add_paragraph ({
		1683	fg => [1, 1, 1, 1],
		1684	markup => "<small>"
		1685	. "<b>Name:</b> " . (CFPlus::asxml $meta->{name}) . "\n"
		1686	. "<b>Author:</b> " . (CFPlus::asxml $meta->{author}) . "\n"
		1687	. "<b>Source:</b> " . (CFPlus::asxml $meta->{source}) . "\n"
		1688	. "<b>License:</b> " . (CFPlus::asxml $meta->{license}) . "\n"
		1689	. "</small>",
		1690	});
		1691	$LICENSE_WIDGET->scroll_to_bottom;
1356	}	1692	}
1357		1693
1358	sub toggle_player_page {	1694	sub toggle_player_page {
1359	my ($widget) = @_;	1695	my ($widget) = @_;
1360		1696
…		…
1399	$ntb->add_tab (	1735	$ntb->add_tab (
1400	"Inventory (F5)" => $INVENTORY_PAGE = inventory_widget,	1736	"Inventory (F5)" => $INVENTORY_PAGE = inventory_widget,
1401	"Toggles the inventory window, where you can manage your loot (or treasures :). "	1737	"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."	1738	. "You can also hit the <b>Tab</b>-key to show/hide the Inventory."
1403	);	1739	);
1404	$ntb->add_tab (Pickup => autopickup_setup,	1740	$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.");	1741	"Configure autopickup settings, i.e. which items you will pick up automatically when walking (or running) over them.");
		1742
		1743	$ntb->add_tab (Media => media_window,
		1744	"License, Author and Source info for media sent by the server.");
1406		1745
1407	$ntb->set_current_page ($INVENTORY_PAGE);	1746	$ntb->set_current_page ($INVENTORY_PAGE);
1408		1747
1409	$plwin->add ($ntb);	1748	$plwin->add ($ntb);
1410	$plwin	1749	$plwin
…		…
1564	on_activate => sub { $QUIT_DIALOG->hide; 0 },	1903	on_activate => sub { $QUIT_DIALOG->hide; 0 },
1565	);	1904	);
1566	$hb->add (new CFPlus::UI::Button	1905	$hb->add (new CFPlus::UI::Button
1567	text => "Quit anyway",	1906	text => "Quit anyway",
1568	expand => 1,	1907	expand => 1,
1569	on_activate => sub { exit },	1908	on_activate => sub { Event::unloop_all },
1570	);	1909	);
1571	}	1910	}
1572		1911
1573	$QUIT_DIALOG->show;	1912	$QUIT_DIALOG->show;
1574	$QUIT_DIALOG->grab_focus;	1913	$QUIT_DIALOG->grab_focus;
…		…
1647		1986
1648	$SDL_ACTIVE = 1;	1987	$SDL_ACTIVE = 1;
1649	$LAST_REFRESH = time - 0.01;	1988	$LAST_REFRESH = time - 0.01;
1650		1989
1651	CFPlus::OpenGL::init;	1990	CFPlus::OpenGL::init;
		1991	CFPlus::Macro::init;
1652		1992
1653	$FONTSIZE = int $HEIGHT / 40 * $CFG->{gui_fontsize};	1993	$FONTSIZE = int $HEIGHT / 40 * $CFG->{gui_fontsize};
1654		1994
1655	$CFPlus::UI::ROOT->configure (0, 0, $WIDTH, $HEIGHT);#d#	1995	$CFPlus::UI::ROOT->configure (0, 0, $WIDTH, $HEIGHT);#d#
1656		1996
1657	#############################################################################	1997	#############################################################################
1658		1998
1659	if ($DEBUG_STATUS) {	1999	if ($DEBUG_STATUS) {
1660	CFPlus::UI::rescale_widgets $WIDTH / $old_w, $HEIGHT / $old_h;	2000	CFPlus::UI::rescale_widgets $WIDTH / $old_w, $HEIGHT / $old_h;
1661	} else {	2001	} else {
1662	# create the widgets	2002	# create/configure the widgets
		2003
		2004	$CFPlus::UI::ROOT->connect (key_down => sub {
		2005	my (undef, $ev) = @_;
		2006
		2007	if (my @macros = CFPlus::Macro::find $ev) {
		2008	CFPlus::Macro::execute $_ for @macros;
		2009
		2010	return 1;
		2011	}
		2012
		2013	0
		2014	});
1663		2015
1664	$DEBUG_STATUS = new CFPlus::UI::Label	2016	$DEBUG_STATUS = new CFPlus::UI::Label
1665	padding => 0,	2017	padding => 0,
1666	z => 100,	2018	z => 100,
1667	force_x => "max",	2019	force_x => "max",
…		…
1697	$MESSAGE_WINDOW->activate_console ($preset)	2049	$MESSAGE_WINDOW->activate_console ($preset)
1698	if $MESSAGE_WINDOW;	2050	if $MESSAGE_WINDOW;
1699	});	2051	});
1700	$MAPWIDGET->show;	2052	$MAPWIDGET->show;
1701	$MAPWIDGET->grab_focus;	2053	$MAPWIDGET->grab_focus;
		2054
		2055	$COMPLETER = new CFPlus::MapWidget::Command::
		2056	command => { },
		2057	tooltip => "#completer_help",
		2058	;
1702		2059
1703	$SETUP_DIALOG = new CFPlus::UI::Toplevel	2060	$SETUP_DIALOG = new CFPlus::UI::Toplevel
1704	title => "Setup",	2061	title => "Setup",
1705	name => "setup_dialog",	2062	name => "setup_dialog",
1706	x => 'center',	2063	x => 'center',
…		…
1768	tooltip => "Terminates the program",	2125	tooltip => "Terminates the program",
1769	on_activate => sub {	2126	on_activate => sub {
1770	if ($CONN) {	2127	if ($CONN) {
1771	open_quit_dialog;	2128	open_quit_dialog;
1772	} else {	2129	} else {
1773	exit;	2130	Event::unloop_all;
1774	}	2131	}
1775	0	2132	0
1776	},	2133	},
1777	);	2134	);
1778		2135
1779	$BUTTONBAR->show;	2136	$BUTTONBAR->show;
1780	$SETUP_DIALOG->show;	2137	$SETUP_DIALOG->show;
		2138	$MESSAGE_WINDOW->show;
1781	}	2139	}
1782		2140
1783	$STATUSBOX->add ("Set video mode $WIDTH×$HEIGHT", timeout => 10, fg => [1, 1, 1, 0.5]);	2141	$STATUSBOX->add ("Set video mode $WIDTH×$HEIGHT", timeout => 10, fg => [1, 1, 1, 0.5]);
1784	}	2142	}
1785		2143
…		…
1787	CFPlus::OpenGL::shutdown;	2145	CFPlus::OpenGL::shutdown;
1788		2146
1789	undef $SDL_ACTIVE;	2147	undef $SDL_ACTIVE;
1790	}	2148	}
1791		2149
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;	2150	my %animate_object;
1964	my $animate_timer;	2151	my $animate_timer;
1965		2152
1966	my $fps = 9;	2153	my $fps = 9;
1967		2154
1968	my %demo;#d#
1969
1970	sub force_refresh {	2155	sub force_refresh {
		2156	if ($ENV{CFPLUS_DEBUG} & 4) {
1971	$fps = $fps * 0.95 + 1 / (($NOW - $LAST_REFRESH) \|\| 0.1) * 0.05;	2157	$fps = $fps * 0.98 + 1 / (($NOW - $LAST_REFRESH) \|\| 0.1) * 0.02;
1972	debug sprintf "%3.2f", $fps if $ENV{CFPLUS_DEBUG} & 4;	2158	debug sprintf "%3.2f", $fps;
		2159	}
1973		2160
1974	$CFPlus::UI::ROOT->draw;	2161	$CFPlus::UI::ROOT->draw;
1975		2162	CFPlus::SDL_GL_SwapBuffers;
1976	$WANT_REFRESH = 0;
1977	$CAN_REFRESH = 0;
1978	$LAST_REFRESH = $NOW;	2163	$LAST_REFRESH = $NOW;
1979		2164	$WANT_REFRESH->stop;
1980	CFPlus::SDL_GL_SwapBuffers;
1981	}	2165	}
1982		2166
		2167	$WANT_REFRESH = Event->idle (min => 0.001, max => 0.06, parked => 1, cb => \&force_refresh);
		2168
1983	my $refresh_watcher = Event->timer (after => 0, hard => 0, interval => 1 / $MAX_FPS, cb => sub {	2169	my $input = Event->timer (after => 0, hard => 0, interval => 1 / 50, cb => sub {
1984	$NOW = time;	2170	$NOW = time;
1985		2171
1986	($SDL_CB{$_->{type}} \|\| sub { warn "unhandled event $_->{type}" })->($_)	2172	($SDL_CB{$_->{type}} \|\| sub { warn "unhandled event $_->{type}" })->($_)
1987	for CFPlus::poll_events;	2173	for CFPlus::poll_events;
1988		2174
1989	if (%animate_object) {	2175	if (%animate_object) {
1990	$_->animate ($LAST_REFRESH - $NOW) for values %animate_object;	2176	$_->animate ($LAST_REFRESH - $NOW) for values %animate_object;
1991	++$WANT_REFRESH;	2177	$WANT_REFRESH->start;
1992	}
1993
1994	if ($WANT_REFRESH) {
1995	force_refresh;
1996	} else {
1997	$CAN_REFRESH = 1;
1998	}	2178	}
1999	});	2179	});
2000		2180
2001	sub animation_start {	2181	sub animation_start {
2002	my ($widget) = @_;	2182	my ($widget) = @_;
…		…
2008	delete $animate_object{$widget};	2188	delete $animate_object{$widget};
2009	}	2189	}
2010		2190
2011	%SDL_CB = (	2191	%SDL_CB = (
2012	CFPlus::SDL_QUIT => sub {	2192	CFPlus::SDL_QUIT => sub {
2013	exit;	2193	Event::unloop_all;
2014	},	2194	},
2015	CFPlus::SDL_VIDEORESIZE => sub {	2195	CFPlus::SDL_VIDEORESIZE => sub {
2016	},	2196	},
2017	CFPlus::SDL_VIDEOEXPOSE => sub {	2197	CFPlus::SDL_VIDEOEXPOSE => sub {
2018	CFPlus::UI::full_refresh;	2198	CFPlus::UI::full_refresh;
…		…
2057	CFPlus::DB::Server::run;	2237	CFPlus::DB::Server::run;
2058		2238
2059	CFPlus::UI::set_layout ($::CFG->{layout});	2239	CFPlus::UI::set_layout ($::CFG->{layout});
2060		2240
2061	my %DEF_CFG = (	2241	my %DEF_CFG = (
2062	sdl_mode => 0,	2242	sdl_mode => 0,
2063	width => 640,
2064	height => 480,
2065	fullscreen => 0,	2243	fullscreen => 0,
2066	fast => 0,	2244	fast => 0,
		2245	force_opengl11 => undef,
		2246	texture_compression => 1,
2067	map_scale => 1,	2247	map_scale => 1,
2068	fow_enable => 1,	2248	fow_enable => 1,
2069	fow_intensity => 0,	2249	fow_intensity => 0,
2070	map_smoothing => 1,	2250	map_smoothing => 1,
2071	gui_fontsize => 1,	2251	gui_fontsize => 1,
2072	log_fontsize => 0.7,	2252	log_fontsize => 0.7,
2073	gauge_fontsize => 1,	2253	gauge_fontsize => 1,
2074	gauge_size => 0.35,	2254	gauge_size => 0.35,
2075	stat_fontsize => 0.7,	2255	stat_fontsize => 0.7,
2076	mapsize => 100,	2256	mapsize => 100,
2077	audio_enable => 1,	2257	audio_enable => 1,
		2258	effects_enable => 1,
		2259	effects_volume => 1,
2078	bgm_enable => 1,	2260	bgm_enable => 1,
2079	bgm_volume => 0.25,	2261	bgm_volume => 0.5,
2080	output_sync => 1,	2262	output_sync => 1,
2081	output_count => 1,	2263	output_count => 1,
2082	output_rate => "",	2264	output_rate => "",
2083	pickup => 0,	2265	pickup => 0,
2084	inv_sort => "mtime",	2266	inv_sort => "mtime",
2085	default => "profile", # default profile	2267	default => "profile", # default profile
2086	show_tips => 1,	2268	show_tips => 1,
2087	logview_max_par => 1000,	2269	logview_max_par => 1000,
2088	);	2270	);
2089		2271
2090	while (my ($k, $v) = each %DEF_CFG) {	2272	while (my ($k, $v) = each %DEF_CFG) {
2091	$CFG->{$k} = $v unless exists $CFG->{$k};	2273	$CFG->{$k} = $v unless exists $CFG->{$k};
2092	}	2274	}
…		…
2149	# }	2331	# }
2150	# my $t2 = Time::HiRes::time;	2332	# my $t2 = Time::HiRes::time;
2151	# warn $t2-$t1;	2333	# warn $t2-$t1;
2152	# }	2334	# }
2153		2335
2154	$startup_done->();
2155
2156	video_init;	2336	video_init;
2157	audio_init;	2337	audio_init;
2158	}	2338	}
2159		2339
2160	show_tip_of_the_day if $CFG->{show_tips};	2340	show_tip_of_the_day if $CFG->{show_tips};
2161		2341
		2342	Event->idle (cb => sub {
		2343	$_[0]->w->cancel;
		2344	$startup_done->();
		2345	});
		2346
2162	Event::loop;	2347	Event::loop;
		2348
		2349	#video_shutdown;
		2350	#audio_shutdown;
2163	#CFPlus::SDL_Quit;	2351	CFPlus::SDL_Quit;
2164	#CFPlus::_exit 0;
2165
2166	END {
2167	CFPlus::SDL_Quit;
2168	CFPlus::DB::Server::stop;	2352	CFPlus::DB::Server::stop;
2169	}
2170		2353
2171	=head1 NAME	2354	=head1 NAME
2172		2355
2173	cfplus - A Crossfire+ and Crossfire game client	2356	cfplus - A Crossfire TRT and Crossfire game client
2174		2357
2175	=head1 SYNOPSIS	2358	=head1 SYNOPSIS
2176		2359
2177	Just run it - no commandline arguments are supported.	2360	Just run it - no commandline arguments are supported.
2178		2361
2179	=head1 USAGE	2362	=head1 USAGE
2180		2363
2181	cfplus utilises OpenGL for all UI elements and the game. It is supposed to be used	2364	cfplus utilises OpenGL for all UI elements and the game. It is supposed to
2182	fullscreen and interactively.	2365	be used in fullscreen mode and interactively.
2183		2366
2184	=head1 DEBUGGING	2367	=head1 DEBUGGING
2185		2368
2186		2369
2187	CFPLUS_DEBUG - environment variable	2370	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.227 by root, Sun Sep 2 09:48:42 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.227 by root, Sun Sep 2 09:48:42 2007 UTC