From 617890517395670dd1be6fd3af92e3e6e3e86e80 Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Mon, 5 Jul 2021 16:11:20 -0300
Subject: As Hocus requested... Players are now able to use the Evil Obelisk to
 warp to Keshlam.

---
 db/quest_db.conf           |  6 ++++++
 npc/018-3/evil-obelisk.txt | 12 ++++++++++++
 npc/027-2/alacrius.txt     |  6 ++++--
 npc/099-7/boss.txt         | 17 +++++++++++++++++
 4 files changed, 39 insertions(+), 2 deletions(-)

diff --git a/db/quest_db.conf b/db/quest_db.conf
index f2c17956..fd7e29d3 100644
--- a/db/quest_db.conf
+++ b/db/quest_db.conf
@@ -64,6 +64,12 @@ quest_db: (
 	Name: "MagicQuest_Healing"
 },
 
+// Misc Quests (220~259)
+{
+	Id: 220
+	Name: "Quest_Reapercry"
+},
+
 // Test Quests, Debug Quests, etc. (1000+)
 {
 	Id: 1000
diff --git a/npc/018-3/evil-obelisk.txt b/npc/018-3/evil-obelisk.txt
index df9c71b0..d9bce317 100644
--- a/npc/018-3/evil-obelisk.txt
+++ b/npc/018-3/evil-obelisk.txt
@@ -1,5 +1,17 @@
 
 018-3,67,28,0	script	Evil Obelisk	NPC185,{
+    if (getq(Quest_Reapercry) == 3) {
+        mesc l("We've already seen such obelisk before... Do you want to sacrifice %d %s?", 10, getitemlink(Soul));
+        if (countitem(Soul) >= 10) {
+            next;
+            if (askyesno() == ASK_YES) {
+                delitem Soul, 10;
+                warp "099-7", 95, 31;
+                closeclientdialog;
+                close;
+            }
+        }
+    }
     @map$ = "018-3";
     @x0 = 56;
     @y0 = 22;
diff --git a/npc/027-2/alacrius.txt b/npc/027-2/alacrius.txt
index 5c5e0094..f1dd9a26 100644
--- a/npc/027-2/alacrius.txt
+++ b/npc/027-2/alacrius.txt
@@ -12,8 +12,10 @@
 
 L_Quest:
     // Rand() is probably not the best way to do that.
-    if (!#CRYPT_PASSWORD)
-        #CRYPT_PASSWORD = rand(4095);
+    if (!#CRYPT_PASSWORD) {
+        #CRYPT_PASSWORD = rand2(4095);
+        setq Quest_Reapercry, 1;
+    }
     next;
     mes "##1--------- The Alacrius Riddle";
     mes "";
diff --git a/npc/099-7/boss.txt b/npc/099-7/boss.txt
index 7f47910e..d6a6ac20 100644
--- a/npc/099-7/boss.txt
+++ b/npc/099-7/boss.txt
@@ -709,3 +709,20 @@ L_Done:
     end;
 }
 
+099-7,95,33,0	script	An Evil Obelisk	NPC185,{
+    mes l("An evil obelisk. Totally not suspcious. At all.");
+    // 1 = Assigned; 2 = Warped; 3 = Obelisk
+    if (getq(Quest_Reapercry) == 2) {
+        next;
+        mesc l("(You touch the mysterious obelisk. Somehow you feels peace and pain at the same time.)");
+        mesc l("(Suddenly a strange sensation flows through you. It feels like your body leaves your soul and becomes one with the stone.)");
+        mesc l("(As suddenly as the feeling started it stops. The strange attraction is away from one moment to the next and the obelisk feels like just an ordinary evil stone.)");
+        setq Quest_Reapercry, 3;
+    }
+    close;
+
+OnInit:
+    .distance=3;
+    end;
+}
+
-- 
cgit v1.2.3-60-g2f50