--- deliantra/server/plugins/cfperl/cfperl.xs	2006/05/06 13:27:52	1.50
+++ deliantra/server/plugins/cfperl/cfperl.xs	2006/05/09 17:48:28	1.52
@@ -1492,11 +1492,6 @@
 
 void cf_object_pickup (object *op, object *what)
 
-char *cf_object_get_key (object *op, char *keyname)
-	ALIAS: key = 0
-
-void cf_object_set_key (object *op, char *keyname, char *value)
-
 object *cf_create_object_by_name (const char *name)
 
 void change_exp (object *op, double exp, const char *skill_name = 0, int flag = 0)
@@ -1640,6 +1635,15 @@
         RETVAL = pl->next;
         OUTPUT: RETVAL
 
+int
+listening (player *pl, int new_value = -1)
+	CODE:
+        RETVAL = pl->listening;
+        if (new_value >= 0)
+          pl->listening = new_value;
+	OUTPUT:
+        RETVAL
+
 void get_savebed (player *pl)
 	ALIAS:
            savebed = 0