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

Diff Legend

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