Trocador de Moedas por Itens ~ Wenden [PEDIDO]

/*
      ___           ___           ___                         ___           ___
     /\  \         /\__\         /\  \         _____         /\__\         /\  \
    _\:\  \       /:/ _/_        \:\  \       /::\  \       /:/ _/_        \:\  \
   /\ \:\  \     /:/ /\__\        \:\  \     /:/\:\  \     /:/ /\__\        \:\  \
  _\:\ \:\  \   /:/ /:/ _/_   _____\:\  \   /:/  \:\__\   /:/ /:/ _/_   _____\:\  \
 /\ \:\ \:\__\ /:/_/:/ /\__\ /::::::::\__\ /:/__/ \:|__| /:/_/:/ /\__\ /::::::::\__\
 \:\ \:\/:/  / \:\/:/ /:/  / \:\~~\~~\/__/ \:\  \ /:/  / \:\/:/ /:/  / \:\~~\~~\/__/
  \:\ \::/  /   \::/_/:/  /   \:\  \        \:\  /:/  /   \::/_/:/  /   \:\  \
   \:\/:/  /     \:\/:/  /     \:\  \        \:\/:/  /     \:\/:/  /     \:\  \
    \::/  /       \::/  /       \:\__\        \::/  /       \::/  /       \:\__\
     \/__/         \/__/         \/__/         \/__/         \/__/         \/__/

*/
// Porfavor não retire os créditos.

prontera,147,169,5	script	Trocador de Moedas	47,{

// Configurações
set @id,7539; // Id da Moeda [Padrão: 7539 = Moeda Poring]
setarray @p[0],607,608,678; // Itens que poderão ser trocados no NPC [Padrão: 607 = Fruto de Ygg / 608 = Semente de Ygg / 678 = Garrafa de Veneno]
setarray @x[0],10,5,7; // Preço dos itens que poderão ser trocados no NPC [Padrão: 10 Fruto de Ygg / 5 Semente de Ygg / 7 Garrafa de Veneno]

	Mes "["+strnpcinfo(1)+"]";
	Mes "Veio trocar suas ^FF0000"+getitemname(@id)+"^000000?";
	next;
		if(select("Sim:Não") == 2) Close;

		if(!countitem(@id)){
		Mes "["+strnpcinfo(1)+"]";
		Mes "Você não tem nenhuma ^FF0000"+getitemname(@id)+"^000000.";
		Close;
		}
		Mes "["+strnpcinfo(1)+"]";
		Mes "Agora escolha qual item deseja";
		Mes "trocar por suas ^FF0000"+getitemname(@id)+"^000000.";
		next;

		set @menu$,"";
		for(set @i,0; @i < getarraysize(@p); set @i,@i+1)
		set @menu$,@menu$+""+getitemname(@p[@i])+" - ^FF0000"+@x[@i]+"^000000x "+getitemname(@id)+":";
		set @menu$,@menu$+"Cancelar";
		set @sel,select(@menu$)-1;
		if(@sel == getarraysize(@p)) Close;

			Mes	"["+strnpcinfo(1)+"]";
			Mes "Agora me diga quantos";
			Mes "^FF0000"+getitemname(@p[@sel])+"^000000 você quer.";
			Mes "- 0 para Cencelar.";
			next;
				input @qnt;
				if(@qnt == 0) Close;
				set @cost,@x[@sel]*@qnt;

					Mes	"["+strnpcinfo(1)+"]";
					Mes "^FF0000"+@qnt+"^000000x ^FF0000"+getitemname(@p[@sel])+"^000000";
					Mes "São ^FF0000"+@cost+"^000000x ^FF0000"+getitemname(@id)+"^000000.";
					Mes "Deseja realizar a troca?";
					next;
						if(select("Sim:Não") == 2) Close;

						if(countitem(@id) < @cost){
						Mes	"["+strnpcinfo(1)+"]";
						Mes "Você não tem ^FF0000"+getitemname(@id)+"^000000";
						Mes "suficientes para realizar a troca.";
						Close;
						}
							Mes	"["+strnpcinfo(1)+"]";
							Mes "Está feito...";
							Mes "Aqui está seus";
							Mes "^FF0000"+getitemname(@p[@sel])+"^000000.";
							Mes "Volte sempre que precisar.";
							Close2;
							delitem @id,@cost;
							getitem @p[@sel],@qnt;
							end;
}