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

Comparing deliantra/Deliantra-Client/bin/deliantra (file contents):
Revision 1.94 by root, Sun Mar 29 22:28:13 2009 UTC vs.
Revision 1.103 by elmex, Sat Mar 20 01:01:16 2010 UTC

    crash "CRASH/EV::DIED: $@" => 0;
    DC::fatal Carp::longmess $@;
 };
 my $MAX_FPS = 60;
+our $DEFAULT_SERVER = "gameserver.deliantra.net";
 our $META_SERVER = "http://metaserver.schmorp.de/current.json";
 our $LAST_REFRESH;
 our $NOW;
    sub audio_tab_update;
    audio_tab_update;
 }
 sub audio_shutdown {
+   if ($SDL_MIXER) {
+      DC::MixMusic::halt;
+      DC::Mix_AllocateChannels 0;
+   }
    undef $MUSIC_PLAYER;
    undef $MUSIC_PLAYING_META;
    undef $MUSIC_PLAYING_DATA;
    $MUSIC_WANT   = [];
    ;
 }
 sub start_game {
    status "logging in...";
+   my $server = $PROFILE->{host} || $DEFAULT_SERVER;
+   my ($host, $port) = AnyEvent::Socket::parse_hostport $server, "deliantra=13327"
+      or return status "$server: unable to parse server address, try an empty field.";
    $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, trying differently";
+            $host = eval { Socket::inet_ntoa Socket::inet_aton "gameserver.deliantra.net" };
+            unless (defined $host) {
-            status "dns failure, using hardcoded address";
+               status "dns failure, using hardcoded address";
-            $host = "129.13.162.95";
+               $host = "129.13.162.95";
+            }
          }
          dc_connect $host, $port;
       };
    } else {
                   . "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 => "Smooth Transitions");
+      $table->add_at (1, $row++, new DC::UI::CheckBox
+         state => $CFG->{smooth_transitions},
+         tooltip => "<b>Smooth Transitions</b> tries to blend the fog of war and lighting smoothly between updates. "
+                  . "If you have a very slow system, non-accelerated drivers or plain dislike smooth scrolling, "
+                  . "then disable this option. Requires Smooth Movement and OpenGL Multitexturing. Changes take effect immdiately.",
+         on_changed => sub { my ($self, $value) = @_; $CFG->{smooth_transitions} = $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],
          tooltip    => "Enlarge or shrink the displayed map. Changes are instant.",
          on_changed => sub { my ($self, $value) = @_; $CFG->{map_scale} = 2 ** $value; 0 }
       $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Fog of War");
       $table->add_at (1, $row++, new DC::UI::CheckBox
          state => $CFG->{fow_enable},
          tooltip => "<b>Fog-of-War</b> marks areas that cannot be seen by the player. Changes are instant.",
          on_changed => sub { my ($self, $value) = @_; $CFG->{fow_enable} = $value; 0 }
+      );
+      $table->add_at (0, $row, new DC::UI::Label align => 1, text => "FoW Pattern");
+      $table->add_at (1, $row++, new DC::UI::ImageButton
+         tex => $DC::MapWidget::TEX_HIDDEN[$CFG->{fow_texture}],
+         bg  => [0.3, 0.3, 0.2],
+         force_w => 64,
+         force_h => 64,
+         tooltip => "<b>Fog of War Pattern.</b> The pattern that is overlaid over areas hidden from view. Click to cycle through various alternatives. Changes are instant.",
+         on_activate => sub {
+            my ($self) = @_;
+            $CFG->{fow_texture} = ($CFG->{fow_texture} + 1) % @DC::MapWidget::TEX_HIDDEN;
+            $self->set_texture ($DC::MapWidget::TEX_HIDDEN[$CFG->{fow_texture}]);
+            $MAPWIDGET->update;
+         }
       );
       $table->add_at (0, $row, new DC::UI::Label align => 1, text => "FoW Intensity");
       $table->add_at (1, $row++, new DC::UI::Slider
          range => [$CFG->{fow_intensity}, 0, 1, 0, 1 / 256],
    my $text = !$freq
       ? "audio is off"
       : "audio is enabled\n"
       . "frequency (Hz): $freq\n"
-      . "channels: $chans";
+      . "channels: $chans\n"
+      . "chunk decoders available: " . (join ", ", DC::MixChunk::decoders) . "\n"
+      . "music decoders available: " . (join ", ", DC::MixMusic::decoders);
    $AUDIO_INFO->set_text ($text);
 }
 sub audio_setup {
       child => (my $table = new DC::UI::Table expand => 1, col_expand => [0, 1]),
    );
    $table->add_at (0, 4, new DC::UI::Label align => 1, text => "Username");
    $table->add_at (1, 4, new DC::UI::Entry
-      text => $CFG->{profile}{default}{user},
+      text => $PROFILE->{user},
       tooltip => "The name of your character on the server. The name is case-sensitive!",
-      on_changed => sub { my ($self, $value) = @_; $CFG->{profile}{default}{user} = $value; 1 }
+      on_changed => sub { my ($self, $value) = @_; $PROFILE->{user} = $value; 1 }
    );
    $table->add_at (0, 5, new DC::UI::Label align => 1, text => "Password");
    $table->add_at (1, 5, new DC::UI::Entry
-      text => $CFG->{profile}{default}{password},
+      text => $PROFILE->{password},
       hidden => 1,
       tooltip => "The password for your character.",
-      on_changed => sub { my ($self, $value) = @_; $CFG->{profile}{default}{password} = $value; 1 }
+      on_changed => sub { my ($self, $value) = @_; $PROFILE->{password} = $value; 1 }
    );
    $table->add_at (1, 11, $LOGIN_BUTTON = new DC::UI::Button
       expand => 1,
       text => "Login / Register",
       $table->add_at (1, $row, my $vbox = new DC::UI::VBox);
       $vbox->add (
          $HOST_ENTRY = new DC::UI::Entry
             expand => 1,
-            text => $CFG->{profile}{default}{host},
+            text => $PROFILE->{host},
             tooltip => "The hostname or ip address of the Deliantra server to connect to (e.g. <b>gameserver.deliantra.net</b>)",
             on_changed => sub {
                my ($self, $value) = @_;
-               $CFG->{profile}{default}{host} = $value;
+               $PROFILE->{host} = $value;
                1
             }
       );
       if (0) { #d# disabled
    $MODE_SLIDER->set_range ([$CFG->{sdl_mode}, 0, scalar @SDL_MODES, 1, 1]);
    $MODE_SLIDER->emit (changed => $CFG->{sdl_mode});
    $CAVEAT_LABEL->set_text ("None :)");
+   $CAVEAT_LABEL->set_text ("Apple/NVIDIA Texture bug (slow)")
+      if $DC::OpenGL::APPLE_NVIDIA_BUG;
    $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]);
 }
          fullscreen          => 1,
          fast                => 0,
          force_opengl11      => undef,
          disable_alpha       => 0,
          smooth_movement     => 1,
+         smooth_transitions  => 1,
          texture_compression => 1,
          map_scale           => 1,
          fow_enable          => 1,
          fow_intensity       => 0,
+         fow_texture         => 0,
          map_smoothing       => 1,
          gui_fontsize        => 1,
          log_fontsize        => 0.7,
          gauge_fontsize      => 1,
          gauge_size          => 0.35,
          shift_fire_stop     => 0,
          uitheme             => "wood",
          map_shift_x         => -24, # arbitrary
          map_shift_y         => +24, # arbitrary
       );
       while (my ($k, $v) = each %DEF_CFG) {
          $CFG->{$k} = $v unless exists $CFG->{$k};
       }
-      $CFG->{profile}{default}{host} ||= "gameserver.deliantra.net";
+      my @args = @ARGV;
+      my $profile = 'default';
+      for (my $i = 0; $i < @args; $i++) {
+         if ($args[$i] eq '-profile') {
+            $profile = $args[$i + 1];
+            splice @args, $i, 2, ();
+            $i = 0;
+         }
+      }
+      $CFG->{profile}{$profile} ||= {};
-      $PROFILE = $CFG->{profile}{default};
+      $PROFILE = $CFG->{profile}{$profile};
+      $PROFILE->{host} ||= "gameserver.deliantra.net";
+      $PROFILE->{host}     = $args[0] if @args > 0;
+      $PROFILE->{user}     = $args[1] if @args > 1;
+      $PROFILE->{password} = $args[2] if @args > 2;
       # convert old bindings (only default profile matters)
       if (my $bindings = delete $PROFILE->{bindings}) {
          while (my ($mod, $syms) = each %$bindings) {
             while (my ($sym, $cmds) = each %$syms) {
             DejaVuSansMono-BoldOblique.ttf
             mona.ttf
          );
          DC::add_font $_ for @fonts;
          $FONT_PROP  = new_from_file DC::Font $fonts[0];
          $FONT_FIXED = new_from_file DC::Font $fonts[1];
          $FONT_PROP->make_default;

Diff Legend

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

Comparing deliantra/Deliantra-Client/bin/deliantra (file contents): Revision 1.94 by root, Sun Mar 29 22:28:13 2009 UTC vs. Revision 1.103 by elmex, Sat Mar 20 01:01:16 2010 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/bin/deliantra (file contents):
Revision 1.94 by root, Sun Mar 29 22:28:13 2009 UTC vs.
Revision 1.103 by elmex, Sat Mar 20 01:01:16 2010 UTC