--- deliantra/server/ext/player-env.ext	2007/07/23 16:53:15	1.8
+++ deliantra/server/ext/player-env.ext	2007/07/31 00:56:58	1.12
@@ -25,7 +25,7 @@
       for (keys %MUSIC_QUEUE) {
          delete $MUSIC_QUEUE{$_};
 
-         cf::get_slot 0.01, -10;
+         cf::get_slot 0.01, -10, "music scheduler";
 
          my $pl = cf::player::find_active $_ or next;
          $pl->ob->active or next;
@@ -70,15 +70,12 @@
 
          $ns->{current_music_faces} = $facestr;
 
-         my $msg = {
-            play => $faces,
-         };
-
          my $pri = 0;
-         push @{$msg->{faces}}, [$_, $pri++, cf::face::get_chksum $_]
-            for grep $ns->must_send_face ($_), @$faces;
+         $ns->send_face ($_, --$pri - 110)
+            for @$faces;
+         $ns->flush_fx;
 
-         $ns->ext_event (music => %$msg);
+         $ns->ext_msg (music => { ambient => $faces });
       }
       Coro::schedule unless %MUSIC_QUEUE;
    }