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

Diff Legend

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