Morgan teach #kalmurk. Starting success rate is of perhaps 15% or so.

The price is a mug of beer, and magic tier 1. The rate goes up when you get
Jesusalva's Grimorium on tier 2 quest, and unlocks Auldsbel & Sagratha.

1 files changed, 57 insertions, 2 deletions

diff --git a/npc/005-6/morgan.txt b/npc/005-6/morgan.txt
index 0f825d24e..f5fa6a7a2 100644
--- a/npc/005-6/morgan.txt
+++ b/npc/005-6/morgan.txt
@@ -25,10 +25,10 @@ L_Who:
     next;
     mesq l("I really hope that nothing major happens, though. I would hate to see blood being spilled.");
     next;
-    if (!#MAGIC_LVL)
+    if (!MAGIC_LVL)
         mesq l("If you train hard enough, and get access to a Mana Stone, I could teach you a trick or two. But right now, I don't sense magic compatibility in you.");
     else
-        mesq l("I see you are a mage too. Have you joined a class already? Luca and Colin are always recruiting on Tulimshar Magic Council.");
+        goto L_Magic;
     close;
 
 L_Shop:
@@ -40,6 +40,61 @@ L_Shop:
     closedialog;
     close;
 
+// Magic Subsystem
+L_Magic:
+    mesn;
+    mesq l("I see you are a mage too. Have you joined a class already? Luca and Colin are always recruiting on Tulimshar Magic Council.");
+
+L_MagicCore:
+    select
+        l("What is an class?"),
+        l("How difficult it is to obtain a class?"),
+        rif(!getskilllv(TMW2_KALMURK), l("Can you teach me a spell?"),
+        l("How magic works on this world?");
+    mes "";
+    switch (@menu) {
+    case 1:
+        mesn;
+        mesq l("We have two main groups, entitled classes: The Magic Warriors, and the Wizard Mages.");
+        next;
+        mesn;
+        mesq l("I don't think you can be part of more than one class, but you can accumulate subclasses. These will only unlock at tier 2, though.");
+    case 2:
+        mesn;
+        mesq l("You know the Tulimshar Magic Council? The big building on Tulimshar North? There you can obtain a class.");
+        next;
+        mesn;
+        mesq l("Getting in a class is easy, difficult is mastering it. But the more you advance, more powerful skills are unlocked.");
+        next;
+        mesn;
+        mesq l("Of course, if you don't ask from the Mana Stone for more magic, that means nothing...");
+    case 3:
+        mesn;
+        mesq l("Sure! But that is Mana Magic. Just bring me a mug of beer, I'm thristy. And I'll teach you a basic skill.");
+        next;
+        if (askyesno() == ASK_YES) {
+            if (!countitem(Beer)) goto L_Lie;
+            delitem Beer, 1;
+            skill(TMW2_KALMURK,1,0);
+            mesn;
+            mesq l("You can use @@ to summon some maggots. That depends on your magic level, of course.", "##B@sk-kalmurk##b");
+            next;
+            mesn;
+            mesq l("That's a Mana Magic. It is very different from regular magic. For example, it have an experience meter and an alias you can say.");
+            next;
+            mesn;
+            mesq l("Unless you have an @@, it'll be difficult to track progress on Mana Magic, and you won't really gain any mana experience for a while.", getitemlink(JesusalvaGrimorium));
+            next;
+            mesn;
+            mesq l("By the way, you need a couple of @@ to try the skill. Fail rate is pretty high, but that book will teach you how to reduce it.", getitemlink(MaggotSlime));
+        }
+    default:
+        close;
+    }
+    next;
+    goto L_MagicCore;
+
+
 OnInit:
 	tradertype(NST_MARKET);