… | |
… | |
50 | # TODO: display dialog box or so |
50 | # TODO: display dialog box or so |
51 | Carp::cluck $_[1];#d#TODO: remove when stable |
51 | Carp::cluck $_[1];#d#TODO: remove when stable |
52 | return;#d# |
52 | return;#d# |
53 | CFPlus::fatal ($_[1]); |
53 | CFPlus::fatal ($_[1]); |
54 | }; |
54 | }; |
55 | |
|
|
56 | our $VERSION = '0.9'; |
|
|
57 | |
55 | |
58 | my $MAX_FPS = 60; |
56 | my $MAX_FPS = 60; |
59 | my $MIN_FPS = 5; # unused as of yet |
57 | my $MIN_FPS = 5; # unused as of yet |
60 | |
58 | |
61 | our $META_SERVER = "crossfire.real-time.com:13326"; |
59 | our $META_SERVER = "crossfire.real-time.com:13326"; |
… | |
… | |
362 | user => $PROFILE->{user}, |
360 | user => $PROFILE->{user}, |
363 | pass => $PROFILE->{password}, |
361 | pass => $PROFILE->{password}, |
364 | mapw => $mapsize, |
362 | mapw => $mapsize, |
365 | maph => $mapsize, |
363 | maph => $mapsize, |
366 | |
364 | |
367 | client => "cfplus $VERSION $] $^O", |
365 | client => "cfplus $CFPlus::VERSION $] $^O", |
368 | |
366 | |
369 | map_widget => $MAPWIDGET, |
367 | map_widget => $MAPWIDGET, |
370 | logview => $LOGVIEW, |
368 | logview => $LOGVIEW, |
371 | statusbox => $STATUSBOX, |
369 | statusbox => $STATUSBOX, |
372 | map => $MAP, |
370 | map => $MAP, |
… | |
… | |
410 | destroy_query_dialog $CONN; |
408 | destroy_query_dialog $CONN; |
411 | $CONN->destroy; |
409 | $CONN->destroy; |
412 | $CONN = 0; # false, does not autovivify |
410 | $CONN = 0; # false, does not autovivify |
413 | |
411 | |
414 | undef $MAP; |
412 | undef $MAP; |
415 | undef $PROFILE; |
|
|
416 | } |
413 | } |
417 | |
414 | |
418 | sub graphics_setup { |
415 | sub graphics_setup { |
419 | my $vbox = new CFPlus::UI::VBox; |
416 | my $vbox = new CFPlus::UI::VBox; |
420 | |
417 | |
… | |
… | |
1058 | $table->add (1, 13, my $saycmd = new CFPlus::UI::CheckBox |
1055 | $table->add (1, 13, my $saycmd = new CFPlus::UI::CheckBox |
1059 | state => $CFG->{show_tips}, |
1056 | state => $CFG->{show_tips}, |
1060 | tooltip => "Show the <b>Tip of the day</b> window at startup?", |
1057 | tooltip => "Show the <b>Tip of the day</b> window at startup?", |
1061 | on_changed => sub { |
1058 | on_changed => sub { |
1062 | my ($self, $value) = @_; |
1059 | my ($self, $value) = @_; |
1063 | $CFG->{shop_tips} = $value; |
1060 | $CFG->{show_tips} = $value; |
1064 | 0 |
1061 | 0 |
1065 | } |
1062 | } |
1066 | ); |
1063 | ); |
1067 | |
1064 | |
1068 | $vbox->add (new CFPlus::UI::FancyFrame |
1065 | $vbox->add (new CFPlus::UI::FancyFrame |
… | |
… | |
2096 | audio_init; |
2093 | audio_init; |
2097 | } |
2094 | } |
2098 | |
2095 | |
2099 | show_tip_of_the_day if $CFG->{show_tips}; |
2096 | show_tip_of_the_day if $CFG->{show_tips}; |
2100 | |
2097 | |
2101 | use Data::Dumper; warn Dumper [CFPlus::win32_proxy_info()];#d# |
|
|
2102 | |
|
|
2103 | Event::loop; |
2098 | Event::loop; |
2104 | #CFPlus::SDL_Quit; |
2099 | #CFPlus::SDL_Quit; |
2105 | #CFPlus::_exit 0; |
2100 | #CFPlus::_exit 0; |
2106 | |
2101 | |
2107 | END { CFPlus::SDL_Quit } |
2102 | END { CFPlus::SDL_Quit } |