diff options
Diffstat (limited to 'npc/011-1_Woodland/auldsbel.txt')
| -rw-r--r-- | npc/011-1_Woodland/auldsbel.txt | 23 |
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; |