//gold or iron
021-2.gat,23,55,0   script  machinary   160,{
    set @IRON_ITEM, 640;
        set @IRI_COAL, 10;
        set @IRI_GP, 1000;
        set @IRI_iron, 5;
    set @GOLD_ITEM, 4029;
        set @IRI_COAL_G, 15;
        set @IRI_GP_G, 2000;
        set @IRI_Gold, 6;
    set @COAL_ITEM, 4001;
    set @IRON_INGOT, 4015;
    set @GOLD_INGOT, 4030;
    mes "[machinary]";
    mes "";
    menu    "Do Iron Ingot", -,
            "Do Gold Ingot", -,
            "actualy, what do I need to bring ?", -,
            "good bye then.", -;
        if (@menu == 1) set @choice, 1;
        if (@menu == 2) set @choice, 2;
        if (@menu == 3) goto L_make;
        if (@menu == 4) close;
    if (@choice == 1) setarray @req_items, @IRON_ITEM, @IRI_COAL, @IRI_GP, @IRI_iron, @IRON_INGOT;
    if (@choice == 2) setarray @req_items, @GOLD_ITEM, @IRI_COAL_G, @IRI_GP_G, @IRI_Gold, @GOLD_INGOT;
    mes "[machinary]";
    mes "how many "+getitemname(@req_items[4])+"you would like to have ?";
    input @NR;
    if (@NR == 0) goto L_bye;
    if (@coutitem(@req_items[4]) goto L_after;
    getinventorylist;
    if (@inventorylist_count == 100 || @coutitem(@req_items[0]) => @NR*@req_items[3] || @coutitem(@COAL_ITEM) => @NR*@req_items[1]  ) goto L_tooweight;
L_after:
//do you have all the item req ?
    if (@coutitem(@req_items[0]) < @NR*@req_items[3]) goto L_Itemout;
    if (@countitem(@COAL_ITEM) < @NR*@req_items[1]) goto L_coal;
    if (@zeny < (@NR*@IRI_GP)) goto L_noGP;
//player have all item req
    //del them all !
        delitem @req_items[0], @NR*@req_items[3];
        delitem @COAL_ITEM, @NR*@req_items[1];
        set zeny, @NR*@IRI_GP;
    //redward !
        getitem @req_items[4], @NR;
    close;
L_Itemout:
    mes "[machinary]";
    mes ((@NR*@req_items[3])-countitem(@req_items[0]))+" "+ getitemname(@req_items[0])+" are not here, try to get them.";
close;
L_coal:
    mes "[machinary]";
    mes ((@NR*@req_items[1])-countitem(@COAL_ITEM))+" Coal are missing, try to get them.";
close;
L_noGP:
    mes "[machinary]";
    mes "Do you think it's free ? Get "+((@NR*@req_items[1]) - zeny)+" if you want to have "+ @NR +" "+getitemname(@req_items[4])+".";
close;
L_make:
    mes "[machinary]";
    mes "Notice: for do an Iron Ingot, you need to stop being a faggot and close minecraft";
    mes "- 5 irons ores";
    mes "- 10 coals";
    mes "- 1000 gp";
    next;
    mes "[machinary]";
    mes "Notice: for do an Gold Ingot, you need";
    mes "- 6 golds ores";
    mes "- 15 coals";
    mes "- 2000 gp";
    close;
L_bye:
    mes "[machinary]";
    mes "you cannot put anything in the machinery and win something for free.";
    close;

L_tooweight:
set @this$, "this"
if(@NR => 2) set @this$, "these";
    mes "[machinary]";
    mes "you won't be able to carry "+ @this$ +" "+ getitemname(@req_items[4]) +".";
    close;

}