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.10 by root, Fri May 26 18:28:23 2006 UTC vs.
Revision 1.104 by root, Sun Jul 30 13:14:15 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;	33	use Crossfire::Protocol::Constants;
35		34
36	use Compress::LZF;	35	use Compress::LZF;
37		36
38	use CFClient;	37	use CFPlus;
39	use CFClient::OpenGL ();	38	use CFPlus::OpenGL ();
		39	use CFPlus::Protocol;
40	use CFClient::UI;	40	use CFPlus::UI;
		41	use CFPlus::Pod;
		42	use CFPlus::BindingEditor;
41	use CFClient::MapWidget;	43	use CFPlus::MapWidget;
42		44
		45	$SIG{QUIT} = sub { Carp::cluck "QUIT" };
		46	$SIG{PIPE} = 'IGNORE';
		47
		48	$Event::Eval = 0;
43	$Event::DIED = sub {	49	$Event::DIED = sub {
44	# TODO: display dialog box or so	50	# TODO: display dialog box or so
		51	Carp::cluck $_[1];#d#TODO: remove when stable
45	CFClient::error $_[1];	52	CFPlus::error $_[1];
46	};	53	};
47		54
48	#$SIG{__WARN__} = sub { Carp::cluck $_[0] };#d#	55	$SIG{__DIE__} = sub {
		56	return if CFPlus::in_destruct;
		57	Carp::cluck $_[0];
		58	CFPlus::error $_[0];
		59	return;#d#
		60	#return unless defined $^S && !$^S;
		61	$Event::DIED->(undef, $_[0]);
		62	};
49		63
50	our $VERSION = '0.1';	64	our $VERSION = '0.1';
51		65
52	my $MAX_FPS = 60;	66	my $MAX_FPS = 60;
53	my $MIN_FPS = 5; # unused as of yet	67	my $MIN_FPS = 5; # unused as of yet
54		68
55	our $META_SERVER = "crossfire.real-time.com:13326";	69	our $META_SERVER = "crossfire.real-time.com:13326";
56
57	our $FACEMAP;
58	our $TILECACHE;
59	our $MAPCACHE;
60		70
61	our $LAST_REFRESH;	71	our $LAST_REFRESH;
62	our $NOW;	72	our $NOW;
63		73
64	our $CFG;	74	our $CFG;
…		…
84	our $LOGVIEW;	94	our $LOGVIEW;
85	our $CONSOLE;	95	our $CONSOLE;
86	our $METASERVER;	96	our $METASERVER;
87	our $LOGIN_BUTTON;	97	our $LOGIN_BUTTON;
88	our $QUIT_DIALOG;	98	our $QUIT_DIALOG;
		99	our $HOST_ENTRY;
		100	our $FULLSCREEN_ENABLE;
		101	our $PICKUP_ENABLE;
		102	our $SERVER_INFO;
89		103
		104	our $SETUP_DIALOG;
		105	our $SETUP_NOTEBOOK;
		106	our $SETUP_SERVER;
		107	our $SETUP_KEYBOARD;
		108
		109	our $PL_NOTEBOOK;
		110	our $PL_WINDOW;
		111
		112	our $INVENTORY_PAGE;
		113	our $STATS_PAGE;
		114	our $SKILL_PAGE;
		115	our $SPELL_PAGE;
		116
		117	our $HELP_WINDOW;
		118	our $MESSAGE_WINDOW;
90	our $FLOORBOX;	119	our $FLOORBOX;
91	our $GAUGES;	120	our $GAUGES;
92	our $STATWIDS;	121	our $STATWIDS;
93		122
94	our $SDL_ACTIVE;	123	our $SDL_ACTIVE;
…		…
100		129
101	our $ALT_ENTER_MESSAGE;	130	our $ALT_ENTER_MESSAGE;
102	our $STATUSBOX;	131	our $STATUSBOX;
103	our $DEBUG_STATUS;	132	our $DEBUG_STATUS;
104		133
105	our $INVWIN;
106	our $INV;	134	our $INV;
107	our $INVR;	135	our $INVR;
108	our $INVR_LBL;	136	our $INV_RIGHT_HB;
		137
		138	our $BIND_EDITOR;
		139	our $BIND_UPD_CB;
		140
		141	our $PICKUP_CFG;
109		142
110	sub status {	143	sub status {
111	$STATUSBOX->add (CFClient::UI::Label::escape $_[0], pri => -10, group => "status", timeout => 10, fg => [1, 1, 0, 1]);	144	$STATUSBOX->add (CFPlus::asxml $_[0], pri => -10, group => "status", timeout => 10, fg => [1, 1, 0, 1]);
112	}	145	}
113		146
114	sub debug {	147	sub debug {
115	$DEBUG_STATUS->set_text ($_[0]);	148	$DEBUG_STATUS->set_text ($_[0]);
116	my ($w, $h) = $DEBUG_STATUS->size_request;	149	}
117	$DEBUG_STATUS->move ($WIDTH - $w, 0);	150
		151	sub destroy_query_dialog {
		152	(delete $_[0]{query_dialog})->destroy
		153	if $_[0]{query_dialog};
		154	}
		155
		156	# server query dialog
		157	sub server_query {
		158	my ($conn, $flags, $prompt) = @_;
		159
		160	$conn->{query_dialog} = my $dialog = new CFPlus::UI::FancyFrame
		161	x => "center",
		162	y => "center",
		163	title => "Server Query",
		164	child => my $vbox = new CFPlus::UI::VBox,
		165	;
		166
		167	my @dialog = my $label = new CFPlus::UI::Label
		168	max_w => $::WIDTH * 0.4,
		169	ellipsise => 0,
		170	text => $prompt;
		171
		172	if ($flags & CS_QUERY_YESNO) {
		173	push @dialog, my $hbox = new CFPlus::UI::HBox;
		174
		175	$hbox->add (new CFPlus::UI::Button
		176	text => "No",
		177	on_activate => sub {
		178	$conn->send ("reply n");
		179	$dialog->destroy;
		180	0
		181	}
		182	);
		183	$hbox->add (new CFPlus::UI::Button
		184	text => "Yes",
		185	on_activate => sub {
		186	$conn->send ("reply y");
		187	destroy_query_dialog $conn;
		188	0
		189	},
		190	);
		191
		192	$dialog->grab_focus;
		193
		194	} elsif ($flags & CS_QUERY_SINGLECHAR) {
		195	$dialog->{tooltip} = "Press a key (click on the entry to make sure it has keyboard focus)";
		196
		197	if ($prompt =~ /Now choose a character|Press any key for the next race/i) {
		198	$MESSAGE_WINDOW->show;
		199
		200	unshift @dialog, new CFPlus::UI::Label
		201	max_w => $::WIDTH * 0.4,
		202	ellipsise => 0,
		203	markup => "\nOr use your keyboard and the text entry below:\n";
		204
		205	unshift @dialog, my $table = new CFPlus::UI::Table;
		206
		207	$table->add (0, 0, new CFPlus::UI::Button
		208	text => "Next Race",
		209	on_activate => sub {
		210	$conn->send ("reply n");
		211	destroy_query_dialog $conn;
		212	0
		213	},
		214	);
		215	$table->add (2, 0, new CFPlus::UI::Button
		216	text => "Accept",
		217	on_activate => sub {
		218	$conn->send ("reply d");
		219	destroy_query_dialog $conn;
		220	0
		221	},
		222	);
		223
		224	unshift @dialog, new CFPlus::UI::Label
		225	max_w => $::WIDTH * 0.4,
		226	ellipsise => 0,
		227	markup =>
		228	"<big><b>Character Creation: Race</b></big>\n\n"
		229	. "Look at the <b>Messages</b> window to see a description of this race "
		230	. "and the center of the screen to see how this race looks like "
		231	. "(<small>below this dialog window: you may need to move the dialog away and "
		232	. "click into the display area to make it visible</small>).\n\n"
		233	. "You can look at another race, or accept this race (you will cycle back to "
		234	. "this race eventually, so you can take your time making this important choice."
		235	;
		236
		237	} elsif ($prompt =~ /roll new stats/) {
		238	if (my $stat = delete $conn->{stat_change_with}) {
		239	$conn->send ("reply $stat");
		240	destroy_query_dialog $conn;
		241	return;
		242	}
		243
		244	$STATS_PAGE->show;
		245	$MESSAGE_WINDOW->hide;
		246
		247	unshift @dialog, new CFPlus::UI::Label
		248	max_w => $::WIDTH * 0.4,
		249	ellipsise => 0,
		250	markup => "\nOr use your keyboard and the text entry below:\n";
		251
		252	unshift @dialog, my $table = new CFPlus::UI::Table;
		253
		254	# left: re-roll
		255	$table->add (0, 0, new CFPlus::UI::Button
		256	text => "Roll Again",
		257	on_activate => sub {
		258	$conn->send ("reply y");
		259	destroy_query_dialog $conn;
		260	0
		261	},
		262	);
		263
		264	# center: swap stats
		265	my ($sw1, $sw2) = map +(new CFPlus::UI::Selector
		266	expand => 1,
		267	value => $_,
		268	options => [
		269	[1 => "Str", "Strength ($conn->{stat}{+CS_STAT_STR})"],
		270	[2 => "Dex", "Dexterity ($conn->{stat}{+CS_STAT_DEX})"],
		271	[3 => "Con", "Constitution ($conn->{stat}{+CS_STAT_CON})"],
		272	[4 => "Int", "Intelligence ($conn->{stat}{+CS_STAT_INT})"],
		273	[5 => "Wis", "Wisdom ($conn->{stat}{+CS_STAT_WIS})"],
		274	[6 => "Pow", "Power ($conn->{stat}{+CS_STAT_POW})"],
		275	[7 => "Cha", "Charisma ($conn->{stat}{+CS_STAT_CHA})"],
		276	],
		277	), 1 .. 2;
		278
		279	$table->add (2, 0, new CFPlus::UI::Button
		280	text => "Swap Stats",
		281	on_activate => sub {
		282	$conn->{stat_change_with} = $sw2->{value};
		283	$conn->send ("reply $sw1->{value}");
		284	destroy_query_dialog $conn;
		285	0
		286	},
		287	);
		288	$table->add (2, 1, new CFPlus::UI::HBox children => [$sw1, $sw2]);
		289
		290	# right: accept
		291	$table->add (4, 0, new CFPlus::UI::Button
		292	text => "Accept",
		293	on_activate => sub {
		294	$conn->send ("reply n");
		295	$STATS_PAGE->hide;
		296	destroy_query_dialog $conn;
		297	0
		298	},
		299	);
		300
		301	unshift @dialog, my $hbox = new CFPlus::UI::HBox;
		302	for (
		303	[Str => CS_STAT_STR],
		304	[Dex => CS_STAT_DEX],
		305	[Con => CS_STAT_CON],
		306	[Int => CS_STAT_INT],
		307	[Wis => CS_STAT_WIS],
		308	[Pow => CS_STAT_POW],
		309	[Cha => CS_STAT_CHA],
		310	) {
		311	my ($name, $id) = @$_;
		312	$hbox->add (new CFPlus::UI::Label
		313	markup => "$conn->{stat}{$id} <span foreground='yellow'>$name</span>",
		314	align => 0,
		315	expand => 1,
		316	can_events => 1,
		317	can_hover => 1,
		318	tooltip => $CFPlus::STAT_TOOLTIP{$name},
		319	);
		320	}
		321
		322	unshift @dialog, new CFPlus::UI::Label
		323	max_w => $::WIDTH * 0.4,
		324	ellipsise => 0,
		325	markup =>
		326	"<big><b>Character Creation: Stats</b></big>\n\n"
		327	. "<b>Stats</b> are a very important aspect of your character. You can use the tooltips to learn what each Stat governs.\n\n"
		328	. "The stats generated by the server are always sorted from Str (highest) to Cha (lowest). "
		329	. "They will be modified later by both the race and the class you choose.\n\n"
		330	. "You can create another set of stats, swap two stat values with each other or accept the stats as shown below and continue.\n"
		331	;
		332	}
		333
		334	push @dialog, my $entry = new CFPlus::UI::Entry
		335	on_changed => sub {
		336	$conn->send ("reply $_[1]");
		337	destroy_query_dialog $conn;
		338	0
		339	},
		340	;
		341
		342	$entry->grab_focus;
		343
		344	} else {
		345	$dialog->{tooltip} = "Enter the reply and press return (click on the entry to make sure it has keyboard focus)";
		346
		347	push @dialog, my $entry = new CFPlus::UI::Entry
		348	$flags & CS_QUERY_HIDEINPUT ? (hidden => "*") : (),
		349	on_activate => sub {
		350	$conn->send ("reply $_[1]");
		351	destroy_query_dialog $conn;
		352	0
		353	},
		354	;
		355
		356	$entry->grab_focus;
		357	}
		358
		359	$vbox->add (@dialog);
		360	$dialog->show;
118	}	361	}
119		362
120	sub start_game {	363	sub start_game {
121	status "logging in...";	364	status "logging in...";
122		365
		366	$LOGIN_BUTTON->set_text ("Logout");
		367	$SETUP_DIALOG->hide;
		368
123	my $mapsize = List::Util::min 32, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / 32;	369	my $mapsize = List::Util::min 32, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / 32;
124		370
125	$MAPCACHE = CFClient::db_table "mapcache_$CFG->{host}";	371	my ($host, $port) = split /:/, $CFG->{profile}{default}{host};
		372
126	$MAP = new CFClient::Map $mapsize, $mapsize;	373	$MAP = new CFPlus::Map $mapsize, $mapsize;
127
128	my ($host, $port) = split /:/, $CFG->{host};
129		374
130	$CONN = eval {	375	$CONN = eval {
131	new conn	376	new CFPlus::Protocol
132	host => $host,	377	host => $host,
133	port => $port || 13327,	378	port => $port || 13327,
134	user => $CFG->{user},	379	user => $CFG->{profile}{default}{user},
135	pass => $CFG->{password},	380	pass => $CFG->{profile}{default}{password},
136	mapw => $mapsize,	381	mapw => $mapsize,
137	maph => $mapsize,	382	maph => $mapsize,
138	;	383
		384	map_widget => $MAPWIDGET,
		385	logview => $LOGVIEW,
		386	statusbox => $STATUSBOX,
		387	map => $MAP,
		388	mapmap => $MAPMAP,
		389	query => \&server_query,
		390
		391	sound_play => sub {
		392	my ($x, $y, $soundnum, $type) = @_;
		393
		394	$SDL_MIXER
		395	or return;
		396
		397	my $chunk = $AUDIO_CHUNKS{$SOUNDS[$soundnum]}
		398	or return;
		399
		400	$chunk->play;
		401	},
139	};	402	};
140		403
141	if ($CONN) {	404	if ($CONN) {
142	CFClient::lowdelay fileno $CONN->{fh};	405	CFPlus::lowdelay fileno $CONN->{fh};
143		406
144	$LOGIN_BUTTON->set_text ("Logout");
145	status "login successful";	407	status "login successful";
146
147	$BUTTONBAR->{children}[1]->emit ("activate")
148	if $BUTTONBAR->{children}[1]->{state};
149
150	} else {	408	} else {
151	status "unable to connect";	409	status "unable to connect";
152	stop_game();	410	stop_game();
153	}	411	}
154	}	412	}
155		413
156	sub stop_game {	414	sub stop_game {
		415	$LOGIN_BUTTON->set_text ("Login");
		416	$SETUP_NOTEBOOK->set_current_page ($SETUP_SERVER);
		417	$SETUP_DIALOG->show;
		418	$PL_WINDOW->hide;
		419	$SPELL_PAGE->clear_spells;
		420
157	return unless $CONN;	421	return unless $CONN;
158		422
159	status "connection closed";	423	status "connection closed";
160	$LOGIN_BUTTON->set_text ("Login");	424
		425	destroy_query_dialog $CONN;
161	$CONN->destroy;	426	$CONN->destroy;
162	$CONN = 0; # false, does not autovivify	427	$CONN = 0; # false, does not autovivify
163		428
164	$BUTTONBAR->{children}[1]->emit ("activate")
165	unless $BUTTONBAR->{children}[1]->{state};
166
167	undef $MAPCACHE;
168	undef $MAP;	429	undef $MAP;
169	}	430	}
170		431
171	sub client_setup {	432	sub graphics_setup {
172	my $dialog = new CFClient::UI::FancyFrame	433	my $vbox = new CFPlus::UI::VBox;
173	title => "Client Setup",	434
174	child => (my $vbox = new CFClient::UI::VBox);
175	$vbox->add (my $table = new CFClient::UI::Table expand => 1, col_expand => [0, 1]);	435	$vbox->add (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]);
176		436
177	$table->add (0, 0, new CFClient::UI::Label valign => 0, align => 1, text => "Video Mode");	437	$table->add (0, 0, new CFPlus::UI::Label valign => 0, align => 1, text => "Video Mode");
178	$table->add (1, 0, my $hbox = new CFClient::UI::HBox);	438	$table->add (1, 0, my $hbox = new CFPlus::UI::HBox);
179		439
180	$hbox->add (my $mode_slider = new CFClient::UI::Slider expand => 1, req_w => 100, range => [$CFG->{sdl_mode}, 0, $#SDL_MODES, 0, 1]);	440	$hbox->add (my $mode_slider = new CFPlus::UI::Slider force_w => $WIDTH * 0.1, expand => 1, range => [$CFG->{sdl_mode}, 0, $#SDL_MODES, 0, 1]);
181	$hbox->add (my $mode_label = new CFClient::UI::Label align => 0, valign => 0, height => 0.8, template => "9999x9999");	441	$hbox->add (my $mode_label = new CFPlus::UI::Label align => 0, valign => 0, height => 0.8, template => "9999x9999");
182		442
183	$mode_slider->connect (changed => sub {	443	$mode_slider->connect (changed => sub {
184	my ($self, $value) = @_;	444	my ($self, $value) = @_;
185		445
186	$CFG->{sdl_mode} = $self->{range}[0] = $value = int $value;	446	$CFG->{sdl_mode} = $self->{range}[0] = $value = int $value;
…		…
188	});	448	});
189	$mode_slider->emit (changed => $mode_slider->{range}[0]);	449	$mode_slider->emit (changed => $mode_slider->{range}[0]);
190		450
191	my $row = 1;	451	my $row = 1;
192		452
193	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fullscreen");	453	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fullscreen");
194	$table->add (1, $row++, new CFClient::UI::CheckBox	454	$table->add (1, $row++, $FULLSCREEN_ENABLE = new CFPlus::UI::CheckBox
195	state => $CFG->{fullscreen},	455	state => $CFG->{fullscreen},
196	tooltip => "Bring the client into fullscreen mode.",	456	tooltip => "Bring the client into fullscreen mode.",
197	connect_changed => sub {	457	on_changed => sub { my ($self, $value) = @_; $CFG->{fullscreen} = $value; 0 }
198	my ($self, $value) = @_;
199	$CFG->{fullscreen} = $value;
200	}
201	);	458	);
202		459
203	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fast & Ugly");	460	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fast & Ugly");
204	$table->add (1, $row++, new CFClient::UI::CheckBox	461	$table->add (1, $row++, new CFPlus::UI::CheckBox
205	state => $CFG->{fast},	462	state => $CFG->{fast},
206	tooltip => "Lower the visual quality considerably to speed up rendering.",	463	tooltip => "Lower the visual quality considerably to speed up rendering.",
207	connect_changed => sub {	464	on_changed => sub { my ($self, $value) = @_; $CFG->{fast} = $value; 0 }
208	my ($self, $value) = @_;
209	$CFG->{fast} = $value;
210	}
211	);	465	);
212		466
213	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Map Scale");	467	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Map Scale");
214	$table->add (1, $row++, new CFClient::UI::Slider	468	$table->add (1, $row++, new CFPlus::UI::Slider
215	range => [(log $CFG->{map_scale}) / (log 2), -3, 1, 0, 1],	469	range => [(log $CFG->{map_scale}) / (log 2), -3, 1, 0, 1],
216	tooltip => "Enlarge or shrink the displayed map. Changes are instant.",	470	tooltip => "Enlarge or shrink the displayed map. Changes are instant.",
217	connect_changed => sub {	471	on_changed => sub { my ($self, $value) = @_; $CFG->{map_scale} = 2 ** $value; 0 }
218	my ($self, $value) = @_;
219	$CFG->{map_scale} = 2 ** $value;
220	}
221	);	472	);
222		473
223	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Fog of War");	474	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fog of War");
224	$table->add (1, $row++, new CFClient::UI::CheckBox	475	$table->add (1, $row++, new CFPlus::UI::CheckBox
225	state => $CFG->{fow_enable},	476	state => $CFG->{fow_enable},
226	tooltip => "<b>Fog-of-War</b> marks areas that cannot be seen by the player. Changes are instant.",	477	tooltip => "<b>Fog-of-War</b> marks areas that cannot be seen by the player. Changes are instant.",
227	connect_changed => sub {	478	on_changed => sub { my ($self, $value) = @_; $CFG->{fow_enable} = $value; 0 }
228	my ($self, $value) = @_;
229	$CFG->{fow_enable} = $value;
230	}
231	);	479	);
232		480
233	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "FoW Intensity");	481	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "FoW Intensity");
234	$table->add (1, $row++, new CFClient::UI::Slider	482	$table->add (1, $row++, new CFPlus::UI::Slider
235	range => [$CFG->{fow_intensity}, 0, 1, 0, 1 / 256],	483	range => [$CFG->{fow_intensity}, 0, 1, 0, 1 / 256],
236	tooltip => "<b>Fog of War Lightness.</b> The higher the intensity, the lighter the Fog-of-War color. Changes are instant.",	484	tooltip => "<b>Fog of War Lightness.</b> The higher the intensity, the lighter the Fog-of-War color. Changes are instant.",
237	connect_changed => sub {	485	on_changed => sub { my ($self, $value) = @_; $CFG->{fow_intensity} = $value; 0 }
238	my ($self, $value) = @_;
239	$CFG->{fow_intensity} = $value;
240	}
241	);	486	);
242		487
243	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "FoW Smooth");	488	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "FoW Smooth");
244	$table->add (1, $row++, new CFClient::UI::CheckBox	489	$table->add (1, $row++, new CFPlus::UI::CheckBox
245	state => $CFG->{fow_smooth},	490	state => $CFG->{fow_smooth},
246	tooltip => "Smooth the Fog-of-War a bit to make it more realistic. Changes are instant.",	491	tooltip => "Smooth the Fog-of-War a bit to make it more realistic. Changes are instant.",
247	connect_changed => sub {	492	on_changed => sub {
248	my ($self, $value) = @_;	493	my ($self, $value) = @_;
249	$CFG->{fow_smooth} = $value;	494	$CFG->{fow_smooth} = $value;
250	status "Fog of War smoothing requires OpenGL 1.2 or higher" if $CFClient::GL_VERSION < 1.2;	495	status "Fog of War smoothing requires OpenGL 1.2 or higher" if $CFPlus::OpenGL::GL_VERSION < 1.2;
		496	0
251	}	497	}
252	);	498	);
253		499
254	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "GUI Fontsize");	500	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "GUI Fontsize");
255	$table->add (1, $row++, new CFClient::UI::Slider	501	$table->add (1, $row++, new CFPlus::UI::Slider
256	range => [$CFG->{gui_fontsize}, 0.5, 2, 0, 0.1],	502	range => [$CFG->{gui_fontsize}, 0.5, 2, 0, 0.1],
257	tooltip => "The base font size used by most GUI elements that do not have their own setting.",	503	tooltip => "The base font size used by most GUI elements that do not have their own setting.",
258	connect_changed => sub { $CFG->{gui_fontsize} = $_[1] },	504	on_changed => sub { $CFG->{gui_fontsize} = $_[1]; 0 },
259	);	505	);
260		506
261	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Message Fontsize");	507	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Message Fontsize");
262	$table->add (1, $row++, new CFClient::UI::Slider	508	$table->add (1, $row++, new CFPlus::UI::Slider
263	range => [$CFG->{log_fontsize}, 0.5, 2, 0, 0.1],	509	range => [$CFG->{log_fontsize}, 0.5, 2, 0, 0.1],
264	tooltip => "The font size used by the <b>message/server log</b> window only. Changes are instant.",	510	tooltip => "The font size used by the <b>message/server log</b> window only. Changes are instant.",
265	connect_changed => sub { $LOGVIEW->set_fontsize ($CFG->{log_fontsize} = $_[1]) },	511	on_changed => sub { $LOGVIEW->set_fontsize ($CFG->{log_fontsize} = $_[1]); 0 },
266	);	512	);
267		513
268	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Stats Fontsize");
269
270	$table->add (1, $row++, new CFClient::UI::Slider
271	range => [$CFG->{stat_fontsize}, 0.5, 2, 0, 0.1],
272	tooltip => "The font size used by the <b>statistics window</b> only. Changes are instant.",
273	connect_changed => sub {
274	$CFG->{stat_fontsize} = $_[1];
275	&set_stats_window_fontsize;
276	}
277	);
278
279	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Gauge fontsize");	514	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Gauge fontsize");
280	$table->add (1, $row++, new CFClient::UI::Slider	515	$table->add (1, $row++, new CFPlus::UI::Slider
281	range => [$CFG->{gauge_fontsize}, 0.5, 2, 0, 0.1],	516	range => [$CFG->{gauge_fontsize}, 0.5, 2, 0, 0.1],
282	tooltip => "Adjusts the fontsize of the gauges at the bottom right. Changes are instant.",	517	tooltip => "Adjusts the fontsize of the gauges at the bottom right. Changes are instant.",
283	connect_changed => sub {	518	on_changed => sub {
284	$CFG->{gauge_fontsize} = $_[1];	519	$CFG->{gauge_fontsize} = $_[1];
285	&set_gauge_window_fontsize;	520	&set_gauge_window_fontsize;
		521	0
286	}	522	}
287	);	523	);
288		524
289	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Gauge size");	525	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Gauge size");
290	$table->add (1, $row++, new CFClient::UI::Slider	526	$table->add (1, $row++, new CFPlus::UI::Slider
291	range => [$CFG->{gauge_size}, 0.2, 0.8],	527	range => [$CFG->{gauge_size}, 0.2, 0.8],
292	tooltip => "Adjust the size of the stats gauges at the bottom right. Changes are instant.",	528	tooltip => "Adjust the size of the stats gauges at the bottom right. Changes are instant.",
293	connect_changed => sub {	529	on_changed => sub {
294	$CFG->{gauge_size} = $_[1];	530	$CFG->{gauge_size} = $_[1];
295	$GAUGES->{win}->set_size ($WIDTH, int $HEIGHT * $CFG->{gauge_size});	531	$GAUGES->{win}->set_size ($WIDTH, int $HEIGHT * $CFG->{gauge_size});
		532	0
296	}	533	}
297	);	534	);
298		535
299	$table->add (1, $row++, new CFClient::UI::Button	536	$table->add (1, $row++, new CFPlus::UI::Button
300	expand => 1, align => 0, text => "Apply",	537	expand => 1, align => 0, text => "Apply",
301	tooltip => "Apply the video settings",	538	tooltip => "Apply the video settings",
302	connect_activate => sub {	539	on_activate => sub {
303	video_shutdown ();	540	video_shutdown ();
304	video_init ();	541	video_init ();
		542	0
305	}	543	}
306	);	544	);
307		545
		546	$vbox
		547	}
		548
		549	sub audio_setup {
		550	my $vbox = new CFPlus::UI::VBox;
		551
		552	$vbox->add (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]);
		553
		554	my $row = 0;
		555
308	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Audio Enable");	556	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Audio Enable");
309	$table->add (1, $row++, new CFClient::UI::CheckBox	557	$table->add (1, $row++, new CFPlus::UI::CheckBox
310	state => $CFG->{audio_enable},	558	state => $CFG->{audio_enable},
311	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.",	559	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.",
312	connect_changed => sub {	560	on_changed => sub { $CFG->{audio_enable} = $_[1]; 0 }
313	$CFG->{audio_enable} = $_[1];
314	}
315	);	561	);
316	# $table->add (0, 9, new CFClient::UI::Label valign => 0, align => 1, text => "Effects Volume");	562	# $table->add (0, 9, new CFPlus::UI::Label valign => 0, align => 1, text => "Effects Volume");
317	# $table->add (1, 8, new CFClient::UI::Slider range => [$CFG->{effects_volume}, 0, 128, 1], connect_changed => sub {	563	# $table->add (1, 8, new CFPlus::UI::Slider range => [$CFG->{effects_volume}, 0, 128, 1], on_changed => sub {
318	# $CFG->{effects_volume} = $_[1];	564	# $CFG->{effects_volume} = $_[1];
319	# });	565	# });
320	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Background Music");	566	$table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Background Music");
321	$table->add (1, $row++, my $hbox = new CFClient::UI::HBox);	567	$table->add (1, $row++, my $hbox = new CFPlus::UI::HBox);
322	$hbox->add (new CFClient::UI::CheckBox	568	$hbox->add (new CFPlus::UI::CheckBox
323	expand => 1, state => $CFG->{bgm_enable},	569	expand => 1, state => $CFG->{bgm_enable},
324	tooltip => "If enabled, playing of background music is enabled. If disabled, no background music will be played.",	570	tooltip => "If enabled, playing of background music is enabled. If disabled, no background music will be played.",
325	connect_changed => sub {	571	on_changed => sub { $CFG->{bgm_enable} = $_[1]; 0 }
326	$CFG->{bgm_enable} = $_[1];
327	}
328	);	572	);
329	$hbox->add (new CFClient::UI::Slider	573	$hbox->add (new CFPlus::UI::Slider
330	expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0, 1/128],	574	expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0, 1/128],
331	tooltip => "The volume of the background music. Changes are instant.",	575	tooltip => "The volume of the background music. Changes are instant.",
332	connect_changed => sub {	576	on_changed => sub { $CFG->{bgm_volume} = $_[1]; CFPlus::MixMusic::volume $_[1] * 128; 0 }
333	$CFG->{bgm_volume} = $_[1];
334	CFClient::MixMusic::volume $_[1] * 128;
335	}
336	);	577	);
337		578
338	$table->add (1, $row++, new CFClient::UI::Button	579	$table->add (1, $row++, new CFPlus::UI::Button
339	expand => 1, align => 0, text => "Apply",	580	expand => 1, align => 0, text => "Apply",
340	tooltip => "Apply the audio settings",	581	tooltip => "Apply the audio settings",
341	connect_activate => sub {	582	on_activate => sub {
342	audio_shutdown ();	583	audio_shutdown ();
343	audio_init ();	584	audio_init ();
		585	0
344	}	586	}
345	);	587	);
346		588
347	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Chat Command");	589	$vbox
348	$table->add (1, $row++, my $saycmd = new CFClient::UI::Entry
349	text => $CFG->{say_command},
350	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. "
351	. "Usually you want to enter something like 'say' or 'shout' or 'gsay' here. "
352	. "But you could also set it to <b>tell <i>playername</i></b> to only chat with that user.",
353	connect_changed => sub {
354	my ($self, $value) = @_;
355	$CFG->{say_command} = $value;
356	}
357	);
358
359	$dialog
360	}
361
362	sub set_stats_window_fontsize {
363	for (values %{$STATWIDS}) {
364	$_->set_fontsize ($::CFG->{stat_fontsize});
365	}
366	}	590	}
367		591
368	sub set_gauge_window_fontsize {	592	sub set_gauge_window_fontsize {
369	for (map { $GAUGES->{$_} } grep { $_ ne 'win' } keys %{$GAUGES}) {	593	for (map { $GAUGES->{$_} } grep { $_ ne 'win' } keys %{$GAUGES}) {
370	$_->set_fontsize ($::CFG->{gauge_fontsize});	594	$_->set_fontsize ($::CFG->{gauge_fontsize});
…		…
372	}	596	}
373		597
374	sub make_gauge_window {	598	sub make_gauge_window {
375	my $gh = int $HEIGHT * $CFG->{gauge_size};	599	my $gh = int $HEIGHT * $CFG->{gauge_size};
376		600
377	my $win = new CFClient::UI::Frame (	601	my $win = new CFPlus::UI::Frame (
378	req_y => -1,	602	force_x => 0,
		603	force_y => "max",
379	user_w => $WIDTH,	604	force_w => $WIDTH,
380	user_h => $gh,	605	force_h => $gh,
381	);	606	);
382		607
383	$win->add (my $hbox = new CFClient::UI::HBox	608	$win->add (my $hbox = new CFPlus::UI::HBox
384	children => [	609	children => [
385	(new CFClient::UI::HBox expand => 1),	610	(new CFPlus::UI::HBox expand => 1),
386	(new CFClient::UI::VBox children => [	611	(new CFPlus::UI::VBox children => [
387	(new CFClient::UI::Empty expand => 1),	612	(new CFPlus::UI::Empty expand => 1),
388	(new CFClient::UI::Frame bg => [0, 0, 0, 0.4], child => ($FLOORBOX = new CFClient::UI::Table)),	613	(new CFPlus::UI::Frame bg => [0, 0, 0, 0.4], child => ($FLOORBOX = new CFPlus::UI::Table)),
389	]),	614	]),
390	(my $vbox = new CFClient::UI::VBox),	615	(my $vbox = new CFPlus::UI::VBox),
391	],	616	],
392	);	617	);
393		618
394	$vbox->add (new CFClient::UI::HBox	619	$vbox->add (new CFPlus::UI::HBox
395	expand => 1,	620	expand => 1,
396	children => [	621	children => [
397	(new CFClient::UI::Empty expand => 1),	622	(new CFPlus::UI::Empty expand => 1),
398	(my $hb = new CFClient::UI::HBox),	623	(my $hb = new CFPlus::UI::HBox),
399	],	624	],
400	);	625	);
401		626
402	$hb->add (my $hg = new CFClient::UI::Gauge type => 'hp',	627	$hb->add (my $hg = new CFPlus::UI::Gauge type => 'hp',
403	tooltip => "<b>Health points</b>. Measures of how much damage you can take before dying. Hit points are determined from your level and are influenced by the value of your Con. Hp value may range between 1 to beyond 500 and higher values indicate a greater ability to withstand punishment.");	628	tooltip => "<b>Health points</b>. Measures of how much damage you can take before dying. Hit points are determined from your level and are influenced by the value of your Con. Hp value may range between 1 to beyond 500 and higher values indicate a greater ability to withstand punishment.");
404	$hb->add (my $mg = new CFClient::UI::Gauge type => 'mana',	629	$hb->add (my $mg = new CFPlus::UI::Gauge type => 'mana',
405	tooltip => "<b>Spell points</b>. Measures of how much \"fuel\" you have for casting spells and incantations. Mana is calculated from your level and your Pow. Mana values can range between 1 to beyond 500 (glowing crystals can increase the current spell points beyond your normal maximum). Higher values indicate greater amounts of mana.");	630	tooltip => "<b>Spell points</b>. Measures of how much \"fuel\" you have for casting spells and incantations. Mana is calculated from your level and your Pow. Mana values can range between 1 to beyond 500 (glowing crystals can increase the current spell points beyond your normal maximum). Higher values indicate greater amounts of mana.");
406	$hb->add (my $gg = new CFClient::UI::Gauge type => 'grace',	631	$hb->add (my $gg = new CFPlus::UI::Gauge type => 'grace',
407	tooltip => "<b>Grace points</b> - how favored you are by your god. In game terms, how much divine magic you can cast. Your level, Wis and Pow effect what the value of grace is. Prayong on an altar of your god can increase this value beyond your normal maximum. Grace can take on large positive and negative values. Positive values indicate favor by the gods.");	632	tooltip => "<b>Grace points</b> - how favored you are by your god. In game terms, how much divine magic you can cast. Your level, Wis and Pow effect what the value of grace is. Prayong on an altar of your god can increase this value beyond your normal maximum. Grace can take on large positive and negative values. Positive values indicate favor by the gods.");
408	$hb->add (my $fg = new CFClient::UI::Gauge type => 'food',	633	$hb->add (my $fg = new CFPlus::UI::Gauge type => 'food',
409	tooltip => "<b>Food</b>. Ranges between 0 (starving) and 999 (satiated). At a value of 0 the character begins to die. Some magic can speed up or slow down the character digestion. Healing wounds will speed up digestion too.");	634	tooltip => "<b>Food</b>. Ranges between 0 (starving) and 999 (satiated). At a value of 0 the character begins to die. Some magic can speed up or slow down the character digestion. Healing wounds will speed up digestion too.");
410		635
411	$vbox->add (my $exp = new CFClient::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1,	636	$vbox->add (my $exp = new CFPlus::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1,
412	tooltip => "<b>Experience points and overall level</b> - experience is increased as a reward for appropriate action (such as killing monsters) and may decrease as a result of a magical attack or dying. Level is directly derived from the experience value. As the level of the character increases, the character becomes able to succeed at more difficult tasks. A character's level starts at a value of 0 and may range up beyond 100.");	637	tooltip => "<b>Experience points and overall level</b> - experience is increased as a reward for appropriate action (such as killing monsters) and may decrease as a result of a magical attack or dying. Level is directly derived from the experience value. As the level of the character increases, the character becomes able to succeed at more difficult tasks. A character's level starts at a value of 0 and may range up beyond 100.");
413	$vbox->add (my $rng = new CFClient::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1,	638	$vbox->add (my $rng = new CFPlus::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1,
414	tooltip => "<b>Ranged attack</b> - how you attack when you press shift-cursor (spell, skill, weapon etc.)");	639	tooltip => "<b>Ranged attack</b> - how you attack when you press shift-cursor (spell, skill, weapon etc.)");
415		640
416	$GAUGES = {	641	$GAUGES = {
417	exp => $exp, win => $win, range => $rng,	642	exp => $exp, win => $win, range => $rng,
418	food => $fg, mana => $mg, hp => $hg, grace => $gg	643	food => $fg, mana => $mg, hp => $hg, grace => $gg
…		…
421	&set_gauge_window_fontsize;	646	&set_gauge_window_fontsize;
422		647
423	$win	648	$win
424	}	649	}
425		650
		651	sub debug_setup {
		652	my $table = new CFPlus::UI::Table;
		653
		654	$table->add (0, 0, new CFPlus::UI::Label text => "Widget Borders");
		655	$table->add (1, 0, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 1; 0 });
		656	$table->add (0, 1, new CFPlus::UI::Label text => "Tooltip Widget Info");
		657	$table->add (1, 1, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 2; 0 });
		658	$table->add (0, 2, new CFPlus::UI::Label text => "Show FPS");
		659	$table->add (1, 2, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 4; 0 });
		660	$table->add (0, 3, new CFPlus::UI::Label text => "Suppress Tooltips");
		661	$table->add (1, 3, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 8; 0 });
		662
		663	my @default_smooth = (0.05, 0.13, 0.05, 0.13, 0.30, 0.13, 0.05, 0.13, 0.05);
		664
		665	for my $x (0..2) {
		666	for my $y (0 .. 2) {
		667	$table->add ($x + 3, $y,
		668	new CFPlus::UI::Entry
		669	text => $default_smooth[$x * 3 + $y],
		670	on_changed => sub { $MAP->{smooth_matrix}[$x * 3 + $y] = $_[1] if $MAP; 0 },
		671	);
		672	}
		673	}
		674
		675
		676	$table
		677	}
		678
426	sub make_stats_window {	679	sub stats_window {
427	my $tgw = new CFClient::UI::FancyFrame title => "Stats";	680	my $r = new CFPlus::UI::ScrolledWindow (
		681	expand => 1,
		682	scroll_y => 1
		683	);
		684	$r->add (my $vb = new CFPlus::UI::VBox);
428		685
429	$tgw->add (new CFClient::UI::Window child => my $vb = new CFClient::UI::VBox);
430	$vb->add ($STATWIDS->{title} = new CFClient::UI::Label valign => 0, align => -1, text => "Title:", expand => 1,	686	$vb->add ($STATWIDS->{title} = new CFPlus::UI::Label valign => 0, align => -1, text => "Title:", expand => 1,
431	can_hover => 1, can_events => 1,	687	can_hover => 1, can_events => 1,
432	tooltip => "Your name and title. You can change your title by using the <b>title</b> command, if supported by the server.");	688	tooltip => "Your name and title. You can change your title by using the <b>title</b> command, if supported by the server.");
433	$vb->add ($STATWIDS->{map} = new CFClient::UI::Label valign => 0, align => -1, text => "Map:", expand => 1,	689	$vb->add ($STATWIDS->{map} = new CFPlus::UI::Label valign => 0, align => -1, text => "Map:", expand => 1,
434	can_hover => 1, can_events => 1,	690	can_hover => 1, can_events => 1,
435	tooltip => "The map you are currently on (if supported by the server).");	691	tooltip => "The map you are currently on (if supported by the server).");
436		692
437	$vb->add (my $hb0 = new CFClient::UI::HBox);	693	$vb->add (my $hb0 = new CFPlus::UI::HBox);
438	$hb0->add ($STATWIDS->{weight} = new CFClient::UI::Label valign => 0, align => -1, text => "Weight:", expand => 1,	694	$hb0->add ($STATWIDS->{weight} = new CFPlus::UI::Label valign => 0, align => -1, text => "Weight:", expand => 1,
439	can_hover => 1, can_events => 1,	695	can_hover => 1, can_events => 1,
440	tooltip => "This is the amount the Player weights.");	696	tooltip => "The weight of the player including all inventory items.");
441	$hb0->add ($STATWIDS->{m_weight} = new CFClient::UI::Label valign => 0, align => -1, text => "Max weight:", expand => 1,	697	$hb0->add ($STATWIDS->{m_weight} = new CFPlus::UI::Label valign => 0, align => -1, text => "Max weight:", expand => 1,
442	can_hover => 1, can_events => 1,	698	can_hover => 1, can_events => 1,
443	tooltip => "The weight limit, you can't carry more than this.");	699	tooltip => "The weight limit: you cannot carry more than this.");
444		700
445
446	$vb->add (my $hb = new CFClient::UI::HBox expand => 1);	701	$vb->add (my $hb = new CFPlus::UI::HBox expand => 1);
447	$hb->add (my $tbl = new CFClient::UI::Table expand => 1);	702	$hb->add (my $tbl = new CFPlus::UI::Table expand => 1);
448		703
449	my $color2 = [1, 1, 0];	704	my $color2 = [1, 1, 0];
450		705
451	for (	706	for (
452	[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"],	707	[0, 0, st_str => "Str", 30],
453	[0, 1, st_dex => "Dex", 30, "<b>Dexterity</b>, your physical agility. Determines chance of being hit and affects armor class and speed"],	708	[0, 1, st_dex => "Dex", 30],
454	[0, 2, st_con => "Con", 30, "<b>Constitution</b>, physical health and toughness. Determines how many healthpoints you can have"],	709	[0, 2, st_con => "Con", 30],
455	[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"],	710	[0, 3, st_int => "Int", 30],
456	[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"],	711	[0, 4, st_wis => "Wis", 30],
457	[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"],	712	[0, 5, st_pow => "Pow", 30],
458	[0, 6, st_cha => "Cha", 30, "<b>Charisma</b>, how well you are received by NPCs. Affects buying and selling prices in shops."],	713	[0, 6, st_cha => "Cha", 30],
459		714
460	[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."],	715	[2, 0, st_wc => "Wc", -120],
461	[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."],	716	[2, 1, st_ac => "Ac", -120],
462	[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."],	717	[2, 2, st_dam => "Dam", 120],
463	[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."],	718	[2, 3, st_arm => "Arm", 120],
464	[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."],	719	[2, 4, st_spd => "Spd", 10.54],
465	[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."],	720	[2, 5, st_wspd => "WSp", 10.54],
466	) {	721	) {
467	my ($col, $row, $id, $label, $template, $tooltip) = @$_;	722	my ($col, $row, $id, $label, $template) = @$_;
468		723
469	$tbl->add ($col , $row, $STATWIDS->{$id} = new CFClient::UI::Label	724	$tbl->add ($col , $row, $STATWIDS->{$id} = new CFPlus::UI::Label
470	font => $FONT_FIXED, can_hover => 1, can_events => 1, valign => 0, align => +1, template => $template, tooltip => $tooltip);	725	font => $FONT_FIXED, can_hover => 1, can_events => 1, valign => 0,
		726	align => +1, template => $template, tooltip => $CFPlus::STAT_TOOLTIP{$label});
471	$tbl->add ($col + 1, $row, $STATWIDS->{"$id\_lbl"} = new CFClient::UI::Label	727	$tbl->add ($col + 1, $row, $STATWIDS->{"$id\_lbl"} = new CFPlus::UI::Label
472	font => $FONT_FIXED, can_hover => 1, can_events => 1, fg => $color2, valign => 0, align => -1, text => $label, tooltip => $tooltip);	728	font => $FONT_FIXED, can_hover => 1, can_events => 1, fg => $color2, valign => 0,
		729	align => -1, text => $label, tooltip => $CFPlus::STAT_TOOLTIP{$label});
473	}	730	}
474		731
475	$hb->add (my $tbl2 = new CFClient::UI::Table expand => 1);	732	$vb->add (my $tbl2 = new CFPlus::UI::Table expand => 1);
476		733
477	my $row = 0;	734	my $row = 0;
478	my $col = 0;	735	my $col = 0;
479		736
480	my %resist_names = (	737	my %resist_names = (
		738	slow => ["Slow",
481	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.)",	739	"<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.)"],
		740	holyw => ["Holy Word",
482	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.)",	741	"<b>Holy Word</b> (resistance you against getting the fear when someone whose god doesn't like you spells the holy word on you.)"],
		742	conf => ["Confusion",
483	conf => "<b>Confusion</b> (If you are hit by confusion you will move into random directions, and likely into monsters.)",	743	"<b>Confusion</b> (If you are hit by confusion you will move into random directions, and likely into monsters.)"],
		744	fire => ["Fire",
484	fire => "<b>Fire</b> (just your resistance to fire spells like burning hands, dragonbreath, meteor swarm fire, ...)",	745	"<b>Fire</b> (just your resistance to fire spells like burning hands, dragonbreath, meteor swarm fire, ...)"],
		746	depl => ["Depletion",
485	depl => "<b>Depletion</b> (some monsters and other effects can cause stats depletion)",	747	"<b>Depletion</b> (some monsters and other effects can cause stats depletion)"],
		748	magic => ["Magic",
486	magic => "<b>Magic</b> (resistance to magic spells like magic missile or similar)",	749	"<b>Magic</b> (resistance to magic spells like magic missile or similar)"],
		750	drain => ["Draining",
487	drain => "<b>Draining</b> (some monsters (e.g. vampires) and other effects can steal experience)",	751	"<b>Draining</b> (some monsters (e.g. vampires) and other effects can steal experience)"],
		752	acid => ["Acid",
488	acid => "<b>Acid</b> (resistance to acid, acid hurts pretty much and also corrodes your weapons)",	753	"<b>Acid</b> (resistance to acid, acid hurts pretty much and also corrodes your weapons)"],
		754	pois => ["Poison",
489	pois => "<b>Poison</b> (resistance to getting poisoned)",	755	"<b>Poison</b> (resistance to getting poisoned)"],
		756	para => ["Paralysation",
490	para => "<b>Paralysation</b> (this resistance affects the chance you get paralysed)",	757	"<b>Paralysation</b> (this resistance affects the chance you get paralysed)"],
		758	deat => ["Death",
491	deat => "<b>Death</b> (resistance against death spells)",	759	"<b>Death</b> (resistance against death spells)"],
492	phys => "<b>Physical</b> (this is the resistance against physical attacks, like when a monster hit you in melee combat)",	760	phys => ["Physical",
		761	"<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.)"],
		762	blind => ["Blind",
493	blind => "<b>Blind</b> (blind resistance affects the chance of a successful blinding attack)",	763	"<b>Blind</b> (blind resistance affects the chance of a successful blinding attack)"],
		764	fear => ["Fear",
494	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)",	765	"<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)"],
		766	tund => ["Turn undead",
495	tund => "<b>Turn undead</b> (affects your resistancy to various forms of 'turn undead' spells. Only relevant when you are, in fact, undead...",	767	"<b>Turn undead</b> (affects your resistancy to various forms of 'turn undead' spells. Only relevant when you are, in fact, undead..."],
		768	elec => ["Electricity",
496	elec => "<b>Electricity</b> (resistance against electricity, spells like large lightning, small lightning, ...)",	769	"<b>Electricity</b> (resistance against electricity, spells like large lightning, small lightning, ...)"],
		770	cold => ["Cold",
497	cold => "<b>Cold</b> (this is your resistance against cold spells like icestorm, snowstorm, ...)",	771	"<b>Cold</b> (this is your resistance against cold spells like icestorm, snowstorm, ...)"],
		772	ghit => ["Ghost hit",
498	ghit => "<b>Ghost hit</b> (special attack used by ghosts and ghost-like beings)",	773	"<b>Ghost hit</b> (special attack used by ghosts and ghost-like beings)"],
499	);	774	);
500	for (qw/slow holyw conf fire depl magic	775	for (qw/slow holyw conf fire depl magic
501	drain acid pois para deat phys	776	drain acid pois para deat phys
502	blind fear tund elec cold ghit/)	777	blind fear tund elec cold ghit/)
503	{	778	{
504	$tbl2->add ($col, $row,	779	$tbl2->add ($col, $row,
505	$STATWIDS->{"res_$_"} =	780	$STATWIDS->{"res_$_"} =
506	new CFClient::UI::Label	781	new CFPlus::UI::Label
507	font => $FONT_FIXED,	782	font => $FONT_FIXED,
508	template => "-100%",	783	template => "-100%",
509	align => +1,	784	align => +1,
510	valign => 0,	785	valign => 0,
511	can_events => 1,	786	can_events => 1,
512	can_hover => 1,	787	can_hover => 1,
513	tooltip => $resist_names{$_},	788	tooltip => $resist_names{$_}->[1],
514	);	789	);
515	$tbl2->add ($col + 1, $row, new CFClient::UI::Image	790	$tbl2->add ($col + 1, $row, new CFPlus::UI::Image
516	font => $FONT_FIXED,	791	font => $FONT_FIXED,
517	can_hover => 1,	792	can_hover => 1,
518	can_events => 1,	793	can_events => 1,
519	image => "ui/resist/resist_$_.png",	794	path => "ui/resist/resist_$_.png",
520	tooltip => $resist_names{$_},	795	tooltip => $resist_names{$_}->[1],
		796	);
		797	$tbl2->add ($col + 2, $row, new CFPlus::UI::Label
		798	text => $resist_names{$_}->[0],
		799	font => $FONT_FIXED,
		800	can_hover => 1,
		801	can_events => 1,
		802	tooltip => $resist_names{$_}->[1],
521	);	803	);
522		804
523	$row++;	805	$row++;
524	if ($row % 6 == 0) {	806	if ($row % 6 == 0) {
525	$col += 2;	807	$col += 3;
526	$row = 0;	808	$row = 0;
527	}	809	}
528	}	810	}
529		811
530	&set_stats_window_fontsize;
531	update_stats_window ({});	812	#update_stats_window ({});
532		813
		814	$r
		815	}
		816
		817	sub skill_window {
		818	my $sw = new CFPlus::UI::ScrolledWindow (expand => 1);
		819	$sw->add ($STATWIDS->{skill_tbl} = new CFPlus::UI::Table expand => 1, col_expand => [0, 0, 1, 0, 0, 1]);
533	$tgw	820	$sw
534	}	821	}
535		822
536	sub formsep {	823	sub formsep($) {
537	reverse join ",", grep length, split /(...)/, reverse $_[0] * 1	824	scalar reverse join ",", unpack "(A3)*", reverse $_[0] * 1
538	}
539
540	sub update_stats_window {
541	my ($stats) = @_;
542
543	# i love text protocols!!!
544	my $hp = $stats->{Crossfire::Protocol::CS_STAT_HP} * 1;
545	my $hp_m = $stats->{Crossfire::Protocol::CS_STAT_MAXHP} * 1;
546	my $sp = $stats->{Crossfire::Protocol::CS_STAT_SP} * 1;
547	my $sp_m = $stats->{Crossfire::Protocol::CS_STAT_MAXSP} * 1;
548	my $fo = $stats->{Crossfire::Protocol::CS_STAT_FOOD} * 1;
549	my $fo_m = 999;
550	my $gr = $stats->{Crossfire::Protocol::CS_STAT_GRACE} * 1;
551	my $gr_m = $stats->{Crossfire::Protocol::CS_STAT_MAXGRACE} * 1;
552
553	$GAUGES->{hp} ->set_value ($hp, $hp_m);
554	$GAUGES->{mana} ->set_value ($sp, $sp_m);
555	$GAUGES->{food} ->set_value ($fo, $fo_m);
556	$GAUGES->{grace} ->set_value ($gr, $gr_m);
557	$GAUGES->{exp} ->set_text ("Exp: " . (formsep $stats->{Crossfire::Protocol::CS_STAT_EXP64})
558	. " (lvl " . ($stats->{Crossfire::Protocol::CS_STAT_LEVEL} * 1) . ")");
559	my $rng = $stats->{Crossfire::Protocol::CS_STAT_RANGE};
560	$rng =~ s/^Range: //; # thank you so much dear server
561	$GAUGES->{range} ->set_text ("Rng: " . $rng);
562	my $title = $stats->{Crossfire::Protocol::CS_STAT_TITLE};
563	$title =~ s/^Player: //;
564	$STATWIDS->{title} ->set_text ("Title: " . $title);
565
566	$STATWIDS->{st_str} ->set_text (sprintf "%d", $stats->{5});
567	$STATWIDS->{st_dex} ->set_text (sprintf "%d", $stats->{8});
568	$STATWIDS->{st_con} ->set_text (sprintf "%d", $stats->{9});
569	$STATWIDS->{st_int} ->set_text (sprintf "%d", $stats->{6});
570	$STATWIDS->{st_wis} ->set_text (sprintf "%d", $stats->{7});
571	$STATWIDS->{st_pow} ->set_text (sprintf "%d", $stats->{22});
572	$STATWIDS->{st_cha} ->set_text (sprintf "%d", $stats->{10});
573	$STATWIDS->{st_wc} ->set_text (sprintf "%d", $stats->{13});
574	$STATWIDS->{st_ac} ->set_text (sprintf "%d", $stats->{14});
575	$STATWIDS->{st_dam} ->set_text (sprintf "%d", $stats->{15});
576	$STATWIDS->{st_arm} ->set_text (sprintf "%d", $stats->{16});
577	$STATWIDS->{st_spd} ->set_text (sprintf "%.1f", $stats->{Crossfire::Protocol::CS_STAT_SPEED});
578	$STATWIDS->{st_wspd}->set_text (sprintf "%.1f", $stats->{Crossfire::Protocol::CS_STAT_WEAP_SP});
579
580	$STATWIDS->{m_weight}->set_text (sprintf "Max weight: %.1fkg", $stats->{Crossfire::Protocol::CS_STAT_WEIGHT_LIM} / 1000);
581
582	my %tbl = (
583	phys => 100,
584	magic => 101,
585	fire => 102,
586	elec => 103,
587	cold => 104,
588	conf => 105,
589	acid => 106,
590	drain => 107,
591	ghit => 108,
592	pois => 109,
593	slow => 110,
594	para => 111,
595	tund => 112,
596	fear => 113,
597	depl => 113,
598	deat => 115,
599	holyw => 116,
600	blind => 117
601	);
602
603	for (keys %tbl) {
604	$STATWIDS->{"res_$_"}->set_text (sprintf "%d%", $stats->{$tbl{$_}});
605	}
606
607	}
608
609	sub metaserver_dialog {
610	my $dialog = new CFClient::UI::FancyFrame
611	title => "Server List",
612	child => (my $vbox = new CFClient::UI::VBox);
613
614	$vbox->add ($dialog->{table} = new CFClient::UI::Table);
615
616	$dialog
617	}	825	}
618		826
619	my $METASERVER_ATIME;	827	my $METASERVER_ATIME;
620		828
621	sub update_metaserver {	829	sub update_metaserver {
622	my ($HOST) = @_;	830	my ($metaserver_dialog) = @_;
		831
		832	$METASERVER = $metaserver_dialog
		833	if defined $metaserver_dialog;
623		834
624	return if $METASERVER_ATIME > time;	835	return if $METASERVER_ATIME > time;
625	$METASERVER_ATIME = time + 60;	836	$METASERVER_ATIME = time + 60;
626		837
627	my $table = $METASERVER->{table};	838	my $table = $METASERVER->{table};
628	$table->clear;	839	$table->clear;
629	$table->add (0, 0, my $label = new CFClient::UI::Label max_w => $WIDTH * 0.8, text => "fetching server list...");	840	$table->add (0, 0, my $label = new CFPlus::UI::Label max_w => $WIDTH * 0.8, text => "fetching server list...");
630		841
631	my $buf;	842	my $buf;
632		843
633	my $fh = new IO::Socket::INET PeerHost => $META_SERVER, Blocking => 0;	844	my $fh = new IO::Socket::INET PeerHost => $META_SERVER, Blocking => 0;
634		845
…		…
649		860
650	utf8::decode $buf if utf8::valid $buf;	861	utf8::decode $buf if utf8::valid $buf;
651		862
652	$table->clear;	863	$table->clear;
653		864
		865	my @tip = (
		866	"The current number of users logged in on the server.",
		867	"The hostname of the server.",
		868	"The time this server has been running without being restarted.",
		869	"The server software version - a '+' indicates a Crossfire+ server.",
		870	"Short information about this server provided by its admins.",
		871	);
654	my @col = qw(Use #Users Host Uptime Version Description);	872	my @col = qw(#Users Host Uptime Version Description);
655	$table->add ($_, 0, new CFClient::UI::Label align => 0, fg => [1, 1, 0], text => $col[$_])	873	$table->add ($_, 0, new CFPlus::UI::Label
		874	can_hover => 1, can_events => 1,
		875	align => 0, fg => [1, 1, 0],
		876	text => $col[$_], tooltip => $tip[$_])
656	for 0 .. $#col;	877	for 0 .. $#col;
657		878
658	my @align = qw(1 0 1 1 -1);	879	my @align = qw(1 0 1 1 -1);
659		880
660	my $y = 0;	881	my $y = 0;
661	for my $m (sort { $b->[3] <=> $a->[3] } map [split /\|/], split /\015?\012/, $buf) {	882	for my $m (sort { $b->[3] <=> $a->[3] } map [split /\|/], split /\015?\012/, $buf) {
…		…
678		899
679	$m = [$users, $host, $uptime, $version, $desc];	900	$m = [$users, $host, $uptime, $version, $desc];
680		901
681	$y++;	902	$y++;
682		903
683	$table->add (0, $y, new CFClient::UI::VBox children => [	904	$table->add (scalar @$m, $y, new CFPlus::UI::VBox children => [
684	(new CFClient::UI::Button text => "Use", connect_activate => sub {	905	(new CFPlus::UI::Button
		906	text => "Use",
		907	tooltip => "Put this server into the <b>Host:Port</b> field",
		908	on_activate => sub {
685	$HOST->set_text ($CFG->{host} = $host);	909	$HOST_ENTRY->set_text ($CFG->{profile}{default}{host} = $host);
		910	$METASERVER->hide;
		911	0
		912	},
686	}),	913	),
687	(new CFClient::UI::Empty expand => 1),	914	(new CFPlus::UI::Empty expand => 1),
688	]);	915	]);
689		916
690	$table->add ($_ + 1, $y, new CFClient::UI::Label	917	$table->add ($_, $y, new CFPlus::UI::Label
691	ellipsise => 0, align => $align[$_], text => $m->[$_], fontsize => 0.8)	918	ellipsise => 0,
		919	align => $align[$_],
		920	text => $m->[$_],
		921	tooltip => $tip[$_],
		922	can_hover => 1,
		923	can_events => 1,
		924	fontsize => 0.8)
692	for 0 .. $#$m;	925	for 0 .. $#$m;
693	}	926	}
694	}	927	}
695	});	928	});
696	}	929	}
697		930
		931	sub metaserver_dialog {
		932	my $vbox = new CFPlus::UI::VBox;
		933	my $table = new CFPlus::UI::Table;
		934	$vbox->add (new CFPlus::UI::ScrolledWindow expand => 1, child => $table);
		935
		936	my $dialog = new CFPlus::UI::FancyFrame
		937	title => "Server List",
		938	name => 'metaserver_dialog',
		939	x => 'center',
		940	y => 'center',
		941	z => 3,
		942	force_h => $::HEIGHT * 0.4,
		943	child => $vbox,
		944	has_close_button => 1,
		945	table => $table,
		946	on_visibility_change => sub {
		947	update_metaserver ($_[0]) if $_[1];
		948	0
		949	},
		950	;
		951
		952	$dialog
		953	}
		954
698	sub server_setup {	955	sub server_setup {
699	my $dialog = new CFClient::UI::FancyFrame	956	my $vbox = new CFPlus::UI::VBox;
700	title => "Server Setup",	957
701	child => (my $vbox = new CFClient::UI::VBox);
702
703	$vbox->add (my $table = new CFClient::UI::Table expand => 1, col_expand => [0, 1]);	958	$vbox->add (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]);
704	$table->add (0, 2, new CFClient::UI::Label valign => 0, align => 1, text => "Host:Port");	959	$table->add (0, 2, new CFPlus::UI::Label valign => 0, align => 1, text => "Host:Port");
705		960
706	{	961	{
707	$table->add (1, 2, my $vbox = new CFClient::UI::VBox);	962	$table->add (1, 2, my $vbox = new CFPlus::UI::VBox);
708		963
709	$vbox->add (	964	$vbox->add (
710	my $HOST = new CFClient::UI::Entry	965	$HOST_ENTRY = new CFPlus::UI::Entry
711	expand => 1,	966	expand => 1,
712	text => $CFG->{host},	967	text => $CFG->{profile}{default}{host},
713	tooltip => "The hostname or ip address of the Crossfire(+) server to connect to",	968	tooltip => "The hostname or ip address of the Crossfire(+) server to connect to",
714	connect_changed => sub {	969	on_changed => sub {
715	my ($self, $value) = @_;	970	my ($self, $value) = @_;
716	$CFG->{host} = $value;	971	$CFG->{profile}{default}{host} = $value;
		972	0
717	}	973	}
718	);	974	);
719		975
720	$METASERVER = metaserver_dialog;
721
722	$vbox->add (new CFClient::UI::Flopper	976	$vbox->add (new CFPlus::UI::Button
723	expand => 1,	977	expand => 1,
724	text => "Server List",	978	text => "Server List",
725	other => $METASERVER,	979	other => $METASERVER,
726	tooltip => "Show a list of available crossfire servers",	980	tooltip => "Show a list of available crossfire servers",
727	connect_open => sub {	981	on_activate => sub { $METASERVER->toggle_visibility; 0 },
728	update_metaserver $HOST;	982	on_visibility_change => sub { $METASERVER->hide unless $_[1]; 0 },
729	}
730	);	983	);
731	}	984	}
732		985
733	$table->add (0, 4, new CFClient::UI::Label valign => 0, align => 1, text => "Username");	986	$table->add (0, 4, new CFPlus::UI::Label valign => 0, align => 1, text => "Username");
734	$table->add (1, 4, new CFClient::UI::Entry	987	$table->add (1, 4, new CFPlus::UI::Entry
735	text => $CFG->{user},	988	text => $CFG->{profile}{default}{user},
736	tooltip => "The name of your character on the server",	989	tooltip => "The name of your character on the server",
737	connect_changed => sub {	990	on_changed => sub { my ($self, $value) = @_; $CFG->{profile}{default}{user} = $value }
738	my ($self, $value) = @_;
739	$CFG->{user} = $value;
740	}
741	);	991	);
742		992
743	$table->add (0, 5, new CFClient::UI::Label valign => 0, align => 1, text => "Password");	993	$table->add (0, 5, new CFPlus::UI::Label valign => 0, align => 1, text => "Password");
744	$table->add (1, 5, new CFClient::UI::Entry	994	$table->add (1, 5, new CFPlus::UI::Entry
745	text => $CFG->{password},	995	text => $CFG->{profile}{default}{password},
746	hidden => 1,	996	hidden => 1,
747	tooltip => "The password for your character",	997	tooltip => "The password for your character",
748	connect_changed => sub {	998	on_changed => sub { my ($self, $value) = @_; $CFG->{profile}{default}{password} = $value }
749	my ($self, $value) = @_;
750	$CFG->{password} = $value;
751	}
752	);	999	);
753		1000
754	$table->add (0, 7, new CFClient::UI::Label valign => 0, align => 1, text => "Map Size");	1001	$table->add (0, 7, new CFPlus::UI::Label valign => 0, align => 1, text => "Map Size");
755	$table->add (1, 7, new CFClient::UI::Slider	1002	$table->add (1, 7, new CFPlus::UI::Slider
756	req_w => 100,	1003	force_w => 100,
757	range => [$CFG->{mapsize}, 10, 100, 0, 1],	1004	range => [$CFG->{mapsize}, 10, 100, 0, 1],
758	tooltip => "This is the size of the portion of the map update the server sends you. "	1005	tooltip => "This is the size of the portion of the map update the server sends you. "
759	. "If you set this to a high value you will be able to see further, "	1006	. "If you set this to a high value you will be able to see further, "
760	. "but you also increase bandwidth requirements and latency. "	1007	. "but you also increase bandwidth requirements and latency. "
761	. "This option is only used once at log-in.",	1008	. "This option is only used once at log-in.",
762	connect_changed => sub {	1009	on_changed => sub { my ($self, $value) = @_; $CFG->{mapsize} = $self->{range}[0] = $value = int $value; 0 },
763	my ($self, $value) = @_;
764
765	$CFG->{mapsize} = $self->{range}[0] = $value = int $value;
766	},
767	);	1010	);
768		1011
769	$table->add (0, 8, new CFClient::UI::Label valign => 0, align => 1, text => "Face Prefetch");	1012	$table->add (0, 8, new CFPlus::UI::Label valign => 0, align => 1, text => "Face Prefetch");
770	$table->add (1, 8, new CFClient::UI::CheckBox	1013	$table->add (1, 8, new CFPlus::UI::CheckBox
771	state => $CFG->{face_prefetch},	1014	state => $CFG->{face_prefetch},
772	tooltip => "<b>Background Image Prefetch</b>\n\n"	1015	tooltip => "<b>Background Image Prefetch</b>\n\n"
773	. "If enabled, the client automatically pre-fetches images from the server. "	1016	. "If enabled, the client automatically pre-fetches images from the server. "
774	. "This might increase or create lag, but increases the chances "	1017	. "This might increase or create lag, but increases the chances "
775	. "of faces being ready for display when you encounter them. "	1018	. "of faces being ready for display when you encounter them. "
776	. "It also uses up server bandwidth on every connect, "	1019	. "It also uses up server bandwidth on every connect, "
777	. "so only set it if you really need to prefetch images. "	1020	. "so only set it if you really need to prefetch images. "
778	. "This option can be set and unset any time.",	1021	. "This option can be set and unset any time.",
779	connect_changed => sub { $CFG->{face_prefetch} = $_[1] },	1022	on_changed => sub { $CFG->{face_prefetch} = $_[1]; 0 },
780	);	1023	);
781		1024
782	$table->add (0, 9, new CFClient::UI::Label valign => 0, align => 1, text => "Output-Count");	1025	$table->add (0, 9, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Count");
783	$table->add (1, 9, new CFClient::UI::Entry	1026	$table->add (1, 9, new CFPlus::UI::Entry
784	text => $CFG->{output_count},	1027	text => $CFG->{output_count},
785	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.",
786	connect_changed => sub { $CFG->{output_count} = $_[1] },	1029	on_changed => sub { $CFG->{output_count} = $_[1]; 0 },
787	);	1030	);
788		1031
789	$table->add (0, 10, new CFClient::UI::Label valign => 0, align => 1, text => "Output-Sync");	1032	$table->add (0, 10, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Sync");
790	$table->add (1, 10, new CFClient::UI::Entry	1033	$table->add (1, 10, new CFPlus::UI::Entry
791	text => $CFG->{output_sync},	1034	text => $CFG->{output_sync},
792	tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.",	1035	tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.",
793	connect_changed => sub { $CFG->{output_sync} = $_[1] },	1036	on_changed => sub { $CFG->{output_sync} = $_[1]; 0 },
794	);	1037	);
795		1038
796	$table->add (1, 11, $LOGIN_BUTTON = new CFClient::UI::Button	1039	$table->add (1, 11, $LOGIN_BUTTON = new CFPlus::UI::Button
797	expand => 1,	1040	expand => 1,
798	align => 0,	1041	align => 0,
799	text => "Login",	1042	text => "Login",
800	connect_activate => sub {	1043	on_activate => sub {
801	$CONN ? stop_game	1044	$CONN ? stop_game
802	: start_game;	1045	: start_game;
		1046	0
803	},	1047	},
804	);	1048	);
805		1049
806	$dialog	1050	$table->add (0, 12, new CFPlus::UI::Label valign => 0, align => 1, text => "Chat Command");
		1051	$table->add (1, 12, my $saycmd = new CFPlus::UI::Entry
		1052	text => $CFG->{say_command},
		1053	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. "
		1054	. "Usually you want to enter something like 'say' or 'shout' or 'gsay' here. "
		1055	. "But you could also set it to <b>tell <i>playername</i></b> to only chat with that user.",
		1056	on_changed => sub {
		1057	my ($self, $value) = @_;
		1058	$CFG->{say_command} = $value;
		1059	0
		1060	}
		1061	);
		1062
		1063	$vbox->add (new CFPlus::UI::Label
		1064	text => "Server Info",
		1065	fontsize => 1.2,
		1066	padding_y => 8,
		1067	fg => [1, 1, 0, 1],
		1068	);
		1069
		1070	$vbox->add ($SERVER_INFO = new CFPlus::UI::Label ellipsise => 0);
		1071
		1072	$vbox
807	}	1073	}
808		1074
809	sub message_window {	1075	sub message_window {
810	my $window = new CFClient::UI::FancyFrame	1076	my $window = new CFPlus::UI::FancyFrame
		1077	name => "message_window",
811	title => "Messages",	1078	title => "Messages",
812	border_bg => [1, 1, 1, 1],	1079	border_bg => [1, 1, 1, 1],
813	bg => [0, 0, 0, 0.75],	1080	x => "max",
814	user_w => int $::WIDTH / 3,	1081	y => 0,
		1082	force_w => $::WIDTH * 0.4,
815	user_h => int $::HEIGHT / 5,	1083	force_h => $::HEIGHT * 0.5,
816	child => (my $vbox = new CFClient::UI::VBox);	1084	child => (my $vbox = new CFPlus::UI::VBox),
		1085	has_close_button => 1;
817		1086
818	$vbox->add ($LOGVIEW);	1087	$vbox->add ($LOGVIEW);
819		1088
820	$vbox->add (my $input = new CFClient::UI::Entry	1089	$vbox->add (my $input = new CFPlus::UI::Entry
821	tooltip => "<b>Chat Box</b>. If you enter a text and press return/enter here, the current <i>communication command</i> "	1090	tooltip => "<b>Chat Box</b>. If you enter a text and press return/enter here, the current <i>communication command</i> "
822	. "from the client setup will be prepended (e.g. <b>shout</b>, <b>chat</b>...). "	1091	. "from the client setup will be prepended (e.g. <b>shout</b>, <b>chat</b>...). "
823	. "If you prepend a slash (/), you will submit a command instead (similar to IRC). "	1092	. "If you prepend a slash (/), you will submit a command instead (similar to IRC). "
824	. "A better way to submit commands (and the occasional chat command) is often the map command completer.",	1093	. "A better way to submit commands (and the occasional chat command) is often the map command completer.",
825	connect_focus_in => sub {	1094	on_focus_in => sub {
826	my ($input, $prev_focus) = @_;	1095	my ($input, $prev_focus) = @_;
827		1096
828	delete $input->{refocus_map};	1097	delete $input->{refocus_map};
829		1098
830	if ($prev_focus == $MAPWIDGET && $input->{auto_activated}) {	1099	if ($prev_focus == $MAPWIDGET && $input->{auto_activated}) {
831	$input->{refocus_map} = 1;	1100	$input->{refocus_map} = 1;
832	}	1101	}
833	delete $input->{auto_activated};	1102	delete $input->{auto_activated};
		1103
		1104	0
834	},	1105	},
835	connect_activate => sub {	1106	on_activate => sub {
836	my ($input, $text) = @_;	1107	my ($input, $text) = @_;
837	$input->set_text ('');	1108	$input->set_text ('');
838		1109
839	if ($text =~ /^\/(.*)/) {	1110	if ($text =~ /^\/(.*)/) {
840	$::CONN->user_send ($1);	1111	$::CONN->user_send ($1);
…		…
844	}	1115	}
845	if ($input->{refocus_map}) {	1116	if ($input->{refocus_map}) {
846	delete $input->{refocus_map};	1117	delete $input->{refocus_map};
847	$MAPWIDGET->focus_in	1118	$MAPWIDGET->focus_in
848	}	1119	}
		1120
		1121	0
849	},	1122	},
850	connect_escape => sub {	1123	on_escape => sub {
851	$MAPWIDGET->focus_in	1124	$MAPWIDGET->grab_focus;
		1125
		1126	0
852	},	1127	},
853	);	1128	);
854		1129
855	$CONSOLE = {	1130	$CONSOLE = {
856	window => $window,	1131	window => $window,
857	input => $input	1132	input => $input,
858	};	1133	};
859		1134
860	$window	1135	$window
861	}	1136	}
862		1137
863	sub open_quit_dialog {	1138	sub open_quit_dialog {
864	unless ($QUIT_DIALOG) {	1139	unless ($QUIT_DIALOG) {
		1140	$QUIT_DIALOG = new CFPlus::UI::FancyFrame
		1141	x => "center",
		1142	y => "center",
		1143	z => 50,
		1144	title => "Really Quit?",
		1145	on_key_down => sub {
		1146	my ($dialog, $ev) = @_;
		1147	$ev->{sym} == 27 and $dialog->hide;
		1148	}
		1149	;
865		1150
866	$QUIT_DIALOG = new CFClient::UI::FancyFrame title => "Really Quit?";
867
868	$QUIT_DIALOG->add (my $vb = new CFClient::UI::VBox expand => 1);	1151	$QUIT_DIALOG->add (my $vb = new CFPlus::UI::VBox expand => 1);
869		1152
870	$vb->add (new CFClient::UI::Label	1153	$vb->add (new CFPlus::UI::Label
871	text => "You should find a savebed and apply it first!",	1154	text => "You should find a savebed and apply it first!",
872	max_w => $WIDTH * 0.25,	1155	max_w => $WIDTH * 0.25,
873	ellipsize => 0,	1156	ellipsize => 0,
874	);	1157	);
875	$vb->add (my $hb = new CFClient::UI::HBox expand => 1);	1158	$vb->add (my $hb = new CFPlus::UI::HBox expand => 1);
876	$hb->add (new CFClient::UI::Button	1159	$hb->add (new CFPlus::UI::Button
877	text => "Ok",	1160	text => "Ok",
878	expand => 1,	1161	expand => 1,
879	connect_activate => sub { $QUIT_DIALOG->hide },	1162	on_activate => sub { $QUIT_DIALOG->hide; 0 },
880	);	1163	);
881	$hb->add (new CFClient::UI::Button	1164	$hb->add (new CFPlus::UI::Button
882	text => "Quit anyway",	1165	text => "Quit anyway",
883	expand => 1,	1166	expand => 1,
884	connect_activate => sub { exit },	1167	on_activate => sub { exit },
885	);
886
887	$QUIT_DIALOG->show_centered;
888	} else {
889	$QUIT_DIALOG->show_centered;
890	}
891	}
892
893	sub make_inventory_window {
894	my $invwin = new CFClient::UI::FancyFrame
895	user_w => $WIDTH * (7/8), user_h => $HEIGHT * (7/8), title => "Inventory";
896
897	$invwin->add (my $hb = new CFClient::UI::HBox expand => 1);
898
899	$hb->add (my $vb1 = new CFClient::UI::VBox expand => 1);
900	$vb1->add (my $lbl = new CFClient::UI::Label xalign => 0.5);
901	$lbl->set_text ("Player");
902	$vb1->add ($INV = new CFClient::UI::Inventory expand => 1);
903
904	$hb->add (my $vb2 = new CFClient::UI::VBox expand => 1);
905	$vb2->add ($INVR_LBL = new CFClient::UI::Label xalign => 0.5);
906	$INVR_LBL->set_text ("Floor");
907	$vb2->add ($INVR = new CFClient::UI::Inventory expand => 1);
908
909	$invwin
910	}
911
912	sub make_help_window {
913	my $win = new CFClient::UI::FancyFrame
914	user_w => $WIDTH * (7/8), user_h => $HEIGHT * (7/8), title => "Documentation";
915
916	$win->add (my $vbox = new CFClient::UI::VBox);
917
918	$vbox->add (my $buttons = new CFClient::UI::HBox);
919	$vbox->add (my $viewer = new CFClient::UI::TextView expand => 1, fontsize => 0.8);
920
921	for (
922	[intro => "Introduction"],
923	[manual => "Manual"],
924	[command_help => "Commands"],
925	[skill_help => "Skills"],
926	) {
927	my ($pod, $label) = @$_;
928
929	$buttons->add (new CFClient::UI::Button
930	text => $label,
931	connect_activate => sub {
932	my $parser = new Pod::POM;
933	my $pom = $parser->parse_file (CFClient::find_rcfile "pod/$pod.pod");
934
935	$viewer->clear;
936
937	$viewer->add_paragraph ([1, 1, 1, 1], $_->[1], $_->[0])
938	for @{ CFClient::pod_to_pango_list $pom };
939
940	$viewer->set_offset (0);
941	},
942	);	1168	);
943	}	1169	}
944		1170
945	$viewer->add_paragraph ([1, 1, 0, 1], "<big>Use one of the buttons above to display a document.</big>");	1171	$QUIT_DIALOG->show;
		1172	$QUIT_DIALOG->grab_focus;
		1173	}
		1174
		1175	sub autopickup_setup {
		1176	my $table = new CFPlus::UI::Table;
		1177
		1178	for (
		1179	["General", 0, 0,
		1180	["Enable autopickup" => PICKUP_NEWMODE, \$PICKUP_ENABLE],
		1181	["Inhibit autopickup" => PICKUP_INHIBIT],
		1182	["Stop before pickup" => PICKUP_STOP],
		1183	["Debug autopickup" => PICKUP_DEBUG],
		1184	],
		1185	["Weapons", 0, 6,
		1186	["All weapons" => PICKUP_ALLWEAPON],
		1187	["Missile weapons" => PICKUP_MISSILEWEAPON],
		1188	["Bows" => PICKUP_BOW],
		1189	["Arrows" => PICKUP_ARROW],
		1190	],
		1191	["Armour", 0, 12,
		1192	["Helmets" => PICKUP_HELMET],
		1193	["Shields" => PICKUP_SHIELD],
		1194	["Body Armour" => PICKUP_ARMOUR],
		1195	["Boots" => PICKUP_BOOTS],
		1196	["Gloves" => PICKUP_GLOVES],
		1197	["Cloaks" => PICKUP_CLOAK],
		1198	],
		1199
		1200	["Readables", 2, 2,
		1201	["Spellbooks" => PICKUP_SPELLBOOK],
		1202	["Skillscrolls" => PICKUP_SKILLSCROLL],
		1203	["Normal Books/Scrolls" => PICKUP_READABLES],
		1204	],
		1205	["Misc", 2, 7,
		1206	["Food" => PICKUP_FOOD],
		1207	["Drinks" => PICKUP_DRINK],
		1208	["Valuables (Money, Gems)" => PICKUP_VALUABLES],
		1209	["Keys" => PICKUP_KEY],
		1210	["Magical Items" => PICKUP_MAGICAL],
		1211	["Potions" => PICKUP_POTION],
		1212	["Magic Devices" => PICKUP_MAGIC_DEVICE],
		1213	["Ignore cursed" => PICKUP_NOT_CURSED],
		1214	["Jewelery" => PICKUP_JEWELS],
		1215	],
		1216	["Weight/Value ratio", 2, 17]
		1217	)
		1218	{
		1219	my ($title, $x, $y, @bits) = @$_;
		1220	$table->add ($x, $y, new CFPlus::UI::Label text => $title, align => 1, fg => [1, 1, 0]);
		1221
		1222	for (@bits) {
		1223	++$y;
		1224
		1225	my $mask = $_->[1];
		1226	$table->add ($x , $y, new CFPlus::UI::Label text => $_->[0], align => 1, expand => 1);
		1227	$table->add ($x+1, $y, my $checkbox = new CFPlus::UI::CheckBox
		1228	state => $::CFG->{pickup} & $mask,
		1229	on_changed => sub {
		1230	my ($box, $value) = @_;
		1231
		1232	if ($value) {
		1233	$::CFG->{pickup} |= $mask;
		1234	} else {
		1235	$::CFG->{pickup} &= ~$mask;
		1236	}
		1237
		1238	$::CONN->send_command ("pickup $::CFG->{pickup}")
		1239	if defined $::CONN;
		1240
		1241	0
		1242	});
		1243
		1244	${$_->[2]} = $checkbox if $_->[2];
		1245	}
		1246	}
		1247
		1248	$table->add (2, 18, new CFPlus::UI::ValSlider
		1249	range => [$::CFG->{pickup} & 0xF, 0, 16, 1, 1],
		1250	template => ">= 99",
		1251	to_value => sub { ">= " . 5 * $_[0] },
		1252	on_changed => sub {
		1253	my ($slider, $value) = @_;
		1254
		1255	$::CFG->{pickup} &= ~0xF;
		1256	$::CFG->{pickup} |= int $value
		1257	if $value;
		1258	1;
		1259	});
		1260
		1261	$table->add (3, 18, new CFPlus::UI::Button
		1262	text => "set",
		1263	on_activate => sub {
		1264	$::CONN->send_command ("pickup $::CFG->{pickup}")
		1265	if defined $::CONN;
		1266	0
		1267	});
		1268
		1269	$table
		1270	}
		1271
		1272	my %SORT_ORDER = (
		1273	type => undef,
		1274	mtime => sub { sort {
		1275	($a->{flags} & F_LOCKED) <=> ($b->{flags} & F_LOCKED)
		1276	or $b->{mtime} <=> $a->{mtime}
		1277	or $a->{type} <=> $b->{type}
		1278	} @_ },
		1279	weight => sub { sort {
		1280	$a->{weight} * ($a->{nrof} || 1) <=> $b->{weight} * ($b->{nrof} || 1)
		1281	or $a->{type} <=> $b->{type}
		1282	} @_ },
		1283	);
		1284
		1285	sub inventory_widget {
		1286	my $hb = new CFPlus::UI::HBox homogeneous => 1;
		1287
		1288	$hb->add (my $vb1 = new CFPlus::UI::VBox);
		1289	$vb1->add (new CFPlus::UI::Label align => 0, text => "Player");
		1290
		1291	$vb1->add (my $hb1 = new CFPlus::UI::HBox);
		1292
		1293	use sort 'stable';
		1294
		1295	$hb1->add (new CFPlus::UI::Selector
		1296	value => $::CFG->{inv_sort},
		1297	options => [
		1298	[type => "Type/Name"],
		1299	[mtime => "Recent/Normal/Locked"],
		1300	[weight => "Weight/Type"],
		1301	],
		1302	on_changed => sub {
		1303	$::CFG->{inv_sort} = $_[1];
		1304	$INV->set_sort_order ($SORT_ORDER{$_[1]});
		1305	},
		1306	);
		1307	$hb1->add (new CFPlus::UI::Label text => "Weight: ", align => 1, expand => 1);
		1308	#TODO# update to weigh/maxweight
		1309	$hb1->add ($STATWIDS->{i_weight} = new CFPlus::UI::Label align => -1);
		1310
		1311	$vb1->add (my $sw1 = new CFPlus::UI::ScrolledWindow expand => 1, scroll_y => 1);
		1312	$sw1->add ($INV = new CFPlus::UI::Inventory);
		1313
		1314	$hb->add (my $vb2 = new CFPlus::UI::VBox);
		1315
		1316	$vb2->add ($INV_RIGHT_HB = new CFPlus::UI::HBox);
		1317
		1318	$vb2->add (my $sw2 = new CFPlus::UI::ScrolledWindow expand => 1, scroll_y => 1);
		1319	$sw2->add ($INVR = new CFPlus::UI::Inventory);
		1320
		1321	# XXX: Call after $INVR = ... because set_opencont sets the items
		1322	CFPlus::Protocol::set_opencont ($::CONN, 0, "Floor");
		1323
		1324	$hb
		1325	}
		1326
		1327	sub toggle_player_page {
		1328	my ($widget) = @_;
		1329
		1330	if ($PL_WINDOW->{visible} && $PL_NOTEBOOK->get_current_page == $widget) {
		1331	$PL_WINDOW->hide;
		1332	} else {
		1333	$PL_NOTEBOOK->set_current_page ($widget);
		1334	$PL_WINDOW->show;
		1335	}
		1336	}
		1337
		1338	sub player_window {
		1339	my $plwin = $PL_WINDOW = new CFPlus::UI::FancyFrame
		1340	x => "center",
		1341	y => "center",
		1342	force_w => $WIDTH * 9/10,
		1343	force_h => $HEIGHT * 9/10,
		1344	title => "Player",
		1345	name => "playerbook",
		1346	has_close_button => 1
		1347	;
		1348
		1349	my $ntb =
		1350	$PL_NOTEBOOK =
		1351	new CFPlus::UI::Notebook expand => 1, debug => 1;
		1352
		1353	$ntb->add (
		1354	"Statistics (F2)" => $STATS_PAGE = stats_window,
		1355	"Shows statistics, where all your Stats and Resistances are shown."
		1356	);
		1357	$ntb->add (
		1358	"Skills (F3)" => $SKILL_PAGE = skill_window,
		1359	"Shows all your Skills."
		1360	);
		1361
		1362	my $spellsw = new CFPlus::UI::ScrolledWindow (expand => 1, scroll_y => 1);
		1363	$spellsw->add ($SPELL_PAGE = new CFPlus::UI::SpellList);
		1364	$ntb->add (
		1365	"Spellbook (F4)" => $spellsw,
		1366	"Displays all spells you have and lets you edit keyboard shortcuts for them."
		1367	);
		1368	$ntb->add (
		1369	"Inventory (F5)" => $INVENTORY_PAGE = inventory_widget,
		1370	"Toggles the inventory window, where you can manage your loot (or treasures :). "
		1371	. "You can also hit the <b>Tab</b>-key to show/hide the Inventory."
		1372	);
		1373
		1374	$ntb->set_current_page ($INVENTORY_PAGE);
		1375
		1376	$plwin->add ($ntb);
		1377	$plwin
		1378	}
		1379
		1380	sub update_bindings {
		1381	$BIND_UPD_CB->() if $BIND_UPD_CB;
		1382	}
		1383
		1384	sub keyboard_setup {
		1385	my $binding_list = new CFPlus::UI::VBox;
		1386
		1387	my $refresh;
		1388	$refresh = $BIND_UPD_CB = sub {
		1389	$binding_list->clear ();
		1390
		1391	for my $mod (keys %{$::CFG->{profile}{default}{bindings}}) {
		1392	for my $sym (keys %{$::CFG->{profile}{default}{bindings}{$mod}}) {
		1393	my $cmds = $::CFG->{profile}{default}{bindings}{$mod}{$sym};
		1394	next unless ref $cmds eq 'ARRAY' and @$cmds > 0;
		1395
		1396	my $lbl = join "; ", @$cmds;
		1397	my $nam = CFPlus::BindingEditor::keycombo_to_name ($mod, $sym);
		1398	$binding_list->add (my $hb = new CFPlus::UI::HBox);
		1399	$hb->add (new CFPlus::UI::Button
		1400	text => "delete",
		1401	tooltip => "Deletes the binding",
		1402	on_activate => sub {
		1403	$binding_list->remove ($hb);
		1404	delete $::CFG->{profile}{default}{bindings}{$mod}{$sym};
		1405	0
		1406	});
		1407
		1408	$hb->add (new CFPlus::UI::Button
		1409	text => "edit",
		1410	tooltip => "Edits the binding",
		1411	on_activate => sub {
		1412	$::BIND_EDITOR->set_binding (
		1413	$mod, $sym, $::CFG->{profile}{default}{bindings}{$mod}{$sym},
		1414	sub {
		1415	my ($nmod, $nsym, $ncmds) = @_;
		1416	$::BIND_EDITOR->cfg_unbind ($mod, $sym);
		1417	$::BIND_EDITOR->cfg_bind ($nmod, $nsym, $ncmds);
		1418	$refresh->();
		1419	$SETUP_NOTEBOOK->set_current_page ($SETUP_KEYBOARD);
		1420	$SETUP_DIALOG->show;
		1421	},
		1422	sub {
		1423	$SETUP_NOTEBOOK->set_current_page ($SETUP_KEYBOARD);
		1424	$SETUP_DIALOG->show;
		1425	});
		1426	$::BIND_EDITOR->show;
		1427	$SETUP_DIALOG->hide;
		1428	0
		1429	});
		1430
		1431	$hb->add (new CFPlus::UI::Label text => "(Key: $nam)");
		1432	$hb->add (new CFPlus::UI::Label text => $lbl, expand => 1);
		1433	}
		1434	}
		1435	};
		1436
		1437	my $vb = new CFPlus::UI::VBox;
		1438	$vb->add (my $hb = new CFPlus::UI::HBox);
		1439	$hb->add (new CFPlus::UI::Label text => "only shift-up stops fire");
		1440	$hb->add (new CFPlus::UI::CheckBox
		1441	expand => 1,
		1442	state => $CFG->{shift_fire_stop},
		1443	tooltip => "If this checkbox is enabled you will stop fire only if you stop pressing shift",
		1444	on_changed => sub {
		1445	my ($cbox, $value) = @_;
		1446	$CFG->{shift_fire_stop} = $value;
		1447	0
		1448	});
		1449
		1450	$vb->add ($binding_list);
		1451	$vb->add (my $hb = new CFPlus::UI::HBox);
		1452
		1453	$hb->add (new CFPlus::UI::Button
		1454	text => "record new",
		1455	expand => 1,
		1456	tooltip => "This button opens the binding editor with an empty binding.",
		1457	on_activate => sub {
		1458	$::BIND_EDITOR->set_binding (undef, undef, [],
		1459	sub {
		1460	my ($mod, $sym, $cmds) = @_;
		1461	$::BIND_EDITOR->cfg_bind ($mod, $sym, $cmds);
		1462	$refresh->();
		1463	$SETUP_NOTEBOOK->set_current_page ($SETUP_KEYBOARD);
		1464	$SETUP_DIALOG->show;
		1465	},
		1466	sub {
		1467	$SETUP_NOTEBOOK->set_current_page ($SETUP_KEYBOARD);
		1468	$SETUP_DIALOG->show;
		1469	},
		1470	);
		1471	$SETUP_DIALOG->hide;
		1472	$::BIND_EDITOR->show;
		1473	0
		1474	},
		1475	);
		1476
		1477	$hb->add (new CFPlus::UI::Button
		1478	text => "close",
		1479	tooltip => "Closes the binding window",
		1480	expand => 1,
		1481	on_activate => sub {
		1482	$SETUP_DIALOG->hide;
		1483	0
		1484	}
		1485	);
		1486
		1487	$refresh->();
		1488
		1489	$vb
		1490	}
		1491
		1492	sub help_window {
		1493	my $win = new CFPlus::UI::FancyFrame
		1494	x => 'center',
		1495	y => 'center',
		1496	z => 2,
		1497	name => 'doc_browser',
		1498	force_w => int $WIDTH * 7/8,
		1499	force_h => int $HEIGHT * 7/8,
		1500	title => "Help Browser",
		1501	has_close_button => 1;
		1502
		1503	$win->add (my $vbox = new CFPlus::UI::VBox);
		1504
		1505	$vbox->add (my $buttons = new CFPlus::UI::HBox);
		1506	$vbox->add (my $viewer = new CFPlus::UI::TextScroller
		1507	expand => 1, fontsize => 0.8, padding_x => 4);
		1508
		1509	$buttons->add (new CFPlus::UI::Label text => "Choose a document to display: ");
		1510	$buttons->add (my $combo = new CFPlus::UI::Selector
		1511	value => undef,
		1512	options => [
		1513	[intro => "Introduction"],
		1514	[manual => "Main Manual"],
		1515	[skill_help => "Skill Reference"],
		1516	[command_help => "Command Reference"],
		1517	[dmcommand_help => "DM Commands"],
		1518	[COPYING => "License Terms"],
		1519	],
		1520	on_changed => sub {
		1521	my ($self, $pod) = @_;
		1522
		1523	$viewer->clear;
		1524	$viewer->add_paragraph (@{ CFPlus::Pod::pod_paragraphs $pod });
		1525	$viewer->set_offset (0);
		1526
		1527	0
		1528	},
		1529	on_visibility_change => sub {
		1530	my ($self, $visible) = @_;
		1531	return unless $visible;
		1532	return if $self->{value};
		1533	$self->set_value ("intro");
		1534	0
		1535	},
		1536	);
946		1537
947	$win	1538	$win
948	}	1539	}
949		1540
950	sub sdl_init {	1541	sub sdl_init {
951	CFClient::SDL_Init	1542	CFPlus::SDL_Init
952	and die "SDL::Init failed!\n";	1543	and die "SDL::Init failed!\n";
953	}	1544	}
954		1545
955	sub video_init {	1546	sub video_init {
956	sdl_init;	1547	sdl_init;
…		…
961		1552
962	($WIDTH, $HEIGHT) = @{ $SDL_MODES[$CFG->{sdl_mode}] };	1553	($WIDTH, $HEIGHT) = @{ $SDL_MODES[$CFG->{sdl_mode}] };
963	$FULLSCREEN = $CFG->{fullscreen};	1554	$FULLSCREEN = $CFG->{fullscreen};
964	$FAST = $CFG->{fast};	1555	$FAST = $CFG->{fast};
965		1556
966	CFClient::SDL_SetVideoMode $WIDTH, $HEIGHT, $FULLSCREEN	1557	CFPlus::SDL_SetVideoMode $WIDTH, $HEIGHT, $FULLSCREEN
967	or die "SDL_SetVideoMode failed: " . (CFClient::SDL_GetError) . "\n";	1558	or die "SDL_SetVideoMode failed: " . (CFPlus::SDL_GetError) . "\n";
968		1559
969	$SDL_ACTIVE = 1;	1560	$SDL_ACTIVE = 1;
970	$LAST_REFRESH = time - 0.01;	1561	$LAST_REFRESH = time - 0.01;
971		1562
972	CFClient::OpenGL::init;	1563	CFPlus::OpenGL::init;
973		1564
974	$FONTSIZE = int $HEIGHT / 40 * $CFG->{gui_fontsize};	1565	$FONTSIZE = int $HEIGHT / 40 * $CFG->{gui_fontsize};
975		1566
976	$CFClient::UI::ROOT->configure (0, 0, $WIDTH, $HEIGHT);#d#	1567	$CFPlus::UI::ROOT->configure (0, 0, $WIDTH, $HEIGHT);#d#
977		1568
978	#############################################################################	1569	#############################################################################
979		1570
980	if ($DEBUG_STATUS) {	1571	if ($DEBUG_STATUS) {
981	CFClient::UI::rescale_widgets $WIDTH / $old_w, $HEIGHT / $old_h;	1572	CFPlus::UI::rescale_widgets $WIDTH / $old_w, $HEIGHT / $old_h;
982	} else {	1573	} else {
983	# create the widgets	1574	# create the widgets
984		1575
985	$DEBUG_STATUS = new CFClient::UI::Label padding => 0, z => 100, req_x => -1;	1576	$DEBUG_STATUS = new CFPlus::UI::Label
		1577	padding => 0,
		1578	z => 100,
		1579	force_x => "max",
		1580	force_y => 0;
986	$DEBUG_STATUS->show;	1581	$DEBUG_STATUS->show;
987		1582
		1583	$BIND_EDITOR = new CFPlus::BindingEditor (x => "max", y => 0);
		1584
988	$STATUSBOX = new CFClient::UI::Statusbox;	1585	$STATUSBOX = new CFPlus::UI::Statusbox;
989	$STATUSBOX->add ("Use <b>Alt-Enter</b> to toggle fullscreen mode", pri => -100, color => [1, 1, 1, 0.8]);	1586	$STATUSBOX->add ("Use <b>Alt-Enter</b> to toggle fullscreen mode", timeout => 864000, pri => -100, color => [1, 1, 1, 0.8]);
990		1587
991	(new CFClient::UI::Frame	1588	(new CFPlus::UI::Frame
992	bg => [0, 0, 0, 0.4],	1589	bg => [0, 0, 0, 0.4],
993	req_y => -1,	1590	force_x => 0,
		1591	force_y => "max",
994	child => $STATUSBOX,	1592	child => $STATUSBOX,
995	)->show;	1593	)->show;
996		1594
997	CFClient::UI::FancyFrame->new (	1595	CFPlus::UI::FancyFrame->new (
		1596	title => "Map",
		1597	name => "mapmap",
		1598	x => 0,
		1599	y => $FONTSIZE + 8,
998	border_bg => [1, 1, 1, 192/255],	1600	border_bg => [1, 1, 1, 192/255],
999	bg => [1, 1, 1, 0],	1601	bg => [1, 1, 1, 0],
1000	child => ($MAPMAP = new CFClient::MapWidget::MapMap	1602	child => ($MAPMAP = new CFPlus::MapWidget::MapMap
1001	tooltip => "<b>Map</b>. On servers that support this feature, this will display an overview of the surrounding areas.",	1603	tooltip => "<b>Map</b>. On servers that support this feature, this will display an overview of the surrounding areas.",
1002	),	1604	),
1003	)->show;	1605	)->show;
1004		1606
1005	$MAPWIDGET = new CFClient::MapWidget;	1607	$MAPWIDGET = new CFPlus::MapWidget;
1006	$MAPWIDGET->connect (activate_console => sub {	1608	$MAPWIDGET->connect (activate_console => sub {
1007	my ($mapwidget, $preset) = @_;	1609	my ($mapwidget, $preset) = @_;
1008		1610
1009	if ($CONSOLE) {	1611	if ($CONSOLE) {
1010	$CONSOLE->{input}->{auto_activated} = 1;	1612	$CONSOLE->{input}->{auto_activated} = 1;
1011	$CONSOLE->{input}->focus_in;	1613	$CONSOLE->{input}->grab_focus;
1012		1614
1013	if ($preset && $CONSOLE->{input}->get_text eq '') {	1615	if ($preset && $CONSOLE->{input}->get_text eq '') {
1014	$CONSOLE->{input}->set_text ($preset);	1616	$CONSOLE->{input}->set_text ($preset);
1015	}	1617	}
1016	}	1618	}
1017	});	1619	});
1018	$MAPWIDGET->show;	1620	$MAPWIDGET->show;
1019	$MAPWIDGET->focus_in;	1621	$MAPWIDGET->grab_focus;
1020		1622
1021	$LOGVIEW = new CFClient::UI::TextView	1623	$LOGVIEW = new CFPlus::UI::TextScroller
1022	expand => 1,	1624	expand => 1,
1023	font => $FONT_FIXED,	1625	font => $FONT_FIXED,
1024	fontsize => $::CFG->{log_fontsize},	1626	fontsize => $::CFG->{log_fontsize},
		1627	indent => -4,
1025	can_hover => 1,	1628	can_hover => 1,
1026	can_events => 1,	1629	can_events => 1,
1027	tooltip => "<b>Server Log</b>. This text viewer contains all the messages sent by the server.",	1630	tooltip => "<b>Server Log</b>. This text viewer contains all the messages sent by the server.",
1028	;	1631	;
1029		1632
1030	$BUTTONBAR = new CFClient::UI::HBox;	1633	$SETUP_DIALOG = new CFPlus::UI::FancyFrame
		1634	title => "Setup",
		1635	name => "setup_dialog",
		1636	x => 'center',
		1637	y => 'center',
		1638	z => 2,
		1639	force_w => $::WIDTH * 0.6,
		1640	force_h => $::HEIGHT * 0.6,
		1641	has_close_button => 1,
		1642	;
1031		1643
1032	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Client Setup", other => client_setup,	1644	$METASERVER = metaserver_dialog;
1033	tooltip => "Toggles a dialog where you can configure various aspects of the client, such as graphics mode, performance, and audio options.");	1645
1034	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Server Setup", other => server_setup,	1646	$SETUP_DIALOG->add ($SETUP_NOTEBOOK = new CFPlus::UI::Notebook expand => 1, debug => 1,
		1647	filter => new CFPlus::UI::ScrolledWindow expand => 1, scroll_y => 1);
		1648
		1649	$SETUP_NOTEBOOK->add (Server => $SETUP_SERVER = server_setup,
1035	tooltip => "Toggles a dialog where you can configure the server to play on, your username, password and other server-related options.");	1650	"Configure the server to play on, your username, password and other server-related options.");
		1651	$SETUP_NOTEBOOK->add (Pickup => autopickup_setup,
		1652	"Configure autopickup settings, i.e. which items you will pick up automatically when walking (or running) over them.");
		1653	$SETUP_NOTEBOOK->add (Graphics => graphics_setup,
		1654	"Configure the video mode, performance, fonts and other graphical aspects of the game.");
		1655	$SETUP_NOTEBOOK->add (Audio => audio_setup,
		1656	"Configure the use of audio, sound effects and background music.");
		1657	$SETUP_NOTEBOOK->add (Keyboard => $SETUP_KEYBOARD = keyboard_setup,
		1658	"Lets you define, edit and delete key bindings."
		1659	. "There is a shortcut for making bindings: <b>Control-Insert</b> opens the binding editor "
		1660	. "with nothing set and the recording started. After doing the actions you "
		1661	. "want to record press <b>Insert</b> and you will be asked to press a key-combo. "
		1662	. "After pressing the combo the binding will be saved automatically and the "
		1663	. "binding editor closes");
		1664	$SETUP_NOTEBOOK->add (Debug => debug_setup,
		1665	"Some debuggin' options. Do not ask.");
		1666
		1667	$BUTTONBAR = new CFPlus::UI::Buttonbar x => 0, y => 0, z => 200; # put on top
		1668
		1669	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Setup", other => $SETUP_DIALOG,
		1670	tooltip => "Toggles a dialog where you can configure all aspects of this client.");
		1671
1036	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Message Window", other => message_window,	1672	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Message Window", other => $MESSAGE_WINDOW = message_window,
1037	tooltip => "Toggles the server message log, where the client collects <i>all</i> messages from the server.");	1673	tooltip => "Toggles the server message log, where the client collects <i>all</i> messages from the server.");
1038		1674
1039	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	1675	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
1040		1676
1041	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Stats Window", other => make_stats_window,
1042	tooltip => "Toggles the statistics window, where all your Stats and Resistances are being displayed at all times.");
1043	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Inventory", other => make_inventory_window,	1677	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Playerbook", other => player_window,
1044	tooltip => "Toggles the inventory window, where you can manage your loot (or treaures :).");	1678	tooltip => "Toggles the player view, where you can manage Inventory, Spells, Skills and see your Stats.");
1045		1679
1046	$BUTTONBAR->add (new CFClient::UI::Button	1680	$BUTTONBAR->add (new CFPlus::UI::Button
1047	text => "Save Config",	1681	text => "Save Config",
1048	tooltip => "Saves the options chosen in the client setting, server settings and the window layout to be restored on later runs.",	1682	tooltip => "Saves the options chosen in the client setting, server settings and the window layout to be restored on later runs.",
1049	connect_activate => sub {	1683	on_activate => sub {
		1684	$::CFG->{layout} = CFPlus::UI::get_layout;
1050	CFClient::write_cfg "$Crossfire::VARDIR/pclientrc";	1685	CFPlus::write_cfg "$Crossfire::VARDIR/cfplusrc";
1051	status "Configuration Saved";	1686	status "Configuration Saved";
		1687	0
1052	},	1688	},
1053	);	1689	);
1054		1690
1055	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Help!", other => make_help_window,	1691	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Help!", other => $HELP_WINDOW = help_window,
1056	tooltip => "View Documentation");	1692	tooltip => "View Documentation");
1057		1693
1058	$BUTTONBAR->add (new CFClient::UI::Button	1694	$BUTTONBAR->add (new CFPlus::UI::Button
1059	text => "Quit",	1695	text => "Quit",
1060	tooltip => "Terminates the program",	1696	tooltip => "Terminates the program",
1061	connect_activate => sub {	1697	on_activate => sub {
1062	if ($CONN) {	1698	if ($CONN) {
1063	open_quit_dialog;	1699	open_quit_dialog;
1064	} else {	1700	} else {
1065	exit;	1701	exit;
1066	}	1702	}
		1703	0
1067	},	1704	},
1068	);	1705	);
1069		1706
1070	$BUTTONBAR->show;	1707	$BUTTONBAR->show;
1071		1708	$SETUP_DIALOG->show;
1072	$STATUSBOX->add ("Set video mode $WIDTH×$HEIGHT", timeout => 10, fg => [1, 1, 1, 0.5]);
1073
1074	# delay till geometry is constant
1075	$CFClient::UI::ROOT->on_post_alloc (startup => sub {
1076	$BUTTONBAR->{children}[1]->emit ("activate"); # pop up server setup
1077	my $widget = $GAUGES->{win};
1078	$widget->move (0, $HEIGHT - $widget->{h});#d# to in toplevel
1079	});
1080	force_refresh ();
1081	}	1709	}
		1710
		1711	$STATUSBOX->add ("Set video mode $WIDTH×$HEIGHT", timeout => 10, fg => [1, 1, 1, 0.5]);
1082	}	1712	}
1083		1713
1084	sub video_shutdown {	1714	sub video_shutdown {
		1715	CFPlus::OpenGL::shutdown;
		1716
1085	undef $SDL_ACTIVE;	1717	undef $SDL_ACTIVE;
1086	}	1718	}
1087		1719
1088	my @bgmusic = qw(game1.ogg game2.ogg game3.ogg game5.ogg game6.ogg ross1.ogg ross2.ogg ross3.ogg ross4.ogg ross5.ogg); #d#	1720	my @bgmusic = qw(game1.ogg game2.ogg game3.ogg game5.ogg game6.ogg ross1.ogg ross2.ogg ross3.ogg ross4.ogg ross5.ogg); #d#
1089	my $bgmusic;#TODO#hack#d#	1721	my $bgmusic;#TODO#hack#d#
…		…
1096		1728
1097	sub audio_music_finished {	1729	sub audio_music_finished {
1098	return unless $CFG->{bgm_enable};	1730	return unless $CFG->{bgm_enable};
1099		1731
1100	# TODO: hack, do play loop and mood music	1732	# TODO: hack, do play loop and mood music
1101	$bgmusic = new_from_file CFClient::MixMusic CFClient::find_rcfile "music/$bgmusic[0]";	1733	$bgmusic = new_from_file CFPlus::MixMusic CFPlus::find_rcfile "music/$bgmusic[0]";
1102	$bgmusic->play (0);	1734	$bgmusic->play (0);
1103		1735
1104	push @bgmusic, shift @bgmusic;	1736	push @bgmusic, shift @bgmusic;
1105	}	1737	}
1106		1738
1107	sub audio_init {	1739	sub audio_init {
1108	if ($CFG->{audio_enable}) {	1740	if ($CFG->{audio_enable}) {
1109	if (open my $fh, "<", CFClient::find_rcfile "sounds/config") {	1741	if (open my $fh, "<", CFPlus::find_rcfile "sounds/config") {
1110	$SDL_MIXER = !CFClient::Mix_OpenAudio;	1742	$SDL_MIXER = !CFPlus::Mix_OpenAudio;
1111		1743
1112	unless ($SDL_MIXER) {	1744	unless ($SDL_MIXER) {
1113	status "Unable to open sound device: there will be no sound";	1745	status "Unable to open sound device: there will be no sound";
1114	return;	1746	return;
1115	}	1747	}
1116		1748
1117	CFClient::Mix_AllocateChannels 8;	1749	CFPlus::Mix_AllocateChannels 8;
1118	CFClient::MixMusic::volume $CFG->{bgm_volume} * 128;	1750	CFPlus::MixMusic::volume $CFG->{bgm_volume} * 128;
1119		1751
1120	audio_music_finished;	1752	audio_music_finished;
1121		1753
1122	while (<$fh>) {	1754	while (<$fh>) {
1123	next if /^\s*#/;	1755	next if /^\s*#/;
…		…
1126	my ($file, $volume, $event) = split /\s+/, $_, 3;	1758	my ($file, $volume, $event) = split /\s+/, $_, 3;
1127		1759
1128	push @SOUNDS, "$volume,$file";	1760	push @SOUNDS, "$volume,$file";
1129		1761
1130	$AUDIO_CHUNKS{"$volume,$file"} ||= do {	1762	$AUDIO_CHUNKS{"$volume,$file"} ||= do {
1131	my $chunk = new_from_file CFClient::MixChunk CFClient::find_rcfile "sounds/$file";	1763	my $chunk = new_from_file CFPlus::MixChunk CFPlus::find_rcfile "sounds/$file";
1132	$chunk->volume ($volume * 128 / 100);	1764	$chunk->volume ($volume * 128 / 100);
1133	$chunk	1765	$chunk
1134	};	1766	};
1135	}	1767	}
1136	} else {	1768	} else {
…		…
1138	}	1770	}
1139	}	1771	}
1140	}	1772	}
1141		1773
1142	sub audio_shutdown {	1774	sub audio_shutdown {
1143	CFClient::Mix_CloseAudio if $SDL_MIXER;	1775	CFPlus::Mix_CloseAudio if $SDL_MIXER;
1144	undef $SDL_MIXER;	1776	undef $SDL_MIXER;
1145	@SOUNDS = ();	1777	@SOUNDS = ();
1146	%AUDIO_CHUNKS = ();	1778	%AUDIO_CHUNKS = ();
1147	}	1779	}
1148		1780
…		…
1153		1785
1154	my %demo;#d#	1786	my %demo;#d#
1155		1787
1156	sub force_refresh {	1788	sub force_refresh {
1157	$fps = $fps * 0.95 + 1 / (($NOW - $LAST_REFRESH) || 0.1) * 0.05;	1789	$fps = $fps * 0.95 + 1 / (($NOW - $LAST_REFRESH) || 0.1) * 0.05;
1158	debug sprintf "%3.2f", $fps;	1790	debug sprintf "%3.2f", $fps if $ENV{CFPLUS_DEBUG} & 4;
1159		1791
1160	$CFClient::UI::ROOT->draw;	1792	$CFPlus::UI::ROOT->draw;
1161		1793
1162	$WANT_REFRESH = 0;	1794	$WANT_REFRESH = 0;
1163	$CAN_REFRESH = 0;	1795	$CAN_REFRESH = 0;
1164	$LAST_REFRESH = $NOW;	1796	$LAST_REFRESH = $NOW;
1165		1797
1166	0 && do {
1167	# some weird model-drawing code, just a joke right now
1168	use CFClient::OpenGL;
1169
1170	$demo{t}{eye_auv} ||= new_from_file CFClient::Texture "eye2.png" or die;
1171	$demo{t}{body_auv} ||= new_from_file CFClient::Texture "body_auv3.png" or die;
1172	$demo{r} ||= do {
1173	my $mod = Compress::LZF::sthaw do { local $/; open my $fh, "<:raw:perlio", "dread.lz3"; <$fh> };
1174	$mod->{v} = pack "f*", @{$mod->{v}};
1175	$_ = [scalar @$_, pack "S!*", @$_]
1176	for values %{$mod->{g}};
1177	$mod
1178	};
1179
1180	my $r = $demo{r} or die;
1181
1182	glDepthMask 1;
1183	glClear GL_DEPTH_BUFFER_BIT;
1184	glEnable GL_TEXTURE_2D;
1185	glEnable GL_DEPTH_TEST;
1186	glEnable GL_CULL_FACE;
1187	glShadeModel $::FAST ? GL_FLAT : GL_SMOOTH;
1188
1189	glMatrixMode GL_PROJECTION;
1190	glLoadIdentity;
1191	glFrustum -1 * ($::WIDTH / $::HEIGHT), 1 * ($::WIDTH / $::HEIGHT), 1, -1, 1, 10000;
1192	#glOrtho 0, $::WIDTH, 0, $::HEIGHT, -10000, 10000;
1193	glMatrixMode GL_MODELVIEW;
1194	glLoadIdentity;
1195
1196	glPushMatrix;
1197	glTranslate 0, 0, -800;
1198	glScale 1, -1, 1;
1199	glRotate $NOW * 1000 % 36000 / 5, 0, 1, 0;
1200	glRotate $NOW * 1000 % 36000 / 6, 1, 0, 0;
1201	glRotate $NOW * 1000 % 36000 / 7, 0, 0, 1;
1202	glScale 50, 50, 50;
1203
1204	glInterleavedArrays GL_T2F_N3F_V3F, 0, $r->{v};
1205	while (my ($k, $v) = each %{$r->{g}}) {
1206	glBindTexture GL_TEXTURE_2D, ($demo{t}{$k}{name} or die);
1207	glDrawElements GL_TRIANGLES, $v->[0], GL_UNSIGNED_SHORT, $v->[1];
1208	}
1209
1210	glPopMatrix;
1211
1212	glShadeModel GL_FLAT;
1213	glDisable GL_DEPTH_TEST;
1214	glDisable GL_TEXTURE_2D;
1215	glDepthMask 0;
1216
1217	$WANT_REFRESH++;
1218	};
1219
1220	CFClient::SDL_GL_SwapBuffers;	1798	CFPlus::SDL_GL_SwapBuffers;
1221	}	1799	}
1222		1800
1223	my $refresh_watcher = Event->timer (after => 0, hard => 1, interval => 1 / $MAX_FPS, cb => sub {	1801	my $refresh_watcher = Event->timer (after => 0, hard => 0, interval => 1 / $MAX_FPS, cb => sub {
1224	$NOW = time;	1802	$NOW = time;
1225		1803
1226	($SDL_CB{$_->{type}} || sub { warn "unhandled event $_->{type}" })->($_)	1804	($SDL_CB{$_->{type}} || sub { warn "unhandled event $_->{type}" })->($_)
1227	for CFClient::SDL_PollEvent;	1805	for CFPlus::SDL_PollEvent;
1228		1806
1229	if (%animate_object) {	1807	if (%animate_object) {
1230	$_->animate ($LAST_REFRESH - $NOW) for values %animate_object;	1808	$_->animate ($LAST_REFRESH - $NOW) for values %animate_object;
1231	$WANT_REFRESH++;	1809	$WANT_REFRESH++;
1232	}	1810	}
…		…
1246	sub animation_stop {	1824	sub animation_stop {
1247	my ($widget) = @_;	1825	my ($widget) = @_;
1248	delete $animate_object{$widget};	1826	delete $animate_object{$widget};
1249	}	1827	}
1250		1828
1251	@conn::ISA = Crossfire::Protocol::;
1252
1253	sub conn::new {
1254	my $class = shift;
1255
1256	my $self = $class->Crossfire::Protocol::new (@_);
1257
1258	$MAPWIDGET->clr_commands;
1259
1260	my $parser = new Pod::POM;
1261	my $pod = $parser->parse_file (CFClient::find_rcfile "pod/command_help.pod");
1262
1263	for my $head2 ($pod->head1->[-2]->head2) {
1264	$head2->title =~ /^(\S+) (?:\s+ \( ([^\)]*) \) )?/x
1265	or next;
1266
1267	my $cmd = $1;
1268	my @args = split /\|/, $2;
1269	@args = (".*") unless @args;
1270
1271	my $text = CFClient::pod_to_pango $head2->content;
1272
1273	for my $arg (@args) {
1274	$arg = $arg eq ".*" ? "" : " $arg";
1275
1276	$MAPWIDGET->add_command ("$cmd$arg", $text);
1277	}
1278	}
1279
1280	$self->{noface} = new_from_file CFClient::Texture
1281	CFClient::find_rcfile "noface.png", minify => 1, mipmap => 1;
1282
1283	$self->{open_container} = 0;
1284
1285	$self
1286	}
1287
1288	sub conn::stats_update {
1289	my ($self, $stats) = @_;
1290
1291	if (my $exp = $stats->{Crossfire::Protocol::CS_STAT_EXP64}) {
1292	my $diff = $exp - $self->{prev_exp};
1293	$STATUSBOX->add ("$diff experience gained", group => "experience $diff", fg => [0.5, 1, 0.5, 0.8], timeout => 5)
1294	if exists $self->{prev_exp} && $diff;
1295	$self->{prev_exp} = $exp;
1296	}
1297
1298	update_stats_window ($stats);
1299	}
1300
1301	sub conn::user_send {
1302	my ($self, $command) = @_;
1303
1304	$self->send_command ($command);
1305	status $command;
1306	}
1307
1308	sub conn::map_scroll {
1309	my ($self, $dx, $dy) = @_;
1310
1311	$MAP->scroll ($dx, $dy);
1312	}
1313
1314	sub conn::feed_map1a {
1315	my ($self, $data) = @_;
1316
1317	# $self->Crossfire::Protocol::feed_map1a ($data);
1318
1319	$MAP->map1a_update ($data);
1320	$MAPWIDGET->update;
1321	}
1322
1323	sub conn::flush_map {
1324	my ($self) = @_;
1325
1326	my $map_info = delete $self->{map_info}
1327	or return;
1328
1329	my ($hash, $x, $y, $w, $h) = @$map_info;
1330
1331	my $data = $MAP->get_rect ($x, $y, $w, $h);
1332	$MAPCACHE->put ($hash => Compress::LZF::compress $data);
1333	#warn sprintf "SAVEmap[%s] length %d\n", $hash, length $data;#d#
1334	}
1335
1336	sub conn::map_clear {
1337	my ($self) = @_;
1338
1339	$self->flush_map;
1340	delete $self->{neigh_map};
1341
1342	$MAP->clear;
1343	}
1344
1345
1346	sub conn::load_map($$$) {
1347	my ($self, $hash, $x, $y) = @_;
1348
1349	if (defined (my $data = $MAPCACHE->get ($hash))) {
1350	$data = Compress::LZF::decompress $data;
1351	#warn sprintf "LOADmap[%s,%d,%d] length %d\n", $hash, $x, $y, length $data;#d#
1352	for my $id ($MAP->set_rect ($x, $y, $data)) {
1353	my $data = $TILECACHE->get ($id)
1354	or next;
1355
1356	$self->set_texture ($id => $data);
1357	}
1358	}
1359	}
1360
1361	# hardcode /world/world_xxx_xxx map names, the savings are enourmous,
1362	# (server resource,s latency, bandwidth), so this hack is warranted.
1363	# the right fix is to make real tiled maps with an overview file
1364	sub conn::send_mapinfo {
1365	my ($self, $data, $cb) = @_;
1366
1367	if ($self->{map_info}[0] =~ m%^/world/world_(\d\d\d)_(\d\d\d)$%) {
1368	my ($wx, $wy) = ($1, $2);
1369
1370	if ($data =~ /^spatial ([1-4]+)$/) {
1371	my @dx = (0, 0, 1, 0, -1);
1372	my @dy = (0, -1, 0, 1, 0);
1373	my ($dx, $dy);
1374
1375	for (split //, $1) {
1376	$dx += $dx[$_];
1377	$dy += $dy[$_];
1378	}
1379
1380	$cb->(spatial => 15,
1381	$self->{map_info}[1] - $MAP->ox + $dx * 50,
1382	$self->{map_info}[2] - $MAP->oy + $dy * 50,
1383	50, 50,
1384	sprintf "/world/world_%03d_%03d", $wx + $dx, $wy + $dy
1385	);
1386
1387	return;
1388	}
1389	}
1390
1391	$self->Crossfire::Protocol::send_mapinfo ($data, $cb);
1392	}
1393
1394	# this method does a "flood fill" into every tile direction
1395	# it assumes that tiles are arranged in a rectangular grid,
1396	# i.e. a map is the same as the left of the right map etc.
1397	# failure to comply are harmless and result in display errors
1398	# at worst.
1399	sub conn::flood_fill {
1400	my ($self, $block, $gx, $gy, $path, $hash, $flags) = @_;
1401
1402	# the server does not allow map paths > 6
1403	return if 7 <= length $path;
1404
1405	my ($x0, $y0, $x1, $y1) = @{$self->{neigh_rect}};
1406
1407	for (
1408	[1, 3, 0, -1],
1409	[2, 4, 1, 0],
1410	[3, 1, 0, 1],
1411	[4, 2, -1, 0],
1412	) {
1413	my ($tile, $tile2, $dx, $dy) = @$_;
1414
1415	next if $block & (1 << $tile);
1416	my $block = $block | (1 << $tile2);
1417
1418	my $gx = $gx + $dx;
1419	my $gy = $gy + $dy;
1420
1421	next unless $flags & (1 << ($tile - 1));
1422	next if $self->{neigh_grid}{$gx, $gy}++;
1423
1424	my $neigh = $self->{neigh_map}{$hash} ||= [];
1425	if (my $info = $neigh->[$tile]) {
1426	my ($flags, $x, $y, $w, $h, $hash) = @$info;
1427
1428	$self->flood_fill ($block, $gx, $gy, "$path$tile", $hash, $flags)
1429	if $x >= $x0 && $x + $w < $x1 && $y >= $y0 && $y + $h < $y1;
1430
1431	} else {
1432	$self->send_mapinfo ("spatial $path$tile", sub {
1433	my ($mode, $flags, $x, $y, $w, $h, $hash) = @_;
1434
1435	return if $mode ne "spatial";
1436
1437	$x += $MAP->ox;
1438	$y += $MAP->oy;
1439
1440	$self->load_map ($hash, $x, $y)
1441	unless $self->{neigh_map}{$hash}[5]++;#d#
1442
1443	$neigh->[$tile] = [$flags, $x, $y, $w, $h, $hash];
1444
1445	$self->flood_fill ($block, $gx, $gy, "$path$tile", $hash, $flags)
1446	if $x >= $x0 && $x + $w < $x1 && $y >= $y0 && $y + $h < $y1;
1447	});
1448	}
1449	}
1450	}
1451
1452	sub conn::map_change {
1453	my ($self, $mode, $flags, $x, $y, $w, $h, $hash) = @_;
1454
1455	$self->flush_map;
1456
1457	my ($ox, $oy) = ($::MAP->ox, $::MAP->oy);
1458
1459	my $mapmapw = $MAPMAP->{w};
1460	my $mapmaph = $MAPMAP->{h};
1461
1462	$self->{neigh_rect} = [
1463	$ox - $mapmapw * 0.5, $oy - $mapmapw * 0.5,
1464	$ox + $mapmapw * 0.5 + $w, $oy + $mapmapw * 0.5 + $h,
1465	];
1466
1467	delete $self->{neigh_grid};
1468
1469	$x += $ox;
1470	$y += $oy;
1471
1472	$self->{map_info} = [$hash, $x, $y, $w, $h];
1473
1474	(my $map = $hash) =~ s/^.*?\/([^\/]+)$/\1/;
1475	$STATWIDS->{map}->set_text ("Map: " . $map);
1476
1477	$self->load_map ($hash, $x, $y);
1478	$self->flood_fill (0, 0, 0, "", $hash, $flags);
1479	}
1480
1481	sub conn::face_find {
1482	my ($self, $facenum, $face) = @_;
1483
1484	my $hash = "$face->{chksum},$face->{name}";
1485
1486	my $id = $FACEMAP->get ($hash);
1487
1488	unless ($id) {
1489	# create new id for face
1490	# I love transactions
1491	for (1..100) {
1492	my $txn = $CFClient::DB_ENV->txn_begin;
1493	my $status = $FACEMAP->db_get (id => $id, BerkeleyDB::DB_RMW);
1494	if ($status == 0 || $status == BerkeleyDB::DB_NOTFOUND) {
1495	$id = ($id || 16) + 1;
1496	if ($FACEMAP->put (id => $id) == 0
1497	&& $FACEMAP->put ($hash => $id) == 0) {
1498	$txn->txn_commit;
1499
1500	goto gotid;
1501	}
1502	}
1503	$txn->abort;
1504	}
1505
1506	CFClient::fatal "maximum number of transaction retries reached - database problems?";
1507	}
1508
1509	gotid:
1510	$face->{id} = $id;
1511	$MAP->set_face ($facenum => $id);
1512	$self->{faceid}[$facenum] = $id;#d#
1513
1514	my $face = $TILECACHE->get ($id);
1515
1516	if ($face) {
1517	#$self->face_prefetch;
1518	$face
1519	} else {
1520	my $tex = $self->{noface};
1521	$MAP->set_texture ($id, @$tex{qw(name w h s t)}, @{$tex->{minified}});
1522	undef
1523	};
1524	}
1525
1526	sub conn::face_update {
1527	my ($self, $facenum, $face) = @_;
1528
1529	$TILECACHE->put ($face->{id} => $face->{image}); #TODO: try to avoid duplicate writes
1530
1531	$self->set_texture ($face->{id} => delete $face->{image});
1532	}
1533
1534	sub conn::set_texture {
1535	my ($self, $id, $data) = @_;
1536
1537	$self->{texture}[$id] ||= do {
1538	my $tex =
1539	new_from_image CFClient::Texture
1540	$data, minify => 1, mipmap => 1;
1541
1542	$MAP->set_texture ($id, @$tex{qw(name w h s t)}, @{$tex->{minified}});
1543	$MAPWIDGET->update;
1544
1545	$tex
1546	};
1547	}
1548
1549	sub conn::sound_play {
1550	my ($self, $x, $y, $soundnum, $type) = @_;
1551
1552	$SDL_MIXER
1553	or return;
1554
1555	my $chunk = $AUDIO_CHUNKS{$SOUNDS[$soundnum]}
1556	or return;
1557
1558	$chunk->play;
1559	# warn "sound $x,$y,$soundnum,$type\n";#d#
1560	}
1561
1562	my $LAST_QUERY; # server is stupid, stupid, stupid
1563
1564	sub conn::query {
1565	my ($self, $flags, $prompt) = @_;
1566
1567	$prompt = $LAST_QUERY unless length $prompt;
1568	$LAST_QUERY = $prompt;
1569
1570	my $dialog = new CFClient::UI::FancyFrame
1571	title => "Query",
1572	child => my $vbox = new CFClient::UI::VBox;
1573
1574	$vbox->add (new CFClient::UI::Label
1575	max_w => $::WIDTH * 0.4,
1576	ellipsise => 0,
1577	text => $prompt);
1578
1579	if ($flags & Crossfire::Protocol::CS_QUERY_YESNO) {
1580	$vbox->add (my $hbox = new CFClient::HBox);
1581	$hbox->add (new CFClient::Button
1582	text => "No",
1583	connect_activate => sub {
1584	$self->send ("reply n");
1585	$dialog->destroy;
1586	$MAPWIDGET->focus_in;
1587	}
1588	);
1589	$hbox->add (new CFClient::Button
1590	text => "Yes",
1591	connect_activate => sub {
1592	$self->send ("reply y");
1593	$dialog->destroy;
1594	},
1595	);
1596
1597	$dialog->focus_in;
1598
1599	} elsif ($flags & Crossfire::Protocol::CS_QUERY_SINGLECHAR) {
1600	$dialog->{tooltip} = "Press a key (click on the entry to make sure it has keyboard focus)";
1601	$vbox->add (my $entry = new CFClient::UI::Entry
1602	connect_changed => sub {
1603	$self->send ("reply $_[1]");
1604	$dialog->destroy;
1605	},
1606	);
1607
1608	$entry->focus_in;
1609
1610	} else {
1611	$dialog->{tooltip} = "Enter the reply and press return (click on the entry to make sure it has keyboard focus)";
1612
1613	$vbox->add (my $entry = new CFClient::UI::Entry
1614	$flags & Crossfire::Protocol::CS_QUERY_HIDEINPUT ? (hiddenchar => "*") : (),
1615	connect_activate => sub {
1616	$self->send ("reply $_[1]");
1617	$dialog->destroy;
1618	},
1619	);
1620
1621	$entry->focus_in;
1622	}
1623
1624	$dialog->show_centered;
1625	}
1626
1627	sub conn::drawinfo {
1628	my ($self, $color, $text) = @_;
1629
1630	my @color = (
1631	[1.00, 1.00, 1.00], #[0.00, 0.00, 0.00],
1632	[1.00, 1.00, 1.00],
1633	[0.50, 0.50, 1.00], #[0.00, 0.00, 0.55]
1634	[1.00, 0.00, 0.00],
1635	[1.00, 0.54, 0.00],
1636	[0.11, 0.56, 1.00],
1637	[0.93, 0.46, 0.00],
1638	[0.18, 0.54, 0.34],
1639	[0.56, 0.73, 0.56],
1640	[0.80, 0.80, 0.80],
1641	[0.55, 0.41, 0.13],
1642	[0.99, 0.77, 0.26],
1643	[0.74, 0.65, 0.41],
1644	);
1645
1646	my $time = sprintf "%02d:%02d:%02d", (localtime time)[2,1,0];
1647
1648	$text = CFClient::UI::Label::escape $text;
1649	$text =~ s/\[b\](.*?)\[\/b\]/<b>\1<\/b>/g;
1650	$text =~ s/\[color=(.*?)\](.*?)\[\/color\]/<span foreground='\1'>\2<\/span>/g;
1651
1652	$LOGVIEW->add_paragraph ($color[$color],
1653	join "\n", map "$time $_", split /\n/, $text);
1654
1655	$STATUSBOX->add ($text,
1656	group => $text,
1657	fg => $color[$color],
1658	timeout => 10,
1659	tooltip_font => $::FONT_FIXED,
1660	);
1661	}
1662
1663	sub conn::drawextinfo {
1664	my ($self, $color, $type, $subtype, $message) = @_;
1665
1666	$self->drawinfo ($color, $message);
1667	}
1668
1669	sub conn::spell_add {
1670	my ($self, $spell) = @_;
1671
1672	# TODO
1673	# create a widget dynamically, using spell face (CF::Protocol downloads them)
1674	$MAPWIDGET->add_command ("invoke $spell->{name}", CFClient::UI::Label::escape $spell->{message});
1675	$MAPWIDGET->add_command ("cast $spell->{name}", CFClient::UI::Label::escape $spell->{message});
1676	}
1677
1678	sub conn::spell_delete {
1679	my ($self, $spell) = @_;
1680	}
1681
1682	sub conn::addme_success {
1683	my ($self) = @_;
1684
1685	$self->send ("command output-sync $CFG->{output_sync}");
1686	$self->send ("command output-count $CFG->{output_count}");
1687
1688	my $parser = new Pod::POM;
1689	my $pod = $parser->parse_file (CFClient::find_rcfile "pod/skill_help.pod");
1690
1691	my %skill_tooltip;
1692
1693	for my $head2 ($pod->head1->[-2]->head2) {
1694	$skill_tooltip{$head2->title} = CFClient::pod_to_pango $head2->content;
1695	}
1696
1697	for my $skill (values %{$self->{skill_info}}) {
1698	$MAPWIDGET->add_command ("ready_skill $skill",
1699	(CFClient::UI::Label::escape "Ready the skill '$skill'\n\n")
1700	. $skill_tooltip{$skill});
1701	$MAPWIDGET->add_command ("use_skill $skill",
1702	(CFClient::UI::Label::escape "Immediately use the skill '$skill'\n\n")
1703	. $skill_tooltip{$skill});
1704	}
1705	}
1706
1707	sub conn::eof {
1708	$MAPWIDGET->clr_commands;
1709
1710	stop_game;
1711	}
1712
1713	sub conn::image_info {
1714	my ($self, $numfaces) = @_;
1715
1716	$self->{num_faces} = $numfaces;
1717	$self->{face_prefetch} = [1 .. $numfaces];
1718	$self->face_prefetch;
1719	}
1720
1721	sub conn::face_prefetch {
1722	my ($self) = @_;
1723
1724	return unless $CFG->{face_prefetch};
1725
1726	if ($self->{num_faces}) {
1727	return if @{ $self->{send_queue} || [] };
1728	my $todo = @{ $self->{face_prefetch} }
1729	or return;
1730
1731	my ($face) = splice @{ $self->{face_prefetch} }, + rand @{ $self->{face_prefetch} }, 1, ();
1732
1733	$self->send ("requestinfo image_sums $face $face");
1734
1735	$STATUSBOX->add (CFClient::UI::Label::escape "prefetching $todo",
1736	group => "prefetch", timeout => 2, fg => [1, 1, 0, 0.5]);
1737	} elsif (!exists $self->{num_faces}) {
1738	$self->send ("requestinfo image_info");
1739
1740	$self->{num_faces} = 0;
1741
1742	$STATUSBOX->add (CFClient::UI::Label::escape "starting to prefetch",
1743	group => "prefetch", timeout => 2, fg => [1, 1, 0, 0.5]);
1744	}
1745	}
1746
1747	# check once/second for faces that need to be prefetched	1829	# check once/second for faces that need to be prefetched
1748	# this should, of course, only run on demand, but	1830	# this should, of course, only run on demand, but
1749	# SDL forces worse things on us....	1831	# SDL forces worse things on us....
1750		1832
1751	Event->timer (after => 1, interval => 0.25, cb => sub {	1833	Event->timer (after => 1, interval => 0.25, cb => sub {
1752	$CONN->face_prefetch	1834	$CONN->face_prefetch
1753	if $CONN;	1835	if $CONN;
1754	});	1836	});
1755		1837
1756	sub update_floorbox {
1757	$CFClient::UI::ROOT->on_refresh ($FLOORBOX => sub {
1758	return unless $CONN;
1759
1760	$FLOORBOX->clear;
1761
1762	my $row;
1763	for (@{ $CONN->{container}{0} }) {
1764	if ($row < 7) {
1765	local $_->{face_widget}; # hack to force recreation of widget
1766	local $_->{desc_widget}; # hack to force recreation of widget
1767	CFClient::Item::update_widgets $_;
1768
1769	$FLOORBOX->add (0, $row, $_->{face_widget});
1770	$FLOORBOX->add (1, $row, $_->{desc_widget});
1771
1772	$row++;
1773	} else {
1774	$FLOORBOX->add (1, $row, new CFClient::UI::Label text => "More...");
1775	last;
1776	}
1777	}
1778	});
1779
1780	$WANT_REFRESH++;
1781	}
1782
1783	sub set_opencont {
1784	my ($conn, $tag, $name) = @_;
1785	$conn->{open_container} = $tag;
1786	$INVR_LBL->set_text ($name);
1787	$INVR->set_items ($conn->{container}{$tag});
1788	}
1789
1790	sub update_container {
1791	my ($tag) = @_;
1792	$INVR->set_items ($::CONN->{container}{$CONN->{open_container}})
1793	if $tag == $CONN->{open_container};
1794	}
1795
1796	sub conn::container_add {
1797	my ($self, $tag, $items) = @_;
1798
1799	#d# print "container_add: container $tag ($self->{player}{tag})\n";
1800
1801	if ($tag == 0) {
1802	update_floorbox;
1803	update_container (0);
1804	} elsif ($tag == $self->{player}{tag}) {
1805	$INV->set_items ($self->{container}{$self->{player}{tag}})
1806	} else {
1807	update_container ($tag);
1808	}
1809
1810	# $self-<{player}{tag} => player inv
1811	#use PApp::Util; warn PApp::Util::dumpval $self->{container}{$self->{player}{tag}};
1812	}
1813
1814	sub conn::container_clear {
1815	my ($self, $tag) = @_;
1816
1817	#d# print "container_clear: container $tag ($self->{player}{tag})\n";
1818
1819	if ($tag == 0) {
1820	update_floorbox;
1821	update_container (0);
1822	} elsif ($tag == $self->{player}{tag}) {
1823	$INV->set_items ($self->{container}{$tag})
1824	}
1825
1826	# use PApp::Util; warn PApp::Util::dumpval $self->{container}{0};
1827	}
1828
1829	sub conn::item_delete {
1830	my ($self, @items) = @_;
1831
1832	for (@items) {
1833	#d# print "item_delete: $_->{tag} from $_->{container} ($self->{player}{tag})\n";
1834
1835	if ($_->{container} == 0) {
1836	update_floorbox;
1837	update_container ($_->{tag});
1838	} elsif ($_->{container} == $self->{player}{tag}) {
1839	$INV->set_items ($self->{container}{$self->{player}{tag}})
1840	} else {
1841	update_container ($_->{tag});
1842	}
1843	}
1844	}
1845
1846	sub conn::item_update {
1847	my ($self, $item) = @_;
1848
1849	#d# print "item_update: $item->{tag} in $item->{container} ($self->{player}{tag}) ($CONN->{open_container})\n";
1850
1851	if ($item->{tag} == $self->{player}{tag}) {
1852	$STATWIDS->{weight}->set_text (sprintf "Weight: %.1fkg", $item->{weight} / 1000);
1853	return
1854	}
1855
1856	CFClient::Item::update_widgets $item;
1857
1858	if ($item->{tag} == $CONN->{open_container} && not ($item->{flags} & Crossfire::Protocol::F_OPEN)) {
1859	set_opencont ($CONN, 0, "Floor");
1860
1861	} elsif ($item->{flags} & Crossfire::Protocol::F_OPEN) {
1862	set_opencont ($CONN, $item->{tag}, CFClient::Item::desc_string $item);
1863	} else {
1864	if ($item->{container} == 0) {
1865	update_floorbox;
1866	update_container (0);
1867	} elsif ($item->{container} == $self->{player}{tag}) {
1868	$INV->set_items ($self->{container}{$item->{container}})
1869	}
1870	}
1871	}
1872
1873	%SDL_CB = (	1838	%SDL_CB = (
1874	CFClient::SDL_QUIT => sub {	1839	CFPlus::SDL_QUIT => sub {
1875	Event::unloop -1;	1840	Event::unloop -1;
1876	},	1841	},
1877	CFClient::SDL_VIDEORESIZE => sub {	1842	CFPlus::SDL_VIDEORESIZE => sub {
1878	},	1843	},
1879	CFClient::SDL_VIDEOEXPOSE => sub {	1844	CFPlus::SDL_VIDEOEXPOSE => sub {
1880	CFClient::UI::full_refresh;	1845	CFPlus::UI::full_refresh;
1881	},	1846	},
1882	CFClient::SDL_ACTIVEEVENT => sub {	1847	CFPlus::SDL_ACTIVEEVENT => sub {
1883	# printf "active %x %x\n", $SDL_EV->active_gain, $SDL_EV->active_state;#d#	1848	# printf "active %x %x\n", $SDL_EV->active_gain, $SDL_EV->active_state;#d#
1884	},	1849	},
1885	CFClient::SDL_KEYDOWN => sub {	1850	CFPlus::SDL_KEYDOWN => sub {
1886	if ($_[0]{mod} & CFClient::KMOD_ALT && $_[0]{sym} == 13) {	1851	if ($_[0]{mod} & CFPlus::KMOD_ALT && $_[0]{sym} == 13) {
1887	# alt-enter	1852	# alt-enter
		1853	$FULLSCREEN_ENABLE->toggle;
1888	video_shutdown;	1854	video_shutdown;
1889	$CFG->{fullscreen} = !$CFG->{fullscreen};
1890	video_init;	1855	video_init;
1891	} else {	1856	} else {
1892	CFClient::UI::feed_sdl_key_down_event ($_[0]);	1857	CFPlus::UI::feed_sdl_key_down_event ($_[0]);
1893	}	1858	}
1894	},	1859	},
1895	CFClient::SDL_KEYUP => \&CFClient::UI::feed_sdl_key_up_event,	1860	CFPlus::SDL_KEYUP => \&CFPlus::UI::feed_sdl_key_up_event,
1896	CFClient::SDL_MOUSEMOTION => \&CFClient::UI::feed_sdl_motion_event,	1861	CFPlus::SDL_MOUSEMOTION => \&CFPlus::UI::feed_sdl_motion_event,
1897	CFClient::SDL_MOUSEBUTTONDOWN => \&CFClient::UI::feed_sdl_button_down_event,	1862	CFPlus::SDL_MOUSEBUTTONDOWN => \&CFPlus::UI::feed_sdl_button_down_event,
1898	CFClient::SDL_MOUSEBUTTONUP => \&CFClient::UI::feed_sdl_button_up_event,	1863	CFPlus::SDL_MOUSEBUTTONUP => \&CFPlus::UI::feed_sdl_button_up_event,
1899	CFClient::SDL_USEREVENT => sub {	1864	CFPlus::SDL_USEREVENT => sub {
1900	if ($_[0]{code} == 1) {	1865	if ($_[0]{code} == 1) {
1901	audio_channel_finished $_[0]{data1};	1866	audio_channel_finished $_[0]{data1};
1902	} elsif ($_[0]{code} == 0) {	1867	} elsif ($_[0]{code} == 0) {
1903	audio_music_finished;	1868	audio_music_finished;
1904	}	1869	}
…		…
1908	#############################################################################	1873	#############################################################################
1909		1874
1910	$SIG{INT} = $SIG{TERM} = sub { exit };	1875	$SIG{INT} = $SIG{TERM} = sub { exit };
1911		1876
1912	{	1877	{
1913	local $SIG{__DIE__} = sub { CFClient::fatal $_[0] };
1914
1915	CFClient::read_cfg "$Crossfire::VARDIR/pclientrc";	1878	CFPlus::read_cfg "$Crossfire::VARDIR/cfplusrc";
1916		1879	CFPlus::UI::set_layout ($::CFG->{layout});
1917	$TILECACHE = CFClient::db_table "tilecache";
1918	$FACEMAP = CFClient::db_table "facemap";
1919		1880
1920	my %DEF_CFG = (	1881	my %DEF_CFG = (
1921	sdl_mode => 0,	1882	sdl_mode => 0,
1922	width => 640,	1883	width => 640,
1923	height => 480,	1884	height => 480,
1924	fullscreen => 0,	1885	fullscreen => 0,
1925	fast => 0,	1886	fast => 0,
1926	map_scale => 1,	1887	map_scale => 1,
1927	fow_enable => 1,	1888	fow_enable => 1,
1928	fow_intensity => 0.45,	1889	fow_intensity => 0.45,
1929	fow_smooth => 0,	1890	fow_smooth => 0,
1930	gui_fontsize => 1,	1891	gui_fontsize => 1,
1931	log_fontsize => 1,	1892	log_fontsize => 0.7,
1932	gauge_fontsize=> 1,	1893	gauge_fontsize => 1,
1933	gauge_size => 0.35,	1894	gauge_size => 0.35,
1934	stat_fontsize => 1,	1895	stat_fontsize => 0.7,
1935	mapsize => 100,	1896	mapsize => 100,
1936	host => "crossfire.schmorp.de",
1937	say_command => 'say',	1897	say_command => 'say',
1938	audio_enable => 1,	1898	audio_enable => 1,
1939	bgm_enable => 1,	1899	bgm_enable => 1,
1940	bgm_volume => 0.25,	1900	bgm_volume => 0.25,
1941	face_prefetch => 0,	1901	face_prefetch => 0,
1942	output_sync => 1,	1902	output_sync => 1,
1943	output_count => 1,	1903	output_count => 1,
		1904	pickup => 0,
		1905	inv_sort => "mtime",
		1906	default => "profile", # default profile
		1907	);
1944	);	1908
1945
1946	while (my ($k, $v) = each %DEF_CFG) {	1909	while (my ($k, $v) = each %DEF_CFG) {
1947	$CFG->{$k} = $v unless exists $CFG->{$k};	1910	$CFG->{$k} = $v unless exists $CFG->{$k};
1948	}	1911	}
1949		1912
		1913	$CFG->{profile}{default}{host} ||= "crossfire.schmorp.de";
		1914
1950	sdl_init;	1915	sdl_init;
1951		1916
1952	@SDL_MODES = reverse	1917	@SDL_MODES = reverse
1953	grep $_->[0] >= 640 && $_->[1] >= 480,	1918	grep $_->[0] >= 640 && $_->[1] >= 480,
1954	CFClient::SDL_ListModes;	1919	CFPlus::SDL_ListModes;
1955		1920
1956	@SDL_MODES or CFClient::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)";	1921	@SDL_MODES or CFPlus::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)";
1957		1922
1958	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES;	1923	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES;
1959		1924
1960	{	1925	{
1961	my @fonts = map CFClient::find_rcfile "fonts/$_", qw(	1926	my @fonts = map CFPlus::find_rcfile "fonts/$_", qw(
1962	DejaVuSans.ttf	1927	DejaVuSans.ttf
1963	DejaVuSansMono.ttf	1928	DejaVuSansMono.ttf
1964	DejaVuSans-Bold.ttf	1929	DejaVuSans-Bold.ttf
1965	DejaVuSansMono-Bold.ttf	1930	DejaVuSansMono-Bold.ttf
1966	DejaVuSans-Oblique.ttf	1931	DejaVuSans-Oblique.ttf
1967	DejaVuSansMono-Oblique.ttf	1932	DejaVuSansMono-Oblique.ttf
1968	DejaVuSans-BoldOblique.ttf	1933	DejaVuSans-BoldOblique.ttf
1969	DejaVuSansMono-BoldOblique.ttf	1934	DejaVuSansMono-BoldOblique.ttf
1970	);	1935	);
1971		1936
1972	CFClient::add_font $_ for @fonts;	1937	CFPlus::add_font $_ for @fonts;
1973		1938
1974	CFClient::pango_init;	1939	CFPlus::pango_init;
1975		1940
1976	$FONT_PROP = new_from_file CFClient::Font $fonts[0];	1941	$FONT_PROP = new_from_file CFPlus::Font $fonts[0];
1977	$FONT_FIXED = new_from_file CFClient::Font $fonts[1];	1942	$FONT_FIXED = new_from_file CFPlus::Font $fonts[1];
1978		1943
1979	$FONT_PROP->make_default;	1944	$FONT_PROP->make_default;
1980	}	1945	}
1981		1946
1982	# compare mono (ft) vs. rgba (cairo)	1947	# compare mono (ft) vs. rgba (cairo)
1983	# ft - 1.8s, cairo 3s, even in alpha-only mode	1948	# ft - 1.8s, cairo 3s, even in alpha-only mode
1984	# for my $rgba (0..1) {	1949	# for my $rgba (0..1) {
1985	# my $t1 = Time::HiRes::time;	1950	# my $t1 = Time::HiRes::time;
1986	# for (1..1000) {	1951	# for (1..1000) {
1987	# my $layout = CFClient::Layout->new ($rgba);	1952	# my $layout = CFPlus::Layout->new ($rgba);
1988	# $layout->set_text ("hallo" x 100);	1953	# $layout->set_text ("hallo" x 100);
1989	# $layout->render;	1954	# $layout->render;
1990	# }	1955	# }
1991	# my $t2 = Time::HiRes::time;	1956	# my $t2 = Time::HiRes::time;
1992	# warn $t2-$t1;	1957	# warn $t2-$t1;
…		…
1995	video_init;	1960	video_init;
1996	audio_init;	1961	audio_init;
1997	}	1962	}
1998		1963
1999	Event::loop;	1964	Event::loop;
		1965	#CFPlus::SDL_Quit;
		1966	#CFPlus::_exit 0;
2000		1967
2001	END { CFClient::SDL_Quit }	1968	END { CFPlus::SDL_Quit }
2002		1969
2003	=head1 NAME	1970	=head1 NAME
2004		1971
2005	pclient - A Crossfire+ and Crossfire game client	1972	cfplus - A Crossfire+ and Crossfire game client
2006		1973
2007	=head1 SYNOPSIS	1974	=head1 SYNOPSIS
2008		1975
2009	Just run it - no commandline arguments are supported.	1976	Just run it - no commandline arguments are supported.
2010		1977
2011	=head1 USAGE	1978	=head1 USAGE
2012		1979
2013	Pclient utilises OpenGL for all UI elements and the game. It is supposed to be used	1980	cfplus utilises OpenGL for all UI elements and the game. It is supposed to be used
2014	fullscreen and interactively.	1981	fullscreen and interactively.
2015		1982
		1983	=head1 DEBUGGING
		1984
		1985
		1986	CFPLUS_DEBUG - environment variable
		1987
		1988	1 draw borders around widgets
		1989	2 add low-level widget info to tooltips
		1990	4 show fps
		1991	8 suppress tooltips
		1992
2016	=head1 AUTHOR	1993	=head1 AUTHOR
2017		1994
2018	Marc Lehmann <crossfire@schmorp.de>, Robin Redeker <elmex@ta-sa.org>	1995	Marc Lehmann <crossfire@schmorp.de>, Robin Redeker <elmex@ta-sa.org>
2019		1996
2020		1997

Diff Legend

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