prt_in,31,109,4	script	AD Set Dealer	871,{

mes "Please think TWICE before select the item(s).";
mes "You need ^0055FF"+getitemname(.cost_id)+"^000000 to buy it.";
mes "^FF0000WARNING^000000 : Make sure you have enough weight to carry items before it drops on the floor !";
mes "GMs will not take any responsibilities of this case.";
set .@i,select( .menu$ ) - 1;
if( countitem( .cost_id ) < .cost[.@i] ){
	mes "You need ^FF0000"+.cost[.@i]+" x "+getitemname(.cost_id)+"^000000";
}else{
	mes "Here your item...";
	mes "^FF0000"+.amount[.@i]+" x ^0055FF"+getitemname(.item_id[.@i])+"^000000";
	if( select( "Sure?","No" ) == 2 ) close;
	delitem .cost_id,.cost[.@i];
	getitem2 .item_id[.@i],.amount[.@i],1,0,0,0,0,0,0;
}
close;

OnInit:
set .cost_id,7539;
setarray .item_id,7135;
setarray .cost,1;
setarray .amount,10;

set .item_id_size,getarraysize( .item_id );
for( set .@i,0; .@i < .item_id_size; set .@i,.@i + 1 )
	set .menu$,.menu$ + "^FF0000"+.amount[.@i]+" x ^0055FF"+getitemname(.item_id[.@i])+" ^777777- "+.cost[.@i]+" "+getitemname( .cost_id )+"^000000" + ":";
end;
}