From cc4993552570ed1a06d3a9c3b8b5ed8222ff7d81 Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Tue, 19 Oct 2021 17:51:26 -0300
Subject: Tametomo's Quest

---
 npc/031-7/tametomo.txt | 54 ++++++++++++++++++++++++++++++++++++++++++++++++--
 1 file changed, 52 insertions(+), 2 deletions(-)

diff --git a/npc/031-7/tametomo.txt b/npc/031-7/tametomo.txt
index 03a7770bc..d55b85260 100644
--- a/npc/031-7/tametomo.txt
+++ b/npc/031-7/tametomo.txt
@@ -5,13 +5,63 @@
 //    Questmaker Handbook 14.0 (F = Favorable)
 
 031-7,76,49,2	script	Tametomo	NPC_SAVIOR,{
-    .@q = getq(AethyrQuest_Tametomo);
     if (BaseLevel < 90) {
         mesc l("The wizard seems busy. He ignores you.");
         close;
     }
+    .@q = getq(AethyrQuest_Tametomo);
+    .@bt = (.@q & 1);
+    .@lp = (.@q & 2);
+
+    // Generate the dialog
+    .@m$="";
+    if (!.@bt)
+        .@m$+="unless you have a "+getitemlink(Butterfly)+","
+    if (!.@q)
+        .@m$+=" or "
+    if (!.@lp)
+        .@m$+="unless you have a "+getitemlink(LavaManaPearl)+","
+
     mesn;
-    mesq l("Go away.");
+    mesq l("Go away, %s can't you see I'm busy?", .@m$);
+
+    // Generate the menu
+    if (!.@bt && countitem(Butterfly))
+        .@showbt=true;
+    if (!.@lp && countitem(LavaManaPearl))
+        .@showlp=true;
+    if (!.@showbt && !.@showlp)
+        close;
+
+    select
+        l("Sure, sure, I'm going..."),
+        rif(.@showbt, l("I have a butterfly.")),
+        rif(.@showlp, l("I have a lava mana pearl."));
+    mes "";
+    switch (@menu) {
+    case 2:
+    case 3:
+        mesn;
+        mesq l("%s Monster Points, and a %s. That's my final offer.", fnum(35000), getitemlink(EquipmentBlueprintE));
+        next;
+        inventoryplace EquipmentBlueprintE, 1;
+        mesc l("Accept offer?");
+        if (askyesno() == ASK_NO) close;
+        if (@menu == 2 && !.@bt) {
+            delitem Butterfly, 1;
+            setq AethyrQuest_Tametomo, .@q | 1;
+            Mobpt+=35000;
+            getitem EquipmentBlueprintE, 1;
+        }
+        if (@menu == 3 && !.@lp) {
+            delitem LavaManaPearl, 1;
+            setq AethyrQuest_Tametomo, .@q | 2;
+            Mobpt+=35000;
+            getitem EquipmentBlueprintE, 1;
+        }
+        mesn;
+        mesq l("Hmpf. A pleasure doing business with you.");
+    }
     close;
 
 OnInit:
-- 
cgit v1.2.3-70-g09d2