… | |
… | |
363 | sub stop_game { |
363 | sub stop_game { |
364 | $LOGIN_BUTTON->set_text ("Login"); |
364 | $LOGIN_BUTTON->set_text ("Login"); |
365 | $SETUP_NOTEBOOK->set_current_page ($SETUP_SERVER); |
365 | $SETUP_NOTEBOOK->set_current_page ($SETUP_SERVER); |
366 | $SETUP_DIALOG->show; |
366 | $SETUP_DIALOG->show; |
367 | $INV_WINDOW->hide; |
367 | $INV_WINDOW->hide; |
|
|
368 | $SETUP_SPELLS->clear_spells; |
368 | |
369 | |
369 | return unless $CONN; |
370 | return unless $CONN; |
370 | |
371 | |
371 | status "connection closed"; |
372 | status "connection closed"; |
372 | |
373 | |
… | |
… | |
1922 | video_init; |
1923 | video_init; |
1923 | audio_init; |
1924 | audio_init; |
1924 | } |
1925 | } |
1925 | |
1926 | |
1926 | Event::loop; |
1927 | Event::loop; |
|
|
1928 | #CFClient::SDL_Quit; |
|
|
1929 | #CFClient::_exit 0; |
1927 | |
1930 | |
1928 | END { CFClient::SDL_Quit } |
1931 | END { CFClient::SDL_Quit } |
1929 | |
1932 | |
1930 | =head1 NAME |
1933 | =head1 NAME |
1931 | |
1934 | |