1 files changed, 88 insertions, 0 deletions
diff --git a/npc/018-6-3/main.txt b/npc/018-6-3/main.txt
index 9cdbeae52..ec3d771b6 100644
--- a/npc/018-6-3/main.txt
+++ b/npc/018-6-3/main.txt
@@ -871,5 +871,93 @@ OnInstanceInit:
 // Altar: 90,90
 // Room: 74,83 ~ 106,97
 
+018-6-3,90,90,0	script	Mana Stone#01863	NPC_MANA_STONE,{
+    mesn;
+    mes l("The mighty Mana Stone does not reacts against you.");
+    mes l("It's")+b(l("small, red, round and shiny."));
+    mes l("If you fell ready, perhaps you should touch it?");
+    mes "";
+    select
+        l("Touch it!"),
+        l("Take it!"),
+        l("Break it!"),
+        l("Leave it alone!");
+    mes "";
+    @difficulty_modulus=10;
+    switch (@menu) {
+        case 1:
+            mesc l("Curiously, you try to touch the Mana Stone.");
+            next;
+        case 2:
+            mesc l("Determinately, you move your hand to grab it.");
+            next;
+        case 3:
+            mesc l("Are you out of your mind?!");
+            mesc l("If you break that, you will never go to the World's Edge!");
+            next;
+            mesc l("Attempt to break the Mana Stone?"), 1;
+            if (askyesno() == ASK_NO)
+                close;
+            mes "";
+            @difficulty_modulus+=10;
+            break;
+        default:
+            close;
+    }
+    mes "";
+    mes ".:: " + l("The Mana Stone") + " ::.";
+    mesq l("Do you think yourself worthy of my power?");
+    next;
+    // Both choices are valid, actually.
+    askyesno();
+    mes ".:: " + l("The Mana Stone") + " ::.";
+    if (@menu == ASK_YES)
+        mesq l("Then prove yourself!");
+    else
+        mesq l("But that's no excuse for cowardice!");
+    next;
+    mes ".:: " + l("The Mana Stone") + " ::.";
+    mesq l("Foolish mortal, who doesn't knows what you are doing!");
+    next;
+    setnpcdisplay instance_npcname("Mana Stone#01863"), NPC_LIGHTBRINGER;
+    mes ".:: " + l("The Mana Stone") + " ::.";
+    mesq l("I shall decide here and now, if you are worth of living in this world!");
+    next;
+    mes ".:: " + l("The Mana Stone") + " ::.";
+    mesq l("I am the Judge, and I shall make Judgment upon you!");
+    mesc l("WARNING: ")+l("If you die or logout here, the quest will be reset!"), 1;
+    next;
+    //doevent
+    //disablenpc
+    Exception("Could not begin the Boss Fight!", RB_SPEECH|RB_ISFATAL);
+    close;
+
+// Mana Stone is the initial NPC, not hidden
+OnInit:
+    disablenpc .name$;
+    end;
+}
+
+018-6-3,90,90,0	script	???#01863	NPC_NO_SPRITE,{
+    mesc l("You see a red apple here. It is ")+b(l("small, red, round and shiny."));
+    next;
+    mesc l("Take it?");
+    if (askyesno() == ASK_YES) {
+        inventoryplace MagicApple, 1;
+        getitem MagicApple, 1;
+        //setq
+        mes "";
+        mesc l("You take the @@. It seems to be the stolen item.", getitemlink(MagicApple));
+        disablenpc instance_npcname(.name$);
+    }
+    close;
 
+// NPC must remain hidden.
+OnInit:
+    disablenpc .name$;
+    end;
+OnInstanceInit:
+    disablenpc instance_npcname(.name$);
+    end;
+}