--- deliantra/server/server/cfperl.xs	2007/07/24 04:55:34	1.238
+++ deliantra/server/server/cfperl.xs	2007/07/26 00:27:09	1.239
@@ -1679,14 +1679,6 @@
 octet_string path_combine_and_normalize (octet_string base, octet_string path)
 	PROTOTYPE: $$
 
-const_octet_string
-get_maps_directory (octet_string path)
-	PROTOTYPE: $
-	ALIAS: maps_directory = 0
-        CODE:
-        RETVAL = create_pathname (path);
-        OUTPUT: RETVAL
-
 void
 sub_generation_inc ()
 	CODE:
@@ -2154,8 +2146,6 @@
 
 void cf_player_move (player *pl, int dir)
 
-void play_sound_player_only (player *pl, int soundnum, int x = 0, int y = 0);
-
 bool
 cell_visible (player *pl, int dx, int dy)
 	CODE:
@@ -2344,8 +2334,6 @@
         op->destroy ();
 }
 
-void play_sound_map (maptile *map, int x, int y, int sound_num)
-
 int out_of_map (maptile *map, int x, int y)
 
 void
@@ -2652,6 +2640,10 @@
 	OUTPUT:
         RETVAL
 
+MODULE = cf        PACKAGE = cf::sound	PREFIX = sound_
+
+faceidx sound_find (utf8_string name)
+
 MODULE = cf        PACKAGE = cf::face	PREFIX = face_
 
 #INCLUDE: $PERL $srcdir/genacc faceset ../include/face.h |