// TMW2 scripts.
// Author:
//    Crazyfefe
// Note: script works, but one may argue it is not complete

003-8,28,30,0	script	Jhedia	NPC_ELVEN_FEMALE,{

    .Item1 = IronOre; //7
    .Item2 = Coal; //11
    .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 && countitem("Coal") >= @amount * 11 && Zeny >= 8500 * @amount)
        {
            delitem .Item1, @amount * 7;
            delitem .Item2, @amount * 11;
            Zeny = Zeny - @amount * .GP;
            getitem .ItemCreate, @amount;
            close;
        }
        speech S_FIRST_BLANK_LINE,// | S_LAST_NEXT,
                l("You don't have enough material.");
        close;
        
    }

    speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
        l("Hello! Do you want to craft @@? For that i will need 7 @@, 11 @@ and @@ gp.", getitemlink(.ItemCreate),getitemlink(.Item1),getitemlink(.Item2),.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_FEMALE;
    .distance = 3;
    end;
}