ViewVC Help

View File | Revision Log | Show Annotations | Download File

/cvs/deliantra/Deliantra-Client/bin/cfplus

Comparing deliantra/Deliantra-Client/bin/cfplus (file contents):
Revision 1.134 by elmex, Mon Dec 4 15:17:14 2006 UTC vs.
Revision 1.203 by root, Mon Aug 6 02:11:45 2007 UTC

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

Diff Legend

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