From 58b8f7a9cb6e282131a964692bd3a4cdffd2f9eb Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Thu, 19 Dec 2019 01:28:59 -0300
Subject: Allow you to make alchemy items in bulk. Wait, this feature was not
 planned for this maintenance. Whatever.

---
 world/map/npc/029-2/alchemy.txt | 41 ++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 40 insertions(+), 1 deletion(-)

diff --git a/world/map/npc/029-2/alchemy.txt b/world/map/npc/029-2/alchemy.txt
index 23f1c321..7bc58337 100644
--- a/world/map/npc/029-2/alchemy.txt
+++ b/world/map/npc/029-2/alchemy.txt
@@ -24,7 +24,8 @@
     // can not use a scope variable to store item names because menu is a script terminator (destroys the scope)
     menu
         "Abort Mission.", L_Abort,
-        "Proceed.", L_Proceed;
+        "Proceed.", L_Proceed,
+        "I want to make several.", L_Multi;
 
 L_Proceed:
     // XXX: here we could make it wait a little, while the potion is boiling (and show an animation/particles/sound)
@@ -69,6 +70,44 @@ L_Failed:
 L_Abort:
     close;
 
+// Bikeshedding starts here
+L_Multi:
+    mes "How many?";
+    mes "##BWarning! This will permanently destroy the selected items.##b";
+    input @count;
+    if (@count == 0)
+        close;
+
+    if (countitem(@alchlab_items$[0]) < @count || countitem(@alchlab_items$[1]) < @count)
+        goto L_NoItems;
+    delitem @alchlab_items$[0], @count;
+    delitem @alchlab_items$[1], @count;
+    if (@alchlab_items$[0] == "BottleOfWater" || @alchlab_items$[1] == "BottleOfWater")
+        getitem "EmptyBottle", if_then_else(@alchlab_items$[0] == "BottleOfWater" && @alchlab_items$[1] == "BottleOfWater",2*@count,@count);
+
+    set .@n, -3;
+    goto L_CheckRecipesMulti;
+
+L_CheckRecipesMulti:
+    set .@n, .@n+3;
+    if (.@n == get(.rsize, "_N-Alchemy"))
+        goto L_Failed;
+    if (!(get(.recipes$[.@n], "_N-Alchemy") == @alchlab_items$[0] && get(.recipes$[.@n+1], "_N-Alchemy") == @alchlab_items$[1]) &&
+        !(get(.recipes$[.@n], "_N-Alchemy") == @alchlab_items$[1] && get(.recipes$[.@n+1], "_N-Alchemy") == @alchlab_items$[0]))
+        goto L_CheckRecipesMulti;
+
+    getitem get(.recipes$[.@n+2], "_N-Alchemy"), @count;
+
+    clear;
+    mes "You combined the following:";
+    mes "     ["+ getitemlink(@alchlab_items$[0]) +"]";
+    mes "     ["+ getitemlink(@alchlab_items$[1]) +"]";
+    mes;
+    mes "You obtained:";
+    mes "     ["+ getitemlink(get(.recipes$[.@n+2], "_N-Alchemy")) +"]";
+    close;
+// Bikeshedding ends here
+
 S_Spawn:
     set .@s, getarraysize(.x1);
     if (.spawned >= .@s)
-- 
cgit v1.2.3-60-g2f50