function dearLord for @Aeon - Or whoever beats him to it!!

1 files changed, 16 insertions, 1 deletions

diff --git a/npc/011-1/manastone.txt b/npc/011-1/manastone.txt
index dcc4142c7..3d8df2b5e 100644
--- a/npc/011-1/manastone.txt
+++ b/npc/011-1/manastone.txt
@@ -20,6 +20,7 @@
 //      .jlvl      => Jlv Increment
 
 011-1,0,0,0	script	Mana Stone	NPC_MANA_STONE,{
+    function dearLord;
 
     if (BaseLevel < $MANA_BLVL) goto L_NotWorthy;
     mesn;
@@ -54,6 +55,7 @@ L_Level:
     if (mstone(4)) goto L_LevelUp;
     if (mstone(5)) goto L_LevelUp;
     if (mstone(6)) goto L_LevelUp;
+    if (MAGIC_LVL >= 7) dearLord();
     if (MAGIC_LVL >= 7) npctalk3 l("You already got all power I could grant you!");
     if (is_gm()) percentheal -20, -50;
     if (MAGIC_LVL >= 7 || is_gm()) close;
@@ -84,6 +86,20 @@ L_LevelUp:
     die();
     close;
 
+function dearLord {
+    if ($MANASTONE_WINNER$ == "") {
+        $MANASTONE_WINNER$=strcharinfo(0);
+        channelmes("#world", $MANASTONE_WINNER$+" is the first player to reach "+get_race()+"'s magic limit since the Monster King! %%N");
+        announce "All hail ##B"+$MANASTONE_WINNER$+"##b, first to reach "+get_race()+"'s magic limit since the Monster King! %%N", bc_all|bc_npc;
+        getexp 0, 2000;
+        getitem SupremeGift, 1;
+        mesc l("CONGRATULATIONS! You are the first player to harness all power the Mana Stone would willingly give!"), 2;
+        mesc l("You just gained a Supreme Gift, and 2000 Job Exp for your bravery!"), 2;
+        next;
+    }
+    return;
+}
+
 OnInit:
     movenpc .name$, 20+rand(150), 20+rand(150);
     .sex = G_OTHER;
@@ -117,5 +133,4 @@ OnClock2340:
     npctalk "Those who are worthy, may get my magic. For the others, death awaits!";
     movenpc .name$, 20+rand(150), 20+rand(150);
     end;
-
 }