From 5cf34fcb5f3ed3bb5515106cb53d728a7893535d Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Mon, 15 Jul 2019 17:39:14 -0300
Subject: Researcher can now decrypt Ancient Blueprints for you

---
 npc/003-0-1/researcher.txt | 61 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 61 insertions(+)

(limited to 'npc')

diff --git a/npc/003-0-1/researcher.txt b/npc/003-0-1/researcher.txt
index dc6a4f978..1b683f9f5 100644
--- a/npc/003-0-1/researcher.txt
+++ b/npc/003-0-1/researcher.txt
@@ -7,11 +7,72 @@
 003-0-1,58,29,0	script	Researcher	NPC_BLACKALCHEMIST,{
     mesn;
     mesq l("I've mastered the art of reading ancient languages.");
+    next;
+    mesn;
+    mesq l("For only @@ GP, I'll decrypt any ancient text file you have. Or you can learn how to read that yourself, for @@ GP.", .price, .learn);
+    next;
+    select
+        l("I want you to decrypt something"),
+        l("I want to learn reading ancient languages"),
+        l("Nothing, sorry.");
+    switch (@menu) {
+        case 1:
+            if (Zeny < .price) {
+                mesc l("You don't have enough GP."), 1;
+                close;
+            }
+
+            mes b(l("Drag and drop an item from your inventory."));
+            .@id = requestitem();
+
+            // If ID is invalid
+            if (.@id < 1) {
+                mesc l("You give up.");
+                close;
+            }
+            // No item, or bound item
+            if (countitem(.@id) < 1 || checkbound(.@id)) {
+                if (checkbound(.@id))
+                    mesc l("You cannot part with this item!");
+                else
+                    mesc l("You give up.");
+                close;
+            }
+
+            switch (.@id) {
+                case AncientBlueprint:
+                    Zeny-=.price;
+                    delitem AncientBlueprint;
+                    MakeRandomBlueprint();
+                    break;
+                case DesertTablet:
+                    mesn;
+                    mesq l("Sorry, it looks like Saulc wrote on this stone. It is entirely illegible... for now.");
+                    break;
+                default:
+                    mesn;
+                    mesq l("Uhm, I don't think this item needs my skills.");
+                    break;
+            }
+            break;
+        case 2:
+            mesn;
+            mesq l("Wait, it is not so simple as giving me money.");
+            next;
+            mesn;
+            mesq l("What do you think learning is, magic?!");
+            next;
+            mesn;
+            mesq l("Go away. Maybe another time.");
+            break;
+    }
     close;
 
 OnInit:
     .sex=G_MALE;
     .distance=5;
+    .price=350;
+    .learn=5000;
     end;
 }
 
-- 
cgit v1.2.3-70-g09d2