try this
prontera,155,181,5 script Sample 757,{
// What Item you want to Make ?
set .GiveItem,5001;
// Item Requirements + Amounts
setarray .Item[0],
607,100,
608,50,
512,200;
for( set .@i,0; .@i < getarraysize( .Item ) - 1; set .@i,.@i + 2 )
if( countitem( .Item[.@i] ) < .Item[.@i + 1] ){
for( set .@i,0; .@i < getarraysize( .Item ) - 1; set .@i,.@i + 2 )
mes "Need "+.Item[.@i + 1]+" x "+getitemname( .Item[.@i] );
close;
}
if( select("Make ^FF0000"+getitemname( .GiveItem )+"^000000:Cancel") == 2 ) close;
for( set .@i,0; .@i < getarraysize( .Item ) - 1; set .@i,.@i + 2 )
delitem .Item[ .@i ],.Item[ .@i + 1 ];
getitem .GiveItem,1;
mes "You have Make ^FF0000"+getitemname( .GiveItem )+"^000000";
announce "["+strcharinfo(0)+"] has made ["+getitemname( .GiveItem )+"]",0;
close;
}