From edb81ebe72e57957ce7f36c1babed6449ab0e297 Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Sat, 7 Sep 2019 20:12:18 -0300
Subject: Books of Warnings

---
 npc/018-6-0/main.txt |  7 +++++--
 npc/018-6-3/main.txt | 36 ++++++++++++++++++++++++++++++++++++
 2 files changed, 41 insertions(+), 2 deletions(-)

(limited to 'npc')

diff --git a/npc/018-6-0/main.txt b/npc/018-6-0/main.txt
index 8ea6a6644..25fe3d288 100644
--- a/npc/018-6-0/main.txt
+++ b/npc/018-6-0/main.txt
@@ -84,8 +84,11 @@ OnTouch:
     mesc l("@@ You need to wait further releases to continue this quest!", b(l("WARNING:"))), 1;
     close;
     }
-    // Execute the warp
-    warp BarbaraInstCheck(3), 31, 151;
+    // Execute the warp (randomly)
+    if (any(true,false))
+        warp BarbaraInstCheck(3), 31, 151;
+    else
+        warp BarbaraInstCheck(3), 145, 26;
     end;
 
 
diff --git a/npc/018-6-3/main.txt b/npc/018-6-3/main.txt
index ab6b66c5e..203916462 100644
--- a/npc/018-6-3/main.txt
+++ b/npc/018-6-3/main.txt
@@ -376,3 +376,39 @@ OnInstanceInit:
     end;
 }
 
+018-6-3,34,148,0	script	Book#01863A	NPC_NO_SPRITE,{
+    if (!getskilllv(TMW2_ANCIENTLANGUAGES)) {
+        mesn strcharinfo(0);
+        mesc l("It's written in an ancient language, you cannot understand what's written.");
+        mesc l("The symbols at the end of the book look to be warnings, though.");
+        mesc l("I should check if I have more than enough potions and food before proceeding!");
+        mesc l("REMEMBER: FAILURE AT FINAL BOSS FIGHT WILL CAUSE QUEST TO RESET!"), 1;
+        close;
+    }
+    mes ".:: " + l("Orbyter Shrine") + " ::.";
+    mes l("This shrine is devoted to those whom shall never come back.");
+    mes l("Deep sorrow and sadness, this is the Forgotten Shrine.");
+    mes "";
+    mes l("To the wanderer: Please avoid entering on the rooms by the internal warp system.");
+    mesc l("Dangerous guardians will be summoned, so be ready for several difficult fights straight in a row!"), 1;
+    mes l("In memoriam. May those whom shall never come back find rest in their afterlifes."); // TRANSLATORS: IWS = Internal Warp System
+    mes l("May their journey be successful, may their objectives be attained, may the Mana rest in peace.");
+    mes "";
+    mes l("The Mana Guardian,");
+    //mes "MEE6 the Bot";
+    mesc "« "+l("It's too faint to read.")+" »";
+    if (!@warning) {
+        next;
+        @warning=true;
+        mesn strcharinfo(0);
+        mesc l("This shrine seems to be a dangerous place, and nobody should defile it.");
+        mesc l("I should check if I have more than enough potions and food before proceeding!");
+        mesc l("REMEMBER: FAILURE AT FINAL BOSS FIGHT WILL CAUSE QUEST TO RESET!"), 1;
+    }
+    close;
+
+OnInit:
+    .distance=3;
+    end;
+}
+
-- 
cgit v1.2.3-60-g2f50