// Author:
//    Saulc

003-1,45,80,0	script	Well	NPC_NO_SPRITE,{

    .Item1 = IronOre; //7
    .GP = 8500;
    .ItemCreate = IronIngot;

    function quest_create {
        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
            l("How many ingots do you want to make?");
        input .amount;

        if (countitem("Iron Ore") >= .amount * 7 && Zeny >= 8500 * .amount)
        {
            delitem .Item1, .amount * 7;
            Zeny = Zeny - .amount * .GP;
            getitem .ItemCreate, .amount;
            close;
        }
        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
                l("You don't have enough ore.");
        close;
        
    }

    speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
        l("Hello! Do you want to craft @@? For that I will need 7 @@, and @@ gp.", getitemlink(.ItemCreate),getitemlink(.Item1),.GP);

    do
    {
        .@karim = getq(Karim_Quest);
        select
            l("Yes"),
            menuaction(l("Quit"));

        switch (@menu)
        {
            case 1:
                quest_create;
                break;
        }
    } while (@menu != 2);

    closedialog;
    goodbye;
    close;

OnInit:
    .sex = G_MALE;
    .distance = 3;
    end;
}