[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.107 by root, Thu Apr 8 03:51:26 2010 UTC

          Win32::GUI::SplashScreen::Done (1);
       };
    }
 }
-use strict;
+use common::sense;
-use utf8;
 use Carp 'verbose';
 # do things only needed for single-binary version (par)
 BEGIN {
    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   = [];
          user => $PROFILE->{user},
          pass => $PROFILE->{password},
          mapw => $mapw,
          maph => $maph,
+         client        => "deliantra",
-         client => "$DC::VERSION $] $^O",
+         clientversion => $DC::VERSION,
          map_widget => $MAPWIDGET,
          statusbox  => $STATUSBOX,
          map        => $MAP,
          mapmap     => $MAPMAP,
    ;
 }
 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
    $r
 }
 my %SORT_ORDER = (
    type   => sub {
+      use sort 'stable';
       sort { $a->{type} <=> $b->{type} or $a->{name} cmp $b->{name} } @_
    },
    mtime  => sub {
+      use sort 'stable';
-                my $NOW = time;
+      my $NOW = time;
-                sort {
+      sort {
-                   my $atime = $a->{mtime} - $NOW; $atime = $atime < 5 * 60 ? int $atime / 60 : 6;
+         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;
+         my $btime = $b->{mtime} - $NOW; $btime = $btime < 5 * 60 ? int $btime / 60 : 6;
-                   ($a->{flags} & F_LOCKED) <=> ($b->{flags} & F_LOCKED)
+         ($a->{flags} & F_LOCKED) <=> ($b->{flags} & F_LOCKED)
-                      or $btime <=> $atime
+            or $btime <=> $atime
-                      or $a->{type} <=> $b->{type}
+            or $a->{type} <=> $b->{type}
-                } @_
+      } @_
-             },
+   },
-   weight => sub { sort {
+   weight => sub {
+      use sort 'stable';
+      sort {
-                $a->{weight} * ($a->{nrof} || 1) <=> $b->{weight} * ($b->{nrof} || 1)
+         $a->{weight} * ($a->{nrof} || 1) <=> $b->{weight} * ($b->{nrof} || 1)
-                   or $a->{type} <=> $b->{type}
+            or $a->{type} <=> $b->{type}
-             } @_ },
+      } @_
+   },
 );
 sub inventory_widget {
    my $hb = new DC::UI::HBox homogeneous => 1;
    $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] =~ /^--?profile$/) {
+            $profile = $args[$i + 1];
+            splice @args, $i, 2, ();
+            $i = 0;
+         } elsif ($args[$i] =~ /^--?h/) {
+            print STDERR "Usage: $0 [--profile name] [host [user [password]]]\n";
+            exit 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;
 deliantra - A Deliantra MORPG game client
 =head1 SYNOPSIS
-Just run it - no commandline arguments are supported.
+   deliantra [--profile name] [host [user [password]]]
+   deliantra --help
 =head1 USAGE
-deliantra utilises OpenGL for all UI elements and the game. It is supposed to
+The deliantra client utilises OpenGL for all UI elements and the game. It
-be used in fullscreen mode and interactively.
+is supposed to be used in fullscreen mode and interactively.
 =head1 DEBUGGING
 CFPLUS_DEBUG - environment variable
    1   draw borders around widgets
    2   add low-level widget info to tooltips

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.107 by root, Thu Apr 8 03:51:26 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.107 by root, Thu Apr 8 03:51:26 2010 UTC