// This NPC makes gem powders

018-2.gat,85,23,0	script	Miner	109,{
	if (Inspector == 10) goto L_NohMask;

	mes "[Miner]";
	mes "\"Hello, how can I help you?\"";

	menu
		"I am looking for someone able to make gem powder.", L_GemPowder,
		"I was just having a look, have a nice day.", L_abort;

L_NohMask:
	mes "[Miner]";
	mes "\"Hello, how can I help you?\"";

	menu
		"I am looking for someone able to make gem powder.", L_GemPowder,
		"I was just having a look. Bye.", L_abort,
		"The inspector sent me here to investigate.";
	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 "[Miner]";
	mes "\"My father teached me how to make that sort of powder. Grab your pickaxe firmly in your hands and strike hard the gem. You'll get some powder quite quickly.
	mes "\"Do you want me to make some for you?\"";

	menu
		"Yes, I would really like you to help me.", L_GemPowderStart,
		"In fact I don't want anything, have a nice day.", L_abort;

L_GemPowderStart:
	mes "[Miner]";
	mes "\"Oh, of course I can help you make some gem powder but I would need a gem to start with. Find me a gem and I will make you some powder. Come back when you'll have a gem.\"";

	menu
		"Here take a look at my stuff.", L_Look,
		"I will be back with what you've asked.", L_abort,
		"In fact I don't want any gem powder, I prefer gemstones. Bye.", L_abort;

L_Look:
	if ((countitem("Diamond") < 1) && (countitem("Ruby") < 1) && (countitem("Emerald") < 1) && (countitem("Sapphire") < 1) && (countitem("Topaz") < 1) && (countitem("Amethyst") < 1)) goto L_gem_powder_no_gem;
	mes "[Miner]";
	mes "\"I see you have some interesting things here. Which gem would you like me to crush into powder?\"";

	menu
		"Diamond", L_Diamond,
		"Ruby", L_Ruby,
		"Emerald", L_Emerald,
		"Sapphire", L_Sapphire,
		"Topaz", L_Topaz,
		"Amethyst", L_Amethyst,
		"In fact I'll keep my stuff for now.", L_abort;

L_Check_Gems:
        mes "[Miner]";
        mes "\"Sure thing, pardner. What kinda gem powder d'you want?\"";
        next;
        setarray @menuitems$, "", "", "", "", "", "";
        set @c, 0;

L_Check_Emerald:
        if (countitem("GemRawGreen") < 1) goto L_Check_Sapphire;
        set @menuitems$[@c], "Emerald Powder.";
        set @menuid[@c], 0;
        set @c, @c + 1;

L_Check_Sapphire:
        if (countitem("GemRawBlue") < 1) goto L_Check_Amethyst;
        set @menuitems$[@c], "Sapphire Powder.";
        set @menuid[@c], 1;
        set @c, @c + 1;

L_Check_Amethyst:
        if (countitem("GemRawPurple") < 3) goto L_Check_Ruby;
        set @menuitems$[@c], "Amethyst Powder.";
        set @menuid[@c], 2;
        set @c, @c + 1;

L_Check_Ruby:
        if (countitem("GemRawRed") < 2) goto L_Check_Topaz;
        set @menuitems$[@c], "Ruby Powder.";
        set @menuid[@c], 3;
        set @c, @c + 1;

L_Check_Topaz:
        if (countitem("GemRawYellow") < 1) goto L_Check_Diamond;
        set @menuitems$[@c], "Topaz Powder.";
        set @menuid[@c], 4;
        set @c, @c + 1;

L_Check_Diamond:
        if (countitem("GemRawWhite") < 1) goto L_Choose_Gem;
        set @menuitems$[@c], "Diamond Powder.";
        set @menuid[@c], 5;
        set @c, @c + 1;

L_Choose_Gem:
        set @menuitems$[@c], "Actually, I think I need the help of someone more skilled...";
        set @menuid[@c], 6;
        set @c, @c + 1;
        menu
                @menuitems$[0], -,
                @menuitems$[1], -,
                @menuitems$[2], -,
                @menuitems$[3], -,
                @menuitems$[4], -,
                @menuitems$[5], -,
                @menuitems$[6], -;
		@menuitems$[7], -;
        set @menu, @menu -1;
        if (@menu >= @c) close;
        if (@menuid[@menu] == 0) goto L_Powder_Emerald;
        if (@menuid[@menu] == 1) goto L_Powder_Sapphire;
        if (@menuid[@menu] == 2) goto L_Powder_Amethyst;
        if (@menuid[@menu] == 3) goto L_Powder_Ruby;
        if (@menuid[@menu] == 4) goto L_Powder_Topaz;
        if (@menuid[@menu] == 5) goto L_Powder_Diamond;
	mes "[Miner]";
	mes "\"Suit yerself.\"";
	close;

L_Diamond:
	getinventorylist;
	if (countitem("GemRawWhite") < 1) goto L_gem_powder_no_gem;
	if (@inventorylist_count == 100 && countitem("GemRawWhite") > 1) goto L_TooMany;
	delitem "GemRawWhite", 1;
	getitem "RingGemWhite", 1;
	goto L_ok;

L_Ruby:
	getinventorylist;
	if (countitem("GemRawRed") < 1) goto L_gem_powder_no_gem;
	if (@inventorylist_count == 100 && countitem("GemRawRed") > 1) goto L_TooMany;
	delitem "GemRawRed", 1;
	getitem "RingGemRed", 1;
	goto L_ok;

L_Emerald:
	getinventorylist;
	if (countitem("GemRawGreen") < 1) goto L_gem_powder_no_gem;
	if (@inventorylist_count == 100 && countitem("GemRawGreen") > 1) goto L_TooMany;
	delitem "GemRawGreen", 1;
	getitem "RingGemGreen", 1;
	goto L_ok;

L_Sapphire:
	getinventorylist;
	if (countitem("GemRawBlue") < 1) goto L_gem_powder_no_gem;
	if (@inventorylist_count == 100 && countitem("GemRawBlue") > 1) goto L_TooMany;
	delitem "GemRawBlue", 1;
	getitem "RingGemBlue", 1;
	goto L_ok;

L_Topaz:
	getinventorylist;
	if (countitem("GemRawYellow") < 1) goto L_gem_powder_no_gem;
	if (@inventorylist_count == 100 && countitem("GemRawYellow") > 1) goto L_TooMany;
	delitem "GemRawYellow", 1;
	getitem "RingGemYellow", 1;
	goto L_ok;

L_Amethyst:
	getinventorylist;
	if (countitem("RingGemPurple") < 1) goto L_gem_powder_no_gem;
	if (@inventorylist_count == 100 && countitem("RingGemPurple") > 1) goto L_TooMany;
	delitem "RingGemPurple", 1;
	getitem "RingGemPurple", 1;
	goto L_ok;

L_ok:
	mes "[Miner]";
	mes "\"Here are your powders. Use them well. I kept a few as a payment.\"";
	mes "\"Would you like me to make more powders?\"";

	menu
		"Yes please.", L_Look,
		"No thank you, I got what I wanted.", L_abort;

L_gem_powder_no_gem:
	mes "[Miner]";
	mes "\"I am sorry, I need at least a gem to make some powders and it seems you don't have any. Come back when you'll have one.\"";
	close;

L_TooMany:
	mes "[Miner]";
	mes "\"You are carrying too much stuff right now. Come back when you'll be less charged.\"";
	close;

L_abort:
	close;
}