--- deliantra/Deliantra-Client/DC/Main.pm	2012/01/07 20:07:12	1.14
+++ deliantra/Deliantra-Client/DC/Main.pm	2012/01/18 00:51:23	1.15
@@ -59,6 +59,7 @@
 }
 
 use DC::OpenGL ();
+use DC::Audio;
 use DC::Protocol;
 use DC::DB;
 use DC::UI;
@@ -475,25 +476,9 @@
 
 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},
-         $CFG->{audio_hw_chunksize};
+      DC::Audio::init $CFG->{audio_driver};
 
       if ($SDL_MIXER) {
-         DC::Mix_AllocateChannels $CFG->{audio_mix_channels};
-
          audio_music_finished;
       } else {
          status "Unable to open sound device: there will be no sound";
@@ -2990,56 +2975,12 @@
          DC::write_cfg;
       }
 
+      DC::upgrade_cfg;
+
       DC::DB::open_db;
 
       DC::UI::set_layout ($::CFG->{layout});
 
-      my %DEF_CFG = (
-         config_autosave     => 1,
-         sdl_mode            => undef,
-         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,
-         stat_fontsize       => 0.7,
-         mapsize             => 100,
-         audio_enable        => 1,
-         audio_hw_channels   => 0,
-         audio_hw_frequency  => 0,
-         audio_hw_chunksize  => 0,
-         audio_mix_channels  => 8,
-         effects_enable      => 1,
-         effects_volume      => 1,
-         bgm_enable          => 1,
-         bgm_volume          => 0.5,
-         output_rate         => "",
-         pickup              => PICKUP_SPELLBOOK | PICKUP_SKILLSCROLL | PICKUP_VALUABLES,
-         inv_sort            => "mtime",
-         default             => "profile", # default profile
-         show_tips           => 1,
-         logview_max_par     => 1000,
-         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};
-      }
-
       my @args = @ARGV;
 
       # OS X passes some process serial number of other shit. they