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.39 by root, Thu Jun 1 03:42:58 2006 UTC vs.
Revision 1.79 by root, Fri Jun 23 23:54:31 2006 UTC

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

Diff Legend

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