//============================================================
//|                       ___             __                  |
//|	/'\_/`\          /\_ \           /\ \                 |
//|    /\      \     __  \//\ \    __  __\ \ \/'\     ___     |
//|    \ \ \__\ \  /'__`\  \ \ \  /\ \/\ \\ \ , <    / __`\   |
//| 	\ \ \_/\ \/\ \L\.\_ \_\ \_\ \ \_\ \\ \ \\`\ /\ \L\ \  |
//|  	 \ \_\\ \_\ \__/.\_\/\____\\ \____/ \ \_\ \_\ \____/  |
//|   	  \/_/ \/_/\/__/\/_/\/____/ \/___/   \/_/\/_/\/___/   |
//|                                                           |
//|                |C|R|O|N|U|S| |S|C|R|I|P|T|S|              |
//===== Por ==================================================
//= Maluko
//===== Versão ===============================================
//= 1.0
//===== Compatível ===========================================
//= SVN Cronus 900+
//===== Descrição: ===========================================
//= Refiner Para Vips [Refina até +7 com 100% de sucesso]
//= 
//===== Comentários Adicionais ===============================
//= Maluko-Scripts	http://br.geocities.com/maluko_scripts
//=
//= Cronus Fórum	http://www.cronus-emulator.com/forum
//============================================================
prontera.gat,161,186,4	script	Refiner	86,{

	show "[Refiner]";
	show "Deseja refinar Alguns equips?";
	next;
	switch (select("Adoraria","Não estou interresado")) {
case 2:
	show "[Refiner]";
	show "Tudo Bem";
	close;
case 1:
	show "[Refiner]";
	show "Selecione qual Equipamento gostaria de refinar!";
	next;
C_menu:
	menu getequipname(1),part,getequipname(2),part2,getequipname(3),part3,getequipname(4),part4,getequipname(5),part5,getequipname(6),part6;
part:
	show "[Refiner]";
	set @part,1;
	if (getequipisequiped(1)) goto Check1;
	show "Está querendo me enganar?!";
	show "Não tem Nada equipado";
	next;
	goto C_Menu;
part2:
	show "[Refiner]";
	set @part,2;
	if (getequipisequiped(2)) goto Check1;
	show "Está querendo me enganar?!";
	show "Não tem Nada equipado";
	next;
	goto C_Menu;
part3:
	show "[Refiner]";
	set @part,3;
	if (getequipisequiped(3)) goto Check1;
	show "Está querendo me enganar?!";
	show "Não tem Nada equipado";
	next;
	goto C_Menu;
part4:
	show "[Refiner]";
	set @part,4;
	if (getequipisequiped(4)) goto Check1;
	show "Está querendo me enganar?!";
	show "Não tem Nada equipado";
	next;
	goto C_Menu;
part5:
	show "[Refiner]";
	set @part,5;
	if (getequipisequiped(5)) goto Check1;
	show "Está querendo me enganar?!";
	show "Não tem Nada equipado";
	next;
	goto C_Menu;
part6:
	show "[Refiner]";
	set @part,6;
	if (getequipisequiped(6)) goto Check1;
	show "Está querendo me enganar?!";
	show "Não tem Nada equipado";
	next;
	goto C_Menu;
		}
Check1:
	if(getequipisenableref(@part)) goto Check2;
	show "[Refiner]";
	show "Eu não posso trabalhar este item...";
	close;
Check2:
	if(getequiprefinerycnt(@part) < 10) goto Refine;
	show "[Refiner]";
	show "Esta arma já está no nível máximo e não podem mais ser refinados.";
	close;
Refine:
	set @refineitemid, getequipid(@part);
	set @refinerycnt, getequiprefinerycnt(@part);
	if(getequipweaponlv(@part) > 0) goto Refine1;
	set @matname$,"Elunium";
	set @material,985;
	set @price,2000;
	set @safe,4;
	goto C_refinenormal;
Refine1:
	if(getequipweaponlv(@part) > 1) goto Refine2;
	set @matname$,"Phracon";
	set @material,1010;
	set @price,50;
	set @safe,7;
	goto C_refinenormal;
Refine2:
	if(getequipweaponlv(@part) > 2) goto Refine3;
	set @matname$,"Emveretarcon";
	set @material,1011;
	set @price,200;
	set @safe,6;
	goto C_refinenormal;
Refine3:
	if(getequipweaponlv(@part) > 3) goto Refine4;
	set @matname$,"Oridecon";
	set @material,984;
	set @price,5000;
	set @safe,5;
	goto C_refinenormal;
Refine4:
	set @matname$,"Oridecon";
	set @material,984;
	set @price,20000;
	set @safe,4;
	goto C_refinenormal;
C_refinenormal:
	show "Para refinar este item, Eu preciso de ^ff99991 " + @matname$ + "^000000 e a taxa de " + @price + " Zeny.";
	show "Continuar?";
	next;
	menu "Sim",-,"Não",Lcancel;

	if (getequiprefinerycnt(@part) > 6) goto Aviso;
	if ((countitem(@material) < 1) || (Zeny < @price)) goto C_cancel;
	delitem @material,1;
	set Zeny,Zeny-@price;

	successrefitem @part;
	next;
	show "[Refiner]";
	show "Muito bem...";
	show "Volte sempre";
	close;
C_cancel:
	show "[Refiner]";
	show "Você não tem tudo que eu preciso";
	close;
Lcancel:
	show "[Refiner]";
	show "Muito Bem...";
	show "Volte Sempre";
	close;
Aviso:
	show "[Refiner]";
	show "Hmm... Calma ae! Esta parte do equipamento já está refinado até seu limite de segurança.";
	show "Voce deve saber que se isso for refinado DENOVO, poderá ser DESTRUÍDO e não poderá ser mais USADO!!";
	next;
	show "[Refiner]";
	show "Você ainda quer refiná-lo? Se sim não poderei garantir que sairá tudo bem...";
	next;
	menu "Sim",-,"Não",Lcancel;

	if (getequippercentrefinery(@part) <= rand(100)) goto Lfail;
	successrefitem @part;
	next;
	show "[Refiner]";
	show "Muito Bem...";
	show "Volte Sempre";
	close;
Lfail:
	failedrefitem @part;
	next;
	show "[Refiner]";
	show "Aaahhh!! Ah não...!!";
	next;
	show "[Refiner]";
	show "Eh..Ehem... Me desculpe mais o processo de refinamento ^ff0000falhou^000000.";
	next;
	show "[Refiner]";
	show "Estou profundamente decepicionado com o que ouve... mas eu te AVISEI sobre os riscos.";
	close;
	}

    Source: geocities.com/br/maluko_scripts

               ( geocities.com/br)