ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra-Client/bin/cfplus
(Generate patch)

Comparing deliantra/Deliantra-Client/bin/cfplus (file contents):
Revision 1.120 by root, Sun Oct 1 14:48:51 2006 UTC vs.
Revision 1.121 by root, Sun Oct 1 18:17:38 2006 UTC

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
56our $VERSION = '0.9';
57 55
58my $MAX_FPS = 60; 56my $MAX_FPS = 60;
59my $MIN_FPS = 5; # unused as of yet 57my $MIN_FPS = 5; # unused as of yet
60 58
61our $META_SERVER = "crossfire.real-time.com:13326"; 59our $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
418sub graphics_setup { 415sub 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
2099show_tip_of_the_day if $CFG->{show_tips}; 2096show_tip_of_the_day if $CFG->{show_tips};
2100 2097
2101use Data::Dumper; warn Dumper [CFPlus::win32_proxy_info()];#d#
2102
2103Event::loop; 2098Event::loop;
2104#CFPlus::SDL_Quit; 2099#CFPlus::SDL_Quit;
2105#CFPlus::_exit 0; 2100#CFPlus::_exit 0;
2106 2101
2107END { CFPlus::SDL_Quit } 2102END { CFPlus::SDL_Quit }

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines