009-2,181,56,0	script	Nahrec	NPC311,{
    mes "[Nahrec]";
    mes "\"Ah, hello! It is good to see another traveler in this town!\"";
    next;
    menu
        "Really? Where are you from?", L_Story,
        "It's good to see you too, do you happen to be able to make stuff?", L_Makestuff,
        "Alright.", L_close;

L_Story:
    mes "[Nahrec]";
    mes "\"I came from Thermin, a town in the Kazei area.\"";
    next;
    mes "\"I'm an experienced weapon master helping this smithy here, but I am new in this town. I am best at smithing armor.\"";
    next;
    menu
        "'Best'? So you can make other things?", L_Makestuff,
        "Good to know.", L_close;

L_Makestuff:
    mes "[Nahrec]";
    mes "\"Yes, I can craft many things. In addition to plating and improving armor, I can craft smaller items made of gold and other metals.\"";
    menu
        "Can you make a monocle for me? I want that...classy look...", L_Monocle,
        "Can you improve my Warlord Plate for me?", L_Goldenwplate,
        "Can you improve my Light Platemail for me?", L_Goldenlplate,
        "Can you craft Savior Pants?", L_Saviorpants,
        "Do you know something about 'Mylarin Dust'?", L_Mylarin,
        "Nevermind, bye!", L_close;

L_Mylarin:
    if (countitem("MylarinDust") == 0) goto L_No_Mylarin;
    mes "[Nahrec]";
    mes "\"Mylarin dust?! Where did you get that? That's amazing!\"";
    next;
    mes "\"I can craft you an amazingly strong armor with that - uhm, well, I first need to set up my smithy here.\"";
    next;
    mes "\"Please come back, when I'm ready with that. Mylarin dust... amazing.\"";
    goto L_close;

L_No_Mylarin:
    mes "[Nahrec]";
    mes "\"Mylarin dust!? I do indeed, but I don't suppose you have any.\"";
    next;
    mes "Nahrec sighs.";
    mes "\"Ah well, I'm not prepared to work with Mylarin right now anyways. I suppose I should get back to setting up my forge.\"";
    goto L_close;

L_Goldenwplate:
    mes "[Nahrec]";
    mes "\"I can plate that armor in gold if you so wish, I will need 30 gold ore and 450,000gp.\"";
    if (countitem("Gold") < 30) goto L_Missing;
    if (countitem("WarlordPlate") < 1) goto L_Missing;
    if (Zeny < 450000) goto L_NotEnoughMoney;
    getinventorylist;
    if (@inventorylist_count == 100 && countitem("Gold") > 30) goto L_Full;
    delitem "Gold", 30;
    delitem "WarlordPlate", 1;
    Zeny = Zeny - 450000;
    getitem "GoldenWarlordPlate", 1;
    mes "[Nahrec]";
    mes "\"There you go!\"";
    goto L_close;

L_Goldenlplate:
    mes "[Nahrec]";
    mes "\"I can plate that armor in gold if you so wish, I will need 20 gold ore and 250,000gp.\"";
    if (countitem("Gold") < 20) goto L_Missing;
    if (countitem("LightPlatemail") < 1) goto L_Missing;
    if (Zeny < 250000) goto L_NotEnoughMoney;
    getinventorylist;
    if (@inventorylist_count == 100 && countitem("gold") > 20) goto L_Full;
    delitem "Gold", 20;
    delitem "LightPlatemail", 1;
    Zeny = Zeny - 250000;
    getitem "GoldenPlatemail", 1;
    mes "[Nahrec]";
    mes "\"There you go!\"";
    goto L_close;

L_Monocle:
    mes "[Nahrec]";
    mes "\"Yes, I can craft a monocle. For this, I would need you to bring me a Standard Headband, 5 gold ore, and 50,000gp\"";
    menu
        "I have the items you need.", L_Monocle2,
        "I can have those soon...", L_Beback,
        "That's lame.", L_close;

L_Monocle2:
    if (countitem("Gold") < 5) goto L_Missing;
    if (countitem("StandardHeadband") < 1) goto L_Missing;
    if (Zeny < 50000) goto L_NotEnoughMoney;
    getinventorylist;
    if (@inventorylist_count == 100 && countitem("Gold") > 5) goto L_Full;
    delitem "Gold", 5;
    delitem "StandardHeadband", 1;
    Zeny = Zeny - 50000;
    getitem "Monocle", 1;
    mes "[Nahrec]";
    mes "\"There you go!\"";
    goto L_close;

L_Saviorpants:
    mes "[Nahrec]";
    mes "\"I can craft Savior Pants. I'll need 30 gold ore, 1 pair of cotton trousers, and 200,000gp.\"";
    menu
        "I have what you need.", L_Saviorpants2,
        "I'll be back with those items..", L_Beback,
        "That's crazy!", L_close;

L_Saviorpants2:
    if (countitem("Gold") < 30 || countitem("CottonTrousers") < 1) goto L_Missing;
    if (Zeny < 200000) goto L_NotEnoughMoney;
    getinventorylist;
    if (@inventorylist_count == 100 && countitem("Gold") > 30) goto L_Full;
    delitem "Gold", 30;
    delitem "CottonTrousers", 1;
    Zeny = Zeny - 200000;
    getitem "SaviorPants", 1;
    mes "[Nahrec]";
    mes "\"There you go!\"";
    goto L_close;

L_Full:
    mes "[Nahrec]";
    mes "\"It looks like you don't have room for this item. Come back when you have more room!\"";
    goto L_close;

L_Beback:
    mes "[Nahrec]";
    mes "\"Be back soon with the items I need!\"";
    goto L_close;

L_Missing:
    mes "[Nahrec]";
    mes "\"It looks like you're missing some items. Please come back when you have what I need!\"";
    goto L_close;

L_NotEnoughMoney:
    mes "[Nahrec]";
    mes "\"You don't have enough money, come back later!\"";
    goto L_close;

L_close:
    close;
}