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

Comparing deliantra/Deliantra-Client/bin/deliantra (file contents):
Revision 1.111 by root, Mon Apr 12 02:46:55 2010 UTC vs.
Revision 1.118 by root, Mon Dec 26 03:58:12 2011 UTC

       use Coro;
       use Coro::EV;
       use Coro::Debug;
       our $debug = new_unix_server Coro::Debug "/tmp/dc";
    ';
+   die if $@;
 }
 # do splash-screen thingy on win32
 my $startup_done = sub { };
 BEGIN {
          $zip->extractMember ("SPLASH.bmp", "$ENV{PAR_TEMP}/SPLASH.bmp");
       }
       require Win32::GUI::SplashScreen;
-      # initialise the resolver now, as vista forces us back to the desktop
-      # when doing this.
-      use AnyEvent::DNS ();
-      AnyEvent::DNS::resolver;
       Win32::GUI::SplashScreen::Show (
          -file => "$ENV{PAR_TEMP}/SPLASH.bmp",
       );
+      # initialise the resolver now, as vista forces us back to the desktop
+      # when doing this later.
+      require AnyEvent::DNS;
+      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 {
    ]);
    my $text = !$freq
       ? "audio is off"
       : "audio is enabled\n"
+         . "driver: " . DC::SDL_AudioDriverName . "\n"
-      . "frequency (Hz): $freq\n"
+         . "frequency (Hz): $freq\n"
-      . "channels: $chans\n"
+         . "channels: $chans\n"
-      . "chunk decoders available: " . (join ", ", DC::MixChunk::decoders) . "\n"
+         . "chunk decoders available: " . (join ", ", DC::MixChunk::decoders) . "\n"
-      . "music decoders available: " . (join ", ", DC::MixMusic::decoders);
+         . "music decoders available: " . (join ", ", DC::MixMusic::decoders);
    $AUDIO_INFO->set_text ($text);
 }
 sub audio_setup {
    $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
       }
       para  => ["Paralysation",
          "<b>Paralysation</b> (this resistance affects the chance you get paralysed)"],
       deat  => ["Death",
          "<b>Death</b> (resistance against death spells)"],
       phys  => ["Physical",
-         "<b>Physical</b> (this is the resistance against physical attacks, like when a monster hit you in melee combat. The value displayed here is also displayed in the 'Arm' field on the left.)"],
+         "<b>Physical</b> (this is the resistance against physical attacks, like when a monster hit you in melee combat. The value displayed here is also displayed as the 'Arm' secondary stat.)"],
       blind => ["Blind",
          "<b>Blind</b> (blind resistance affects the chance of a successful blinding attack)"],
       fear  => ["Fear",
          "<b>Fear</b> (this attack will drive you away from monsters who cast this and hit you successfully, being resistant to this helps a lot when fighting those monsters)"],
       tund  => ["Turn undead",
          },
       );
       $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";
       {
 #      }
 #      my $t2 = Time::HiRes::time;
 #      warn $t2-$t1;
 #   }
+      DC::IMG_Init;
       video_init;
       audio_init;
    }
    show_tip_of_the_day if $CFG->{show_tips};

Diff Legend

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

Comparing deliantra/Deliantra-Client/bin/deliantra (file contents): Revision 1.111 by root, Mon Apr 12 02:46:55 2010 UTC vs. Revision 1.118 by root, Mon Dec 26 03:58:12 2011 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/bin/deliantra (file contents):
Revision 1.111 by root, Mon Apr 12 02:46:55 2010 UTC vs.
Revision 1.118 by root, Mon Dec 26 03:58:12 2011 UTC