Trocador de Bandeiras por ROPs ~ Wenden [PEDIDO]

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

*/

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

set @id,7549; // Id da Bandeira
setarray @p[0],5,3; // Quantos bandeiras serão precisa para trocar por 1 ROPs Point. [Padrão: 5 Jogadores normais / 3 Vips].
set @v,1; // Level do seu vip.

	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 "Vou lhe explicar como trabalho...";
		Mes "Para cada ^FF0000["+@p[0]+"]^000000 "+getitemname(@id)+"";
		Mes "eu lhe dou 1 ROPs Point.";
		Mes "Jogadores Vip tem desconto comigo";
		Mes "só cobro ^FF0000["+@p[1]+"]^000000 "+getitemname(@id)+" deles.";
		next;
		Mes "["+strnpcinfo(1)+"]";
		Mes "E então... deseja trocar todas as";
		Mes "suas ^FF0000"+getitemname(@id)+"^000000?";
		next;
			if(select("Sim:Não") == 2) Close;
			set @c,countitem(@id);

			if(getgmlevel() < @v){
			if(countitem(@id) < @p[0]){
			Mes "["+strnpcinfo(1)+"]";
			Mes "Você precisar ter no mínimo ^FF0000["+@p[0]+"]^000000";
			Mes ""+getitemname(@id)+".";
			Mes "para realizar a troca.";
			Close;
			}
			set @t,@c/@p[0];
			Mes "["+strnpcinfo(1)+"]";
			Mes "Você possui ^FF0000["+@c+"]^000000";
			Mes ""+getitemname(@id)+".";
			Mes "Então, lhe darei ^FF0000"+@t+"^000000 ROPs Point.";
			Mes "Deseja completar a troca?";
			next;
				if(select("Sim:Não") == 2) Close;

				Mes "["+strnpcinfo(1)+"]";
				Mes "Troca realizada com sucesso!";
				Mes "Volte sempre que precisar.";
				Close2;
				set #CASHPOINTS,#CASHPOINTS+@t;
				delitem @id,@c;
				dispbottom "Você recebeu "+@t+" ROPs, seu novo saldo é de: "+#CASHPOINTS+" ROPs.";
				end;
		}
			if(getgmlevel() >= @v){
			if(countitem(@id) < @p[1]){
			Mes "["+strnpcinfo(1)+"]";
			Mes "Você precisar ter no mínimo ^FF0000["+@p[1]+"]^000000";
			Mes ""+getitemname(@id)+".";
			Mes "para realizar a troca.";
			Close;
			}
				set @t,@c/@p[1];
				Mes "["+strnpcinfo(1)+"]";
				Mes "Você possui ^FF0000["+@c+"]^000000";
				Mes ""+getitemname(@id)+".";
				Mes "Então, lhe darei ^FF0000"+@t+"^000000 ROPs Point.";
				Mes "Deseja completar a troca?";
				next;
					if(select("Sim:Não") == 2) Close;

					Mes "["+strnpcinfo(1)+"]";
					Mes "Troca realizada com sucesso!";
					Mes "Volte sempre que precisar.";
					Close2;
					set #CASHPOINTS,#CASHPOINTS+@t;
					delitem @id,@c;
					dispbottom "Você recebeu "+@t+" ROPs, seu novo saldo é de: "+#CASHPOINTS+" ROPs.";
					end;

		}
}