try this
prontera,155,181,5 script Sample 757,{
setarray .ItemLists,
7539,10,
7227,1,
607,100,
608,10;
mes "You need these items.";
for( set .@i,0; .@i < ( getarraysize( .ItemLists ) - 1 ); set .@i,.@i + 1 ){
mes getitemname( .ItemLists[ .@i ] )+" x "+.ItemLists[ .@i + 1 ];
if( countitem( .ItemLists[ .@i ] ) < .ItemLists[ .@i + 1 ] )
set .@x,1;
}
if( .@x ) close;
if( select("Warp:Cancel") == 2 ) close;
for( set .@i,0; .@i < ( getarraysize( .ItemLists ) - 1 ); set .@i,.@i + 1 )
delitem .ItemLists[ .@i ],.ItemLists[ .@i + 1 ];
warp "prontera",155,181;
end;
}