change item to other item

prontera,150,180,4	script	Exchanger	4_F_BRZ_WOMAN,{

	mes .n$;
	mes "I can exchange your "+getitemname(.exc_id)+"s for other items.";
	mes "Please select from the list what you want.";
	mes " ";
	mes "Currency: "+ getitemname(.exc_id);
	next;
	for( .@m = 0; .@m < getarraysize(.item); .@m ++ )
		.@g_menu$ = .@g_menu$ + "- "+ getitemname(.item[.@m]) +" ("+ .cost[.@m] +") "+ ( (.item[.@m+1] != 0)?":":"");
		.@g = select(.@g_menu$) - 1;
	mes .n$;
	mes "You have chosen "+ getitemname(.item[.@g]) +" for the price of "+ .cost[.@g] +" "+ getitemname(.exc_id) +"s";
	mes "Is that correct?";
	next;
	if( select("- Yes:- No" ) - 1) close;
		mes .n$;
	if( countitem(.exc_id) < .cost[.@g] ) {
		mes "I'm sorry, but you don't have enough "+getitemname(.exc_id)+", please come back when you have enough.";
		close;
	}
	getitem .item[.@g],1;
	delitem .exc_id,.cost[.@g];
	mes "Exchange complete.";
	close;

OnInit:
	.n$ = "[ "+ strnpcinfo(0) +" ]";
	.exc_id = 501;
	setarray .item[0],603,13890,13889,618,616;
	setarray .cost[0],1,1,1,1,1;
	end;
}