Added SkillUp function and used it whenever we magic-skill-up

1 files changed, 7 insertions, 6 deletions

diff --git a/npc/005-1_Snake_desert/spirit.txt b/npc/005-1_Snake_desert/spirit.txt
index a7f8dd04..1af21869 100644
--- a/npc/005-1_Snake_desert/spirit.txt
+++ b/npc/005-1_Snake_desert/spirit.txt
@@ -8,6 +8,10 @@ L_message:
         set @Q_SHIFT, NIBBLE_0_SHIFT;
         set @Q_status, (QUEST_MAGIC2 & @Q_MASK) >> @Q_SHIFT;
 
+        // Set up SkillUp function
+        set @SUP_id, SKILL_MAGIC_NATURE;
+        set @SUP_name$, "Nature Magic";
+
         set @Q_STATUS_INITIAL, 0;
         set @Q_STATUS_ONQUEST, 1;
         set @Q_STATUS_STUDENT0, 2;
@@ -158,12 +162,9 @@ L_Q_magic_1:
         mes "[Earth Spirit]";
         mes "\"Well done, very well done!  Consider yourself my student now.\"";
 
-        mes "[5000 experience points]";
-        if (getskilllv(SKILL_MAGIC_NATURE) < 2)
-                mes "[Level 2 in Nature Magic]";
-        getexp 5000, 0;
-        if (getskilllv(SKILL_MAGIC_NATURE) < 2)
-        	setskill SKILL_MAGIC_NATURE, 2;
+        set @SUP_xp, 5000;
+        set @SUP_lvl, 2;
+        callfunc "SkillUp";
         next;
 
         set @Q_status, @Q_STATUS_STUDENT0;