Reintroduce Alchemy (untested).

Close #27

2 files changed, 92 insertions, 0 deletions

diff --git a/npc/functions/alchemy.txt b/npc/functions/alchemy.txt
new file mode 100644
index 00000000..ea77011e
--- /dev/null
+++ b/npc/functions/alchemy.txt
@@ -0,0 +1,91 @@
+// TMW2 Script
+// Author:
+//  Jesusalva
+// Description:
+//  Alchemy System (oversimplified)
+
+// Usage: AlchemySystem ()
+// Returns true on success, false on failure
+function	script	AlchemySystem	{
+    .success=false;
+
+    setskin "craft2";
+    .@var$ = requestcraft(2);
+    .@craft = initcraft(.@var$);
+    .@entry = findcraftentry(.@craft, CRAFT_ALCHEMY);
+    if (debug || $@GM_OVERRIDE) mes "found craft entry: " + .@entry;
+    if (.@entry < 0) {
+            .success=false;
+    } else {
+        // Determine how many units to make
+        // This code comes from Moubootaur Legends
+        // Where sponsors could make up to 25 units
+        // And you could configure a fixed number to
+        // avoid prompts...
+        // ...
+        // PS. This is not using freeloop()
+        // Max amount is limited for performance.
+        if (GSET_FIXED_ALCHEMY) {
+            .@m=limit(1, GSET_FIXED_ALCHEMY, 25);
+        } else {
+            .@max=(is_trusted() ? 25 : 10);
+            mesc l("How many to brew? (%d-%d)", 1, .@max);
+            input(.@m, 1, .@max);
+        }
+        // Alchemy loop
+        .@i=0;
+        while (.@i < .@m) {
+            .@s=validatecraft(.@craft);
+            // Could not validate (not enough resources)
+            if (!.@s) {
+                mesc l("Insufficient materials to continue."), 1;
+                if (.@i)
+                    mesc l("Only %d/%d units were produced.", .@i, .@m), 1;
+                break;
+            }
+            .@s=usecraft(.@craft);
+            .@i++;
+            // Exploiting?!
+            if (!.@s)
+                break;
+        }
+        .success=true;
+    }
+    deletecraft .@craft;
+    setskin "";
+    return .success;
+}
+
+////////////////////////////////////////////////////////////////////////////////
+// Build the various crafting tables on the world
+001-2,92,76,0	script	#AlchemyTable000	NPC_NO_SPRITE,{
+    title l("Alchemy Lab");
+    mes l("This is an alchemy lab.");
+    mes l("With it, you can combine reagents together to create powerful potions.");
+    next;
+    mes b(l("Drag & drop 2 items from your inventory. All items used will be lost."));
+    if (AlchemySystem())
+        mesc l("Success!"), 3;
+    else
+        mesc l("That didn't work!"), 1;
+    close;
+
+OnInit:
+    .distance=2;
+    end;
+}
+
+// Tonori Region (0~99)
+001-2,92,89,0	duplicate(#AlchemyTable000)	#AlchemyTable001	NPC_NO_SPRITE
+001-2,98,76,0	duplicate(#AlchemyTable000)	#AlchemyTable002	NPC_NO_SPRITE
+001-2,98,89,0	duplicate(#AlchemyTable000)	#AlchemyTable003	NPC_NO_SPRITE
+
+// Argaes Region (100~199)
+026-2,35,117,0	duplicate(#AlchemyTable000)	#AlchemyTable100	NPC_NO_SPRITE
+
+// Candor Region (200~299)
+029-2,113,57,0	duplicate(#AlchemyTable000)	#AlchemyTable200	NPC_NO_SPRITE
+
+
+
+
diff --git a/npc/scripts.conf b/npc/scripts.conf
index cddf86da..606ab3ab 100644
--- a/npc/scripts.conf
+++ b/npc/scripts.conf
@@ -24,6 +24,7 @@
 "npc/functions/quests.txt",
 
 // Main Functions
+"npc/functions/alchemy.txt",
 "npc/functions/banker.txt",
 "npc/functions/barber.txt",
 "npc/functions/dailyquest.txt",