From 5c9b7b96ea78205dc428f38822b9e9f5e401c7e3 Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Thu, 27 May 2021 13:36:21 -0300
Subject: Celestia's Arc - TMW's Mirror Lake Quest

---
 npc/012-7/celestia.txt | 86 ++++++++++++++++++++++++++++++++++++++++++++++++++
 npc/016-1/captain.txt  |  2 +-
 npc/functions/hub.txt  |  2 +-
 3 files changed, 88 insertions(+), 2 deletions(-)

diff --git a/npc/012-7/celestia.txt b/npc/012-7/celestia.txt
index 2e2190026..259bf202f 100644
--- a/npc/012-7/celestia.txt
+++ b/npc/012-7/celestia.txt
@@ -21,6 +21,7 @@
     menu
         l("Sorry, I'm more of a coffee person."), L_Coffee,
         l("What an amazing crown you have! How do I get it?!"), L_Crown,
+        rif(getvaultid() && get_nibble(##03_TMWQUEST, 0) == 2, l("Actually, have you ever heard of Yeti's kidnapping little girls?")), L_VaultQuest,
         rif(.@q2 == 0 && BaseLevel >= 35, l("Tea party! I want to participate.")), L_TeaQuest,
         rif(.@q2 == 1, l("I have some sweeties for the Tea Party!")), L_TeaCheck,
         rif(.@q2 >= 2, l("Tea party! I want to participate.")), L_TeaParty,
@@ -265,6 +266,91 @@ L_OtherQuest:
     mesc l("\"When you're thristy, you may look for me. I'm often in desert areas, but this time, the winter has come.\""), 3;
     close;
 
+// Mirror Lake
+L_VaultQuest:
+    if (##01_MLWORLD & MLP_TMW_CELESTIA) {
+        mesn;
+        mesq l("Yes, try to summon the Yeti King in Tulimshar Sewers. Make sure you have someone else with you to help.");
+        close;
+    }
+    mesn;
+    mesq l("While I don't think the Yeti King would ever do or endorse that, yes, I've heard this happens.");
+    next;
+    select
+        l("Wait, Yeti's have a king?"),
+        l("I thought they ate little girls."),
+        l("Haha, as if I believe you.");
+    mes "";
+    if (@menu == 3) close;
+    if (@menu == 2) {
+        mesn;
+        mesq l("What? Don't be ridiculous. Not even the Monster King does that! I think.");
+        next;
+        mesn;
+        mesq l("In other words, I never heard of a Yeti eating a kid before. They prefer %s.", getitemlink(MoubooSteak));
+        next;
+    } if (@menu == 1) {
+        // Player already know that ¬.¬
+        if (getq(HurnscaldQuest_Celestia) != 0) {
+            mesn;
+            mesq l("Are you trying to provoke me?");
+            close;
+        }
+        mesn;
+        mesq l("You see, most people think that all monsters are controlled by the Monster King, but that's not quite right.");
+        next;
+        mesn;
+        mesq l("Some are just living their own lives. In special, I've spent part of my life studying the Yeti Society.");
+        next;
+        mesn;
+        mesq l("And guess what? They have a King of their own!");
+        next;
+    }
+    mesn;
+    mesq l("Anyway, why do you ask? Surely not to waste my time.");
+    next;
+    select
+        l("[Explain the situation]"),
+        l("[Make up a lie]");
+    mes "";
+    mesn;
+    mesq l("...Okay, I asked you to explain, and you ended up wasting my time instead. %%n");
+    next;
+    mesn;
+    mesq l("Listen, I was trying to get the Yeti King to help me to fight the Monster King. If you want to go there and do it, be my guest; Maybe they'll even help you with whatever your problem is.");
+    if (countitem(MirrorLakeArmor))
+        mesc l("PS. This char will be reset on logout.");
+    next;
+    select
+        l("Sure, I'll help."),
+        l("No way!");
+    if (@menu == 2) close;
+    mes "";
+    mesn;
+    mesq l("Alright. Listen, you'll need %s to summon it, and you cannot be alone. I only have so much of that to share, so be careful to don't use all.", getitemlink(EverburnPowder));
+    next;
+    if (countitem(MirrorLakeArmor)) {
+        mesn;
+        mesq l("Your weird robes; They seem like they'll deny your damage, so you definitely want to summon multiple people to help. Try the #world tab.");
+        next;
+    }
+    mesn;
+    mesq l("There's a summoning circle on Tulimshar Sewers. You can reach either by boat, if you have the money - I'll lend you some; Or by the long way.");
+    next;
+    mesn;
+    mesq l("Go very close to it and, speak the four four-letters magic words, pour some @@, and he'll appear to you.", getitemlink(EverburnPowder));
+    next;
+    mesn;
+    mesq l("Don't go alone, though! He would not listen to me, it is not you alone he'll pay attention. You will lose reagents!");
+    next;
+    ##01_MLWORLD=##01_MLWORLD|MLP_TMW_CELESTIA;
+    Zeny+=400;
+    getitembound(EverburnPowder, 5, 4);
+    setq HurnscaldQuest_Celestia, 1;
+    @YetiKing_Challenger=0;
+    mesq l("The chant is ##B EMOC OTEM ITEY GNIK ##b. Good luck!");
+    close;
+
 OnInit:
     .@npcId = getnpcid(.name$);
     setunitdata(.@npcId, UDT_HEADTOP, MurdererCrown);
diff --git a/npc/016-1/captain.txt b/npc/016-1/captain.txt
index 45bfdb2cc..5bbbeb1ef 100644
--- a/npc/016-1/captain.txt
+++ b/npc/016-1/captain.txt
@@ -6,7 +6,7 @@
 
 016-1,19,29,0	script	Captain	NPC_NARD,{
     .@price=410;
-    if (BaseLevel < 20 && !REBIRTH)
+    if (BaseLevel < 20 && !REBIRTH && !countitem(MirrorLakeArmor))
         goto L_TooWeak;
 
     mesn;
diff --git a/npc/functions/hub.txt b/npc/functions/hub.txt
index 12c5e8dda..f3ff72983 100644
--- a/npc/functions/hub.txt
+++ b/npc/functions/hub.txt
@@ -294,7 +294,7 @@ function	script	HUB_Logout	{
             // Destroy temporary characters
             if (countitem(MirrorLakeArmor)) {
                 delitem MirrorLakeArmor, countitem(MirrorLakeArmor);
-                clearitem();
+                //clearitem(); // Hm.
                 resetlvl(2);
                 resetstatus();
                 resetskill();
-- 
cgit v1.2.3-70-g09d2