From d54cf73f7ca82bdfd4949d7987e90fa14c23833b Mon Sep 17 00:00:00 2001
From: Fate <fate-tmw@googlemail.com>
Date: Sat, 31 Jan 2009 11:20:59 -0700
Subject: Add functionality for healer XP handling

---
 src/map/magic-expr.c | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'src/map/magic-expr.c')

diff --git a/src/map/magic-expr.c b/src/map/magic-expr.c
index 4f7e823..cb3c0ae 100644
--- a/src/map/magic-expr.c
+++ b/src/map/magic-expr.c
@@ -1101,6 +1101,18 @@ fun_dir_towards(env_t *env, int args_nr, val_t *result, val_t *args)
         return 0;
 }
 
+static int
+fun_extract_healer_xp(env_t *env, int args_nr, val_t *result, val_t *args)
+{
+        character_t *sd = (ETY(0) == BL_PC) ? ARGPC(0) : NULL;
+
+        if (!sd)
+                RESULTINT = 0;
+        else
+                RESULTINT = pc_extract_healer_exp(sd, ARGINT(1));
+        return 0;
+}
+
 
 
 #define BATTLE_RECORD2(sname, name) { sname, "e", 'i', fun_get_##name }
@@ -1177,6 +1189,7 @@ static fun_t functions[] = {
         { "map_nr", "l", 'i', fun_map_nr },
         { "dir_towards", "lli", 'd', fun_dir_towards },
         { "is_dead", "e", 'i', fun_is_dead },
+        { "extract_healer_experience", "ei", 'i', fun_extract_healer_xp },
         { NULL, NULL, '.', NULL }
 };
 
-- 
cgit v1.2.3-60-g2f50