setarray .@item_req, 671,1,672,1;   // Item Required ( <item_id>,<amount>... )
setarray .@item_list, 1234,4321,1234,4321;  // Item List
 
for ( set .@i, 0; .@i < getarraysize(.@item_list); set .@i, .@i + 1 )
    set .@menu$, .@menu$ + (.@i?": ":"") + getitemname(.@item_list[.@i]);
 
mes "Possible Items";
set .@j, select ( .@menu$ ) - 1;
 
for ( set .@i, 0; .@i < getarraysize(.@item_req); set .@i, .@i + 2 )
{
    if ( countitem(.@item_req[.@j]) < .@item_req[.@j + 1] ) 
        set .@fail, 1;
}
 
if ( .@fail )
{   
    mes "Infsufficient materials.";
    close;
}
 
for ( set .@i, 0; .@i < getarraysize(.@item_req); set .@i, .@i + 2 )
    delitem .@item_req[.@i], .@item_req[.@i + 1];
    
getitem .@item_list[.@j], 1;