*fun* something like detect magic level

2 files changed, 38 insertions, 7 deletions

diff --git a/npc/003-0/audsbel.txt b/npc/003-0/audsbel.txt
index e2e96af76..e80dfe388 100644
--- a/npc/003-0/audsbel.txt
+++ b/npc/003-0/audsbel.txt
@@ -14,7 +14,7 @@
     mesq l("Welcome back, Padric!");
     mesq l("Do you believe I've lost my @@? I can't see anything well without that! %%a", getitemlink(Googles));
     next;
-    mesn l("Auldsbel the Wizard");
+    mesn;
     mesq l("Anyway, I am one of the few Mana Wizard, and I love Transmutation!");
     next;
 
@@ -22,15 +22,16 @@ L_Main:
     .@q=getq(General_Auldsbel);
     select
         l("What's the difference from a Mana Wizard and a Mage?"),
-        l("Where are you from?"),
-        l("Do you still need help with your experiments?"),
+        l("Who are you? Where are you from?"),
+        l("How do I advance in Mana Magic? How it works?"),
         l("Can you teach me Mana Magic?"),
         l("What do you know about Sagratha?"),
+        l("Do you still need help with your experiments?"),
         l("Actually, I gotta go, see ya!");
 
     mes "";
     switch (@menu) {
-        case 1:
+        case 1: // What's the difference from a Mana Wizard and a Mage?
             mesn;
             mesq l("%%4 Haven't you read your Grimorium yet?!");
             next;
@@ -50,7 +51,7 @@ L_Main:
             mesq l("To be honest, you should use both. And remember, all Mana Magic skills can be used like they were @sk-commands. %%H");
             next;
             break;
-        case 2:
+        case 2: // Who are you? Where are you from?
             mesn;
             mesq l("Well, speaking a bit about myself can't hurt. I am a member from the Magic Council, but one day I decided to take a vacations.");
             next;
@@ -58,10 +59,24 @@ L_Main:
             mesq l("I moved to Hurnscald, stayed there for over a decade, until Lord Transmogrifier Pontorias the Plaid (May His Shape Reflect His Soul Forever) died.");
             next;
             mesn;
-            mesq l("then I returned to Tulimshar. I now do research, vote on the council meetings, and I also teach young mages about Transmutation magic.");
+            mesq l("Then I returned to Tulimshar. Now I do research, vote on the Magic Council meetings, and I also teach young mages about Transmutation magic.");
+            next;
+            break;
+        case 3: // How do I advance in Mana Magic? How it works?
+            mesn;
+            mesq l("Mana Magic works similar to regular magic: You can find it on your skill window, and can drag it to your shortcut list.");
+            next;
+            break;
+        case 4: // Can you teach me Mana Magic?
+            next;
+            break;
+        case 5: // What do you know about Sagratha?
+            next;
+            break;
+        case 6: // Do you still need help with your experiments?
             next;
             break;
-        default:
+        default: // Actually, I gotta go, see ya!
             goodbye;
             closedialog;
             close;
diff --git a/npc/items/books.txt b/npc/items/books.txt
index 0932a6337..e3726766e 100644
--- a/npc/items/books.txt
+++ b/npc/items/books.txt
@@ -191,6 +191,22 @@ OnInit:
                     if (getskilllv(TMW2_PARUM))
                         mesc l("Parum - @sk-parum");
                     next;
+                    mesn l("Current Magic Control");
+                    .@val=MAGIC_EXP+rand(-MAGIC_LVL*5, MAGIC_LVL*5);
+                    .@base=(MAGIC_LVL**3);
+                    if (.@val > .@base+3500)
+                        mesc l("You are perfectly in control of your magic."), 3;
+                    else if (.@val > .@base+2000)
+                        mesc l("You are mostly in control of your magic."), 2;
+                    else if (.@val > .@base+1000)
+                        mesc l("You are somewhat in control of your magic."), 4;
+                    else if (.@val > .@base+200)
+                        mesc l("Your magic is more powerful than you, but you can control."), 7;
+                    else if (.@val > .@base)
+                        mesc l("You still are overwhelmed by your magic."), 6;
+                    else
+                        mesc l("You are completly overwhelmed by your magic."), 1;
+                    next;
                     break;
                 case 3:
                     mesc l("You currently have @@/@@ subclass(es).", total_subclass(),max_subclass());