[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.226 by root, Sat Sep 1 07:22:21 2007 UTC

…		…
86	use CFPlus::DB;	86	use CFPlus::DB;
87	use CFPlus::UI;	87	use CFPlus::UI;
88	use CFPlus::UI::Canvas;	88	use CFPlus::UI::Canvas;
89	use CFPlus::UI::Inventory;	89	use CFPlus::UI::Inventory;
90	use CFPlus::UI::SpellList;	90	use CFPlus::UI::SpellList;
		91	use CFPlus::UI::Dockable;
91	use CFPlus::UI::MessageWindow;	92	use CFPlus::UI::MessageWindow;
		93	use CFPlus::UI::ChatView;
92	use CFPlus::Pod;	94	use CFPlus::Pod;
93	use CFPlus::MapWidget;	95	use CFPlus::MapWidget;
94	use CFPlus::Macro;	96	use CFPlus::Macro;
95		97
96	$SIG{QUIT} = sub { Carp::cluck "QUIT" };	98	$SIG{QUIT} = sub { Carp::cluck "QUIT" };
…		…
113	our $CONN;	115	our $CONN;
114	our $PROFILE; # current profile	116	our $PROFILE; # current profile
115	our $FAST; # fast, low-quality mode, possibly useful for software-rendering	117	our $FAST; # fast, low-quality mode, possibly useful for software-rendering
116		118
117	our $WANT_REFRESH;	119	our $WANT_REFRESH;
118	our $CAN_REFRESH;
119		120
120	our @SDL_MODES;	121	our @SDL_MODES;
121	our $WIDTH;	122	our $WIDTH;
122	our $HEIGHT;	123	our $HEIGHT;
123	our $FULLSCREEN;	124	our $FULLSCREEN;
…		…
127	our $FONT_FIXED;	128	our $FONT_FIXED;
128		129
129	our $MAP;	130	our $MAP;
130	our $MAPMAP;	131	our $MAPMAP;
131	our $MAPWIDGET;	132	our $MAPWIDGET;
		133	our $COMPLETER;
132	our $BUTTONBAR;	134	our $BUTTONBAR;
133	our $METASERVER;	135	our $METASERVER;
134	our $LOGIN_BUTTON;	136	our $LOGIN_BUTTON;
135	our $QUIT_DIALOG;	137	our $QUIT_DIALOG;
136	our $HOST_ENTRY;	138	our $HOST_ENTRY;
…		…
144	our $SETUP_KEYBOARD;	146	our $SETUP_KEYBOARD;
145		147
146	our $PL_NOTEBOOK;	148	our $PL_NOTEBOOK;
147	our $PL_WINDOW;	149	our $PL_WINDOW;
148		150
		151	our $MUSIC_PLAYING_WIDGET;
		152	our $LICENSE_WIDGET;
		153
		154	our $PICKUP_PAGE;
149	our $INVENTORY_PAGE;	155	our $INVENTORY_PAGE;
150	our $STATS_PAGE;	156	our $STATS_PAGE;
151	our $SKILL_PAGE;	157	our $SKILL_PAGE;
152	our $SPELL_PAGE;	158	our $SPELL_PAGE;
153	our $SPELL_LIST;	159	our $SPELL_LIST;
…		…
159	our $STATWIDS;	165	our $STATWIDS;
160		166
161	our $SDL_ACTIVE;	167	our $SDL_ACTIVE;
162	our %SDL_CB;	168	our %SDL_CB;
163		169
		170	our $ALT_ENTER_MESSAGE;
		171	our $STATUSBOX;
		172	our $DEBUG_STATUS;
		173
		174	our $INV;
		175	our $INVR;
		176	our $INVR_HB;
		177
		178	#############################################################################
		179
		180	sub status {
		181	$STATUSBOX->add (CFPlus::asxml $_[0], pri => -10, group => "status", timeout => 10, fg => [1, 1, 0, 1]);
		182	}
		183
		184	sub debug {
		185	$DEBUG_STATUS->set_text ($_[0]);
		186	}
		187
		188	sub message {
		189	$MESSAGE_WINDOW->message (@_);
		190	}
		191
		192	#############################################################################
		193	#TODO: maybe move into own audio module...
		194
164	our $SDL_MIXER;	195	our $SDL_MIXER;
		196
165	our $MUSIC_DEFAULT = "in_a_heartbeat.ogg";	197	our $MUSIC_DEFAULT = "in_a_heartbeat.ogg";
166	our @MUSIC_WANT;	198	our $MUSIC_WANT; # arryref of ambient music we want to play
		199	our @MUSIC_HAVE; # ambient music we have on disk
167	our $MUSIC_START;	200	our $MUSIC_START;
		201	our @MUSIC_JINGLE; # which jingles to play next
168	our $MUSIC_PLAYING_DATA;	202	our $MUSIC_PLAYING_DATA;
169	our $MUSIC_PLAYING_META;	203	our $MUSIC_PLAYING_META;
170	our $MUSIC_PLAYER;	204	our $MUSIC_PLAYER;
171	our $MUSIC_RESUME = 30; # resume music when players less than these many seconds before	205	our $MUSIC_RESUME = 30; # resume music when played less than these many seconds before
172	our @SOUNDS; # event => file mapping	206
173	our %AUDIO_CHUNKS; # audio files	207	our %AUDIO_CHUNK; # audio "files"
		208	our %AUDIO_PLAY; # which audio faces should be played
174		209
175	our $ALT_ENTER_MESSAGE;	210	sub audio_channel_finished {
176	our $STATUSBOX;	211	my ($channel) = @_;
177	our $DEBUG_STATUS;
178		212
179	our $INV;	213	# 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	}	214	}
188		215
189	sub debug {	216	sub audio_sound_push($) {
190	$DEBUG_STATUS->set_text ($_[0]);
191	}
192
193	sub message {
194	my ($para) = @_;	217	my ($face) = @_;
195	$MESSAGE_WINDOW->message ($para);	218
		219	$CFG->{effects_enable}
		220	or return;
		221
		222	$AUDIO_PLAY{$face}
		223	or return;
		224
		225	if (my $chunk = $AUDIO_CHUNK{$face}) {
		226	for (grep $_->[0] >= Event::time, @{(delete $AUDIO_PLAY{$face}) \|\| []}) {
		227	my (undef, $dx, $dy, $vol) = @$_;
		228
		229	my $channel = CFPlus::Channel::find;
		230	$channel->volume ($vol * $CFG->{effects_volume} * 128 / 255);
		231	$channel->set_position_r ($dx, $dy, 20);
		232	$chunk->play ($channel);
		233	}
		234	} else {
		235	# sound_meta not set means data is in flight either way
		236	my $meta = $CONN->{face}[$face]
		237	or return;
		238
		239	$meta->{data}
		240	or return;
		241
		242	# if its a jingle, play it as ambient music
		243	if ($meta->{data}{jingle}) {
		244	if (delete $AUDIO_PLAY{$face}) { # take the jingle out of the sound queue
		245	push @MUSIC_JINGLE, $meta; # push it oto the music/jingle queue
		246	&audio_music_push ($face);
		247	}
		248	} else {
		249	# fetch from database
		250	CFPlus::DB::get res_data => $meta->{name}, sub {
		251	my $rwops = new CFPlus::RW $_[0];
		252	my $chunk = new CFPlus::MixChunk $rwops
		253	or Carp::confess "sound face " . (JSON::XS::to_json $meta) . " unloadable: " . CFPlus::Mix_GetError;
		254	$chunk->volume (($meta->{data}{volume} \|\| 1) * 128);
		255	$AUDIO_CHUNK{$face} = $chunk;
		256
		257	audio_sound_push ($face);
		258	};
		259	}
		260	}
196	}	261	}
		262
		263	sub audio_sound_play {
		264	my ($face, $dx, $dy, $vol) = @_;
		265
		266	$SDL_MIXER
		267	or return;
		268	$CFG->{effects_enable}
		269	or return;
		270
		271	my $queue = $AUDIO_PLAY{$face} \|\|= [];
		272	push @$queue, [Event::time + 0.6, $dx, $dy, $vol]; # do not play sound for outdated events
		273	audio_sound_push $face
		274	unless @$queue > 1;
		275	}
		276
		277	sub audio_music_set_meta {
		278	my ($meta) = @_;
		279
		280	$MUSIC_PLAYING_META = $meta;
		281	$MUSIC_PLAYING_WIDGET->set_markup (
		282	"<b>Name</b>: " . (CFPlus::asxml $meta->{data}{name}) . "\n"
		283	. "<b>Author</b>: " . (CFPlus::asxml $meta->{data}{author}) . "\n"
		284	. "<b>Source</b>: " . (CFPlus::asxml $meta->{data}{source}) . "\n"
		285	. "<b>License</b>: " . (CFPlus::asxml $meta->{data}{license})
		286	);
		287	}
		288
		289	sub audio_music_update_volume {
		290	return unless $MUSIC_PLAYING_META;
		291	my $volume = $MUSIC_PLAYING_META->{data}{volume} \|\| 1;
		292	my $base = $MUSIC_PLAYING_META->{data}{jingle} ? 1 : $CFG->{bgm_volume};
		293	CFPlus::MixMusic::volume $base * $volume * 128;
		294	}
		295
		296	sub audio_music_start {
		297	my $meta = $MUSIC_PLAYING_META;
		298
		299	CFPlus::DB::get res_data => $meta->{name}, sub {
		300	return unless $SDL_MIXER;
		301
		302	# music might have changed...
		303	$meta eq $MUSIC_PLAYING_META
		304	or return &audio_music_start ();
		305
		306	audio_music_update_volume;
		307
		308	$MUSIC_PLAYING_DATA = \$_[0];
		309
		310	my $rwops = $meta->{path}
		311	? new_from_file CFPlus::RW $meta->{path}
		312	: new CFPlus::RW $$MUSIC_PLAYING_DATA;
		313
		314	$MUSIC_PLAYER = new CFPlus::MixMusic $rwops
		315	or Carp::confess "music face $meta->{face} unloadable: " . CFPlus::Mix_GetError;
		316
		317	my $NOW = time;
		318
		319	if ($MUSIC_PLAYING_META->{stop_time} > $NOW - $MUSIC_RESUME) {
		320	my $pos = $MUSIC_PLAYING_META->{stop_pos};
		321	$MUSIC_PLAYER->fade_in_pos (0, 700, $pos);
		322	$MUSIC_START = time - $pos;
		323	} else {
		324	$MUSIC_PLAYER->play (0);
		325	$MUSIC_START = time;
		326	}
		327
		328	delete $meta->{stop_time};
		329	delete $meta->{stop_pos};
		330	}
		331	}
		332
		333	sub audio_music_push {
		334	return unless $SDL_MIXER;
		335
		336	my $fade_out;
		337
		338	if (@MUSIC_JINGLE) {
		339	@MUSIC_HAVE = $MUSIC_JINGLE[0];
		340	$fade_out = 333;
		341	} else {
		342	return unless $CFG->{bgm_enable};
		343
		344	my @have =
		345	grep $_ && $_->{data},
		346	map $CONN->{face}[$_],
		347	@$MUSIC_WANT;
		348
		349	# randomize music a bit so that the order is not always the same
		350	$_->{stop_time} \|\|= rand for @have;
		351
		352	@MUSIC_HAVE = @have
		353	if @have;
		354
		355	# default MUSIC_HAVE == MUSIC_DEFAULT
		356	@MUSIC_HAVE = { path => CFPlus::find_rcfile "music/$MUSIC_DEFAULT" } unless @MUSIC_HAVE;
		357	$fade_out = 700;
		358	}
		359
		360	# if the currently playing song is acceptable, let it continue
		361	return if grep $MUSIC_PLAYING_META == $_, @MUSIC_HAVE;
		362
		363	my $NOW = time;
		364
		365	if ($MUSIC_PLAYING_META) {
		366	$MUSIC_PLAYING_META->{stop_time} = $NOW;
		367	$MUSIC_PLAYING_META->{stop_pos} = $NOW - $MUSIC_START;
		368	CFPlus::MixMusic::fade_out $fade_out;
		369	} else {
		370	# sort by stop time, oldest first
		371	@MUSIC_HAVE = sort { $a->{stop_time} <=> $b->{stop_time} } @MUSIC_HAVE;
		372
		373	# if the most recently-played piece played very recently,
		374	# resume it, else choose the oldest piece for rotation.
		375	audio_music_set_meta
		376	$MUSIC_HAVE[-1]{stop_pos} && $MUSIC_HAVE[-1]{stop_time} > $NOW - $MUSIC_RESUME
		377	? $MUSIC_HAVE[-1]
		378	: $MUSIC_HAVE[0];
		379
		380	audio_music_start;
		381	}
		382	}
		383
		384	sub audio_music_set_ambient {
		385	my ($songs) = @_;
		386
		387	$MUSIC_WANT = $songs;
		388	audio_music_push;
		389	}
		390
		391	sub audio_music_finished {
		392	if ($MUSIC_PLAYING_META) {
		393	$MUSIC_PLAYING_META->{stop_time} = time;
		394	}
		395
		396	# we compress multiple jingles of the same type
		397	shift @MUSIC_JINGLE
		398	while @MUSIC_JINGLE && $MUSIC_PLAYING_META == $MUSIC_JINGLE[0];
		399
		400	$MUSIC_PLAYING_WIDGET->clear;
		401
		402	undef $MUSIC_PLAYER;
		403	undef $MUSIC_PLAYING_META;
		404	undef $MUSIC_PLAYING_DATA;
		405
		406	audio_music_push;
		407	}
		408
		409	sub audio_init {
		410	if ($CFG->{audio_enable}) {
		411	$ENV{MIX_EFFECTSMAXSPEED} = 1;
		412	$SDL_MIXER = !CFPlus::Mix_OpenAudio;
		413
		414	unless ($SDL_MIXER) {
		415	status "Unable to open sound device: there will be no sound";
		416	return;
		417	}
		418
		419	CFPlus::Mix_AllocateChannels 16;
		420
		421	audio_music_finished;
		422	} else {
		423	undef $SDL_MIXER;
		424	}
		425	}
		426
		427	sub audio_shutdown {
		428	undef $MUSIC_PLAYER;
		429	undef $MUSIC_PLAYING_META;
		430	undef $MUSIC_PLAYING_DATA;
		431
		432	$MUSIC_WANT = [];
		433	@MUSIC_JINGLE = ();
		434	%AUDIO_PLAY = ();
		435	%AUDIO_CHUNK = ();
		436
		437	CFPlus::Mix_CloseAudio if $SDL_MIXER;
		438	undef $SDL_MIXER;
		439	}
		440
		441	#############################################################################
197		442
198	sub destroy_query_dialog {	443	sub destroy_query_dialog {
199	(delete $_[0]{query_dialog})->destroy	444	(delete $_[0]{query_dialog})->destroy
200	if $_[0]{query_dialog};	445	if $_[0]{query_dialog};
201	}	446	}
…		…
481	$SETUP_DIALOG->show;	726	$SETUP_DIALOG->show;
482	$PL_WINDOW->hide;	727	$PL_WINDOW->hide;
483	$SPELL_LIST->clear_spells;	728	$SPELL_LIST->clear_spells;
484	$CFPlus::UI::ROOT->emit (stop_game => ! ! $CONN);	729	$CFPlus::UI::ROOT->emit (stop_game => ! ! $CONN);
485		730
486	&audio_music_set ([]);	731	&audio_music_set_ambient ([]);
487		732
488	return unless $CONN;	733	return unless $CONN;
489		734
490	status "connection closed";	735	status "connection closed";
491		736
…		…
533	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fullscreen");	778	$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	779	$table->add_at (1, $row++, $FULLSCREEN_ENABLE = new CFPlus::UI::CheckBox
535	state => $CFG->{fullscreen},	780	state => $CFG->{fullscreen},
536	tooltip => "Bring the client into fullscreen mode.",	781	tooltip => "Bring the client into fullscreen mode.",
537	on_changed => sub { my ($self, $value) = @_; $CFG->{fullscreen} = $value; 0 }	782	on_changed => sub { my ($self, $value) = @_; $CFG->{fullscreen} = $value; 0 }
		783	);
		784
		785	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Force OpenGL 1.1");
		786	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
		787	state => $CFG->{force_opengl11},
		788	tooltip => "Limit CFPlus to use OpenGL 1.1 features only. This will normally result in "
		789	. "higher memory usage and slower performance. It will, however, help tremendously on "
		790	. "cards that claim to support a feature but fall back to software rendering. "
		791	. "Nvidia Geforce FX cards are known to claim features the hardware doesn't support, "
		792	. "but cards and drivers from other vendors (ATI) are often just as bad. <b>If you "
		793	. "experience extremely low framerates and your card should do better, try this option.</b>",
		794	on_changed => sub { my ($self, $value) = @_; $CFG->{force_opengl11} = $value; 0 }
		795	);
		796
		797	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Compress Textures");
		798	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
		799	state => $CFG->{texture_compression},
		800	tooltip => "Use texture compression. Normally this will not reduce visual quality noticable but "
		801	. "will save a lot of memory and increase performance. The compression algorithm "
		802	. "can differ form card to card, so your mileage may vary. This setting is ignored in "
		803	. "forced OpenGL 1.1 mode.",
		804	on_changed => sub { my ($self, $value) = @_; $CFG->{texture_compression} = $value; 0 }
538	);	805	);
539		806
540	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fast & Ugly");	807	$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	808	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
542	state => $CFG->{fast},	809	state => $CFG->{fast},
…		…
570		837
571	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Map Smoothing");	838	$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	839	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
573	state => $CFG->{map_smoothing},	840	state => $CFG->{map_smoothing},
574	tooltip => "<b>Map Smoothing</b> tries to make tile borders less square. "	841	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. "	842	. "This increases load on the graphics subsystem and works only with TRT servers. "
576	. "Changes take effect at next connection only.",	843	. "Changes take effect at next login only.",
577	on_changed => sub { my ($self, $value) = @_; $CFG->{map_smoothing} = $value; 0 }	844	on_changed => sub { my ($self, $value) = @_; $CFG->{map_smoothing} = $value; 0 }
578	);	845	);
579		846
580	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fog of War");	847	$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	848	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
…		…
592	);	859	);
593		860
594	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Message Fontsize");	861	$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	862	$table->add_at (1, $row++, new CFPlus::UI::Slider
596	range => [$CFG->{log_fontsize}, 0.5, 2, 0, 0.1],	863	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.",	864	tooltip => "The font size used by the <b>message/server log</b> window only. Changes are instant, "
		865	. "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 },	866	on_changed => sub { $MESSAGE_WINDOW->set_fontsize ($CFG->{log_fontsize} = $_[1]); 0 },
599	);	867	);
600		868
601	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Gauge fontsize");	869	$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	870	$table->add_at (1, $row++, new CFPlus::UI::Slider
…		…
624	}	892	}
625		893
626	sub audio_setup {	894	sub audio_setup {
627	my $vbox = new CFPlus::UI::VBox;	895	my $vbox = new CFPlus::UI::VBox;
628		896
629	$vbox->add (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]);	897	$vbox->add (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 0, 1]);
630		898
631	my $row = 0;	899	my $row = 0;
632		900
633	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Audio Enable");	901	$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	902	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
…		…
638	);	906	);
639	# $table->add_at (0, 9, new CFPlus::UI::Label valign => 0, align => 1, text => "Effects Volume");	907	# $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 {	908	# $table->add_at (1, 8, new CFPlus::UI::Slider range => [$CFG->{effects_volume}, 0, 128, 1], on_changed => sub {
641	# $CFG->{effects_volume} = $_[1];	909	# $CFG->{effects_volume} = $_[1];
642	# });	910	# });
		911
		912	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Sound Effects");
		913	$table->add_at (1, $row, new CFPlus::UI::CheckBox
		914	expand => 1, state => $CFG->{effects_enable},
		915	tooltip => "If enabled, sound effects are enabled. If disabled, no sound effects will be played.",
		916	on_changed => sub {
		917	$CFG->{effects_enable} = $_[1];
		918	$CONN->update_fx_want if $CONN;
		919	0
		920	}
		921	);
		922	$table->add_at (2, $row++, new CFPlus::UI::Slider
		923	expand => 1, range => [$CFG->{effects_volume}, 0, 1, 0, 1/128],
		924	tooltip => "The relative volume of sound effects. Best audio quality is achieved if this "
		925	. "is set highest (rightmost) and you use your operating system volume setting. Changes are instant.",
		926	on_changed => sub { $CFG->{effects_volume} = $_[1]; 0 }
		927	);
		928
643	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Background Music");	929	$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);	930	$table->add_at (1, $row, new CFPlus::UI::CheckBox
645	$hbox->add (new CFPlus::UI::CheckBox
646	expand => 1, state => $CFG->{bgm_enable},	931	expand => 1, state => $CFG->{bgm_enable},
647	tooltip => "If enabled, playing of background music is enabled. If disabled, no background music will be played.",	932	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 }	933	on_changed => sub {
		934	$CFG->{bgm_enable} = $_[1];
		935	$CONN->update_fx_want if $CONN;
		936	audio_music_push;
		937	0
		938	}
649	);	939	);
650	$hbox->add (new CFPlus::UI::Slider	940	$table->add_at (2, $row++, new CFPlus::UI::Slider
651	expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0, 1/128],	941	expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0, 1/128],
652	tooltip => "The volume of the background music. Changes are instant.",	942	tooltip => "The volume of the background music. Changes are instant.",
653	on_changed => sub { $CFG->{bgm_volume} = $_[1]; CFPlus::MixMusic::volume $_[1] * 128; 0 }	943	on_changed => sub { $CFG->{bgm_volume} = $_[1]; audio_music_update_volume; 0 }
654	);	944	);
655		945
656	$table->add_at (1, $row++, new CFPlus::UI::Button	946	$table->add_at (1, $row++, new CFPlus::UI::Button
657	expand => 1, align => 0, text => "Apply",	947	c_colspan => 2, expand => 1, align => 0, text => "Apply",
658	tooltip => "Apply the audio settings",	948	tooltip => "Apply the audio settings",
659	on_activate => sub {	949	on_activate => sub {
660	audio_shutdown ();	950	audio_shutdown ();
661	audio_init ();	951	audio_init ();
662	0	952	0
…		…
704	$hb->add (my $hg = new CFPlus::UI::Gauge type => 'hp', tooltip => "#stat_health");	994	$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");	995	$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");	996	$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");	997	$hb->add (my $fg = new CFPlus::UI::Gauge type => 'food', tooltip => "#stat_food");
708		998
709	$vbox->add (my $exp = new CFPlus::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1, tooltip => "#stat_exp");	999	$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 $prg = new CFPlus::UI::ExperienceProgress);
		1001	$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");	1002	$vbox->add (my $rng = new CFPlus::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1, tooltip => "#stat_ranged");
711		1003
712	$GAUGES = {	1004	$GAUGES = {
		1005	exp => $exp, prg => $prg, sklprg => $sklprg,
713	exp => $exp, win => $win, range => $rng,	1006	win => $win, range => $rng,
714	food => $fg, mana => $mg, hp => $hg, grace => $gg	1007	hp => $hg, mana => $mg, grace => $gg, food => $fg,
715	};	1008	};
716		1009
717	&set_gauge_window_fontsize;	1010	&set_gauge_window_fontsize;
718		1011
719	$win	1012	$win
…		…
733	$table->add_at (0, 4, new CFPlus::UI::Button text => "die on click(tm)", on_activate => sub { &CFPlus::debug() } );	1026	$table->add_at (0, 4, new CFPlus::UI::Button text => "die on click(tm)", on_activate => sub { &CFPlus::debug() } );
734		1027
735	$table->add_at (0, 5, new CFPlus::UI::TextEdit text => "line1\0152\0153");#d#	1028	$table->add_at (0, 5, new CFPlus::UI::TextEdit text => "line1\0152\0153");#d#
736		1029
737	$table->add_at (7,7, my $t = new CFPlus::UI::Table expand => 0);	1030	$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);	1031	$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);	1032	$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);	1033	$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);	1034	$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");	1035	$t->add_at (1,1, new CFPlus::UI::Label text => "e");
743		1036
744	$table->add_at (7, 6, my $c = new CFPlus::UI::Canvas);	1037	$table->add_at (7, 6, my $c = new CFPlus::UI::Canvas);
745		1038
746	$c->add_items ({	1039	$c->add_items ({
…		…
920	$r	1213	$r
921	}	1214	}
922		1215
923	sub skill_window {	1216	sub skill_window {
924	my $sw = new CFPlus::UI::ScrolledWindow (expand => 1);	1217	my $sw = new CFPlus::UI::ScrolledWindow (expand => 1);
		1218
925	$sw->add ($STATWIDS->{skill_tbl} = new CFPlus::UI::Table expand => 1, col_expand => [0, 0, 1, 0, 0, 1]);	1219	$sw->add ($STATWIDS->{skill_tbl} = new CFPlus::UI::Table expand => 1, col_expand => [0, 0, 1, .1, 0, 0, 1, .1]);
		1220
926	$sw	1221	$sw
927	}	1222	}
928		1223
929	sub formsep($) {	1224	sub formsep($) {
930	scalar reverse join ",", unpack "(A3)", reverse $_[0] 1	1225	scalar reverse join ",", unpack "(A3)", reverse $_[0] 1
…		…
1342	$sw1->add ($INV = new CFPlus::UI::Inventory);	1637	$sw1->add ($INV = new CFPlus::UI::Inventory);
1343	$INV->set_sort_order ($SORT_ORDER{$::CFG->{inv_sort}});	1638	$INV->set_sort_order ($SORT_ORDER{$::CFG->{inv_sort}});
1344		1639
1345	$hb->add (my $vb2 = new CFPlus::UI::VBox);	1640	$hb->add (my $vb2 = new CFPlus::UI::VBox);
1346		1641
1347	$vb2->add ($INV_RIGHT_HB = new CFPlus::UI::HBox);	1642	$vb2->add ($INVR_HB = new CFPlus::UI::HBox);
1348		1643
1349	$vb2->add (my $sw2 = new CFPlus::UI::ScrolledWindow expand => 1, scroll_y => 1);	1644	$vb2->add (my $sw2 = new CFPlus::UI::ScrolledWindow expand => 1, scroll_y => 1);
1350	$sw2->add ($INVR = new CFPlus::UI::Inventory);	1645	$sw2->add ($INVR = new CFPlus::UI::Inventory);
1351		1646
1352	# XXX: Call after $INVR = ... because set_opencont sets the items	1647	# XXX: Call after $INVR = ... because set_opencont sets the items
1353	CFPlus::Protocol::set_opencont ($::CONN, 0, "Floor");	1648	CFPlus::Protocol::set_opencont ($::CONN, 0, "Floor");
1354		1649
1355	$hb	1650	$hb
		1651	}
		1652
		1653	sub media_window {
		1654	my $vb = new CFPlus::UI::VBox;
		1655
		1656	$vb->add (new CFPlus::UI::FancyFrame
		1657	label => "Currently playing music",
		1658	child => new CFPlus::UI::ScrolledWindow scroll_x => 1, scroll_y => 0,
		1659	child => ($MUSIC_PLAYING_WIDGET = new CFPlus::UI::Label ellipsise => 0, fontsize => 0.8),
		1660	);
		1661
		1662	$vb->add (new CFPlus::UI::FancyFrame
		1663	label => "Other media used in this session",
		1664	expand => 1,
		1665	child => ($LICENSE_WIDGET = new CFPlus::UI::TextScroller
		1666	expand => 1, fontsize => 0.8, padding_x => 4, padding_y => 4),
		1667	);
		1668
		1669	$vb
		1670	}
		1671
		1672	sub add_license {
		1673	my ($meta) = @_;
		1674
		1675	$meta = $meta->{data}
		1676	or return;
		1677
		1678	$meta->{license} \|\| $meta->{author} \|\| $meta->{source}
		1679	or return;
		1680
		1681	$LICENSE_WIDGET->add_paragraph ({
		1682	fg => [1, 1, 1, 1],
		1683	markup => "<small>"
		1684	. "<b>Name:</b> " . (CFPlus::asxml $meta->{name}) . "\n"
		1685	. "<b>Author:</b> " . (CFPlus::asxml $meta->{author}) . "\n"
		1686	. "<b>Source:</b> " . (CFPlus::asxml $meta->{source}) . "\n"
		1687	. "<b>License:</b> " . (CFPlus::asxml $meta->{license}) . "\n"
		1688	. "</small>",
		1689	});
		1690	$LICENSE_WIDGET->scroll_to_bottom;
1356	}	1691	}
1357		1692
1358	sub toggle_player_page {	1693	sub toggle_player_page {
1359	my ($widget) = @_;	1694	my ($widget) = @_;
1360		1695
…		…
1399	$ntb->add_tab (	1734	$ntb->add_tab (
1400	"Inventory (F5)" => $INVENTORY_PAGE = inventory_widget,	1735	"Inventory (F5)" => $INVENTORY_PAGE = inventory_widget,
1401	"Toggles the inventory window, where you can manage your loot (or treasures :). "	1736	"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."	1737	. "You can also hit the <b>Tab</b>-key to show/hide the Inventory."
1403	);	1738	);
1404	$ntb->add_tab (Pickup => autopickup_setup,	1739	$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.");	1740	"Configure autopickup settings, i.e. which items you will pick up automatically when walking (or running) over them.");
		1741
		1742	$ntb->add_tab (Media => media_window,
		1743	"License, Author and Source info for media sent by the server.");
1406		1744
1407	$ntb->set_current_page ($INVENTORY_PAGE);	1745	$ntb->set_current_page ($INVENTORY_PAGE);
1408		1746
1409	$plwin->add ($ntb);	1747	$plwin->add ($ntb);
1410	$plwin	1748	$plwin
…		…
1564	on_activate => sub { $QUIT_DIALOG->hide; 0 },	1902	on_activate => sub { $QUIT_DIALOG->hide; 0 },
1565	);	1903	);
1566	$hb->add (new CFPlus::UI::Button	1904	$hb->add (new CFPlus::UI::Button
1567	text => "Quit anyway",	1905	text => "Quit anyway",
1568	expand => 1,	1906	expand => 1,
1569	on_activate => sub { exit },	1907	on_activate => sub { Event::unloop_all },
1570	);	1908	);
1571	}	1909	}
1572		1910
1573	$QUIT_DIALOG->show;	1911	$QUIT_DIALOG->show;
1574	$QUIT_DIALOG->grab_focus;	1912	$QUIT_DIALOG->grab_focus;
…		…
1647		1985
1648	$SDL_ACTIVE = 1;	1986	$SDL_ACTIVE = 1;
1649	$LAST_REFRESH = time - 0.01;	1987	$LAST_REFRESH = time - 0.01;
1650		1988
1651	CFPlus::OpenGL::init;	1989	CFPlus::OpenGL::init;
		1990	CFPlus::Macro::init;
1652		1991
1653	$FONTSIZE = int $HEIGHT / 40 * $CFG->{gui_fontsize};	1992	$FONTSIZE = int $HEIGHT / 40 * $CFG->{gui_fontsize};
1654		1993
1655	$CFPlus::UI::ROOT->configure (0, 0, $WIDTH, $HEIGHT);#d#	1994	$CFPlus::UI::ROOT->configure (0, 0, $WIDTH, $HEIGHT);#d#
1656		1995
1657	#############################################################################	1996	#############################################################################
1658		1997
1659	if ($DEBUG_STATUS) {	1998	if ($DEBUG_STATUS) {
1660	CFPlus::UI::rescale_widgets $WIDTH / $old_w, $HEIGHT / $old_h;	1999	CFPlus::UI::rescale_widgets $WIDTH / $old_w, $HEIGHT / $old_h;
1661	} else {	2000	} else {
1662	# create the widgets	2001	# create/configure the widgets
		2002
		2003	$CFPlus::UI::ROOT->connect (key_down => sub {
		2004	my (undef, $ev) = @_;
		2005
		2006	if (my @macros = CFPlus::Macro::find $ev) {
		2007	CFPlus::Macro::execute $_ for @macros;
		2008
		2009	return 1;
		2010	}
		2011
		2012	0
		2013	});
1663		2014
1664	$DEBUG_STATUS = new CFPlus::UI::Label	2015	$DEBUG_STATUS = new CFPlus::UI::Label
1665	padding => 0,	2016	padding => 0,
1666	z => 100,	2017	z => 100,
1667	force_x => "max",	2018	force_x => "max",
…		…
1697	$MESSAGE_WINDOW->activate_console ($preset)	2048	$MESSAGE_WINDOW->activate_console ($preset)
1698	if $MESSAGE_WINDOW;	2049	if $MESSAGE_WINDOW;
1699	});	2050	});
1700	$MAPWIDGET->show;	2051	$MAPWIDGET->show;
1701	$MAPWIDGET->grab_focus;	2052	$MAPWIDGET->grab_focus;
		2053
		2054	$COMPLETER = new CFPlus::MapWidget::Command::
		2055	command => { },
		2056	tooltip => "#completer_help",
		2057	;
1702		2058
1703	$SETUP_DIALOG = new CFPlus::UI::Toplevel	2059	$SETUP_DIALOG = new CFPlus::UI::Toplevel
1704	title => "Setup",	2060	title => "Setup",
1705	name => "setup_dialog",	2061	name => "setup_dialog",
1706	x => 'center',	2062	x => 'center',
…		…
1768	tooltip => "Terminates the program",	2124	tooltip => "Terminates the program",
1769	on_activate => sub {	2125	on_activate => sub {
1770	if ($CONN) {	2126	if ($CONN) {
1771	open_quit_dialog;	2127	open_quit_dialog;
1772	} else {	2128	} else {
1773	exit;	2129	Event::unloop_all;
1774	}	2130	}
1775	0	2131	0
1776	},	2132	},
1777	);	2133	);
1778		2134
1779	$BUTTONBAR->show;	2135	$BUTTONBAR->show;
1780	$SETUP_DIALOG->show;	2136	$SETUP_DIALOG->show;
		2137	$MESSAGE_WINDOW->show;
1781	}	2138	}
1782		2139
1783	$STATUSBOX->add ("Set video mode $WIDTH×$HEIGHT", timeout => 10, fg => [1, 1, 1, 0.5]);	2140	$STATUSBOX->add ("Set video mode $WIDTH×$HEIGHT", timeout => 10, fg => [1, 1, 1, 0.5]);
1784	}	2141	}
1785		2142
…		…
1787	CFPlus::OpenGL::shutdown;	2144	CFPlus::OpenGL::shutdown;
1788		2145
1789	undef $SDL_ACTIVE;	2146	undef $SDL_ACTIVE;
1790	}	2147	}
1791		2148
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;	2149	my %animate_object;
1964	my $animate_timer;	2150	my $animate_timer;
1965		2151
1966	my $fps = 9;	2152	my $fps = 9;
1967		2153
1968	my %demo;#d#
1969
1970	sub force_refresh {	2154	sub force_refresh {
		2155	if ($ENV{CFPLUS_DEBUG} & 4) {
1971	$fps = $fps * 0.95 + 1 / (($NOW - $LAST_REFRESH) \|\| 0.1) * 0.05;	2156	$fps = $fps * 0.98 + 1 / (($NOW - $LAST_REFRESH) \|\| 0.1) * 0.02;
1972	debug sprintf "%3.2f", $fps if $ENV{CFPLUS_DEBUG} & 4;	2157	debug sprintf "%3.2f", $fps;
		2158	}
1973		2159
1974	$CFPlus::UI::ROOT->draw;	2160	$CFPlus::UI::ROOT->draw;
1975		2161	CFPlus::SDL_GL_SwapBuffers;
1976	$WANT_REFRESH = 0;
1977	$CAN_REFRESH = 0;
1978	$LAST_REFRESH = $NOW;	2162	$LAST_REFRESH = $NOW;
1979		2163	$WANT_REFRESH->stop;
1980	CFPlus::SDL_GL_SwapBuffers;
1981	}	2164	}
1982		2165
		2166	$WANT_REFRESH = Event->idle (min => 0.001, max => 0.06, parked => 1, cb => \&force_refresh);
		2167
1983	my $refresh_watcher = Event->timer (after => 0, hard => 0, interval => 1 / $MAX_FPS, cb => sub {	2168	my $input = Event->timer (after => 0, hard => 0, interval => 1 / 50, cb => sub {
1984	$NOW = time;	2169	$NOW = time;
1985		2170
1986	($SDL_CB{$_->{type}} \|\| sub { warn "unhandled event $_->{type}" })->($_)	2171	($SDL_CB{$_->{type}} \|\| sub { warn "unhandled event $_->{type}" })->($_)
1987	for CFPlus::poll_events;	2172	for CFPlus::poll_events;
1988		2173
1989	if (%animate_object) {	2174	if (%animate_object) {
1990	$_->animate ($LAST_REFRESH - $NOW) for values %animate_object;	2175	$_->animate ($LAST_REFRESH - $NOW) for values %animate_object;
1991	++$WANT_REFRESH;	2176	$WANT_REFRESH->start;
1992	}
1993
1994	if ($WANT_REFRESH) {
1995	force_refresh;
1996	} else {
1997	$CAN_REFRESH = 1;
1998	}	2177	}
1999	});	2178	});
2000		2179
2001	sub animation_start {	2180	sub animation_start {
2002	my ($widget) = @_;	2181	my ($widget) = @_;
…		…
2008	delete $animate_object{$widget};	2187	delete $animate_object{$widget};
2009	}	2188	}
2010		2189
2011	%SDL_CB = (	2190	%SDL_CB = (
2012	CFPlus::SDL_QUIT => sub {	2191	CFPlus::SDL_QUIT => sub {
2013	exit;	2192	Event::unloop_all;
2014	},	2193	},
2015	CFPlus::SDL_VIDEORESIZE => sub {	2194	CFPlus::SDL_VIDEORESIZE => sub {
2016	},	2195	},
2017	CFPlus::SDL_VIDEOEXPOSE => sub {	2196	CFPlus::SDL_VIDEOEXPOSE => sub {
2018	CFPlus::UI::full_refresh;	2197	CFPlus::UI::full_refresh;
…		…
2057	CFPlus::DB::Server::run;	2236	CFPlus::DB::Server::run;
2058		2237
2059	CFPlus::UI::set_layout ($::CFG->{layout});	2238	CFPlus::UI::set_layout ($::CFG->{layout});
2060		2239
2061	my %DEF_CFG = (	2240	my %DEF_CFG = (
2062	sdl_mode => 0,	2241	sdl_mode => 0,
2063	width => 640,
2064	height => 480,
2065	fullscreen => 0,	2242	fullscreen => 0,
2066	fast => 0,	2243	fast => 0,
		2244	force_opengl11 => undef,
		2245	texture_compression => 1,
2067	map_scale => 1,	2246	map_scale => 1,
2068	fow_enable => 1,	2247	fow_enable => 1,
2069	fow_intensity => 0,	2248	fow_intensity => 0,
2070	map_smoothing => 1,	2249	map_smoothing => 1,
2071	gui_fontsize => 1,	2250	gui_fontsize => 1,
2072	log_fontsize => 0.7,	2251	log_fontsize => 0.7,
2073	gauge_fontsize => 1,	2252	gauge_fontsize => 1,
2074	gauge_size => 0.35,	2253	gauge_size => 0.35,
2075	stat_fontsize => 0.7,	2254	stat_fontsize => 0.7,
2076	mapsize => 100,	2255	mapsize => 100,
2077	audio_enable => 1,	2256	audio_enable => 1,
		2257	effects_enable => 1,
		2258	effects_volume => 1,
2078	bgm_enable => 1,	2259	bgm_enable => 1,
2079	bgm_volume => 0.25,	2260	bgm_volume => 0.5,
2080	output_sync => 1,	2261	output_sync => 1,
2081	output_count => 1,	2262	output_count => 1,
2082	output_rate => "",	2263	output_rate => "",
2083	pickup => 0,	2264	pickup => 0,
2084	inv_sort => "mtime",	2265	inv_sort => "mtime",
2085	default => "profile", # default profile	2266	default => "profile", # default profile
2086	show_tips => 1,	2267	show_tips => 1,
2087	logview_max_par => 1000,	2268	logview_max_par => 1000,
2088	);	2269	);
2089		2270
2090	while (my ($k, $v) = each %DEF_CFG) {	2271	while (my ($k, $v) = each %DEF_CFG) {
2091	$CFG->{$k} = $v unless exists $CFG->{$k};	2272	$CFG->{$k} = $v unless exists $CFG->{$k};
2092	}	2273	}
…		…
2149	# }	2330	# }
2150	# my $t2 = Time::HiRes::time;	2331	# my $t2 = Time::HiRes::time;
2151	# warn $t2-$t1;	2332	# warn $t2-$t1;
2152	# }	2333	# }
2153		2334
2154	$startup_done->();
2155
2156	video_init;	2335	video_init;
2157	audio_init;	2336	audio_init;
2158	}	2337	}
2159		2338
2160	show_tip_of_the_day if $CFG->{show_tips};	2339	show_tip_of_the_day if $CFG->{show_tips};
2161		2340
		2341	Event->idle (cb => sub {
		2342	$_[0]->w->cancel;
		2343	$startup_done->();
		2344	});
		2345
2162	Event::loop;	2346	Event::loop;
		2347
		2348	#video_shutdown;
		2349	#audio_shutdown;
2163	#CFPlus::SDL_Quit;	2350	CFPlus::SDL_Quit;
2164	#CFPlus::_exit 0;
2165
2166	END {
2167	CFPlus::SDL_Quit;
2168	CFPlus::DB::Server::stop;	2351	CFPlus::DB::Server::stop;
2169	}
2170		2352
2171	=head1 NAME	2353	=head1 NAME
2172		2354
2173	cfplus - A Crossfire+ and Crossfire game client	2355	cfplus - A Crossfire TRT and Crossfire game client
2174		2356
2175	=head1 SYNOPSIS	2357	=head1 SYNOPSIS
2176		2358
2177	Just run it - no commandline arguments are supported.	2359	Just run it - no commandline arguments are supported.
2178		2360
2179	=head1 USAGE	2361	=head1 USAGE
2180		2362
2181	cfplus utilises OpenGL for all UI elements and the game. It is supposed to be used	2363	cfplus utilises OpenGL for all UI elements and the game. It is supposed to
2182	fullscreen and interactively.	2364	be used in fullscreen mode and interactively.
2183		2365
2184	=head1 DEBUGGING	2366	=head1 DEBUGGING
2185		2367
2186		2368
2187	CFPLUS_DEBUG - environment variable	2369	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.226 by root, Sat Sep 1 07:22:21 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.226 by root, Sat Sep 1 07:22:21 2007 UTC