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

Comparing deliantra/Deliantra-Client/bin/deliantra (file contents):
Revision 1.100 by root, Tue Dec 22 01:37:42 2009 UTC vs.
Revision 1.108 by root, Thu Apr 8 04:49:32 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 {
    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   = [];
    @MUSIC_JINGLE = ();
    %AUDIO_PLAY   = ();
    %AUDIO_CHUNK  = ();
-   DC::MixMusic::halt;
-   DC::Mix_AllocateChannels 0;
    DC::Mix_CloseAudio if $SDL_MIXER;
    undef $SDL_MIXER;
 }
 #############################################################################
          user => $PROFILE->{user},
          pass => $PROFILE->{password},
          mapw => $mapw,
          maph => $maph,
+         version => {
+            client     => "deliantra",
-         client => "$DC::VERSION $] $^O",
+            clientver  => $DC::VERSION,
+            gl_vendor  => DC::OpenGL::gl_vendor,
+            gl_version => DC::OpenGL::gl_version,
+         },
          map_widget => $MAPWIDGET,
          statusbox  => $STATUSBOX,
          map        => $MAP,
          mapmap     => $MAPMAP,
    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;
          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.100 by root, Tue Dec 22 01:37:42 2009 UTC vs. Revision 1.108 by root, Thu Apr 8 04:49:32 2010 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/bin/deliantra (file contents):
Revision 1.100 by root, Tue Dec 22 01:37:42 2009 UTC vs.
Revision 1.108 by root, Thu Apr 8 04:49:32 2010 UTC