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

Comparing deliantra/Deliantra-Client/bin/cfplus (file contents):
Revision 1.40 by root, Fri Jun 2 02:12:04 2006 UTC vs.
Revision 1.55 by root, Mon Jun 5 03:33:09 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
…		…
710	}	708	}
711		709
712	sub metaserver_dialog {	710	sub metaserver_dialog {
713	my $dialog = new CFClient::UI::FancyFrame	711	my $dialog = new CFClient::UI::FancyFrame
714	title => "Server List",	712	title => "Server List",
		713	name => 'metaserver_dialog',
715	x => 'center',	714	x => 'center',
716	y => 'center',	715	y => 'center',
717	child => (my $vbox = new CFClient::UI::VBox),	716	child => (my $vbox = new CFClient::UI::VBox),
718	on_visibility_change => sub {	717	on_visibility_change => sub {
719	update_metaserver if $_[1];	718	update_metaserver if $_[1];
…		…
724		723
725	$dialog	724	$dialog
726	}	725	}
727		726
728	sub server_setup {	727	sub server_setup {
729	my $dialog = $SERVER_SETUP = new CFClient::UI::FancyFrame
730	x => "center",
731	y => "center",
732	name => "server_setup",
733	title => "Server Setup",
734	child => (my $vbox = new CFClient::UI::VBox),	728	my $vbox = new CFClient::UI::VBox;
735	;
736		729
737	$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]);
738	$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");
739		732
740	{	733	{
…		…
833	$CONN ? stop_game	826	$CONN ? stop_game
834	: start_game;	827	: start_game;
835	},	828	},
836	);	829	);
837		830
838	$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
839	}	844	}
840		845
841	sub message_window {	846	sub message_window {
842	my $window = new CFClient::UI::FancyFrame	847	my $window = new CFClient::UI::FancyFrame
843	name => "message_window",	848	name => "message_window",
…		…
869	},	874	},
870	on_activate => sub {	875	on_activate => sub {
871	my ($input, $text) = @_;	876	my ($input, $text) = @_;
872	$input->set_text ('');	877	$input->set_text ('');
873		878
874	if ($text =~ /^\/bind\s+(.*)$/) {
875	CFClient::Binder::open_binding_dialog (sub {
876	my ($mod, $sym) = @_;
877	$::CFG->{bindings}->{$mod}->{$sym} = [$1];
878	});
879	} elsif ($text =~ /^\/(.*)/) {	879	if ($text =~ /^\/(.*)/) {
880	$::CONN->user_send ($1);	880	$::CONN->user_send ($1);
881	} else {	881	} else {
882	my $say_cmd = $::CFG->{say_command} \|\| 'say';	882	my $say_cmd = $::CFG->{say_command} \|\| 'say';
883	$::CONN->user_send ("$say_cmd $text");	883	$::CONN->user_send ("$say_cmd $text");
884	}	884	}
…		…
903	sub open_quit_dialog {	903	sub open_quit_dialog {
904	unless ($QUIT_DIALOG) {	904	unless ($QUIT_DIALOG) {
905	$QUIT_DIALOG = new CFClient::UI::FancyFrame	905	$QUIT_DIALOG = new CFClient::UI::FancyFrame
906	x => "center",	906	x => "center",
907	y => "center",	907	y => "center",
		908	z => 50,
908	title => "Really Quit?",	909	title => "Really Quit?",
909	;	910	;
910		911
911	$QUIT_DIALOG->add (my $vb = new CFClient::UI::VBox expand => 1);	912	$QUIT_DIALOG->add (my $vb = new CFClient::UI::VBox expand => 1);
912		913
…		…
929	}	930	}
930		931
931	$QUIT_DIALOG->show;	932	$QUIT_DIALOG->show;
932	}	933	}
933		934
		935	sub autopickup_setup {
		936	my $table = new CFClient::UI::Table;
		937
		938	for (
		939	["General", 0, 0,
		940	["Enable autopickup" => CFClient::Pickup::PU_NEWMODE],
		941	["Inhibit autopickup" => CFClient::Pickup::PU_INHIBIT],
		942	["Stop before pickup" => CFClient::Pickup::PU_STOP],
		943	["Debug autopickup" => CFClient::Pickup::PU_DEBUG],
		944	],
		945	["Weapons", 0, 6,
		946	["All weapons" => CFClient::Pickup::PU_ALLWEAPON],
		947	["Missile weapons" => CFClient::Pickup::PU_MISSILEWEAPON],
		948	["Bows" => CFClient::Pickup::PU_BOW],
		949	["Arrows" => CFClient::Pickup::PU_ARROW],
		950	],
		951	["Armour", 0, 12,
		952	["Helmets" => CFClient::Pickup::PU_HELMET],
		953	["Shields" => CFClient::Pickup::PU_SHIELD],
		954	["Body Armour" => CFClient::Pickup::PU_ARMOUR],
		955	["Boots" => CFClient::Pickup::PU_BOOTS],
		956	["Gloves" => CFClient::Pickup::PU_GLOVES],
		957	["Cloaks" => CFClient::Pickup::PU_CLOAK],
		958	],
		959
		960	["Readables", 2, 2,
		961	["Spellbooks" => CFClient::Pickup::PU_SPELLBOOK],
		962	["Skillscrolls" => CFClient::Pickup::PU_SKILLSCROLL],
		963	["Normal Books/Scrolls" => CFClient::Pickup::PU_READABLES],
		964	],
		965	["Misc", 2, 7,
		966	["Food" => CFClient::Pickup::PU_FOOD],
		967	["Drinks" => CFClient::Pickup::PU_DRINK],
		968	["Valuables (Money, Gems)" => CFClient::Pickup::PU_VALUABLES],
		969	["Keys" => CFClient::Pickup::PU_KEY],
		970	["Magical Items" => CFClient::Pickup::PU_MAGICAL],
		971	["Potions" => CFClient::Pickup::PU_POTION],
		972	["Magic Devices" => CFClient::Pickup::PU_MAGIC_DEVICE],
		973	["Ignore cursed" => CFClient::Pickup::PU_NOT_CURSED],
		974	["Jewelery" => CFClient::Pickup::PU_JEWELS],
		975	],
		976	)
		977	{
		978	my ($title, $x, $y, @bits) = @$_;
		979	$table->add ($x, $y, new CFClient::UI::Label text => $title, align => 1, fg => [1, 1, 0]);
		980
		981	for (@bits) {
		982	++$y;
		983
		984	my $mask = $_->[1];
		985	$table->add ($x , $y, new CFClient::UI::Label text => $_->[0], align => 1, expand => 1);
		986	$table->add ($x+1, $y, new CFClient::UI::CheckBox
		987	state => $CFG->{pickup} & $mask,
		988	on_changed => sub {
		989	my ($box, $value) = @_;
		990	if ($value) {
		991	$::CFG->{pickup} \|= $mask;
		992	} else {
		993	$::CFG->{pickup} = $::CFG->{pickup} & ~$mask;
		994	}
		995	$::CONN->send (sprintf "command pickup %u", $::CFG->{pickup})
		996	if defined $::CONN;
		997	});
		998	}
		999	}
		1000
		1001	$table
		1002	}
		1003
934	sub make_inventory_window {	1004	sub make_inventory_window {
935	my $invwin = $INV_WINDOW = new CFClient::UI::FancyFrame	1005	my $invwin = $INV_WINDOW = new CFClient::UI::FancyFrame
936	x => "center",	1006	x => "center",
937	y => "center",	1007	y => "center",
938	force_w => $WIDTH * 9/10,	1008	force_w => $WIDTH * 9/10,
…		…
956	CFClient::Protocol::set_opencont ($::CONN, 0, "Floor");	1026	CFClient::Protocol::set_opencont ($::CONN, 0, "Floor");
957		1027
958	$invwin	1028	$invwin
959	}	1029	}
960		1030
961	sub make_spell_list {	1031	sub spell_setup {
962	$SPELL_LIST = new CFClient::UI::SpellList	1032	new CFClient::UI::SpellList
963	force_w => $WIDTH * (9/10),
964	force_h => $HEIGHT * (9/10);
965	$SPELL_LIST
966	}	1033	}
967		1034
968	sub make_binding_window {	1035	sub keyboard_setup {
969	my $binding_list = new CFClient::UI::VBox;	1036	my $binding_list = new CFClient::UI::VBox;
970		1037
971	my $refresh;	1038	my $refresh;
972	$refresh = sub {	1039	$refresh = sub {
973	$binding_list->clear ();	1040	$binding_list->clear ();
…		…
997	sub {	1064	sub {
998	my ($nmod, $nsym, $ncmds) = @_;	1065	my ($nmod, $nsym, $ncmds) = @_;
999	delete $::CFG->{bindings}->{$mod}->{$sym};	1066	delete $::CFG->{bindings}->{$mod}->{$sym};
1000	$::CFG->{bindings}->{$nmod}->{$nsym} = $ncmds;	1067	$::CFG->{bindings}->{$nmod}->{$nsym} = $ncmds;
1001	$refresh->();	1068	$refresh->();
		1069	$SETUP_NOTEBOOK->set_current_page ($SETUP_KEYBOARD);
1002	$::BIND_WINDOW->show;	1070	$SETUP_DIALOG->show;
1003	},	1071	},
1004	sub {	1072	sub {
		1073	$SETUP_NOTEBOOK->set_current_page ($SETUP_KEYBOARD);
1005	$::BIND_WINDOW->show;	1074	$SETUP_DIALOG->show;
1006	});	1075	});
1007	$::BIND_EDITOR->show;	1076	$::BIND_EDITOR->show;
1008	$::BIND_WINDOW->hide;	1077	$SETUP_DIALOG->hide;
1009	});	1078	});
1010		1079
1011	$hb->add (new CFClient::UI::Label text => "(Key: $nam)");	1080	$hb->add (new CFClient::UI::Label text => "(Key: $nam)");
1012	$hb->add (new CFClient::UI::Label text => $lbl, expand => 1);	1081	$hb->add (new CFClient::UI::Label text => $lbl, expand => 1);
1013	}	1082	}
1014	}	1083	}
1015	};	1084	};
1016		1085
1017	$BIND_WINDOW = new CFClient::UI::FancyFrame
1018	title => "Bindings",
1019	x => "center",
1020	y => "center",
1021	def_w => int $WIDTH * 9/10,
1022	def_h => int $HEIGHT * 9/10,
1023	on_visibility_change => sub {
1024	my ($self, $visible) = @_;
1025	$refresh->() if $visible;
1026	};
1027
1028	$BIND_WINDOW->add (my $vb = new CFClient::UI::VBox);	1086	my $vb = new CFClient::UI::VBox;
1029	$vb->add ($binding_list);	1087	$vb->add ($binding_list);
1030	$vb->add (my $hb = new CFClient::UI::HBox);	1088	$vb->add (my $hb = new CFClient::UI::HBox);
		1089
1031	$hb->add (new CFClient::UI::Button	1090	$hb->add (new CFClient::UI::Button
1032	text => "record new",	1091	text => "record new",
1033	expand => 1,	1092	expand => 1,
1034	tooltip => "This button opens the binding editor with an empty binding.",	1093	tooltip => "This button opens the binding editor with an empty binding.",
1035	on_activate => sub {	1094	on_activate => sub {
1036	$::BIND_EDITOR->set_binding (undef, undef, [],	1095	$::BIND_EDITOR->set_binding (undef, undef, [],
1037	sub {	1096	sub {
1038	my ($mod, $sym, $cmds) = @_;	1097	my ($mod, $sym, $cmds) = @_;
1039	$::CFG->{bindings}->{$mod}->{$sym} = $cmds;	1098	$::CFG->{bindings}->{$mod}->{$sym} = $cmds;
1040	$refresh->();	1099	$refresh->();
1041	$::BIND_WINDOW->show;	1100	$SETUP_NOTEBOOK->set_current_page ($SETUP_KEYBOARD);
		1101	$SETUP_DIALOG->show;
1042	},	1102	},
1043	sub {	1103	sub {
1044	$::BIND_WINDOW->show;	1104	$SETUP_NOTEBOOK->set_current_page ($SETUP_KEYBOARD);
		1105	$SETUP_DIALOG->show;
1045	});	1106	},
1046	$::BIND_WINDOW->hide;	1107	);
		1108	$SETUP_DIALOG->hide;
1047	$::BIND_EDITOR->show;	1109	$::BIND_EDITOR->show;
1048	},	1110	},
1049	);	1111	);
		1112
1050	$hb->add (new CFClient::UI::Button	1113	$hb->add (new CFClient::UI::Button
1051	text => "close",	1114	text => "close",
1052	tooltip => "Closes the binding window",	1115	tooltip => "Closes the binding window",
1053	expand => 1,	1116	expand => 1,
1054	on_activate => sub {	1117	on_activate => sub {
1055	$::BIND_WINDOW->hide;	1118	$SETUP_DIALOG->hide;
1056	}	1119	}
1057	);	1120	);
1058		1121
1059	$refresh->();	1122	$refresh->();
1060	$BIND_WINDOW	1123
		1124	$vb
1061	}	1125	}
1062		1126
1063	sub make_help_window {	1127	sub make_help_window {
1064	my $win = new CFClient::UI::FancyFrame	1128	my $win = new CFClient::UI::FancyFrame
		1129	x => 'center',
		1130	y => 'center',
		1131	z => 2,
		1132	name => 'doc_browser',
1065	def_w => int $WIDTH * 7/8,	1133	force_w => int $WIDTH * 7/8,
1066	def_h => int $HEIGHT * 7/8,	1134	force_h => int $HEIGHT * 7/8,
1067	title => "Documentation";	1135	title => "Documentation";
1068		1136
1069	$win->add (my $vbox = new CFClient::UI::VBox);	1137	$win->add (my $vbox = new CFClient::UI::VBox);
1070		1138
1071	$vbox->add (my $buttons = new CFClient::UI::HBox);	1139	$vbox->add (my $buttons = new CFClient::UI::HBox);
1072	$vbox->add (my $viewer = new CFClient::UI::TextView expand => 1, fontsize => 0.8);	1140	$vbox->add (my $viewer = new CFClient::UI::TextView expand => 1, fontsize => 0.8);
…		…
1143	$DEBUG_STATUS->show;	1211	$DEBUG_STATUS->show;
1144		1212
1145	$BIND_EDITOR = new CFClient::UI::BindEditor (x => "max", y => 0);	1213	$BIND_EDITOR = new CFClient::UI::BindEditor (x => "max", y => 0);
1146		1214
1147	$STATUSBOX = new CFClient::UI::Statusbox;	1215	$STATUSBOX = new CFClient::UI::Statusbox;
1148	$STATUSBOX->add ("Use <b>Alt-Enter</b> to toggle fullscreen mode", pri => -100, color => [1, 1, 1, 0.8]);	1216	$STATUSBOX->add ("Use <b>Alt-Enter</b> to toggle fullscreen mode", timeout => 864000, pri => -100, color => [1, 1, 1, 0.8]);
1149		1217
1150	(new CFClient::UI::Frame	1218	(new CFClient::UI::Frame
1151	bg => [0, 0, 0, 0.4],	1219	bg => [0, 0, 0, 0.4],
1152	force_x => 0,	1220	force_x => 0,
1153	force_y => "max",	1221	force_y => "max",
1154	child => $STATUSBOX,	1222	child => $STATUSBOX,
1155	)->show;	1223	)->show;
1156		1224
1157	CFClient::UI::FancyFrame->new (	1225	CFClient::UI::FancyFrame->new (
		1226	title => "Map",
		1227	name => "mapmap",
1158	x => 0,	1228	x => 0,
1159	y => $FONTSIZE + 8,	1229	y => $FONTSIZE + 8,
1160	border_bg => [1, 1, 1, 192/255],	1230	border_bg => [1, 1, 1, 192/255],
1161	bg => [1, 1, 1, 0],	1231	bg => [1, 1, 1, 0],
1162	child => ($MAPMAP = new CFClient::MapWidget::MapMap	1232	child => ($MAPMAP = new CFClient::MapWidget::MapMap
…		…
1187	can_hover => 1,	1257	can_hover => 1,
1188	can_events => 1,	1258	can_events => 1,
1189	tooltip => "<b>Server Log</b>. This text viewer contains all the messages sent by the server.",	1259	tooltip => "<b>Server Log</b>. This text viewer contains all the messages sent by the server.",
1190	;	1260	;
1191		1261
		1262	$SETUP_DIALOG = new CFClient::UI::FancyFrame
		1263	title => "Setup",
		1264	name => "setup_dialog",
		1265	x => 'center',
		1266	y => 'center',
		1267	z => 2,
		1268	force_w => $::WIDTH * 0.6,
		1269	force_h => $::HEIGHT * 0.6,
		1270	;
		1271
		1272	$SETUP_DIALOG->add ($SETUP_NOTEBOOK = new CFClient::UI::Notebook expand => 1, debug => 1,
		1273	filter => new CFClient::UI::ScrolledWindow xxx => 1, expand => 1, scroll_y => 1);
		1274
		1275	$SETUP_NOTEBOOK->add (Server => $SETUP_SERVER = server_setup,
		1276	"Configure the server to play on, your username, password and other server-related options.");
		1277	$SETUP_NOTEBOOK->add (Pickup => autopickup_setup,
		1278	"Configure autopicking stetings, i.e. which items you will pick up automatically when walking over them.");
		1279	$SETUP_NOTEBOOK->add (Graphics => graphics_setup,
		1280	"Configure the video mode, performance, fonts and other graphical aspects of the game.");
		1281	$SETUP_NOTEBOOK->add (Audio => audio_setup,
		1282	"Configure the use of audio, sound effects and background music.");
		1283	$SETUP_NOTEBOOK->add (Keyboard => $SETUP_KEYBOARD = keyboard_setup,
		1284	"Lets you define, edit and delete bindings."
		1285	. "There is a shortcut for making bindings: <b>Left Control + Insert</b> opens the binding editor "
		1286	. "with nothing set and the recording started. After doing the actions you "
		1287	. "want to record press <b>Insert</b> and you will be asked to press a key-combo. "
		1288	. "After pressing the combo the binding will be saved automatically and the "
		1289	. "binding editor closes");
		1290	$SETUP_NOTEBOOK->add (Spells => $SETUP_SPELLS = spell_setup,
		1291	"Displays all spells you have and lets you edit keyboard shortcuts for them.");
		1292
1192	$BUTTONBAR = new CFClient::UI::HBox x => 0, y => 0;	1293	$BUTTONBAR = new CFClient::UI::HBox x => 0, y => 0;
1193		1294
1194	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Client Setup", other => client_setup,	1295	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Setup", other => $SETUP_DIALOG,
1195	tooltip => "Toggles a dialog where you can configure various aspects of the client, such as graphics mode, performance, and audio options.");	1296	tooltip => "Toggles a dialog where you can configure all aspects of this client.");
1196	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Server Setup", other => server_setup,	1297
1197	tooltip => "Toggles a dialog where you can configure the server to play on, your username, password and other server-related options.");
1198	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Message Window", other => message_window,	1298	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Message Window", other => message_window,
1199	tooltip => "Toggles the server message log, where the client collects <i>all</i> messages from the server.");	1299	tooltip => "Toggles the server message log, where the client collects <i>all</i> messages from the server.");
1200		1300
1201	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	1301	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
1202		1302
1203	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Stats Window", other => make_stats_window,	1303	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Stats Window", other => make_stats_window,
1204	tooltip => "Toggles the statistics window, where all your Stats and Resistances are being displayed at all times.");	1304	tooltip => "Toggles the statistics window, where all your Stats and Resistances are being displayed at all times.");
1205	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Inventory", other => make_inventory_window,	1305	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Inventory", other => make_inventory_window,
1206	tooltip => "Toggles the inventory window, where you can manage your loot (or treaures :)."	1306	tooltip => "Toggles the inventory window, where you can manage your loot (or treasures :). "
1207	."You can also hit the Tab-key to show/hide the Inventory.");	1307	. "You can also hit the <b>Tab</b>-key to show/hide the Inventory.");
1208		1308
1209	$BUTTONBAR->add (new CFClient::UI::Button	1309	$BUTTONBAR->add (new CFClient::UI::Button
1210	text => "Save Config",	1310	text => "Save Config",
1211	tooltip => "Saves the options chosen in the client setting, server settings and the window layout to be restored on later runs.",	1311	tooltip => "Saves the options chosen in the client setting, server settings and the window layout to be restored on later runs.",
1212	on_activate => sub {	1312	on_activate => sub {
…		…
1216	},	1316	},
1217	);	1317	);
1218		1318
1219	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Help!", other => make_help_window,	1319	$BUTTONBAR->add (new CFClient::UI::Flopper text => "Help!", other => make_help_window,
1220	tooltip => "View Documentation");	1320	tooltip => "View Documentation");
1221
1222	$BUTTONBAR->add (new CFClient::UI::Flopper
1223	text => "Bindings",
1224	other => make_binding_window,
1225	tooltip =>
1226	"Lets you define, edit and delete bindings."
1227	."There is a shortcut for making bindings: LCTRL+Insert opens the binding editor "
1228	."with nothing set and the recording started. After doing the actions you "
1229	."want to record press Insert and you will be asked to press a key-combo."
1230	."After pressing the combo the binding will be saved automatically and the "
1231	."binding editor closes");
1232
1233	$BUTTONBAR->add (new CFClient::UI::Flopper
1234	text => "Spells",
1235	other => make_spell_list,
1236	tooltip => "The spell list");
1237		1321
1238	$BUTTONBAR->add (new CFClient::UI::Button	1322	$BUTTONBAR->add (new CFClient::UI::Button
1239	text => "Quit",	1323	text => "Quit",
1240	tooltip => "Terminates the program",	1324	tooltip => "Terminates the program",
1241	on_activate => sub {	1325	on_activate => sub {
…		…
1246	}	1330	}
1247	},	1331	},
1248	);	1332	);
1249		1333
1250	$BUTTONBAR->show;	1334	$BUTTONBAR->show;
1251	$SERVER_SETUP->show;	1335	$SETUP_DIALOG->show;
		1336	}
1252		1337
1253	$STATUSBOX->add ("Set video mode $WIDTH×$HEIGHT", timeout => 10, fg => [1, 1, 1, 0.5]);	1338	$STATUSBOX->add ("Set video mode $WIDTH×$HEIGHT", timeout => 10, fg => [1, 1, 1, 0.5]);
1254	}
1255	}	1339	}
1256		1340
1257	sub video_shutdown {	1341	sub video_shutdown {
1258	undef $SDL_ACTIVE;	1342	undef $SDL_ACTIVE;
1259	}	1343	}
…		…
1391	};	1475	};
1392		1476
1393	CFClient::SDL_GL_SwapBuffers;	1477	CFClient::SDL_GL_SwapBuffers;
1394	}	1478	}
1395		1479
1396	my $refresh_watcher = Event->timer (after => 0, hard => 1, interval => 1 / $MAX_FPS, cb => sub {	1480	my $refresh_watcher = Event->timer (after => 0, hard => 0, interval => 1 / $MAX_FPS, cb => sub {
1397	$NOW = time;	1481	$NOW = time;
1398		1482
1399	($SDL_CB{$_->{type}} \|\| sub { warn "unhandled event $_->{type}" })->($_)	1483	($SDL_CB{$_->{type}} \|\| sub { warn "unhandled event $_->{type}" })->($_)
1400	for CFClient::SDL_PollEvent;	1484	for CFClient::SDL_PollEvent;
1401		1485
…		…
1468	#############################################################################	1552	#############################################################################
1469		1553
1470	$SIG{INT} = $SIG{TERM} = sub { exit };	1554	$SIG{INT} = $SIG{TERM} = sub { exit };
1471		1555
1472	{	1556	{
1473	local $SIG{__DIE__} = sub { CFClient::fatal $_[0] if defined $^S && !$^S };	1557	local $SIG{__DIE__} = sub {
		1558	return unless defined $^S && !$^S;
		1559	Carp::confess $_[1];#d#TODO: remove when stable
		1560	CFClient::fatal $_[0];
		1561	};
1474		1562
1475	CFClient::read_cfg "$Crossfire::VARDIR/cfplusrc";	1563	CFClient::read_cfg "$Crossfire::VARDIR/cfplusrc";
1476	CFClient::UI::set_layout ($::CFG->{layout});	1564	CFClient::UI::set_layout ($::CFG->{layout});
1477		1565
1478	my %DEF_CFG = (	1566	my %DEF_CFG = (

Diff Legend

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

Comparing deliantra/Deliantra-Client/bin/cfplus (file contents): Revision 1.40 by root, Fri Jun 2 02:12:04 2006 UTC vs. Revision 1.55 by root, Mon Jun 5 03:33:09 2006 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/bin/cfplus (file contents):
Revision 1.40 by root, Fri Jun 2 02:12:04 2006 UTC vs.
Revision 1.55 by root, Mon Jun 5 03:33:09 2006 UTC