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);
updateskill @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;
}