--- deliantra/server/lib/cf.pm	2007/07/28 14:32:22	1.325
+++ deliantra/server/lib/cf.pm	2007/07/31 17:33:15	1.326
@@ -2911,12 +2911,14 @@
                or next;
 
             my $face = cf::face::find "sound/$sound->[1]";
-
             cf::sound::set $sound->[0] => $face;
             cf::sound::old_sound_index $_, $face; # gcfclient-compat
          }
 
-         #TODO
+         while (my ($k, $v) = each %{$soundconf->{event}}) {
+            my $face = cf::face::find "sound/$v";
+            cf::sound::set $k => $face;
+         }
       }
    }