//===== eAthena Script =======================================
//= Gemstone trader
//===== By: ==================================================
//= L0ne_W0lf
//===== Current Version: =====================================
//= 1.0
//===== Compatible With: =====================================
//= eAhena SVN
//===== Description: =========================================
//= [Aegis Conversion]
//= Trade various colors of gemstones for other color gemstones.
//===== Additional Comments: =================================
//= 1.0 Rescripted to Aegis 10.3 standards. [L0ne_W0lf]
//=	Any notes pertaining to the prior trader may be found
//=	in the cities/payon.txt
//= 1.0a Versão traduzida para o Venus.              [Zieg]
//============================================================

payon,173,238,5	script	Jade	754,{
	mes "[Jade]";
	mes "Traga-me duas";
	mes "gemas da";
	mes "mesma cor, e eu vou";
	mes "mudá-las para uma gema";
	mes "de cor diferente.";
	next;
	switch(select("Gemas azuis em vermelhas!Gemas vermelhas em amarelas!:Gemas amarelas em azuis!")) {
	case 1: callsub S_TradeGems,717,716;
	case 2: callsub S_TradeGems,716,715;
	case 3: callsub S_TradeGems,715,717;
	}

S_TradeGems:
	if (countitem(getarg(0)) < 2) {
		mes "[Jade]";
		mes "Hah...!";
		mes "Você esta caçoando de mim certo?";
		mes "Eu não posso lher fornecer este";
		mes "Serviço se não";
		mes "Me der ao menos";
		mes "2 "+getitemname(getarg(0))+"s!";
		close;
	}
	else {
		set .@gems,countitem(getarg(0))/2;
		mes "[Jade]";
		mes "Creio que posso criar";
		mes "Um total de" + .@gems + " " + getitemname(getarg(1)) + "s";
		mes "Ultilizando a"+getitemname(getarg(0))+"s";
		mes "Que tem atualmente.";
		mes "O que você quer fazer?";
		next;
		switch(select("Dê-me o maximo que você pode.:Eu quero definir a quantidade.:Estou de saida.")) {
		case 1:
			delitem getarg(0),.@gems * 2;
			getitem getarg(1),.@gems;
			mes "[Jade]";
			mes "Lá vai você.";
			mes "Sinta-se livre para entar";
			mes "e voltar a qualquer momento.";
			mes "Hm, o que é que procuramos?";
			mes "Existe algo na minha face?";
			close;
		case 2:
			mes "[Jade]";
			mes "Então, quantos";
			mes "Você deseja?";
			mes "O número máximo";
			mes "Que você pode ter é 100.";
			next;
			while(1) {
				input .@input;
				if (.@input == 0) {
					mes "[Jade]";
					mes "Nada?";
					mes "Eu suponho que você";
					mes "Mudou de idéia...";
					close;
				}
				else if (.@input > 100) {
					mes "[Jade]";
					mes "Errm...";
					mes "Eu lhe pedi para não inserir";
					mes "Uma quantia maior";
					mes "Que 100 lembra?";
					next;
				}
				else {
					break;
				}
			}

			if (.@gems > .@input) {
				delitem getarg(0),.@input * 2;
				getitem getarg(1),.@input;
			mes "[Jade]";
			mes "Lá vai você.";
			mes "Sinta-se livre para entar";
			mes "e voltar a qualquer momento.";
			mes "Hm, o que é que procuramos?";
			mes "Existe algo na minha face?";
			}
			close;
		case 3:
			mes "[Jade]";
			mes "Claro, não há problema.";
			mes "Volte qualquer hora.";
			close;
		}
	}
}