--- deliantra/server/plugins/cfperl/cfperl.xs	2006/03/16 21:08:20	1.33
+++ deliantra/server/plugins/cfperl/cfperl.xs	2006/03/17 00:51:33	1.35
@@ -1001,6 +1001,21 @@
 
     const_iv (SAVE_MODE)
     const_iv (SAVE_DIR_MODE)
+
+    const_iv (M_PAPER)
+    const_iv (M_IRON)
+    const_iv (M_GLASS)
+    const_iv (M_LEATHER)
+    const_iv (M_WOOD)
+    const_iv (M_ORGANIC)
+    const_iv (M_STONE)
+    const_iv (M_CLOTH)
+    const_iv (M_ADAMANT)
+    const_iv (M_LIQUID)
+    const_iv (M_SOFT_METAL)
+    const_iv (M_BONE)
+    const_iv (M_ICE)
+    const_iv (M_SPECIAL)
   };
 
   for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
@@ -1278,6 +1293,7 @@
         RETVAL = obj->attacktype;
 	OUTPUT: RETVAL
 
+# missing in plug-in api, of course
 void 
 set_food (object *obj, int food)
 	CODE:
@@ -1436,6 +1452,12 @@
         RETVAL = cf_query_base_name (ob, plural);
         OUTPUT: RETVAL
 
+living *
+stats (object *ob)
+	CODE:
+        RETVAL = &ob->stats;
+        OUTPUT: RETVAL
+
 
 MODULE = cf        PACKAGE = cf::object::player PREFIX = cf_player_
 
@@ -1494,6 +1516,21 @@
         RETVAL = pl->next;
         OUTPUT: RETVAL
 
+void get_savebed (player *pl)
+	ALIAS:
+           savebed = 0
+	PPCODE:
+        EXTEND (SP, 3);
+        PUSHs (sv_2mortal (newSVpv (pl->savebed_map, 0)));
+        PUSHs (sv_2mortal (newSViv (pl->bed_x)));
+        PUSHs (sv_2mortal (newSViv (pl->bed_y)));
+
+void set_savebed (player *pl, char *map_path, int x, int y)
+	CODE:
+        strcpy (pl->savebed_map, map_path);
+        pl->bed_x = x;
+        pl->bed_y = y;
+
 void
 list ()
 	PPCODE:
@@ -1503,6 +1540,18 @@
           XPUSHs (newSVcfapi (CFAPI_PPLAYER, pl));
 }
 
+living *
+orig_stats (player *pl)
+	CODE:
+        RETVAL = &pl->orig_stats;
+        OUTPUT: RETVAL
+
+living *
+last_stats (player *pl)
+	CODE:
+        RETVAL = &pl->last_stats;
+        OUTPUT: RETVAL
+
 
 MODULE = cf        PACKAGE = cf::map            PREFIX = cf_map_
 
@@ -1725,3 +1774,55 @@
         ALIAS: message = 0
 
 
+MODULE = cf        PACKAGE = cf::living         PREFIX = cf_living_
+
+double
+exp (living *liv, double new_val = 0.)
+	PROTOTYPE: $;$
+        ALIAS:
+          Str      =  1
+          Dex      =  2
+          Con      =  3
+          Wis      =  4
+          Cha      =  5
+          Int      =  6
+          Pow      =  7
+          wc       =  8
+          ac       =  9
+          hp       = 10
+          maxhp    = 11
+          sp       = 12
+          maxsp    = 13
+          grace    = 14
+          maxgrace = 15
+          food     = 16
+          dam      = 17
+          luck     = 18
+        CODE:
+#       define LIVING_ACC(acc,idx) case idx: RETVAL = liv->acc; if (items > 1) liv->acc = new_val; break
+        switch (ix)
+          {
+            LIVING_ACC (exp     ,  0);
+            LIVING_ACC (Str     ,  1);
+            LIVING_ACC (Dex     ,  2);
+            LIVING_ACC (Con     ,  3);
+            LIVING_ACC (Wis     ,  4);
+            LIVING_ACC (Cha     ,  5);
+            LIVING_ACC (Int     ,  6);
+            LIVING_ACC (Pow     ,  7);
+            LIVING_ACC (wc      ,  8);
+            LIVING_ACC (ac      ,  9);
+            LIVING_ACC (hp      , 10);
+            LIVING_ACC (maxhp   , 11);
+            LIVING_ACC (sp      , 12);
+            LIVING_ACC (maxsp   , 13);
+            LIVING_ACC (grace   , 14);
+            LIVING_ACC (maxgrace, 15);
+            LIVING_ACC (food    , 16);
+            LIVING_ACC (dam     , 17);
+            LIVING_ACC (luck    , 18);
+          }
+#       undef LIVING_ACC
+	OUTPUT:
+        RETVAL
+