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

Diff Legend

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