diff options
Diffstat (limited to 'npc/functions/magic.txt')
| -rwxr-xr-x | npc/functions/magic.txt | 159 |
1 files changed, 159 insertions, 0 deletions
diff --git a/npc/functions/magic.txt b/npc/functions/magic.txt new file mode 100755 index 00000000..10f6638d --- /dev/null +++ b/npc/functions/magic.txt @@ -0,0 +1,159 @@ + + +function script MagicGainBasic { + MAGIC_FLAGS = MAGIC_FLAGS | MFLAG_DRANK_POTION; + return; +} + +function script MagicTalkOptionsSetup { + @QQ_ELANORE = 1; + @QQ_MANASEED = 2; + @QQ_MANAPOTION = 4; + @QQ_WYARA = 8; + @QQ_SAGATHA = 16; + @QQ_AULDSBEL = 32; + @QQ_IMP = 64; + @QQ_OLDWIZ = 128; + @QQ_ASTRALSOUL = 256; + return; +} + + +function script MagicTalkMenu { + setarray @choice$, "", "", "", "", "", "", "", "", "", ""; + @choices_nr = 0; + setarray @choice_idx, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0; + + if (@ignore & @QQ_ELANORE) + goto L_Q_post_elanore; + @choice$[@choices_nr] = "...Elanore the Healer?"; + @choice_idx[@choices_nr] = @QQ_ELANORE; + @choices_nr = @choices_nr + 1; + goto L_Q_post_elanore; + +L_Q_post_elanore: + if (@ignore == @QQ_MANASEED) + goto L_Q_post_manaseed; + if (!(MAGIC_FLAGS & (MFLAG_KNOWS_MANASEED | MFLAG_MANASEED_RUMOUR))) + goto L_Q_post_manaseed; + @choice$[@choices_nr] = "...the Mana Seed?"; + @choice_idx[@choices_nr] = @QQ_MANASEED; + @choices_nr = @choices_nr + 1; + goto L_Q_post_manaseed; + +L_Q_post_manaseed: + if (@ignore & @QQ_MANAPOTION) + goto L_Q_post_manapotion; + if (!(MAGIC_FLAGS & MFLAG_KNOWS_MANAPOTION)) + goto L_Q_post_manapotion; + @choice$[@choices_nr] = "...Mana Potions?"; + @choice_idx[@choices_nr] = @QQ_MANAPOTION; + @choices_nr = @choices_nr + 1; + goto L_Q_post_manapotion; + +L_Q_post_manapotion: + if (@ignore & @QQ_WYARA) + goto L_Q_post_wyara; + if (!(MAGIC_FLAGS & MFLAG_KNOWS_WYARA)) + goto L_Q_post_wyara; + @choice$[@choices_nr] = "...Wyara the Witch?"; + @choice_idx[@choices_nr] = @QQ_WYARA; + @choices_nr = @choices_nr + 1; + goto L_Q_post_wyara; + +L_Q_post_wyara: + if (@ignore & @QQ_SAGATHA) + goto L_Q_post_sagatha; + if (!(MAGIC_FLAGS & MFLAG_KNOWS_SAGATHA)) + goto L_Q_post_sagatha; + @choice$[@choices_nr] = "...Sagatha the Witch?"; + @choice_idx[@choices_nr] = @QQ_SAGATHA; + @choices_nr = @choices_nr + 1; + goto L_Q_post_sagatha; + +L_Q_post_sagatha: + if (@ignore & @QQ_AULDSBEL) + goto L_Q_post_auldsbel; + if (!(MAGIC_FLAGS & MFLAG_KNOWS_AULDSBEL)) + goto L_Q_post_auldsbel; + @choice$[@choices_nr] = "...Auldsbel the Wizard?"; + @choice_idx[@choices_nr] = @QQ_AULDSBEL; + @choices_nr = @choices_nr + 1; + goto L_Q_post_auldsbel; + +L_Q_post_auldsbel: + if (@ignore & @QQ_OLDWIZ) + goto L_Q_post_oldwiz; + if (!(MAGIC_FLAGS & MFLAG_KNOWS_OLD_WIZARD)) + goto L_Q_post_oldwiz; + @choice$[@choices_nr] = "...the Old Wizard?"; + @choice_idx[@choices_nr] = @QQ_OLDWIZ; + @choices_nr = @choices_nr + 1; + goto L_Q_post_oldwiz; + +L_Q_post_oldwiz: + if (@ignore & @QQ_IMP) + goto L_Q_post_imp; + if (!(MAGIC_FLAGS & MFLAG_KNOWS_IMP)) + goto L_Q_post_imp; + @choice$[@choices_nr] = "...the Earth Spirit in the desert well?"; + @choice_idx[@choices_nr] = @QQ_IMP; + @choices_nr = @choices_nr + 1; + goto L_Q_post_imp; + +L_Q_post_imp: + if (@ignore & @QQ_ASTRALSOUL) + goto L_Q_post_astralsoul; + if (!(getskilllv(SKILL_MAGIC))) + goto L_Q_post_astralsoul; + if (!(getskilllv(SKILL_POOL))) + goto L_Q_post_astralsoul; + @choice$[@choices_nr] = "...ways to improve my magic?"; + @choice_idx[@choices_nr] = @QQ_ASTRALSOUL; + @choices_nr = @choices_nr + 1; + goto L_Q_post_astralsoul; + +L_Q_post_astralsoul: + @choice$[@choices_nr] = "...never mind."; + @choice_idx[@choices_nr] = 0; + @choices_nr = @choices_nr + 1; + + menu + @choice$[0], L_MenuItems, + @choice$[1], L_MenuItems, + @choice$[2], L_MenuItems, + @choice$[3], L_MenuItems, + @choice$[4], L_MenuItems, + @choice$[5], L_MenuItems, + @choice$[6], L_MenuItems, + @choice$[7], L_MenuItems, + @choice$[8], L_MenuItems, + @choice$[9], L_MenuItems; + +L_MenuItems: + @menu = @menu - 1; + + if (@menu >= @choices_nr) + @menu = 0; + + @c = @choice_idx[@menu]; + return; +} + + +function script SkillUp { + if (getskilllv(@SUP_id) >= @SUP_lvl) + goto L_Shortcut; + + misceffect sfx_skillup, strcharinfo(0); + addtoskill @SUP_id, @SUP_lvl; + getexp @SUP_xp, 0; + if (@SUP_xp) + mes "[" + @SUP_xp + " experience points]"; + mes "[Level " + @SUP_lvl + " in " + @SUP_name$ + "]"; + return; + +L_Shortcut: + mes "[You already have level " + getskilllv(@SUP_id) + " in " + @SUP_name$ + "]"; + return; +} |