Add heal_gain_xp

1 files changed, 7 insertions, 5 deletions

diff --git a/world/map/npc/magic/level2-lay-on-hands.txt b/world/map/npc/magic/level2-lay-on-hands.txt
index 7d006ea9..8fb7f6ce 100644
--- a/world/map/npc/magic/level2-lay-on-hands.txt
+++ b/world/map/npc/magic/level2-lay-on-hands.txt
@@ -24,13 +24,13 @@ L_Pay:
     set .@fraction, max(80, 200 - (Vit + (@spellpower/10))); // pay at least 40%
     set .@payment, (.@needed * .@fraction) / 200;
     set .@available, Hp - (MaxHp / 20);
-    set .@power, if_then_else(.@payment < .@available, .@needed+1-1, (.@available * 200) / .@fraction); // FIXME / XXX why the f do I need to do +1-1 ?
+    set .@heal_value, if_then_else(.@payment < .@available, .@needed+1-1, (.@available * 200) / .@fraction); // FIXME / XXX why the f do I need to do +1-1 ?
     if (.@payment > .@available) set .@payment, .@available;
 
-    set @inma_power, .@power, @target_id;
+    set @inma_power, .@heal_value, @target_id;
 
-    set @mexp, min(.exp_gain, .@payment/100); // TODO pass this to gain_heal_exp so it can be passed to gain_exp
-    // TODO gain_heal_exp(.@power, 1, 1, 3) => gain_exp
+    set @mexp, min(.exp_gain, .@payment/100);
+    callfunc "gain_heal_xp";
 
     set .@dark, getskilllv(SKILL_MAGIC_DARK) >= 2; // true if dark magic user
     set .@bad, (MaxHp/20)*(0-1);
@@ -52,6 +52,8 @@ OnInit:
     set .invocation$, chr(MAGIC_SYMBOL) + "inma"; // used in npcs that refer to this spell
     void call("magic_register");
     set .level, 2;
-    set .exp_gain, 4; // this is MAX possible exp
+    set .exp_gain, 1; // this is MAX possible exp
+    set .heal_xp_value_divisor, 1;
+    set .base_exp_factor, 3;
     end;
 }