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.23 by root, Sun May 28 02:31:04 2006 UTC vs.
Revision 1.166 by root, Thu Jul 12 19:13:20 2007 UTC

1	#!/opt/bin/perl	1	#!/opt/bin/perl
		2
		3	my $startup_done = sub { };
		4	our $PANGO = "1.5.0";
		5
		6	# do splash-screen thingy on win32
		7	BEGIN {
		8	if (%PAR::LibCache && $^O eq "MSWin32") {
		9	while (my ($filename, $zip) = each %PAR::LibCache) {
		10	$zip->extractMember ("SPLASH.bmp", "$ENV{PAR_TEMP}/SPLASH.bmp");
		11	}
		12
		13	require Win32::GUI::SplashScreen;
		14
		15	Win32::GUI::SplashScreen::Show (
		16	-file => "$ENV{PAR_TEMP}/SPLASH.bmp",
		17	);
		18
		19	$startup_done = sub {
		20	Win32::GUI::SplashScreen::Done (1);
		21	};
		22	}
		23	}
2		24
3	use strict;	25	use strict;
4	use utf8;	26	use utf8;
		27
		28	use Carp 'verbose';
5		29
6	# do things only needed for single-binary version (par)	30	# do things only needed for single-binary version (par)
7	BEGIN {	31	BEGIN {
8	if (%PAR::LibCache) {	32	if (%PAR::LibCache) {
9	@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
10		34
		35	my $tmp = $ENV{PAR_TEMP};
		36
11	while (my ($filename, $zip) = each %PAR::LibCache) {	37	while (my ($filename, $zip) = each %PAR::LibCache) {
12	for ($zip->memberNames) {	38	for ($zip->memberNames) {
13	next unless /^\/root\/(.*)/;	39	next unless /^root\/(.*)/;
14	$zip->extractMember ($_, "$ENV{PAR_TEMP}/$1")	40	$zip->extractMember ($_, "$tmp/$1")
15	unless -e "$ENV{PAR_TEMP}/$1";	41	unless -e "$tmp/$1";
16	}	42	}
17	}	43	}
18		44
19	# 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
20		54
21	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;
22	}	67	}
23	}	68	}
24		69
25	# 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
26	unshift @INC, $ENV{PAR_TEMP}	71	unshift @INC, $ENV{PAR_TEMP}
27	if %PAR::LibCache;	72	if %PAR::LibCache;
28		73
29	use Time::HiRes 'time';	74	use Time::HiRes 'time';
30	use Pod::POM;
31	use Event;	75	use Event;
32		76
33	use Crossfire;	77	use Crossfire;
34	use Crossfire::Protocol::Constants;	78	use Crossfire::Protocol::Constants;
35		79
36	use Compress::LZF;	80	use Compress::LZF;
37		81
38	use CFClient;	82	use CFPlus;
39	use CFClient::OpenGL ();	83	use CFPlus::OpenGL ();
40	use CFClient::Protocol;	84	use CFPlus::Protocol;
		85	use CFPlus::DB;
41	use CFClient::UI;	86	use CFPlus::UI;
		87	use CFPlus::UI::Inventory;
		88	use CFPlus::UI::SpellList;
		89	use CFPlus::Pod;
42	use CFClient::MapWidget;	90	use CFPlus::MapWidget;
		91	use CFPlus::Macro;
43		92
		93	$SIG{QUIT} = sub { Carp::cluck "QUIT" };
		94	$SIG{PIPE} = 'IGNORE';
		95
		96	$Event::Eval = 1;
44	$Event::DIED = sub {	97	$Event::DIED = sub {
45	# TODO: display dialog box or so	98	CFPlus::fatal Carp::longmess $_[1]
46	CFClient::error $_[1];
47	};	99	};
48
49	#$SIG{__WARN__} = sub { Carp::cluck $_[0] };#d#
50
51	our $VERSION = '0.1';
52		100
53	my $MAX_FPS = 60;	101	my $MAX_FPS = 60;
54	my $MIN_FPS = 5; # unused as of yet	102	my $MIN_FPS = 5; # unused as of yet
55		103
56	our $META_SERVER = "crossfire.real-time.com:13326";	104	our $META_SERVER = "http://metaserver.schmorp.de/current.json";
57		105
58	our $LAST_REFRESH;	106	our $LAST_REFRESH;
59	our $NOW;	107	our $NOW;
60		108
61	our $CFG;	109	our $CFG;
62	our $CONN;	110	our $CONN;
		111	our $PROFILE; # current profile
63	our $FAST; # fast, low-quality mode, possibly useful for software-rendering	112	our $FAST; # fast, low-quality mode, possibly useful for software-rendering
64		113
65	our $WANT_REFRESH;	114	our $WANT_REFRESH;
66	our $CAN_REFRESH;	115	our $CAN_REFRESH;
67		116
…		…
81	our $LOGVIEW;	130	our $LOGVIEW;
82	our $CONSOLE;	131	our $CONSOLE;
83	our $METASERVER;	132	our $METASERVER;
84	our $LOGIN_BUTTON;	133	our $LOGIN_BUTTON;
85	our $QUIT_DIALOG;	134	our $QUIT_DIALOG;
86	our $SERVER_SETUP;	135	our $HOST_ENTRY;
		136	our $FULLSCREEN_ENABLE;
		137	our $PICKUP_ENABLE;
		138	our $SERVER_INFO;
87		139
		140	our $SETUP_DIALOG;
		141	our $SETUP_NOTEBOOK;
		142	our $SETUP_SERVER;
		143	our $SETUP_KEYBOARD;
		144
		145	our $PL_NOTEBOOK;
		146	our $PL_WINDOW;
		147
		148	our $INVENTORY_PAGE;
		149	our $STATS_PAGE;
		150	our $SKILL_PAGE;
		151	our $SPELL_PAGE;
		152	our $SPELL_LIST;
		153
		154	our $HELP_WINDOW;
		155	our $MESSAGE_WINDOW;
88	our $FLOORBOX;	156	our $FLOORBOX;
89	our $GAUGES;	157	our $GAUGES;
90	our $STATWIDS;	158	our $STATWIDS;
91		159
92	our $SDL_ACTIVE;	160	our $SDL_ACTIVE;
93	our %SDL_CB;	161	our %SDL_CB;
94		162
95	our $SDL_MIXER;	163	our $SDL_MIXER;
		164	our $MUSIC_DEFAULT = "in_a_heartbeat.ogg";
		165	our @MUSIC_WANT;
		166	our $MUSIC_PLAYING;
		167	our $MUSIC_PLAYER;
96	our @SOUNDS; # event => file mapping	168	our @SOUNDS; # event => file mapping
97	our %AUDIO_CHUNKS; # audio files	169	our %AUDIO_CHUNKS; # audio files
98		170
99	our $ALT_ENTER_MESSAGE;	171	our $ALT_ENTER_MESSAGE;
100	our $STATUSBOX;	172	our $STATUSBOX;
101	our $DEBUG_STATUS;	173	our $DEBUG_STATUS;
102		174
103	our $INV_WINDOW;
104	our $INV;	175	our $INV;
105	our $INVR;	176	our $INVR;
106	our $INVR_LBL;	177	our $INV_RIGHT_HB;
		178
		179	our $PICKUP_CFG;
		180
		181	our $IN_BUILD_MODE;
		182	our $BUILD_BUTTON;
107		183
108	sub status {	184	sub status {
109	$STATUSBOX->add (CFClient::UI::Label::escape $_[0], pri => -10, group => "status", timeout => 10, fg => [1, 1, 0, 1]);	185	$STATUSBOX->add (CFPlus::asxml $_[0], pri => -10, group => "status", timeout => 10, fg => [1, 1, 0, 1]);
110	}	186	}
111		187
112	sub debug {	188	sub debug {
113	$DEBUG_STATUS->set_text ($_[0]);	189	$DEBUG_STATUS->set_text ($_[0]);
114	my ($w, $h) = $DEBUG_STATUS->size_request;	190	}
115	$DEBUG_STATUS->move ($WIDTH - $w, 0);	191
		192	sub message {
		193	my ($para) = @_;
		194
		195	my $time = sprintf "%02d:%02d:%02d", (localtime time)[2,1,0];
		196
		197	$para->{markup} = "<span foreground='#ffffff'>$time</span> $para->{markup}";
		198
		199	$LOGVIEW->add_paragraph ($para);
		200	$LOGVIEW->scroll_to_bottom;
		201	}
		202
		203	sub destroy_query_dialog {
		204	(delete $_[0]{query_dialog})->destroy
		205	if $_[0]{query_dialog};
		206	}
		207
		208	# FIXME: a very ugly hack to wait for stat update look below! #d#
		209	our $QUERY_TIMER; #d#
		210
		211	# server query dialog
		212	sub server_query {
		213	my ($conn, $flags, $prompt) = @_;
		214
		215	# FIXME: a very ugly hack to wait for stat update #d#
		216	if ($prompt =~ /roll new stats/ and not $conn->{stat_change_with}) {
		217	unless ($QUERY_TIMER) {
		218	$QUERY_TIMER =
		219	Event->timer (
		220	after => 1,
		221	cb => sub {
		222	server_query ($conn, $flags, $prompt, 1);
		223	$QUERY_TIMER = undef
		224	}
		225	);
		226	return;
		227	}
		228	}
		229
		230	$conn->{query_dialog} = my $dialog = new CFPlus::UI::Toplevel
		231	x => "center",
		232	y => "center",
		233	title => "Server Query",
		234	child => my $vbox = new CFPlus::UI::VBox,
		235	;
		236
		237	my @dialog = my $label = new CFPlus::UI::Label
		238	max_w => $::WIDTH * 0.8,
		239	ellipsise => 0,
		240	text => $prompt;
		241
		242	if ($flags & CS_QUERY_YESNO) {
		243	push @dialog, my $hbox = new CFPlus::UI::HBox;
		244
		245	$hbox->add (new CFPlus::UI::Button
		246	text => "No",
		247	on_activate => sub {
		248	$conn->send ("reply n");
		249	$dialog->destroy;
		250	0
		251	}
		252	);
		253	$hbox->add (new CFPlus::UI::Button
		254	text => "Yes",
		255	on_activate => sub {
		256	$conn->send ("reply y");
		257	destroy_query_dialog $conn;
		258	0
		259	},
		260	);
		261
		262	$dialog->grab_focus;
		263
		264	} elsif ($flags & CS_QUERY_SINGLECHAR) {
		265	if ($prompt =~ /Now choose a character|Press any key for the next race/i) {
		266	$dialog->{tooltip} = "#charcreation_focus";
		267
		268	unshift @dialog, new CFPlus::UI::Label
		269	max_w => $::WIDTH * 0.8,
		270	ellipsise => 0,
		271	markup => "\nOr use your keyboard and the text entry below:\n";
		272
		273	unshift @dialog, my $table = new CFPlus::UI::Table;
		274
		275	$table->add (0, 0, new CFPlus::UI::Button
		276	text => "Next Race",
		277	on_activate => sub {
		278	$conn->send ("reply n");
		279	destroy_query_dialog $conn;
		280	0
		281	},
		282	);
		283	$table->add (2, 0, new CFPlus::UI::Button
		284	text => "Accept",
		285	on_activate => sub {
		286	$conn->send ("reply d");
		287	destroy_query_dialog $conn;
		288	0
		289	},
		290	);
		291
		292	if ($conn->{chargen_race_description}) {
		293	unshift @dialog, new CFPlus::UI::Label
		294	max_w => $::WIDTH * 0.8,
		295	ellipsise => 0,
		296	markup => "<span foreground='#ccccff'>$conn->{chargen_race_description}</span>",
		297	;
		298	}
		299
		300	unshift @dialog, new CFPlus::UI::Face
		301	face => $conn->{player}{face},
		302	bg => [.2, .2, .2, 1],
		303	min_w => 64,
		304	min_h => 64,
		305	;
		306
		307	if ($conn->{chargen_race_title}) {
		308	unshift @dialog, new CFPlus::UI::Label
		309	allign => 1,
		310	ellipsise => 0,
		311	markup => "<span foreground='#ccccff' size='large'>Race: $conn->{chargen_race_title}</span>",
		312	;
		313	}
		314
		315	unshift @dialog, new CFPlus::UI::Label
		316	max_w => $::WIDTH * 0.4,
		317	ellipsise => 0,
		318	markup => (CFPlus::Pod::section_label ui => "chargen_race"),
		319	;
		320
		321	} elsif ($prompt =~ /roll new stats/) {
		322	if (my $stat = delete $conn->{stat_change_with}) {
		323	$conn->send ("reply $stat");
		324	destroy_query_dialog $conn;
		325	return;
		326	}
		327
		328	$STATS_PAGE->show;
		329	$MESSAGE_WINDOW->hide;
		330
		331	unshift @dialog, new CFPlus::UI::Label
		332	max_w => $::WIDTH * 0.4,
		333	ellipsise => 0,
		334	markup => "\nOr use your keyboard and the text entry below:\n";
		335
		336	unshift @dialog, my $table = new CFPlus::UI::Table;
		337
		338	# left: re-roll
		339	$table->add (0, 0, new CFPlus::UI::Button
		340	text => "Roll Again",
		341	on_activate => sub {
		342	$conn->send ("reply y");
		343	destroy_query_dialog $conn;
		344	0
		345	},
		346	);
		347
		348	# center: swap stats
		349	my ($sw1, $sw2) = map +(new CFPlus::UI::Selector
		350	expand => 1,
		351	value => $_,
		352	options => [
		353	[1 => "Str", "Strength ($conn->{stat}{+CS_STAT_STR})"],
		354	[2 => "Dex", "Dexterity ($conn->{stat}{+CS_STAT_DEX})"],
		355	[3 => "Con", "Constitution ($conn->{stat}{+CS_STAT_CON})"],
		356	[4 => "Int", "Intelligence ($conn->{stat}{+CS_STAT_INT})"],
		357	[5 => "Wis", "Wisdom ($conn->{stat}{+CS_STAT_WIS})"],
		358	[6 => "Pow", "Power ($conn->{stat}{+CS_STAT_POW})"],
		359	[7 => "Cha", "Charisma ($conn->{stat}{+CS_STAT_CHA})"],
		360	],
		361	), 1 .. 2;
		362
		363	$table->add (2, 0, new CFPlus::UI::Button
		364	text => "Swap Stats",
		365	on_activate => sub {
		366	$conn->{stat_change_with} = $sw2->{value};
		367	$conn->send ("reply $sw1->{value}");
		368	destroy_query_dialog $conn;
		369	0
		370	},
		371	);
		372	$table->add (2, 1, new CFPlus::UI::HBox children => [$sw1, $sw2]);
		373
		374	# right: accept
		375	$table->add (4, 0, new CFPlus::UI::Button
		376	text => "Accept",
		377	on_activate => sub {
		378	$conn->send ("reply n");
		379	$STATS_PAGE->hide;
		380	destroy_query_dialog $conn;
		381	0
		382	},
		383	);
		384
		385	unshift @dialog, my $hbox = new CFPlus::UI::HBox;
		386	for (
		387	[Str => CS_STAT_STR],
		388	[Dex => CS_STAT_DEX],
		389	[Con => CS_STAT_CON],
		390	[Int => CS_STAT_INT],
		391	[Wis => CS_STAT_WIS],
		392	[Pow => CS_STAT_POW],
		393	[Cha => CS_STAT_CHA],
		394	) {
		395	my ($name, $id) = @$_;
		396	$hbox->add (new CFPlus::UI::Label
		397	markup => "$conn->{stat}{$id} <span foreground='yellow'>$name</span>",
		398	align => 0,
		399	expand => 1,
		400	can_events => 1,
		401	can_hover => 1,
		402	tooltip => "#stat_$name",
		403	);
		404	}
		405
		406	unshift @dialog, new CFPlus::UI::Label
		407	max_w => $::WIDTH * 0.4,
		408	ellipsise => 0,
		409	markup => (CFPlus::Pod::section_label ui => "chargen_stats"),
		410	;
		411	}
		412
		413	push @dialog, my $entry = new CFPlus::UI::Entry
		414	on_changed => sub {
		415	$conn->send ("reply $_[1]");
		416	destroy_query_dialog $conn;
		417	0
		418	},
		419	;
		420
		421	$entry->grab_focus;
		422
		423	} else {
		424	$dialog->{tooltip} = "Enter the reply and press return (click on the entry to make sure it has keyboard focus)";
		425
		426	push @dialog, my $entry = new CFPlus::UI::Entry
		427	$flags & CS_QUERY_HIDEINPUT ? (hidden => "*") : (),
		428	on_activate => sub {
		429	$conn->send ("reply $_[1]");
		430	destroy_query_dialog $conn;
		431	0
		432	},
		433	;
		434
		435	$entry->grab_focus;
		436	}
		437
		438	$vbox->add (@dialog);
		439	$dialog->show;
116	}	440	}
117		441
118	sub start_game {	442	sub start_game {
119	status "logging in...";	443	status "logging in...";
120		444
121	$LOGIN_BUTTON->set_text ("Logout");	445	$LOGIN_BUTTON->set_text ("Logout");
122	$SERVER_SETUP->hide;	446	$SETUP_DIALOG->hide;
123		447
124	my $mapsize = List::Util::min 32, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / 32;	448	my $mapsize = List::Util::min 32, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / 32;
125		449
126	my ($host, $port) = split /:/, $CFG->{host};	450	my ($host, $port) = split /:/, $PROFILE->{host};
127		451
128	$MAP = new CFClient::Map $mapsize, $mapsize;	452	$MAP = new CFPlus::Map;
129		453
130	$CONN = eval {	454	$CONN = eval {
131	new CFClient::Protocol	455	new CFPlus::Protocol
132	host => $host,	456	host => $host,
133	port => $port || 13327,	457	port => $port || 13327,
134	user => $CFG->{user},	458	user => $PROFILE->{user},
135	pass => $CFG->{password},	459	pass => $PROFILE->{password},
136	mapw => $mapsize,	460	mapw => $mapsize,
137	maph => $mapsize,	461	maph => $mapsize,
		462
		463	client => "cfplus $CFPlus::VERSION $] $^O",
138		464
139	map_widget => $MAPWIDGET,	465	map_widget => $MAPWIDGET,
140	logview => $LOGVIEW,	466	logview => $LOGVIEW,
141	statusbox => $STATUSBOX,	467	statusbox => $STATUSBOX,
142	map => $MAP,	468	map => $MAP,
143	mapmap => $MAPMAP,	469	mapmap => $MAPMAP,
		470	query => \&server_query,
		471
		472	setup_req => {
		473	smoothing => $CFG->{map_smoothing}*1,
		474	},
144		475
145	sound_play => sub {	476	sound_play => sub {
146	my ($x, $y, $soundnum, $type) = @_;	477	my ($x, $y, $soundnum, $type) = @_;
147		478
148	$SDL_MIXER	479	$SDL_MIXER
…		…
154	$chunk->play;	485	$chunk->play;
155	},	486	},
156	};	487	};
157		488
158	if ($CONN) {	489	if ($CONN) {
159	CFClient::lowdelay fileno $CONN->{fh};	490	CFPlus::lowdelay fileno $CONN->{fh};
160		491
161	status "login successful";	492	status "login successful";
162	} else {	493	} else {
163	status "unable to connect";	494	status "unable to connect";
164	stop_game();	495	stop_game();
165	}	496	}
166	}	497	}
167		498
168	sub stop_game {	499	sub stop_game {
169	$LOGIN_BUTTON->set_text ("Login");	500	$LOGIN_BUTTON->set_text ("Login");
170	$SERVER_SETUP->show;	501	$SETUP_NOTEBOOK->set_current_page ($SETUP_SERVER);
		502	$SETUP_DIALOG->show;
171	$INV_WINDOW->hide;	503	$PL_WINDOW->hide;
172	$LOGVIEW->hide;	504	$SPELL_LIST->clear_spells;
		505	$CFPlus::UI::ROOT->emit (stop_game => ! ! $CONN);
		506
		507	&audio_music_set ([]);
173		508
174	return unless $CONN;	509	return unless $CONN;
175		510
176	status "connection closed";	511	status "connection closed";
177		512
		513	destroy_query_dialog $CONN;
178	$CONN->destroy;	514	$CONN->destroy;
179	$CONN = 0; # false, does not autovivify	515	$CONN = 0; # false, does not autovivify
180	}
181		516
182	sub client_setup {	517	undef $MAP;
183	my $dialog = new CFClient::UI::FancyFrame	518	}
184	req_x => 1,	519
185	req_y => $HEIGHT * (1/8),	520	sub graphics_setup {
186	name => "client_setup",	521	my $vbox = new CFPlus::UI::VBox;
187	title => "Client Setup",	522
188	child => (my $vbox = new CFClient::UI::VBox);
189	$vbox->add (my $table = new CFClient::UI::Table expand => 1, col_expand => [0, 1]);	523	$vbox->add (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]);
190		524
		525	my $row = 0;
		526
		527	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "OpenGL Info");
		528	$table->add (1, $row++, new CFPlus::UI::Label valign => 0, fontsize => 0.8, text => CFPlus::OpenGL::gl_vendor . ", " . CFPlus::OpenGL::gl_version,
		529	can_events => 1,
		530	tooltip => "<tt><span size='8192'>" . (CFPlus::OpenGL::gl_extensions) . "</span></tt>");
		531
191	$table->add (0, 0, new CFClient::UI::Label valign => 0, align => 1, text => "Video Mode");	532	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Video Mode");
192	$table->add (1, 0, my $hbox = new CFClient::UI::HBox);	533	$table->add (1, $row++, my $hbox = new CFPlus::UI::HBox);
193		534
194	$hbox->add (my $mode_slider = new CFClient::UI::Slider expand => 1, req_w => 100, range => [$CFG->{sdl_mode}, 0, $#SDL_MODES, 0, 1]);	535	$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]);
195	$hbox->add (my $mode_label = new CFClient::UI::Label align => 0, valign => 0, height => 0.8, template => "9999x9999");	536	$hbox->add (my $mode_label = new CFPlus::UI::Label align => 0, valign => 0, height => 0.8, template => "9999x9999");
196		537
197	$mode_slider->connect (changed => sub {	538	$mode_slider->connect (changed => sub {
198	my ($self, $value) = @_;	539	my ($self, $value) = @_;
199		540
200	$CFG->{sdl_mode} = $self->{range}[0] = $value = int $value;	541	$CFG->{sdl_mode} = $self->{range}[0] = $value = int $value;
201	$mode_label->set_text (sprintf "%dx%d", @{$SDL_MODES[$value]});	542	$mode_label->set_text (sprintf "%dx%d", @{$SDL_MODES[$value]});
202	});	543	});
203	$mode_slider->emit (changed => $mode_slider->{range}[0]);	544	$mode_slider->emit (changed => $mode_slider->{range}[0]);
204		545
205	my $row = 1;
206
207	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fullscreen");	546	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fullscreen");
208	$table->add (1, $row++, new CFClient::UI::CheckBox	547	$table->add (1, $row++, $FULLSCREEN_ENABLE = new CFPlus::UI::CheckBox
209	state => $CFG->{fullscreen},	548	state => $CFG->{fullscreen},
210	tooltip => "Bring the client into fullscreen mode.",	549	tooltip => "Bring the client into fullscreen mode.",
211	on_changed => sub {	550	on_changed => sub { my ($self, $value) = @_; $CFG->{fullscreen} = $value; 0 }
212	my ($self, $value) = @_;
213	$CFG->{fullscreen} = $value;
214	}
215	);	551	);
216		552
217	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fast & Ugly");	553	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fast & Ugly");
218	$table->add (1, $row++, new CFClient::UI::CheckBox	554	$table->add (1, $row++, new CFPlus::UI::CheckBox
219	state => $CFG->{fast},	555	state => $CFG->{fast},
220	tooltip => "Lower the visual quality considerably to speed up rendering.",	556	tooltip => "Lower the visual quality considerably to speed up rendering.",
		557	on_changed => sub { my ($self, $value) = @_; $CFG->{fast} = $value; 0 }
		558	);
		559
		560	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "GUI Fontsize");
		561	$table->add (1, $row++, new CFPlus::UI::Slider
		562	range => [$CFG->{gui_fontsize}, 0.5, 2, 0, 0.1],
		563	tooltip => "The base font size used by most GUI elements that do not have their own setting.",
		564	on_changed => sub { $CFG->{gui_fontsize} = $_[1]; 0 },
		565	);
		566
		567	$table->add (1, $row++, new CFPlus::UI::Button
		568	expand => 1, align => 0, text => "Apply",
		569	tooltip => "Apply the video settings above.",
221	on_changed => sub {	570	on_activate => sub {
222	my ($self, $value) = @_;	571	video_shutdown ();
223	$CFG->{fast} = $value;	572	video_init ();
		573	0
224	}	574	}
225	);	575	);
226		576
227	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Map Scale");	577	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Map Scale");
228	$table->add (1, $row++, new CFClient::UI::Slider	578	$table->add (1, $row++, new CFPlus::UI::Slider
229	range => [(log $CFG->{map_scale}) / (log 2), -3, 1, 0, 1],	579	range => [(log $CFG->{map_scale}) / (log 2), -3, 1, 0, 1],
230	tooltip => "Enlarge or shrink the displayed map. Changes are instant.",	580	tooltip => "Enlarge or shrink the displayed map. Changes are instant.",
231	on_changed => sub {	581	on_changed => sub { my ($self, $value) = @_; $CFG->{map_scale} = 2 ** $value; 0 }
232	my ($self, $value) = @_;
233	$CFG->{map_scale} = 2 ** $value;
234	}
235	);	582	);
236		583
		584	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Smoothing");
		585	$table->add (1, $row++, new CFPlus::UI::CheckBox
		586	state => $CFG->{map_smoothing},
		587	tooltip => "<b>Map Smoothing</b> tries to make tile borders less square. "
		588	. "This increases load on the graphics subsystem and works only with 2.x servers. "
		589	. "Changes take effect at next connection only.",
		590	on_changed => sub { my ($self, $value) = @_; $CFG->{map_smoothing} = $value; 0 }
		591	);
		592
237	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fog of War");	593	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fog of War");
238	$table->add (1, $row++, new CFClient::UI::CheckBox	594	$table->add (1, $row++, new CFPlus::UI::CheckBox
239	state => $CFG->{fow_enable},	595	state => $CFG->{fow_enable},
240	tooltip => "<b>Fog-of-War</b> marks areas that cannot be seen by the player. Changes are instant.",	596	tooltip => "<b>Fog-of-War</b> marks areas that cannot be seen by the player. Changes are instant.",
241	on_changed => sub {	597	on_changed => sub { my ($self, $value) = @_; $CFG->{fow_enable} = $value; 0 }
242	my ($self, $value) = @_;
243	$CFG->{fow_enable} = $value;
244	}
245	);	598	);
246		599
247	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "FoW Intensity");	600	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "FoW Intensity");
248	$table->add (1, $row++, new CFClient::UI::Slider	601	$table->add (1, $row++, new CFPlus::UI::Slider
249	range => [$CFG->{fow_intensity}, 0, 1, 0, 1 / 256],	602	range => [$CFG->{fow_intensity}, 0, 1, 0, 1 / 256],
250	tooltip => "<b>Fog of War Lightness.</b> The higher the intensity, the lighter the Fog-of-War color. Changes are instant.",	603	tooltip => "<b>Fog of War Lightness.</b> The higher the intensity, the lighter the Fog-of-War color. Changes are instant.",
251	on_changed => sub {	604	on_changed => sub { my ($self, $value) = @_; $CFG->{fow_intensity} = $value; 0 }
252	my ($self, $value) = @_;
253	$CFG->{fow_intensity} = $value;
254	}
255	);	605	);
256		606
257	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "FoW Smooth");	607	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "FoW Smooth");
258	$table->add (1, $row++, new CFClient::UI::CheckBox	608	$table->add (1, $row++, new CFPlus::UI::CheckBox
259	state => $CFG->{fow_smooth},	609	state => $CFG->{fow_smooth},
260	tooltip => "Smooth the Fog-of-War a bit to make it more realistic. Changes are instant.",	610	tooltip => "Smooth the Fog-of-War a bit to make it more realistic. Changes are instant.",
261	on_changed => sub {	611	on_changed => sub {
262	my ($self, $value) = @_;	612	my ($self, $value) = @_;
263	$CFG->{fow_smooth} = $value;	613	$CFG->{fow_smooth} = $value;
264	status "Fog of War smoothing requires OpenGL 1.2 or higher" if $CFClient::OpenGL::GL_VERSION < 1.2;	614	status "Fog of War smoothing requires OpenGL 1.2 or higher" if $CFPlus::OpenGL::GL_VERSION < 1.2;
		615	0
265	}	616	}
266	);	617	);
267		618
268	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "GUI Fontsize");
269	$table->add (1, $row++, new CFClient::UI::Slider
270	range => [$CFG->{gui_fontsize}, 0.5, 2, 0, 0.1],
271	tooltip => "The base font size used by most GUI elements that do not have their own setting.",
272	on_changed => sub { $CFG->{gui_fontsize} = $_[1] },
273	);
274
275	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Message Fontsize");	619	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Message Fontsize");
276	$table->add (1, $row++, new CFClient::UI::Slider	620	$table->add (1, $row++, new CFPlus::UI::Slider
277	range => [$CFG->{log_fontsize}, 0.5, 2, 0, 0.1],	621	range => [$CFG->{log_fontsize}, 0.5, 2, 0, 0.1],
278	tooltip => "The font size used by the <b>message/server log</b> window only. Changes are instant.",	622	tooltip => "The font size used by the <b>message/server log</b> window only. Changes are instant.",
279	on_changed => sub { $LOGVIEW->set_fontsize ($CFG->{log_fontsize} = $_[1]) },	623	on_changed => sub { $LOGVIEW->set_fontsize ($CFG->{log_fontsize} = $_[1]); 0 },
280	);	624	);
281		625
282	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Stats Fontsize");
283
284	$table->add (1, $row++, new CFClient::UI::Slider
285	range => [$CFG->{stat_fontsize}, 0.5, 2, 0, 0.1],
286	tooltip => "The font size used by the <b>statistics window</b> only. Changes are instant.",
287	on_changed => sub {
288	$CFG->{stat_fontsize} = $_[1];
289	&set_stats_window_fontsize;
290	}
291	);
292
293	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Gauge fontsize");	626	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Gauge fontsize");
294	$table->add (1, $row++, new CFClient::UI::Slider	627	$table->add (1, $row++, new CFPlus::UI::Slider
295	range => [$CFG->{gauge_fontsize}, 0.5, 2, 0, 0.1],	628	range => [$CFG->{gauge_fontsize}, 0.5, 2, 0, 0.1],
296	tooltip => "Adjusts the fontsize of the gauges at the bottom right. Changes are instant.",	629	tooltip => "Adjusts the fontsize of the gauges at the bottom right. Changes are instant.",
297	on_changed => sub {	630	on_changed => sub {
298	$CFG->{gauge_fontsize} = $_[1];	631	$CFG->{gauge_fontsize} = $_[1];
299	&set_gauge_window_fontsize;	632	&set_gauge_window_fontsize;
		633	0
300	}	634	}
301	);	635	);
302		636
303	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Gauge size");	637	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Gauge size");
304	$table->add (1, $row++, new CFClient::UI::Slider	638	$table->add (1, $row++, new CFPlus::UI::Slider
305	range => [$CFG->{gauge_size}, 0.2, 0.8],	639	range => [$CFG->{gauge_size}, 0.2, 0.8],
306	tooltip => "Adjust the size of the stats gauges at the bottom right. Changes are instant.",	640	tooltip => "Adjust the size of the stats gauges at the bottom right. Changes are instant.",
307	on_changed => sub {	641	on_changed => sub {
308	$CFG->{gauge_size} = $_[1];	642	$CFG->{gauge_size} = $_[1];
309	$GAUGES->{win}->set_size ($WIDTH, int $HEIGHT * $CFG->{gauge_size});	643	$GAUGES->{win}->set_size ($WIDTH, int $HEIGHT * $CFG->{gauge_size});
		644	0
310	}	645	}
311	);	646	);
312		647
313	$table->add (1, $row++, new CFClient::UI::Button	648	$vbox
314	expand => 1, align => 0, text => "Apply",	649	}
315	tooltip => "Apply the video settings",
316	on_activate => sub {
317	video_shutdown ();
318	video_init ();
319	}
320	);
321		650
		651	sub audio_setup {
		652	my $vbox = new CFPlus::UI::VBox;
		653
		654	$vbox->add (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]);
		655
		656	my $row = 0;
		657
322	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Audio Enable");	658	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Audio Enable");
323	$table->add (1, $row++, new CFClient::UI::CheckBox	659	$table->add (1, $row++, new CFPlus::UI::CheckBox
324	state => $CFG->{audio_enable},	660	state => $CFG->{audio_enable},
325	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.",	661	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.",
326	on_changed => sub {	662	on_changed => sub { $CFG->{audio_enable} = $_[1]; 0 }
327	$CFG->{audio_enable} = $_[1];
328	}
329	);	663	);
330	# $table->add (0, 9, new CFClient::UI::Label valign => 0, align => 1, text => "Effects Volume");	664	# $table->add (0, 9, new CFPlus::UI::Label valign => 0, align => 1, text => "Effects Volume");
331	# $table->add (1, 8, new CFClient::UI::Slider range => [$CFG->{effects_volume}, 0, 128, 1], on_changed => sub {	665	# $table->add (1, 8, new CFPlus::UI::Slider range => [$CFG->{effects_volume}, 0, 128, 1], on_changed => sub {
332	# $CFG->{effects_volume} = $_[1];	666	# $CFG->{effects_volume} = $_[1];
333	# });	667	# });
334	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Background Music");	668	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Background Music");
335	$table->add (1, $row++, my $hbox = new CFClient::UI::HBox);	669	$table->add (1, $row++, my $hbox = new CFPlus::UI::HBox);
336	$hbox->add (new CFClient::UI::CheckBox	670	$hbox->add (new CFPlus::UI::CheckBox
337	expand => 1, state => $CFG->{bgm_enable},	671	expand => 1, state => $CFG->{bgm_enable},
338	tooltip => "If enabled, playing of background music is enabled. If disabled, no background music will be played.",	672	tooltip => "If enabled, playing of background music is enabled. If disabled, no background music will be played.",
339	on_changed => sub {	673	on_changed => sub { $CFG->{bgm_enable} = $_[1]; 0 }
340	$CFG->{bgm_enable} = $_[1];
341	}
342	);	674	);
343	$hbox->add (new CFClient::UI::Slider	675	$hbox->add (new CFPlus::UI::Slider
344	expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0, 1/128],	676	expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0, 1/128],
345	tooltip => "The volume of the background music. Changes are instant.",	677	tooltip => "The volume of the background music. Changes are instant.",
346	on_changed => sub {	678	on_changed => sub { $CFG->{bgm_volume} = $_[1]; CFPlus::MixMusic::volume $_[1] * 128; 0 }
347	$CFG->{bgm_volume} = $_[1];
348	CFClient::MixMusic::volume $_[1] * 128;
349	}
350	);	679	);
351		680
352	$table->add (1, $row++, new CFClient::UI::Button	681	$table->add (1, $row++, new CFPlus::UI::Button
353	expand => 1, align => 0, text => "Apply",	682	expand => 1, align => 0, text => "Apply",
354	tooltip => "Apply the audio settings",	683	tooltip => "Apply the audio settings",
355	on_activate => sub {	684	on_activate => sub {
356	audio_shutdown ();	685	audio_shutdown ();
357	audio_init ();	686	audio_init ();
		687	0
358	}	688	}
359	);	689	);
360		690
361	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Chat Command");	691	$vbox
362	$table->add (1, $row++, my $saycmd = new CFClient::UI::Entry
363	text => $CFG->{say_command},
364	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. "
365	. "Usually you want to enter something like 'say' or 'shout' or 'gsay' here. "
366	. "But you could also set it to <b>tell <i>playername</i></b> to only chat with that user.",
367	on_changed => sub {
368	my ($self, $value) = @_;
369	$CFG->{say_command} = $value;
370	}
371	);
372
373	$dialog
374	}
375
376	sub set_stats_window_fontsize {
377	for (values %{$STATWIDS}) {
378	$_->set_fontsize ($::CFG->{stat_fontsize});
379	}
380	}	692	}
381		693
382	sub set_gauge_window_fontsize {	694	sub set_gauge_window_fontsize {
383	for (map { $GAUGES->{$_} } grep { $_ ne 'win' } keys %{$GAUGES}) {	695	for (map { $GAUGES->{$_} } grep { $_ ne 'win' } keys %{$GAUGES}) {
384	$_->set_fontsize ($::CFG->{gauge_fontsize});	696	$_->set_fontsize ($::CFG->{gauge_fontsize});
…		…
386	}	698	}
387		699
388	sub make_gauge_window {	700	sub make_gauge_window {
389	my $gh = int $HEIGHT * $CFG->{gauge_size};	701	my $gh = int $HEIGHT * $CFG->{gauge_size};
390		702
391	my $win = new CFClient::UI::Frame (	703	my $win = new CFPlus::UI::Frame (
392	req_x => 0,	704	force_x => 0,
393	req_y => -1,	705	force_y => "max",
394	def_w => $WIDTH,	706	force_w => $WIDTH,
395	def_h => $gh,	707	force_h => $gh,
396	);	708	);
397		709
398	$win->add (my $hbox = new CFClient::UI::HBox	710	$win->add (my $hbox = new CFPlus::UI::HBox
399	children => [	711	children => [
400	(new CFClient::UI::HBox expand => 1),	712	(new CFPlus::UI::HBox expand => 1),
401	(new CFClient::UI::VBox children => [	713	(new CFPlus::UI::VBox children => [
402	(new CFClient::UI::Empty expand => 1),	714	(new CFPlus::UI::Empty expand => 1),
403	(new CFClient::UI::Frame bg => [0, 0, 0, 0.4], child => ($FLOORBOX = new CFClient::UI::Table)),	715	(new CFPlus::UI::Frame bg => [0, 0, 0, 0.4], child => ($FLOORBOX = new CFPlus::UI::Table)),
404	]),	716	]),
405	(my $vbox = new CFClient::UI::VBox),	717	(my $vbox = new CFPlus::UI::VBox),
406	],	718	],
407	);	719	);
408		720
409	$vbox->add (new CFClient::UI::HBox	721	$vbox->add (new CFPlus::UI::HBox
410	expand => 1,	722	expand => 1,
411	children => [	723	children => [
412	(new CFClient::UI::Empty expand => 1),	724	(new CFPlus::UI::Empty expand => 1),
413	(my $hb = new CFClient::UI::HBox),	725	(my $hb = new CFPlus::UI::HBox),
414	],	726	],
415	);	727	);
416		728
417	$hb->add (my $hg = new CFClient::UI::Gauge type => 'hp',	729	$hb->add (my $hg = new CFPlus::UI::Gauge type => 'hp', tooltip => "#stat_health");
418	tooltip => "<b>Health points</b>. Measures of how much damage you can take before dying. Hit points are determined from your level and are influenced by the value of your Con. Hp value may range between 1 to beyond 500 and higher values indicate a greater ability to withstand punishment.");
419	$hb->add (my $mg = new CFClient::UI::Gauge type => 'mana',	730	$hb->add (my $mg = new CFPlus::UI::Gauge type => 'mana', tooltip => "#stat_mana");
420	tooltip => "<b>Spell points</b>. Measures of how much \"fuel\" you have for casting spells and incantations. Mana is calculated from your level and your Pow. Mana values can range between 1 to beyond 500 (glowing crystals can increase the current spell points beyond your normal maximum). Higher values indicate greater amounts of mana.");
421	$hb->add (my $gg = new CFClient::UI::Gauge type => 'grace',	731	$hb->add (my $gg = new CFPlus::UI::Gauge type => 'grace', tooltip => "#stat_grace");
422	tooltip => "<b>Grace points</b> - how favored you are by your god. In game terms, how much divine magic you can cast. Your level, Wis and Pow effect what the value of grace is. Prayong on an altar of your god can increase this value beyond your normal maximum. Grace can take on large positive and negative values. Positive values indicate favor by the gods.");
423	$hb->add (my $fg = new CFClient::UI::Gauge type => 'food',	732	$hb->add (my $fg = new CFPlus::UI::Gauge type => 'food', tooltip => "#stat_food");
424	tooltip => "<b>Food</b>. Ranges between 0 (starving) and 999 (satiated). At a value of 0 the character begins to die. Some magic can speed up or slow down the character digestion. Healing wounds will speed up digestion too.");
425		733
426	$vbox->add (my $exp = new CFClient::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1,	734	$vbox->add (my $exp = new CFPlus::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1, tooltip => "#stat_exp");
427	tooltip => "<b>Experience points and overall level</b> - experience is increased as a reward for appropriate action (such as killing monsters) and may decrease as a result of a magical attack or dying. Level is directly derived from the experience value. As the level of the character increases, the character becomes able to succeed at more difficult tasks. A character's level starts at a value of 0 and may range up beyond 100.");
428	$vbox->add (my $rng = new CFClient::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1,	735	$vbox->add (my $rng = new CFPlus::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1, tooltip => "#stat_ranged");
429	tooltip => "<b>Ranged attack</b> - how you attack when you press shift-cursor (spell, skill, weapon etc.)");
430		736
431	$GAUGES = {	737	$GAUGES = {
432	exp => $exp, win => $win, range => $rng,	738	exp => $exp, win => $win, range => $rng,
433	food => $fg, mana => $mg, hp => $hg, grace => $gg	739	food => $fg, mana => $mg, hp => $hg, grace => $gg
434	};	740	};
…		…
436	&set_gauge_window_fontsize;	742	&set_gauge_window_fontsize;
437		743
438	$win	744	$win
439	}	745	}
440		746
		747	sub debug_setup {
		748	my $table = new CFPlus::UI::Table;
		749
		750	$table->add (0, 0, new CFPlus::UI::Label text => "Widget Borders");
		751	$table->add (1, 0, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 1; 0 });
		752	$table->add (0, 1, new CFPlus::UI::Label text => "Tooltip Widget Info");
		753	$table->add (1, 1, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 2; 0 });
		754	$table->add (0, 2, new CFPlus::UI::Label text => "Show FPS");
		755	$table->add (1, 2, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 4; 0 });
		756	$table->add (0, 3, new CFPlus::UI::Label text => "Suppress Tooltips");
		757	$table->add (1, 3, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 8; 0 });
		758	$table->add (0, 4, new CFPlus::UI::Button text => "die on click(tm)", on_activate => sub { &CFPlus::debug() } );
		759
		760	my @default_smooth = (0.05, 0.13, 0.05, 0.13, 0.30, 0.13, 0.05, 0.13, 0.05);
		761
		762	for my $x (0..2) {
		763	for my $y (0 .. 2) {
		764	$table->add ($x + 3, $y,
		765	new CFPlus::UI::Entry
		766	text => $default_smooth[$x * 3 + $y],
		767	on_changed => sub { $MAP->{smooth_matrix}[$x * 3 + $y] = $_[1] if $MAP; 0 },
		768	);
		769	}
		770	}
		771
		772	$table->add (0, 5, new CFPlus::UI::TextEdit text => "line1\0152\0153");#d#
		773
		774	$table
		775	}
		776
441	sub make_stats_window {	777	sub stats_window {
442	my $tgw = new CFClient::UI::FancyFrame	778	my $r = new CFPlus::UI::ScrolledWindow (
443	req_y => $HEIGHT * (2/8),
444	req_x => -1,	779	expand => 1,
445	title => "Stats",	780	scroll_y => 1
446	name => "stats_window";	781	);
		782	$r->add (my $vb = new CFPlus::UI::VBox);
447		783
448	$tgw->add (new CFClient::UI::Window child => my $vb = new CFClient::UI::VBox);	784	$vb->add (new CFPlus::UI::FancyFrame
		785	label => "Player",
		786	child => (my $pi = new CFPlus::UI::VBox),
		787	);
		788
449	$vb->add ($STATWIDS->{title} = new CFClient::UI::Label valign => 0, align => -1, text => "Title:", expand => 1,	789	$pi->add ($STATWIDS->{title} = new CFPlus::UI::Label valign => 0, align => -1, text => "Title:", expand => 1,
450	can_hover => 1, can_events => 1,	790	can_hover => 1, can_events => 1,
451	tooltip => "Your name and title. You can change your title by using the <b>title</b> command, if supported by the server.");	791	tooltip => "Your name and title. You can change your title by using the <b>title</b> command, if supported by the server.");
452	$vb->add ($STATWIDS->{map} = new CFClient::UI::Label valign => 0, align => -1, text => "Map:", expand => 1,	792	$pi->add ($STATWIDS->{map} = new CFPlus::UI::Label valign => 0, align => -1, text => "Map:", expand => 1,
453	can_hover => 1, can_events => 1,	793	can_hover => 1, can_events => 1,
454	tooltip => "The map you are currently on (if supported by the server).");	794	tooltip => "The map you are currently on (if supported by the server).");
455		795
456	$vb->add (my $hb0 = new CFClient::UI::HBox);	796	$pi->add (my $hb0 = new CFPlus::UI::HBox);
457	$hb0->add ($STATWIDS->{weight} = new CFClient::UI::Label valign => 0, align => -1, text => "Weight:", expand => 1,	797	$hb0->add ($STATWIDS->{weight} = new CFPlus::UI::Label valign => 0, align => -1, text => "Weight:", expand => 1,
458	can_hover => 1, can_events => 1,	798	can_hover => 1, can_events => 1,
459	tooltip => "The weight of the player including all inventory items.");	799	tooltip => "The weight of the player including all inventory items.");
460	$hb0->add ($STATWIDS->{m_weight} = new CFClient::UI::Label valign => 0, align => -1, text => "Max weight:", expand => 1,	800	$hb0->add ($STATWIDS->{m_weight} = new CFPlus::UI::Label valign => 0, align => -1, text => "Max weight:", expand => 1,
461	can_hover => 1, can_events => 1,	801	can_hover => 1, can_events => 1,
462	tooltip => "The weight limit: you cannot carry more than this.");	802	tooltip => "The weight limit: you cannot carry more than this.");
463		803
464		804	$vb->add (new CFPlus::UI::FancyFrame
		805	label => "Primary/Secondary Statistics",
465	$vb->add (my $hb = new CFClient::UI::HBox expand => 1);	806	child => (my $hb = new CFPlus::UI::HBox expand => 1),
		807	);
466	$hb->add (my $tbl = new CFClient::UI::Table expand => 1);	808	$hb->add (my $tbl = new CFPlus::UI::Table expand => 1);
467		809
468	my $color2 = [1, 1, 0];	810	my $color2 = [1, 1, 0];
469		811
470	for (	812	for (
471	[0, 0, st_str => "Str", 30, "<b>Physical Strength</b>, determines damage dealt with weapons, how much you can carry, and how often you can attack"],	813	[0, 0, st_str => "Str", 30],
472	[0, 1, st_dex => "Dex", 30, "<b>Dexterity</b>, your physical agility. Determines chance of being hit and affects armor class and speed"],	814	[0, 1, st_dex => "Dex", 30],
473	[0, 2, st_con => "Con", 30, "<b>Constitution</b>, physical health and toughness. Determines how many healthpoints you can have"],	815	[0, 2, st_con => "Con", 30],
474	[0, 3, st_int => "Int", 30, "<b>Intelligence</b>, your ability to learn and use skills and incantations (both prayers and magic) and determines how much spell points you can have"],	816	[0, 3, st_int => "Int", 30],
475	[0, 4, st_wis => "Wis", 30, "<b>Wisdom</b>, the ability to learn and use divine magic (prayers). Determines how many grace points you can have"],	817	[0, 4, st_wis => "Wis", 30],
476	[0, 5, st_pow => "Pow", 30, "<b>Power</b>, your magical potential. Influences the strength of spell effects, and also how much your spell and grace points increase when leveling up"],	818	[0, 5, st_pow => "Pow", 30],
477	[0, 6, st_cha => "Cha", 30, "<b>Charisma</b>, how well you are received by NPCs. Affects buying and selling prices in shops."],	819	[0, 6, st_cha => "Cha", 30],
478		820
479	[2, 0, st_wc => "Wc", -120, "<b>Weapon Class</b>, effectiveness of melee/missile attacks. Lower is more potent. Current weapon, level and Str are some things which effect the value of Wc. The value of Wc may range between 25 and -72."],	821	[2, 0, st_wc => "Wc", -120],
480	[2, 1, st_ac => "Ac", -120, "<b>Armour Class</b>, how protected you are from being hit by any attack. Lower values are better. Ac is based on your race and is modified by the Dex and current armour worn. For characters that cannot wear armour, Ac improves as their level increases."],	822	[2, 1, st_ac => "Ac", -120],
481	[2, 2, st_dam => "Dam", 120, "<b>Damage</b>, how much damage your melee/missile attack inflicts. Higher values indicate a greater amount of damage will be inflicted with each attack."],	823	[2, 2, st_dam => "Dam", 120],
482	[2, 3, st_arm => "Arm", 120, "<b>Armour</b>, how much damage (from physical attacks) will be subtracted from successful hits made upon you. This value ranges between 0 to 99%. Current armour worn primarily determines Arm value."],	824	[2, 3, st_arm => "Arm", 120],
483	[2, 4, st_spd => "Spd", 10.54, "<b>Speed</b>, how fast you can move. The value of speed may range between nearly 0 (\"very slow\") to higher than 5 (\"lightning fast\"). Base speed is determined from the Dex and modified downward proportionally by the amount of weight carried which exceeds the Max Carry limit. The armour worn also sets the upper limit on speed."],	825	[2, 4, st_spd => "Spd", 10.54],
484	[2, 5, st_wspd => "WSp", 10.54, "<b>Weapon Speed</b>, how many attacks you may make per unit of time (0.120s). Higher values indicate faster attack speed. Current weapon and Dex effect the value of weapon speed."],	826	[2, 5, st_wspd => "WSp", 10.54],
485	) {	827	) {
486	my ($col, $row, $id, $label, $template, $tooltip) = @$_;	828	my ($col, $row, $id, $label, $template) = @$_;
487		829
488	$tbl->add ($col , $row, $STATWIDS->{$id} = new CFClient::UI::Label	830	$tbl->add ($col , $row, $STATWIDS->{$id} = new CFPlus::UI::Label
489	font => $FONT_FIXED, can_hover => 1, can_events => 1, valign => 0, align => +1, template => $template, tooltip => $tooltip);	831	font => $FONT_FIXED, can_hover => 1, can_events => 1, valign => 0,
		832	align => +1, template => $template, tooltip => "#stat_$label");
490	$tbl->add ($col + 1, $row, $STATWIDS->{"$id\_lbl"} = new CFClient::UI::Label	833	$tbl->add ($col + 1, $row, $STATWIDS->{"$id\_lbl"} = new CFPlus::UI::Label
491	font => $FONT_FIXED, can_hover => 1, can_events => 1, fg => $color2, valign => 0, align => -1, text => $label, tooltip => $tooltip);	834	font => $FONT_FIXED, can_hover => 1, can_events => 1, fg => $color2, valign => 0,
		835	align => -1, text => $label, tooltip => "#stat_$label");
492	}	836	}
493		837
		838	$vb->add (new CFPlus::UI::FancyFrame
		839	label => "Resistancies",
494	$hb->add (my $tbl2 = new CFClient::UI::Table expand => 1);	840	child => (my $tbl2 = new CFPlus::UI::Table expand => 1),
		841	);
495		842
496	my $row = 0;	843	my $row = 0;
497	my $col = 0;	844	my $col = 0;
498		845
499	my %resist_names = (	846	my %resist_names = (
		847	slow => ["Slow",
500	slow => "<b>Slow</b> (slows you down when you are hit by the spell. Monsters will have an opportunity to come near you faster and hit you more often.)",	848	"<b>Slow</b> (slows you down when you are hit by the spell. Monsters will have an opportunity to come near you faster and hit you more often.)"],
		849	holyw => ["Holy Word",
501	holyw => "<b>Holy Word</b> (resistance you against getting the fear when someone whose god doesn't like you spells the holy word on you.)",	850	"<b>Holy Word</b> (resistance you against getting the fear when someone whose god doesn't like you spells the holy word on you.)"],
		851	conf => ["Confusion",
502	conf => "<b>Confusion</b> (If you are hit by confusion you will move into random directions, and likely into monsters.)",	852	"<b>Confusion</b> (If you are hit by confusion you will move into random directions, and likely into monsters.)"],
		853	fire => ["Fire",
503	fire => "<b>Fire</b> (just your resistance to fire spells like burning hands, dragonbreath, meteor swarm fire, ...)",	854	"<b>Fire</b> (just your resistance to fire spells like burning hands, dragonbreath, meteor swarm fire, ...)"],
		855	depl => ["Depletion",
504	depl => "<b>Depletion</b> (some monsters and other effects can cause stats depletion)",	856	"<b>Depletion</b> (some monsters and other effects can cause stats depletion)"],
		857	magic => ["Magic",
505	magic => "<b>Magic</b> (resistance to magic spells like magic missile or similar)",	858	"<b>Magic</b> (resistance to magic spells like magic missile or similar)"],
		859	drain => ["Draining",
506	drain => "<b>Draining</b> (some monsters (e.g. vampires) and other effects can steal experience)",	860	"<b>Draining</b> (some monsters (e.g. vampires) and other effects can steal experience)"],
		861	acid => ["Acid",
507	acid => "<b>Acid</b> (resistance to acid, acid hurts pretty much and also corrodes your weapons)",	862	"<b>Acid</b> (resistance to acid, acid hurts pretty much and also corrodes your weapons)"],
		863	pois => ["Poison",
508	pois => "<b>Poison</b> (resistance to getting poisoned)",	864	"<b>Poison</b> (resistance to getting poisoned)"],
		865	para => ["Paralysation",
509	para => "<b>Paralysation</b> (this resistance affects the chance you get paralysed)",	866	"<b>Paralysation</b> (this resistance affects the chance you get paralysed)"],
		867	deat => ["Death",
510	deat => "<b>Death</b> (resistance against death spells)",	868	"<b>Death</b> (resistance against death spells)"],
511	phys => "<b>Physical</b> (this is the resistance against physical attacks, like when a monster hit you in melee combat)",	869	phys => ["Physical",
		870	"<b>Physical</b> (this is the resistance against physical attacks, like when a monster hit you in melee combat. The value displayed here is also displayed in the 'Arm' field on the left.)"],
		871	blind => ["Blind",
512	blind => "<b>Blind</b> (blind resistance affects the chance of a successful blinding attack)",	872	"<b>Blind</b> (blind resistance affects the chance of a successful blinding attack)"],
		873	fear => ["Fear",
513	fear => "<b>Fear</b> (this attack will drive you away from monsters who cast this and hit you successfully, being resistant to this helps a lot when fighting those monsters)",	874	"<b>Fear</b> (this attack will drive you away from monsters who cast this and hit you successfully, being resistant to this helps a lot when fighting those monsters)"],
		875	tund => ["Turn undead",
514	tund => "<b>Turn undead</b> (affects your resistancy to various forms of 'turn undead' spells. Only relevant when you are, in fact, undead...",	876	"<b>Turn undead</b> (affects your resistancy to various forms of 'turn undead' spells. Only relevant when you are, in fact, undead..."],
		877	elec => ["Electricity",
515	elec => "<b>Electricity</b> (resistance against electricity, spells like large lightning, small lightning, ...)",	878	"<b>Electricity</b> (resistance against electricity, spells like large lightning, small lightning, ...)"],
		879	cold => ["Cold",
516	cold => "<b>Cold</b> (this is your resistance against cold spells like icestorm, snowstorm, ...)",	880	"<b>Cold</b> (this is your resistance against cold spells like icestorm, snowstorm, ...)"],
		881	ghit => ["Ghost hit",
517	ghit => "<b>Ghost hit</b> (special attack used by ghosts and ghost-like beings)",	882	"<b>Ghost hit</b> (special attack used by ghosts and ghost-like beings)"],
518	);	883	);
519	for (qw/slow holyw conf fire depl magic	884	for (qw/slow holyw conf fire depl magic
520	drain acid pois para deat phys	885	drain acid pois para deat phys
521	blind fear tund elec cold ghit/)	886	blind fear tund elec cold ghit/)
522	{	887	{
523	$tbl2->add ($col, $row,	888	$tbl2->add ($col, $row,
524	$STATWIDS->{"res_$_"} =	889	$STATWIDS->{"res_$_"} =
525	new CFClient::UI::Label	890	new CFPlus::UI::Label
526	font => $FONT_FIXED,	891	font => $FONT_FIXED,
527	template => "-100%",	892	template => "-100%",
528	align => +1,	893	align => +1,
529	valign => 0,	894	valign => 0,
530	can_events => 1,	895	can_events => 1,
531	can_hover => 1,	896	can_hover => 1,
532	tooltip => $resist_names{$_},	897	tooltip => $resist_names{$_}->[1],
533	);	898	);
534	$tbl2->add ($col + 1, $row, new CFClient::UI::Image	899	$tbl2->add ($col + 1, $row, new CFPlus::UI::Image
535	font => $FONT_FIXED,	900	font => $FONT_FIXED,
536	can_hover => 1,	901	can_hover => 1,
537	can_events => 1,	902	can_events => 1,
538	image => "ui/resist/resist_$_.png",	903	path => "ui/resist/resist_$_.png",
539	tooltip => $resist_names{$_},	904	tooltip => $resist_names{$_}->[1],
		905	);
		906	$tbl2->add ($col + 2, $row, new CFPlus::UI::Label
		907	text => $resist_names{$_}->[0],
		908	font => $FONT_FIXED,
		909	can_hover => 1,
		910	can_events => 1,
		911	tooltip => $resist_names{$_}->[1],
540	);	912	);
541		913
542	$row++;	914	$row++;
543	if ($row % 6 == 0) {	915	if ($row % 6 == 0) {
544	$col += 2;	916	$col += 3;
545	$row = 0;	917	$row = 0;
546	}	918	}
547	}	919	}
548		920
549	&set_stats_window_fontsize;
550	update_stats_window ({});	921	#update_stats_window ({});
551		922
		923	$r
		924	}
		925
		926	sub skill_window {
		927	my $sw = new CFPlus::UI::ScrolledWindow (expand => 1);
		928	$sw->add ($STATWIDS->{skill_tbl} = new CFPlus::UI::Table expand => 1, col_expand => [0, 0, 1, 0, 0, 1]);
552	$tgw	929	$sw
553	}	930	}
554		931
555	sub formsep {	932	sub formsep($) {
556	reverse join ",", grep length, split /(...)/, reverse $_[0] * 1	933	scalar reverse join ",", unpack "(A3)*", reverse $_[0] * 1
557	}
558
559	sub update_stats_window {
560	my ($stats) = @_;
561
562	# I love text protocols...
563
564	my $hp = $stats->{+CS_STAT_HP} * 1;
565	my $hp_m = $stats->{+CS_STAT_MAXHP} * 1;
566	my $sp = $stats->{+CS_STAT_SP} * 1;
567	my $sp_m = $stats->{+CS_STAT_MAXSP} * 1;
568	my $fo = $stats->{+CS_STAT_FOOD} * 1;
569	my $fo_m = 999;
570	my $gr = $stats->{+CS_STAT_GRACE} * 1;
571	my $gr_m = $stats->{+CS_STAT_MAXGRACE} * 1;
572
573	$GAUGES->{hp} ->set_value ($hp, $hp_m);
574	$GAUGES->{mana} ->set_value ($sp, $sp_m);
575	$GAUGES->{food} ->set_value ($fo, $fo_m);
576	$GAUGES->{grace} ->set_value ($gr, $gr_m);
577	$GAUGES->{exp} ->set_text ("Exp: " . (formsep $stats->{+CS_STAT_EXP64})
578	. " (lvl " . ($stats->{+CS_STAT_LEVEL} * 1) . ")");
579	my $rng = $stats->{+CS_STAT_RANGE};
580	$rng =~ s/^Range: //; # thank you so much dear server
581	$GAUGES->{range} ->set_text ("Rng: " . $rng);
582	my $title = $stats->{+CS_STAT_TITLE};
583	$title =~ s/^Player: //;
584	$STATWIDS->{title} ->set_text ("Title: " . $title);
585
586	$STATWIDS->{st_str} ->set_text (sprintf "%d" , $stats->{+CS_STAT_STR});
587	$STATWIDS->{st_dex} ->set_text (sprintf "%d" , $stats->{+CS_STAT_DEX});
588	$STATWIDS->{st_con} ->set_text (sprintf "%d" , $stats->{+CS_STAT_CON});
589	$STATWIDS->{st_int} ->set_text (sprintf "%d" , $stats->{+CS_STAT_INT});
590	$STATWIDS->{st_wis} ->set_text (sprintf "%d" , $stats->{+CS_STAT_WIS});
591	$STATWIDS->{st_pow} ->set_text (sprintf "%d" , $stats->{+CS_STAT_POW});
592	$STATWIDS->{st_cha} ->set_text (sprintf "%d" , $stats->{+CS_STAT_CHA});
593	$STATWIDS->{st_wc} ->set_text (sprintf "%d" , $stats->{+CS_STAT_WC});
594	$STATWIDS->{st_ac} ->set_text (sprintf "%d" , $stats->{+CS_STAT_AC});
595	$STATWIDS->{st_dam} ->set_text (sprintf "%d" , $stats->{+CS_STAT_DAM});
596	$STATWIDS->{st_arm} ->set_text (sprintf "%d" , $stats->{+CS_STAT_ARMOUR});
597	$STATWIDS->{st_spd} ->set_text (sprintf "%.1f", $stats->{+CS_STAT_SPEED});
598	$STATWIDS->{st_wspd}->set_text (sprintf "%.1f", $stats->{+CS_STAT_WEAP_SP});
599
600	$STATWIDS->{m_weight}->set_text (sprintf "Max weight: %.1fkg", $stats->{+CS_STAT_WEIGHT_LIM} / 1000);
601
602	# TODO: replace by CS_STAT_RES_xxx constants
603	my %tbl = (
604	phys => 100,
605	magic => 101,
606	fire => 102,
607	elec => 103,
608	cold => 104,
609	conf => 105,
610	acid => 106,
611	drain => 107,
612	ghit => 108,
613	pois => 109,
614	slow => 110,
615	para => 111,
616	tund => 112,
617	fear => 113,
618	depl => 113,
619	deat => 115,
620	holyw => 116,
621	blind => 117,
622	);
623
624	$STATWIDS->{"res_$_"}->set_text (sprintf "%d%", $stats->{$tbl{$_}})
625	for keys %tbl;
626	}
627
628	sub metaserver_dialog {
629	my $dialog = new CFClient::UI::FancyFrame
630	title => "Server List",
631	child => (my $vbox = new CFClient::UI::VBox);
632
633	$vbox->add ($dialog->{table} = new CFClient::UI::Table);
634
635	$dialog
636	}	934	}
637		935
638	my $METASERVER_ATIME;	936	my $METASERVER_ATIME;
639		937
640	sub update_metaserver {	938	sub update_metaserver {
641	my ($HOST) = @_;	939	my ($metaserver_dialog) = @_;
		940
		941	$METASERVER = $metaserver_dialog
		942	if defined $metaserver_dialog;
642		943
643	return if $METASERVER_ATIME > time;	944	return if $METASERVER_ATIME > time;
644	$METASERVER_ATIME = time + 60;	945	$METASERVER_ATIME = time + 60;
645		946
646	my $table = $METASERVER->{table};	947	my $table = $METASERVER->{table};
647	$table->clear;	948	$table->clear;
648	$table->add (0, 0, my $label = new CFClient::UI::Label max_w => $WIDTH * 0.8, text => "fetching server list...");	949	$table->add (0, 0, my $label = new CFPlus::UI::Label max_w => $WIDTH * 0.8, text => "fetching server list...");
649		950
650	my $buf;	951	my $ok = 0;
651		952
652	my $fh = new IO::Socket::INET PeerHost => $META_SERVER, Blocking => 0;	953	CFPlus::background {
		954	my $ua = CFPlus::lwp_useragent;
653		955
654	unless ($fh) {	956	CFPlus::background_msg CFPlus::from_json +(CFPlus::lwp_check $ua->get ($META_SERVER))->decoded_content;
655	$label->set_text ("unable to contact metaserver: $!");	957	} sub {
656	return;	958	my ($msg) = @_;
657	}	959	if ($msg) {
658
659	Event->io (fd => $fh, poll => 'r', cb => sub {
660	my $res = sysread $fh, $buf, 8192, length $buf;
661
662	if (!defined $res) {
663	$_[0]->w->cancel;
664	$label->set_text ("error while retrieving server list: $!");
665	} elsif ($res == 0) {
666	$_[0]->w->cancel;
667	status "server list retrieved";
668
669	utf8::decode $buf if utf8::valid $buf;
670
671	$table->clear;	960	$table->clear;
672		961
		962	my @tip = (
		963	"The current number of users logged in on the server.",
		964	"The hostname of the server.",
		965	"The time this server has been running without being restarted.",
		966	"The server software version - a '+' indicates a Crossfire+ server.",
		967	"Short information about this server provided by its admins.",
		968	);
673	my @col = qw(Use #Users Host Uptime Version Description);	969	my @col = qw(#Users Host Uptime Version Description);
674	$table->add ($_, 0, new CFClient::UI::Label align => 0, fg => [1, 1, 0], text => $col[$_])	970	$table->add ($_, 0, new CFPlus::UI::Label
		971	can_hover => 1, can_events => 1,
		972	align => 0, fg => [1, 1, 0],
		973	text => $col[$_], tooltip => $tip[$_])
675	for 0 .. $#col;	974	for 0 .. $#col;
676		975
677	my @align = qw(1 0 1 1 -1);	976	my @align = qw(1 0 1 1 -1);
678		977
679	my $y = 0;	978	my $y = 0;
680	for my $m (sort { $b->[3] <=> $a->[3] } map [split /\|/], split /\015?\012/, $buf) {	979	for my $m (@{ $msg->{servers} }) {
681	my ($ip, $last, $host, $users, $version, $desc, $ibytes, $obytes, $uptime) = @$m;	980	my ($ip, $last, $host, $users, $version, $desc, $ibytes, $obytes, $uptime, $highlight) =
		981	@$m{qw(ip age hostname users version description ibytes obytes uptime highlight)};
682		982
683	for ($desc) {	983	for ($desc) {
684	s/<br>/\n/gi;	984	s/<br>/\n/gi;
685	s/<li>/\n· /gi;	985	s/<li>/\n· /gi;
686	s/<.*?>//sgi;	986	s/<.*?>//sgi;
687	s/&/&amp;/g;	987	s/&amp;/&/g;
688	s/</&lt;/g;	988	s/&lt;/</g;
689	s/>/&gt;/g;	989	s/&gt;/>/g;
690	}	990	}
691		991
692	$uptime = sprintf "%dd %02d:%02d:%02d",	992	$uptime = sprintf "%dd %02d:%02d:%02d",
693	(int $m->[8] / 86400),	993	(int $uptime / 86400),
694	(int $m->[8] / 3600) % 24,	994	(int $uptime / 3600) % 24,
695	(int $m->[8] / 60) % 60,	995	(int $uptime / 60) % 60,
696	$m->[8] % 60;	996	$uptime % 60;
697		997
698	$m = [$users, $host, $uptime, $version, $desc];	998	$m = [$users, $host, $uptime, $version, $desc];
699		999
700	$y++;	1000	$y++;
701		1001
702	$table->add (0, $y, new CFClient::UI::VBox children => [	1002	$table->add (scalar @$m, $y, new CFPlus::UI::VBox children => [
703	(new CFClient::UI::Button text => "Use", on_activate => sub {	1003	(new CFPlus::UI::Button
		1004	text => "Use",
		1005	tooltip => "Put this server into the <b>Host:Port</b> field",
		1006	on_activate => sub {
704	$HOST->set_text ($CFG->{host} = $host);	1007	$HOST_ENTRY->set_text ($CFG->{profile}{default}{host} = $host);
		1008	$METASERVER->hide;
		1009	0
		1010	},
705	}),	1011	),
706	(new CFClient::UI::Empty expand => 1),	1012	(new CFPlus::UI::Empty expand => 1),
707	]);	1013	]);
708		1014
709	$table->add ($_ + 1, $y, new CFClient::UI::Label	1015	$table->add ($_, $y, new CFPlus::UI::Label
710	ellipsise => 0, align => $align[$_], text => $m->[$_], fontsize => 0.8)	1016	max_w => $::WIDTH * 0.4,
		1017	ellipsise => 0,
		1018	align => $align[$_],
		1019	text => $m->[$_],
		1020	tooltip => $tip[$_],
		1021	fg => ($highlight ? [1, 1, 1] : [.7, .7, .7]),
		1022	can_hover => 1,
		1023	can_events => 1,
		1024	fontsize => 0.8)
711	for 0 .. $#$m;	1025	for 0 .. $#$m;
712	}	1026	}
		1027	} else {
		1028	$ok or $label->set_text ("error while contacting metaserver");
713	}	1029	}
714	});	1030	};
715	}
716		1031
717	sub server_setup {	1032	}
718	my $dialog = $SERVER_SETUP = new CFClient::UI::FancyFrame	1033
719	x => $WIDTH * (1/3),	1034	sub metaserver_dialog {
720	y => $HEIGHT * (1/8),	1035	my $vbox = new CFPlus::UI::VBox;
721	name => "server_setup",	1036	my $table = new CFPlus::UI::Table;
722	title => "Server Setup",	1037	$vbox->add (new CFPlus::UI::ScrolledWindow expand => 1, child => $table);
723	child => (my $vbox = new CFClient::UI::VBox),	1038
		1039	my $dialog = new CFPlus::UI::Toplevel
		1040	title => "Server List",
		1041	name => 'metaserver_dialog',
		1042	x => 'center',
		1043	y => 'center',
		1044	z => 3,
		1045	force_w => $::WIDTH * 0.9,
		1046	force_h => $::HEIGHT * 0.7,
		1047	child => $vbox,
		1048	has_close_button => 1,
		1049	table => $table,
724	on_visibility_change => sub {	1050	on_visibility_change => sub {
725	my ($self, $visible) = @_;	1051	update_metaserver ($_[0]) if $_[1];
726	$self->center if $visible;	1052	0
727	},	1053	},
728	;	1054	;
729		1055
		1056	$dialog
		1057	}
		1058
		1059	sub server_setup {
		1060	my $vbox = new CFPlus::UI::VBox;
		1061
		1062	$vbox->add (new CFPlus::UI::FancyFrame
		1063	label => "Connection Settings",
730	$vbox->add (my $table = new CFClient::UI::Table expand => 1, col_expand => [0, 1]);	1064	child => (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]),
		1065	);
731	$table->add (0, 2, new CFClient::UI::Label valign => 0, align => 1, text => "Host:Port");	1066	$table->add (0, 2, new CFPlus::UI::Label valign => 0, align => 1, text => "Host:Port");
732		1067
733	{	1068	{
734	$table->add (1, 2, my $vbox = new CFClient::UI::VBox);	1069	$table->add (1, 2, my $vbox = new CFPlus::UI::VBox);
735		1070
736	$vbox->add (	1071	$vbox->add (
737	my $HOST = new CFClient::UI::Entry	1072	$HOST_ENTRY = new CFPlus::UI::Entry
738	expand => 1,	1073	expand => 1,
739	text => $CFG->{host},	1074	text => $CFG->{profile}{default}{host},
740	tooltip => "The hostname or ip address of the Crossfire(+) server to connect to",	1075	tooltip => "The hostname or ip address of the Crossfire(+) server to connect to",
741	on_changed => sub {	1076	on_changed => sub {
742	my ($self, $value) = @_;	1077	my ($self, $value) = @_;
743	$CFG->{host} = $value;	1078	$CFG->{profile}{default}{host} = $value;
		1079	0
744	}	1080	}
745	);	1081	);
746		1082
747	$METASERVER = metaserver_dialog;
748
749	$vbox->add (new CFClient::UI::Flopper	1083	$vbox->add (new CFPlus::UI::Button
750	expand => 1,	1084	expand => 1,
751	text => "Server List",	1085	text => "Server List",
752	other => $METASERVER,	1086	other => $METASERVER,
753	tooltip => "Show a list of available crossfire servers",	1087	tooltip => "Show a list of available crossfire servers",
754	on_open => sub {	1088	on_activate => sub { $METASERVER->toggle_visibility; 0 },
755	update_metaserver $HOST;	1089	on_visibility_change => sub { $METASERVER->hide unless $_[1]; 0 },
756	}
757	);	1090	);
758	}	1091	}
759		1092
760	$table->add (0, 4, new CFClient::UI::Label valign => 0, align => 1, text => "Username");	1093	$table->add (0, 4, new CFPlus::UI::Label valign => 0, align => 1, text => "Username");
761	$table->add (1, 4, new CFClient::UI::Entry	1094	$table->add (1, 4, new CFPlus::UI::Entry
762	text => $CFG->{user},	1095	text => $CFG->{profile}{default}{user},
763	tooltip => "The name of your character on the server",	1096	tooltip => "The name of your character on the server",
764	on_changed => sub {	1097	on_changed => sub { my ($self, $value) = @_; $CFG->{profile}{default}{user} = $value }
765	my ($self, $value) = @_;
766	$CFG->{user} = $value;
767	}
768	);	1098	);
769		1099
770	$table->add (0, 5, new CFClient::UI::Label valign => 0, align => 1, text => "Password");	1100	$table->add (0, 5, new CFPlus::UI::Label valign => 0, align => 1, text => "Password");
771	$table->add (1, 5, new CFClient::UI::Entry	1101	$table->add (1, 5, new CFPlus::UI::Entry
772	text => $CFG->{password},	1102	text => $CFG->{profile}{default}{password},
773	hidden => 1,	1103	hidden => 1,
774	tooltip => "The password for your character",	1104	tooltip => "The password for your character",
775	on_changed => sub {	1105	on_changed => sub { my ($self, $value) = @_; $CFG->{profile}{default}{password} = $value }
776	my ($self, $value) = @_;
777	$CFG->{password} = $value;
778	}
779	);	1106	);
780		1107
781	$table->add (0, 7, new CFClient::UI::Label valign => 0, align => 1, text => "Map Size");	1108	$table->add (0, 7, new CFPlus::UI::Label valign => 0, align => 1, text => "Map Size");
782	$table->add (1, 7, new CFClient::UI::Slider	1109	$table->add (1, 7, new CFPlus::UI::Slider
783	req_w => 100,	1110	force_w => 100,
784	range => [$CFG->{mapsize}, 10, 100, 0, 1],	1111	range => [$CFG->{mapsize}, 10, 100, 0, 1],
785	tooltip => "This is the size of the portion of the map update the server sends you. "	1112	tooltip => "This is the size of the portion of the map update the server sends you. "
786	. "If you set this to a high value you will be able to see further, "	1113	. "If you set this to a high value you will be able to see further, "
787	. "but you also increase bandwidth requirements and latency. "	1114	. "but you also increase bandwidth requirements and latency. "
788	. "This option is only used once at log-in.",	1115	. "This option is only used once at log-in.",
789	on_changed => sub {	1116	on_changed => sub { my ($self, $value) = @_; $CFG->{mapsize} = $self->{range}[0] = $value = int $value; 0 },
790	my ($self, $value) = @_;
791
792	$CFG->{mapsize} = $self->{range}[0] = $value = int $value;
793	},
794	);	1117	);
795		1118
796	$table->add (0, 8, new CFClient::UI::Label valign => 0, align => 1, text => "Face Prefetch");	1119	$table->add (0, 8, new CFPlus::UI::Label valign => 0, align => 1, text => "Face Prefetch");
797	$table->add (1, 8, new CFClient::UI::CheckBox	1120	$table->add (1, 8, new CFPlus::UI::CheckBox
798	state => $CFG->{face_prefetch},	1121	state => $CFG->{face_prefetch},
799	tooltip => "<b>Background Image Prefetch</b>\n\n"	1122	tooltip => "<b>Background Image Prefetch</b>\n\n"
800	. "If enabled, the client automatically pre-fetches images from the server. "	1123	. "If enabled, the client automatically pre-fetches images from the server. "
801	. "This might increase or create lag, but increases the chances "	1124	. "This might increase or create lag, but increases the chances "
802	. "of faces being ready for display when you encounter them. "	1125	. "of faces being ready for display when you encounter them. "
803	. "It also uses up server bandwidth on every connect, "	1126	. "It also uses up server bandwidth on every connect, "
804	. "so only set it if you really need to prefetch images. "	1127	. "so only set it if you really need to prefetch images. "
805	. "This option can be set and unset any time.",	1128	. "This option can be set and unset any time.",
806	on_changed => sub { $CFG->{face_prefetch} = $_[1] },	1129	on_changed => sub { $CFG->{face_prefetch} = $_[1]; 0 },
807	);	1130	);
808		1131
		1132	$table->add (0, 9, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Rate");
		1133	$table->add (1, 9, new CFPlus::UI::Entry
		1134	text => $CFG->{output_rate},
		1135	tooltip => "The approximate bandwidth in bytes per second that the server should not exceed "
		1136	. "when sending images, to ensure interactiveness. When 0 or unset, the server "
		1137	. "default will be used, which is usually around 100kb/s.",
		1138	on_changed => sub { $CFG->{output_rate} = $_[1]; 0 },
		1139	);
		1140
809	$table->add (0, 9, new CFClient::UI::Label valign => 0, align => 1, text => "Output-Count");	1141	$table->add (0, 10, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Count");
810	$table->add (1, 9, new CFClient::UI::Entry	1142	$table->add (1, 10, new CFPlus::UI::Entry
811	text => $CFG->{output_count},	1143	text => $CFG->{output_count},
812	tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.",	1144	tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.",
813	on_changed => sub { $CFG->{output_count} = $_[1] },	1145	on_changed => sub { $CFG->{output_count} = $_[1]; 0 },
814	);	1146	);
815		1147
816	$table->add (0, 10, new CFClient::UI::Label valign => 0, align => 1, text => "Output-Sync");	1148	$table->add (0, 11, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Sync");
817	$table->add (1, 10, new CFClient::UI::Entry	1149	$table->add (1, 11, new CFPlus::UI::Entry
818	text => $CFG->{output_sync},	1150	text => $CFG->{output_sync},
819	tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.",	1151	tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.",
820	on_changed => sub { $CFG->{output_sync} = $_[1] },	1152	on_changed => sub { $CFG->{output_sync} = $_[1]; 0 },
821	);	1153	);
822		1154
823	$table->add (1, 11, $LOGIN_BUTTON = new CFClient::UI::Button	1155	$table->add (1, 12, $LOGIN_BUTTON = new CFPlus::UI::Button
824	expand => 1,	1156	expand => 1,
825	align => 0,	1157	align => 0,
826	text => "Login",	1158	text => "Login",
827	on_activate => sub {	1159	on_activate => sub {
828	$CONN ? stop_game	1160	$CONN ? stop_game
829	: start_game;	1161	: start_game;
		1162	0
830	},	1163	},
831	);	1164	);
832		1165
833	$dialog	1166	$vbox->add (new CFPlus::UI::FancyFrame
		1167	label => "Server Info",
		1168	child => ($SERVER_INFO = new CFPlus::UI::Label ellipsise => 0),
		1169	);
		1170
		1171	$vbox
		1172	}
		1173
		1174	sub client_setup {
		1175	my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1];
		1176
		1177	my $row = 0;
		1178
		1179	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Chat Command");
		1180	$table->add (1, $row++, my $saycmd = new CFPlus::UI::Entry
		1181	text => $CFG->{say_command},
		1182	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. "
		1183	. "Usually you want to enter something like 'say' or 'shout' or 'gsay' here. "
		1184	. "But you could also set it to <b>tell <i>playername</i></b> to only chat with that user.",
		1185	on_changed => sub {
		1186	my ($self, $value) = @_;
		1187	$CFG->{say_command} = $value;
		1188	0
		1189	}
		1190	);
		1191
		1192	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Tip of the day");
		1193	$table->add (1, $row++, new CFPlus::UI::CheckBox
		1194	state => $CFG->{show_tips},
		1195	tooltip => "Show the <b>Tip of the day</b> window at startup?",
		1196	on_changed => sub {
		1197	my ($self, $value) = @_;
		1198	$CFG->{show_tips} = $value;
		1199	0
		1200	}
		1201	);
		1202
		1203	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Messages Window Size");
		1204	$table->add (1, $row++, my $saycmd = new CFPlus::UI::Entry
		1205	text => $CFG->{logview_max_par},
		1206	tooltip => "This is maximum number of messages remembered in the <b>Messages</b> window. If the server "
		1207	. "sends more messages than this number, older messages get removed to save memory and "
		1208	. "computing time. A value of <b>0</b> disables this feature, but that is not recommended.",
		1209	on_changed => sub {
		1210	my ($self, $value) = @_;
		1211	$LOGVIEW->{max_par} = $CFG->{logview_max_par} = $value*1;
		1212	0
		1213	},
		1214	);
		1215
		1216	$table
834	}	1217	}
835		1218
836	sub message_window {	1219	sub message_window {
837	my $window = new CFClient::UI::FancyFrame	1220	my $window = new CFPlus::UI::Toplevel
838	name => "message_window",	1221	name => "message_window",
839	title => "Messages",	1222	title => "Messages",
840	border_bg => [1, 1, 1, 1],	1223	border_bg => [1, 1, 1, 1],
841	bg => [0, 0, 0, 0.75],	1224	x => "max",
842	req_x => -1,
843	req_y => 0,	1225	y => 0,
844	def_w => int $::WIDTH / 3,	1226	force_w => $::WIDTH * 0.4,
845	def_h => int $::HEIGHT / 5,	1227	force_h => $::HEIGHT * 0.5,
846	child => (my $vbox = new CFClient::UI::VBox);	1228	child => (my $vbox = new CFPlus::UI::VBox),
		1229	has_close_button => 1;
847		1230
848	$vbox->add ($LOGVIEW);	1231	$vbox->add ($LOGVIEW);
849		1232
850	$vbox->add (my $input = new CFClient::UI::Entry	1233	$vbox->add (my $input = new CFPlus::UI::Entry
851	tooltip => "<b>Chat Box</b>. If you enter a text and press return/enter here, the current <i>communication command</i> "	1234	tooltip => "<b>Chat Box</b>. If you enter a text and press return/enter here, the current <i>communication command</i> "
852	. "from the client setup will be prepended (e.g. <b>shout</b>, <b>chat</b>...). "	1235	. "from the client setup will be prepended (e.g. <b>shout</b>, <b>chat</b>...). "
853	. "If you prepend a slash (/), you will submit a command instead (similar to IRC). "	1236	. "If you prepend a slash (/), you will submit a command instead (similar to IRC). "
854	. "A better way to submit commands (and the occasional chat command) is often the map command completer.",	1237	. "A better way to submit commands (and the occasional chat command) is often the map command completer.",
855	on_focus_in => sub {	1238	on_focus_in => sub {
…		…
859		1242
860	if ($prev_focus == $MAPWIDGET && $input->{auto_activated}) {	1243	if ($prev_focus == $MAPWIDGET && $input->{auto_activated}) {
861	$input->{refocus_map} = 1;	1244	$input->{refocus_map} = 1;
862	}	1245	}
863	delete $input->{auto_activated};	1246	delete $input->{auto_activated};
		1247
		1248	0
864	},	1249	},
865	on_activate => sub {	1250	on_activate => sub {
866	my ($input, $text) = @_;	1251	my ($input, $text) = @_;
867	$input->set_text ('');	1252	$input->set_text ('');
868		1253
…		…
874	}	1259	}
875	if ($input->{refocus_map}) {	1260	if ($input->{refocus_map}) {
876	delete $input->{refocus_map};	1261	delete $input->{refocus_map};
877	$MAPWIDGET->focus_in	1262	$MAPWIDGET->focus_in
878	}	1263	}
		1264
		1265	0
879	},	1266	},
880	on_escape => sub {	1267	on_escape => sub {
881	$MAPWIDGET->focus_in	1268	$MAPWIDGET->grab_focus;
		1269
		1270	0
882	},	1271	},
883	);	1272	);
884		1273
885	$CONSOLE = {	1274	$CONSOLE = {
886	window => $window,	1275	window => $window,
887	input => $input	1276	input => $input,
888	};	1277	};
889		1278
890	$window	1279	$window
		1280	}
		1281
		1282	sub autopickup_setup {
		1283	my $table = new CFPlus::UI::Table;
		1284
		1285	for (
		1286	["General", 0, 0,
		1287	["Enable autopickup" => PICKUP_NEWMODE, \$PICKUP_ENABLE],
		1288	["Inhibit autopickup" => PICKUP_INHIBIT],
		1289	["Stop before pickup" => PICKUP_STOP],
		1290	["Debug autopickup" => PICKUP_DEBUG],
		1291	],
		1292	["Weapons", 0, 6,
		1293	["All weapons" => PICKUP_ALLWEAPON],
		1294	["Missile weapons" => PICKUP_MISSILEWEAPON],
		1295	["Bows" => PICKUP_BOW],
		1296	["Arrows" => PICKUP_ARROW],
		1297	],
		1298	["Armour", 0, 12,
		1299	["Helmets" => PICKUP_HELMET],
		1300	["Shields" => PICKUP_SHIELD],
		1301	["Body Armour" => PICKUP_ARMOUR],
		1302	["Boots" => PICKUP_BOOTS],
		1303	["Gloves" => PICKUP_GLOVES],
		1304	["Cloaks" => PICKUP_CLOAK],
		1305	],
		1306
		1307	["Readables", 2, 0,
		1308	["Spellbooks" => PICKUP_SPELLBOOK],
		1309	["Skillscrolls" => PICKUP_SKILLSCROLL],
		1310	["Normal Books/Scrolls" => PICKUP_READABLES],
		1311	],
		1312	["Misc", 2, 5,
		1313	["Food" => PICKUP_FOOD],
		1314	["Drinks" => PICKUP_DRINK],
		1315	["Valuables (Money, Gems)" => PICKUP_VALUABLES],
		1316	["Keys" => PICKUP_KEY],
		1317	["Magical Items" => PICKUP_MAGICAL],
		1318	["Potions" => PICKUP_POTION],
		1319	["Magic Devices" => PICKUP_MAGIC_DEVICE],
		1320	["Ignore cursed" => PICKUP_NOT_CURSED],
		1321	["Jewelery" => PICKUP_JEWELS],
		1322	["Flesh" => PICKUP_FLESH],
		1323	],
		1324	["Weight/Value ratio", 2, 17]
		1325	)
		1326	{
		1327	my ($title, $x, $y, @bits) = @$_;
		1328	$table->add ($x, $y, new CFPlus::UI::Label text => $title, align => 1, fg => [1, 1, 0]);
		1329
		1330	for (@bits) {
		1331	++$y;
		1332
		1333	my $mask = $_->[1];
		1334	$table->add ($x , $y, new CFPlus::UI::Label text => $_->[0], align => 1, expand => 1);
		1335	$table->add ($x+1, $y, my $checkbox = new CFPlus::UI::CheckBox
		1336	state => $::CFG->{pickup} & $mask,
		1337	on_changed => sub {
		1338	my ($box, $value) = @_;
		1339
		1340	if ($value) {
		1341	$::CFG->{pickup} |= $mask;
		1342	} else {
		1343	$::CFG->{pickup} &= ~$mask;
		1344	}
		1345
		1346	$::CONN->send_command ("pickup $::CFG->{pickup}")
		1347	if defined $::CONN;
		1348
		1349	0
		1350	});
		1351
		1352	${$_->[2]} = $checkbox if $_->[2];
		1353	}
		1354	}
		1355
		1356	$table->add (2, 18, new CFPlus::UI::ValSlider
		1357	range => [$::CFG->{pickup} & 0xF, 0, 16, 1, 1],
		1358	template => ">= 99",
		1359	to_value => sub { ">= " . 5 * $_[0] },
		1360	on_changed => sub {
		1361	my ($slider, $value) = @_;
		1362
		1363	$::CFG->{pickup} &= ~0xF;
		1364	$::CFG->{pickup} |= int $value
		1365	if $value;
		1366	1;
		1367	});
		1368
		1369	$table->add (3, 18, new CFPlus::UI::Button
		1370	text => "set",
		1371	on_activate => sub {
		1372	$::CONN->send_command ("pickup $::CFG->{pickup}")
		1373	if defined $::CONN;
		1374	0
		1375	});
		1376
		1377	$table
		1378	}
		1379
		1380	my %SORT_ORDER = (
		1381	type => undef,
		1382	mtime => sub {
		1383	my $NOW = time;
		1384	sort {
		1385	my $atime = $a->{mtime} - $NOW; $atime = $atime < 5 * 60 ? int $atime / 60 : 6;
		1386	my $btime = $b->{mtime} - $NOW; $btime = $btime < 5 * 60 ? int $btime / 60 : 6;
		1387
		1388	($a->{flags} & F_LOCKED) <=> ($b->{flags} & F_LOCKED)
		1389	or $btime <=> $atime
		1390	or $a->{type} <=> $b->{type}
		1391	} @_
		1392	},
		1393	weight => sub { sort {
		1394	$a->{weight} * ($a->{nrof} || 1) <=> $b->{weight} * ($b->{nrof} || 1)
		1395	or $a->{type} <=> $b->{type}
		1396	} @_ },
		1397	);
		1398
		1399	sub inventory_widget {
		1400	my $hb = new CFPlus::UI::HBox homogeneous => 1;
		1401
		1402	$hb->add (my $vb1 = new CFPlus::UI::VBox);
		1403	$vb1->add (new CFPlus::UI::Label align => 0, text => "Player");
		1404
		1405	$vb1->add (my $hb1 = new CFPlus::UI::HBox);
		1406
		1407	use sort 'stable';
		1408
		1409	$hb1->add (new CFPlus::UI::Selector
		1410	value => $::CFG->{inv_sort},
		1411	options => [
		1412	[type => "Type/Name"],
		1413	[mtime => "Recent/Normal/Locked"],
		1414	[weight => "Weight/Type"],
		1415	],
		1416	on_changed => sub {
		1417	$::CFG->{inv_sort} = $_[1];
		1418	$INV->set_sort_order ($SORT_ORDER{$_[1]});
		1419	},
		1420	);
		1421	$hb1->add (new CFPlus::UI::Label text => "Weight: ", align => 1, expand => 1);
		1422	#TODO# update to weigh/maxweight
		1423	$hb1->add ($STATWIDS->{i_weight} = new CFPlus::UI::Label align => -1);
		1424
		1425	$vb1->add (my $sw1 = new CFPlus::UI::ScrolledWindow expand => 1, scroll_y => 1);
		1426	$sw1->add ($INV = new CFPlus::UI::Inventory);
		1427	$INV->set_sort_order ($SORT_ORDER{$::CFG->{inv_sort}});
		1428
		1429	$hb->add (my $vb2 = new CFPlus::UI::VBox);
		1430
		1431	$vb2->add ($INV_RIGHT_HB = new CFPlus::UI::HBox);
		1432
		1433	$vb2->add (my $sw2 = new CFPlus::UI::ScrolledWindow expand => 1, scroll_y => 1);
		1434	$sw2->add ($INVR = new CFPlus::UI::Inventory);
		1435
		1436	# XXX: Call after $INVR = ... because set_opencont sets the items
		1437	CFPlus::Protocol::set_opencont ($::CONN, 0, "Floor");
		1438
		1439	$hb
		1440	}
		1441
		1442	sub toggle_player_page {
		1443	my ($widget) = @_;
		1444
		1445	if ($PL_WINDOW->{visible} && $PL_NOTEBOOK->get_current_page == $widget) {
		1446	$PL_WINDOW->hide;
		1447	} else {
		1448	$PL_NOTEBOOK->set_current_page ($widget);
		1449	$PL_WINDOW->show;
		1450	}
		1451	}
		1452
		1453	sub player_window {
		1454	my $plwin = $PL_WINDOW = new CFPlus::UI::Toplevel
		1455	x => "center",
		1456	y => "center",
		1457	force_w => $WIDTH * 9/10,
		1458	force_h => $HEIGHT * 9/10,
		1459	title => "Player",
		1460	name => "playerbook",
		1461	has_close_button => 1
		1462	;
		1463
		1464	my $ntb =
		1465	$PL_NOTEBOOK =
		1466	new CFPlus::UI::Notebook expand => 1;
		1467
		1468	$ntb->add (
		1469	"Statistics (F2)" => $STATS_PAGE = stats_window,
		1470	"Shows statistics, where all your Stats and Resistances are shown."
		1471	);
		1472	$ntb->add (
		1473	"Skills (F3)" => $SKILL_PAGE = skill_window,
		1474	"Shows all your Skills."
		1475	);
		1476
		1477	my $spellsw = $SPELL_PAGE = new CFPlus::UI::ScrolledWindow (expand => 1, scroll_y => 1);
		1478	$spellsw->add ($SPELL_LIST = new CFPlus::UI::SpellList);
		1479	$ntb->add (
		1480	"Spellbook (F4)" => $spellsw,
		1481	"Displays all spells you have and lets you edit keyboard shortcuts for them."
		1482	);
		1483	$ntb->add (
		1484	"Inventory (F5)" => $INVENTORY_PAGE = inventory_widget,
		1485	"Toggles the inventory window, where you can manage your loot (or treasures :). "
		1486	. "You can also hit the <b>Tab</b>-key to show/hide the Inventory."
		1487	);
		1488	$ntb->add (Pickup => autopickup_setup,
		1489	"Configure autopickup settings, i.e. which items you will pick up automatically when walking (or running) over them.");
		1490
		1491	$ntb->set_current_page ($INVENTORY_PAGE);
		1492
		1493	$plwin->add ($ntb);
		1494	$plwin
		1495	}
		1496
		1497	sub keyboard_setup {
		1498	CFPlus::Macro::keyboard_setup
		1499	}
		1500
		1501	sub help_window {
		1502	my $win = new CFPlus::UI::Toplevel
		1503	x => 'center',
		1504	y => 'center',
		1505	z => 4,
		1506	name => 'doc_browser',
		1507	force_w => int $WIDTH * 7/8,
		1508	force_h => int $HEIGHT * 7/8,
		1509	title => "Help Browser",
		1510	has_close_button => 1;
		1511
		1512	$win->add (my $vbox = new CFPlus::UI::VBox);
		1513
		1514	$vbox->add (new CFPlus::UI::FancyFrame
		1515	label => "Navigation",
		1516	child => (my $buttons = new CFPlus::UI::HBox),
		1517	);
		1518	$vbox->add (my $viewer = new CFPlus::UI::TextScroller
		1519	expand => 1, fontsize => 0.8, padding_x => 4, padding_y => 4);
		1520
		1521	my @history;
		1522	my @future;
		1523	my $curnode;
		1524
		1525	my $load_node; $load_node = sub {
		1526	my ($node, $para) = @_;
		1527
		1528	$buttons->clear;
		1529
		1530	$buttons->add (new CFPlus::UI::Button
		1531	text => "⇤",
		1532	tooltip => "back to the starting page",
		1533	on_activate => sub {
		1534	unshift @future, [$curnode, $viewer->current_paragraph] if $curnode;
		1535	unshift @future, @history;
		1536	@history = ();
		1537	$load_node->(@{shift @future});
		1538	},
		1539	);
		1540
		1541	if (@history) {
		1542	$buttons->add (new CFPlus::UI::Button
		1543	text => "⋘",
		1544	tooltip => "back to <i>" . (CFPlus::asxml CFPlus::Pod::full_path $history[-1][0]) . "</i>",
		1545	on_activate => sub {
		1546	unshift @future, [$curnode, $viewer->current_paragraph] if $curnode;
		1547	$load_node->(@{pop @history});
		1548	},
		1549	);
		1550	}
		1551
		1552	if (@future) {
		1553	$buttons->add (new CFPlus::UI::Button
		1554	text => "⋙",
		1555	tooltip => "forward to <i>" . (CFPlus::asxml CFPlus::Pod::full_path $future[0][0]) . "</i>",
		1556	on_activate => sub {
		1557	push @history, [$curnode, $viewer->current_paragraph];
		1558	$load_node->(@{shift @future});
		1559	},
		1560	);
		1561	}
		1562
		1563	$buttons->add (new CFPlus::UI::Label text => " ");
		1564
		1565	my @path = CFPlus::Pod::full_path_of $node;
		1566	pop @path; # drop current node
		1567
		1568	for my $node (@path) {
		1569	$buttons->add (new CFPlus::UI::Button
		1570	text => $node->{kw}[0],
		1571	tooltip => "go to <i>" . (CFPlus::asxml CFPlus::Pod::full_path $node) . "</i>",
		1572	on_activate => sub {
		1573	push @history, [$curnode, $viewer->current_paragraph] if $curnode; @future = ();
		1574	$load_node->($node);
		1575	},
		1576	);
		1577	$buttons->add (new CFPlus::UI::Label text => "/");
		1578	}
		1579
		1580	$buttons->add (new CFPlus::UI::Label text => $node->{kw}[0], padding_x => 4, padding_y => 4);
		1581
		1582	$curnode = $node;
		1583
		1584	$viewer->clear;
		1585	$viewer->add_paragraph (CFPlus::Pod::as_paragraphs CFPlus::Pod::section_of $curnode);
		1586	$viewer->scroll_to ($para);
		1587	};
		1588
		1589	$load_node->(CFPlus::Pod::find pod => "mainpage");
		1590
		1591	$CFPlus::Pod::goto_document = sub {
		1592	my (@path) = @_;
		1593
		1594	push @history, [$curnode, $viewer->current_paragraph] if $curnode; @future = ();
		1595
		1596	$load_node->((CFPlus::Pod::find @path)[0]);
		1597	$win->show;
		1598	};
		1599
		1600	$win
		1601	}
		1602
		1603	sub open_string_query {
		1604	my ($title, $cb, $txt, $tooltip) = @_;
		1605	my $dialog = new CFPlus::UI::Toplevel
		1606	x => "center",
		1607	y => "center",
		1608	z => 50,
		1609	force_w => $WIDTH * 4/5,
		1610	title => $title;
		1611
		1612	$dialog->add (
		1613	my $e = new CFPlus::UI::Entry
		1614	on_activate => sub { $cb->(@_); $dialog->hide; 0 },
		1615	on_key_down => sub { $_[1]->{sym} == 27 and $dialog->hide; 0 },
		1616	tooltip => $tooltip
		1617	);
		1618
		1619	$e->grab_focus;
		1620	$e->set_text ($txt) if $txt;
		1621	$dialog->show;
891	}	1622	}
892		1623
893	sub open_quit_dialog {	1624	sub open_quit_dialog {
894	unless ($QUIT_DIALOG) {	1625	unless ($QUIT_DIALOG) {
895	$QUIT_DIALOG = new CFClient::UI::FancyFrame title => "Really Quit?";	1626	$QUIT_DIALOG = new CFPlus::UI::Toplevel
		1627	x => "center",
		1628	y => "center",
		1629	z => 50,
		1630	title => "Really Quit?",
		1631	on_key_down => sub {
		1632	my ($dialog, $ev) = @_;
		1633	$ev->{sym} == 27 and $dialog->hide;
		1634	}
		1635	;
896		1636
897	$QUIT_DIALOG->add (my $vb = new CFClient::UI::VBox expand => 1);	1637	$QUIT_DIALOG->add (my $vb = new CFPlus::UI::VBox expand => 1);
898		1638
899	$vb->add (new CFClient::UI::Label	1639	$vb->add (new CFPlus::UI::Label
900	text => "You should find a savebed and apply it first!",	1640	text => "You should find a savebed and apply it first!",
901	max_w => $WIDTH * 0.25,	1641	max_w => $WIDTH * 0.25,
902	ellipsize => 0,	1642	ellipsize => 0,
903	);	1643	);
904	$vb->add (my $hb = new CFClient::UI::HBox expand => 1);	1644	$vb->add (my $hb = new CFPlus::UI::HBox expand => 1);
905	$hb->add (new CFClient::UI::Button	1645	$hb->add (new CFPlus::UI::Button
906	text => "Ok",	1646	text => "Ok",
907	expand => 1,	1647	expand => 1,
908	on_activate => sub { $QUIT_DIALOG->hide },	1648	on_activate => sub { $QUIT_DIALOG->hide; 0 },
909	);	1649	);
910	$hb->add (new CFClient::UI::Button	1650	$hb->add (new CFPlus::UI::Button
911	text => "Quit anyway",	1651	text => "Quit anyway",
912	expand => 1,	1652	expand => 1,
913	on_activate => sub { exit },	1653	on_activate => sub { exit },
914	);	1654	);
915	}	1655	}
916		1656
917	$QUIT_DIALOG->show;	1657	$QUIT_DIALOG->show;
918	$QUIT_DIALOG->center;	1658	$QUIT_DIALOG->grab_focus;
919	}	1659	}
920		1660
921	sub make_inventory_window {	1661	sub show_tip_of_the_day {
922	my $invwin = $INV_WINDOW = new CFClient::UI::FancyFrame	1662	# find all tips
923	def_w => $WIDTH * 7/8,	1663	my @tod = CFPlus::Pod::find tip_of_the_day => "*";
924	def_h => $HEIGHT * 7/8,	1664
925	title => "Inventory",	1665	CFPlus::DB::get state => "tip_of_the_day", sub {
926	name => "inventory_window",	1666	my ($todindex) = @_;
927	on_visibility_change => sub {	1667	$todindex = 0 if $todindex >= @tod;
928	my ($self, $visible) = @_;	1668	CFPlus::DB::put state => tip_of_the_day => $todindex + 1, sub { };
929	$self->center if $visible;	1669
		1670	# create dialog
		1671	my $dialog;
		1672
		1673	my $close = sub {
		1674	$dialog->destroy;
930	},	1675	};
931	;
932		1676
933	$invwin->add (my $hb = new CFClient::UI::HBox homogeneous => 1);	1677	$dialog = new CFPlus::UI::Toplevel
		1678	x => "center",
		1679	y => "center",
		1680	z => 3,
		1681	name => 'tip_of_the_day',
		1682	force_w => int $WIDTH * 4/9,
		1683	force_h => int $WIDTH * 2/9,
		1684	title => "Tip of the day #" . (1 + $todindex),
		1685	child => my $vbox = new CFPlus::UI::VBox,
		1686	has_close_button => 1,
		1687	on_delete => $close,
		1688	;
934		1689
935	$hb->add (my $vb1 = new CFClient::UI::VBox);	1690	$vbox->add (my $viewer = new CFPlus::UI::TextScroller
936	$vb1->add (new CFClient::UI::Label align => 0, text => "Player");	1691	expand => 1, fontsize => 0.8, padding_x => 4, padding_y => 4);
937	$vb1->add ($INV = new CFClient::UI::Inventory expand => 1);	1692	$viewer->add_paragraph (CFPlus::Pod::as_paragraphs CFPlus::Pod::section_of $tod[$todindex]);
938		1693
939	$hb->add (my $vb2 = new CFClient::UI::VBox);	1694	$vbox->add (my $table = new CFPlus::UI::Table col_expand => [0, 1]);
940		1695
941	$vb2->add (my $hb2 = new CFClient::UI::HBox);	1696	$table->add (0, 0, new CFPlus::UI::Button
942	$hb2->add ($INVR_LBL = new CFClient::UI::Label align => 0, expand => 1, text => "Floor");
943	$hb2->add (new CFClient::UI::Button
944	text => "Close",	1697	text => "Close",
945	tooltip => "Close the currently open container (if one is open)",	1698	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>.",
946	on_activate => sub {	1699	on_activate => $close,
947	$CONN->send ("apply $CONN->{open_container}")
948	if $CONN->{open_container} != 0;
949	},
950	);	1700	);
951		1701
952	$vb2->add ($INVR = new CFClient::UI::Inventory expand => 1);	1702	$table->add (2, 0, new CFPlus::UI::Button
953		1703	text => "Next",
954	$invwin	1704	tooltip => "Show the next <b>Tip of the day</b>.",
955	}
956
957	sub make_help_window {
958	my $win = new CFClient::UI::FancyFrame
959	def_w => int $WIDTH * 7/8,
960	def_h => int $HEIGHT * 7/8,
961	title => "Documentation";
962
963	$win->add (my $vbox = new CFClient::UI::VBox);
964
965	$vbox->add (my $buttons = new CFClient::UI::HBox);
966	$vbox->add (my $viewer = new CFClient::UI::TextView expand => 1, fontsize => 0.8);
967
968	for (
969	[intro => "Introduction"],
970	[manual => "Manual"],
971	[command_help => "Commands"],
972	[skill_help => "Skills"],
973	) {
974	my ($pod, $label) = @$_;
975
976	$buttons->add (new CFClient::UI::Button
977	text => $label,
978	on_activate => sub {	1705	on_activate => sub {
979	my $parser = new Pod::POM;	1706	$close->();
980	my $pom = $parser->parse_file (CFClient::find_rcfile "pod/$pod.pod");	1707	&show_tip_of_the_day;
981
982	$viewer->clear;
983
984	$viewer->add_paragraph ([1, 1, 1, 1], $_->[1], $_->[0])
985	for @{ CFClient::pod_to_pango_list $pom };
986
987	$viewer->set_offset (0);
988	},	1708	},
989	);	1709	);
		1710
		1711	$dialog->show;
990	}	1712	};
991
992	$viewer->add_paragraph ([1, 1, 0, 1], "<big>Use one of the buttons above to display a document.</big>");
993
994	$win
995	}	1713	}
996		1714
997	sub sdl_init {	1715	sub sdl_init {
998	CFClient::SDL_Init	1716	CFPlus::SDL_Init
999	and die "SDL::Init failed!\n";	1717	and die "SDL::Init failed!\n";
1000	}	1718	}
1001		1719
1002	sub video_init {	1720	sub video_init {
1003	sdl_init;	1721	sdl_init;
…		…
1008		1726
1009	($WIDTH, $HEIGHT) = @{ $SDL_MODES[$CFG->{sdl_mode}] };	1727	($WIDTH, $HEIGHT) = @{ $SDL_MODES[$CFG->{sdl_mode}] };
1010	$FULLSCREEN = $CFG->{fullscreen};	1728	$FULLSCREEN = $CFG->{fullscreen};
1011	$FAST = $CFG->{fast};	1729	$FAST = $CFG->{fast};
1012		1730
1013	CFClient::SDL_SetVideoMode $WIDTH, $HEIGHT, $FULLSCREEN	1731	CFPlus::SDL_SetVideoMode $WIDTH, $HEIGHT, $FULLSCREEN
1014	or die "SDL_SetVideoMode failed: " . (CFClient::SDL_GetError) . "\n";	1732	or die "SDL_SetVideoMode failed: " . (CFPlus::SDL_GetError) . "\n";
1015		1733
1016	$SDL_ACTIVE = 1;	1734	$SDL_ACTIVE = 1;
1017	$LAST_REFRESH = time - 0.01;	1735	$LAST_REFRESH = time - 0.01;
1018		1736
1019	CFClient::OpenGL::init;	1737	CFPlus::OpenGL::init;
1020		1738
1021	$FONTSIZE = int $HEIGHT / 40 * $CFG->{gui_fontsize};	1739	$FONTSIZE = int $HEIGHT / 40 * $CFG->{gui_fontsize};
1022		1740
1023	$CFClient::UI::ROOT->configure (0, 0, $WIDTH, $HEIGHT);#d#	1741	$CFPlus::UI::ROOT->configure (0, 0, $WIDTH, $HEIGHT);#d#
1024		1742
1025	#############################################################################	1743	#############################################################################
1026		1744
1027	if ($DEBUG_STATUS) {	1745	if ($DEBUG_STATUS) {
1028	CFClient::UI::rescale_widgets $WIDTH / $old_w, $HEIGHT / $old_h;	1746	CFPlus::UI::rescale_widgets $WIDTH / $old_w, $HEIGHT / $old_h;
1029	} else {	1747	} else {
1030	# create the widgets	1748	# create the widgets
1031		1749
1032	$DEBUG_STATUS = new CFClient::UI::Label padding => 0, z => 100, req_x => -1;	1750	$DEBUG_STATUS = new CFPlus::UI::Label
		1751	padding => 0,
		1752	z => 100,
		1753	force_x => "max",
		1754	force_y => 0;
1033	$DEBUG_STATUS->show;	1755	$DEBUG_STATUS->show;
1034		1756
1035	$STATUSBOX = new CFClient::UI::Statusbox;	1757	$STATUSBOX = new CFPlus::UI::Statusbox;
1036	$STATUSBOX->add ("Use <b>Alt-Enter</b> to toggle fullscreen mode", pri => -100, color => [1, 1, 1, 0.8]);	1758	$STATUSBOX->add ("Use <b>Alt-Enter</b> to toggle fullscreen mode", timeout => 864000, pri => -100, color => [1, 1, 1, 0.8]);
1037		1759
1038	(new CFClient::UI::Frame	1760	(new CFPlus::UI::Frame
1039	bg => [0, 0, 0, 0.4],	1761	bg => [0, 0, 0, 0.4],
1040	req_y => -1,	1762	force_x => 0,
		1763	force_y => "max",
1041	child => $STATUSBOX,	1764	child => $STATUSBOX,
1042	)->show;	1765	)->show;
1043		1766
1044	CFClient::UI::FancyFrame->new (	1767	CFPlus::UI::Toplevel->new (
		1768	title => "Map",
		1769	name => "mapmap",
		1770	x => 0,
		1771	y => $FONTSIZE + 8,
1045	border_bg => [1, 1, 1, 192/255],	1772	border_bg => [1, 1, 1, 192/255],
1046	bg => [1, 1, 1, 0],	1773	bg => [1, 1, 1, 0],
1047	child => ($MAPMAP = new CFClient::MapWidget::MapMap	1774	child => ($MAPMAP = new CFPlus::MapWidget::MapMap
1048	tooltip => "<b>Map</b>. On servers that support this feature, this will display an overview of the surrounding areas.",	1775	tooltip => "<b>Map</b>. On servers that support this feature, this will display an overview of the surrounding areas.",
1049	),	1776	),
1050	)->show;	1777	)->show;
1051		1778
1052	$MAPWIDGET = new CFClient::MapWidget;	1779	$MAPWIDGET = new CFPlus::MapWidget;
1053	$MAPWIDGET->connect (activate_console => sub {	1780	$MAPWIDGET->connect (activate_console => sub {
1054	my ($mapwidget, $preset) = @_;	1781	my ($mapwidget, $preset) = @_;
1055		1782
1056	if ($CONSOLE) {	1783	if ($CONSOLE) {
1057	$CONSOLE->{input}->{auto_activated} = 1;	1784	$CONSOLE->{input}->{auto_activated} = 1;
1058	$CONSOLE->{input}->focus_in;	1785	$CONSOLE->{input}->grab_focus;
1059		1786
1060	if ($preset && $CONSOLE->{input}->get_text eq '') {	1787	if ($preset && $CONSOLE->{input}->get_text eq '') {
1061	$CONSOLE->{input}->set_text ($preset);	1788	$CONSOLE->{input}->set_text ($preset);
1062	}	1789	}
1063	}	1790	}
1064	});	1791	});
1065	$MAPWIDGET->show;	1792	$MAPWIDGET->show;
1066	$MAPWIDGET->focus_in;	1793	$MAPWIDGET->grab_focus;
1067		1794
1068	$LOGVIEW = new CFClient::UI::TextView	1795	$LOGVIEW = new CFPlus::UI::TextScroller
1069	expand => 1,	1796	expand => 1,
1070	font => $FONT_FIXED,	1797	font => $FONT_FIXED,
1071	fontsize => $::CFG->{log_fontsize},	1798	fontsize => $::CFG->{log_fontsize},
		1799	indent => -4,
1072	can_hover => 1,	1800	can_hover => 1,
1073	can_events => 1,	1801	can_events => 1,
		1802	max_par => $CFG->{logview_max_par},
1074	tooltip => "<b>Server Log</b>. This text viewer contains all the messages sent by the server.",	1803	tooltip => "<b>Server Log</b>. This text viewer contains all recent messages sent by the server.",
1075	;	1804	;
1076		1805
1077	$BUTTONBAR = new CFClient::UI::HBox;	1806	$SETUP_DIALOG = new CFPlus::UI::Toplevel
		1807	title => "Setup",
		1808	name => "setup_dialog",
		1809	x => 'center',
		1810	y => 'center',
		1811	z => 2,
		1812	force_w => $::WIDTH * 0.6,
		1813	force_h => $::HEIGHT * 0.6,
		1814	has_close_button => 1,
		1815	;
1078		1816
1079	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Client Setup", other => client_setup,	1817	$METASERVER = metaserver_dialog;
1080	tooltip => "Toggles a dialog where you can configure various aspects of the client, such as graphics mode, performance, and audio options.");	1818
1081	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Server Setup", other => server_setup,	1819	$SETUP_DIALOG->add ($SETUP_NOTEBOOK = new CFPlus::UI::Notebook expand => 1, debug => 1,
		1820	filter => new CFPlus::UI::ScrolledWindow expand => 1, scroll_y => 1);
		1821
		1822	$SETUP_NOTEBOOK->add (Server => $SETUP_SERVER = server_setup,
1082	tooltip => "Toggles a dialog where you can configure the server to play on, your username, password and other server-related options.");	1823	"Configure the server to play on, your username, password and other server-related options.");
		1824	$SETUP_NOTEBOOK->add (Client => client_setup,
		1825	"Configure various client-specific settings.");
		1826	$SETUP_NOTEBOOK->add (Graphics => graphics_setup,
		1827	"Configure the video mode, performance, fonts and other graphical aspects of the game.");
		1828	$SETUP_NOTEBOOK->add (Audio => audio_setup,
		1829	"Configure the use of audio, sound effects and background music.");
		1830	$SETUP_NOTEBOOK->add (Keyboard => $SETUP_KEYBOARD = keyboard_setup,
		1831	"Lets you define, edit and delete key bindings."
		1832	. "There is a shortcut for making bindings: <b>Control-Insert</b> opens the binding editor "
		1833	. "with nothing set and the recording started. After doing the actions you "
		1834	. "want to record press <b>Insert</b> and you will be asked to press a key-combo. "
		1835	. "After pressing the combo the binding will be saved automatically and the "
		1836	. "binding editor closes");
		1837	$SETUP_NOTEBOOK->add (Debug => debug_setup,
		1838	"Some debuggin' options. Do not ask.");
		1839
		1840	$BUTTONBAR = new CFPlus::UI::Buttonbar x => 0, y => 0, z => 200; # put on top
		1841
		1842	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Setup", other => $SETUP_DIALOG,
		1843	tooltip => "Toggles a dialog where you can configure all aspects of this client.");
		1844
1083	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Message Window", other => message_window,	1845	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Message Window", other => $MESSAGE_WINDOW = message_window,
1084	tooltip => "Toggles the server message log, where the client collects <i>all</i> messages from the server.");	1846	tooltip => "Toggles the server message log, where the client collects <i>all</i> messages from the server.");
1085		1847
1086	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	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
1087		1849
1088	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Stats Window", other => make_stats_window,
1089	tooltip => "Toggles the statistics window, where all your Stats and Resistances are being displayed at all times.");
1090	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Inventory", other => make_inventory_window,	1850	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Playerbook", other => player_window,
1091	tooltip => "Toggles the inventory window, where you can manage your loot (or treaures :).");	1851	tooltip => "Toggles the player view, where you can manage Inventory, Spells, Skills and see your Stats.");
1092		1852
1093	$BUTTONBAR->add (new CFClient::UI::Button	1853	$BUTTONBAR->add (new CFPlus::UI::Button
1094	text => "Save Config",	1854	text => "Save Config",
1095	tooltip => "Saves the options chosen in the client setting, server settings and the window layout to be restored on later runs.",	1855	tooltip => "Saves the options chosen in the client setting, server settings and the window layout to be restored on later runs.",
1096	on_activate => sub {	1856	on_activate => sub {
1097	$::CFG->{layout} = CFClient::UI::get_layout;	1857	$::CFG->{layout} = CFPlus::UI::get_layout;
1098	CFClient::write_cfg "$Crossfire::VARDIR/pclientrc";	1858	CFPlus::write_cfg "$Crossfire::VARDIR/cfplusrc";
1099	status "Configuration Saved";	1859	status "Configuration Saved";
		1860	0
1100	},	1861	},
1101	);	1862	);
1102		1863
1103	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Help!", other => make_help_window,	1864	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Help!", other => $HELP_WINDOW = help_window,
1104	tooltip => "View Documentation");	1865	tooltip => "View Documentation");
1105		1866
		1867
1106	$BUTTONBAR->add (new CFClient::UI::Button	1868	$BUTTONBAR->add (new CFPlus::UI::Button
1107	text => "Quit",	1869	text => "Quit",
1108	tooltip => "Terminates the program",	1870	tooltip => "Terminates the program",
1109	on_activate => sub {	1871	on_activate => sub {
1110	if ($CONN) {	1872	if ($CONN) {
1111	open_quit_dialog;	1873	open_quit_dialog;
1112	} else {	1874	} else {
1113	exit;	1875	exit;
1114	}	1876	}
		1877	0
1115	},	1878	},
1116	);	1879	);
1117		1880
1118	$BUTTONBAR->show;	1881	$BUTTONBAR->show;
1119		1882	$SETUP_DIALOG->show;
1120	$STATUSBOX->add ("Set video mode $WIDTH×$HEIGHT", timeout => 10, fg => [1, 1, 1, 0.5]);
1121
1122	$SERVER_SETUP->show;
1123	}	1883	}
		1884
		1885	$STATUSBOX->add ("Set video mode $WIDTH×$HEIGHT", timeout => 10, fg => [1, 1, 1, 0.5]);
		1886	}
		1887
		1888	sub setup_build_button {
		1889	my ($enabled) = @_;
		1890	if ($enabled) {
		1891	$BUILD_BUTTON->hide if $BUILD_BUTTON;
		1892	$BUILD_BUTTON ||= new CFPlus::UI::Button
		1893	text => "Build",
		1894	tooltip => "Opens the ingame builder",
		1895	on_activate => sub {
		1896	if ($CONN) {
		1897	$CONN->send_ext_req (builder_player_items => sub {
		1898	open_ingame_editor ($_[0]) if exists $_[0]->{items};
		1899	});
		1900	}
		1901	0
		1902	};
		1903	$BUTTONBAR->add ($BUILD_BUTTON);
		1904	} else {
		1905	$BUILD_BUTTON->hide if $BUILD_BUTTON;
		1906	}
		1907	}
		1908
		1909	sub open_ingame_editor {
		1910	my ($msg) = @_;
		1911
		1912	my $win = new CFPlus::UI::Toplevel
		1913	x => 0,
		1914	y => 'center',
		1915	z => 4,
		1916	name => 'builder_window',
		1917	force_w => int $WIDTH * 1/4,
		1918	force_h => int $HEIGHT * 3/4,
		1919	title => "In game builder",
		1920	has_close_button => 1;
		1921
		1922	my $r = new CFPlus::UI::ScrolledWindow (
		1923	expand => 1,
		1924	scroll_y => 1
		1925	);
		1926	$r->add (my $vb = new CFPlus::UI::VBox);
		1927	$win->add ($r);
		1928
		1929
		1930	$vb->add (
		1931	new CFPlus::UI::Button
		1932	text => "Disable build mode",
		1933	on_activate => sub { $::IN_BUILD_MODE = undef }
		1934	);
		1935	$vb->add (
		1936	new CFPlus::UI::Button
		1937	text => "ERASE",
		1938	on_activate => sub { $::IN_BUILD_MODE = { do_erase => 1 } }
		1939	);
		1940
		1941	for my $itemarchname (
		1942	sort {
		1943	$msg->{items}->{$a}->{build_arch_name}
		1944	cmp $msg->{items}->{$b}->{build_arch_name}
		1945	} keys %{$msg->{items}}
		1946	) {
		1947	my $info = $msg->{items}->{$itemarchname};
		1948	$vb->add (
		1949	new CFPlus::UI::Button text => $info->{build_arch_name},
		1950	on_activate => sub {
		1951	$::IN_BUILD_MODE = { item => $itemarchname, info => $info };
		1952
		1953	if (grep { $msg->{items}->{$itemarchname}->{$_} } qw/has_connection has_name has_text/) {
		1954	build_mode_query_arch_info ();
		1955	}
		1956	}
		1957	);
		1958	}
		1959
		1960	$win->show;
		1961	}
		1962
		1963	sub build_mode_query_arch_info {
		1964	my ($iteminfo) = $::IN_BUILD_MODE;
		1965	my $itemarchname = $iteminfo->{item};
		1966	my $info = $iteminfo->{info};
		1967
		1968	my $dialog = new CFPlus::UI::Toplevel
		1969	x => "center",
		1970	y => "center",
		1971	z => 50,
		1972	force_w => int $WIDTH * 1/2,
		1973	title => "Enter information for placement of '$itemarchname'",
		1974	has_close_button => 1;
		1975
		1976	$dialog->add (my $vb = new CFPlus::UI::VBox expand => 1);
		1977
		1978	$vb->add (my $table = new CFPlus::UI::Table expand => 1);
		1979	my $row = 0;
		1980	if ($info->{has_name}) {
		1981	$table->add (0, $row, new CFPlus::UI::Label text => "Name:");
		1982	$table->add (1, $row++, new CFPlus::UI::Entry expand => 1, on_changed => sub { $::IN_BUILD_MODE->{name} = $_[1]; 0 });
		1983	}
		1984	if ($info->{has_text}) {
		1985	$table->add (0, $row, new CFPlus::UI::Label text => "Text:");
		1986	$table->add (1, $row++, new CFPlus::UI::Entry expand => 1, on_changed => sub { $::IN_BUILD_MODE->{text} = $_[1]; 0 });
		1987	}
		1988	if ($info->{has_connection}) {
		1989	$table->add (0, $row, new CFPlus::UI::Label text => "Connection ID:");
		1990	$table->add (1, $row++,
		1991	new CFPlus::UI::Entry
		1992	expand => 1,
		1993	on_changed => sub { $::IN_BUILD_MODE->{connection} = $_[1]; 0 },
		1994	tooltip => "Enter the connection ID here. The connection ID connects actors like a lever to a gate or a magic ear to a gate"
		1995	);
		1996	}
		1997
		1998	$vb->add (my $hb = new CFPlus::UI::HBox expand => 1);
		1999	$hb->add (new CFPlus::UI::Button
		2000	text => "Close",
		2001	expand => 1,
		2002	on_activate => sub { $dialog->hide; 0 },
		2003	);
		2004	$dialog->show;
1124	}	2005	}
1125		2006
1126	sub video_shutdown {	2007	sub video_shutdown {
		2008	CFPlus::OpenGL::shutdown;
		2009
1127	undef $SDL_ACTIVE;	2010	undef $SDL_ACTIVE;
1128	}	2011	}
1129
1130	my @bgmusic = qw(game1.ogg game2.ogg game3.ogg game5.ogg game6.ogg ross1.ogg ross2.ogg ross3.ogg ross4.ogg ross5.ogg); #d#
1131	my $bgmusic;#TODO#hack#d#
1132		2012
1133	sub audio_channel_finished {	2013	sub audio_channel_finished {
1134	my ($channel) = @_;	2014	my ($channel) = @_;
1135		2015
1136	#warn "channel $channel finished\n";#d#	2016	#warn "channel $channel finished\n";#d#
1137	}	2017	}
1138		2018
		2019	sub audio_music_set {
		2020	my ($songs) = @_;
		2021
		2022	my $count = @$songs;
		2023	my @meta;
		2024
		2025	for my $name (@$songs) {
		2026	CFPlus::DB::get resmap => $name, sub {
		2027	my ($data) = @_;
		2028
		2029	if ($data) {
		2030	$data = JSON::XS->new->utf8->decode ($data);
		2031	$data->{path} = CFPlus::DB::path_of $name;
		2032	push @meta, $data;
		2033	}
		2034
		2035	unless (--$count) {
		2036	if (@meta) {
		2037	@MUSIC_WANT = @meta;
		2038	&audio_music_changed ();
		2039	}
		2040	}
		2041	};
		2042	}
		2043	}
		2044
		2045	sub audio_music_changed {
		2046	return unless $CFG->{bgm_enable};
		2047
		2048	# default MUSIC_WANT == MUSIC_DEFAULT
		2049	@MUSIC_WANT = { path => CFPlus::find_rcfile "music/$MUSIC_DEFAULT" } unless @MUSIC_WANT;
		2050
		2051	# if the currently playing song is acceptable, let it continue
		2052	return if $MUSIC_PLAYING
		2053	&& grep $MUSIC_PLAYING->{path} eq $_->{path}, @MUSIC_WANT;
		2054
		2055	if ($MUSIC_PLAYING) {
		2056	CFPlus::MixMusic::fade_out 1000;
		2057	} else {
		2058	my $music = $MUSIC_WANT [rand @MUSIC_WANT];
		2059
		2060	$MUSIC_PLAYING = $music;
		2061
		2062	$MUSIC_PLAYER = new_from_file CFPlus::MixMusic $music->{path};
		2063	$MUSIC_PLAYER->play (0);
		2064	}
		2065	}
		2066
1139	sub audio_music_finished {	2067	sub audio_music_finished {
1140	return unless $CFG->{bgm_enable};	2068	$MUSIC_PLAYING = undef;
		2069	undef $MUSIC_PLAYER;
1141		2070
1142	# TODO: hack, do play loop and mood music	2071	audio_music_changed;
1143	$bgmusic = new_from_file CFClient::MixMusic CFClient::find_rcfile "music/$bgmusic[0]";
1144	$bgmusic->play (0);
1145
1146	push @bgmusic, shift @bgmusic;
1147	}	2072	}
1148		2073
1149	sub audio_init {	2074	sub audio_init {
1150	if ($CFG->{audio_enable}) {	2075	if ($CFG->{audio_enable}) {
1151	if (open my $fh, "<", CFClient::find_rcfile "sounds/config") {	2076	if (open my $fh, "<", CFPlus::find_rcfile "sounds/config") {
1152	$SDL_MIXER = !CFClient::Mix_OpenAudio;	2077	$SDL_MIXER = !CFPlus::Mix_OpenAudio;
1153		2078
1154	unless ($SDL_MIXER) {	2079	unless ($SDL_MIXER) {
1155	status "Unable to open sound device: there will be no sound";	2080	status "Unable to open sound device: there will be no sound";
1156	return;	2081	return;
1157	}	2082	}
1158		2083
1159	CFClient::Mix_AllocateChannels 8;	2084	CFPlus::Mix_AllocateChannels 8;
1160	CFClient::MixMusic::volume $CFG->{bgm_volume} * 128;	2085	CFPlus::MixMusic::volume $CFG->{bgm_volume} * 128;
1161		2086
1162	audio_music_finished;	2087	audio_music_finished;
1163		2088
		2089	local $_;
1164	while (<$fh>) {	2090	while (<$fh>) {
1165	next if /^\s*#/;	2091	next if /^\s*#/;
1166	next if /^\s*$/;	2092	next if /^\s*$/;
1167		2093
1168	my ($file, $volume, $event) = split /\s+/, $_, 3;	2094	my ($file, $volume, $event) = split /\s+/, $_, 3;
1169		2095
1170	push @SOUNDS, "$volume,$file";	2096	push @SOUNDS, "$volume,$file";
1171		2097
1172	$AUDIO_CHUNKS{"$volume,$file"} ||= do {	2098	$AUDIO_CHUNKS{"$volume,$file"} ||= do {
1173	my $chunk = new_from_file CFClient::MixChunk CFClient::find_rcfile "sounds/$file";	2099	my $chunk = new_from_file CFPlus::MixChunk CFPlus::find_rcfile "sounds/$file";
1174	$chunk->volume ($volume * 128 / 100);	2100	$chunk->volume ($volume * 128 / 100);
1175	$chunk	2101	$chunk
1176	};	2102	};
1177	}	2103	}
1178	} else {	2104	} else {
…		…
1180	}	2106	}
1181	}	2107	}
1182	}	2108	}
1183		2109
1184	sub audio_shutdown {	2110	sub audio_shutdown {
1185	CFClient::Mix_CloseAudio if $SDL_MIXER;	2111	CFPlus::Mix_CloseAudio if $SDL_MIXER;
1186	undef $SDL_MIXER;	2112	undef $SDL_MIXER;
1187	@SOUNDS = ();	2113	@SOUNDS = ();
1188	%AUDIO_CHUNKS = ();	2114	%AUDIO_CHUNKS = ();
1189	}	2115	}
1190		2116
…		…
1195		2121
1196	my %demo;#d#	2122	my %demo;#d#
1197		2123
1198	sub force_refresh {	2124	sub force_refresh {
1199	$fps = $fps * 0.95 + 1 / (($NOW - $LAST_REFRESH) || 0.1) * 0.05;	2125	$fps = $fps * 0.95 + 1 / (($NOW - $LAST_REFRESH) || 0.1) * 0.05;
1200	debug sprintf "%3.2f", $fps;	2126	debug sprintf "%3.2f", $fps if $ENV{CFPLUS_DEBUG} & 4;
1201		2127
1202	$CFClient::UI::ROOT->draw;	2128	$CFPlus::UI::ROOT->draw;
1203		2129
1204	$WANT_REFRESH = 0;	2130	$WANT_REFRESH = 0;
1205	$CAN_REFRESH = 0;	2131	$CAN_REFRESH = 0;
1206	$LAST_REFRESH = $NOW;	2132	$LAST_REFRESH = $NOW;
1207		2133
1208	0 && do {
1209	# some weird model-drawing code, just a joke right now
1210	use CFClient::OpenGL;
1211
1212	$demo{t}{eye_auv} ||= new_from_file CFClient::Texture "eye2.png" or die;
1213	$demo{t}{body_auv} ||= new_from_file CFClient::Texture "body_auv3.png" or die;
1214	$demo{r} ||= do {
1215	my $mod = Compress::LZF::sthaw do { local $/; open my $fh, "<:raw:perlio", "dread.lz3"; <$fh> };
1216	$mod->{v} = pack "f*", @{$mod->{v}};
1217	$_ = [scalar @$_, pack "S!*", @$_]
1218	for values %{$mod->{g}};
1219	$mod
1220	};
1221
1222	my $r = $demo{r} or die;
1223
1224	glDepthMask 1;
1225	glClear GL_DEPTH_BUFFER_BIT;
1226	glEnable GL_TEXTURE_2D;
1227	glEnable GL_DEPTH_TEST;
1228	glEnable GL_CULL_FACE;
1229	glShadeModel $::FAST ? GL_FLAT : GL_SMOOTH;
1230
1231	glMatrixMode GL_PROJECTION;
1232	glLoadIdentity;
1233	glFrustum -1 * ($::WIDTH / $::HEIGHT), 1 * ($::WIDTH / $::HEIGHT), 1, -1, 1, 10000;
1234	#glOrtho 0, $::WIDTH, 0, $::HEIGHT, -10000, 10000;
1235	glMatrixMode GL_MODELVIEW;
1236	glLoadIdentity;
1237
1238	glPushMatrix;
1239	glTranslate 0, 0, -800;
1240	glScale 1, -1, 1;
1241	glRotate $NOW * 1000 % 36000 / 5, 0, 1, 0;
1242	glRotate $NOW * 1000 % 36000 / 6, 1, 0, 0;
1243	glRotate $NOW * 1000 % 36000 / 7, 0, 0, 1;
1244	glScale 50, 50, 50;
1245
1246	glInterleavedArrays GL_T2F_N3F_V3F, 0, $r->{v};
1247	while (my ($k, $v) = each %{$r->{g}}) {
1248	glBindTexture GL_TEXTURE_2D, ($demo{t}{$k}{name} or die);
1249	glDrawElements GL_TRIANGLES, $v->[0], GL_UNSIGNED_SHORT, $v->[1];
1250	}
1251
1252	glPopMatrix;
1253
1254	glShadeModel GL_FLAT;
1255	glDisable GL_DEPTH_TEST;
1256	glDisable GL_TEXTURE_2D;
1257	glDepthMask 0;
1258
1259	$WANT_REFRESH++;
1260	};
1261
1262	CFClient::SDL_GL_SwapBuffers;	2134	CFPlus::SDL_GL_SwapBuffers;
1263	}	2135	}
1264		2136
1265	my $refresh_watcher = Event->timer (after => 0, hard => 1, interval => 1 / $MAX_FPS, cb => sub {	2137	my $refresh_watcher = Event->timer (after => 0, hard => 0, interval => 1 / $MAX_FPS, cb => sub {
1266	$NOW = time;	2138	$NOW = time;
1267		2139
1268	($SDL_CB{$_->{type}} || sub { warn "unhandled event $_->{type}" })->($_)	2140	($SDL_CB{$_->{type}} || sub { warn "unhandled event $_->{type}" })->($_)
1269	for CFClient::SDL_PollEvent;	2141	for CFPlus::SDL_PollEvent;
1270		2142
1271	if (%animate_object) {	2143	if (%animate_object) {
1272	$_->animate ($LAST_REFRESH - $NOW) for values %animate_object;	2144	$_->animate ($LAST_REFRESH - $NOW) for values %animate_object;
1273	$WANT_REFRESH++;	2145	$WANT_REFRESH++;
1274	}	2146	}
…		…
1298	$CONN->face_prefetch	2170	$CONN->face_prefetch
1299	if $CONN;	2171	if $CONN;
1300	});	2172	});
1301		2173
1302	%SDL_CB = (	2174	%SDL_CB = (
1303	CFClient::SDL_QUIT => sub {	2175	CFPlus::SDL_QUIT => sub {
1304	Event::unloop -1;	2176	exit;
1305	},	2177	},
1306	CFClient::SDL_VIDEORESIZE => sub {	2178	CFPlus::SDL_VIDEORESIZE => sub {
1307	},	2179	},
1308	CFClient::SDL_VIDEOEXPOSE => sub {	2180	CFPlus::SDL_VIDEOEXPOSE => sub {
1309	CFClient::UI::full_refresh;	2181	CFPlus::UI::full_refresh;
1310	},	2182	},
1311	CFClient::SDL_ACTIVEEVENT => sub {	2183	CFPlus::SDL_ACTIVEEVENT => sub {
1312	# printf "active %x %x\n", $SDL_EV->active_gain, $SDL_EV->active_state;#d#	2184	# not useful, as APPACTIVE include sonly iconified state, not unmapped
		2185	# printf "active %x %x\n", $_[0]{gain}, $_[0]{state};#d#
		2186	# printf "A\n" if $_[0]{state} & CFPlus::SDL_APPACTIVE;
		2187	# printf "K\n" if $_[0]{state} & CFPlus::SDL_APPINPUTFOCUS;
		2188	# printf "M\n" if $_[0]{state} & CFPlus::SDL_APPMOUSEFOCUS;
1313	},	2189	},
1314	CFClient::SDL_KEYDOWN => sub {	2190	CFPlus::SDL_KEYDOWN => sub {
1315	if ($_[0]{mod} & CFClient::KMOD_ALT && $_[0]{sym} == 13) {	2191	if ($_[0]{mod} & CFPlus::KMOD_ALT && $_[0]{sym} == 13) {
1316	# alt-enter	2192	# alt-enter
		2193	$FULLSCREEN_ENABLE->toggle;
1317	video_shutdown;	2194	video_shutdown;
1318	$CFG->{fullscreen} = !$CFG->{fullscreen};
1319	video_init;	2195	video_init;
1320	} else {	2196	} else {
1321	CFClient::UI::feed_sdl_key_down_event ($_[0]);	2197	CFPlus::UI::feed_sdl_key_down_event ($_[0]);
1322	}	2198	}
1323	},	2199	},
1324	CFClient::SDL_KEYUP => \&CFClient::UI::feed_sdl_key_up_event,	2200	CFPlus::SDL_KEYUP => \&CFPlus::UI::feed_sdl_key_up_event,
1325	CFClient::SDL_MOUSEMOTION => \&CFClient::UI::feed_sdl_motion_event,	2201	CFPlus::SDL_MOUSEMOTION => \&CFPlus::UI::feed_sdl_motion_event,
1326	CFClient::SDL_MOUSEBUTTONDOWN => \&CFClient::UI::feed_sdl_button_down_event,	2202	CFPlus::SDL_MOUSEBUTTONDOWN => \&CFPlus::UI::feed_sdl_button_down_event,
1327	CFClient::SDL_MOUSEBUTTONUP => \&CFClient::UI::feed_sdl_button_up_event,	2203	CFPlus::SDL_MOUSEBUTTONUP => \&CFPlus::UI::feed_sdl_button_up_event,
1328	CFClient::SDL_USEREVENT => sub {	2204	CFPlus::SDL_USEREVENT => sub {
1329	if ($_[0]{code} == 1) {	2205	if ($_[0]{code} == 1) {
1330	audio_channel_finished $_[0]{data1};	2206	audio_channel_finished $_[0]{data1};
1331	} elsif ($_[0]{code} == 0) {	2207	} elsif ($_[0]{code} == 0) {
1332	audio_music_finished;	2208	audio_music_finished;
1333	}	2209	}
…		…
1337	#############################################################################	2213	#############################################################################
1338		2214
1339	$SIG{INT} = $SIG{TERM} = sub { exit };	2215	$SIG{INT} = $SIG{TERM} = sub { exit };
1340		2216
1341	{	2217	{
1342	local $SIG{__DIE__} = sub { CFClient::fatal $_[0] };
1343
1344	CFClient::read_cfg "$Crossfire::VARDIR/pclientrc";	2218	CFPlus::read_cfg "$Crossfire::VARDIR/cfplusrc";
		2219	CFPlus::DB::Server::run;
		2220
1345	CFClient::UI::set_layout ($::CFG->{layout});	2221	CFPlus::UI::set_layout ($::CFG->{layout});
1346		2222
1347	my %DEF_CFG = (	2223	my %DEF_CFG = (
1348	sdl_mode => 0,	2224	sdl_mode => 0,
1349	width => 640,	2225	width => 640,
1350	height => 480,	2226	height => 480,
1351	fullscreen => 0,	2227	fullscreen => 0,
1352	fast => 0,	2228	fast => 0,
1353	map_scale => 1,	2229	map_scale => 1,
1354	fow_enable => 1,	2230	fow_enable => 1,
1355	fow_intensity => 0.45,	2231	fow_intensity => 0.45,
1356	fow_smooth => 0,	2232	fow_smooth => 0,
		2233	map_smoothing => 1,
1357	gui_fontsize => 1,	2234	gui_fontsize => 1,
1358	log_fontsize => 1,	2235	log_fontsize => 0.7,
1359	gauge_fontsize=> 1,	2236	gauge_fontsize => 1,
1360	gauge_size => 0.35,	2237	gauge_size => 0.35,
1361	stat_fontsize => 1,	2238	stat_fontsize => 0.7,
1362	mapsize => 100,	2239	mapsize => 100,
1363	host => "crossfire.schmorp.de",
1364	say_command => 'say',	2240	say_command => 'chat',
1365	audio_enable => 1,	2241	audio_enable => 1,
1366	bgm_enable => 1,	2242	bgm_enable => 1,
1367	bgm_volume => 0.25,	2243	bgm_volume => 0.25,
1368	face_prefetch => 0,	2244	face_prefetch => 0,
1369	output_sync => 1,	2245	output_sync => 1,
1370	output_count => 1,	2246	output_count => 1,
		2247	output_rate => "",
		2248	pickup => 0,
		2249	inv_sort => "mtime",
		2250	default => "profile", # default profile
		2251	show_tips => 1,
		2252	logview_max_par => 1000,
		2253	);
1371	);	2254
1372
1373	while (my ($k, $v) = each %DEF_CFG) {	2255	while (my ($k, $v) = each %DEF_CFG) {
1374	$CFG->{$k} = $v unless exists $CFG->{$k};	2256	$CFG->{$k} = $v unless exists $CFG->{$k};
1375	}	2257	}
1376		2258
		2259	$CFG->{profile}{default}{host} ||= "crossfire.schmorp.de";
		2260	$PROFILE = $CFG->{profile}{default};
		2261
		2262	# convert old bindings (only default profile matters)
		2263	if (my $bindings = delete $PROFILE->{bindings}) {
		2264	while (my ($mod, $syms) = each %$bindings) {
		2265	while (my ($sym, $cmds) = each %$syms) {
		2266	push @{ $PROFILE->{macro} }, {
		2267	accelkey => [$mod*1, $sym*1],
		2268	action => $cmds,
		2269	};
		2270	}
		2271	}
		2272	}
		2273
1377	sdl_init;	2274	sdl_init;
1378		2275
1379	@SDL_MODES = reverse	2276	@SDL_MODES = reverse
1380	grep $_->[0] >= 640 && $_->[1] >= 480,	2277	grep $_->[0] >= 640 && $_->[1] >= 480,
1381	CFClient::SDL_ListModes;	2278	CFPlus::SDL_ListModes;
1382		2279
1383	@SDL_MODES or CFClient::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)";	2280	@SDL_MODES or CFPlus::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)";
1384		2281
1385	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES;	2282	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES;
1386		2283
1387	{	2284	{
1388	my @fonts = map CFClient::find_rcfile "fonts/$_", qw(	2285	my @fonts = map CFPlus::find_rcfile "fonts/$_", qw(
1389	DejaVuSans.ttf	2286	DejaVuSans.ttf
1390	DejaVuSansMono.ttf	2287	DejaVuSansMono.ttf
1391	DejaVuSans-Bold.ttf	2288	DejaVuSans-Bold.ttf
1392	DejaVuSansMono-Bold.ttf	2289	DejaVuSansMono-Bold.ttf
1393	DejaVuSans-Oblique.ttf	2290	DejaVuSans-Oblique.ttf
1394	DejaVuSansMono-Oblique.ttf	2291	DejaVuSansMono-Oblique.ttf
1395	DejaVuSans-BoldOblique.ttf	2292	DejaVuSans-BoldOblique.ttf
1396	DejaVuSansMono-BoldOblique.ttf	2293	DejaVuSansMono-BoldOblique.ttf
1397	);	2294	);
1398		2295
1399	CFClient::add_font $_ for @fonts;	2296	CFPlus::add_font $_ for @fonts;
1400		2297
1401	CFClient::pango_init;	2298	CFPlus::pango_init;
1402		2299
1403	$FONT_PROP = new_from_file CFClient::Font $fonts[0];	2300	$FONT_PROP = new_from_file CFPlus::Font $fonts[0];
1404	$FONT_FIXED = new_from_file CFClient::Font $fonts[1];	2301	$FONT_FIXED = new_from_file CFPlus::Font $fonts[1];
1405		2302
1406	$FONT_PROP->make_default;	2303	$FONT_PROP->make_default;
1407	}	2304	}
1408		2305
1409	# compare mono (ft) vs. rgba (cairo)	2306	# compare mono (ft) vs. rgba (cairo)
1410	# ft - 1.8s, cairo 3s, even in alpha-only mode	2307	# ft - 1.8s, cairo 3s, even in alpha-only mode
1411	# for my $rgba (0..1) {	2308	# for my $rgba (0..1) {
1412	# my $t1 = Time::HiRes::time;	2309	# my $t1 = Time::HiRes::time;
1413	# for (1..1000) {	2310	# for (1..1000) {
1414	# my $layout = CFClient::Layout->new ($rgba);	2311	# my $layout = CFPlus::Layout->new ($rgba);
1415	# $layout->set_text ("hallo" x 100);	2312	# $layout->set_text ("hallo" x 100);
1416	# $layout->render;	2313	# $layout->render;
1417	# }	2314	# }
1418	# my $t2 = Time::HiRes::time;	2315	# my $t2 = Time::HiRes::time;
1419	# warn $t2-$t1;	2316	# warn $t2-$t1;
1420	# }	2317	# }
1421		2318
		2319	$startup_done->();
		2320
1422	video_init;	2321	video_init;
1423	audio_init;	2322	audio_init;
1424	}	2323	}
1425		2324
		2325	show_tip_of_the_day if $CFG->{show_tips};
		2326
1426	Event::loop;	2327	Event::loop;
		2328	#CFPlus::SDL_Quit;
		2329	#CFPlus::_exit 0;
1427		2330
1428	END { CFClient::SDL_Quit }	2331	END {
		2332	CFPlus::SDL_Quit;
		2333	CFPlus::DB::Server::stop;
		2334	}
1429		2335
1430	=head1 NAME	2336	=head1 NAME
1431		2337
1432	pclient - A Crossfire+ and Crossfire game client	2338	cfplus - A Crossfire+ and Crossfire game client
1433		2339
1434	=head1 SYNOPSIS	2340	=head1 SYNOPSIS
1435		2341
1436	Just run it - no commandline arguments are supported.	2342	Just run it - no commandline arguments are supported.
1437		2343
1438	=head1 USAGE	2344	=head1 USAGE
1439		2345
1440	Pclient utilises OpenGL for all UI elements and the game. It is supposed to be used	2346	cfplus utilises OpenGL for all UI elements and the game. It is supposed to be used
1441	fullscreen and interactively.	2347	fullscreen and interactively.
1442		2348
		2349	=head1 DEBUGGING
		2350
		2351
		2352	CFPLUS_DEBUG - environment variable
		2353
		2354	1 draw borders around widgets
		2355	2 add low-level widget info to tooltips
		2356	4 show fps
		2357	8 suppress tooltips
		2358
1443	=head1 AUTHOR	2359	=head1 AUTHOR
1444		2360
1445	Marc Lehmann <crossfire@schmorp.de>, Robin Redeker <elmex@ta-sa.org>	2361	Marc Lehmann <crossfire@schmorp.de>, Robin Redeker <elmex@ta-sa.org>
1446		2362
1447		2363

Diff Legend

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