--- deliantra/server/plugins/cfperl/cfperl.xs	2006/05/06 13:27:52	1.50
+++ deliantra/server/plugins/cfperl/cfperl.xs	2006/05/07 19:24:27	1.51
@@ -1640,6 +1640,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