[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/bin/deliantra

Comparing deliantra/Deliantra-Client/bin/deliantra (file contents):
Revision 1.43 by root, Wed May 21 23:35:55 2008 UTC vs.
Revision 1.53 by root, Fri Jul 18 22:32:55 2008 UTC

 use List::Util qw(max min);
 use Deliantra;
 use Deliantra::Protocol::Constants;
+use AnyEvent::DNS;
+use AnyEvent::Socket ();
 use Compress::LZF;
+use DC;
-use DC; BEGIN { $SIG{__DIE__} = sub { DC::fatal Carp::longmess "$@" unless $^S } }
+BEGIN { $SIG{__DIE__} = sub { DC::fatal Carp::longmess "$_[0]" unless $^S } }
 use DC::OpenGL ();
 use DC::Protocol;
 use DC::DB;
 use DC::UI;
 use DC::UI::Canvas;
 our $PROFILE; # current profile
 our $FAST; # fast, low-quality mode, possibly useful for software-rendering
 our $WANT_REFRESH;
+our $MODE_SLIDER;
+our $CAVEAT_LABEL;
 our @SDL_MODES;
+our $SDL_REINIT = 1;
 our $WIDTH;
 our $HEIGHT;
 our $FULLSCREEN;
 our $FONTSIZE;
    $vbox->add (@dialog);
    $dialog->show;
 }
-sub start_game {
+sub dc_connect {
-   status "logging in...";
+   my ($host, $port) = @_;
-   $LOGIN_BUTTON->set_text ("Logout");
-   $SETUP_DIALOG->hide;
    my $mapsize = List::Util::min 32, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / 32;
-   my ($host, $port) = split /:/, $PROFILE->{host};
-   $MAP = new DC::Map;
-   $CONN = eval {
+   $CONN =
-      local $SIG{__DIE__};
       new DC::Protocol
          host => $host,
-         port => $port || 13327,
+         port => $port,
          user => $PROFILE->{user},
          pass => $PROFILE->{password},
          mapw => $mapsize,
          maph => $mapsize,
          query      => \&server_query,
          setup_req  => {
             smoothing => $CFG->{map_smoothing}*1,
          },
-   };
-   if ($CONN) {
+         on_connect => sub {
+            if ($_[0]) {
-      DC::lowdelay fileno $CONN->{fh};
+               DC::lowdelay fileno $CONN->{fh};
-      status "login successful";
+               status "login successful";
+            } else {
+               undef $CONN;
+               status "unable to connect: $!";
+               stop_game();
+            }
+         },
+   ;
+}
+sub start_game {
+   status "logging in...";
+   $LOGIN_BUTTON->set_text ("Logout");
+   $SETUP_DIALOG->hide;
+   my ($host, $port) = AnyEvent::Socket::parse_hostport $PROFILE->{host}, "deliantra=13327";
+   $MAP = new DC::Map;
+   # hack to make SURE we find the IP address all right
+   # can be removed once AnyEvent::DNS is proven stable.
+   if ($host eq "gameserver.deliantra.net") {
+      AnyEvent::DNS::a "dnstest.deliantra.net", sub {
+         if ($_[0] ne "80.101.114.108") { # Perl
+            status "dns failure, using hardcoded address";
+            $host = "129.13.162.95";
+         }
+         dc_connect $host, $port;
+      };
    } else {
-      warn $@;
+      dc_connect $host, $port;
-      status "unable to connect";
-      stop_game();
    }
 }
 sub stop_game {
    $LOGIN_BUTTON->set_text ("Login / Register");
    $table->add_at (0, $row, new DC::UI::Label align => 1, text => "OpenGL Info");
    $table->add_at (1, $row++, new DC::UI::Label fontsize => 0.8, text => DC::OpenGL::gl_vendor . ", " . DC::OpenGL::gl_version,
                                                  can_events => 1,
                                                  tooltip => "<tt><span size='8192'>" . (DC::OpenGL::gl_extensions) . "</span></tt>");
+   $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Caveats");
+   $table->add_at (1, $row++, $CAVEAT_LABEL = new DC::UI::Label fontsize => 0.8,
+      can_events => 1,
+      tooltip => "This field shows any known issues with your config or driver, such as "
+               . "a non-accelerated display format. You can try to work around these issues "
+               . "by selecting a different video mode, changing the settings below or "
+               . "by installing the right driver for your graphics card.");
    my $vidmode_tooltip =
       "<b>Video Mode.</b> The video mode to use for fullscreen (and the window size for windowed operation). "
     . "The format is <i>width</i> x <i>height</i> \@ <i>depth-per-channel</i> + <i>alpha-channel</i>.";
    $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Video Mode");
    $table->add_at (1, $row++, my $hbox = new DC::UI::HBox);
-   $hbox->add (my $mode_slider = new DC::UI::Slider
+   $hbox->add ($MODE_SLIDER = new DC::UI::Slider
-      force_w => $WIDTH * 0.1, expand => 1, range => [$CFG->{sdl_mode}, 0, $#SDL_MODES, 0, 1],
+      force_w => $WIDTH * 0.1, expand => 1,
       tooltip => $vidmode_tooltip);
    $hbox->add (my $mode_label = new DC::UI::Label
       height => 0.8, template => "9999x9999@9+9",
       can_events => 1, tooltip => $vidmode_tooltip);
-   $mode_slider->connect (changed => sub {
+   $MODE_SLIDER->connect (changed => sub {
       my ($self, $value) = @_;
       $CFG->{sdl_mode} = $self->{range}[0] = $value = int $value;
       $mode_label->set_text (sprintf '%dx%d@%d+%d', @{$SDL_MODES[$value]});
    });
-   $mode_slider->emit (changed => $mode_slider->{range}[0]);
+   $MODE_SLIDER->emit (changed => $MODE_SLIDER->{range}[0]);
    $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Fullscreen");
    $table->add_at (1, $row++, $FULLSCREEN_ENABLE = new DC::UI::CheckBox
       state => $CFG->{fullscreen},
       tooltip => "Bring the client into fullscreen mode.",
       state => $CFG->{force_opengl11},
       tooltip => "Limit Deliantra to use OpenGL 1.1 features only. This will normally result in "
                . "higher memory usage and slower performance. It will, however, help tremendously on "
                . "cards that claim to support a feature but fall back to software rendering. "
                . "Nvidia Geforce FX cards are known to claim features the hardware doesn't support, "
-               . "but cards and drivers from other vendors (ATI) are often just as bad. <b>If you "
+               . "but cards and drivers from other vendors (ATI) are often just as bad. "
-               . "experience extremely low framerates and your card should do better, try this option.</b>",
+               . "<b>If you experience extremely low framerates and your card should do better, try this option.</b>",
       on_changed => sub { my ($self, $value) = @_; $CFG->{force_opengl11} = $value; 0 }
+   );
+   $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Forbid Alpha");
+   $table->add_at (1, $row++, new DC::UI::CheckBox
+      state => $CFG->{disable_alpha},
+      tooltip => "Forbid off the use of the alpha channel. This makes Deliantra look a lot worse "
+               . "by disabling a number of textures and transparency effects. Normally, these "
+               . "effects do not cost a lot of resources, but some graphics cards might fall "
+               . "back to etxremely slow rendering if this is enabled. If disabling this option "
+               . "noticably improves the framerate of the client please report this! "
+               . "<b>If you experience extremely low framerates and your card should do better, try this option.</b>",
+      on_changed => sub {
+         my ($self, $value) = @_;
+         $CFG->{disable_alpha} = $value;
+         $SDL_REINIT = 1; # SDL_SetVideoMode ignores GL attr changes
+         0
+      }
    );
    $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Compress Textures");
    $table->add_at (1, $row++, new DC::UI::CheckBox
       state => $CFG->{texture_compression},
       $dialog->show;
    };
 }
 sub sdl_init {
-   DC::SDL_Init
+   DC::SDL_Init DC::SDL_INIT_AUDIO #| DC::SDL_NOPARACHUTE
       and die "SDL::Init failed!\n";
 }
 sub video_init {
+   DC::SDL_InitSubSystem DC::SDL_INIT_VIDEO if $SDL_REINIT;
+   $SDL_REINIT = 0;
+   @SDL_MODES = DC::SDL_ListModes 8, $CFG->{disable_alpha} ? 0 : 8;
+   @SDL_MODES = DC::SDL_ListModes 8, 8 unless @SDL_MODES;
+   @SDL_MODES = DC::SDL_ListModes 5, 0 unless @SDL_MODES;
+   @SDL_MODES or DC::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)";
+   @SDL_MODES = sort { $a->[0] * $a->[1] <=> $b->[0] * $b->[1] } @SDL_MODES;
-   $CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} >= @SDL_MODES;
+   if (!exists $CFG->{sdl_mode} or $CFG->{sdl_mode} >= @SDL_MODES) {
+      $CFG->{sdl_mode} = 0;
+      for (reverse 0 .. $#SDL_MODES) {
+         $CFG->{sdl_mode} = $_ if $SDL_MODES[$_][0] * $SDL_MODES[$_][1] >= 800 * 600;
+      }
+   }
    my ($old_w, $old_h) = ($WIDTH, $HEIGHT);
    ($WIDTH, $HEIGHT, my ($rgb, $alpha)) = @{ $SDL_MODES[$CFG->{sdl_mode}] };
    $FULLSCREEN = $CFG->{fullscreen};
       $BUTTONBAR->show;
       $SETUP_DIALOG->show;
       $MESSAGE_WINDOW->show;
    }
+   $MODE_SLIDER->set_range ([$CFG->{sdl_mode}, 0, $#SDL_MODES, 1, 1]);
+   $MODE_SLIDER->emit (changed => $CFG->{sdl_mode});
+   $CAVEAT_LABEL->set_text ("None :)");
+   $CAVEAT_LABEL->set_text ("Non-accelerated video mode")
+      unless DC::SDL_GL_GetAttribute DC::SDL_GL_ACCELERATED_VISUAL;
    $STATUSBOX->add ("Set video mode $WIDTH×$HEIGHT", timeout => 10, fg => [1, 1, 1, 0.5]);
 }
 sub video_shutdown {
    DC::OpenGL::shutdown;
+   DC::SDL_QuitSubSystem DC::SDL_INIT_VIDEO if $SDL_REINIT;
    undef $SDL_ACTIVE;
 }
 my %animate_object;
 #      printf "M\n" if $_[0]{state} & DC::SDL_APPMOUSEFOCUS;
    },
    DC::SDL_KEYDOWN => sub {
       if ($_[0]{mod} & DC::KMOD_ALT && $_[0]{sym} == 13) {
          # alt-enter
+         video_shutdown;
          $FULLSCREEN_ENABLE->toggle;
-         video_shutdown;
          video_init;
       } else {
          &DC::UI::feed_sdl_key_down_event;
       }
       update_modbox;
    my %DEF_CFG = (
       sdl_mode            => 0,
       fullscreen          => 1,
       fast                => 0,
       force_opengl11      => undef,
+      disable_alpha       => 0,
       texture_compression => 1,
       map_scale           => 1,
       fow_enable          => 1,
       fow_intensity       => 0,
       map_smoothing       => 1,
       }
    }
    sdl_init;
-   @SDL_MODES = DC::SDL_ListModes 8, 8;
-   @SDL_MODES = DC::SDL_ListModes 5, 0 unless @SDL_MODES;
-   @SDL_MODES or DC::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)";
-   @SDL_MODES = sort { $a->[0] * $a->[1] <=> $b->[0] * $b->[1] } @SDL_MODES;
-   $CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES;
    {
       my @fonts = map DC::find_rcfile "fonts/$_", qw(
          DejaVuSans.ttf
          DejaVuSansMono.ttf
          DejaVuSans-Bold.ttf

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing deliantra/Deliantra-Client/bin/deliantra (file contents): Revision 1.43 by root, Wed May 21 23:35:55 2008 UTC vs. Revision 1.53 by root, Fri Jul 18 22:32:55 2008 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/bin/deliantra (file contents):
Revision 1.43 by root, Wed May 21 23:35:55 2008 UTC vs.
Revision 1.53 by root, Fri Jul 18 22:32:55 2008 UTC