From 9284a1c3406be2783c68aa05f11afee435887e57 Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Mon, 14 Sep 2020 23:10:00 -0300
Subject: Alchemy Table: Now you should be able to brew multiple instances at
 once! However, this is expensive. Sponsors, who pay for hardware, can brew up
 to 25x at once. Everyone else like me, who lives with other ppl money, will
 be capped to 10x at once.

I think 10 will be plenty without putting too much burden on the server.
---
 npc/commands/ucp.txt          | 25 ++++++++++++++++++++++---
 npc/craft/alchemy.txt         | 17 ++++++++++++++++-
 npc/functions/permissions.txt |  4 ++++
 3 files changed, 42 insertions(+), 4 deletions(-)

(limited to 'npc')

diff --git a/npc/commands/ucp.txt b/npc/commands/ucp.txt
index 5ad0c0182..f2dfd166f 100644
--- a/npc/commands/ucp.txt
+++ b/npc/commands/ucp.txt
@@ -201,6 +201,14 @@ function	script	UserCtrlPanel	{
                     mes l("Long Text Wall Density: ") + col(l("Compact")+": "+GSET_LONGMENU_DENSITY, 2);
 
 
+                // GSET_FIXED_ALCHEMY
+                // Alchemy Table Behavior
+                if (GSET_FIXED_ALCHEMY)
+                    mes l("Alchemy Table: ") + col(l("Never ask: Brew %d", GSET_FIXED_ALCHEMY), 1);
+                else
+                    mes l("Alchemy Table: ") + col(l("Ask everytime"), 2);
+
+
                 // GSET_ALCOHOL_NOOVERDRINK
                 // Should players be allowed to drink themselves to death?
                 if (GSET_ALCOHOL_NOOVERDRINK)
@@ -247,6 +255,7 @@ function	script	UserCtrlPanel	{
                     l("Toggle Soul Menhir automatic saving"),
                     l("Toggle Daily Reward screen"),
                     l("Text Wall Density"),
+                    l("Alchemy Table brewing"),
                     l("Lethal alcohol overdrinking"),
                     l("Show Tutorial Protips"),
                     rif($EVENT$ == "Valentine", ("Valentine Eating")),
@@ -274,12 +283,22 @@ function	script	UserCtrlPanel	{
 							GSET_LONGMENU_DENSITY+=1;
 						break;
                     case 5:
-                        GSET_ALCOHOL_NOOVERDRINK=!GSET_ALCOHOL_NOOVERDRINK; break;
+                        if (GSET_FIXED_ALCHEMY) {
+							GSET_FIXED_ALCHEMY=0;
+						} else {
+                            .@max=(is_sponsor() ? 25 : 10);
+                            mesc l("How many to brew? (%d-%d)", 0, .@max);
+                            input(GSET_FIXED_ALCHEMY, 0, .@max);
+							GSET_FIXED_ALCHEMY=limit(0, GSET_FIXED_ALCHEMY, 10);
+                        }
+						break;
                     case 6:
-                        TUTORIAL=!TUTORIAL; break;
+                        GSET_ALCOHOL_NOOVERDRINK=!GSET_ALCOHOL_NOOVERDRINK; break;
                     case 7:
-                        GSET_VALENTINE_EATALL=!GSET_VALENTINE_EATALL; break;
+                        TUTORIAL=!TUTORIAL; break;
                     case 8:
+                        GSET_VALENTINE_EATALL=!GSET_VALENTINE_EATALL; break;
+                    case 9:
                         GSET_AUTORECEIVE_COINS=!GSET_AUTORECEIVE_COINS; break;
                 }
                 clear;
diff --git a/npc/craft/alchemy.txt b/npc/craft/alchemy.txt
index e23416596..6e0084596 100644
--- a/npc/craft/alchemy.txt
+++ b/npc/craft/alchemy.txt
@@ -33,7 +33,22 @@ function	script	AlchemySystem	{
             .success=false;
     } else {
         if (.scope == CRAFT_NPC || .knowledge[.@entry]) {
-            usecraft .@craft;
+            if (GSET_FIXED_ALCHEMY) {
+                .@m=limit(1, GSET_FIXED_ALCHEMY, 25);
+            } else {
+                .@max=(is_sponsor() ? 25 : 10);
+                mesc l("How many to brew? (%d-%d)", 1, .@max);
+                input(.@m, 1, .@max);
+            }
+            // Alchemy loop
+            .@i=0;
+            while (.@i < .@m) {
+                .@s=usecraft(.@craft);
+                .@i++;
+                // Failed for whatever reason
+                if (!.@s)
+                    break;
+            }
             .success=true;
         } else {
             .success=false;
diff --git a/npc/functions/permissions.txt b/npc/functions/permissions.txt
index eaedcce92..2838f7a92 100644
--- a/npc/functions/permissions.txt
+++ b/npc/functions/permissions.txt
@@ -19,3 +19,7 @@ function	script	is_admin	{
 function	script	is_staff	{
     return (getgmlevel() >= 5);
 }
+
+function	script	is_sponsor	{
+    return (getgmlevel());
+}
-- 
cgit v1.2.3-70-g09d2