// TMW2 scripts.
// Author:
//    Crazyfefe

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

    .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 enought quantity.");
        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_MALE;
    .distance = 3;
    end;
}