… | |
… | |
84 | our $CONSOLE; |
84 | our $CONSOLE; |
85 | our $METASERVER; |
85 | our $METASERVER; |
86 | our $LOGIN_BUTTON; |
86 | our $LOGIN_BUTTON; |
87 | our $QUIT_DIALOG; |
87 | our $QUIT_DIALOG; |
88 | our $HOST_ENTRY; |
88 | our $HOST_ENTRY; |
|
|
89 | our $SERVER_INFO; |
89 | |
90 | |
90 | our $SETUP_DIALOG; |
91 | our $SETUP_DIALOG; |
91 | our $SETUP_NOTEBOOK; |
92 | our $SETUP_NOTEBOOK; |
92 | our $SETUP_SERVER; |
93 | our $SETUP_SERVER; |
93 | our $SETUP_KEYBOARD; |
94 | our $SETUP_KEYBOARD; |
… | |
… | |
362 | sub stop_game { |
363 | sub stop_game { |
363 | $LOGIN_BUTTON->set_text ("Login"); |
364 | $LOGIN_BUTTON->set_text ("Login"); |
364 | $SETUP_NOTEBOOK->set_current_page ($SETUP_SERVER); |
365 | $SETUP_NOTEBOOK->set_current_page ($SETUP_SERVER); |
365 | $SETUP_DIALOG->show; |
366 | $SETUP_DIALOG->show; |
366 | $INV_WINDOW->hide; |
367 | $INV_WINDOW->hide; |
|
|
368 | $SETUP_SPELLS->clear_spells; |
367 | |
369 | |
368 | return unless $CONN; |
370 | return unless $CONN; |
369 | |
371 | |
370 | status "connection closed"; |
372 | status "connection closed"; |
371 | |
373 | |
… | |
… | |
1076 | my ($self, $value) = @_; |
1078 | my ($self, $value) = @_; |
1077 | $CFG->{say_command} = $value; |
1079 | $CFG->{say_command} = $value; |
1078 | } |
1080 | } |
1079 | ); |
1081 | ); |
1080 | |
1082 | |
|
|
1083 | $vbox->add (new CFClient::UI::Label |
|
|
1084 | text => "Server Info", |
|
|
1085 | fontsize => 1.2, |
|
|
1086 | padding_y => 8, |
|
|
1087 | fg => [1, 1, 0, 1], |
|
|
1088 | ); |
|
|
1089 | |
|
|
1090 | $vbox->add ($SERVER_INFO = new CFClient::UI::Label ellipsise => 0); |
|
|
1091 | |
1081 | $vbox |
1092 | $vbox |
1082 | } |
1093 | } |
1083 | |
1094 | |
1084 | sub message_window { |
1095 | sub message_window { |
1085 | my $window = new CFClient::UI::FancyFrame |
1096 | my $window = new CFClient::UI::FancyFrame |
… | |
… | |
1342 | } |
1353 | } |
1343 | } |
1354 | } |
1344 | }; |
1355 | }; |
1345 | |
1356 | |
1346 | my $vb = new CFClient::UI::VBox; |
1357 | my $vb = new CFClient::UI::VBox; |
|
|
1358 | $vb->add (my $hb = new CFClient::UI::HBox); |
|
|
1359 | $hb->add (new CFClient::UI::Label text => "only shift-up stops fire"); |
|
|
1360 | $hb->add (new CFClient::UI::CheckBox |
|
|
1361 | expand => 1, |
|
|
1362 | state => $CFG->{shift_fire_stop}, |
|
|
1363 | tooltip => "If this checkbox is enabled you will stop fire only if you stop pressing shift", |
|
|
1364 | on_changed => sub { |
|
|
1365 | my ($cbox, $value) = @_; |
|
|
1366 | $CFG->{shift_fire_stop} = $value; |
|
|
1367 | }); |
|
|
1368 | |
1347 | $vb->add ($binding_list); |
1369 | $vb->add ($binding_list); |
1348 | $vb->add (my $hb = new CFClient::UI::HBox); |
1370 | $vb->add (my $hb = new CFClient::UI::HBox); |
1349 | |
1371 | |
1350 | $hb->add (new CFClient::UI::Button |
1372 | $hb->add (new CFClient::UI::Button |
1351 | text => "record new", |
1373 | text => "record new", |
… | |
… | |
1494 | name => "mapmap", |
1516 | name => "mapmap", |
1495 | x => 0, |
1517 | x => 0, |
1496 | y => $FONTSIZE + 8, |
1518 | y => $FONTSIZE + 8, |
1497 | border_bg => [1, 1, 1, 192/255], |
1519 | border_bg => [1, 1, 1, 192/255], |
1498 | bg => [1, 1, 1, 0], |
1520 | bg => [1, 1, 1, 0], |
|
|
1521 | no_close_button => 1, |
1499 | child => ($MAPMAP = new CFClient::MapWidget::MapMap |
1522 | child => ($MAPMAP = new CFClient::MapWidget::MapMap |
1500 | tooltip => "<b>Map</b>. On servers that support this feature, this will display an overview of the surrounding areas.", |
1523 | tooltip => "<b>Map</b>. On servers that support this feature, this will display an overview of the surrounding areas.", |
1501 | ), |
1524 | ), |
1502 | )->show; |
1525 | )->show; |
1503 | |
1526 | |
… | |
… | |
1912 | video_init; |
1935 | video_init; |
1913 | audio_init; |
1936 | audio_init; |
1914 | } |
1937 | } |
1915 | |
1938 | |
1916 | Event::loop; |
1939 | Event::loop; |
|
|
1940 | #CFClient::SDL_Quit; |
|
|
1941 | #CFClient::_exit 0; |
1917 | |
1942 | |
1918 | END { CFClient::SDL_Quit } |
1943 | END { CFClient::SDL_Quit } |
1919 | |
1944 | |
1920 | =head1 NAME |
1945 | =head1 NAME |
1921 | |
1946 | |