prontera,150,150,6	script	Encantador de Armadura	57,{

set @npc$, "[ Encantador de Armadura ]";
mes @npc$;
mes "Eu sou a Encantadora de Armaduras. Tenho a capacidade de encantar sua armadura com status +3 em qualquer atributo, mas para isso você precisa me trazer um item para eu fazer o encantamento. Poré somente posso encantar armaduras de Elite. Mas lembre-se que você só pode ter em mão UMA armadura do tipo que quer encantar. Todos os itens e refinamentos serão perdidos no processo de refinamento. Você deseja encantar sua armadura?";
if(select("- Sim, por favor.:- Não, obrigado")==2)close;

next;
mes @npc$;
mes "Muito bem, escolha qual armadura você deseja encantar.";
switch(select("Armadura de Meteo:Bata de Orleans:Armadura Vital:Manto de Diabolus:Armadura de Diabolus:Armadura de Assalto:Armadura de Elite:Manto do Mercenário:Manto de Batalha do Feiticeiro:Manto do Médico:Túnica do Arqueiro de Elite:Túnica do Artilheiro de Elite:Armadura de Corrida:Kandura:Cota de Escamas de Naga:Malha Aprimorada")){
                        case 1:
                                callsub S_EnchantArmor,2364,0
                        case 2:
                                callsub S_EnchantArmor,2365,0
                        case 3:
                                callsub S_EnchantArmor,2391,0
                        case 4:
                                callsub S_EnchantArmor,2374,0
                        case 5:
                                callsub S_EnchantArmor,2375,0
                        case 6:
                                callsub S_EnchantArmor,2376,0
                        case 7:
                                callsub S_EnchantArmor,2377,0
                        case 8:
                                callsub S_EnchantArmor,2378,0
                        case 9:
                                callsub S_EnchantArmor,2379,0
                        case 10:
                                callsub S_EnchantArmor,2380,0
                        case 11:
                                callsub S_EnchantArmor,2381,0
                        case 12:
                                callsub S_EnchantArmor,2382,0
                        case 13:
                                callsub S_EnchantArmor,2387,0
                        case 14:
                                callsub S_EnchantArmor,2388,0
                        case 15:
                                callsub S_EnchantArmor,2389,0
                        case 16:
                                callsub S_EnchantArmor,2390,0

S_EnchantArmor:
	set .@itemid,getarg(0);
	mes @npc$;
	mes "Agora escolha qual status você quer adicionar.";
	switch(select("Força.:Agilidade.:Vitalidade.:Inteligência.:Destreza.:Sorte.")){
		case 1:
		set .@addpart,4702;
		callsub status;
		end;
		case 2:
		set .@addpart,4712;
		callsub status;
		end;
		case 3:
		set .@addpart,4722;
		callsub status;
		end;
		case 4:
		set .@addpart,4732;
		callsub status;
		end;
		case 5:
		set .@addpart,4742;
		callsub status;
		end;
		case 6:
		set .@addpart,4752;
		callsub status;
		end;
}


status:
	if((countitem(.@itemid) > 0) && (countitem(.@itemid) < 2)) && (countitem(.@addpart) > 1){
	next;
	mes @npc$;
	mes "Muito bem,sua arma será encantada agora.";
	close2;
	progressbar "ffff00",3;
	delitem .@itemid,1;
	delitem .@addpart,1;
	getitem2 .@itemid, 1, 1, 0, 0, 0, 0, 0, .@addpart;
}
}