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

Comparing deliantra/Deliantra-Client/bin/deliantra (file contents):
Revision 1.38 by root, Mon May 5 16:26:11 2008 UTC vs.
Revision 1.57 by root, Wed Jul 23 03:38:34 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 =
       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,
+      range => [ ($CFG->{sdl_mode}) x 3 ],
       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},
       on_activate => sub {
          video_shutdown ();
          video_init ();
          0
       }
+   );
+   $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Smooth Movement");
+   $table->add_at (1, $row++, new DC::UI::CheckBox
+      state => $CFG->{smooth_movement},
+      tooltip => "<b>Smooth Movement</b> tries to make movement, well, smoother, but also increases the framerate. "
+               . "If you have a very slow system, non-accelerated drivers or plain dislike smooth scrolling, "
+               . "then disable this option. Changes take effect immdiately.",
+      on_changed => sub { my ($self, $value) = @_; $CFG->{smooth_movement} = $value; 0 }
    );
    $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Map Scale");
    $table->add_at (1, $row++, new DC::UI::Slider
       range      => [(log $CFG->{map_scale}) / (log 2), -3, 1, 0, 1],
    $r
 }
 my %SORT_ORDER = (
-   type   => undef,
+   type   => sub {
+      sort { $a->{type} <=> $b->{type} or $a->{name} cmp $b->{name} } @_
+   },
    mtime  => sub {
                 my $NOW = time;
                 sort {
                    my $atime = $a->{mtime} - $NOW; $atime = $atime < 5 * 60 ? int $atime / 60 : 6;
                    my $btime = $b->{mtime} - $NOW; $btime = $btime < 5 * 60 ? int $btime / 60 : 6;
       $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};
          force_h => $::HEIGHT * 0.6,
          has_close_button => 1,
       ;
       $METASERVER = metaserver_dialog;
+      # the name is changed to not conflict with the older name as users could have hidden it
-      $MESSAGE_WINDOW = new DC::UI::Dockbar (title => 'Messages');
+      $MESSAGE_WINDOW = new DC::UI::Dockbar
+         name    => "message_window2",
+         title   => 'Messages',
+         force_w => $::WIDTH  * 0.6,
+         force_h => $::HEIGHT * 0.25,
+      ;
       $MESSAGE_DIST   = new DC::MessageDistributor dockbar => $MESSAGE_WINDOW;
       $SETUP_DIALOG->add ($SETUP_NOTEBOOK = new DC::UI::Notebook expand => 1,
          filter => new DC::UI::ScrolledWindow expand => 1, scroll_y => 1);
       $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 ("Software Rendering (very slow)")
+      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,
+      smooth_movement     => 1,
       texture_compression => 1,
       map_scale           => 1,
       fow_enable          => 1,
       fow_intensity       => 0,
       map_smoothing       => 1,
       pickup              => 0,
       inv_sort            => "mtime",
       default             => "profile", # default profile
       show_tips           => 1,
       logview_max_par     => 1000,
+      shift_fire_stop     => 0,
    );
    while (my ($k, $v) = each %DEF_CFG) {
       $CFG->{$k} = $v unless exists $CFG->{$k};
    }
          }
       }
    }
    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
    4   show fps
    8   suppress tooltips
 =head1 AUTHOR
-Marc Lehmann <crossfire@schmorp.de>, Robin Redeker <elmex@ta-sa.org>
+Marc Lehmann <deliantra@schmorp.de>, Robin Redeker <elmex@ta-sa.org>

Diff Legend

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

Comparing deliantra/Deliantra-Client/bin/deliantra (file contents): Revision 1.38 by root, Mon May 5 16:26:11 2008 UTC vs. Revision 1.57 by root, Wed Jul 23 03:38:34 2008 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/bin/deliantra (file contents):
Revision 1.38 by root, Mon May 5 16:26:11 2008 UTC vs.
Revision 1.57 by root, Wed Jul 23 03:38:34 2008 UTC