--- deliantra/server/plugins/cfperl/cfperl.xs	2006/07/11 15:25:00	1.57
+++ deliantra/server/plugins/cfperl/cfperl.xs	2006/07/11 16:50:16	1.58
@@ -88,6 +88,9 @@
 #define PUSH_PV  PUSHcfapi_va(STRING,  const char *)
 #define PUSH_IV  PUSHs (sv_2mortal (newSViv (va_arg (args, int))))
 
+extern void pay_player(object *op, uint64 amount);
+extern uint64 pay_player_arch(object *op, const char *arch, uint64 amount);
+
 //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
 
 // garbage collect some perl objects, if possible
@@ -1553,6 +1556,10 @@
 
 void change_exp (object *op, double exp, const char *skill_name = 0, int flag = 0)
 
+void pay_player (object *op, double amount)
+
+double pay_player_arch (object *op, const char *arch, double amount)
+
 void player_lvl_adj (object *who, object *skill = 0)
 
 int kill_object (object *op, int dam = 0, object *hitter = 0, int type = AT_PHYSICAL)