Move to a subdirectory

1 files changed, 152 insertions, 0 deletions

diff --git a/world/map/npc/018-2/miners.txt b/world/map/npc/018-2/miners.txt
new file mode 100644
index 00000000..1e337036
--- /dev/null
+++ b/world/map/npc/018-2/miners.txt
@@ -0,0 +1,152 @@
+// This NPC makes gem powders out of gemstones
+// Authors: Ali-G, enchilado, Jenalya
+
+018-2.gat,85,23,0	script	Malek	109,{
+
+	set @MIN_GEM_AMOUNT, 7;
+
+	if (Inspector == 10) goto L_NohMask;
+
+	mes "[Malek]";
+	mes "\"Hi, can I help you at all?\"";
+
+	if (FLAGS & FLAG_TOWEL_HELPED)
+		menu
+			"I'm looking for someone able to make gem powder.", L_GemPowder,
+			"I was just having a look, have a nice day.", L_abort;
+	menu
+		"I was just having a look, have a nice day.", L_abort;
+
+L_NohMask:
+	mes "[Malek]";
+	mes "\"Hi, can I help you at all?\"";
+
+	if (FLAGS & FLAG_TOWEL_HELPED)
+		menu
+			"I'm looking for someone able to make gem powder.", L_GemPowder,
+			"I was just having a look, have a nice day.", L_abort,
+			"The inspector sent me here to investigate.", L_Investigation;
+	menu
+		"I was just having a look, have a nice day.", L_abort,
+		"The inspector sent me here to investigate.", L_Investigation;
+
+L_Investigation:
+	set Inspector, 11;
+	mes "\"Yeah, we did hear a commotion. We thought we heard someone go down to the basement, but we checked the whole place over and didn't see anything out of the ordinary.\"";
+	close;
+
+L_GemPowder:
+	mes "[Malek]";
+	mes "\"My father taught me how to make that sort of powder. Put the gem on a firm surface, hold your pickaxe tight and whack that gem hard. It'll be crushed into powder pretty soon if you keep at it.\"";
+	mes "\"Do you want me to make any for you?\"";
+
+	menu
+		"Yes, I really need some.", L_GemPowderStart,
+		"Actually, I don't want anything. Have a nice day.", L_abort;
+
+L_GemPowderStart:
+	mes "[Malek]";
+	mes "\"Well, I can do that. Bring me a gem and I'll make you some powder - hope you don't mind if I keep a little as payment!\"";
+
+	menu
+		"I've got some gems.", L_Check_Gems,
+		"I'll be back with a gem soon.", L_abort,
+		"Actually, I prefer my gems whole. Thanks anyway.", L_abort;
+
+L_Check_Gems:
+        mes "[Malek]";
+        mes "\"Which gem do you want me to powder for you?\"";
+        next;
+        setarray @menuitems$, "", "", "", "", "", "", "";
+        set @c, 0;
+
+L_Check_Diamond:
+        if (countitem("GemRawWhite") < 1) goto L_Check_Ruby;
+        set @menuitems$[@c], "A diamond.";
+        set @menuid[@c], 0;
+        set @c, @c + 1;
+
+L_Check_Ruby:
+        if (countitem("GemRawRed") < 1) goto L_Check_Emerald;
+        set @menuitems$[@c], "A ruby.";
+        set @menuid[@c], 1;
+        set @c, @c + 1;
+
+L_Check_Emerald:
+        if (countitem("GemRawGreen") < 1) goto L_Check_Sapphire;
+        set @menuitems$[@c], "An emerald.";
+        set @menuid[@c], 2;
+        set @c, @c + 1;
+
+L_Check_Sapphire:
+        if (countitem("GemRawBlue") < 1) goto L_Check_Topaz;
+        set @menuitems$[@c], "A sapphire.";
+        set @menuid[@c], 3;
+        set @c, @c + 1;
+
+L_Check_Topaz:
+        if (countitem("GemRawYellow") < 1) goto L_Check_Amethyst;
+        set @menuitems$[@c], "A topaz.";
+        set @menuid[@c], 4;
+        set @c, @c + 1;
+
+L_Check_Amethyst:
+        if (countitem("GemRawPurple") < 1) goto L_Choose_Gem;
+        set @menuitems$[@c], "An amethyst.";
+        set @menuid[@c], 5;
+        set @c, @c + 1;
+
+L_Choose_Gem:
+        set @menuitems$[@c], "None right now, thanks.";
+        set @menuid[@c], 6;
+        set @c, @c + 1;
+        menu
+                @menuitems$[0], -,
+                @menuitems$[1], -,
+                @menuitems$[2], -,
+                @menuitems$[3], -,
+                @menuitems$[4], -,
+                @menuitems$[5], -,
+                @menuitems$[6], -;
+        set @menu, @menu - 1;
+        if (@menu >= @c) close;
+        if (@menuid[@menu] == 0) set @gem$, "GemRawWhite";
+        if (@menuid[@menu] == 1) set @gem$, "GemRawRed";
+        if (@menuid[@menu] == 2) set @gem$, "GemRawGreen";
+        if (@menuid[@menu] == 3) set @gem$, "GemRawBlue";
+        if (@menuid[@menu] == 4) set @gem$, "GemRawYellow";
+        if (@menuid[@menu] == 5) set @gem$, "GemRawPurple";
+        if (@menuid[@menu] == 6) goto L_abort;
+
+	getinventorylist;
+	if (countitem(@gem$) < 1) goto L_no_gem;
+	if (@inventorylist_count == 100 && countitem(@gem$) > 1) goto L_TooMany;
+	delitem @gem$, 1;
+	if (@gem$ == "GemRawWhite") getitem "GemPowderWhite", @MIN_GEM_AMOUNT + rand(6) + rand(6);
+	if (@gem$ == "GemRawRed") getitem "GemPowderRed", @MIN_GEM_AMOUNT + rand(6);
+	if (@gem$ == "GemRawGreen") getitem "GemPowderGreen", @MIN_GEM_AMOUNT + rand(6);
+	if (@gem$ == "GemRawBlue") getitem "GemPowderBlue", @MIN_GEM_AMOUNT + rand(6);
+	if (@gem$ == "GemRawYellow") getitem "GemPowderYellow", @MIN_GEM_AMOUNT + rand(6);
+	if (@gem$ == "GemRawPurple") getitem "GemPowderPurple", @MIN_GEM_AMOUNT + rand(6);
+
+	mes "[Malek]";
+	mes "\"Here's your powder. Hope it's fine enough for you.\"";
+	mes "\"Do you need me to make any more?\"";
+
+	menu
+		"Yes please.", L_Check_Gems,
+		"No thank you, this is enough.", L_abort;
+
+L_TooMany:
+	mes "[Malek]";
+	mes "\"Doesn't look like you've got room for this powder. Come back when you do.\"";
+	close;
+
+L_no_gem:
+	mes "[Malek]";
+	mes "\"You don't have that gem.\"";
+	close;
+
+L_abort:
+	close;
+}