[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/bin/cfplus

Comparing deliantra/Deliantra-Client/bin/cfplus (file contents):
Revision 1.41 by root, Fri Jun 2 02:21:48 2006 UTC vs.
Revision 1.54 by root, Mon Jun 5 01:59:59 2006 UTC

…		…
41	use CFClient::UI;	41	use CFClient::UI;
42	use CFClient::MapWidget;	42	use CFClient::MapWidget;
43		43
44	$Event::DIED = sub {	44	$Event::DIED = sub {
45	# TODO: display dialog box or so	45	# TODO: display dialog box or so
		46	Carp::confess $_[1];#d#TODO: remove when stable
46	CFClient::error $_[1];	47	CFClient::error $_[1];
47	};	48	};
48		49
49	#$SIG{__WARN__} = sub { Carp::cluck $_[0] };#d#	50	#$SIG{__WARN__} = sub { Carp::cluck $_[0] };#d#
50		51
…		…
82	our $CONSOLE;	83	our $CONSOLE;
83	our $METASERVER;	84	our $METASERVER;
84	our $LOGIN_BUTTON;	85	our $LOGIN_BUTTON;
85	our $QUIT_DIALOG;	86	our $QUIT_DIALOG;
86	our $HOST_ENTRY;	87	our $HOST_ENTRY;
87	our $SERVER_SETUP;	88
		89	our $SETUP_DIALOG;
		90	our $SETUP_NOTEBOOK;
		91	our $SETUP_SERVER;
		92	our $SETUP_KEYBOARD;
		93	our $SETUP_SPELLS;
88		94
89	our $FLOORBOX;	95	our $FLOORBOX;
90	our $GAUGES;	96	our $GAUGES;
91	our $STATWIDS;	97	our $STATWIDS;
92		98
…		…
104	our $INV_WINDOW;	110	our $INV_WINDOW;
105	our $INV;	111	our $INV;
106	our $INVR;	112	our $INVR;
107	our $INV_RIGHT_HB;	113	our $INV_RIGHT_HB;
108		114
109	our $BIND_WINDOW;
110	our $BIND_EDITOR;	115	our $BIND_EDITOR;
111		116
112	our $SPELL_LIST;	117	our $PICKUP_CFG;
113		118
114	sub status {	119	sub status {
115	$STATUSBOX->add (CFClient::UI::Label::escape $_[0], pri => -10, group => "status", timeout => 10, fg => [1, 1, 0, 1]);	120	$STATUSBOX->add (CFClient::UI::Label::escape $_[0], pri => -10, group => "status", timeout => 10, fg => [1, 1, 0, 1]);
116	}	121	}
117		122
…		…
121		126
122	sub start_game {	127	sub start_game {
123	status "logging in...";	128	status "logging in...";
124		129
125	$LOGIN_BUTTON->set_text ("Logout");	130	$LOGIN_BUTTON->set_text ("Logout");
126	$SERVER_SETUP->hide;	131	$SETUP_DIALOG->hide;
127		132
128	my $mapsize = List::Util::min 32, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / 32;	133	my $mapsize = List::Util::min 32, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / 32;
129		134
130	my ($host, $port) = split /:/, $CFG->{host};	135	my ($host, $port) = split /:/, $CFG->{host};
131		136
…		…
169	}	174	}
170	}	175	}
171		176
172	sub stop_game {	177	sub stop_game {
173	$LOGIN_BUTTON->set_text ("Login");	178	$LOGIN_BUTTON->set_text ("Login");
174	$SERVER_SETUP->show;	179	$SETUP_NOTEBOOK->set_current_page ($SETUP_SERVER);
		180	$SETUP_DIALOG->show;
175	$INV_WINDOW->hide;	181	$INV_WINDOW->hide;
176	$LOGVIEW->hide;
177		182
178	return unless $CONN;	183	return unless $CONN;
179		184
180	status "connection closed";	185	status "connection closed";
181		186
182	$CONN->destroy;	187	$CONN->destroy;
183	$CONN = 0; # false, does not autovivify	188	$CONN = 0; # false, does not autovivify
184	}	189	}
185		190
186	sub client_setup {	191	sub graphics_setup {
187	my $dialog = new CFClient::UI::FancyFrame
188	x => 1,
189	y => $HEIGHT * (1/8),
190	name => "client_setup",
191	title => "Client Setup",
192	child => (my $vbox = new CFClient::UI::VBox);	192	my $vbox = new CFClient::UI::VBox;
193		193
194	$vbox->add (my $table = new CFClient::UI::Table expand => 1, col_expand => [0, 1]);	194	$vbox->add (my $table = new CFClient::UI::Table expand => 1, col_expand => [0, 1]);
195		195
196	$table->add (0, 0, new CFClient::UI::Label valign => 0, align => 1, text => "Video Mode");	196	$table->add (0, 0, new CFClient::UI::Label valign => 0, align => 1, text => "Video Mode");
197	$table->add (1, 0, my $hbox = new CFClient::UI::HBox);	197	$table->add (1, 0, my $hbox = new CFClient::UI::HBox);
…		…
321	on_activate => sub {	321	on_activate => sub {
322	video_shutdown ();	322	video_shutdown ();
323	video_init ();	323	video_init ();
324	}	324	}
325	);	325	);
		326
		327	$vbox
		328	}
		329
		330	sub audio_setup {
		331	my $vbox = new CFClient::UI::VBox;
		332
		333	$vbox->add (my $table = new CFClient::UI::Table expand => 1, col_expand => [0, 1]);
		334
		335	my $row = 0;
326		336
327	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Audio Enable");	337	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Audio Enable");
328	$table->add (1, $row++, new CFClient::UI::CheckBox	338	$table->add (1, $row++, new CFClient::UI::CheckBox
329	state => $CFG->{audio_enable},	339	state => $CFG->{audio_enable},
330	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.",	340	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.",
…		…
361	audio_shutdown ();	371	audio_shutdown ();
362	audio_init ();	372	audio_init ();
363	}	373	}
364	);	374	);
365		375
366	$table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Chat Command");	376	$vbox
367	$table->add (1, $row++, my $saycmd = new CFClient::UI::Entry
368	text => $CFG->{say_command},
369	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. "
370	. "Usually you want to enter something like 'say' or 'shout' or 'gsay' here. "
371	. "But you could also set it to <b>tell <i>playername</i></b> to only chat with that user.",
372	on_changed => sub {
373	my ($self, $value) = @_;
374	$CFG->{say_command} = $value;
375	}
376	);
377
378	$dialog
379	}	377	}
380		378
381	sub set_stats_window_fontsize {	379	sub set_stats_window_fontsize {
382	for (values %{$STATWIDS}) {	380	for (values %{$STATWIDS}) {
383	$_->set_fontsize ($::CFG->{stat_fontsize});	381	$_->set_fontsize ($::CFG->{stat_fontsize});
…		…
556	update_stats_window ({});	554	update_stats_window ({});
557		555
558	$tgw	556	$tgw
559	}	557	}
560		558
561	sub formsep {	559	sub formsep($) {
562	reverse join ",", grep length, split /(...)/, reverse $_[0] * 1	560	scalar reverse join ",", unpack "(A3)", reverse $_[0] 1
563	}	561	}
564		562
565	sub update_stats_window {	563	sub update_stats_window {
566	my ($stats) = @_;	564	my ($stats) = @_;
567		565
…		…
725		723
726	$dialog	724	$dialog
727	}	725	}
728		726
729	sub server_setup {	727	sub server_setup {
730	my $dialog = $SERVER_SETUP = new CFClient::UI::FancyFrame
731	x => "center",
732	y => "center",
733	name => "server_setup",
734	title => "Server Setup",
735	child => (my $vbox = new CFClient::UI::VBox),	728	my $vbox = new CFClient::UI::VBox;
736	;
737		729
738	$vbox->add (my $table = new CFClient::UI::Table expand => 1, col_expand => [0, 1]);	730	$vbox->add (my $table = new CFClient::UI::Table expand => 1, col_expand => [0, 1]);
739	$table->add (0, 2, new CFClient::UI::Label valign => 0, align => 1, text => "Host:Port");	731	$table->add (0, 2, new CFClient::UI::Label valign => 0, align => 1, text => "Host:Port");
740		732
741	{	733	{
…		…
834	$CONN ? stop_game	826	$CONN ? stop_game
835	: start_game;	827	: start_game;
836	},	828	},
837	);	829	);
838		830
839	$dialog	831	$table->add (0, 12, new CFClient::UI::Label valign => 0, align => 1, text => "Chat Command");
		832	$table->add (1, 12, my $saycmd = new CFClient::UI::Entry
		833	text => $CFG->{say_command},
		834	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. "
		835	. "Usually you want to enter something like 'say' or 'shout' or 'gsay' here. "
		836	. "But you could also set it to <b>tell <i>playername</i></b> to only chat with that user.",
		837	on_changed => sub {
		838	my ($self, $value) = @_;
		839	$CFG->{say_command} = $value;
		840	}
		841	);
		842
		843	$vbox
840	}	844	}
841		845
842	sub message_window {	846	sub message_window {
843	my $window = new CFClient::UI::FancyFrame	847	my $window = new CFClient::UI::FancyFrame
844	name => "message_window",	848	name => "message_window",
…		…
870	},	874	},
871	on_activate => sub {	875	on_activate => sub {
872	my ($input, $text) = @_;	876	my ($input, $text) = @_;
873	$input->set_text ('');	877	$input->set_text ('');
874		878
875	if ($text =~ /^\/bind\s+(.*)$/) {
876	CFClient::Binder::open_binding_dialog (sub {
877	my ($mod, $sym) = @_;
878	$::CFG->{bindings}->{$mod}->{$sym} = [$1];
879	});
880	} elsif ($text =~ /^\/(.*)/) {	879	if ($text =~ /^\/(.*)/) {
881	$::CONN->user_send ($1);	880	$::CONN->user_send ($1);
882	} else {	881	} else {
883	my $say_cmd = $::CFG->{say_command} \|\| 'say';	882	my $say_cmd = $::CFG->{say_command} \|\| 'say';
884	$::CONN->user_send ("$say_cmd $text");	883	$::CONN->user_send ("$say_cmd $text");
885	}	884	}
…		…
930	}	929	}
931		930
932	$QUIT_DIALOG->show;	931	$QUIT_DIALOG->show;
933	}	932	}
934		933
		934	sub autopickup_setup {
		935	my $table = new CFClient::UI::Table;
		936
		937	for (
		938	["General", 0, 0,
		939	["Enable autopickup" => CFClient::Pickup::PU_NEWMODE],
		940	["Inhibit autopickup" => CFClient::Pickup::PU_INHIBIT],
		941	["Stop before pickup" => CFClient::Pickup::PU_STOP],
		942	["Debug autopickup" => CFClient::Pickup::PU_DEBUG],
		943	],
		944	["Weapons", 0, 6,
		945	["All weapons" => CFClient::Pickup::PU_ALLWEAPON],
		946	["Missile weapons" => CFClient::Pickup::PU_MISSILEWEAPON],
		947	["Bows" => CFClient::Pickup::PU_BOW],
		948	["Arrows" => CFClient::Pickup::PU_ARROW],
		949	],
		950	["Armour", 0, 12,
		951	["Helmets" => CFClient::Pickup::PU_HELMET],
		952	["Shields" => CFClient::Pickup::PU_SHIELD],
		953	["Body Armour" => CFClient::Pickup::PU_ARMOUR],
		954	["Boots" => CFClient::Pickup::PU_BOOTS],
		955	["Gloves" => CFClient::Pickup::PU_GLOVES],
		956	["Cloaks" => CFClient::Pickup::PU_CLOAK],
		957	],
		958
		959	["Readables", 2, 2,
		960	["Spellbooks" => CFClient::Pickup::PU_SPELLBOOK],
		961	["Skillscrolls" => CFClient::Pickup::PU_SKILLSCROLL],
		962	["Normal Books/Scrolls" => CFClient::Pickup::PU_READABLES],
		963	],
		964	["Misc", 2, 7,
		965	["Food" => CFClient::Pickup::PU_FOOD],
		966	["Drinks" => CFClient::Pickup::PU_DRINK],
		967	["Valuables (Money, Gems)" => CFClient::Pickup::PU_VALUABLES],
		968	["Keys" => CFClient::Pickup::PU_KEY],
		969	["Magical Items" => CFClient::Pickup::PU_MAGICAL],
		970	["Potions" => CFClient::Pickup::PU_POTION],
		971	["Magic Devices" => CFClient::Pickup::PU_MAGIC_DEVICE],
		972	["Ignore cursed" => CFClient::Pickup::PU_NOT_CURSED],
		973	["Jewelery" => CFClient::Pickup::PU_JEWELS],
		974	],
		975	)
		976	{
		977	my ($title, $x, $y, @bits) = @$_;
		978	$table->add ($x, $y, new CFClient::UI::Label text => $title, align => 1, fg => [1, 1, 0]);
		979
		980	for (@bits) {
		981	++$y;
		982
		983	my $mask = $_->[1];
		984	$table->add ($x , $y, new CFClient::UI::Label text => $_->[0], align => 1, expand => 1);
		985	$table->add ($x+1, $y, new CFClient::UI::CheckBox
		986	state => $CFG->{pickup} & $mask,
		987	on_changed => sub {
		988	my ($box, $value) = @_;
		989	if ($value) {
		990	$::CFG->{pickup} \|= $mask;
		991	} else {
		992	$::CFG->{pickup} = $::CFG->{pickup} & ~$mask;
		993	}
		994	$::CONN->send (sprintf "command pickup %u", $::CFG->{pickup})
		995	if defined $::CONN;
		996	});
		997	}
		998	}
		999
		1000	$table
		1001	}
		1002
935	sub make_inventory_window {	1003	sub make_inventory_window {
936	my $invwin = $INV_WINDOW = new CFClient::UI::FancyFrame	1004	my $invwin = $INV_WINDOW = new CFClient::UI::FancyFrame
937	x => "center",	1005	x => "center",
938	y => "center",	1006	y => "center",
939	force_w => $WIDTH * 9/10,	1007	force_w => $WIDTH * 9/10,
…		…
957	CFClient::Protocol::set_opencont ($::CONN, 0, "Floor");	1025	CFClient::Protocol::set_opencont ($::CONN, 0, "Floor");
958		1026
959	$invwin	1027	$invwin
960	}	1028	}
961		1029
962	sub make_spell_list {	1030	sub spell_setup {
963	$SPELL_LIST = new CFClient::UI::SpellList	1031	new CFClient::UI::SpellList
964	force_w => $WIDTH * (9/10),
965	force_h => $HEIGHT * (9/10);
966	$SPELL_LIST
967	}	1032	}
968		1033
969	sub make_binding_window {	1034	sub keyboard_setup {
970	my $binding_list = new CFClient::UI::VBox;	1035	my $binding_list = new CFClient::UI::VBox;
971		1036
972	my $refresh;	1037	my $refresh;
973	$refresh = sub {	1038	$refresh = sub {
974	$binding_list->clear ();	1039	$binding_list->clear ();
…		…
998	sub {	1063	sub {
999	my ($nmod, $nsym, $ncmds) = @_;	1064	my ($nmod, $nsym, $ncmds) = @_;
1000	delete $::CFG->{bindings}->{$mod}->{$sym};	1065	delete $::CFG->{bindings}->{$mod}->{$sym};
1001	$::CFG->{bindings}->{$nmod}->{$nsym} = $ncmds;	1066	$::CFG->{bindings}->{$nmod}->{$nsym} = $ncmds;
1002	$refresh->();	1067	$refresh->();
		1068	$SETUP_NOTEBOOK->set_current_page ($SETUP_KEYBOARD);
1003	$::BIND_WINDOW->show;	1069	$SETUP_DIALOG->show;
1004	},	1070	},
1005	sub {	1071	sub {
		1072	$SETUP_NOTEBOOK->set_current_page ($SETUP_KEYBOARD);
1006	$::BIND_WINDOW->show;	1073	$SETUP_DIALOG->show;
1007	});	1074	});
1008	$::BIND_EDITOR->show;	1075	$::BIND_EDITOR->show;
1009	$::BIND_WINDOW->hide;	1076	$SETUP_DIALOG->hide;
1010	});	1077	});
1011		1078
1012	$hb->add (new CFClient::UI::Label text => "(Key: $nam)");	1079	$hb->add (new CFClient::UI::Label text => "(Key: $nam)");
1013	$hb->add (new CFClient::UI::Label text => $lbl, expand => 1);	1080	$hb->add (new CFClient::UI::Label text => $lbl, expand => 1);
1014	}	1081	}
1015	}	1082	}
1016	};	1083	};
1017		1084
1018	$BIND_WINDOW = new CFClient::UI::FancyFrame
1019	title => "Bindings",
1020	x => "center",
1021	y => "center",
1022	def_w => int $WIDTH * 9/10,
1023	def_h => int $HEIGHT * 9/10,
1024	on_visibility_change => sub {
1025	my ($self, $visible) = @_;
1026	$refresh->() if $visible;
1027	};
1028
1029	$BIND_WINDOW->add (my $vb = new CFClient::UI::VBox);	1085	my $vb = new CFClient::UI::VBox;
1030	$vb->add ($binding_list);	1086	$vb->add ($binding_list);
1031	$vb->add (my $hb = new CFClient::UI::HBox);	1087	$vb->add (my $hb = new CFClient::UI::HBox);
		1088
1032	$hb->add (new CFClient::UI::Button	1089	$hb->add (new CFClient::UI::Button
1033	text => "record new",	1090	text => "record new",
1034	expand => 1,	1091	expand => 1,
1035	tooltip => "This button opens the binding editor with an empty binding.",	1092	tooltip => "This button opens the binding editor with an empty binding.",
1036	on_activate => sub {	1093	on_activate => sub {
1037	$::BIND_EDITOR->set_binding (undef, undef, [],	1094	$::BIND_EDITOR->set_binding (undef, undef, [],
1038	sub {	1095	sub {
1039	my ($mod, $sym, $cmds) = @_;	1096	my ($mod, $sym, $cmds) = @_;
1040	$::CFG->{bindings}->{$mod}->{$sym} = $cmds;	1097	$::CFG->{bindings}->{$mod}->{$sym} = $cmds;
1041	$refresh->();	1098	$refresh->();
1042	$::BIND_WINDOW->show;	1099	$SETUP_NOTEBOOK->set_current_page ($SETUP_KEYBOARD);
		1100	$SETUP_DIALOG->show;
1043	},	1101	},
1044	sub {	1102	sub {
1045	$::BIND_WINDOW->show;	1103	$SETUP_NOTEBOOK->set_current_page ($SETUP_KEYBOARD);
		1104	$SETUP_DIALOG->show;
1046	});	1105	},
1047	$::BIND_WINDOW->hide;	1106	);
		1107	$SETUP_DIALOG->hide;
1048	$::BIND_EDITOR->show;	1108	$::BIND_EDITOR->show;
1049	},	1109	},
1050	);	1110	);
		1111
1051	$hb->add (new CFClient::UI::Button	1112	$hb->add (new CFClient::UI::Button
1052	text => "close",	1113	text => "close",
1053	tooltip => "Closes the binding window",	1114	tooltip => "Closes the binding window",
1054	expand => 1,	1115	expand => 1,
1055	on_activate => sub {	1116	on_activate => sub {
1056	$::BIND_WINDOW->hide;	1117	$SETUP_DIALOG->hide;
1057	}	1118	}
1058	);	1119	);
1059		1120
1060	$refresh->();	1121	$refresh->();
1061	$BIND_WINDOW	1122
		1123	$vb
1062	}	1124	}
1063		1125
1064	sub make_help_window {	1126	sub make_help_window {
1065	my $win = new CFClient::UI::FancyFrame	1127	my $win = new CFClient::UI::FancyFrame
1066	x => 'center',	1128	x => 'center',
…		…
1147	$DEBUG_STATUS->show;	1209	$DEBUG_STATUS->show;
1148		1210
1149	$BIND_EDITOR = new CFClient::UI::BindEditor (x => "max", y => 0);	1211	$BIND_EDITOR = new CFClient::UI::BindEditor (x => "max", y => 0);
1150		1212
1151	$STATUSBOX = new CFClient::UI::Statusbox;	1213	$STATUSBOX = new CFClient::UI::Statusbox;
1152	$STATUSBOX->add ("Use <b>Alt-Enter</b> to toggle fullscreen mode", pri => -100, color => [1, 1, 1, 0.8]);	1214	$STATUSBOX->add ("Use <b>Alt-Enter</b> to toggle fullscreen mode", timeout => 864000, pri => -100, color => [1, 1, 1, 0.8]);
1153		1215
1154	(new CFClient::UI::Frame	1216	(new CFClient::UI::Frame
1155	bg => [0, 0, 0, 0.4],	1217	bg => [0, 0, 0, 0.4],
1156	force_x => 0,	1218	force_x => 0,
1157	force_y => "max",	1219	force_y => "max",
1158	child => $STATUSBOX,	1220	child => $STATUSBOX,
1159	)->show;	1221	)->show;
1160		1222
1161	CFClient::UI::FancyFrame->new (	1223	CFClient::UI::FancyFrame->new (
		1224	title => "Map",
		1225	name => "mapmap",
1162	x => 0,	1226	x => 0,
1163	y => $FONTSIZE + 8,	1227	y => $FONTSIZE + 8,
1164	border_bg => [1, 1, 1, 192/255],	1228	border_bg => [1, 1, 1, 192/255],
1165	bg => [1, 1, 1, 0],	1229	bg => [1, 1, 1, 0],
1166	child => ($MAPMAP = new CFClient::MapWidget::MapMap	1230	child => ($MAPMAP = new CFClient::MapWidget::MapMap
…		…
1191	can_hover => 1,	1255	can_hover => 1,
1192	can_events => 1,	1256	can_events => 1,
1193	tooltip => "<b>Server Log</b>. This text viewer contains all the messages sent by the server.",	1257	tooltip => "<b>Server Log</b>. This text viewer contains all the messages sent by the server.",
1194	;	1258	;
1195		1259
		1260	$SETUP_DIALOG = new CFClient::UI::FancyFrame
		1261	title => "Setup",
		1262	name => "setup_dialog",
		1263	x => 'center',
		1264	y => 'center',
		1265	z => 2,
		1266	force_w => $::WIDTH * 0.6,
		1267	force_h => $::HEIGHT * 0.6,
		1268	;
		1269
		1270	$SETUP_DIALOG->add ($SETUP_NOTEBOOK = new CFClient::UI::Notebook expand => 1, debug => 1,
		1271	filter => new CFClient::UI::ScrolledWindow xxx => 1, expand => 1, scroll_y => 1);
		1272
		1273	$SETUP_NOTEBOOK->add (Server => $SETUP_SERVER = server_setup,
		1274	"Configure the server to play on, your username, password and other server-related options.");
		1275	$SETUP_NOTEBOOK->add (Pickup => autopickup_setup,
		1276	"Configure autopicking stetings, i.e. which items you will pick up automatically when walking over them.");
		1277	$SETUP_NOTEBOOK->add (Graphics => graphics_setup,
		1278	"Configure the video mode, performance, fonts and other graphical aspects of the game.");
		1279	$SETUP_NOTEBOOK->add (Audio => audio_setup,
		1280	"Configure the use of audio, sound effects and background music.");
		1281	$SETUP_NOTEBOOK->add (Keyboard => $SETUP_KEYBOARD = keyboard_setup,
		1282	"Lets you define, edit and delete bindings."
		1283	. "There is a shortcut for making bindings: <b>Left Control + Insert</b> opens the binding editor "
		1284	. "with nothing set and the recording started. After doing the actions you "
		1285	. "want to record press <b>Insert</b> and you will be asked to press a key-combo. "
		1286	. "After pressing the combo the binding will be saved automatically and the "
		1287	. "binding editor closes");
		1288	$SETUP_NOTEBOOK->add (Spells => $SETUP_SPELLS = spell_setup,
		1289	"Displays all spells you have and lets you edit keyboard shortcuts for them.");
		1290
1196	$BUTTONBAR = new CFClient::UI::HBox x => 0, y => 0;	1291	$BUTTONBAR = new CFClient::UI::HBox x => 0, y => 0;
1197		1292
1198	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Client Setup", other => client_setup,	1293	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Setup", other => $SETUP_DIALOG,
1199	tooltip => "Toggles a dialog where you can configure various aspects of the client, such as graphics mode, performance, and audio options.");	1294	tooltip => "Toggles a dialog where you can configure all aspects of this client.");
1200	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Server Setup", other => server_setup,	1295
1201	tooltip => "Toggles a dialog where you can configure the server to play on, your username, password and other server-related options.");
1202	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Message Window", other => message_window,	1296	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Message Window", other => message_window,
1203	tooltip => "Toggles the server message log, where the client collects <i>all</i> messages from the server.");	1297	tooltip => "Toggles the server message log, where the client collects <i>all</i> messages from the server.");
1204		1298
1205	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	1299	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
1206		1300
1207	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Stats Window", other => make_stats_window,	1301	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Stats Window", other => make_stats_window,
1208	tooltip => "Toggles the statistics window, where all your Stats and Resistances are being displayed at all times.");	1302	tooltip => "Toggles the statistics window, where all your Stats and Resistances are being displayed at all times.");
1209	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Inventory", other => make_inventory_window,	1303	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Inventory", other => make_inventory_window,
1210	tooltip => "Toggles the inventory window, where you can manage your loot (or treaures :)."	1304	tooltip => "Toggles the inventory window, where you can manage your loot (or treasures :). "
1211	."You can also hit the Tab-key to show/hide the Inventory.");	1305	. "You can also hit the <b>Tab</b>-key to show/hide the Inventory.");
1212		1306
1213	$BUTTONBAR->add (new CFClient::UI::Button	1307	$BUTTONBAR->add (new CFClient::UI::Button
1214	text => "Save Config",	1308	text => "Save Config",
1215	tooltip => "Saves the options chosen in the client setting, server settings and the window layout to be restored on later runs.",	1309	tooltip => "Saves the options chosen in the client setting, server settings and the window layout to be restored on later runs.",
1216	on_activate => sub {	1310	on_activate => sub {
…		…
1220	},	1314	},
1221	);	1315	);
1222		1316
1223	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Help!", other => make_help_window,	1317	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Help!", other => make_help_window,
1224	tooltip => "View Documentation");	1318	tooltip => "View Documentation");
1225
1226	$BUTTONBAR->add (new CFClient::UI::Flopper
1227	text => "Bindings",
1228	other => make_binding_window,
1229	tooltip =>
1230	"Lets you define, edit and delete bindings."
1231	."There is a shortcut for making bindings: LCTRL+Insert opens the binding editor "
1232	."with nothing set and the recording started. After doing the actions you "
1233	."want to record press Insert and you will be asked to press a key-combo."
1234	."After pressing the combo the binding will be saved automatically and the "
1235	."binding editor closes");
1236
1237	$BUTTONBAR->add (new CFClient::UI::Flopper
1238	text => "Spells",
1239	other => make_spell_list,
1240	tooltip => "The spell list");
1241		1319
1242	$BUTTONBAR->add (new CFClient::UI::Button	1320	$BUTTONBAR->add (new CFClient::UI::Button
1243	text => "Quit",	1321	text => "Quit",
1244	tooltip => "Terminates the program",	1322	tooltip => "Terminates the program",
1245	on_activate => sub {	1323	on_activate => sub {
…		…
1250	}	1328	}
1251	},	1329	},
1252	);	1330	);
1253		1331
1254	$BUTTONBAR->show;	1332	$BUTTONBAR->show;
1255	$SERVER_SETUP->show;	1333	$SETUP_DIALOG->show;
		1334	}
1256		1335
1257	$STATUSBOX->add ("Set video mode $WIDTH×$HEIGHT", timeout => 10, fg => [1, 1, 1, 0.5]);	1336	$STATUSBOX->add ("Set video mode $WIDTH×$HEIGHT", timeout => 10, fg => [1, 1, 1, 0.5]);
1258	}
1259	}	1337	}
1260		1338
1261	sub video_shutdown {	1339	sub video_shutdown {
1262	undef $SDL_ACTIVE;	1340	undef $SDL_ACTIVE;
1263	}	1341	}
…		…
1395	};	1473	};
1396		1474
1397	CFClient::SDL_GL_SwapBuffers;	1475	CFClient::SDL_GL_SwapBuffers;
1398	}	1476	}
1399		1477
1400	my $refresh_watcher = Event->timer (after => 0, hard => 1, interval => 1 / $MAX_FPS, cb => sub {	1478	my $refresh_watcher = Event->timer (after => 0, hard => 0, interval => 1 / $MAX_FPS, cb => sub {
1401	$NOW = time;	1479	$NOW = time;
1402		1480
1403	($SDL_CB{$_->{type}} \|\| sub { warn "unhandled event $_->{type}" })->($_)	1481	($SDL_CB{$_->{type}} \|\| sub { warn "unhandled event $_->{type}" })->($_)
1404	for CFClient::SDL_PollEvent;	1482	for CFClient::SDL_PollEvent;
1405		1483
…		…
1472	#############################################################################	1550	#############################################################################
1473		1551
1474	$SIG{INT} = $SIG{TERM} = sub { exit };	1552	$SIG{INT} = $SIG{TERM} = sub { exit };
1475		1553
1476	{	1554	{
1477	local $SIG{__DIE__} = sub { CFClient::fatal $_[0] if defined $^S && !$^S };	1555	local $SIG{__DIE__} = sub {
		1556	return unless defined $^S && !$^S;
		1557	Carp::confess $_[1];#d#TODO: remove when stable
		1558	CFClient::fatal $_[0];
		1559	};
1478		1560
1479	CFClient::read_cfg "$Crossfire::VARDIR/cfplusrc";	1561	CFClient::read_cfg "$Crossfire::VARDIR/cfplusrc";
1480	CFClient::UI::set_layout ($::CFG->{layout});	1562	CFClient::UI::set_layout ($::CFG->{layout});
1481		1563
1482	my %DEF_CFG = (	1564	my %DEF_CFG = (

Diff Legend

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

Comparing deliantra/Deliantra-Client/bin/cfplus (file contents): Revision 1.41 by root, Fri Jun 2 02:21:48 2006 UTC vs. Revision 1.54 by root, Mon Jun 5 01:59:59 2006 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/bin/cfplus (file contents):
Revision 1.41 by root, Fri Jun 2 02:21:48 2006 UTC vs.
Revision 1.54 by root, Mon Jun 5 01:59:59 2006 UTC