ViewVC Help

View File | Revision Log | Show Annotations | Download File

/cvs/deliantra/Deliantra-Client/DC/UI.pm

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.384 by root, Fri Jul 20 16:32:11 2007 UTC vs.
Revision 1.385 by root, Fri Jul 20 16:32:17 2007 UTC

…		…
1128	$self->{vslider}->set_range ([$self->{vslider}{range}[0], 0, $h1, $h2, 1]);	1128	$self->{vslider}->set_range ([$self->{vslider}{range}[0], 0, $h1, $h2, 1]);
1129		1129
1130	my $visible = $h1 > $h2;	1130	my $visible = $h1 > $h2;
1131	if ($visible != $self->{vslider}{visible}) {	1131	if ($visible != $self->{vslider}{visible}) {
1132	$visible ? $self->SUPER::add_at (1, 0, $self->{vslider})	1132	$visible ? $self->SUPER::add_at (1, 0, $self->{vslider})
1133	#!/opt/bin/perl
1134
1135	my $startup_done = sub { };
1136	our $PANGO = "1.5.0";
1137
1138	# do splash-screen thingy on win32
1139	BEGIN {
1140	if (%PAR::LibCache && $^O eq "MSWin32") {
1141	while (my ($filename, $zip) = each %PAR::LibCache) {
1142	$zip->extractMember ("SPLASH.bmp", "$ENV{PAR_TEMP}/SPLASH.bmp");
1143	}
1144
1145	require Win32::GUI::SplashScreen;
1146
1147	Win32::GUI::SplashScreen::Show (
1148	-file => "$ENV{PAR_TEMP}/SPLASH.bmp",
1149	);
1150
1151	$startup_done = sub {
1152	Win32::GUI::SplashScreen::Done (1);
1153	};
1154	}
1155	}
1156
1157	use strict;
1158	use utf8;
1159
1160	use Carp 'verbose';
1161
1162	# do things only needed for single-binary version (par)
1163	BEGIN {
1164	if (%PAR::LibCache) {
1165	@INC = grep ref, @INC; # weed out all paths except pars loader refs
1166
1167	my $tmp = $ENV{PAR_TEMP};
1168
1169	while (my ($filename, $zip) = each %PAR::LibCache) {
1170	for ($zip->memberNames) {
1171	next unless /^root\/(.*)/;
1172	$zip->extractMember ($_, "$tmp/$1")
1173	unless -e "$tmp/$1";
1174	}
1175	}
1176
1177	if ($^O eq "MSWin32") {
1178	# relocatable
1179	} else {
1180	# unix, need to patch pango rc file
1181	open my $fh, "<:perlio", "$tmp/usr/lib/pango/$PANGO/module-files.d/libpango1.0-0.modules"
1182	or die "$tmp/usr/lib/$PANGO/module-files.d/libpango1.0-0.modules: $!";
1183	local $/;
1184	my $rc = <$fh>;
1185	$rc =~ s/^\//$tmp\//gm; # replace abs paths by relative ones
1186
1187	mkdir "$tmp/pango-modules";
1188	open my $fh, ">:perlio", "$tmp/pango-modules/pango.modules"
1189	or die "$tmp/pango-modules/pango.modules: $!";
1190	print $fh $rc;
1191
1192	$ENV{PANGO_RC_FILE} = "$tmp/pango.rc";
1193	open my $fh, ">:perlio", $ENV{PANGO_RC_FILE}
1194	or die "$ENV{PANGO_RC_FILE}: $!";
1195	print $fh "[Pango]\nModuleFiles = $tmp/pango-modules\n";
1196	}
1197
1198	unshift @INC, $tmp;
1199	}
1200	}
1201
1202	# need to do it again because that pile of garbage called PAR nukes it before main
1203	unshift @INC, $ENV{PAR_TEMP}
1204	if %PAR::LibCache;
1205
1206	use Time::HiRes 'time';
1207	use Event;
1208
1209	use Crossfire;
1210	use Crossfire::Protocol::Constants;
1211
1212	use Compress::LZF;
1213
1214	use CFPlus;
1215	use CFPlus::OpenGL ();
1216	use CFPlus::Protocol;
1217	use CFPlus::DB;
1218	use CFPlus::UI;
1219	use CFPlus::UI::Inventory;
1220	use CFPlus::UI::SpellList;
1221	use CFPlus::Pod;
1222	use CFPlus::MapWidget;
1223	use CFPlus::Macro;
1224
1225	$SIG{QUIT} = sub { Carp::cluck "QUIT" };
1226	$SIG{PIPE} = 'IGNORE';
1227
1228	$Event::Eval = 1;
1229	$Event::DIED = sub {
1230	CFPlus::fatal Carp::longmess $_[1]
1231	};
1232
1233	my $MAX_FPS = 60;
1234	my $MIN_FPS = 5; # unused as of yet
1235
1236	our $META_SERVER = "http://metaserver.schmorp.de/current.json";
1237
1238	our $LAST_REFRESH;
1239	our $NOW;
1240
1241	our $CFG;
1242	our $CONN;
1243	our $PROFILE; # current profile
1244	our $FAST; # fast, low-quality mode, possibly useful for software-rendering
1245
1246	our $WANT_REFRESH;
1247	our $CAN_REFRESH;
1248
1249	our @SDL_MODES;
1250	our $WIDTH;
1251	our $HEIGHT;
1252	our $FULLSCREEN;
1253	our $FONTSIZE;
1254
1255	our $FONT_PROP;
1256	our $FONT_FIXED;
1257
1258	our $MAP;
1259	our $MAPMAP;
1260	our $MAPWIDGET;
1261	our $BUTTONBAR;
1262	our $LOGVIEW;
1263	our $CONSOLE;
1264	our $METASERVER;
1265	our $LOGIN_BUTTON;
1266	our $QUIT_DIALOG;
1267	our $HOST_ENTRY;
1268	our $FULLSCREEN_ENABLE;
1269	our $PICKUP_ENABLE;
1270	our $SERVER_INFO;
1271
1272	our $SETUP_DIALOG;
1273	our $SETUP_NOTEBOOK;
1274	our $SETUP_SERVER;
1275	our $SETUP_KEYBOARD;
1276
1277	our $PL_NOTEBOOK;
1278	our $PL_WINDOW;
1279
1280	our $INVENTORY_PAGE;
1281	our $STATS_PAGE;
1282	our $SKILL_PAGE;
1283	our $SPELL_PAGE;
1284	our $SPELL_LIST;
1285
1286	our $HELP_WINDOW;
1287	our $MESSAGE_WINDOW;
1288	our $FLOORBOX;
1289	our $GAUGES;
1290	our $STATWIDS;
1291
1292	our $SDL_ACTIVE;
1293	our %SDL_CB;
1294
1295	our $SDL_MIXER;
1296	our $MUSIC_DEFAULT = "in_a_heartbeat.ogg";
1297	our @MUSIC_WANT;
1298	our $MUSIC_START;
1299	our $MUSIC_PLAYING;
1300	our $MUSIC_PLAYER;
1301	our $MUSIC_RESUME = 30; # resume music when players less than these many seconds before
1302	our @SOUNDS; # event => file mapping
1303	our %AUDIO_CHUNKS; # audio files
1304
1305	our $ALT_ENTER_MESSAGE;
1306	our $STATUSBOX;
1307	our $DEBUG_STATUS;
1308
1309	our $INV;
1310	our $INVR;
1311	our $INV_RIGHT_HB;
1312
1313	our $PICKUP_CFG;
1314
1315	our $IN_BUILD_MODE;
1316	our $BUILD_BUTTON;
1317
1318	sub status {
1319	$STATUSBOX->add (CFPlus::asxml $_[0], pri => -10, group => "status", timeout => 10, fg => [1, 1, 0, 1]);
1320	}
1321
1322	sub debug {
1323	$DEBUG_STATUS->set_text ($_[0]);
1324	}
1325
1326	sub message {
1327	my ($para) = @_;
1328
1329	my $time = sprintf "%02d:%02d:%02d", (localtime time)[2,1,0];
1330
1331	$para->{markup} = "<span foreground='#ffffff'>$time</span> $para->{markup}";
1332
1333	$LOGVIEW->add_paragraph ($para);
1334	$LOGVIEW->scroll_to_bottom;
1335	}
1336
1337	sub destroy_query_dialog {
1338	(delete $_[0]{query_dialog})->destroy
1339	if $_[0]{query_dialog};
1340	}
1341
1342	# FIXME: a very ugly hack to wait for stat update look below! #d#
1343	our $QUERY_TIMER; #d#
1344
1345	# server query dialog
1346	sub server_query {
1347	my ($conn, $flags, $prompt) = @_;
1348
1349	# FIXME: a very ugly hack to wait for stat update #d#
1350	if ($prompt =~ /roll new stats/ and not $conn->{stat_change_with}) {
1351	unless ($QUERY_TIMER) {
1352	$QUERY_TIMER =
1353	Event->timer (
1354	after => 1,
1355	cb => sub {
1356	server_query ($conn, $flags, $prompt, 1);
1357	$QUERY_TIMER = undef
1358	}
1359	);
1360	return;
1361	}
1362	}
1363
1364	$conn->{query_dialog} = my $dialog = new CFPlus::UI::Toplevel
1365	x => "center",
1366	y => "center",
1367	title => "Server Query",
1368	child => my $vbox = new CFPlus::UI::VBox,
1369	;
1370
1371	my @dialog = my $label = new CFPlus::UI::Label
1372	max_w => $::WIDTH * 0.8,
1373	ellipsise => 0,
1374	text => $prompt;
1375
1376	if ($flags & CS_QUERY_YESNO) {
1377	push @dialog, my $hbox = new CFPlus::UI::HBox;
1378
1379	$hbox->add (new CFPlus::UI::Button
1380	text => "No",
1381	on_activate => sub {
1382	$conn->send ("reply n");
1383	$dialog->destroy;
1384	0
1385	}
1386	);
1387	$hbox->add (new CFPlus::UI::Button
1388	text => "Yes",
1389	on_activate => sub {
1390	$conn->send ("reply y");
1391	destroy_query_dialog $conn;
1392	0
1393	},
1394	);
1395
1396	$dialog->grab_focus;
1397
1398	} elsif ($flags & CS_QUERY_SINGLECHAR) {
1399	if ($prompt =~ /Now choose a character|Press any key for the next race/i) {
1400	$dialog->{tooltip} = "#charcreation_focus";
1401
1402	unshift @dialog, new CFPlus::UI::Label
1403	max_w => $::WIDTH * 0.8,
1404	ellipsise => 0,
1405	markup => "\nOr use your keyboard and the text entry below:\n";
1406
1407	unshift @dialog, my $table = new CFPlus::UI::Table;
1408
1409	$table->add_at (0, 0, new CFPlus::UI::Button
1410	text => "Next Race",
1411	on_activate => sub {
1412	$conn->send ("reply n");
1413	destroy_query_dialog $conn;
1414	0
1415	},
1416	);
1417	$table->add_at (2, 0, new CFPlus::UI::Button
1418	text => "Accept",
1419	on_activate => sub {
1420	$conn->send ("reply d");
1421	destroy_query_dialog $conn;
1422	0
1423	},
1424	);
1425
1426	if ($conn->{chargen_race_description}) {
1427	unshift @dialog, new CFPlus::UI::Label
1428	max_w => $::WIDTH * 0.8,
1429	ellipsise => 0,
1430	markup => "<span foreground='#ccccff'>$conn->{chargen_race_description}</span>",
1431	;
1432	}
1433
1434	unshift @dialog, new CFPlus::UI::Face
1435	face => $conn->{player}{face},
1436	bg => [.2, .2, .2, 1],
1437	min_w => 64,
1438	min_h => 64,
1439	;
1440
1441	if ($conn->{chargen_race_title}) {
1442	unshift @dialog, new CFPlus::UI::Label
1443	allign => 1,
1444	ellipsise => 0,
1445	markup => "<span foreground='#ccccff' size='large'>Race: $conn->{chargen_race_title}</span>",
1446	;
1447	}
1448
1449	unshift @dialog, new CFPlus::UI::Label
1450	max_w => $::WIDTH * 0.4,
1451	ellipsise => 0,
1452	markup => (CFPlus::Pod::section_label ui => "chargen_race"),
1453	;
1454
1455	} elsif ($prompt =~ /roll new stats/) {
1456	if (my $stat = delete $conn->{stat_change_with}) {
1457	$conn->send ("reply $stat");
1458	destroy_query_dialog $conn;
1459	return;
1460	}
1461
1462	unshift @dialog, new CFPlus::UI::Label
1463	max_w => $::WIDTH * 0.4,
1464	ellipsise => 0,
1465	markup => "\nOr use your keyboard and the text entry below:\n";
1466
1467	unshift @dialog, my $table = new CFPlus::UI::Table;
1468
1469	# left: re-roll
1470	$table->add_at (0, 0, new CFPlus::UI::Button
1471	text => "Roll Again",
1472	on_activate => sub {
1473	$conn->send ("reply y");
1474	destroy_query_dialog $conn;
1475	0
1476	},
1477	);
1478
1479	# center: swap stats
1480	my ($sw1, $sw2) = map +(new CFPlus::UI::Selector
1481	expand => 1,
1482	value => $_,
1483	options => [
1484	[1 => "Str", "Strength ($conn->{stat}{+CS_STAT_STR})"],
1485	[2 => "Dex", "Dexterity ($conn->{stat}{+CS_STAT_DEX})"],
1486	[3 => "Con", "Constitution ($conn->{stat}{+CS_STAT_CON})"],
1487	[4 => "Int", "Intelligence ($conn->{stat}{+CS_STAT_INT})"],
1488	[5 => "Wis", "Wisdom ($conn->{stat}{+CS_STAT_WIS})"],
1489	[6 => "Pow", "Power ($conn->{stat}{+CS_STAT_POW})"],
1490	[7 => "Cha", "Charisma ($conn->{stat}{+CS_STAT_CHA})"],
1491	],
1492	), 1 .. 2;
1493
1494	$table->add_at (2, 0, new CFPlus::UI::Button
1495	text => "Swap Stats",
1496	on_activate => sub {
1497	$conn->{stat_change_with} = $sw2->{value};
1498	$conn->send ("reply $sw1->{value}");
1499	destroy_query_dialog $conn;
1500	0
1501	},
1502	);
1503	$table->add_at (2, 1, new CFPlus::UI::HBox children => [$sw1, $sw2]);
1504
1505	# right: accept
1506	$table->add_at (4, 0, new CFPlus::UI::Button
1507	text => "Accept",
1508	on_activate => sub {
1509	$conn->send ("reply n");
1510	$STATS_PAGE->hide;
1511	destroy_query_dialog $conn;
1512	0
1513	},
1514	);
1515
1516	unshift @dialog, my $hbox = new CFPlus::UI::HBox;
1517	for (
1518	[Str => CS_STAT_STR],
1519	[Dex => CS_STAT_DEX],
1520	[Con => CS_STAT_CON],
1521	[Int => CS_STAT_INT],
1522	[Wis => CS_STAT_WIS],
1523	[Pow => CS_STAT_POW],
1524	[Cha => CS_STAT_CHA],
1525	) {
1526	my ($name, $id) = @$_;
1527	$hbox->add (new CFPlus::UI::Label
1528	markup => "$conn->{stat}{$id} <span foreground='yellow'>$name</span>",
1529	align => 0,
1530	expand => 1,
1531	can_events => 1,
1532	can_hover => 1,
1533	tooltip => "#stat_$name",
1534	);
1535	}
1536
1537	unshift @dialog, new CFPlus::UI::Label
1538	max_w => $::WIDTH * 0.4,
1539	ellipsise => 0,
1540	markup => (CFPlus::Pod::section_label ui => "chargen_stats"),
1541	;
1542	}
1543
1544	push @dialog, my $entry = new CFPlus::UI::Entry
1545	on_changed => sub {
1546	$conn->send ("reply $_[1]");
1547	destroy_query_dialog $conn;
1548	0
1549	},
1550	;
1551
1552	$entry->grab_focus;
1553
1554	} else {
1555	$dialog->{tooltip} = "Enter the reply and press return (click on the entry to make sure it has keyboard focus)";
1556
1557	push @dialog, my $entry = new CFPlus::UI::Entry
1558	$flags & CS_QUERY_HIDEINPUT ? (hidden => "*") : (),
1559	on_activate => sub {
1560	$conn->send ("reply $_[1]");
1561	destroy_query_dialog $conn;
1562	0
1563	},
1564	;
1565
1566	$entry->grab_focus;
1567	}
1568
1569	$vbox->add (@dialog);
1570	$dialog->show;
1571	}
1572
1573	sub start_game {
1574	status "logging in...";
1575
1576	$LOGIN_BUTTON->set_text ("Logout");
1577	$SETUP_DIALOG->hide;
1578
1579	my $mapsize = List::Util::min 32, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / 32;
1580
1581	my ($host, $port) = split /:/, $PROFILE->{host};
1582
1583	$MAP = new CFPlus::Map;
1584
1585	$CONN = eval {
1586	new CFPlus::Protocol
1587	host => $host,
1588	port => $port || 13327,
1589	user => $PROFILE->{user},
1590	pass => $PROFILE->{password},
1591	mapw => $mapsize,
1592	maph => $mapsize,
1593
1594	client => "cfplus $CFPlus::VERSION $] $^O",
1595
1596	map_widget => $MAPWIDGET,
1597	logview => $LOGVIEW,
1598	statusbox => $STATUSBOX,
1599	map => $MAP,
1600	mapmap => $MAPMAP,
1601	query => \&server_query,
1602
1603	setup_req => {
1604	smoothing => $CFG->{map_smoothing}*1,
1605	},
1606
1607	sound_play => sub {
1608	my ($x, $y, $soundnum, $type) = @_;
1609
1610	$SDL_MIXER
1611	or return;
1612
1613	my $chunk = $AUDIO_CHUNKS{$SOUNDS[$soundnum]}
1614	or return;
1615
1616	$chunk->play;
1617	},
1618	};
1619
1620	if ($CONN) {
1621	CFPlus::lowdelay fileno $CONN->{fh};
1622
1623	status "login successful";
1624	} else {
1625	status "unable to connect";
1626	stop_game();
1627	}
1628	}
1629
1630	sub stop_game {
1631	$LOGIN_BUTTON->set_text ("Login");
1632	$SETUP_NOTEBOOK->set_current_page ($SETUP_SERVER);
1633	$SETUP_DIALOG->show;
1634	$PL_WINDOW->hide;
1635	$SPELL_LIST->clear_spells;
1636	$CFPlus::UI::ROOT->emit (stop_game => ! ! $CONN);
1637
1638	&audio_music_set ([]);
1639
1640	return unless $CONN;
1641
1642	status "connection closed";
1643
1644	destroy_query_dialog $CONN;
1645	$CONN->destroy;
1646	$CONN = 0; # false, does not autovivify
1647
1648	undef $MAP;
1649	}
1650
1651	sub graphics_setup {
1652	my $vbox = new CFPlus::UI::VBox;
1653
1654	$vbox->add (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]);
1655
1656	my $row = 0;
1657
1658	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "OpenGL Info");
1659	$table->add_at (1, $row++, new CFPlus::UI::Label valign => 0, fontsize => 0.8, text => CFPlus::OpenGL::gl_vendor . ", " . CFPlus::OpenGL::gl_version,
1660	can_events => 1,
1661	tooltip => "<tt><span size='8192'>" . (CFPlus::OpenGL::gl_extensions) . "</span></tt>");
1662
1663	my $vidmode_tooltip =
1664	"<b>Video Mode.</b> The video mode to use for fullscreen (and the window size for windowed operation). "
1665	. "The format is <i>width</i> x <i>height</i> \@ <i>depth-per-channel</i> + <i>alpha-channel</i>.";
1666
1667	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Video Mode");
1668	$table->add_at (1, $row++, my $hbox = new CFPlus::UI::HBox);
1669
1670	$hbox->add (my $mode_slider = new CFPlus::UI::Slider
1671	force_w => $WIDTH * 0.1, expand => 1, range => [$CFG->{sdl_mode}, 0, $#SDL_MODES, 0, 1],
1672	tooltip => $vidmode_tooltip);
1673	$hbox->add (my $mode_label = new CFPlus::UI::Label
1674	align => 0, valign => 0, height => 0.8, template => "9999x9999@9+9",
1675	can_events => 1, tooltip => $vidmode_tooltip);
1676
1677	$mode_slider->connect (changed => sub {
1678	my ($self, $value) = @_;
1679
1680	$CFG->{sdl_mode} = $self->{range}[0] = $value = int $value;
1681	$mode_label->set_text (sprintf '%dx%d@%d+%d', @{$SDL_MODES[$value]});
1682	});
1683	$mode_slider->emit (changed => $mode_slider->{range}[0]);
1684
1685	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fullscreen");
1686	$table->add_at (1, $row++, $FULLSCREEN_ENABLE = new CFPlus::UI::CheckBox
1687	state => $CFG->{fullscreen},
1688	tooltip => "Bring the client into fullscreen mode.",
1689	on_changed => sub { my ($self, $value) = @_; $CFG->{fullscreen} = $value; 0 }
1690	);
1691
1692	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fast & Ugly");
1693	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
1694	state => $CFG->{fast},
1695	tooltip => "Lower the visual quality considerably to speed up rendering.",
1696	on_changed => sub { my ($self, $value) = @_; $CFG->{fast} = $value; 0 }
1697	);
1698
1699	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "GUI Fontsize");
1700	$table->add_at (1, $row++, new CFPlus::UI::Slider
1701	range => [$CFG->{gui_fontsize}, 0.5, 2, 0, 0.1],
1702	tooltip => "The base font size used by most GUI elements that do not have their own setting.",
1703	on_changed => sub { $CFG->{gui_fontsize} = $_[1]; 0 },
1704	);
1705
1706	$table->add_at (1, $row++, new CFPlus::UI::Button
1707	expand => 1, align => 0, text => "Apply",
1708	tooltip => "Apply the video settings above.",
1709	on_activate => sub {
1710	video_shutdown ();
1711	video_init ();
1712	0
1713	}
1714	);
1715
1716	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Map Scale");
1717	$table->add_at (1, $row++, new CFPlus::UI::Slider
1718	range => [(log $CFG->{map_scale}) / (log 2), -3, 1, 0, 1],
1719	tooltip => "Enlarge or shrink the displayed map. Changes are instant.",
1720	on_changed => sub { my ($self, $value) = @_; $CFG->{map_scale} = 2 ** $value; 0 }
1721	);
1722
1723	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Map Smoothing");
1724	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
1725	state => $CFG->{map_smoothing},
1726	tooltip => "<b>Map Smoothing</b> tries to make tile borders less square. "
1727	. "This increases load on the graphics subsystem and works only with 2.x servers. "
1728	. "Changes take effect at next connection only.",
1729	on_changed => sub { my ($self, $value) = @_; $CFG->{map_smoothing} = $value; 0 }
1730	);
1731
1732	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Fog of War");
1733	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
1734	state => $CFG->{fow_enable},
1735	tooltip => "<b>Fog-of-War</b> marks areas that cannot be seen by the player. Changes are instant.",
1736	on_changed => sub { my ($self, $value) = @_; $CFG->{fow_enable} = $value; 0 }
1737	);
1738
1739	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "FoW Intensity");
1740	$table->add_at (1, $row++, new CFPlus::UI::Slider
1741	range => [$CFG->{fow_intensity}, 0, 1, 0, 1 / 256],
1742	tooltip => "<b>Fog of War Lightness.</b> The higher the intensity, the lighter the Fog-of-War color. Changes are instant.",
1743	on_changed => sub { my ($self, $value) = @_; $CFG->{fow_intensity} = $value; 0 }
1744	);
1745
1746	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Message Fontsize");
1747	$table->add_at (1, $row++, new CFPlus::UI::Slider
1748	range => [$CFG->{log_fontsize}, 0.5, 2, 0, 0.1],
1749	tooltip => "The font size used by the <b>message/server log</b> window only. Changes are instant.",
1750	on_changed => sub { $LOGVIEW->set_fontsize ($CFG->{log_fontsize} = $_[1]); 0 },
1751	);
1752
1753	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Gauge fontsize");
1754	$table->add_at (1, $row++, new CFPlus::UI::Slider
1755	range => [$CFG->{gauge_fontsize}, 0.5, 2, 0, 0.1],
1756	tooltip => "Adjusts the fontsize of the gauges at the bottom right. Changes are instant.",
1757	on_changed => sub {
1758	$CFG->{gauge_fontsize} = $_[1];
1759	&set_gauge_window_fontsize;
1760	0
1761	}
1762	);
1763
1764	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Gauge size");
1765	$table->add_at (1, $row++, new CFPlus::UI::Slider
1766	range => [$CFG->{gauge_size}, 0.2, 0.8],
1767	tooltip => "Adjust the size of the stats gauges at the bottom right. Changes are instant.",
1768	on_changed => sub {
1769	$CFG->{gauge_size} = $_[1];
1770	$GAUGES->{win}->set_size ($WIDTH, int $HEIGHT * $CFG->{gauge_size});
1771	0
1772	}
1773	);
1774
1775	$vbox
1776	}
1777
1778	sub audio_setup {
1779	my $vbox = new CFPlus::UI::VBox;
1780
1781	$vbox->add (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]);
1782
1783	my $row = 0;
1784
1785	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Audio Enable");
1786	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
1787	state => $CFG->{audio_enable},
1788	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.",
1789	on_changed => sub { $CFG->{audio_enable} = $_[1]; 0 }
1790	);
1791	# $table->add_at (0, 9, new CFPlus::UI::Label valign => 0, align => 1, text => "Effects Volume");
1792	# $table->add_at (1, 8, new CFPlus::UI::Slider range => [$CFG->{effects_volume}, 0, 128, 1], on_changed => sub {
1793	# $CFG->{effects_volume} = $_[1];
1794	# });
1795	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Background Music");
1796	$table->add_at (1, $row++, my $hbox = new CFPlus::UI::HBox);
1797	$hbox->add (new CFPlus::UI::CheckBox
1798	expand => 1, state => $CFG->{bgm_enable},
1799	tooltip => "If enabled, playing of background music is enabled. If disabled, no background music will be played.",
1800	on_changed => sub { $CFG->{bgm_enable} = $_[1]; 0 }
1801	);
1802	$hbox->add (new CFPlus::UI::Slider
1803	expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0, 1/128],
1804	tooltip => "The volume of the background music. Changes are instant.",
1805	on_changed => sub { $CFG->{bgm_volume} = $_[1]; CFPlus::MixMusic::volume $_[1] * 128; 0 }
1806	);
1807
1808	$table->add_at (1, $row++, new CFPlus::UI::Button
1809	expand => 1, align => 0, text => "Apply",
1810	tooltip => "Apply the audio settings",
1811	on_activate => sub {
1812	audio_shutdown ();
1813	audio_init ();
1814	0
1815	}
1816	);
1817
1818	$vbox
1819	}
1820
1821	sub set_gauge_window_fontsize {
1822	for (map { $GAUGES->{$_} } grep { $_ ne 'win' } keys %{$GAUGES}) {
1823	$_->set_fontsize ($::CFG->{gauge_fontsize});
1824	}
1825	}
1826
1827	sub make_gauge_window {
1828	my $gh = int $HEIGHT * $CFG->{gauge_size};
1829
1830	my $win = new CFPlus::UI::Frame (
1831	force_x => 0,
1832	force_y => "max",
1833	force_w => $WIDTH,
1834	force_h => $gh,
1835	);
1836
1837	$win->add (my $hbox = new CFPlus::UI::HBox
1838	children => [
1839	(new CFPlus::UI::HBox expand => 1),
1840	(new CFPlus::UI::VBox children => [
1841	(new CFPlus::UI::Empty expand => 1),
1842	(new CFPlus::UI::Frame bg => [0, 0, 0, 0.4], child => ($FLOORBOX = new CFPlus::UI::Table)),
1843	]),
1844	(my $vbox = new CFPlus::UI::VBox),
1845	],
1846	);
1847
1848	$vbox->add (new CFPlus::UI::HBox
1849	expand => 1,
1850	children => [
1851	(new CFPlus::UI::Empty expand => 1),
1852	(my $hb = new CFPlus::UI::HBox),
1853	],
1854	);
1855
1856	$hb->add (my $hg = new CFPlus::UI::Gauge type => 'hp', tooltip => "#stat_health");
1857	$hb->add (my $mg = new CFPlus::UI::Gauge type => 'mana', tooltip => "#stat_mana");
1858	$hb->add (my $gg = new CFPlus::UI::Gauge type => 'grace', tooltip => "#stat_grace");
1859	$hb->add (my $fg = new CFPlus::UI::Gauge type => 'food', tooltip => "#stat_food");
1860
1861	$vbox->add (my $exp = new CFPlus::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1, tooltip => "#stat_exp");
1862	$vbox->add (my $rng = new CFPlus::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1, tooltip => "#stat_ranged");
1863
1864	$GAUGES = {
1865	exp => $exp, win => $win, range => $rng,
1866	food => $fg, mana => $mg, hp => $hg, grace => $gg
1867	};
1868
1869	&set_gauge_window_fontsize;
1870
1871	$win
1872	}
1873
1874	sub debug_setup {
1875	my $table = new CFPlus::UI::Table;
1876
1877	$table->add_at (0, 0, new CFPlus::UI::Label text => "Widget Borders");
1878	$table->add_at (1, 0, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 1; 0 });
1879	$table->add_at (0, 1, new CFPlus::UI::Label text => "Tooltip Widget Info");
1880	$table->add_at (1, 1, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 2; 0 });
1881	$table->add_at (0, 2, new CFPlus::UI::Label text => "Show FPS");
1882	$table->add_at (1, 2, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 4; 0 });
1883	$table->add_at (0, 3, new CFPlus::UI::Label text => "Suppress Tooltips");
1884	$table->add_at (1, 3, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 8; 0 });
1885	$table->add_at (0, 4, new CFPlus::UI::Button text => "die on click(tm)", on_activate => sub { &CFPlus::debug() } );
1886
1887	$table->add_at (0, 5, new CFPlus::UI::TextEdit text => "line1\0152\0153");#d#
1888
1889	$table
1890	}
1891
1892	sub stats_window {
1893	my $r = new CFPlus::UI::ScrolledWindow (
1894	expand => 1,
1895	scroll_y => 1
1896	);
1897	$r->add (my $vb = new CFPlus::UI::VBox);
1898
1899	$vb->add (new CFPlus::UI::FancyFrame
1900	label => "Player",
1901	child => (my $pi = new CFPlus::UI::VBox),
1902	);
1903
1904	$pi->add ($STATWIDS->{title} = new CFPlus::UI::Label valign => 0, align => -1, text => "Title:", expand => 1,
1905	can_hover => 1, can_events => 1,
1906	tooltip => "Your name and title. You can change your title by using the <b>title</b> command, if supported by the server.");
1907	$pi->add ($STATWIDS->{map} = new CFPlus::UI::Label valign => 0, align => -1, text => "Map:", expand => 1,
1908	can_hover => 1, can_events => 1,
1909	tooltip => "The map you are currently on (if supported by the server).");
1910
1911	$pi->add (my $hb0 = new CFPlus::UI::HBox);
1912	$hb0->add ($STATWIDS->{weight} = new CFPlus::UI::Label valign => 0, align => -1, text => "Weight:", expand => 1,
1913	can_hover => 1, can_events => 1,
1914	tooltip => "The weight of the player including all inventory items.");
1915	$hb0->add ($STATWIDS->{m_weight} = new CFPlus::UI::Label valign => 0, align => -1, text => "Max weight:", expand => 1,
1916	can_hover => 1, can_events => 1,
1917	tooltip => "The weight limit: you cannot carry more than this.");
1918
1919	$vb->add (new CFPlus::UI::FancyFrame
1920	label => "Primary/Secondary Statistics",
1921	child => (my $hb = new CFPlus::UI::HBox expand => 1),
1922	);
1923	$hb->add (my $tbl = new CFPlus::UI::Table expand => 1);
1924
1925	my $color2 = [1, 1, 0];
1926
1927	for (
1928	[0, 0, st_str => "Str", 30],
1929	[0, 1, st_dex => "Dex", 30],
1930	[0, 2, st_con => "Con", 30],
1931	[0, 3, st_int => "Int", 30],
1932	[0, 4, st_wis => "Wis", 30],
1933	[0, 5, st_pow => "Pow", 30],
1934	[0, 6, st_cha => "Cha", 30],
1935
1936	[2, 0, st_wc => "Wc", -120],
1937	[2, 1, st_ac => "Ac", -120],
1938	[2, 2, st_dam => "Dam", 120],
1939	[2, 3, st_arm => "Arm", 120],
1940	[2, 4, st_spd => "Spd", 10.54],
1941	[2, 5, st_wspd => "WSp", 10.54],
1942	) {
1943	my ($col, $row, $id, $label, $template) = @$_;
1944
1945	$tbl->add ($col , $row, $STATWIDS->{$id} = new CFPlus::UI::Label
1946	font => $FONT_FIXED, can_hover => 1, can_events => 1, valign => 0,
1947	align => +1, template => $template, tooltip => "#stat_$label");
1948	$tbl->add ($col + 1, $row, $STATWIDS->{"$id\_lbl"} = new CFPlus::UI::Label
1949	font => $FONT_FIXED, can_hover => 1, can_events => 1, fg => $color2, valign => 0,
1950	align => -1, text => $label, tooltip => "#stat_$label");
1951	}
1952
1953	$vb->add (new CFPlus::UI::FancyFrame
1954	label => "Resistancies",
1955	child => (my $tbl2 = new CFPlus::UI::Table expand => 1),
1956	);
1957
1958	my $row = 0;
1959	my $col = 0;
1960
1961	my %resist_names = (
1962	slow => ["Slow",
1963	"<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.)"],
1964	holyw => ["Holy Word",
1965	"<b>Holy Word</b> (resistance you against getting the fear when someone whose god doesn't like you spells the holy word on you.)"],
1966	conf => ["Confusion",
1967	"<b>Confusion</b> (If you are hit by confusion you will move into random directions, and likely into monsters.)"],
1968	fire => ["Fire",
1969	"<b>Fire</b> (just your resistance to fire spells like burning hands, dragonbreath, meteor swarm fire, ...)"],
1970	depl => ["Depletion",
1971	"<b>Depletion</b> (some monsters and other effects can cause stats depletion)"],
1972	magic => ["Magic",
1973	"<b>Magic</b> (resistance to magic spells like magic missile or similar)"],
1974	drain => ["Draining",
1975	"<b>Draining</b> (some monsters (e.g. vampires) and other effects can steal experience)"],
1976	acid => ["Acid",
1977	"<b>Acid</b> (resistance to acid, acid hurts pretty much and also corrodes your weapons)"],
1978	pois => ["Poison",
1979	"<b>Poison</b> (resistance to getting poisoned)"],
1980	para => ["Paralysation",
1981	"<b>Paralysation</b> (this resistance affects the chance you get paralysed)"],
1982	deat => ["Death",
1983	"<b>Death</b> (resistance against death spells)"],
1984	phys => ["Physical",
1985	"<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.)"],
1986	blind => ["Blind",
1987	"<b>Blind</b> (blind resistance affects the chance of a successful blinding attack)"],
1988	fear => ["Fear",
1989	"<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)"],
1990	tund => ["Turn undead",
1991	"<b>Turn undead</b> (affects your resistancy to various forms of 'turn undead' spells. Only relevant when you are, in fact, undead..."],
1992	elec => ["Electricity",
1993	"<b>Electricity</b> (resistance against electricity, spells like large lightning, small lightning, ...)"],
1994	cold => ["Cold",
1995	"<b>Cold</b> (this is your resistance against cold spells like icestorm, snowstorm, ...)"],
1996	ghit => ["Ghost hit",
1997	"<b>Ghost hit</b> (special attack used by ghosts and ghost-like beings)"],
1998	);
1999	for (qw/slow holyw conf fire depl magic
2000	drain acid pois para deat phys
2001	blind fear tund elec cold ghit/)
2002	{
2003	$tbl2->add ($col, $row,
2004	$STATWIDS->{"res_$_"} =
2005	new CFPlus::UI::Label
2006	font => $FONT_FIXED,
2007	template => "-100%",
2008	align => +1,
2009	valign => 0,
2010	can_events => 1,
2011	can_hover => 1,
2012	tooltip => $resist_names{$_}->[1],
2013	);
2014	$tbl2->add ($col + 1, $row, new CFPlus::UI::Image
2015	font => $FONT_FIXED,
2016	can_hover => 1,
2017	can_events => 1,
2018	path => "ui/resist/resist_$_.png",
2019	tooltip => $resist_names{$_}->[1],
2020	);
2021	$tbl2->add ($col + 2, $row, new CFPlus::UI::Label
2022	text => $resist_names{$_}->[0],
2023	font => $FONT_FIXED,
2024	can_hover => 1,
2025	can_events => 1,
2026	tooltip => $resist_names{$_}->[1],
2027	);
2028
2029	$row++;
2030	if ($row % 6 == 0) {
2031	$col += 3;
2032	$row = 0;
2033	}
2034	}
2035
2036	#update_stats_window ({});
2037
2038	$r
2039	}
2040
2041	sub skill_window {
2042	my $sw = new CFPlus::UI::ScrolledWindow (expand => 1);
2043	$sw->add ($STATWIDS->{skill_tbl} = new CFPlus::UI::Table expand => 1, col_expand => [0, 0, 1, 0, 0, 1]);
2044	$sw
2045	}
2046
2047	sub formsep($) {
2048	scalar reverse join ",", unpack "(A3)*", reverse $_[0] * 1
2049	}
2050
2051	my $METASERVER_ATIME;
2052
2053	sub update_metaserver {
2054	my ($metaserver_dialog) = @_;
2055
2056	$METASERVER = $metaserver_dialog
2057	if defined $metaserver_dialog;
2058
2059	return if $METASERVER_ATIME > time;
2060	$METASERVER_ATIME = time + 60;
2061
2062	my $table = $METASERVER->{table};
2063	$table->clear;
2064	$table->add_at (0, 0, my $label = new CFPlus::UI::Label max_w => $WIDTH * 0.8, text => "fetching server list...");
2065
2066	my $ok = 0;
2067
2068	CFPlus::background {
2069	my $ua = CFPlus::lwp_useragent;
2070
2071	CFPlus::background_msg CFPlus::from_json +(CFPlus::lwp_check $ua->get ($META_SERVER))->decoded_content;
2072	} sub {
2073	my ($msg) = @_;
2074	if ($msg) {
2075	$table->clear;
2076
2077	my @tip = (
2078	"The current number of users logged in on the server.",
2079	"The hostname of the server.",
2080	"The time this server has been running without being restarted.",
2081	"The server software version - a '+' indicates a Crossfire+ server.",
2082	"Short information about this server provided by its admins.",
2083	);
2084	my @col = qw(#Users Host Uptime Version Description);
2085	$table->add_at ($_, 0, new CFPlus::UI::Label
2086	can_hover => 1, can_events => 1,
2087	align => 0, fg => [1, 1, 0],
2088	text => $col[$_], tooltip => $tip[$_])
2089	for 0 .. $#col;
2090
2091	my @align = qw(1 0 1 1 -1);
2092
2093	my $y = 0;
2094	for my $m (@{ $msg->{servers} }) {
2095	my ($ip, $last, $host, $users, $version, $desc, $ibytes, $obytes, $uptime, $highlight) =
2096	@$m{qw(ip age hostname users version description ibytes obytes uptime highlight)};
2097
2098	for ($desc) {
2099	s/<br>/\n/gi;
2100	s/<li>/\n· /gi;
2101	s/<.*?>//sgi;
2102	s/&amp;/&/g;
2103	s/&lt;/</g;
2104	s/&gt;/>/g;
2105	}
2106
2107	$uptime = sprintf "%dd %02d:%02d:%02d",
2108	(int $uptime / 86400),
2109	(int $uptime / 3600) % 24,
2110	(int $uptime / 60) % 60,
2111	$uptime % 60;
2112
2113	$m = [$users, $host, $uptime, $version, $desc];
2114
2115	$y++;
2116
2117	$table->add_at (scalar @$m, $y, new CFPlus::UI::VBox children => [
2118	(new CFPlus::UI::Button
2119	text => "Use",
2120	tooltip => "Put this server into the <b>Host:Port</b> field",
2121	on_activate => sub {
2122	$HOST_ENTRY->set_text ($CFG->{profile}{default}{host} = $host);
2123	$METASERVER->hide;
2124	0
2125	},
2126	),
2127	(new CFPlus::UI::Empty expand => 1),
2128	]);
2129
2130	$table->add_at ($_, $y, new CFPlus::UI::Label
2131	max_w => $::WIDTH * 0.4,
2132	ellipsise => 0,
2133	align => $align[$_],
2134	text => $m->[$_],
2135	tooltip => $tip[$_],
2136	fg => ($highlight ? [1, 1, 1] : [.7, .7, .7]),
2137	can_hover => 1,
2138	can_events => 1,
2139	fontsize => 0.8)
2140	for 0 .. $#$m;
2141	}
2142	} else {
2143	$ok or $label->set_text ("error while contacting metaserver");
2144	}
2145	};
2146
2147	}
2148
2149	sub metaserver_dialog {
2150	my $vbox = new CFPlus::UI::VBox;
2151	my $table = new CFPlus::UI::Table;
2152	$vbox->add (new CFPlus::UI::ScrolledWindow expand => 1, child => $table);
2153
2154	my $dialog = new CFPlus::UI::Toplevel
2155	title => "Server List",
2156	name => 'metaserver_dialog',
2157	x => 'center',
2158	y => 'center',
2159	z => 3,
2160	force_w => $::WIDTH * 0.9,
2161	force_h => $::HEIGHT * 0.7,
2162	child => $vbox,
2163	has_close_button => 1,
2164	table => $table,
2165	on_visibility_change => sub {
2166	update_metaserver ($_[0]) if $_[1];
2167	0
2168	},
2169	;
2170
2171	$dialog
2172	}
2173
2174	sub server_setup {
2175	my $vbox = new CFPlus::UI::VBox;
2176
2177	$vbox->add (new CFPlus::UI::FancyFrame
2178	label => "Connection Settings",
2179	child => (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]),
2180	);
2181	$table->add_at (0, 2, new CFPlus::UI::Label valign => 0, align => 1, text => "Host:Port");
2182
2183	{
2184	$table->add_at (1, 2, my $vbox = new CFPlus::UI::VBox);
2185
2186	$vbox->add (
2187	$HOST_ENTRY = new CFPlus::UI::Entry
2188	expand => 1,
2189	text => $CFG->{profile}{default}{host},
2190	tooltip => "The hostname or ip address of the Crossfire(+) server to connect to",
2191	on_changed => sub {
2192	my ($self, $value) = @_;
2193	$CFG->{profile}{default}{host} = $value;
2194	0
2195	}
2196	);
2197
2198	$vbox->add (new CFPlus::UI::Button
2199	expand => 1,
2200	text => "Server List",
2201	other => $METASERVER,
2202	tooltip => "Show a list of available crossfire servers",
2203	on_activate => sub { $METASERVER->toggle_visibility; 0 },
2204	on_visibility_change => sub { $METASERVER->hide unless $_[1]; 0 },
2205	);
2206	}
2207
2208	$table->add_at (0, 4, new CFPlus::UI::Label valign => 0, align => 1, text => "Username");
2209	$table->add_at (1, 4, new CFPlus::UI::Entry
2210	text => $CFG->{profile}{default}{user},
2211	tooltip => "The name of your character on the server",
2212	on_changed => sub { my ($self, $value) = @_; $CFG->{profile}{default}{user} = $value }
2213	);
2214
2215	$table->add_at (0, 5, new CFPlus::UI::Label valign => 0, align => 1, text => "Password");
2216	$table->add_at (1, 5, new CFPlus::UI::Entry
2217	text => $CFG->{profile}{default}{password},
2218	hidden => 1,
2219	tooltip => "The password for your character",
2220	on_changed => sub { my ($self, $value) = @_; $CFG->{profile}{default}{password} = $value }
2221	);
2222
2223	$table->add_at (0, 7, new CFPlus::UI::Label valign => 0, align => 1, text => "Map Size");
2224	$table->add_at (1, 7, new CFPlus::UI::Slider
2225	force_w => 100,
2226	range => [$CFG->{mapsize}, 10, 100, 0, 1],
2227	tooltip => "This is the size of the portion of the map update the server sends you. "
2228	. "If you set this to a high value you will be able to see further, "
2229	. "but you also increase bandwidth requirements and latency. "
2230	. "This option is only used once at log-in.",
2231	on_changed => sub { my ($self, $value) = @_; $CFG->{mapsize} = $self->{range}[0] = $value = int $value; 0 },
2232	);
2233
2234	$table->add_at (0, 8, new CFPlus::UI::Label valign => 0, align => 1, text => "Face Prefetch");
2235	$table->add_at (1, 8, new CFPlus::UI::CheckBox
2236	state => $CFG->{face_prefetch},
2237	tooltip => "<b>Background Image Prefetch</b>\n\n"
2238	. "If enabled, the client automatically pre-fetches images from the server. "
2239	. "This might increase or create lag, but increases the chances "
2240	. "of faces being ready for display when you encounter them. "
2241	. "It also uses up server bandwidth on every connect, "
2242	. "so only set it if you really need to prefetch images. "
2243	. "This option can be set and unset any time.",
2244	on_changed => sub { $CFG->{face_prefetch} = $_[1]; 0 },
2245	);
2246
2247	$table->add_at (0, 9, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Rate");
2248	$table->add_at (1, 9, new CFPlus::UI::Entry
2249	text => $CFG->{output_rate},
2250	tooltip => "The approximate bandwidth in bytes per second that the server should not exceed "
2251	. "when sending images, to ensure interactiveness. When 0 or unset, the server "
2252	. "default will be used, which is usually around 100kb/s.",
2253	on_changed => sub { $CFG->{output_rate} = $_[1]; 0 },
2254	);
2255
2256	$table->add_at (0, 10, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Count");
2257	$table->add_at (1, 10, new CFPlus::UI::Entry
2258	text => $CFG->{output_count},
2259	tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.",
2260	on_changed => sub { $CFG->{output_count} = $_[1]; 0 },
2261	);
2262
2263	$table->add_at (0, 11, new CFPlus::UI::Label valign => 0, align => 1, text => "Output-Sync");
2264	$table->add_at (1, 11, new CFPlus::UI::Entry
2265	text => $CFG->{output_sync},
2266	tooltip => "Should be set to 1 unless you know what you are doing. This option is only used once at log-in.",
2267	on_changed => sub { $CFG->{output_sync} = $_[1]; 0 },
2268	);
2269
2270	$table->add_at (1, 12, $LOGIN_BUTTON = new CFPlus::UI::Button
2271	expand => 1,
2272	align => 0,
2273	text => "Login",
2274	on_activate => sub {
2275	$CONN ? stop_game
2276	: start_game;
2277	0
2278	},
2279	);
2280
2281	$vbox->add (new CFPlus::UI::FancyFrame
2282	label => "Server Info",
2283	child => ($SERVER_INFO = new CFPlus::UI::Label ellipsise => 0),
2284	);
2285
2286	$vbox
2287	}
2288
2289	sub client_setup {
2290	my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1];
2291
2292	my $row = 0;
2293
2294	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Chat Command");
2295	$table->add_at (1, $row++, my $saycmd = new CFPlus::UI::Entry
2296	text => $CFG->{say_command},
2297	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. "
2298	. "Usually you want to enter something like 'say' or 'shout' or 'gsay' here. "
2299	. "But you could also set it to <b>tell <i>playername</i></b> to only chat with that user.",
2300	on_changed => sub {
2301	my ($self, $value) = @_;
2302	$CFG->{say_command} = $value;
2303	0
2304	}
2305	);
2306
2307	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Tip of the day");
2308	$table->add_at (1, $row++, new CFPlus::UI::CheckBox
2309	state => $CFG->{show_tips},
2310	tooltip => "Show the <b>Tip of the day</b> window at startup?",
2311	on_changed => sub {
2312	my ($self, $value) = @_;
2313	$CFG->{show_tips} = $value;
2314	0
2315	}
2316	);
2317
2318	$table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Messages Window Size");
2319	$table->add_at (1, $row++, my $saycmd = new CFPlus::UI::Entry
2320	text => $CFG->{logview_max_par},
2321	tooltip => "This is maximum number of messages remembered in the <b>Messages</b> window. If the server "
2322	. "sends more messages than this number, older messages get removed to save memory and "
2323	. "computing time. A value of <b>0</b> disables this feature, but that is not recommended.",
2324	on_changed => sub {
2325	my ($self, $value) = @_;
2326	$LOGVIEW->{max_par} = $CFG->{logview_max_par} = $value*1;
2327	0
2328	},
2329	);
2330
2331	$table
2332	}
2333
2334	sub message_window {
2335	my $window = new CFPlus::UI::Toplevel
2336	name => "message_window",
2337	title => "Messages",
2338	border_bg => [1, 1, 1, 1],
2339	x => "max",
2340	y => 0,
2341	force_w => $::WIDTH * 0.4,
2342	force_h => $::HEIGHT * 0.5,
2343	child => (my $vbox = new CFPlus::UI::VBox),
2344	has_close_button => 1;
2345
2346	$vbox->add ($LOGVIEW);
2347
2348	$vbox->add (my $input = new CFPlus::UI::Entry
2349	tooltip => "<b>Chat Box</b>. If you enter a text and press return/enter here, the current <i>communication command</i> "
2350	. "from the client setup will be prepended (e.g. <b>shout</b>, <b>chat</b>...). "
2351	. "If you prepend a slash (/), you will submit a command instead (similar to IRC). "
2352	. "A better way to submit commands (and the occasional chat command) is often the map command completer.",
2353	on_focus_in => sub {
2354	my ($input, $prev_focus) = @_;
2355
2356	delete $input->{refocus_map};
2357
2358	if ($prev_focus == $MAPWIDGET && $input->{auto_activated}) {
2359	$input->{refocus_map} = 1;
2360	}
2361	delete $input->{auto_activated};
2362
2363	0
2364	},
2365	on_activate => sub {
2366	my ($input, $text) = @_;
2367	$input->set_text ('');
2368
2369	if ($text =~ /^\/(.*)/) {
2370	$::CONN->user_send ($1);
2371	} else {
2372	my $say_cmd = $::CFG->{say_command} || 'say';
2373	$::CONN->user_send ("$say_cmd $text");
2374	}
2375	if ($input->{refocus_map}) {
2376	delete $input->{refocus_map};
2377	$MAPWIDGET->focus_in
2378	}
2379
2380	0
2381	},
2382	on_escape => sub {
2383	$MAPWIDGET->grab_focus;
2384
2385	0
2386	},
2387	);
2388
2389	$CONSOLE = {
2390	window => $window,
2391	input => $input,
2392	};
2393
2394	$window
2395	}
2396
2397	sub autopickup_setup {
2398	my $r = new CFPlus::UI::ScrolledWindow (
2399	expand => 1,
2400	scroll_y => 1
2401	);
2402	$r->add (my $table = new CFPlus::UI::Table
2403	row_expand => [0],
2404	col_expand => [0, 1, 0, 1],
2405	);
2406
2407	for (
2408	["General", 0, 0,
2409	["Enable autopickup" => PICKUP_NEWMODE, \$PICKUP_ENABLE],
2410	["Inhibit autopickup" => PICKUP_INHIBIT],
2411	["Stop before pickup" => PICKUP_STOP],
2412	["Debug autopickup" => PICKUP_DEBUG],
2413	],
2414	["Weapons", 0, 6,
2415	["All weapons" => PICKUP_ALLWEAPON],
2416	["Missile weapons" => PICKUP_MISSILEWEAPON],
2417	["Bows" => PICKUP_BOW],
2418	["Arrows" => PICKUP_ARROW],
2419	],
2420	["Armour", 0, 12,
2421	["Helmets" => PICKUP_HELMET],
2422	["Shields" => PICKUP_SHIELD],
2423	["Body Armour" => PICKUP_ARMOUR],
2424	["Boots" => PICKUP_BOOTS],
2425	["Gloves" => PICKUP_GLOVES],
2426	["Cloaks" => PICKUP_CLOAK],
2427	],
2428
2429	["Readables", 2, 0,
2430	["Spellbooks" => PICKUP_SPELLBOOK],
2431	["Skillscrolls" => PICKUP_SKILLSCROLL],
2432	["Normal Books/Scrolls" => PICKUP_READABLES],
2433	],
2434	["Misc", 2, 5,
2435	["Food" => PICKUP_FOOD],
2436	["Drinks" => PICKUP_DRINK],
2437	["Valuables (Money, Gems)" => PICKUP_VALUABLES],
2438	["Keys" => PICKUP_KEY],
2439	["Magical Items" => PICKUP_MAGICAL],
2440	["Potions" => PICKUP_POTION],
2441	["Magic Devices" => PICKUP_MAGIC_DEVICE],
2442	["Ignore cursed" => PICKUP_NOT_CURSED],
2443	["Jewelery" => PICKUP_JEWELS],
2444	["Flesh" => PICKUP_FLESH],
2445	],
2446	["Weight/Value ratio", 2, 17]
2447	)
2448	{
2449	my ($title, $x, $y, @bits) = @$_;
2450	$table->add_at ($x, $y, new CFPlus::UI::Label text => $title, align => 1, fg => [1, 1, 0]);
2451
2452	for (@bits) {
2453	++$y;
2454
2455	my $mask = $_->[1];
2456	$table->add_at ($x , $y, new CFPlus::UI::Label text => $_->[0], align => 1, expand => 1);
2457	$table->add_at ($x+1, $y, my $checkbox = new CFPlus::UI::CheckBox
2458	state => $::CFG->{pickup} & $mask,
2459	on_changed => sub {
2460	my ($box, $value) = @_;
2461
2462	if ($value) {
2463	$::CFG->{pickup} |= $mask;
2464	} else {
2465	$::CFG->{pickup} &= ~$mask;
2466	}
2467
2468	$::CONN->send_command ("pickup $::CFG->{pickup}")
2469	if defined $::CONN;
2470
2471	0
2472	});
2473
2474	${$_->[2]} = $checkbox if $_->[2];
2475	}
2476	}
2477
2478	$table->add_at (2, 18, new CFPlus::UI::ValSlider
2479	range => [$::CFG->{pickup} & 0xF, 0, 16, 1, 1],
2480	template => ">= 99",
2481	to_value => sub { ">= " . 5 * $_[0] },
2482	on_changed => sub {
2483	my ($slider, $value) = @_;
2484
2485	$::CFG->{pickup} &= ~0xF;
2486	$::CFG->{pickup} |= int $value
2487	if $value;
2488	1;
2489	});
2490
2491	$table->add_at (3, 18, new CFPlus::UI::Button
2492	text => "set",
2493	on_activate => sub {
2494	$::CONN->send_command ("pickup $::CFG->{pickup}")
2495	if defined $::CONN;
2496	0
2497	});
2498
2499	$r
2500	}
2501
2502	my %SORT_ORDER = (
2503	type => undef,
2504	mtime => sub {
2505	my $NOW = time;
2506	sort {
2507	my $atime = $a->{mtime} - $NOW; $atime = $atime < 5 * 60 ? int $atime / 60 : 6;
2508	my $btime = $b->{mtime} - $NOW; $btime = $btime < 5 * 60 ? int $btime / 60 : 6;
2509
2510	($a->{flags} & F_LOCKED) <=> ($b->{flags} & F_LOCKED)
2511	or $btime <=> $atime
2512	or $a->{type} <=> $b->{type}
2513	} @_
2514	},
2515	weight => sub { sort {
2516	$a->{weight} * ($a->{nrof} || 1) <=> $b->{weight} * ($b->{nrof} || 1)
2517	or $a->{type} <=> $b->{type}
2518	} @_ },
2519	);
2520
2521	sub inventory_widget {
2522	my $hb = new CFPlus::UI::HBox homogeneous => 1;
2523
2524	$hb->add (my $vb1 = new CFPlus::UI::VBox);
2525	$vb1->add (new CFPlus::UI::Label align => 0, text => "Player");
2526
2527	$vb1->add (my $hb1 = new CFPlus::UI::HBox);
2528
2529	use sort 'stable';
2530
2531	$hb1->add (new CFPlus::UI::Selector
2532	value => $::CFG->{inv_sort},
2533	options => [
2534	[type => "Type/Name"],
2535	[mtime => "Recent/Normal/Locked"],
2536	[weight => "Weight/Type"],
2537	],
2538	on_changed => sub {
2539	$::CFG->{inv_sort} = $_[1];
2540	$INV->set_sort_order ($SORT_ORDER{$_[1]});
2541	},
2542	);
2543	$hb1->add (new CFPlus::UI::Label text => "Weight: ", align => 1, expand => 1);
2544	#TODO# update to weigh/maxweight
2545	$hb1->add ($STATWIDS->{i_weight} = new CFPlus::UI::Label align => -1);
2546
2547	$vb1->add (my $sw1 = new CFPlus::UI::ScrolledWindow expand => 1, scroll_y => 1);
2548	$sw1->add ($INV = new CFPlus::UI::Inventory);
2549	$INV->set_sort_order ($SORT_ORDER{$::CFG->{inv_sort}});
2550
2551	$hb->add (my $vb2 = new CFPlus::UI::VBox);
2552
2553	$vb2->add ($INV_RIGHT_HB = new CFPlus::UI::HBox);
2554
2555	$vb2->add (my $sw2 = new CFPlus::UI::ScrolledWindow expand => 1, scroll_y => 1);
2556	$sw2->add ($INVR = new CFPlus::UI::Inventory);
2557
2558	# XXX: Call after $INVR = ... because set_opencont sets the items
2559	CFPlus::Protocol::set_opencont ($::CONN, 0, "Floor");
2560
2561	$hb
2562	}
2563
2564	sub toggle_player_page {
2565	my ($widget) = @_;
2566
2567	if ($PL_WINDOW->{visible} && $PL_NOTEBOOK->get_current_page == $widget) {
2568	$PL_WINDOW->hide;
2569	} else {
2570	$PL_NOTEBOOK->set_current_page ($widget);
2571	$PL_WINDOW->show;
2572	}
2573	}
2574
2575	sub player_window {
2576	my $plwin = $PL_WINDOW = new CFPlus::UI::Toplevel
2577	x => "center",
2578	y => "center",
2579	force_w => $WIDTH * 9/10,
2580	force_h => $HEIGHT * 9/10,
2581	title => "Player",
2582	name => "playerbook",
2583	has_close_button => 1
2584	;
2585
2586	my $ntb =
2587	$PL_NOTEBOOK =
2588	new CFPlus::UI::Notebook expand => 1;
2589
2590	$ntb->add (
2591	"Statistics (F2)" => $STATS_PAGE = stats_window,
2592	"Shows statistics, where all your Stats and Resistances are shown."
2593	);
2594	$ntb->add (
2595	"Skills (F3)" => $SKILL_PAGE = skill_window,
2596	"Shows all your Skills."
2597	);
2598
2599	my $spellsw = $SPELL_PAGE = new CFPlus::UI::ScrolledWindow (expand => 1, scroll_y => 1);
2600	$spellsw->add ($SPELL_LIST = new CFPlus::UI::SpellList);
2601	$ntb->add (
2602	"Spellbook (F4)" => $spellsw,
2603	"Displays all spells you have and lets you edit keyboard shortcuts for them."
2604	);
2605	$ntb->add (
2606	"Inventory (F5)" => $INVENTORY_PAGE = inventory_widget,
2607	"Toggles the inventory window, where you can manage your loot (or treasures :). "
2608	. "You can also hit the <b>Tab</b>-key to show/hide the Inventory."
2609	);
2610	$ntb->add (Pickup => autopickup_setup,
2611	"Configure autopickup settings, i.e. which items you will pick up automatically when walking (or running) over them.");
2612
2613	$ntb->set_current_page ($INVENTORY_PAGE);
2614
2615	$plwin->add ($ntb);
2616	$plwin
2617	}
2618
2619	sub keyboard_setup {
2620	CFPlus::Macro::keyboard_setup
2621	}
2622
2623	sub help_window {
2624	my $win = new CFPlus::UI::Toplevel
2625	x => 'center',
2626	y => 'center',
2627	z => 4,
2628	name => 'doc_browser',
2629	force_w => int $WIDTH * 7/8,
2630	force_h => int $HEIGHT * 7/8,
2631	title => "Help Browser",
2632	has_close_button => 1;
2633
2634	$win->add (my $vbox = new CFPlus::UI::VBox);
2635
2636	$vbox->add (new CFPlus::UI::FancyFrame
2637	label => "Navigation",
2638	child => (my $buttons = new CFPlus::UI::HBox),
2639	);
2640	$vbox->add (my $viewer = new CFPlus::UI::TextScroller
2641	expand => 1, fontsize => 0.8, padding_x => 4, padding_y => 4);
2642
2643	my @history;
2644	my @future;
2645	my $curnode;
2646
2647	my $load_node; $load_node = sub {
2648	my ($node, $para) = @_;
2649
2650	$buttons->clear;
2651
2652	$buttons->add (new CFPlus::UI::Button
2653	text => "⇤",
2654	tooltip => "back to the starting page",
2655	on_activate => sub {
2656	unshift @future, [$curnode, $viewer->current_paragraph] if $curnode;
2657	unshift @future, @history;
2658	@history = ();
2659	$load_node->(@{shift @future});
2660	},
2661	);
2662
2663	if (@history) {
2664	$buttons->add (new CFPlus::UI::Button
2665	text => "⋘",
2666	tooltip => "back to <i>" . (CFPlus::asxml CFPlus::Pod::full_path $history[-1][0]) . "</i>",
2667	on_activate => sub {
2668	unshift @future, [$curnode, $viewer->current_paragraph] if $curnode;
2669	$load_node->(@{pop @history});
2670	},
2671	);
2672	}
2673
2674	if (@future) {
2675	$buttons->add (new CFPlus::UI::Button
2676	text => "⋙",
2677	tooltip => "forward to <i>" . (CFPlus::asxml CFPlus::Pod::full_path $future[0][0]) . "</i>",
2678	on_activate => sub {
2679	push @history, [$curnode, $viewer->current_paragraph];
2680	$load_node->(@{shift @future});
2681	},
2682	);
2683	}
2684
2685	$buttons->add (new CFPlus::UI::Label text => " ");
2686
2687	my @path = CFPlus::Pod::full_path_of $node;
2688	pop @path; # drop current node
2689
2690	for my $node (@path) {
2691	$buttons->add (new CFPlus::UI::Button
2692	text => $node->{kw}[0],
2693	tooltip => "go to <i>" . (CFPlus::asxml CFPlus::Pod::full_path $node) . "</i>",
2694	on_activate => sub {
2695	push @history, [$curnode, $viewer->current_paragraph] if $curnode; @future = ();
2696	$load_node->($node);
2697	},
2698	);
2699	$buttons->add (new CFPlus::UI::Label text => "/");
2700	}
2701
2702	$buttons->add (new CFPlus::UI::Label text => $node->{kw}[0], padding_x => 4, padding_y => 4);
2703
2704	$curnode = $node;
2705
2706	$viewer->clear;
2707	$viewer->add_paragraph (CFPlus::Pod::as_paragraphs CFPlus::Pod::section_of $curnode);
2708	$viewer->scroll_to ($para);
2709	};
2710
2711	$load_node->(CFPlus::Pod::find pod => "mainpage");
2712
2713	$CFPlus::Pod::goto_document = sub {
2714	my (@path) = @_;
2715
2716	push @history, [$curnode, $viewer->current_paragraph] if $curnode; @future = ();
2717
2718	$load_node->((CFPlus::Pod::find @path)[0]);
2719	$win->show;
2720	};
2721
2722	$win
2723	}
2724
2725	sub open_string_query {
2726	my ($title, $cb, $txt, $tooltip) = @_;
2727	my $dialog = new CFPlus::UI::Toplevel
2728	x => "center",
2729	y => "center",
2730	z => 50,
2731	force_w => $WIDTH * 4/5,
2732	title => $title;
2733
2734	$dialog->add (
2735	my $e = new CFPlus::UI::Entry
2736	on_activate => sub { $cb->(@_); $dialog->hide; 0 },
2737	on_key_down => sub { $_[1]->{sym} == 27 and $dialog->hide; 0 },
2738	tooltip => $tooltip
2739	);
2740
2741	$e->grab_focus;
2742	$e->set_text ($txt) if $txt;
2743	$dialog->show;
2744	}
2745
2746	sub open_quit_dialog {
2747	unless ($QUIT_DIALOG) {
2748	$QUIT_DIALOG = new CFPlus::UI::Toplevel
2749	x => "center",
2750	y => "center",
2751	z => 50,
2752	title => "Really Quit?",
2753	on_key_down => sub {
2754	my ($dialog, $ev) = @_;
2755	$ev->{sym} == 27 and $dialog->hide;
2756	}
2757	;
2758
2759	$QUIT_DIALOG->add (my $vb = new CFPlus::UI::VBox expand => 1);
2760
2761	$vb->add (new CFPlus::UI::Label
2762	text => "You should find a savebed and apply it first!",
2763	max_w => $WIDTH * 0.25,
2764	ellipsize => 0,
2765	);
2766	$vb->add (my $hb = new CFPlus::UI::HBox expand => 1);
2767	$hb->add (new CFPlus::UI::Button
2768	text => "Ok",
2769	expand => 1,
2770	on_activate => sub { $QUIT_DIALOG->hide; 0 },
2771	);
2772	$hb->add (new CFPlus::UI::Button
2773	text => "Quit anyway",
2774	expand => 1,
2775	on_activate => sub { exit },
2776	);
2777	}
2778
2779	$QUIT_DIALOG->show;
2780	$QUIT_DIALOG->grab_focus;
2781	}
2782
2783	sub show_tip_of_the_day {
2784	# find all tips
2785	my @tod = CFPlus::Pod::find tip_of_the_day => "*";
2786
2787	CFPlus::DB::get state => "tip_of_the_day", sub {
2788	my ($todindex) = @_;
2789	$todindex = 0 if $todindex >= @tod;
2790	CFPlus::DB::put state => tip_of_the_day => $todindex + 1, sub { };
2791
2792	# create dialog
2793	my $dialog;
2794
2795	my $close = sub {
2796	$dialog->destroy;
2797	};
2798
2799	$dialog = new CFPlus::UI::Toplevel
2800	x => "center",
2801	y => "center",
2802	z => 3,
2803	name => 'tip_of_the_day',
2804	force_w => int $WIDTH * 4/9,
2805	force_h => int $WIDTH * 2/9,
2806	title => "Tip of the day #" . (1 + $todindex),
2807	child => my $vbox = new CFPlus::UI::VBox,
2808	has_close_button => 1,
2809	on_delete => $close,
2810	;
2811
2812	$vbox->add (my $viewer = new CFPlus::UI::TextScroller
2813	expand => 1, fontsize => 0.8, padding_x => 4, padding_y => 4);
2814	$viewer->add_paragraph (CFPlus::Pod::as_paragraphs CFPlus::Pod::section_of $tod[$todindex]);
2815
2816	$vbox->add (my $table = new CFPlus::UI::Table col_expand => [0, 1]);
2817
2818	$table->add_at (0, 0, new CFPlus::UI::Button
2819	text => "Close",
2820	tooltip => "Close the tip of the day window. To never see it again, disable the tip of the day in the <b>Server Setup</b>.",
2821	on_activate => $close,
2822	);
2823
2824	$table->add_at (2, 0, new CFPlus::UI::Button
2825	text => "Next",
2826	tooltip => "Show the next <b>Tip of the day</b>.",
2827	on_activate => sub {
2828	$close->();
2829	&show_tip_of_the_day;
2830	},
2831	);
2832
2833	$dialog->show;
2834	};
2835	}
2836
2837	sub sdl_init {
2838	CFPlus::SDL_Init
2839	and die "SDL::Init failed!\n";
2840	}
2841
2842	sub video_init {
2843	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} >= @SDL_MODES;
2844
2845	my ($old_w, $old_h) = ($WIDTH, $HEIGHT);
2846
2847	($WIDTH, $HEIGHT, my ($rgb, $alpha)) = @{ $SDL_MODES[$CFG->{sdl_mode}] };
2848	$FULLSCREEN = $CFG->{fullscreen};
2849	$FAST = $CFG->{fast};
2850
2851	CFPlus::SDL_SetVideoMode $WIDTH, $HEIGHT, $rgb, $alpha, $FULLSCREEN
2852	or die "SDL_SetVideoMode failed: " . (CFPlus::SDL_GetError) . "\n";
2853
2854	$SDL_ACTIVE = 1;
2855	$LAST_REFRESH = time - 0.01;
2856
2857	CFPlus::OpenGL::init;
2858
2859	$FONTSIZE = int $HEIGHT / 40 * $CFG->{gui_fontsize};
2860
2861	$CFPlus::UI::ROOT->configure (0, 0, $WIDTH, $HEIGHT);#d#
2862
2863	#############################################################################
2864
2865	if ($DEBUG_STATUS) {
2866	CFPlus::UI::rescale_widgets $WIDTH / $old_w, $HEIGHT / $old_h;
2867	} else {
2868	# create the widgets
2869
2870	$DEBUG_STATUS = new CFPlus::UI::Label
2871	padding => 0,
2872	z => 100,
2873	force_x => "max",
2874	force_y => 0;
2875	$DEBUG_STATUS->show;
2876
2877	$STATUSBOX = new CFPlus::UI::Statusbox;
2878	$STATUSBOX->add ("Use <b>Alt-Enter</b> to toggle fullscreen mode", timeout => 864000, pri => -100, color => [1, 1, 1, 0.8]);
2879
2880	(new CFPlus::UI::Frame
2881	bg => [0, 0, 0, 0.4],
2882	force_x => 0,
2883	force_y => "max",
2884	child => $STATUSBOX,
2885	)->show;
2886
2887	CFPlus::UI::Toplevel->new (
2888	title => "Map",
2889	name => "mapmap",
2890	x => 0,
2891	y => $FONTSIZE + 8,
2892	border_bg => [1, 1, 1, 192/255],
2893	bg => [1, 1, 1, 0],
2894	child => ($MAPMAP = new CFPlus::MapWidget::MapMap
2895	tooltip => "<b>Map</b>. On servers that support this feature, this will display an overview of the surrounding areas.",
2896	),
2897	)->show;
2898
2899	$MAPWIDGET = new CFPlus::MapWidget;
2900	$MAPWIDGET->connect (activate_console => sub {
2901	my ($mapwidget, $preset) = @_;
2902
2903	if ($CONSOLE) {
2904	$CONSOLE->{input}->{auto_activated} = 1;
2905	$CONSOLE->{input}->grab_focus;
2906
2907	if ($preset && $CONSOLE->{input}->get_text eq '') {
2908	$CONSOLE->{input}->set_text ($preset);
2909	}
2910	}
2911	});
2912	$MAPWIDGET->show;
2913	$MAPWIDGET->grab_focus;
2914
2915	$LOGVIEW = new CFPlus::UI::TextScroller
2916	expand => 1,
2917	font => $FONT_FIXED,
2918	fontsize => $::CFG->{log_fontsize},
2919	indent => -4,
2920	can_hover => 1,
2921	can_events => 1,
2922	max_par => $CFG->{logview_max_par},
2923	tooltip => "<b>Server Log</b>. This text viewer contains all recent messages sent by the server.",
2924	;
2925
2926	$SETUP_DIALOG = new CFPlus::UI::Toplevel
2927	title => "Setup",
2928	name => "setup_dialog",
2929	x => 'center',
2930	y => 'center',
2931	z => 2,
2932	force_w => $::WIDTH * 0.6,
2933	force_h => $::HEIGHT * 0.6,
2934	has_close_button => 1,
2935	;
2936
2937	$METASERVER = metaserver_dialog;
2938
2939	$SETUP_DIALOG->add ($SETUP_NOTEBOOK = new CFPlus::UI::Notebook expand => 1, debug => 1,
2940	filter => new CFPlus::UI::ScrolledWindow expand => 1, scroll_y => 1);
2941
2942	$SETUP_NOTEBOOK->add (Server => $SETUP_SERVER = server_setup,
2943	"Configure the server to play on, your username, password and other server-related options.");
2944	$SETUP_NOTEBOOK->add (Client => client_setup,
2945	"Configure various client-specific settings.");
2946	$SETUP_NOTEBOOK->add (Graphics => graphics_setup,
2947	"Configure the video mode, performance, fonts and other graphical aspects of the game.");
2948	$SETUP_NOTEBOOK->add (Audio => audio_setup,
2949	"Configure the use of audio, sound effects and background music.");
2950	$SETUP_NOTEBOOK->add (Keyboard => $SETUP_KEYBOARD = keyboard_setup,
2951	"Lets you define, edit and delete key bindings."
2952	. "There is a shortcut for making bindings: <b>Control-Insert</b> opens the binding editor "
2953	. "with nothing set and the recording started. After doing the actions you "
2954	. "want to record press <b>Insert</b> and you will be asked to press a key-combo. "
2955	. "After pressing the combo the binding will be saved automatically and the "
2956	. "binding editor closes");
2957	$SETUP_NOTEBOOK->add (Debug => debug_setup,
2958	"Some debuggin' options. Do not ask.");
2959
2960	$BUTTONBAR = new CFPlus::UI::Buttonbar x => 0, y => 0, z => 200; # put on top
2961
2962	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Setup", other => $SETUP_DIALOG,
2963	tooltip => "Toggles a dialog where you can configure all aspects of this client.");
2964
2965	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Message Window", other => $MESSAGE_WINDOW = message_window,
2966	tooltip => "Toggles the server message log, where the client collects <i>all</i> messages from the server.");
2967
2968	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
2969
2970	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Playerbook", other => player_window,
2971	tooltip => "Toggles the player view, where you can manage Inventory, Spells, Skills and see your Stats.");
2972
2973	$BUTTONBAR->add (new CFPlus::UI::Button
2974	text => "Save Config",
2975	tooltip => "Saves the options chosen in the client setting, server settings and the window layout to be restored on later runs.",
2976	on_activate => sub {
2977	$::CFG->{layout} = CFPlus::UI::get_layout;
2978	CFPlus::write_cfg "$Crossfire::VARDIR/cfplusrc";
2979	status "Configuration Saved";
2980	0
2981	},
2982	);
2983
2984	$BUTTONBAR->add (new CFPlus::UI::Flopper text => "Help!", other => $HELP_WINDOW = help_window,
2985	tooltip => "View Documentation");
2986
2987
2988	$BUTTONBAR->add (new CFPlus::UI::Button
2989	text => "Quit",
2990	tooltip => "Terminates the program",
2991	on_activate => sub {
2992	if ($CONN) {
2993	open_quit_dialog;
2994	} else {
2995	exit;
2996	}
2997	0
2998	},
2999	);
3000
3001	$BUTTONBAR->show;
3002	$SETUP_DIALOG->show;
3003	}
3004
3005	$STATUSBOX->add ("Set video mode $WIDTH×$HEIGHT", timeout => 10, fg => [1, 1, 1, 0.5]);
3006	}
3007
3008	sub setup_build_button {
3009	my ($enabled) = @_;
3010	if ($enabled) {
3011	$BUILD_BUTTON->hide if $BUILD_BUTTON;
3012	$BUILD_BUTTON ||= new CFPlus::UI::Button
3013	text => "Build",
3014	tooltip => "Opens the ingame builder",
3015	on_activate => sub {
3016	if ($CONN) {
3017	$CONN->send_ext_req (builder_player_items => sub {
3018	open_ingame_editor ($_[0]) if exists $_[0]->{items};
3019	});
3020	}
3021	0
3022	};
3023	$BUTTONBAR->add ($BUILD_BUTTON);
3024	} else {
3025	$BUILD_BUTTON->hide if $BUILD_BUTTON;
3026	}
3027	}
3028
3029	sub open_ingame_editor {
3030	my ($msg) = @_;
3031
3032	my $win = new CFPlus::UI::Toplevel
3033	x => 0,
3034	y => 'center',
3035	z => 4,
3036	name => 'builder_window',
3037	force_w => int $WIDTH * 1/4,
3038	force_h => int $HEIGHT * 3/4,
3039	title => "In game builder",
3040	has_close_button => 1;
3041
3042	my $r = new CFPlus::UI::ScrolledWindow (
3043	expand => 1,
3044	scroll_y => 1
3045	);
3046	$r->add (my $vb = new CFPlus::UI::VBox);
3047	$win->add ($r);
3048
3049
3050	$vb->add (
3051	new CFPlus::UI::Button
3052	text => "Disable build mode",
3053	on_activate => sub { $::IN_BUILD_MODE = undef }
3054	);
3055	$vb->add (
3056	new CFPlus::UI::Button
3057	text => "ERASE",
3058	on_activate => sub { $::IN_BUILD_MODE = { do_erase => 1 } }
3059	);
3060
3061	for my $itemarchname (
3062	sort {
3063	$msg->{items}->{$a}->{build_arch_name}
3064	cmp $msg->{items}->{$b}->{build_arch_name}
3065	} keys %{$msg->{items}}
3066	) {
3067	my $info = $msg->{items}->{$itemarchname};
3068	$vb->add (
3069	new CFPlus::UI::Button text => $info->{build_arch_name},
3070	on_activate => sub {
3071	$::IN_BUILD_MODE = { item => $itemarchname, info => $info };
3072
3073	if (grep { $msg->{items}->{$itemarchname}->{$_} } qw/has_connection has_name has_text/) {
3074	build_mode_query_arch_info ();
3075	}
3076	}
3077	);
3078	}
3079
3080	$win->show;
3081	}
3082
3083	sub build_mode_query_arch_info {
3084	my ($iteminfo) = $::IN_BUILD_MODE;
3085	my $itemarchname = $iteminfo->{item};
3086	my $info = $iteminfo->{info};
3087
3088	my $dialog = new CFPlus::UI::Toplevel
3089	x => "center",
3090	y => "center",
3091	z => 50,
3092	force_w => int $WIDTH * 1/2,
3093	title => "Enter information for placement of '$itemarchname'",
3094	has_close_button => 1;
3095
3096	$dialog->add (my $vb = new CFPlus::UI::VBox expand => 1);
3097
3098	$vb->add (my $table = new CFPlus::UI::Table expand => 1);
3099	my $row = 0;
3100	if ($info->{has_name}) {
3101	$table->add_at (0, $row, new CFPlus::UI::Label text => "Name:");
3102	$table->add_at (1, $row++, new CFPlus::UI::Entry expand => 1, on_changed => sub { $::IN_BUILD_MODE->{name} = $_[1]; 0 });
3103	}
3104	if ($info->{has_text}) {
3105	$table->add_at (0, $row, new CFPlus::UI::Label text => "Text:");
3106	$table->add_at (1, $row++, new CFPlus::UI::Entry expand => 1, on_changed => sub { $::IN_BUILD_MODE->{text} = $_[1]; 0 });
3107	}
3108	if ($info->{has_connection}) {
3109	$table->add_at (0, $row, new CFPlus::UI::Label text => "Connection ID:");
3110	$table->add_at (1, $row++,
3111	new CFPlus::UI::Entry
3112	expand => 1,
3113	on_changed => sub { $::IN_BUILD_MODE->{connection} = $_[1]; 0 },
3114	tooltip => "Enter the connection ID here. The connection ID connects actors like a lever to a gate or a magic ear to a gate"
3115	);
3116	}
3117
3118	$vb->add (my $hb = new CFPlus::UI::HBox expand => 1);
3119	$hb->add (new CFPlus::UI::Button
3120	text => "Close",
3121	expand => 1,
3122	on_activate => sub { $dialog->hide; 0 },
3123	);
3124	$dialog->show;
3125	}
3126
3127	sub video_shutdown {
3128	CFPlus::OpenGL::shutdown;
3129
3130	undef $SDL_ACTIVE;
3131	}
3132
3133	sub audio_channel_finished {
3134	my ($channel) = @_;
3135
3136	#warn "channel $channel finished\n";#d#
3137	}
3138
3139	sub audio_music_set {
3140	my ($songs) = @_;
3141
3142	my @want =
3143	grep $_,
3144	map $CONN->{music_meta}{$_},
3145	@$songs;
3146
3147	if (@want) {
3148	@MUSIC_WANT = @want;
3149	&audio_music_changed ();
3150	}
3151	}
3152
3153	sub audio_music_start {
3154	my $path = $MUSIC_PLAYING->{path}
3155	or return;
3156
3157	CFPlus::DB::prefetch_file $path, 1024_000, sub {
3158	# music might have changed...
3159	$path eq $MUSIC_PLAYING->{path}
3160	or return &audio_music_start ();
3161
3162	$MUSIC_PLAYER = new_from_file CFPlus::MixMusic $path;
3163
3164	my $NOW = time;
3165
3166	if ($MUSIC_PLAYING->{stop_time} > $NOW - $MUSIC_RESUME) {
3167	my $pos = $MUSIC_PLAYING->{stop_pos};
3168	$MUSIC_PLAYER->fade_in_pos (0, 1000, $pos);
3169	$MUSIC_START = time - $pos;
3170	} else {
3171	$MUSIC_PLAYER->play (0);
3172	$MUSIC_START = time;
3173	}
3174
3175	delete $MUSIC_PLAYING->{stop_time};
3176	delete $MUSIC_PLAYING->{stop_pos};
3177	}
3178	}
3179
3180	sub audio_music_changed {
3181	return unless $CFG->{bgm_enable};
3182
3183	# default MUSIC_WANT == MUSIC_DEFAULT
3184	@MUSIC_WANT = { path => CFPlus::find_rcfile "music/$MUSIC_DEFAULT" } unless @MUSIC_WANT;
3185
3186	# if the currently playing song is acceptable, let it continue
3187	return if $MUSIC_PLAYING
3188	&& grep $MUSIC_PLAYING->{path} eq $_->{path}, @MUSIC_WANT;
3189
3190	my $NOW = time;
3191
3192	if ($MUSIC_PLAYING) {
3193	$MUSIC_PLAYING->{stop_time} = $NOW;
3194	$MUSIC_PLAYING->{stop_pos} = $NOW - $MUSIC_START;
3195	CFPlus::MixMusic::fade_out 1000;
3196	} else {
3197	# sort by stop time, oldest first
3198	@MUSIC_WANT = sort { $a->{stop_time} <=> $b->{stop_time} } @MUSIC_WANT;
3199
3200	# if the most recently-played piece played very recently,
3201	# resume it, else choose the oldest piece for rotation.
3202	$MUSIC_PLAYING =
3203	$MUSIC_WANT[-1]{stop_time} > $NOW - $MUSIC_RESUME
3204	? $MUSIC_WANT[-1]
3205	: $MUSIC_WANT[0];
3206
3207	audio_music_start;
3208	}
3209	}
3210
3211	sub audio_music_finished {
3212	$MUSIC_PLAYING = undef;
3213	undef $MUSIC_PLAYER;
3214
3215	audio_music_changed;
3216	}
3217
3218	sub audio_init {
3219	if ($CFG->{audio_enable}) {
3220	if (open my $fh, "<", CFPlus::find_rcfile "sounds/config") {
3221	$SDL_MIXER = !CFPlus::Mix_OpenAudio;
3222
3223	unless ($SDL_MIXER) {
3224	status "Unable to open sound device: there will be no sound";
3225	return;
3226	}
3227
3228	CFPlus::Mix_AllocateChannels 8;
3229	CFPlus::MixMusic::volume $CFG->{bgm_volume} * 128;
3230
3231	audio_music_finished;
3232
3233	local $_;
3234	while (<$fh>) {
3235	next if /^\s*#/;
3236	next if /^\s*$/;
3237
3238	my ($file, $volume, $event) = split /\s+/, $_, 3;
3239
3240	push @SOUNDS, "$volume,$file";
3241
3242	$AUDIO_CHUNKS{"$volume,$file"} ||= do {
3243	my $chunk = new_from_file CFPlus::MixChunk CFPlus::find_rcfile "sounds/$file";
3244	$chunk->volume ($volume * 128 / 100);
3245	$chunk
3246	};
3247	}
3248	} else {
3249	status "unable to open sound config: $!";
3250	}
3251	}
3252	}
3253
3254	sub audio_shutdown {
3255	CFPlus::Mix_CloseAudio if $SDL_MIXER;
3256	undef $SDL_MIXER;
3257	@SOUNDS = ();
3258	%AUDIO_CHUNKS = ();
3259	}
3260
3261	my %animate_object;
3262	my $animate_timer;
3263
3264	my $fps = 9;
3265
3266	my %demo;#d#
3267
3268	sub force_refresh {
3269	$fps = $fps * 0.95 + 1 / (($NOW - $LAST_REFRESH) || 0.1) * 0.05;
3270	debug sprintf "%3.2f", $fps if $ENV{CFPLUS_DEBUG} & 4;
3271
3272	$CFPlus::UI::ROOT->draw;
3273
3274	$WANT_REFRESH = 0;
3275	$CAN_REFRESH = 0;
3276	$LAST_REFRESH = $NOW;
3277
3278	CFPlus::SDL_GL_SwapBuffers;
3279	}
3280
3281	my $refresh_watcher = Event->timer (after => 0, hard => 0, interval => 1 / $MAX_FPS, cb => sub {
3282	$NOW = time;
3283
3284	($SDL_CB{$_->{type}} || sub { warn "unhandled event $_->{type}" })->($_)
3285	for CFPlus::poll_events;
3286
3287	if (%animate_object) {
3288	$_->animate ($LAST_REFRESH - $NOW) for values %animate_object;
3289	++$WANT_REFRESH;
3290	}
3291
3292	if ($WANT_REFRESH) {
3293	force_refresh;
3294	} else {
3295	$CAN_REFRESH = 1;
3296	}
3297	});
3298
3299	sub animation_start {
3300	my ($widget) = @_;
3301	$animate_object{$widget} = $widget;
3302	}
3303
3304	sub animation_stop {
3305	my ($widget) = @_;
3306	delete $animate_object{$widget};
3307	}
3308
3309	# check once/second for faces that need to be prefetched
3310	# this should, of course, only run on demand, but
3311	# SDL forces worse things on us....
3312
3313	Event->timer (after => 1, interval => 0.25, cb => sub {
3314	$CONN->face_prefetch
3315	if $CONN;
3316	});
3317
3318	%SDL_CB = (
3319	CFPlus::SDL_QUIT => sub {
3320	exit;
3321	},
3322	CFPlus::SDL_VIDEORESIZE => sub {
3323	},
3324	CFPlus::SDL_VIDEOEXPOSE => sub {
3325	CFPlus::UI::full_refresh;
3326	},
3327	CFPlus::SDL_ACTIVEEVENT => sub {
3328	# not useful, as APPACTIVE include sonly iconified state, not unmapped
3329	# printf "active %x %x %x\n", $_[0]{gain}, $_[0]{state}, CFPlus::SDL_GetAppState;#d#
3330	# printf "a %x\n", CFPlus::SDL_GetAppState & CFPlus::SDL_APPACTIVE;#d#
3331	# printf "A\n" if $_[0]{state} & CFPlus::SDL_APPACTIVE;
3332	# printf "K\n" if $_[0]{state} & CFPlus::SDL_APPINPUTFOCUS;
3333	# printf "M\n" if $_[0]{state} & CFPlus::SDL_APPMOUSEFOCUS;
3334	},
3335	CFPlus::SDL_KEYDOWN => sub {
3336	if ($_[0]{mod} & CFPlus::KMOD_ALT && $_[0]{sym} == 13) {
3337	# alt-enter
3338	$FULLSCREEN_ENABLE->toggle;
3339	video_shutdown;
3340	video_init;
3341	} else {
3342	CFPlus::UI::feed_sdl_key_down_event ($_[0]);
3343	}
3344	},
3345	CFPlus::SDL_KEYUP => \&CFPlus::UI::feed_sdl_key_up_event,
3346	CFPlus::SDL_MOUSEMOTION => \&CFPlus::UI::feed_sdl_motion_event,
3347	CFPlus::SDL_MOUSEBUTTONDOWN => \&CFPlus::UI::feed_sdl_button_down_event,
3348	CFPlus::SDL_MOUSEBUTTONUP => \&CFPlus::UI::feed_sdl_button_up_event,
3349	CFPlus::SDL_USEREVENT => sub {
3350	if ($_[0]{code} == 1) {
3351	audio_channel_finished $_[0]{data1};
3352	} elsif ($_[0]{code} == 0) {
3353	audio_music_finished;
3354	}
3355	},
3356	);
3357
3358	#############################################################################
3359
3360	$SIG{INT} = $SIG{TERM} = sub { exit };
3361
3362	{
3363	CFPlus::read_cfg "$Crossfire::VARDIR/cfplusrc";
3364	CFPlus::DB::Server::run;
3365
3366	CFPlus::UI::set_layout ($::CFG->{layout});
3367
3368	my %DEF_CFG = (
3369	sdl_mode => 0,
3370	width => 640,
3371	height => 480,
3372	fullscreen => 0,
3373	fast => 0,
3374	map_scale => 1,
3375	fow_enable => 1,
3376	fow_intensity => 0,
3377	map_smoothing => 1,
3378	gui_fontsize => 1,
3379	log_fontsize => 0.7,
3380	gauge_fontsize => 1,
3381	gauge_size => 0.35,
3382	stat_fontsize => 0.7,
3383	mapsize => 100,
3384	say_command => 'chat',
3385	audio_enable => 1,
3386	bgm_enable => 1,
3387	bgm_volume => 0.25,
3388	face_prefetch => 0,
3389	output_sync => 1,
3390	output_count => 1,
3391	output_rate => "",
3392	pickup => 0,
3393	inv_sort => "mtime",
3394	default => "profile", # default profile
3395	show_tips => 1,
3396	logview_max_par => 1000,
3397	);
3398
3399	while (my ($k, $v) = each %DEF_CFG) {
3400	$CFG->{$k} = $v unless exists $CFG->{$k};
3401	}
3402
3403	$CFG->{profile}{default}{host} ||= "crossfire.schmorp.de";
3404	$PROFILE = $CFG->{profile}{default};
3405
3406	# convert old bindings (only default profile matters)
3407	if (my $bindings = delete $PROFILE->{bindings}) {
3408	while (my ($mod, $syms) = each %$bindings) {
3409	while (my ($sym, $cmds) = each %$syms) {
3410	push @{ $PROFILE->{macro} }, {
3411	accelkey => [$mod*1, $sym*1],
3412	action => $cmds,
3413	};
3414	}
3415	}
3416	}
3417
3418	sdl_init;
3419
3420	@SDL_MODES = CFPlus::SDL_ListModes 8, 8;
3421	@SDL_MODES = CFPlus::SDL_ListModes 5, 0 unless @SDL_MODES;
3422	@SDL_MODES or CFPlus::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)";
3423
3424	@SDL_MODES = sort { $a->[0] * $a->[1] <=> $b->[0] * $b->[1] } @SDL_MODES;
3425
3426	$CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES;
3427
3428	{
3429	my @fonts = map CFPlus::find_rcfile "fonts/$_", qw(
3430	DejaVuSans.ttf
3431	DejaVuSansMono.ttf
3432	DejaVuSans-Bold.ttf
3433	DejaVuSansMono-Bold.ttf
3434	DejaVuSans-Oblique.ttf
3435	DejaVuSansMono-Oblique.ttf
3436	DejaVuSans-BoldOblique.ttf
3437	DejaVuSansMono-BoldOblique.ttf
3438	);
3439
3440	CFPlus::add_font $_ for @fonts;
3441
3442	CFPlus::pango_init;
3443
3444	$FONT_PROP = new_from_file CFPlus::Font $fonts[0];
3445	$FONT_FIXED = new_from_file CFPlus::Font $fonts[1];
3446
3447	$FONT_PROP->make_default;
3448	}
3449
3450	# compare mono (ft) vs. rgba (cairo)
3451	# ft - 1.8s, cairo 3s, even in alpha-only mode
3452	# for my $rgba (0..1) {
3453	# my $t1 = Time::HiRes::time;
3454	# for (1..1000) {
3455	# my $layout = CFPlus::Layout->new ($rgba);
3456	# $layout->set_text ("hallo" x 100);
3457	# $layout->render;
3458	# }
3459	# my $t2 = Time::HiRes::time;
3460	# warn $t2-$t1;
3461	# }
3462
3463	$startup_done->();
3464
3465	video_init;
3466	audio_init;
3467	}
3468
3469	show_tip_of_the_day if $CFG->{show_tips};
3470
3471	Event::loop;
3472	#CFPlus::SDL_Quit;
3473	#CFPlus::_exit 0;
3474
3475	END {
3476	CFPlus::SDL_Quit;
3477	CFPlus::DB::Server::stop;
3478	}
3479
3480	=head1 NAME
3481
3482	cfplus - A Crossfire+ and Crossfire game client
3483
3484	=head1 SYNOPSIS
3485
3486	Just run it - no commandline arguments are supported.
3487
3488	=head1 USAGE
3489
3490	cfplus utilises OpenGL for all UI elements and the game. It is supposed to be used
3491	fullscreen and interactively.
3492
3493	=head1 DEBUGGING
3494
3495
3496	CFPLUS_DEBUG - environment variable
3497
3498	1 draw borders around widgets
3499	2 add low-level widget info to tooltips
3500	4 show fps
3501	8 suppress tooltips
3502
3503	=head1 AUTHOR
3504
3505	Marc Lehmann <crossfire@schmorp.de>, Robin Redeker <elmex@ta-sa.org>
3506
3507
3508
3509	: $self->{vslider}->hide;	1133	: $self->{vslider}->hide;
3510	}	1134	}
3511	}	1135	}
3512		1136
3513	sub update {	1137	sub update {

Diff Legend

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