… | |
… | |
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 | |
… | |
… | |
1075 | on_changed => sub { |
1077 | on_changed => sub { |
1076 | my ($self, $value) = @_; |
1078 | my ($self, $value) = @_; |
1077 | $CFG->{say_command} = $value; |
1079 | $CFG->{say_command} = $value; |
1078 | } |
1080 | } |
1079 | ); |
1081 | ); |
|
|
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); |
1080 | |
1091 | |
1081 | $vbox |
1092 | $vbox |
1082 | } |
1093 | } |
1083 | |
1094 | |
1084 | sub message_window { |
1095 | sub message_window { |
… | |
… | |
1912 | video_init; |
1923 | video_init; |
1913 | audio_init; |
1924 | audio_init; |
1914 | } |
1925 | } |
1915 | |
1926 | |
1916 | Event::loop; |
1927 | Event::loop; |
|
|
1928 | #CFClient::SDL_Quit; |
|
|
1929 | #CFClient::_exit 0; |
1917 | |
1930 | |
1918 | END { CFClient::SDL_Quit } |
1931 | END { CFClient::SDL_Quit } |
1919 | |
1932 | |
1920 | =head1 NAME |
1933 | =head1 NAME |
1921 | |
1934 | |