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

Comparing deliantra/Deliantra-Client/bin/deliantra (file contents):
Revision 1.113 by root, Thu Apr 22 11:26:51 2010 UTC vs.
Revision 1.115 by root, Sat Apr 24 09:53:09 2010 UTC

          -file => "$ENV{PAR_TEMP}/SPLASH.bmp",
       );
       # initialise the resolver now, as vista forces us back to the desktop
       # when doing this later.
-      use AnyEvent::DNS ();
+      require AnyEvent::DNS;
-      AnyEvent::DNS::resolver;
+      AnyEvent::DNS::resolver ();
       $startup_done = sub {
          Win32::GUI::SplashScreen::Done (1);
       };
    }
    audio_music_push;
 }
 sub audio_init {
    if ($CFG->{audio_enable}) {
+      if (length $CFG->{audio_driver}) {
+         local $ENV{SDL_AUDIODRIVER} = $CFG->{audio_driver};
+         DC::SDL_Init DC::SDL_INIT_AUDIO
+            and die "SDL::Init failed!\n";
+      } else {
+         DC::SDL_Init DC::SDL_INIT_AUDIO
+            and die "SDL::Init failed!\n";
+      }
       $ENV{MIX_EFFECTSMAXSPEED} = 1;
       $SDL_MIXER = !DC::Mix_OpenAudio
          $CFG->{audio_hw_frequency},
          DC::MIX_DEFAULT_FORMAT,
          $CFG->{audio_hw_channels},
    %AUDIO_PLAY   = ();
    %AUDIO_CHUNK  = ();
    DC::Mix_CloseAudio if $SDL_MIXER;
    undef $SDL_MIXER;
+   DC::SDL_QuitSubSystem DC::SDL_INIT_AUDIO;
 }
 #############################################################################
 sub destroy_query_dialog {
    $vbox->add (my $table = new DC::UI::Table expand => 1, col_expand => [0, 0, 1]);
    my $row = 0;
    $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Audio Enable");
-   $table->add_at (1, $row++, new DC::UI::CheckBox
+   $table->add_at (1, $row, new DC::UI::CheckBox
       state => $CFG->{audio_enable},
       tooltip => "<b>Master Audio Enable.</b> If enabled, sound effects and music will be played. If disabled, no audio will be used and the soundcard will not be opened.",
       on_changed => sub { $CFG->{audio_enable} = $_[1]; 1 }
+   );
+   $table->add_at (2, $row++, my $driver = new DC::UI::HBox expand => 1);
+   $driver->add (new DC::UI::Label align => 1, text => "     Audio driver override");
+   $driver->add (new DC::UI::Entry
+      text => $CFG->{audio_driver},
+      template => "dsound1234",
+      tooltip => "You can override the audio driver to use here. Leaving it empty will result "
+               . "in Deliantra picking one automatically. GNU/Linux users often prefer specific "
+               . "drivers though, and can experiment with <b>alsa</b>, <b>dsp</b>, <b>esd</b>, <b>pulse</b>, <b>arts</b>, <b>nas</b> "
+               . "or other system-specific drivers. Selecting the wrong driver here will simply result"
+               . "in no sound.",
+      on_changed => sub { my ($self, $value) = @_; $CFG->{audio_driver} = $value; 1 }
    );
    $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Sound Effects");
    $table->add_at (1, $row, new DC::UI::CheckBox
       expand => 1, state => $CFG->{effects_enable},
       c_colspan => 2, expand => 1,
       value => $CFG->{audio_hw_frequency},
       options => [
          [    0, "default" , "Use System Default"],
          [11025, "11 kHz"  , "11kHz (low quality)"],
-         [22050, "22 kHz"  , "22kHz (reduced quality)"],
+         [22050, "22 kHz"  , "22kHz (reduced quality, recommended)"],
          [44100, "44.1 kHz", "44.1kHz (cd quality)"],
-         [48000, "48 kHz"  , "48kHz (studio quality)"],
+         [48000, "48 kHz"  , "48kHz (studio quality, not recommended)"],
       ],
       tooltip => "The sampling frequency to use. Higher sounds better, but also more cpu-intensive and might cause stuttering.",
       on_changed => sub {
          $CFG->{audio_hw_frequency} = $_[1];
          audio_tab_update;
    $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Latency");
    $table->add_at (1, $row++, $AUDIO_HW_CHUNKSIZE = new DC::UI::Selector
       c_colspan => 2, expand => 1,
       value => $CFG->{audio_hw_chunksize},
       tooltip => "The guarenteed latency. Lower is better, but also more cpu-intensive and might cause stuttering. If music playback "
-                 . "is stuttering, increase this value. Values of 50-100ms are optimal.",
+                 . "is stuttering, increase this value. Values of 50-150ms are optimal.",
       on_changed => sub {
          $CFG->{audio_hw_chunksize} = $_[1];
          audio_tab_update;
          1
       }
          },
       );
       $dialog->show;
    };
-}
-sub sdl_init {
-   DC::SDL_Init DC::SDL_INIT_AUDIO #| DC::SDL_NOPARACHUTE
-      and die "SDL::Init failed!\n";
 }
 sub video_init {
    DC::set_theme $CFG->{uitheme};
          $CFG->{$k} = $v unless exists $CFG->{$k};
       }
       my @args = @ARGV;
+      # OS X passes some process serial number of other shit. they
+      # could have used an env var or any other sane mechanism. but
+      # would it be os x then? no...
+      shift @args if $args[0] =~ /^-psn_/;
       my $profile = 'default';
       for (my $i = 0; $i < @args; $i++) {
          if ($args[$i] =~ /^--?profile$/) {
             $profile = $args[$i + 1];
                   action   => $cmds,
                };
             }
          }
       }
-      sdl_init;
       $ENV{FONTCONFIG_FILE} = DC::find_rcfile "fonts/fonts.conf";
       $ENV{FONTCONFIG_DIR} = DC::find_rcfile "fonts";
       {

Diff Legend

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

Comparing deliantra/Deliantra-Client/bin/deliantra (file contents): Revision 1.113 by root, Thu Apr 22 11:26:51 2010 UTC vs. Revision 1.115 by root, Sat Apr 24 09:53:09 2010 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/bin/deliantra (file contents):
Revision 1.113 by root, Thu Apr 22 11:26:51 2010 UTC vs.
Revision 1.115 by root, Sat Apr 24 09:53:09 2010 UTC