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.19 by elmex, Sat May 27 21:15:57 2006 UTC vs.
Revision 1.77 by elmex, Wed Jun 21 12:59:23 2006 UTC

…		…
25	# need to do it again because that pile of garbage called PAR nukes it before main	25	# need to do it again because that pile of garbage called PAR nukes it before main
26	unshift @INC, $ENV{PAR_TEMP}	26	unshift @INC, $ENV{PAR_TEMP}
27	if %PAR::LibCache;	27	if %PAR::LibCache;
28		28
29	use Time::HiRes 'time';	29	use Time::HiRes 'time';
30	use Pod::POM;
31	use Event;	30	use Event;
32		31
33	use Crossfire;	32	use Crossfire;
34	use Crossfire::Protocol::Constants;	33	use Crossfire::Protocol::Constants;
35		34
…		…
39	use CFClient::OpenGL ();	38	use CFClient::OpenGL ();
40	use CFClient::Protocol;	39	use CFClient::Protocol;
41	use CFClient::UI;	40	use CFClient::UI;
42	use CFClient::MapWidget;	41	use CFClient::MapWidget;
43		42
		43	$SIG{QUIT} = sub { Carp::cluck "QUIT" };
		44
44	$Event::DIED = sub {	45	$Event::DIED = sub {
45	# TODO: display dialog box or so	46	# TODO: display dialog box or so
		47	Carp::confess $_[1];#d#TODO: remove when stable
46	CFClient::error $_[1];	48	CFClient::error $_[1];
47	};	49	};
48		50
49	#$SIG{__WARN__} = sub { Carp::cluck $_[0] };#d#	51	#$SIG{__WARN__} = sub { Carp::cluck $_[0] };#d#
50		52
…		…
81	our $LOGVIEW;	83	our $LOGVIEW;
82	our $CONSOLE;	84	our $CONSOLE;
83	our $METASERVER;	85	our $METASERVER;
84	our $LOGIN_BUTTON;	86	our $LOGIN_BUTTON;
85	our $QUIT_DIALOG;	87	our $QUIT_DIALOG;
		88	our $HOST_ENTRY;
		89	our $SERVER_INFO;
86		90
		91	our $SETUP_DIALOG;
		92	our $SETUP_NOTEBOOK;
		93	our $SETUP_SERVER;
		94	our $SETUP_KEYBOARD;
		95	our $SETUP_SPELLS;
		96
		97	our $STATS_WINDOW;
		98	our $MESSAGE_WINDOW;
87	our $FLOORBOX;	99	our $FLOORBOX;
88	our $GAUGES;	100	our $GAUGES;
89	our $STATWIDS;	101	our $STATWIDS;
90		102
91	our $SDL_ACTIVE;	103	our $SDL_ACTIVE;
…		…
97		109
98	our $ALT_ENTER_MESSAGE;	110	our $ALT_ENTER_MESSAGE;
99	our $STATUSBOX;	111	our $STATUSBOX;
100	our $DEBUG_STATUS;	112	our $DEBUG_STATUS;
101		113
		114	our $INV_WINDOW;
102	our $INV;	115	our $INV;
103	our $INVR;	116	our $INVR;
104	our $INVR_LBL;	117	our $INV_RIGHT_HB;
		118
		119	our $BIND_EDITOR;
		120	our $BIND_UPD_CB;
		121
		122	our $PICKUP_CFG;
105		123
106	sub status {	124	sub status {
107	$STATUSBOX->add (CFClient::UI::Label::escape $_[0], pri => -10, group => "status", timeout => 10, fg => [1, 1, 0, 1]);	125	$STATUSBOX->add (CFClient::UI::Label::escape $_[0], pri => -10, group => "status", timeout => 10, fg => [1, 1, 0, 1]);
108	}	126	}
109		127
110	sub debug {	128	sub debug {
111	$DEBUG_STATUS->set_text ($_[0]);	129	$DEBUG_STATUS->set_text ($_[0]);
112	my ($w, $h) = $DEBUG_STATUS->size_request;	130	}
113	$DEBUG_STATUS->move ($WIDTH - $w, 0);	131
		132	sub destroy_query_dialog {
		133	(delete $_[0]{query_dialog})->destroy
		134	if $_[0]{query_dialog};
		135	}
		136
		137	# server query dialog
		138	sub server_query {
		139	my ($conn, $flags, $prompt) = @_;
		140
		141	$conn->{query_dialog} = my $dialog = new CFClient::UI::FancyFrame
		142	x => "center",
		143	y => "center",
		144	title => "Server Query",
		145	child => my $vbox = new CFClient::UI::VBox,
		146	;
		147
		148	my @dialog = my $label = new CFClient::UI::Label
		149	max_w => $::WIDTH * 0.4,
		150	ellipsise => 0,
		151	text => $prompt;
		152
		153	if ($flags & CS_QUERY_YESNO) {
		154	push @dialog, my $hbox = new CFClient::UI::HBox;
		155
		156	$hbox->add (new CFClient::UI::Button
		157	text => "No",
		158	on_activate => sub {
		159	$conn->send ("reply n");
		160	$dialog->destroy;
		161	0
		162	}
		163	);
		164	$hbox->add (new CFClient::UI::Button
		165	text => "Yes",
		166	on_activate => sub {
		167	$conn->send ("reply y");
		168	destroy_query_dialog $conn;
		169	0
		170	},
		171	);
		172
		173	$dialog->grab_focus;
		174
		175	} elsif ($flags & CS_QUERY_SINGLECHAR) {
		176	$dialog->{tooltip} = "Press a key (click on the entry to make sure it has keyboard focus)";
		177
		178	if ($prompt =~ /Now choose a character|Press any key for the next race/i) {
		179	$MESSAGE_WINDOW->show;
		180
		181	unshift @dialog, new CFClient::UI::Label
		182	max_w => $::WIDTH * 0.4,
		183	ellipsise => 0,
		184	markup => "\nOr use your keyboard:\n";
		185
		186	unshift @dialog, my $table = new CFClient::UI::Table;
		187
		188	$table->add (0, 0, new CFClient::UI::Button
		189	text => "Next Race",
		190	on_activate => sub {
		191	$conn->send ("reply n");
		192	destroy_query_dialog $conn;
		193	0
		194	},
		195	);
		196	$table->add (2, 0, new CFClient::UI::Button
		197	text => "Accept",
		198	on_activate => sub {
		199	$conn->send ("reply d");
		200	destroy_query_dialog $conn;
		201	0
		202	},
		203	);
		204
		205	unshift @dialog, new CFClient::UI::Label
		206	max_w => $::WIDTH * 0.4,
		207	ellipsise => 0,
		208	markup =>
		209	"<big><b>Character Creation: Race</b></big>\n\n"
		210	. "Look at the <b>Messages</b> window to see a description of this race "
		211	. "(<small>or hover with your mouse over the bottommost entry in the status area in the lower left area of the screen</small>) "
		212	. "and the center of the screen to see how this race looks like "
		213	. "(<small>this is below this dialog window, you may need to click on the display area to make it visible</small>).\n\n"
		214	. "You can look at another race, or accept this race (you will come back to this race eventually, "
		215	. "so you can take your time making this important choice."
		216	;
		217
		218	} elsif ($prompt =~ /roll new stats/) {
		219	if (my $stat = delete $conn->{stat_change_with}) {
		220	$conn->send ("reply $stat");
		221	destroy_query_dialog $conn;
		222	return;
		223	}
		224
		225	$STATS_WINDOW->show;
		226	$MESSAGE_WINDOW->hide;
		227
		228	unshift @dialog, new CFClient::UI::Label
		229	max_w => $::WIDTH * 0.4,
		230	ellipsise => 0,
		231	markup => "\nOr use your keyboard:\n";
		232
		233	unshift @dialog, my $table = new CFClient::UI::Table;
		234
		235	# left: re-roll
		236	$table->add (0, 0, new CFClient::UI::Button
		237	text => "Roll Again",
		238	on_activate => sub {
		239	$conn->send ("reply y");
		240	destroy_query_dialog $conn;
		241	0
		242	},
		243	);
		244
		245	# center: swap stats
		246	my ($sw1, $sw2) = map +(new CFClient::UI::Combobox
		247	value => $_,
		248	options => [
		249	[1 => "Str", "Strength ($conn->{stat}{+CS_STAT_STR})"],
		250	[2 => "Dex", "Dexterity ($conn->{stat}{+CS_STAT_DEX})"],
		251	[3 => "Con", "Constitution ($conn->{stat}{+CS_STAT_CON})"],
		252	[4 => "Int", "Intelligence ($conn->{stat}{+CS_STAT_INT})"],
		253	[5 => "Wis", "Wisdom ($conn->{stat}{+CS_STAT_WIS})"],
		254	[6 => "Pow", "Power ($conn->{stat}{+CS_STAT_POW})"],
		255	[7 => "Cha", "Charisma ($conn->{stat}{+CS_STAT_CHA})"],
		256	],
		257	), 1 .. 2;
		258
		259	$table->add (2, 0, new CFClient::UI::Button
		260	text => "Swap Stats",
		261	on_activate => sub {
		262	$conn->{stat_change_with} = $sw2->{value};
		263	$conn->send ("reply $sw1->{value}");
		264	destroy_query_dialog $conn;
		265	0
		266	},
		267	);
		268	$table->add (2, 1, new CFClient::UI::HBox children => [$sw1, $sw2]);
		269
		270	# right: accept
		271	$table->add (4, 0, new CFClient::UI::Button
		272	text => "Accept",
		273	on_activate => sub {
		274	$conn->send ("reply n");
		275	$STATS_WINDOW->hide;
		276	destroy_query_dialog $conn;
		277	0
		278	},
		279	);
		280
		281	unshift @dialog, new CFClient::UI::Label
		282	max_w => $::WIDTH * 0.4,
		283	ellipsise => 0,
		284	markup =>
		285	"<big><b>Character Creation: Stats</b></big>\n\n"
		286	. "Look at the <b>Stats</b> window to see your basic stats "
		287	. "(first column: 1 strength, 2 dexterity, 3 constitution, 4 intelligence, 5 wisdom, 6 power and 7 charisma).\n\n"
		288	. "You can create another set of stats, swap two stat values with each other or accept the stats as they are now and continue. "
		289	. "Race selection will influence those values later on."
		290	;
		291	}
		292
		293	push @dialog, my $entry = new CFClient::UI::Entry
		294	on_changed => sub {
		295	$conn->send ("reply $_[1]");
		296	destroy_query_dialog $conn;
		297	0
		298	},
		299	;
		300
		301	$entry->grab_focus;
		302
		303	} else {
		304	$dialog->{tooltip} = "Enter the reply and press return (click on the entry to make sure it has keyboard focus)";
		305
		306	push @dialog, my $entry = new CFClient::UI::Entry
		307	$flags & CS_QUERY_HIDEINPUT ? (hidden => "*") : (),
		308	on_activate => sub {
		309	$conn->send ("reply $_[1]");
		310	destroy_query_dialog $conn;
		311	0
		312	},
		313	;
		314
		315	$entry->grab_focus;
		316	}
		317
		318	$vbox->add (@dialog);
		319	$dialog->show;
114	}	320	}
115		321
116	sub start_game {	322	sub start_game {
117	status "logging in...";	323	status "logging in...";
118		324
		325	$LOGIN_BUTTON->set_text ("Logout");
		326	$SETUP_DIALOG->hide;
		327
119	my $mapsize = List::Util::min 32, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / 32;	328	my $mapsize = List::Util::min 32, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / 32;
120		329
121	my ($host, $port) = split /:/, $CFG->{host};	330	my ($host, $port) = split /:/, $CFG->{profile}{default}{host};
122		331
123	$MAP = new CFClient::Map $mapsize, $mapsize;	332	$MAP = new CFClient::Map $mapsize, $mapsize;
124		333
125	$CONN = eval {	334	$CONN = eval {
126	new CFClient::Protocol	335	new CFClient::Protocol
127	host => $host,	336	host => $host,
128	port => $port || 13327,	337	port => $port || 13327,
129	user => $CFG->{user},	338	user => $CFG->{profile}{default}{user},
130	pass => $CFG->{password},	339	pass => $CFG->{profile}{default}{password},
131	mapw => $mapsize,	340	mapw => $mapsize,
132	maph => $mapsize,	341	maph => $mapsize,
133		342
134	map_widget => $MAPWIDGET,	343	map_widget => $MAPWIDGET,
135	logview => $LOGVIEW,	344	logview => $LOGVIEW,
136	statusbox => $STATUSBOX,	345	statusbox => $STATUSBOX,
137	map => $MAP,	346	map => $MAP,
138	mapmap => $MAPMAP,	347	mapmap => $MAPMAP,
		348	query => \&server_query,
139		349
140	sound_play => sub {	350	sound_play => sub {
141	my ($x, $y, $soundnum, $type) = @_;	351	my ($x, $y, $soundnum, $type) = @_;
142		352
143	$SDL_MIXER	353	$SDL_MIXER
…		…
151	};	361	};
152		362
153	if ($CONN) {	363	if ($CONN) {
154	CFClient::lowdelay fileno $CONN->{fh};	364	CFClient::lowdelay fileno $CONN->{fh};
155		365
156	$LOGIN_BUTTON->set_text ("Logout");
157	status "login successful";	366	status "login successful";
158
159	$BUTTONBAR->{children}[1]->emit ("activate")
160	if $BUTTONBAR->{children}[1]->{state};
161
162	} else {	367	} else {
163	status "unable to connect";	368	status "unable to connect";
164	stop_game();	369	stop_game();
165	}	370	}
166	}	371	}
167		372
168	sub stop_game {	373	sub stop_game {
		374	$LOGIN_BUTTON->set_text ("Login");
		375	$SETUP_NOTEBOOK->set_current_page ($SETUP_SERVER);
		376	$SETUP_DIALOG->show;
		377	$INV_WINDOW->hide;
		378	$SETUP_SPELLS->clear_spells;
		379
169	return unless $CONN;	380	return unless $CONN;
170		381
171	status "connection closed";	382	status "connection closed";
172	$LOGIN_BUTTON->set_text ("Login");	383
		384	destroy_query_dialog $CONN;
173	$CONN->destroy;	385	$CONN->destroy;
174	$CONN = 0; # false, does not autovivify	386	$CONN = 0; # false, does not autovivify
175		387
176	$BUTTONBAR->{children}[1]->emit ("activate")	388	undef $MAP;
177	unless $BUTTONBAR->{children}[1]->{state};
178	}	389	}
179		390
180	sub client_setup {	391	sub graphics_setup {
181	my $dialog = new CFClient::UI::FancyFrame
182	req_x => 1,
183	req_y => $HEIGHT * (1/8),
184	name => "client_setup",
185	title => "Client Setup",
186	child => (my $vbox = new CFClient::UI::VBox);	392	my $vbox = new CFClient::UI::VBox;
		393
187	$vbox->add (my $table = new CFClient::UI::Table expand => 1, col_expand => [0, 1]);	394	$vbox->add (my $table = new CFClient::UI::Table expand => 1, col_expand => [0, 1]);
188		395
189	$table->add (0, 0, new CFClient::UI::Label valign => 0, align => 1, text => "Video Mode");	396	$table->add (0, 0, new CFClient::UI::Label valign => 0, align => 1, text => "Video Mode");
190	$table->add (1, 0, my $hbox = new CFClient::UI::HBox);	397	$table->add (1, 0, my $hbox = new CFClient::UI::HBox);
191		398
192	$hbox->add (my $mode_slider = new CFClient::UI::Slider expand => 1, req_w => 100, range => [$CFG->{sdl_mode}, 0, $#SDL_MODES, 0, 1]);	399	$hbox->add (my $mode_slider = new CFClient::UI::Slider force_w => $WIDTH * 0.1, expand => 1, range => [$CFG->{sdl_mode}, 0, $#SDL_MODES, 0, 1]);
193	$hbox->add (my $mode_label = new CFClient::UI::Label align => 0, valign => 0, height => 0.8, template => "9999x9999");	400	$hbox->add (my $mode_label = new CFClient::UI::Label align => 0, valign => 0, height => 0.8, template => "9999x9999");
194		401
195	$mode_slider->connect (changed => sub {	402	$mode_slider->connect (changed => sub {
196	my ($self, $value) = @_;	403	my ($self, $value) = @_;
197		404
…		…
204		411
205	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fullscreen");	412	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fullscreen");
206	$table->add (1, $row++, new CFClient::UI::CheckBox	413	$table->add (1, $row++, new CFClient::UI::CheckBox
207	state => $CFG->{fullscreen},	414	state => $CFG->{fullscreen},
208	tooltip => "Bring the client into fullscreen mode.",	415	tooltip => "Bring the client into fullscreen mode.",
209	on_changed => sub {	416	on_changed => sub { my ($self, $value) = @_; $CFG->{fullscreen} = $value; 0 }
210	my ($self, $value) = @_;
211	$CFG->{fullscreen} = $value;
212	}
213	);	417	);
214		418
215	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fast & Ugly");	419	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fast & Ugly");
216	$table->add (1, $row++, new CFClient::UI::CheckBox	420	$table->add (1, $row++, new CFClient::UI::CheckBox
217	state => $CFG->{fast},	421	state => $CFG->{fast},
218	tooltip => "Lower the visual quality considerably to speed up rendering.",	422	tooltip => "Lower the visual quality considerably to speed up rendering.",
219	on_changed => sub {	423	on_changed => sub { my ($self, $value) = @_; $CFG->{fast} = $value; 0 }
220	my ($self, $value) = @_;
221	$CFG->{fast} = $value;
222	}
223	);	424	);
224		425
225	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Map Scale");	426	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Map Scale");
226	$table->add (1, $row++, new CFClient::UI::Slider	427	$table->add (1, $row++, new CFClient::UI::Slider
227	range => [(log $CFG->{map_scale}) / (log 2), -3, 1, 0, 1],	428	range => [(log $CFG->{map_scale}) / (log 2), -3, 1, 0, 1],
228	tooltip => "Enlarge or shrink the displayed map. Changes are instant.",	429	tooltip => "Enlarge or shrink the displayed map. Changes are instant.",
229	on_changed => sub {	430	on_changed => sub { my ($self, $value) = @_; $CFG->{map_scale} = 2 ** $value; 0 }
230	my ($self, $value) = @_;
231	$CFG->{map_scale} = 2 ** $value;
232	}
233	);	431	);
234		432
235	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fog of War");	433	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fog of War");
236	$table->add (1, $row++, new CFClient::UI::CheckBox	434	$table->add (1, $row++, new CFClient::UI::CheckBox
237	state => $CFG->{fow_enable},	435	state => $CFG->{fow_enable},
238	tooltip => "<b>Fog-of-War</b> marks areas that cannot be seen by the player. Changes are instant.",	436	tooltip => "<b>Fog-of-War</b> marks areas that cannot be seen by the player. Changes are instant.",
239	on_changed => sub {	437	on_changed => sub { my ($self, $value) = @_; $CFG->{fow_enable} = $value; 0 }
240	my ($self, $value) = @_;
241	$CFG->{fow_enable} = $value;
242	}
243	);	438	);
244		439
245	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "FoW Intensity");	440	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "FoW Intensity");
246	$table->add (1, $row++, new CFClient::UI::Slider	441	$table->add (1, $row++, new CFClient::UI::Slider
247	range => [$CFG->{fow_intensity}, 0, 1, 0, 1 / 256],	442	range => [$CFG->{fow_intensity}, 0, 1, 0, 1 / 256],
248	tooltip => "<b>Fog of War Lightness.</b> The higher the intensity, the lighter the Fog-of-War color. Changes are instant.",	443	tooltip => "<b>Fog of War Lightness.</b> The higher the intensity, the lighter the Fog-of-War color. Changes are instant.",
249	on_changed => sub {	444	on_changed => sub { my ($self, $value) = @_; $CFG->{fow_intensity} = $value; 0 }
250	my ($self, $value) = @_;
251	$CFG->{fow_intensity} = $value;
252	}
253	);	445	);
254		446
255	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "FoW Smooth");	447	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "FoW Smooth");
256	$table->add (1, $row++, new CFClient::UI::CheckBox	448	$table->add (1, $row++, new CFClient::UI::CheckBox
257	state => $CFG->{fow_smooth},	449	state => $CFG->{fow_smooth},
258	tooltip => "Smooth the Fog-of-War a bit to make it more realistic. Changes are instant.",	450	tooltip => "Smooth the Fog-of-War a bit to make it more realistic. Changes are instant.",
259	on_changed => sub {	451	on_changed => sub {
260	my ($self, $value) = @_;	452	my ($self, $value) = @_;
261	$CFG->{fow_smooth} = $value;	453	$CFG->{fow_smooth} = $value;
262	status "Fog of War smoothing requires OpenGL 1.2 or higher" if $CFClient::OpenGL::GL_VERSION < 1.2;	454	status "Fog of War smoothing requires OpenGL 1.2 or higher" if $CFClient::OpenGL::GL_VERSION < 1.2;
		455	0
263	}	456	}
264	);	457	);
265		458
266	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "GUI Fontsize");	459	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "GUI Fontsize");
267	$table->add (1, $row++, new CFClient::UI::Slider	460	$table->add (1, $row++, new CFClient::UI::Slider
268	range => [$CFG->{gui_fontsize}, 0.5, 2, 0, 0.1],	461	range => [$CFG->{gui_fontsize}, 0.5, 2, 0, 0.1],
269	tooltip => "The base font size used by most GUI elements that do not have their own setting.",	462	tooltip => "The base font size used by most GUI elements that do not have their own setting.",
270	on_changed => sub { $CFG->{gui_fontsize} = $_[1] },	463	on_changed => sub { $CFG->{gui_fontsize} = $_[1]; 0 },
271	);	464	);
272		465
273	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Message Fontsize");	466	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Message Fontsize");
274	$table->add (1, $row++, new CFClient::UI::Slider	467	$table->add (1, $row++, new CFClient::UI::Slider
275	range => [$CFG->{log_fontsize}, 0.5, 2, 0, 0.1],	468	range => [$CFG->{log_fontsize}, 0.5, 2, 0, 0.1],
276	tooltip => "The font size used by the <b>message/server log</b> window only. Changes are instant.",	469	tooltip => "The font size used by the <b>message/server log</b> window only. Changes are instant.",
277	on_changed => sub { $LOGVIEW->set_fontsize ($CFG->{log_fontsize} = $_[1]) },	470	on_changed => sub { $LOGVIEW->set_fontsize ($CFG->{log_fontsize} = $_[1]); 0 },
278	);	471	);
279		472
280	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Stats Fontsize");	473	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Stats Fontsize");
281		474
282	$table->add (1, $row++, new CFClient::UI::Slider	475	$table->add (1, $row++, new CFClient::UI::Slider
283	range => [$CFG->{stat_fontsize}, 0.5, 2, 0, 0.1],	476	range => [$CFG->{stat_fontsize}, 0.5, 2, 0, 0.1],
284	tooltip => "The font size used by the <b>statistics window</b> only. Changes are instant.",	477	tooltip => "The font size used by the <b>statistics window</b> only. Changes are instant.",
285	on_changed => sub {	478	on_changed => sub {
286	$CFG->{stat_fontsize} = $_[1];	479	$CFG->{stat_fontsize} = $_[1];
287	&set_stats_window_fontsize;	480	&set_stats_window_fontsize;
		481	0
288	}	482	}
289	);	483	);
290		484
291	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Gauge fontsize");	485	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Gauge fontsize");
292	$table->add (1, $row++, new CFClient::UI::Slider	486	$table->add (1, $row++, new CFClient::UI::Slider
293	range => [$CFG->{gauge_fontsize}, 0.5, 2, 0, 0.1],	487	range => [$CFG->{gauge_fontsize}, 0.5, 2, 0, 0.1],
294	tooltip => "Adjusts the fontsize of the gauges at the bottom right. Changes are instant.",	488	tooltip => "Adjusts the fontsize of the gauges at the bottom right. Changes are instant.",
295	on_changed => sub {	489	on_changed => sub {
296	$CFG->{gauge_fontsize} = $_[1];	490	$CFG->{gauge_fontsize} = $_[1];
297	&set_gauge_window_fontsize;	491	&set_gauge_window_fontsize;
		492	0
298	}	493	}
299	);	494	);
300		495
301	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Gauge size");	496	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Gauge size");
302	$table->add (1, $row++, new CFClient::UI::Slider	497	$table->add (1, $row++, new CFClient::UI::Slider
303	range => [$CFG->{gauge_size}, 0.2, 0.8],	498	range => [$CFG->{gauge_size}, 0.2, 0.8],
304	tooltip => "Adjust the size of the stats gauges at the bottom right. Changes are instant.",	499	tooltip => "Adjust the size of the stats gauges at the bottom right. Changes are instant.",
305	on_changed => sub {	500	on_changed => sub {
306	$CFG->{gauge_size} = $_[1];	501	$CFG->{gauge_size} = $_[1];
307	$GAUGES->{win}->set_size ($WIDTH, int $HEIGHT * $CFG->{gauge_size});	502	$GAUGES->{win}->set_size ($WIDTH, int $HEIGHT * $CFG->{gauge_size});
		503	0
308	}	504	}
309	);	505	);
310		506
311	$table->add (1, $row++, new CFClient::UI::Button	507	$table->add (1, $row++, new CFClient::UI::Button
312	expand => 1, align => 0, text => "Apply",	508	expand => 1, align => 0, text => "Apply",
313	tooltip => "Apply the video settings",	509	tooltip => "Apply the video settings",
314	on_activate => sub {	510	on_activate => sub {
315	video_shutdown ();	511	video_shutdown ();
316	video_init ();	512	video_init ();
		513	0
317	}	514	}
318	);	515	);
		516
		517	$vbox
		518	}
		519
		520	sub audio_setup {
		521	my $vbox = new CFClient::UI::VBox;
		522
		523	$vbox->add (my $table = new CFClient::UI::Table expand => 1, col_expand => [0, 1]);
		524
		525	my $row = 0;
319		526
320	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Audio Enable");	527	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Audio Enable");
321	$table->add (1, $row++, new CFClient::UI::CheckBox	528	$table->add (1, $row++, new CFClient::UI::CheckBox
322	state => $CFG->{audio_enable},	529	state => $CFG->{audio_enable},
323	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.",	530	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.",
324	on_changed => sub {	531	on_changed => sub { $CFG->{audio_enable} = $_[1]; 0 }
325	$CFG->{audio_enable} = $_[1];
326	}
327	);	532	);
328	# $table->add (0, 9, new CFClient::UI::Label valign => 0, align => 1, text => "Effects Volume");	533	# $table->add (0, 9, new CFClient::UI::Label valign => 0, align => 1, text => "Effects Volume");
329	# $table->add (1, 8, new CFClient::UI::Slider range => [$CFG->{effects_volume}, 0, 128, 1], on_changed => sub {	534	# $table->add (1, 8, new CFClient::UI::Slider range => [$CFG->{effects_volume}, 0, 128, 1], on_changed => sub {
330	# $CFG->{effects_volume} = $_[1];	535	# $CFG->{effects_volume} = $_[1];
331	# });	536	# });
332	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Background Music");	537	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Background Music");
333	$table->add (1, $row++, my $hbox = new CFClient::UI::HBox);	538	$table->add (1, $row++, my $hbox = new CFClient::UI::HBox);
334	$hbox->add (new CFClient::UI::CheckBox	539	$hbox->add (new CFClient::UI::CheckBox
335	expand => 1, state => $CFG->{bgm_enable},	540	expand => 1, state => $CFG->{bgm_enable},
336	tooltip => "If enabled, playing of background music is enabled. If disabled, no background music will be played.",	541	tooltip => "If enabled, playing of background music is enabled. If disabled, no background music will be played.",
337	on_changed => sub {	542	on_changed => sub { $CFG->{bgm_enable} = $_[1]; 0 }
338	$CFG->{bgm_enable} = $_[1];
339	}
340	);	543	);
341	$hbox->add (new CFClient::UI::Slider	544	$hbox->add (new CFClient::UI::Slider
342	expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0, 1/128],	545	expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0, 1/128],
343	tooltip => "The volume of the background music. Changes are instant.",	546	tooltip => "The volume of the background music. Changes are instant.",
344	on_changed => sub {	547	on_changed => sub { $CFG->{bgm_volume} = $_[1]; CFClient::MixMusic::volume $_[1] * 128; 0 }
345	$CFG->{bgm_volume} = $_[1];
346	CFClient::MixMusic::volume $_[1] * 128;
347	}
348	);	548	);
349		549
350	$table->add (1, $row++, new CFClient::UI::Button	550	$table->add (1, $row++, new CFClient::UI::Button
351	expand => 1, align => 0, text => "Apply",	551	expand => 1, align => 0, text => "Apply",
352	tooltip => "Apply the audio settings",	552	tooltip => "Apply the audio settings",
353	on_activate => sub {	553	on_activate => sub {
354	audio_shutdown ();	554	audio_shutdown ();
355	audio_init ();	555	audio_init ();
		556	0
356	}	557	}
357	);	558	);
358		559
359	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Chat Command");	560	$vbox
360	$table->add (1, $row++, my $saycmd = new CFClient::UI::Entry
361	text => $CFG->{say_command},
362	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. "
363	. "Usually you want to enter something like 'say' or 'shout' or 'gsay' here. "
364	. "But you could also set it to <b>tell <i>playername</i></b> to only chat with that user.",
365	on_changed => sub {
366	my ($self, $value) = @_;
367	$CFG->{say_command} = $value;
368	}
369	);
370
371	$dialog
372	}	561	}
373		562
374	sub set_stats_window_fontsize {	563	sub set_stats_window_fontsize {
375	for (values %{$STATWIDS}) {	564	for (values %{$STATWIDS}) {
376	$_->set_fontsize ($::CFG->{stat_fontsize});	565	$_->set_fontsize ($::CFG->{stat_fontsize});
…		…
385		574
386	sub make_gauge_window {	575	sub make_gauge_window {
387	my $gh = int $HEIGHT * $CFG->{gauge_size};	576	my $gh = int $HEIGHT * $CFG->{gauge_size};
388		577
389	my $win = new CFClient::UI::Frame (	578	my $win = new CFClient::UI::Frame (
390	req_y => -1,	579	force_x => 0,
		580	force_y => "max",
391	user_w => $WIDTH,	581	force_w => $WIDTH,
392	user_h => $gh,	582	force_h => $gh,
393	);	583	);
394		584
395	$win->add (my $hbox = new CFClient::UI::HBox	585	$win->add (my $hbox = new CFClient::UI::HBox
396	children => [	586	children => [
397	(new CFClient::UI::HBox expand => 1),	587	(new CFClient::UI::HBox expand => 1),
…		…
433	&set_gauge_window_fontsize;	623	&set_gauge_window_fontsize;
434		624
435	$win	625	$win
436	}	626	}
437		627
		628	sub debug_setup {
		629	my $table = new CFClient::UI::Table;
		630
		631	$table->add (0, 0, new CFClient::UI::Label text => "Widget Borders");
		632	$table->add (1, 0, new CFClient::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 1; 0 });
		633	$table->add (0, 1, new CFClient::UI::Label text => "Tooltip Widget Info");
		634	$table->add (1, 1, new CFClient::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 2; 0 });
		635	$table->add (0, 2, new CFClient::UI::Label text => "Show FPS");
		636	$table->add (1, 2, new CFClient::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 4; 0 });
		637	$table->add (0, 3, new CFClient::UI::Label text => "Suppress Tooltips");
		638	$table->add (1, 3, new CFClient::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 8; 0 });
		639
		640	my @default_smooth = (0.05, 0.13, 0.05, 0.13, 0.30, 0.13, 0.05, 0.13, 0.05);
		641
		642	for my $x (0..2) {
		643	for my $y (0 .. 2) {
		644	$table->add ($x + 3, $y,
		645	new CFClient::UI::Entry
		646	text => $default_smooth[$x * 3 + $y],
		647	on_changed => sub { $MAP->{smooth_matrix}[$x * 3 + $y] = $_[1] if $MAP; 0 },
		648	);
		649	}
		650	}
		651
		652
		653	$table
		654	}
		655
438	sub make_stats_window {	656	sub stats_window {
439	my $tgw = new CFClient::UI::FancyFrame	657	my $tgw = new CFClient::UI::FancyFrame
440	req_y => $HEIGHT * (2/8),	658	y => $HEIGHT * (2/8),
441	req_x => -1,	659	x => "max",
442	title => "Stats",	660	title => "Stats",
443	name => "stats_window";	661	name => "stats_window",
		662	has_close_button => 1;
444		663
445	$tgw->add (new CFClient::UI::Window child => my $vb = new CFClient::UI::VBox);	664	$tgw->add (new CFClient::UI::Window child => my $vb = new CFClient::UI::VBox);
446	$vb->add ($STATWIDS->{title} = new CFClient::UI::Label valign => 0, align => -1, text => "Title:", expand => 1,	665	$vb->add ($STATWIDS->{title} = new CFClient::UI::Label valign => 0, align => -1, text => "Title:", expand => 1,
447	can_hover => 1, can_events => 1,	666	can_hover => 1, can_events => 1,
448	tooltip => "Your name and title. You can change your title by using the <b>title</b> command, if supported by the server.");	667	tooltip => "Your name and title. You can change your title by using the <b>title</b> command, if supported by the server.");
…		…
547	update_stats_window ({});	766	update_stats_window ({});
548		767
549	$tgw	768	$tgw
550	}	769	}
551		770
552	sub formsep {	771	sub formsep($) {
553	reverse join ",", grep length, split /(...)/, reverse $_[0] * 1	772	scalar reverse join ",", unpack "(A3)*", reverse $_[0] * 1
554	}	773	}
555		774
556	sub update_stats_window {	775	sub update_stats_window {
557	my ($stats) = @_;	776	my ($stats) = @_;
558		777
…		…
594	$STATWIDS->{st_spd} ->set_text (sprintf "%.1f", $stats->{+CS_STAT_SPEED});	813	$STATWIDS->{st_spd} ->set_text (sprintf "%.1f", $stats->{+CS_STAT_SPEED});
595	$STATWIDS->{st_wspd}->set_text (sprintf "%.1f", $stats->{+CS_STAT_WEAP_SP});	814	$STATWIDS->{st_wspd}->set_text (sprintf "%.1f", $stats->{+CS_STAT_WEAP_SP});
596		815
597	$STATWIDS->{m_weight}->set_text (sprintf "Max weight: %.1fkg", $stats->{+CS_STAT_WEIGHT_LIM} / 1000);	816	$STATWIDS->{m_weight}->set_text (sprintf "Max weight: %.1fkg", $stats->{+CS_STAT_WEIGHT_LIM} / 1000);
598		817
599	# TODO: replace by CS_STAT_RES_xxx constants
600	my %tbl = (	818	my %tbl = (
601	phys => 100,	819	phys => CS_STAT_RES_PHYS,
602	magic => 101,	820	magic => CS_STAT_RES_MAG,
603	fire => 102,	821	fire => CS_STAT_RES_FIRE,
604	elec => 103,	822	elec => CS_STAT_RES_ELEC,
605	cold => 104,	823	cold => CS_STAT_RES_COLD,
606	conf => 105,	824	conf => CS_STAT_RES_CONF,
607	acid => 106,	825	acid => CS_STAT_RES_ACID,
608	drain => 107,	826	drain => CS_STAT_RES_DRAIN,
609	ghit => 108,	827	ghit => CS_STAT_RES_GHOSTHIT,
610	pois => 109,	828	pois => CS_STAT_RES_POISON,
611	slow => 110,	829	slow => CS_STAT_RES_SLOW,
612	para => 111,	830	para => CS_STAT_RES_PARA,
613	tund => 112,	831	tund => CS_STAT_TURN_UNDEAD,
614	fear => 113,	832	fear => CS_STAT_RES_FEAR,
615	depl => 113,	833	depl => CS_STAT_RES_DEPLETE,
616	deat => 115,	834	deat => CS_STAT_RES_DEATH,
617	holyw => 116,	835	holyw => CS_STAT_RES_HOLYWORD,
618	blind => 117,	836	blind => CS_STAT_RES_BLIND,
619	);	837	);
620		838
621	$STATWIDS->{"res_$_"}->set_text (sprintf "%d%", $stats->{$tbl{$_}})	839	$STATWIDS->{"res_$_"}->set_text (sprintf "%d%", $stats->{$tbl{$_}})
622	for keys %tbl;	840	for keys %tbl;
623	}	841	}
624		842
625	sub metaserver_dialog {
626	my $dialog = new CFClient::UI::FancyFrame
627	title => "Server List",
628	child => (my $vbox = new CFClient::UI::VBox);
629
630	$vbox->add ($dialog->{table} = new CFClient::UI::Table);
631
632	$dialog
633	}
634
635	my $METASERVER_ATIME;	843	my $METASERVER_ATIME;
636		844
637	sub update_metaserver {	845	sub update_metaserver {
638	my ($HOST) = @_;
639
640	return if $METASERVER_ATIME > time;	846	return if $METASERVER_ATIME > time;
641	$METASERVER_ATIME = time + 60;	847	$METASERVER_ATIME = time + 60;
642		848
643	my $table = $METASERVER->{table};	849	my $table = $METASERVER->{table};
644	$table->clear;	850	$table->clear;
…		…
665		871
666	utf8::decode $buf if utf8::valid $buf;	872	utf8::decode $buf if utf8::valid $buf;
667		873
668	$table->clear;	874	$table->clear;
669		875
		876	my @tip = (
		877	"The current number of users logged in on the server.",
		878	"The hostname of the server.",
		879	"The time this server has been running without being restarted.",
		880	"The server software version - a '+' indicates a Crossfire+ server.",
		881	"Short information about this server provided by its admins.",
		882	);
670	my @col = qw(Use #Users Host Uptime Version Description);	883	my @col = qw(#Users Host Uptime Version Description);
671	$table->add ($_, 0, new CFClient::UI::Label align => 0, fg => [1, 1, 0], text => $col[$_])	884	$table->add ($_, 0, new CFClient::UI::Label
		885	can_hover => 1, can_events => 1,
		886	align => 0, fg => [1, 1, 0],
		887	text => $col[$_], tooltip => $tip[$_])
672	for 0 .. $#col;	888	for 0 .. $#col;
673		889
674	my @align = qw(1 0 1 1 -1);	890	my @align = qw(1 0 1 1 -1);
675		891
676	my $y = 0;	892	my $y = 0;
677	for my $m (sort { $b->[3] <=> $a->[3] } map [split /\|/], split /\015?\012/, $buf) {	893	for my $m (sort { $b->[3] <=> $a->[3] } map [split /\|/], split /\015?\012/, $buf) {
…		…
694		910
695	$m = [$users, $host, $uptime, $version, $desc];	911	$m = [$users, $host, $uptime, $version, $desc];
696		912
697	$y++;	913	$y++;
698		914
699	$table->add (0, $y, new CFClient::UI::VBox children => [	915	$table->add (scalar @$m, $y, new CFClient::UI::VBox children => [
700	(new CFClient::UI::Button text => "Use", on_activate => sub {	916	(new CFClient::UI::Button
		917	text => "Use",
		918	tooltip => "Put this server into the <b>Host:Port</b> field",
		919	on_activate => sub {
701	$HOST->set_text ($CFG->{host} = $host);	920	$HOST_ENTRY->set_text ($CFG->{profile}{default}{host} = $host);
		921	$METASERVER->hide;
		922	0
		923	},
702	}),	924	),
703	(new CFClient::UI::Empty expand => 1),	925	(new CFClient::UI::Empty expand => 1),
704	]);	926	]);
705		927
706	$table->add ($_ + 1, $y, new CFClient::UI::Label	928	$table->add ($_, $y, new CFClient::UI::Label
707	ellipsise => 0, align => $align[$_], text => $m->[$_], fontsize => 0.8)	929	ellipsise => 0,
		930	align => $align[$_],
		931	text => $m->[$_],
		932	tooltip => $tip[$_],
		933	can_hover => 1,
		934	can_events => 1,
		935	fontsize => 0.8)
708	for 0 .. $#$m;	936	for 0 .. $#$m;
709	}	937	}
710	}	938	}
711	});	939	});
712	}	940	}
713		941
		942	sub metaserver_dialog {
		943	my $dialog = new CFClient::UI::FancyFrame
		944	title => "Server List",
		945	name => 'metaserver_dialog',
		946	x => 'center',
		947	y => 'center',
		948	z => 3,
		949	force_h => $::HEIGHT * 0.4,
		950	child => (my $vbox = new CFClient::UI::VBox),
		951	on_visibility_change => sub {
		952	update_metaserver if $_[1];
		953	0
		954	},
		955	;
		956
		957	$dialog->{table} = new CFClient::UI::Table;
		958
		959	$vbox->add (new CFClient::UI::ScrolledWindow expand => 1, child => $dialog->{table});
		960
		961	$dialog
		962	}
		963
714	sub server_setup {	964	sub server_setup {
715	my $dialog = new CFClient::UI::FancyFrame	965	my $vbox = new CFClient::UI::VBox;
716	x => $WIDTH * (1/3),
717	y => $HEIGHT * (1/8),
718	name => "server_setup",
719	title => "Server Setup",
720	child => (my $vbox = new CFClient::UI::VBox),
721	on_visibility_change => sub {
722	$_[0]->show_centered if $_[1]
723	};
724		966
725	$vbox->add (my $table = new CFClient::UI::Table expand => 1, col_expand => [0, 1]);	967	$vbox->add (my $table = new CFClient::UI::Table expand => 1, col_expand => [0, 1]);
726	$table->add (0, 2, new CFClient::UI::Label valign => 0, align => 1, text => "Host:Port");	968	$table->add (0, 2, new CFClient::UI::Label valign => 0, align => 1, text => "Host:Port");
727		969
728	{	970	{
729	$table->add (1, 2, my $vbox = new CFClient::UI::VBox);	971	$table->add (1, 2, my $vbox = new CFClient::UI::VBox);
730		972
731	$vbox->add (	973	$vbox->add (
732	my $HOST = new CFClient::UI::Entry	974	$HOST_ENTRY = new CFClient::UI::Entry
733	expand => 1,	975	expand => 1,
734	text => $CFG->{host},	976	text => $CFG->{profile}{default}{host},
735	tooltip => "The hostname or ip address of the Crossfire(+) server to connect to",	977	tooltip => "The hostname or ip address of the Crossfire(+) server to connect to",
736	on_changed => sub {	978	on_changed => sub {
737	my ($self, $value) = @_;	979	my ($self, $value) = @_;
738	$CFG->{host} = $value;	980	$CFG->{profile}{default}{host} = $value;
		981	0
739	}	982	}
740	);	983	);
741		984
742	$METASERVER = metaserver_dialog;	985	$METASERVER = metaserver_dialog;
743		986
744	$vbox->add (new CFClient::UI::Flopper	987	$vbox->add (new CFClient::UI::Button
745	expand => 1,	988	expand => 1,
746	text => "Server List",	989	text => "Server List",
747	other => $METASERVER,	990	other => $METASERVER,
748	tooltip => "Show a list of available crossfire servers",	991	tooltip => "Show a list of available crossfire servers",
749	on_open => sub {	992	on_activate => sub { $METASERVER->toggle_visibility; 0 },
750	update_metaserver $HOST;	993	on_visibility_change => sub { $METASERVER->hide unless $_[1]; 0 },
751	}
752	);	994	);
753	}	995	}
754		996
755	$table->add (0, 4, new CFClient::UI::Label valign => 0, align => 1, text => "Username");	997	$table->add (0, 4, new CFClient::UI::Label valign => 0, align => 1, text => "Username");
756	$table->add (1, 4, new CFClient::UI::Entry	998	$table->add (1, 4, new CFClient::UI::Entry
757	text => $CFG->{user},	999	text => $CFG->{profile}{default}{user},
758	tooltip => "The name of your character on the server",	1000	tooltip => "The name of your character on the server",
759	on_changed => sub {	1001	on_changed => sub { my ($self, $value) = @_; $CFG->{profile}{default}{user} = $value }
760	my ($self, $value) = @_;
761	$CFG->{user} = $value;
762	}
763	);	1002	);
764		1003
765	$table->add (0, 5, new CFClient::UI::Label valign => 0, align => 1, text => "Password");	1004	$table->add (0, 5, new CFClient::UI::Label valign => 0, align => 1, text => "Password");
766	$table->add (1, 5, new CFClient::UI::Entry	1005	$table->add (1, 5, new CFClient::UI::Entry
767	text => $CFG->{password},	1006	text => $CFG->{profile}{default}{password},
768	hidden => 1,	1007	hidden => 1,
769	tooltip => "The password for your character",	1008	tooltip => "The password for your character",
770	on_changed => sub {	1009	on_changed => sub { my ($self, $value) = @_; $CFG->{profile}{default}{password} = $value }
771	my ($self, $value) = @_;
772	$CFG->{password} = $value;
773	}
774	);	1010	);
775		1011
776	$table->add (0, 7, new CFClient::UI::Label valign => 0, align => 1, text => "Map Size");	1012	$table->add (0, 7, new CFClient::UI::Label valign => 0, align => 1, text => "Map Size");
777	$table->add (1, 7, new CFClient::UI::Slider	1013	$table->add (1, 7, new CFClient::UI::Slider
778	req_w => 100,	1014	force_w => 100,
779	range => [$CFG->{mapsize}, 10, 100, 0, 1],	1015	range => [$CFG->{mapsize}, 10, 100, 0, 1],
780	tooltip => "This is the size of the portion of the map update the server sends you. "	1016	tooltip => "This is the size of the portion of the map update the server sends you. "
781	. "If you set this to a high value you will be able to see further, "	1017	. "If you set this to a high value you will be able to see further, "
782	. "but you also increase bandwidth requirements and latency. "	1018	. "but you also increase bandwidth requirements and latency. "
783	. "This option is only used once at log-in.",	1019	. "This option is only used once at log-in.",
784	on_changed => sub {	1020	on_changed => sub { my ($self, $value) = @_; $CFG->{mapsize} = $self->{range}[0] = $value = int $value; 0 },
785	my ($self, $value) = @_;
786
787	$CFG->{mapsize} = $self->{range}[0] = $value = int $value;
788	},
789	);	1021	);
790		1022
791	$table->add (0, 8, new CFClient::UI::Label valign => 0, align => 1, text => "Face Prefetch");	1023	$table->add (0, 8, new CFClient::UI::Label valign => 0, align => 1, text => "Face Prefetch");
792	$table->add (1, 8, new CFClient::UI::CheckBox	1024	$table->add (1, 8, new CFClient::UI::CheckBox
793	state => $CFG->{face_prefetch},	1025	state => $CFG->{face_prefetch},
…		…
796	. "This might increase or create lag, but increases the chances "	1028	. "This might increase or create lag, but increases the chances "
797	. "of faces being ready for display when you encounter them. "	1029	. "of faces being ready for display when you encounter them. "
798	. "It also uses up server bandwidth on every connect, "	1030	. "It also uses up server bandwidth on every connect, "
799	. "so only set it if you really need to prefetch images. "	1031	. "so only set it if you really need to prefetch images. "
800	. "This option can be set and unset any time.",	1032	. "This option can be set and unset any time.",
801	on_changed => sub { $CFG->{face_prefetch} = $_[1] },	1033	on_changed => sub { $CFG->{face_prefetch} = $_[1]; 0 },
802	);	1034	);
803		1035
804	$table->add (0, 9, new CFClient::UI::Label valign => 0, align => 1, text => "Output-Count");	1036	$table->add (0, 9, new CFClient::UI::Label valign => 0, align => 1, text => "Output-Count");
805	$table->add (1, 9, new CFClient::UI::Entry	1037	$table->add (1, 9, new CFClient::UI::Entry
806	text => $CFG->{output_count},	1038	text => $CFG->{output_count},
807	tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.",	1039	tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.",
808	on_changed => sub { $CFG->{output_count} = $_[1] },	1040	on_changed => sub { $CFG->{output_count} = $_[1]; 0 },
809	);	1041	);
810		1042
811	$table->add (0, 10, new CFClient::UI::Label valign => 0, align => 1, text => "Output-Sync");	1043	$table->add (0, 10, new CFClient::UI::Label valign => 0, align => 1, text => "Output-Sync");
812	$table->add (1, 10, new CFClient::UI::Entry	1044	$table->add (1, 10, new CFClient::UI::Entry
813	text => $CFG->{output_sync},	1045	text => $CFG->{output_sync},
814	tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.",	1046	tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.",
815	on_changed => sub { $CFG->{output_sync} = $_[1] },	1047	on_changed => sub { $CFG->{output_sync} = $_[1]; 0 },
816	);	1048	);
817		1049
818	$table->add (1, 11, $LOGIN_BUTTON = new CFClient::UI::Button	1050	$table->add (1, 11, $LOGIN_BUTTON = new CFClient::UI::Button
819	expand => 1,	1051	expand => 1,
820	align => 0,	1052	align => 0,
821	text => "Login",	1053	text => "Login",
822	on_activate => sub {	1054	on_activate => sub {
823	$CONN ? stop_game	1055	$CONN ? stop_game
824	: start_game;	1056	: start_game;
		1057	0
825	},	1058	},
826	);	1059	);
827		1060
828	$dialog	1061	$table->add (0, 12, new CFClient::UI::Label valign => 0, align => 1, text => "Chat Command");
		1062	$table->add (1, 12, my $saycmd = new CFClient::UI::Entry
		1063	text => $CFG->{say_command},
		1064	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. "
		1065	. "Usually you want to enter something like 'say' or 'shout' or 'gsay' here. "
		1066	. "But you could also set it to <b>tell <i>playername</i></b> to only chat with that user.",
		1067	on_changed => sub {
		1068	my ($self, $value) = @_;
		1069	$CFG->{say_command} = $value;
		1070	0
		1071	}
		1072	);
		1073
		1074	$vbox->add (new CFClient::UI::Label
		1075	text => "Server Info",
		1076	fontsize => 1.2,
		1077	padding_y => 8,
		1078	fg => [1, 1, 0, 1],
		1079	);
		1080
		1081	$vbox->add ($SERVER_INFO = new CFClient::UI::Label ellipsise => 0);
		1082
		1083	$vbox
829	}	1084	}
830		1085
831	sub message_window {	1086	sub message_window {
832	my $window = new CFClient::UI::FancyFrame	1087	my $window = new CFClient::UI::FancyFrame
833	name => "message_window",	1088	name => "message_window",
834	title => "Messages",	1089	title => "Messages",
835	border_bg => [1, 1, 1, 1],	1090	border_bg => [1, 1, 1, 1],
836	bg => [0, 0, 0, 0.75],	1091	bg => [0, 0, 0, 0.75],
837	req_x => -1,	1092	x => "max",
838	user_w => int $::WIDTH / 3,	1093	y => 0,
		1094	force_w => $::WIDTH * 0.4,
839	user_h => int $::HEIGHT / 5,	1095	force_h => $::HEIGHT * 0.5,
840	child => (my $vbox = new CFClient::UI::VBox);	1096	child => (my $vbox = new CFClient::UI::VBox),
		1097	has_close_button => 1;
841		1098
842	$vbox->add ($LOGVIEW);	1099	$vbox->add ($LOGVIEW);
843		1100
844	$vbox->add (my $input = new CFClient::UI::Entry	1101	$vbox->add (my $input = new CFClient::UI::Entry
845	tooltip => "<b>Chat Box</b>. If you enter a text and press return/enter here, the current <i>communication command</i> "	1102	tooltip => "<b>Chat Box</b>. If you enter a text and press return/enter here, the current <i>communication command</i> "
…		…
853		1110
854	if ($prev_focus == $MAPWIDGET && $input->{auto_activated}) {	1111	if ($prev_focus == $MAPWIDGET && $input->{auto_activated}) {
855	$input->{refocus_map} = 1;	1112	$input->{refocus_map} = 1;
856	}	1113	}
857	delete $input->{auto_activated};	1114	delete $input->{auto_activated};
		1115
		1116	0
858	},	1117	},
859	on_activate => sub {	1118	on_activate => sub {
860	my ($input, $text) = @_;	1119	my ($input, $text) = @_;
861	$input->set_text ('');	1120	$input->set_text ('');
862		1121
…		…
868	}	1127	}
869	if ($input->{refocus_map}) {	1128	if ($input->{refocus_map}) {
870	delete $input->{refocus_map};	1129	delete $input->{refocus_map};
871	$MAPWIDGET->focus_in	1130	$MAPWIDGET->focus_in
872	}	1131	}
		1132
		1133	0
873	},	1134	},
874	on_escape => sub {	1135	on_escape => sub {
875	$MAPWIDGET->focus_in	1136	$MAPWIDGET->grab_focus;
		1137
		1138	0
876	},	1139	},
877	);	1140	);
878		1141
879	$CONSOLE = {	1142	$CONSOLE = {
880	window => $window,	1143	window => $window,
881	input => $input	1144	input => $input,
882	};	1145	};
883		1146
884	$window	1147	$window
885	}	1148	}
886		1149
887	sub open_quit_dialog {	1150	sub open_quit_dialog {
888	unless ($QUIT_DIALOG) {	1151	unless ($QUIT_DIALOG) {
889
890	$QUIT_DIALOG = new CFClient::UI::FancyFrame title => "Really Quit?";	1152	$QUIT_DIALOG = new CFClient::UI::FancyFrame
		1153	x => "center",
		1154	y => "center",
		1155	z => 50,
		1156	title => "Really Quit?",
		1157	;
891		1158
892	$QUIT_DIALOG->add (my $vb = new CFClient::UI::VBox expand => 1);	1159	$QUIT_DIALOG->add (my $vb = new CFClient::UI::VBox expand => 1);
893		1160
894	$vb->add (new CFClient::UI::Label	1161	$vb->add (new CFClient::UI::Label
895	text => "You should find a savebed and apply it first!",	1162	text => "You should find a savebed and apply it first!",
…		…
898	);	1165	);
899	$vb->add (my $hb = new CFClient::UI::HBox expand => 1);	1166	$vb->add (my $hb = new CFClient::UI::HBox expand => 1);
900	$hb->add (new CFClient::UI::Button	1167	$hb->add (new CFClient::UI::Button
901	text => "Ok",	1168	text => "Ok",
902	expand => 1,	1169	expand => 1,
903	on_activate => sub { $QUIT_DIALOG->hide },	1170	on_activate => sub { $QUIT_DIALOG->hide; 0 },
904	);	1171	);
905	$hb->add (new CFClient::UI::Button	1172	$hb->add (new CFClient::UI::Button
906	text => "Quit anyway",	1173	text => "Quit anyway",
907	expand => 1,	1174	expand => 1,
908	on_activate => sub { exit },	1175	on_activate => sub { exit },
909	);	1176	);
910
911	$QUIT_DIALOG->show_centered;
912	} else {
913	$QUIT_DIALOG->show_centered;
914	}	1177	}
915	}
916		1178
		1179	$QUIT_DIALOG->show;
		1180	}
		1181
		1182	sub autopickup_setup {
		1183	my $table = new CFClient::UI::Table;
		1184
		1185	for (
		1186	["General", 0, 0,
		1187	["Enable autopickup" => PICKUP_NEWMODE],
		1188	["Inhibit autopickup" => PICKUP_INHIBIT],
		1189	["Stop before pickup" => PICKUP_STOP],
		1190	["Debug autopickup" => PICKUP_DEBUG],
		1191	],
		1192	["Weapons", 0, 6,
		1193	["All weapons" => PICKUP_ALLWEAPON],
		1194	["Missile weapons" => PICKUP_MISSILEWEAPON],
		1195	["Bows" => PICKUP_BOW],
		1196	["Arrows" => PICKUP_ARROW],
		1197	],
		1198	["Armour", 0, 12,
		1199	["Helmets" => PICKUP_HELMET],
		1200	["Shields" => PICKUP_SHIELD],
		1201	["Body Armour" => PICKUP_ARMOUR],
		1202	["Boots" => PICKUP_BOOTS],
		1203	["Gloves" => PICKUP_GLOVES],
		1204	["Cloaks" => PICKUP_CLOAK],
		1205	],
		1206
		1207	["Readables", 2, 2,
		1208	["Spellbooks" => PICKUP_SPELLBOOK],
		1209	["Skillscrolls" => PICKUP_SKILLSCROLL],
		1210	["Normal Books/Scrolls" => PICKUP_READABLES],
		1211	],
		1212	["Misc", 2, 7,
		1213	["Food" => PICKUP_FOOD],
		1214	["Drinks" => PICKUP_DRINK],
		1215	["Valuables (Money, Gems)" => PICKUP_VALUABLES],
		1216	["Keys" => PICKUP_KEY],
		1217	["Magical Items" => PICKUP_MAGICAL],
		1218	["Potions" => PICKUP_POTION],
		1219	["Magic Devices" => PICKUP_MAGIC_DEVICE],
		1220	["Ignore cursed" => PICKUP_NOT_CURSED],
		1221	["Jewelery" => PICKUP_JEWELS],
		1222	],
		1223	["Weight/Value ratio", 2, 17]
		1224	)
		1225	{
		1226	my ($title, $x, $y, @bits) = @$_;
		1227	$table->add ($x, $y, new CFClient::UI::Label text => $title, align => 1, fg => [1, 1, 0]);
		1228
		1229	for (@bits) {
		1230	++$y;
		1231
		1232	my $mask = $_->[1];
		1233	$table->add ($x , $y, new CFClient::UI::Label text => $_->[0], align => 1, expand => 1);
		1234	$table->add ($x+1, $y, new CFClient::UI::CheckBox
		1235	state => $CFG->{pickup} & $mask,
		1236	on_changed => sub {
		1237	my ($box, $value) = @_;
		1238
		1239	if ($value) {
		1240	$::CFG->{pickup} |= $mask;
		1241	} else {
		1242	$::CFG->{pickup} &= ~$mask;
		1243	}
		1244
		1245	$::CONN->send_command ("pickup $::CFG->{pickup}")
		1246	if defined $::CONN;
		1247
		1248	0
		1249	});
		1250	}
		1251	}
		1252
		1253	$table->add (2, 18, new CFClient::UI::ValSlider
		1254	range => [0, 0, 16, 1, 1],
		1255	to_value => sub { ">= " . 5 * $_[0] },
		1256	on_changed => sub {
		1257	my ($slider, $value) = @_;
		1258
		1259	$::CFG->{pickup} &= ~0x7;
		1260	$::CFG->{pickup} |= int $value
		1261	if $value;
		1262	1;
		1263	});
		1264	$table->add (3, 18, new CFClient::UI::Button
		1265	text => "set",
		1266	on_activate => sub {
		1267	$::CONN->send_command ("pickup $::CFG->{pickup}")
		1268	if defined $::CONN;
		1269	0
		1270	});
		1271
		1272	$table
		1273	}
		1274
917	sub make_inventory_window {	1275	sub inventory_window {
		1276	my $invwin = $INV_WINDOW = new CFClient::UI::FancyFrame
		1277	x => "center",
		1278	y => "center",
		1279	force_w => $WIDTH * 9/10,
		1280	force_h => $HEIGHT * 9/10,
		1281	title => "Inventory",
		1282	has_close_button => 1,
		1283	;
		1284
		1285	$invwin->add (my $hb = new CFClient::UI::HBox homogeneous => 1);
		1286
		1287	$hb->add (my $vb1 = new CFClient::UI::VBox);
		1288	$vb1->add (new CFClient::UI::Label align => 0, text => "Player");
		1289	$vb1->add ($INV = new CFClient::UI::Inventory expand => 1);
		1290
		1291	$hb->add (my $vb2 = new CFClient::UI::VBox);
		1292
		1293	$vb2->add ($INV_RIGHT_HB = new CFClient::UI::HBox);
		1294
		1295	$vb2->add ($INVR = new CFClient::UI::Inventory expand => 1);
		1296
		1297	# XXX: Call after $INVR = ... because set_opencont sets the items
		1298	CFClient::Protocol::set_opencont ($::CONN, 0, "Floor");
		1299
		1300	$invwin
		1301	}
		1302
		1303	sub spell_setup {
		1304	new CFClient::UI::SpellList
		1305	}
		1306
		1307	sub update_bindings {
		1308	$BIND_UPD_CB->() if $BIND_UPD_CB;
		1309	}
		1310
		1311	sub keyboard_setup {
		1312	my $binding_list = new CFClient::UI::VBox;
		1313
		1314	my $refresh;
		1315	$refresh = $BIND_UPD_CB = sub {
		1316	$binding_list->clear ();
		1317
		1318	for my $mod (keys %{$::CFG->{profile}{default}{bindings}}) {
		1319	for my $sym (keys %{$::CFG->{profile}{default}{bindings}{$mod}}) {
		1320	my $cmds = $::CFG->{profile}{default}{bindings}{$mod}{$sym};
		1321	next unless ref $cmds eq 'ARRAY' and @$cmds > 0;
		1322
		1323	my $lbl = join "; ", @$cmds;
		1324	my $nam = CFClient::Binder::keycombo_to_name ($mod, $sym);
		1325	$binding_list->add (my $hb = new CFClient::UI::HBox);
		1326	$hb->add (new CFClient::UI::Button
		1327	text => "delete",
		1328	tooltip => "Deletes the binding",
		1329	on_activate => sub {
		1330	$binding_list->remove ($hb);
		1331	delete $::CFG->{profile}{default}{bindings}{$mod}{$sym};
		1332	0
		1333	});
		1334
		1335	$hb->add (new CFClient::UI::Button
		1336	text => "edit",
		1337	tooltip => "Edits the binding",
		1338	on_activate => sub {
		1339	$::BIND_EDITOR->set_binding (
		1340	$mod, $sym, $::CFG->{profile}{default}{bindings}{$mod}{$sym},
		1341	sub {
		1342	my ($nmod, $nsym, $ncmds) = @_;
		1343	$::BIND_EDITOR->cfg_unbind ($mod, $sym);
		1344	$::BIND_EDITOR->cfg_bind ($nmod, $nsym, $ncmds);
		1345	$refresh->();
		1346	$SETUP_NOTEBOOK->set_current_page ($SETUP_KEYBOARD);
		1347	$SETUP_DIALOG->show;
		1348	},
		1349	sub {
		1350	$SETUP_NOTEBOOK->set_current_page ($SETUP_KEYBOARD);
		1351	$SETUP_DIALOG->show;
		1352	});
		1353	$::BIND_EDITOR->show;
		1354	$SETUP_DIALOG->hide;
		1355	0
		1356	});
		1357
		1358	$hb->add (new CFClient::UI::Label text => "(Key: $nam)");
		1359	$hb->add (new CFClient::UI::Label text => $lbl, expand => 1);
		1360	}
		1361	}
		1362	};
		1363
		1364	my $vb = new CFClient::UI::VBox;
		1365	$vb->add (my $hb = new CFClient::UI::HBox);
		1366	$hb->add (new CFClient::UI::Label text => "only shift-up stops fire");
		1367	$hb->add (new CFClient::UI::CheckBox
		1368	expand => 1,
		1369	state => $CFG->{shift_fire_stop},
		1370	tooltip => "If this checkbox is enabled you will stop fire only if you stop pressing shift",
		1371	on_changed => sub {
		1372	my ($cbox, $value) = @_;
		1373	$CFG->{shift_fire_stop} = $value;
		1374	0
		1375	});
		1376
		1377	$vb->add ($binding_list);
		1378	$vb->add (my $hb = new CFClient::UI::HBox);
		1379
		1380	$hb->add (new CFClient::UI::Button
		1381	text => "record new",
		1382	expand => 1,
		1383	tooltip => "This button opens the binding editor with an empty binding.",
		1384	on_activate => sub {
		1385	$::BIND_EDITOR->set_binding (undef, undef, [],
		1386	sub {
		1387	my ($mod, $sym, $cmds) = @_;
		1388	$::BIND_EDITOR->cfg_bind ($mod, $sym, $cmds);
		1389	$refresh->();
		1390	$SETUP_NOTEBOOK->set_current_page ($SETUP_KEYBOARD);
		1391	$SETUP_DIALOG->show;
		1392	},
		1393	sub {
		1394	$SETUP_NOTEBOOK->set_current_page ($SETUP_KEYBOARD);
		1395	$SETUP_DIALOG->show;
		1396	},
		1397	);
		1398	$SETUP_DIALOG->hide;
		1399	$::BIND_EDITOR->show;
		1400	0
		1401	},
		1402	);
		1403
		1404	$hb->add (new CFClient::UI::Button
		1405	text => "close",
		1406	tooltip => "Closes the binding window",
		1407	expand => 1,
		1408	on_activate => sub {
		1409	$SETUP_DIALOG->hide;
		1410	0
		1411	}
		1412	);
		1413
		1414	$refresh->();
		1415
		1416	$vb
		1417	}
		1418
		1419	sub help_window {
918	my $invwin = new CFClient::UI::FancyFrame	1420	my $win = new CFClient::UI::FancyFrame
		1421	x => 'center',
		1422	y => 'center',
		1423	z => 2,
		1424	name => 'doc_browser',
919	user_w => $WIDTH * (7/8),	1425	force_w => int $WIDTH * 7/8,
920	user_h => $HEIGHT * (7/8),	1426	force_h => int $HEIGHT * 7/8,
921	title => "Inventory",	1427	title => "Documentation";
922	name => "inventory_window",	1428
		1429	$win->add (my $vbox = new CFClient::UI::VBox);
		1430
		1431	$vbox->add (my $buttons = new CFClient::UI::HBox);
		1432	$vbox->add (my $viewer = new CFClient::UI::TextScroller
		1433	expand => 1, fontsize => 0.8, padding_x => 4);
		1434
		1435	$buttons->add (new CFClient::UI::Label text => "Choose a document to display: ");
		1436	$buttons->add (my $combo = new CFClient::UI::Combobox
		1437	value => undef,
		1438	options => [
		1439	[intro => "Introduction"],
		1440	[manual => "Manual"],
		1441	[skill_help => "Skills"],
		1442	[command_help => "Commands"],
		1443	[dmcommand_help => "DM Commands"],
		1444	[COPYING => "License Terms"],
		1445	],
		1446	on_changed => sub {
		1447	my ($self, $pod) = @_;
		1448
		1449	my $pom = CFClient::load_pod CFClient::find_rcfile "pod/$pod.pod",
		1450	doc_viewer => 1, sub { CFClient::pod_to_pango_list $_[0] };
		1451
		1452	$viewer->clear;
		1453
		1454	$viewer->add_paragraph ([1, 1, 1, 1], $_->[1], $_->[0])
		1455	for @$pom;
		1456
		1457	$viewer->set_offset (0);
		1458	0
		1459	},
923	on_visibility_change => sub {	1460	on_visibility_change => sub {
924	$_[0]->show_centered if $_[1]	1461	my ($self, $visible) = @_;
925	};	1462	return unless $visible;
926		1463	return if $self->{value};
927	$invwin->add (my $hb = new CFClient::UI::HBox expand => 1);	1464	$self->set_value ("intro");
928		1465	0
929	$hb->add (my $vb1 = new CFClient::UI::VBox expand => 1);
930	$vb1->add (my $lbl = new CFClient::UI::Label align => 0);
931	$lbl->set_text ("Player");
932	$vb1->add ($INV = new CFClient::UI::Inventory expand => 1);
933
934	$hb->add (my $vb2 = new CFClient::UI::VBox expand => 1);
935
936	$vb2->add (my $hb2 = new CFClient::UI::HBox);
937	$hb2->add ($INVR_LBL = new CFClient::UI::Label align => 0, expand => 1);
938	$hb2->add (new CFClient::UI::Button
939	text => "Close",
940	tooltip => "Close the currently open container (if one is open)",
941	on_activate => sub {
942	$CONN->send ("apply $CONN->{open_container}")
943	if $CONN->{open_container} != 0;
944	},	1466	},
945	);	1467	);
946
947	$INVR_LBL->set_text ("Floor");
948	$vb2->add ($INVR = new CFClient::UI::Inventory expand => 1);
949
950	$invwin
951	}
952
953	sub make_help_window {
954	my $win = new CFClient::UI::FancyFrame
955	user_w => $WIDTH * (7/8), user_h => $HEIGHT * (7/8), title => "Documentation";
956
957	$win->add (my $vbox = new CFClient::UI::VBox);
958
959	$vbox->add (my $buttons = new CFClient::UI::HBox);
960	$vbox->add (my $viewer = new CFClient::UI::TextView expand => 1, fontsize => 0.8);
961
962	for (
963	[intro => "Introduction"],
964	[manual => "Manual"],
965	[command_help => "Commands"],
966	[skill_help => "Skills"],
967	) {
968	my ($pod, $label) = @$_;
969
970	$buttons->add (new CFClient::UI::Button
971	text => $label,
972	on_activate => sub {
973	my $parser = new Pod::POM;
974	my $pom = $parser->parse_file (CFClient::find_rcfile "pod/$pod.pod");
975
976	$viewer->clear;
977
978	$viewer->add_paragraph ([1, 1, 1, 1], $_->[1], $_->[0])
979	for @{ CFClient::pod_to_pango_list $pom };
980
981	$viewer->set_offset (0);
982	},
983	);
984	}
985
986	$viewer->add_paragraph ([1, 1, 0, 1], "<big>Use one of the buttons above to display a document.</big>");
987		1468
988	$win	1469	$win
989	}	1470	}
990		1471
991	sub sdl_init {	1472	sub sdl_init {
…		…
1021	if ($DEBUG_STATUS) {	1502	if ($DEBUG_STATUS) {
1022	CFClient::UI::rescale_widgets $WIDTH / $old_w, $HEIGHT / $old_h;	1503	CFClient::UI::rescale_widgets $WIDTH / $old_w, $HEIGHT / $old_h;
1023	} else {	1504	} else {
1024	# create the widgets	1505	# create the widgets
1025		1506
1026	$DEBUG_STATUS = new CFClient::UI::Label padding => 0, z => 100, req_x => -1;	1507	$DEBUG_STATUS = new CFClient::UI::Label
		1508	padding => 0,
		1509	z => 100,
		1510	force_x => "max",
		1511	force_y => 0;
1027	$DEBUG_STATUS->show;	1512	$DEBUG_STATUS->show;
1028		1513
		1514	$BIND_EDITOR = new CFClient::UI::BindEditor (x => "max", y => 0);
		1515
1029	$STATUSBOX = new CFClient::UI::Statusbox;	1516	$STATUSBOX = new CFClient::UI::Statusbox;
1030	$STATUSBOX->add ("Use <b>Alt-Enter</b> to toggle fullscreen mode", pri => -100, color => [1, 1, 1, 0.8]);	1517	$STATUSBOX->add ("Use <b>Alt-Enter</b> to toggle fullscreen mode", timeout => 864000, pri => -100, color => [1, 1, 1, 0.8]);
1031		1518
1032	(new CFClient::UI::Frame	1519	(new CFClient::UI::Frame
1033	bg => [0, 0, 0, 0.4],	1520	bg => [0, 0, 0, 0.4],
1034	req_y => -1,	1521	force_x => 0,
		1522	force_y => "max",
1035	child => $STATUSBOX,	1523	child => $STATUSBOX,
1036	)->show;	1524	)->show;
1037		1525
1038	CFClient::UI::FancyFrame->new (	1526	CFClient::UI::FancyFrame->new (
		1527	title => "Map",
		1528	name => "mapmap",
		1529	x => 0,
		1530	y => $FONTSIZE + 8,
1039	border_bg => [1, 1, 1, 192/255],	1531	border_bg => [1, 1, 1, 192/255],
1040	bg => [1, 1, 1, 0],	1532	bg => [1, 1, 1, 0],
1041	child => ($MAPMAP = new CFClient::MapWidget::MapMap	1533	child => ($MAPMAP = new CFClient::MapWidget::MapMap
1042	tooltip => "<b>Map</b>. On servers that support this feature, this will display an overview of the surrounding areas.",	1534	tooltip => "<b>Map</b>. On servers that support this feature, this will display an overview of the surrounding areas.",
1043	),	1535	),
…		…
1047	$MAPWIDGET->connect (activate_console => sub {	1539	$MAPWIDGET->connect (activate_console => sub {
1048	my ($mapwidget, $preset) = @_;	1540	my ($mapwidget, $preset) = @_;
1049		1541
1050	if ($CONSOLE) {	1542	if ($CONSOLE) {
1051	$CONSOLE->{input}->{auto_activated} = 1;	1543	$CONSOLE->{input}->{auto_activated} = 1;
1052	$CONSOLE->{input}->focus_in;	1544	$CONSOLE->{input}->grab_focus;
1053		1545
1054	if ($preset && $CONSOLE->{input}->get_text eq '') {	1546	if ($preset && $CONSOLE->{input}->get_text eq '') {
1055	$CONSOLE->{input}->set_text ($preset);	1547	$CONSOLE->{input}->set_text ($preset);
1056	}	1548	}
1057	}	1549	}
1058	});	1550	});
1059	$MAPWIDGET->show;	1551	$MAPWIDGET->show;
1060	$MAPWIDGET->focus_in;	1552	$MAPWIDGET->grab_focus;
1061		1553
1062	$LOGVIEW = new CFClient::UI::TextView	1554	$LOGVIEW = new CFClient::UI::TextScroller
1063	expand => 1,	1555	expand => 1,
1064	font => $FONT_FIXED,	1556	font => $FONT_FIXED,
1065	fontsize => $::CFG->{log_fontsize},	1557	fontsize => $::CFG->{log_fontsize},
		1558	indent => -4,
1066	can_hover => 1,	1559	can_hover => 1,
1067	can_events => 1,	1560	can_events => 1,
1068	tooltip => "<b>Server Log</b>. This text viewer contains all the messages sent by the server.",	1561	tooltip => "<b>Server Log</b>. This text viewer contains all the messages sent by the server.",
1069	;	1562	;
1070		1563
1071	$BUTTONBAR = new CFClient::UI::HBox;	1564	$SETUP_DIALOG = new CFClient::UI::FancyFrame
		1565	title => "Setup",
		1566	name => "setup_dialog",
		1567	x => 'center',
		1568	y => 'center',
		1569	z => 2,
		1570	force_w => $::WIDTH * 0.6,
		1571	force_h => $::HEIGHT * 0.6,
		1572	has_close_button => 1,
		1573	;
1072		1574
		1575	$SETUP_DIALOG->add ($SETUP_NOTEBOOK = new CFClient::UI::Notebook expand => 1, debug => 1,
		1576	filter => new CFClient::UI::ScrolledWindow expand => 1, scroll_y => 1);
		1577
		1578	$SETUP_NOTEBOOK->add (Server => $SETUP_SERVER = server_setup,
		1579	"Configure the server to play on, your username, password and other server-related options.");
		1580	$SETUP_NOTEBOOK->add (Pickup => autopickup_setup,
		1581	"Configure autopickup settings, i.e. which items you will pick up automatically when walking (or running) over them.");
		1582	$SETUP_NOTEBOOK->add (Graphics => graphics_setup,
		1583	"Configure the video mode, performance, fonts and other graphical aspects of the game.");
		1584	$SETUP_NOTEBOOK->add (Audio => audio_setup,
		1585	"Configure the use of audio, sound effects and background music.");
		1586	$SETUP_NOTEBOOK->add (Keyboard => $SETUP_KEYBOARD = keyboard_setup,
		1587	"Lets you define, edit and delete key bindings."
		1588	. "There is a shortcut for making bindings: <b>Control-Insert</b> opens the binding editor "
		1589	. "with nothing set and the recording started. After doing the actions you "
		1590	. "want to record press <b>Insert</b> and you will be asked to press a key-combo. "
		1591	. "After pressing the combo the binding will be saved automatically and the "
		1592	. "binding editor closes");
		1593	$SETUP_NOTEBOOK->add (Spells => $SETUP_SPELLS = spell_setup,
		1594	"Displays all spells you have and lets you edit keyboard shortcuts for them.");
		1595	$SETUP_NOTEBOOK->add (Debug => debug_setup,
		1596	"Some debuggin' options. Do not ask.");
		1597
		1598	$BUTTONBAR = new CFClient::UI::Buttonbar x => 0, y => 0, z => 200; # put on top
		1599
1073	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Client Setup", other => client_setup,	1600	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Setup", other => $SETUP_DIALOG,
1074	tooltip => "Toggles a dialog where you can configure various aspects of the client, such as graphics mode, performance, and audio options.");	1601	tooltip => "Toggles a dialog where you can configure all aspects of this client.");
1075	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Server Setup", other => server_setup,	1602
1076	tooltip => "Toggles a dialog where you can configure the server to play on, your username, password and other server-related options.");
1077	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Message Window", other => message_window,	1603	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Message Window", other => $MESSAGE_WINDOW = message_window,
1078	tooltip => "Toggles the server message log, where the client collects <i>all</i> messages from the server.");	1604	tooltip => "Toggles the server message log, where the client collects <i>all</i> messages from the server.");
1079		1605
1080	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	1606	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
1081		1607
1082	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Stats Window", other => make_stats_window,	1608	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Stats Window", other => $STATS_WINDOW = stats_window,
1083	tooltip => "Toggles the statistics window, where all your Stats and Resistances are being displayed at all times.");	1609	tooltip => "Toggles the statistics window, where all your Stats and Resistances are being displayed at all times.");
1084	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Inventory", other => make_inventory_window,	1610	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Inventory", other => inventory_window,
1085	tooltip => "Toggles the inventory window, where you can manage your loot (or treaures :).");	1611	tooltip => "Toggles the inventory window, where you can manage your loot (or treasures :). "
		1612	. "You can also hit the <b>Tab</b>-key to show/hide the Inventory.");
1086		1613
1087	$BUTTONBAR->add (new CFClient::UI::Button	1614	$BUTTONBAR->add (new CFClient::UI::Button
1088	text => "Save Config",	1615	text => "Save Config",
1089	tooltip => "Saves the options chosen in the client setting, server settings and the window layout to be restored on later runs.",	1616	tooltip => "Saves the options chosen in the client setting, server settings and the window layout to be restored on later runs.",
1090	on_activate => sub {	1617	on_activate => sub {
1091	$::CFG->{layout} = CFClient::UI::get_layout;	1618	$::CFG->{layout} = CFClient::UI::get_layout;
1092	CFClient::write_cfg "$Crossfire::VARDIR/pclientrc";	1619	CFClient::write_cfg "$Crossfire::VARDIR/cfplusrc";
1093	status "Configuration Saved";	1620	status "Configuration Saved";
		1621	0
1094	},	1622	},
1095	);	1623	);
1096		1624
1097	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Help!", other => make_help_window,	1625	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Help!", other => help_window,
1098	tooltip => "View Documentation");	1626	tooltip => "View Documentation");
1099		1627
1100	$BUTTONBAR->add (new CFClient::UI::Button	1628	$BUTTONBAR->add (new CFClient::UI::Button
1101	text => "Quit",	1629	text => "Quit",
1102	tooltip => "Terminates the program",	1630	tooltip => "Terminates the program",
…		…
1104	if ($CONN) {	1632	if ($CONN) {
1105	open_quit_dialog;	1633	open_quit_dialog;
1106	} else {	1634	} else {
1107	exit;	1635	exit;
1108	}	1636	}
		1637	0
1109	},	1638	},
1110	);	1639	);
1111		1640
1112	$BUTTONBAR->show;	1641	$BUTTONBAR->show;
1113		1642	$SETUP_DIALOG->show;
1114	$STATUSBOX->add ("Set video mode $WIDTH×$HEIGHT", timeout => 10, fg => [1, 1, 1, 0.5]);
1115
1116	# delay till geometry is constant
1117	$CFClient::UI::ROOT->on_post_alloc (startup => sub {
1118	$BUTTONBAR->{children}[1]->emit ("activate"); # pop up server setup
1119	my $widget = $GAUGES->{win};
1120	$widget->move (0, $HEIGHT - $widget->{h});#d# to in toplevel
1121	});
1122	force_refresh ();
1123	}	1643	}
		1644
		1645	$STATUSBOX->add ("Set video mode $WIDTH×$HEIGHT", timeout => 10, fg => [1, 1, 1, 0.5]);
1124	}	1646	}
1125		1647
1126	sub video_shutdown {	1648	sub video_shutdown {
		1649	CFClient::OpenGL::shutdown;
		1650
1127	undef $SDL_ACTIVE;	1651	undef $SDL_ACTIVE;
1128	}	1652	}
1129		1653
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#	1654	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#	1655	my $bgmusic;#TODO#hack#d#
…		…
1195		1719
1196	my %demo;#d#	1720	my %demo;#d#
1197		1721
1198	sub force_refresh {	1722	sub force_refresh {
1199	$fps = $fps * 0.95 + 1 / (($NOW - $LAST_REFRESH) || 0.1) * 0.05;	1723	$fps = $fps * 0.95 + 1 / (($NOW - $LAST_REFRESH) || 0.1) * 0.05;
1200	debug sprintf "%3.2f", $fps;	1724	debug sprintf "%3.2f", $fps if $ENV{CFPLUS_DEBUG} & 4;
1201		1725
1202	$CFClient::UI::ROOT->draw;	1726	$CFClient::UI::ROOT->draw;
1203		1727
1204	$WANT_REFRESH = 0;	1728	$WANT_REFRESH = 0;
1205	$CAN_REFRESH = 0;	1729	$CAN_REFRESH = 0;
…		…
1260	};	1784	};
1261		1785
1262	CFClient::SDL_GL_SwapBuffers;	1786	CFClient::SDL_GL_SwapBuffers;
1263	}	1787	}
1264		1788
1265	my $refresh_watcher = Event->timer (after => 0, hard => 1, interval => 1 / $MAX_FPS, cb => sub {	1789	my $refresh_watcher = Event->timer (after => 0, hard => 0, interval => 1 / $MAX_FPS, cb => sub {
1266	$NOW = time;	1790	$NOW = time;
1267		1791
1268	($SDL_CB{$_->{type}} || sub { warn "unhandled event $_->{type}" })->($_)	1792	($SDL_CB{$_->{type}} || sub { warn "unhandled event $_->{type}" })->($_)
1269	for CFClient::SDL_PollEvent;	1793	for CFClient::SDL_PollEvent;
1270		1794
…		…
1337	#############################################################################	1861	#############################################################################
1338		1862
1339	$SIG{INT} = $SIG{TERM} = sub { exit };	1863	$SIG{INT} = $SIG{TERM} = sub { exit };
1340		1864
1341	{	1865	{
1342	local $SIG{__DIE__} = sub { CFClient::fatal $_[0] };	1866	local $SIG{__DIE__} = sub {
		1867	return unless defined $^S && !$^S;
		1868	Carp::confess $_[1];#d#TODO: remove when stable
		1869	CFClient::fatal $_[0];
		1870	};
1343		1871
1344	CFClient::read_cfg "$Crossfire::VARDIR/pclientrc";	1872	CFClient::read_cfg "$Crossfire::VARDIR/cfplusrc";
1345	CFClient::UI::set_layout ($::CFG->{layout});	1873	CFClient::UI::set_layout ($::CFG->{layout});
1346		1874
1347	my %DEF_CFG = (	1875	my %DEF_CFG = (
1348	sdl_mode => 0,	1876	sdl_mode => 0,
1349	width => 640,	1877	width => 640,
1350	height => 480,	1878	height => 480,
1351	fullscreen => 0,	1879	fullscreen => 0,
1352	fast => 0,	1880	fast => 0,
1353	map_scale => 1,	1881	map_scale => 1,
1354	fow_enable => 1,	1882	fow_enable => 1,
1355	fow_intensity => 0.45,	1883	fow_intensity => 0.45,
1356	fow_smooth => 0,	1884	fow_smooth => 0,
1357	gui_fontsize => 1,	1885	gui_fontsize => 1,
1358	log_fontsize => 1,	1886	log_fontsize => 0.7,
1359	gauge_fontsize=> 1,	1887	gauge_fontsize => 1,
1360	gauge_size => 0.35,	1888	gauge_size => 0.35,
1361	stat_fontsize => 1,	1889	stat_fontsize => 0.7,
1362	mapsize => 100,	1890	mapsize => 100,
1363	host => "crossfire.schmorp.de",
1364	say_command => 'say',	1891	say_command => 'say',
1365	audio_enable => 1,	1892	audio_enable => 1,
1366	bgm_enable => 1,	1893	bgm_enable => 1,
1367	bgm_volume => 0.25,	1894	bgm_volume => 0.25,
1368	face_prefetch => 0,	1895	face_prefetch => 0,
1369	output_sync => 1,	1896	output_sync => 1,
1370	output_count => 1,	1897	output_count => 1,
		1898	pickup => 0,
		1899	default => "profile", # default profile
		1900	);
1371	);	1901
1372
1373	while (my ($k, $v) = each %DEF_CFG) {	1902	while (my ($k, $v) = each %DEF_CFG) {
1374	$CFG->{$k} = $v unless exists $CFG->{$k};	1903	$CFG->{$k} = $v unless exists $CFG->{$k};
1375	}	1904	}
		1905
		1906	$CFG->{profile}{default}{host} ||= "crossfire.schmorp.de";
1376		1907
1377	sdl_init;	1908	sdl_init;
1378		1909
1379	@SDL_MODES = reverse	1910	@SDL_MODES = reverse
1380	grep $_->[0] >= 640 && $_->[1] >= 480,	1911	grep $_->[0] >= 640 && $_->[1] >= 480,
…		…
1422	video_init;	1953	video_init;
1423	audio_init;	1954	audio_init;
1424	}	1955	}
1425		1956
1426	Event::loop;	1957	Event::loop;
		1958	#CFClient::SDL_Quit;
		1959	#CFClient::_exit 0;
1427		1960
1428	END { CFClient::SDL_Quit }	1961	END { CFClient::SDL_Quit }
1429		1962
1430	=head1 NAME	1963	=head1 NAME
1431		1964
1432	pclient - A Crossfire+ and Crossfire game client	1965	cfplus - A Crossfire+ and Crossfire game client
1433		1966
1434	=head1 SYNOPSIS	1967	=head1 SYNOPSIS
1435		1968
1436	Just run it - no commandline arguments are supported.	1969	Just run it - no commandline arguments are supported.
1437		1970
1438	=head1 USAGE	1971	=head1 USAGE
1439		1972
1440	Pclient utilises OpenGL for all UI elements and the game. It is supposed to be used	1973	cfplus utilises OpenGL for all UI elements and the game. It is supposed to be used
1441	fullscreen and interactively.	1974	fullscreen and interactively.
1442		1975
		1976	=head1 DEBUGGING
		1977
		1978
		1979	CFPLUS_DEBUG - environment variable
		1980
		1981	1 draw borders around widgets
		1982	2 add low-level widget info to tooltips
		1983	4 show fps
		1984	8 suppress tooltips
		1985
1443	=head1 AUTHOR	1986	=head1 AUTHOR
1444		1987
1445	Marc Lehmann <crossfire@schmorp.de>, Robin Redeker <elmex@ta-sa.org>	1988	Marc Lehmann <crossfire@schmorp.de>, Robin Redeker <elmex@ta-sa.org>
1446		1989
1447		1990

Diff Legend

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