013-2,66,39,0 script Old Wizard#_W NPC116,{ @has_magic = getskilllv(SKILL_MAGIC); MAGIC_FLAGS = MAGIC_FLAGS | MFLAG_KNOWS_OLD_WIZARD; @run = ((QUEST_NorthTulimshar & TWOBIT_8_MASK) >> TWOBIT_8_SHIFT); if ((@run == 2) && (QL_KYLIAN == 13)) goto L_Deliver; goto L_Start; L_Deliver: menu "I have a delivery for you", L_Delivery; L_Delivery: mesn; mes "\"Good now I can get to work on some stronger brew..\""; QL_KYLIAN = 14; goto L_close; L_Start: mesn; mes "\"Welcome, dear wanderer! Come into my humble home. Take a rest, eat and drink.\""; next; menu "Thanks, that's very kind of you!", L_Thanks, "Can you teach me magic?", L_TeachRude, rif(get_nibble(##01_TMWQUEST, 0), l("Actually, have you ever heard of Yeti's kidnapping little girls?")), L_VaultQuest, "Oh, shut up!", L_ShutUp; L_TeachRude: mesn; mes "\"I certainly could, but I already have an apprentice.\""; goto L_close; L_ShutUp: mesn; mes "\"That attitude isn't going to get you very far, my dear.\""; goto L_close; L_Thanks: mesn; mes "\"Behind this door, my apprentice will serve you.\""; next; if (@has_magic) menu "Alright.", L_Agree, "I am studying magic, can you help?", L_NewStudent, "Your apprentice? ... No thanks.", L_Decline; menu "Alright.", L_Agree, "Your apprentice? ... No thanks.", L_Decline; L_Decline: mesn; mes "\"Goodbye, then!\""; goto L_close; L_NewStudent: mesn; mes "\"Studying is always an excellent use of one's mind! I fear that I can't offer too much assistance to you, however. But if you are interested, I could perhaps teach you a simple spell?\""; next; // check if the player has the knowledge of any skill if (getskilllv(SKILL_POOL) && (getskilllv(SKILL_MAGIC_ASTRAL) < 1) || (getskilllv(SKILL_ASTRAL_SOUL) == 0)) menu "That would be very kind of you!", L_TeachSpell, "Actually I am looking for someone teaching me some more magic skills.", L_AstralSoul, "No, but thank you!", L_Decline; menu "That would be very kind of you!", L_TeachSpell, "No, but thank you!", L_Decline; L_TeachSpell: mesn; mes "\"This one may not seem too powerful, but it can be quite handy; it's the 'hide' spell. It will shield you from some forms of detection magic.\""; next; mesn; mes "\"Put a piece of cotton cloth on your head, and speak out '" + get(.invocation$, "spell-hide") + "', loudly and clearly. The protection lasts quite long, but you may have to renew it on occasion.\""; next; mesn; mes "\"You can also cast it on others, of course. Just speak their name after you pronounce the invocation.\""; next; mesn; mes "\"You may find it useful for getting a little peace and quiet at times, but it can also get in the way of friends trying to find you, so use it with care.\""; next; if (getskilllv(SKILL_MAGIC_ASTRAL) >= 2) goto L_close; mesn; mes "\"I'm not sure if you are experienced enough to cast it yet, though. You may need to first learn astral magic.\""; goto L_close; L_AstralSoul: mesn; mes "\"Oh yes, there are lots of ways to improve your magic. Skills -some people say mental focus for that- are another way to improve your magic. Of course learning more and more spells is also a need for good mages.\""; next; mes "\"I can teach you the ability to focus on magical stuff.\""; next; mes "\"To do so, I am in need of a pearl and about 100 acorns.\""; menu "Here we go.", L_Next, "Ok be right back. I'll get them", L_Decline; L_Next: if (countitem("Pearl") < 1 || countitem("Acorn") < 100) goto L_NotEnough; delitem "Pearl", 1; delitem "Acorn", 100; mesn; mes "\"Okay, listen:\""; next; mes "\"Some parts of your brain is still unused. These parts will now get the ability to get focused to magic.\""; next; mes "\"To do so, think of a magic spell!\""; next; mes "The old wizard mumbles some invocations"; next; @SUP_lvl = 1; @SUP_id = SKILL_ASTRAL_SOUL; @SUP_name$ = "Astral Soul"; @SUP_xp = 2500; callfunc "SkillUp"; mes "\"Now go and try to find someone who can actually activate that focus.\""; next; mes "\"You have the powers to focus on magic, but you need to get magic focused now.\""; goto L_close; L_NotEnough: mesn; mes "\"Please learn to count.\""; next; mes "\"When you are done with that, come back again.\""; goto L_close; L_Agree: mesn; mes "\"Beware the flying notes though, some of them are really dangerous. I haven't been able to persuade them to get back into their book. And avoid the mirror, it's been acting strange lately.\""; next; mes "\"Oh, and please don't take my apprentice too seriously. He still has a lot to learn.\""; goto L_close; L_VaultQuest: .@q = get_nibble(##01_TMWQUEST, 0); mes ""; mesc l("%s raises an eyebrow at you.", strnpcinfo(1)); if (.@q == 1) { mesn; mesq l("Are you being serious?"); next; //if (askyesno() == ASK_NO) close; mesn; mesq l("Have you at least asked Celestia about it? She is very knowledgeable about Yetis."); next; select l("Who is Celestia?"), l("Yes I did."), l("No I didn't, I'll ask her."); mes ""; switch (@menu) { case 1: mesn; mesq l("Ah, Celestia... She is a good woman who lives in Hurnscald. Go find her, come back to me after."); close; case 3: close; } mesn; mesq l("And what did she say?"); next; mesc l("You explain to the wizard about the situation."); next; mesn; mesq l("If she said Yetis doesn't do it, then they doesn't do it... In this world, at least."); if (!getvaultid()) close; // Duplicate code, for double safety next; select l("\"this world\"?"); mes ""; mesn; mesq l("Oh yes, there are worlds like this one where you can find even Yetis involved in politics. Really impressing."); next; set_nibble(##01_TMWQUEST, 0, 2); .@q = 2; } if (.@q == 2) { mesn; mesq l("It was a long time since the last time I visited a different world... But you're young. Maybe you can do it. However, keep it a secret."); next; mesn; mesq l("So, lemme think. There was this world, \"Moubootaur Lake\" or something, don't recall how they call themselves."); // Typo on purpose next; mesn; mesq l("You could ask the %s of that world about it. Come back to me if she doesn't know anything, and I'll think on another world.", b("Celestia")); next; mesn; mesq l("Now, %s. The worlds are all different. The one you're going to may be similar but is far from a carbon copy of this one.", b(l("pay attention"))); next; mesn; mesq l("That world's Celestia is %s but not necessarily on the same house, or with the exact same name, nor with the exact same clothes.", b(l("likely on the same town"))); next; mesn; mesq l("Now, if my memory serves me right, after visiting that world, you'll appear near a lake. %s, and then %s.", b(l("Go south until you see a big road")), b(l("Head east until you see the town"))); next; mesn; mesq l("If you know a native citizen of the world, all the better. Worlds tend to impose their own rules, after all."); next; mesn; mesq col(l("*cough cough*"), 9)+" "+l("Anyway, I don't teach this spell to everyone. Near my bed is a saying. Recite it backwards, think on the world you want to go, and let it be."); next; } mesn; mesq l("Good luck, and come back to me if you need help."); close; L_close: @has_magic = 0; close; }