summaryrefslogtreecommitdiff
path: root/npc/011-1_Woodland
diff options
context:
space:
mode:
Diffstat (limited to 'npc/011-1_Woodland')
-rw-r--r--npc/011-1_Woodland/auldsbel.txt23
1 files changed, 13 insertions, 10 deletions
diff --git a/npc/011-1_Woodland/auldsbel.txt b/npc/011-1_Woodland/auldsbel.txt
index ea83ab57..fd4e2b47 100644
--- a/npc/011-1_Woodland/auldsbel.txt
+++ b/npc/011-1_Woodland/auldsbel.txt
@@ -5,6 +5,10 @@
set @mexp, MAGIC_EXPERIENCE & 65535;
+ // Set up SkillUp function
+ set @SUP_id, SKILL_MAGIC_TRANSMUTE;
+ set @SUP_name$, "Transmutation Magic";
+
set @Q_STATUS_INITIAL, 0;
set @Q_STATUS_POSTINTRO, 1;
set @Q_STATUS_INITIATION, 2; // quest for being able to cast `create mouboo figurine'
@@ -909,6 +913,7 @@ L_component_quest_5:
mes "\"I suggest that you run.\"";
next;
+ misceffect sfx_magic_transmute;
monster "this", 50, 68, "Grass Snake", 1034, 4;
close;
@@ -1021,14 +1026,13 @@ LL_initiation_check:
mes "[Auldsbel the Wizard]";
mes "You feel new powers flowing into your body!";
- mes "[5000 experience points]";
- mes "[Level 2 in Transmutation Magic]";
set @Q_main_status, @Q_STATUS_STUDENT;
callsub S_update_var;
- getexp 5000, 0;
- if (getskilllv(SKILL_MAGIC_TRANSMUTE) < 2)
- setskill SKILL_MAGIC_TRANSMUTE, 2;
+
+ set @SUP_xp, 5000;
+ set @SUP_lvl, 2;
+ callfunc "SkillUp";
next;
goto L_main_menu;
@@ -1235,14 +1239,13 @@ LL_student_4:
set @Q_main_status, @Q_STATUS_STUDENT5;
callsub S_update_var;
- getexp 30000, 0;
- if (getskilllv(SKILL_MAGIC_TRANSMUTE) < 3)
- setskill SKILL_MAGIC_TRANSMUTE, 3;
mes "[Auldsbel the Wizard]";
mes "You feel new powers flowing into your body!";
- mes "[30000 experience points]";
- mes "[Level 3 in Transmutation Magic]";
+
+ set @SUP_xp, 30000;
+ set @SUP_lvl, 3;
+ callfunc "SkillUp";
next;
goto L_main_menu;