diff options
Diffstat (limited to 'npc/029-2/morgan.txt')
| -rwxr-xr-x | npc/029-2/morgan.txt | 113 |
1 files changed, 113 insertions, 0 deletions
diff --git a/npc/029-2/morgan.txt b/npc/029-2/morgan.txt new file mode 100755 index 00000000..5c12dfc3 --- /dev/null +++ b/npc/029-2/morgan.txt @@ -0,0 +1,113 @@ +029-2,105,57,0 script MorganDebug NPC355,{ + mes "[Morgan Debug]"; + mes "Reset?"; + menu + "Yes.", L_Reset, + "No.", L_End; +L_Reset: + QL_MORGAN = 0; + mes "Reset!"; + goto L_End; + +L_End: + end; + +OnInit: + if (!debug) + disablenpc "MorganDebug"; + end; +} +029-2,101,57,0 script Morgan#_M NPC355,{ + callfunc "PCtoNPCRange"; + if(@npc_check) end; + + if (Int >= 5) + goto L_Learn; + goto L_NotMagic; + +L_Learn: + if (QL_MORGAN == 0) + goto L_NotSeen; + if (QL_MORGAN == 1) + goto L_Seen; + if (QL_MORGAN == 2) + goto L_Started; + if (QL_MORGAN == 3) + goto L_CastOnce; + if (QL_MORGAN == 4) + goto L_LearningDone; + goto L_close; + +L_NotSeen: + QL_MORGAN = 1; + mes "[Morgan]"; + mes "\"Welcome to the magic school of Candor\""; + mes "\"My name is Morgan, I'm Head of Wizardry.\""; + mes "\"You appear to have the markings to use magic.\""; + mes "\"Granted you are still to young to cast spells.\""; + mes "\"But we can teach you to use simple magic devices.\""; + mes "\"Would you like to learn some apprentice skills?\""; + menu + "Yes.", L_Start, + "Maybe later", L_close; + +L_Seen: + mes "[Morgan]"; + mes "\"Have you returned to learn some magic?\""; + menu + "Yes.", L_Start, + "Maybe later", L_close; + +L_NotMagic: + mes "[Morgan]"; + mes "\"Hrmm you don't appear to posses enough magical talent to teach.\""; + goto L_close; + +L_Start: + QL_MORGAN = 2; + mes "\"Great, lets begin your first lesson.\""; + getitem 1171, 1; + mes "\"This is a wand, there are many like it but this one is now yours.\""; + mes "\"Various wands and staffs are found throughout the land with many different strengths and weaknesses.\""; + mes "\"To use the wand you need to have it equipped and speak the incantation to let it tap into your mana.\""; + mes "\"As the power of your magic grows so will the spells you can cast.\""; + mes "\"Lets start with a basic wand attack. " + get(.invocation$, "spell-wand") + "\""; + mes "\"Equip the wand and lets try out that spell.\""; + mes "\"To cast a spell open the chat window, type the invocation and press enter.\""; + mes "\"Speak to me again once you've cast the spell.\""; + goto L_close; + +L_Started: + mes "[Morgan]"; + mes "\"Lets start with a basic wand attack. " + get(.invocation$, "spell-wand") + "\""; + mes "\"Equip the wand and lets try out that spell.\""; + mes "\"To cast a spell open the chat window, type the invocation and press enter.\""; + mes "\"Speak to me again once you've cast the spell.\""; + goto L_close; + +L_CastOnce: + mes "[Morgan]"; + mes "\"Ok, good job! Looks like you have good mana flow.\""; + mes "\"Onto the next lesson. Now that you have " + get(.invocation$, "spell-wand") + " cast,\""; + mes "\"Each time you attack the wand will convert a bit of you mana into a magic bolt.\""; + mes "\"After so many attacks, you will need to recast the invocation to stay attuned to the wand.\""; + mes "\"(Logging out will also cancel any spell effects currently active in-game.).\""; + next; + mes "\"I've taught you all I can for now. You should visit the Mana Seed north west of Hurnscald.\""; + QL_MORGAN = 4; + goto L_close; + +L_LearningDone: + mes "[Morgan]"; + mes "\"" + get(.invocation$, "spell-wand") + " is a basic wand attack.\""; + mes "\"A Wand must be equipped to use the spell.\""; + mes "\"To cast a spell open the chat window, type the invocation and press enter.\""; + mes "\"You can also discharge any active spell by saying " + get(.invocation$, "discharge spell") + ".\""; + mes "\"I've taught you all I can for now. You should visit the Mana Seed north west of Hurnscald.\""; + goto L_close; + +L_close: + close; +} + +029-2,113,59,0 shop Zitoni NPC103,501:25,502:35,825:50,826:100 |