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;