1 files changed, 44 insertions, 5 deletions

diff --git a/npc/009-5/manastone.txt b/npc/009-5/manastone.txt
index 83e6637a1..47e0f1017 100644
--- a/npc/009-5/manastone.txt
+++ b/npc/009-5/manastone.txt
@@ -2,19 +2,58 @@
 // Author:
 //  Jesusalva
 // Description:
-//  TODO
+//  The last Mana Stone in the whole world, which is not owned by the Magic Council
+//  or the Monster King.
 
 009-5,0,0,0	script	Mana Stone	NPC_MANA_STONE,{
 
     if (BaseLevel < 40) goto L_NotWorthy;
-    hello;
-    end;
+    mesn;
+    mes l("The mighty Mana Stone does not reacts against you.");
+    mes l("If you fell ready, perhaps you should touch it?");
+    mes "";
+    menu
+        l("Touch it!"), L_Level,
+        l("Take it!"), L_NotWorthy2,
+        l("Break it!"), L_NotWorthy2,
+        l("Leave it alone!"), -;
+    close;
+
 
 L_NotWorthy:
     percentheal -70+BaseLevel, -100+BaseLevel;
-    npctalk3 "You are not worthy!";
+    npctalk3 l("You are not worthy!");
     end;
 
+L_Level:
+    if (MAGIC_LVL == 0 && readparam(bInt) >= 30 && BaseLevel >= 40 && JobLevel >= 10) goto L_LevelUp;
+
+    // Everything below this line is garbage
+    if (MAGIC_LVL == 1 && readparam(bInt) >= 60 && BaseLevel >= 60 && JobLevel >= 30) goto L_LevelUp;
+    if (MAGIC_LVL == 2 && readparam(bInt) >= 90 && BaseLevel >= 80 && JobLevel >= 50) goto L_LevelUp;
+    if (MAGIC_LVL == 3 && readparam(bInt) >= 120 && BaseLevel >= 100 && JobLevel >= 70) goto L_LevelUp;
+    if (MAGIC_LVL == 4 && readparam(bInt) >= 150 && BaseLevel >= 120 && JobLevel >= 90) goto L_LevelUp;
+    if (MAGIC_LVL == 5 && readparam(bInt) >= 180 && BaseLevel >= 140 && JobLevel >= 110) goto L_LevelUp;
+    if (MAGIC_LVL == 6 && readparam(bInt) >= 210 && BaseLevel >= 160 && JobLevel >= 120) goto L_LevelUp;
+    if (MAGIC_LVL >= 7) npctalk3 l("You already got all power I could grant you!");
+    if (MAGIC_LVL >= 7 || is_gm()) close;
+
+L_NotWorthy2:
+    if (is_gm()) disablenpc("Mana Stone");
+    if (is_gm()) close;
+    percentheal -20, -50;
+    npctalk3 l("You are not worthy!");
+    end;
+
+L_LevelUp:
+    mes "";
+    mes l("A great rush of mana flows though you.");
+    if (!MAGIC_LVL) mes l("Magic Power is granted to you, but you die from it.");
+    if (MAGIC_LVL) mes l("More Magic Power is granted to you, but you die from it.");
+    MAGIC_LVL = MAGIC_LVL+1;
+    percentheal -100, -100;
+    close;
+
 OnInit:
     movenpc .name$, rand(200), rand(200);
     .sex = G_OTHER;
@@ -46,7 +85,7 @@ OnClock2100:
 OnClock2250:
 OnClock2340:
     movenpc .name$, rand(200), rand(200);
-    //npctalk l("Those who are worthy, may get my magic. For the others, death awaits!");
+    npctalk "Those who are worthy, may get my magic. For the others, death awaits!";
     end;
 
 }