--- deliantra/server/plugins/cfperl/cfperl.xs	2006/04/02 15:57:54	1.47
+++ deliantra/server/plugins/cfperl/cfperl.xs	2006/05/07 19:24:27	1.51
@@ -1090,6 +1090,10 @@
     const_iv (SK_EVOCATION)
     const_iv (SK_SORCERY)
     const_iv (SK_TWO_HANDED_WEAPON)
+    const_iv (SK_SPARK_TOUCH)
+    const_iv (SK_SHIVER)
+    const_iv (SK_ACID_SPLASH)
+    const_iv (SK_POISON_NAIL)
 
     const_iv (SOUND_NEW_PLAYER)
     const_iv (SOUND_FIRE_ARROW)
@@ -1499,6 +1503,7 @@
 
 void player_lvl_adj (object *who, object *skill = 0)
 
+int kill_object (object *op, int dam = 0, object *hitter = 0, int type = AT_PHYSICAL)
 
 MODULE = cf        PACKAGE = cf::object         PREFIX = cf_
 
@@ -1604,6 +1609,8 @@
 
 void change_skill (object *op, double exp, char *skill_name = 0, int flag = 0)
 
+void kill_player (object *op)
+
 MODULE = cf        PACKAGE = cf::object::map    PREFIX = cf_
 
 MODULE = cf        PACKAGE = cf::player         PREFIX = cf_player_
@@ -1633,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