(Novo) ♣ Sistema de Refine ♣ By: Filipesaj 1.0

filipesaj · June 13, 2014

Sistema de refine com % baseadas no limite de segurança de acordo com : http://browiki.org/wiki/Refinamento

http://www.youtube.com/watch?feature=player_embedded&v=V8psZ5OKEac

Você pode aumentar a % normal de sucesso utilizando os itens custons listados abaixo:

Poeira de Oriharucon

Aumenta a porcentagem na hora de fazer um upgrade do item nível 4 até o nível 6 através do refinamento.

Equipamentos: +1% chance de sucesso para cada Poeira.

Armas: +3% chance de sucesso para cada Poeira.

Poeira de Lactolerium

Aumenta a porcentagem na hora de fazer um upgrade do item nível 7 até o nível 10 através do refinamento.

Equipamentos: +1% chance de sucesso para cada Poeira.

Armas: +3% chance de sucesso para cada Poeira.

O máximo de Poeiras que pode-se usar em cada item ao refinar é 10.

Ex: Uma armadura +4 para +5 a chance de sucesso é 60% se você usar 5 Poeiras de Oriharucon a chance aumentará para 65%.

Como o máximo de poeiras que podem ser usadas de uma vez é 10, você poderia atingir até 70% de chance de sucesso nesse upgrade citado acima.

Também temos os Resto de Oriharucon e os Restos de Lactolerium. (Com 10 restos você pode trocar por 1 poeira).

Você pode colocar para as poeiras/restos serem adiquiridas do jeito que achar melhor (por Mvps, por Cash, Premiação de eventos...)

Se me der vontade posteriormente vou adicionar essas funções no npc:

•Aumentar % de refine se seu clã for dono do castelo. (1~3%)

•Opção de refinar até o nível seguro.

•Item de refine custom que caso o refinamento falhe o item da downgrade em vez de quebrar.

Favor não retirar os Créditos.

Sistema de Refine By Filipesaj (Hercules).7z

Edited June 14, 2014 by filipesaj

JulioCF · June 13, 2014

Olá, boa noite.

Este script é seu mesmo? Se não, adicione o link do post original.

Abraços!

filipesaj · June 13, 2014

Sim. É meu.

JulioCF · June 14, 2014

O post aparenta uma cópia, já foi postado em algum lugar?

Procure sempre assinar seus pots.

jaBote · June 14, 2014

Eu vejo boas idéias nessos scripts (não testei), mas o sua indentaçao é claramente melhorable e faz a leitura muito mais complicada.

filipesaj · June 14, 2014

O post aparenta uma cópia, já foi postado em algum lugar?

Procure sempre assinar seus pots.

O script é meu, crio um post único sobre o script e uso em qualquer lugar.

filipesaj · June 14, 2014

Eu vejo boas idéias nessos scripts (não testei), mas o sua indentaçao é claramente melhorable e faz a leitura muito mais complicada.

Não entendi muito bem o que você quis dizer.

"mas o sua indentaçao é claramente melhorable" ?????????

jaBote · June 14, 2014

Desculpe, eu não sou Português mas eu tento de aprender.

Somente compare a primerira metade do script (indentada, case 1 do primeiro switch) com a segunda (o resto)

//Script Desenvolvivo por Filipesaj  Favor não retirar os Créditosprontera,148,166,3	script	Refine Especial	726,{	set @posi,0;	Set @Npcn$,"^FF0000[Refinador]^000000";	Mes @Npcn$;	mes "• Refinar é uma habilidade usada para tornar um equipamento mais poderoso.";	mes "• Um mesmo equipamento pode atingir até o grau +10 de refinamento.";	next;	switch(select("Refinar Equipamentos:Refinar Armas:Trocar Restos por Poeiras")) {		case 1:			switch(select("Topo da cabeça:Centro da Cabeça:Baixo da Cabeça:Armadura:Capa:Calçado:Escudo:Sair")) {				case 1:					set @posi,EQI_HEAD_TOP;					Mes @Npcn$;					if(getequipisequiped(@posi) == 0) {						mes "Você não tem nenhum equipamento no topo da cabeça.";						close;					}					if(getequipisenableref(@posi) == 0) {						mes "Esse equipamento não pode ser refinado.";						close;					}					if( getequiprefinerycnt(@posi) == 10 )  {						mes "Esse equipamento já atingiu o nível máximo";						close;					}					if(countitem(985) == 0) {						mes "Você não tem o item necessário (Elunium) para refinar esse equipamento.";						close;					}					if( getequiprefinerycnt(@posi) <= 3 ) {						mes"^228B22Chance de sucesso =^000000 100%";						next;						Mes @Npcn$;						mes "Equipamento refinado com sucesso";						delitem 985,1;						successrefitem @posi;						close;					}					if( getequiprefinerycnt(@posi) == 4) {						function Refine4;						Refine4();					}					if( getequiprefinerycnt(@posi) == 5) {						function Refine5;						Refine5();					}					if( getequiprefinerycnt(@posi) == 6) {						function Refine6;						Refine6();					}					if( getequiprefinerycnt(@posi) == 7) {						function Refine7;						Refine7();					}					if( getequiprefinerycnt(@posi) == 8) {						function Refine8;						Refine8();					}					if( getequiprefinerycnt(@posi) == 9) {						function Refine9;						Refine9();					}					close;				case 2:					set @posi,EQI_HEAD_MID;					Mes @Npcn$;					if(getequipisequiped(@posi) == 0) {						mes "Você não tem nenhum equipamento no centro da cabeça.";						close;					}					if(getequipisenableref(@posi) == 0) {						mes "Esse equipamento não pode ser refinado.";						close;					}					if( getequiprefinerycnt(@posi) == 10 )  {						mes "Esse equipamento já atingiu o nível máximo";						close;					}					if(countitem(985) == 0) {						mes "Você não tem o item necessário (Elunium) para refinar esse equipamento.";						close;					}					if( getequiprefinerycnt(@posi) <= 3 ) {						mes"^228B22Chance de sucesso =^000000 100%";						next;						Mes @Npcn$;						mes "Equipamento refinado com sucesso";						delitem 985,1;						successrefitem @posi;						close;					}					if( getequiprefinerycnt(@posi) == 4) {						function Refine4;						Refine4();					}					if( getequiprefinerycnt(@posi) == 5) {						function Refine5;						Refine5();					}					if( getequiprefinerycnt(@posi) == 6) {						function Refine6;						Refine6();					}					if( getequiprefinerycnt(@posi) == 7) {						function Refine7;						Refine7();					}					if( getequiprefinerycnt(@posi) == 8) {						function Refine8;						Refine8();					}					if( getequiprefinerycnt(@posi) == 9) {						function Refine9;						Refine9();					}					close;				case 3:					set @posi,EQI_HEAD_LOW;					Mes @Npcn$;					if(getequipisequiped(@posi) == 0) {						mes "Você não tem nenhum equipamento abaixo da cabeça.";						close;					}					if(getequipisenableref(@posi) == 0) {						mes "Esse equipamento não pode ser refinado.";						close;					}					if( getequiprefinerycnt(@posi) == 10 )  {						mes "Esse equipamento já atingiu o nível máximo";						close;					}					if(countitem(985) == 0) {						mes "Você não tem o item necessário (Elunium) para refinar esse equipamento.";						close;					}					if( getequiprefinerycnt(@posi) <= 3 ) {						mes"^228B22Chance de sucesso =^000000 100%";						next;						Mes @Npcn$;						mes "Equipamento refinado com sucesso";						delitem 985,1;						successrefitem @posi;						close;					}					if( getequiprefinerycnt(@posi) == 4) {						function Refine4;						Refine4();					}					if( getequiprefinerycnt(@posi) == 5) {						function Refine5;						Refine5();					}					if( getequiprefinerycnt(@posi) == 6) {						function Refine6;						Refine6();					}					if( getequiprefinerycnt(@posi) == 7) {						function Refine7;						Refine7();					}					if( getequiprefinerycnt(@posi) == 8) {						function Refine8;						Refine8();					}					if( getequiprefinerycnt(@posi) == 9) {						function Refine9;						Refine9();					}					close;				case 4:					set @posi,EQI_ARMOR;					Mes @Npcn$;					if(getequipisequiped(@posi) == 0) {						mes "Você não tem nenhuma armadura.";						close;					}					if(getequipisenableref(@posi) == 0) {						mes "Esse equipamento não pode ser refinado.";						close;					}					if( getequiprefinerycnt(@posi) == 10 )  {						mes "Esse equipamento já atingiu o nível máximo";						close;					}					if(countitem(985) == 0) {						mes "Você não tem o item necessário (Elunium) para refinar esse equipamento.";						close;					}					if( getequiprefinerycnt(@posi) <= 3 ) {						mes"^228B22Chance de sucesso =^000000 100%";						next;						Mes @Npcn$;						mes "Equipamento refinado com sucesso";						delitem 985,1;						successrefitem @posi;						close;					}					if( getequiprefinerycnt(@posi) == 4) {						function Refine4;						Refine4();					}					if( getequiprefinerycnt(@posi) == 5) {						function Refine5;						Refine5();					}					if( getequiprefinerycnt(@posi) == 6) {						function Refine6;						Refine6();					}					if( getequiprefinerycnt(@posi) == 7) {						function Refine7;						Refine7();					}					if( getequiprefinerycnt(@posi) == 8) {						function Refine8;						Refine8();					}					if( getequiprefinerycnt(@posi) == 9) {						function Refine9;						Refine9();					}					close;				case 5:					set @posi,EQI_GARMENT;					Mes @Npcn$;					if(getequipisequiped(@posi) == 0) {						mes "Você não tem nenhuma capa.";						close;					}					if(getequipisenableref(@posi) == 0) {						mes "Esse equipamento não pode ser refinado.";						close;					}					if( getequiprefinerycnt(@posi) == 10 )  {						mes "Esse equipamento já atingiu o nível máximo";						close;					}					if(countitem(985) == 0) {						mes "Você não tem o item necessário (Elunium) para refinar esse equipamento.";						close;					}					if( getequiprefinerycnt(@posi) <= 3 ) {						mes"^228B22Chance de sucesso =^000000 100%";						next;						Mes @Npcn$;						mes "Equipamento refinado com sucesso";						delitem 985,1;						successrefitem @posi;						close;					}					if( getequiprefinerycnt(@posi) == 4) {						function Refine4;						Refine4();					}					if( getequiprefinerycnt(@posi) == 5) {						function Refine5;						Refine5();					}					if( getequiprefinerycnt(@posi) == 6) {						function Refine6;						Refine6();					}					if( getequiprefinerycnt(@posi) == 7) {						function Refine7;						Refine7();					}					if( getequiprefinerycnt(@posi) == 8) {						function Refine8;						Refine8();					}					if( getequiprefinerycnt(@posi) == 9) {						function Refine9;						Refine9();					}					close;				case 6:					set @posi,EQI_SHOES;					Mes @Npcn$;					if(getequipisequiped(@posi) == 0) {						mes "Você não tem nenhum calçado.";						close;					}					if(getequipisenableref(@posi) == 0) {						mes "Esse equipamento não pode ser refinado.";						close;					}					if( getequiprefinerycnt(@posi) == 10 )  {						mes "Esse equipamento já atingiu o nível máximo";						close;					}					if(countitem(985) == 0) {						mes "Você não tem o item necessário (Elunium) para refinar esse equipamento.";						close;					}					if( getequiprefinerycnt(@posi) <= 3 ) {						mes"^228B22Chance de sucesso =^000000 100%";						next;						Mes @Npcn$;						mes "Equipamento refinado com sucesso";						delitem 985,1;						successrefitem @posi;						close;					}					if( getequiprefinerycnt(@posi) == 4) {						function Refine4;						Refine4();					}					if( getequiprefinerycnt(@posi) == 5) {						function Refine5;						Refine5();					}					if( getequiprefinerycnt(@posi) == 6) {						function Refine6;						Refine6();					}					if( getequiprefinerycnt(@posi) == 7) {						function Refine7;						Refine7();					}					if( getequiprefinerycnt(@posi) == 8) {						function Refine8;						Refine8();					}					if( getequiprefinerycnt(@posi) == 9) {						function Refine9;						Refine9();					}					close;				case 7:					set @posi,EQI_HAND_L;					Mes @Npcn$;					if(getequipisequiped(@posi) == 0) {						mes "Você não tem nenhum escudo.";						close;					}					if(getequipisenableref(@posi) == 0) {						mes "Esse equipamento não pode ser refinado.";						close;					}					if( getequiprefinerycnt(@posi) == 10 )  {						mes "Esse equipamento já atingiu o nível máximo";						close;					}					if(countitem(985) == 0) {						mes "Você não tem o item necessário (Elunium) para refinar esse equipamento.";						close;					}					if( getequiprefinerycnt(@posi) <= 3 ) {						mes"^228B22Chance de sucesso =^000000 100%";						next;						Mes @Npcn$;						mes "Equipamento refinado com sucesso";						delitem 985,1;						successrefitem @posi;						close;					}					if( getequiprefinerycnt(@posi) == 4) {						function Refine4;						Refine4();					}					if( getequiprefinerycnt(@posi) == 5) {						function Refine5;						Refine5();					}					if( getequiprefinerycnt(@posi) == 6) {						function Refine6;						Refine6();					}					if( getequiprefinerycnt(@posi) == 7) {						function Refine7;						Refine7();					}					if( getequiprefinerycnt(@posi) == 8) {						function Refine8;						Refine8();					}					if( getequiprefinerycnt(@posi) == 9) {						function Refine9;						Refine9();					}					close;				case 8:					close;			}	function	Refine4	{		mes "^228B22Chance de sucesso =^000000 60%";		switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){			case 1:				close;			case 2:				set .@chancerefine,rand(.@1,100);				if(.@chancerefine <=60){					next;					Mes @Npcn$; 					mes "Equipamento refinado com sucesso";					delitem 985,1;					successrefitem @posi; 					close;				}				next;				Mes @Npcn$;				mes "Refinamento falhou.";				delitem 985,1;				failedrefitem @posi;				close; 			case 3:				next;				Mes @Npcn$;				mes "Quantas Poeiras de Oriharucon deseja usar? (Máximo 10)";				input .@pdo;				next;				Mes @Npcn$;				if(.@pdo > 10) {					mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10";					close;				}				if(countitem(24001) <.@pdo ) {					mes "Você não tem Poeiras de Oriharucon suficientes.";					close;				}				mes "^228B22Chance de sucesso =^000000";				set .@result,60+.@pdo;				mes "60+"+.@pdo+" = "+.@result+"%";				set .@chancerefine,rand(.@1,100);				if(.@chancerefine <=.@result){					next;					Mes @Npcn$;					mes "Equipamento refinado com sucesso";					delitem 985,1;					delitem 24001,.@pdo;					successrefitem @posi;					close;				}				next;				Mes @Npcn$;				mes "Refinamento falhou.";				delitem 985,1;				delitem 24001,.@pdo;				failedrefitem @posi;				close;		}	}		function	Refine5	{		mes "^228B22Chance de sucesso =^000000 40%";		switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){			case 1:				close;			case 2:				set .@chancerefine,rand(.@1,100);				if(.@chancerefine <=40){					next;					Mes @Npcn$; 					mes "Equipamento refinado com sucesso";					delitem 985,1;					successrefitem @posi; 					close;				}				next;				Mes @Npcn$;				mes "Refinamento falhou.";				delitem 985,1;				failedrefitem @posi;				close; 			case 3:				next;				Mes @Npcn$;				mes "Quantas Poeiras de Oriharucon deseja usar? (Máximo 10)";				input .@pdo;				next;				Mes @Npcn$;				if(.@pdo > 10) {					mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10";					close;				}				if(countitem(24001) <.@pdo ) {					mes "Você não tem Poeiras de Oriharucon suficientes.";					close;				}				mes "^228B22Chance de sucesso =^000000";				set .@result,40+.@pdo;				mes "40+"+.@pdo+" = "+.@result+"%";				set .@chancerefine,rand(.@1,100);				if(.@chancerefine <=.@result){					next;					Mes @Npcn$;					mes "Equipamento refinado com sucesso";					delitem 985,1;					delitem 24001,.@pdo;					successrefitem @posi;					close;				}				next;				Mes @Npcn$;				mes "Refinamento falhou.";				delitem 985,1;				delitem 24001,.@pdo;				failedrefitem @posi;				close;		}	}	function	Refine6	{		mes "^228B22Chance de sucesso =^000000 40%";		switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){			case 1:				close;			case 2:				set .@chancerefine,rand(.@1,100);				if(.@chancerefine <=40){					next;					Mes @Npcn$; 					mes "Equipamento refinado com sucesso";					delitem 985,1;					successrefitem @posi; 					close;				}				next;				Mes @Npcn$;				mes "Refinamento falhou.";				delitem 985,1;				failedrefitem @posi;				close; 			case 3:				next;				Mes @Npcn$;				mes "Quantas Poeiras de Oriharucon deseja usar? (Máximo 10)";				input .@pdo;				next;				Mes @Npcn$;				if(.@pdo > 10) {					mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10";					close;				}				if(countitem(24001) <.@pdo ) {					mes "Você não tem Poeiras de Oriharucon suficientes.";					close;				}				mes "^228B22Chance de sucesso =^000000";				set .@result,40+.@pdo;				mes "40+"+.@pdo+" = "+.@result+"%";				set .@chancerefine,rand(.@1,100);				if(.@chancerefine <=.@result){					next;					Mes @Npcn$;					mes "Equipamento refinado com sucesso";					delitem 985,1;					delitem 24001,.@pdo;					successrefitem @posi;					close;				}				next;				Mes @Npcn$;				mes "Refinamento falhou.";				delitem 985,1;				delitem 24001,.@pdo;				failedrefitem @posi;				close;		}	}	function	Refine7	{		mes "^228B22Chance de sucesso =^000000 20%";		switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){			case 1:				close;			case 2:				set .@chancerefine,rand(.@1,100);				if(.@chancerefine <=20){					next;					Mes @Npcn$; 					mes "Equipamento refinado com sucesso";					delitem 985,1;					successrefitem @posi; 					close;				}				next;				Mes @Npcn$;				mes "Refinamento falhou.";				delitem 985,1;				failedrefitem @posi;				close; 			case 3:				next;				Mes @Npcn$;				mes "Quantas Poeiras de Oriharucon deseja usar? (Máximo 10)";				input .@pdo;				next;				Mes @Npcn$;				if(.@pdo > 10) {					mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10";					close;				}				if(countitem(24001) <.@pdo ) {					mes "Você não tem Poeiras de Oriharucon suficientes.";					close;				}				mes "^228B22Chance de sucesso =^000000";				set .@result,20+.@pdo;				mes "20+"+.@pdo+" = "+.@result+"%";				set .@chancerefine,rand(.@1,100);				if(.@chancerefine <=.@result){					next;					Mes @Npcn$;					mes "Equipamento refinado com sucesso";					delitem 985,1;					delitem 24001,.@pdo;					successrefitem @posi;					close;				}				next;				Mes @Npcn$;				mes "Refinamento falhou.";				delitem 985,1;				delitem 24001,.@pdo;				failedrefitem @posi;				close;		}	}	function	Refine8	{		mes "^228B22Chance de sucesso =^000000 20%";		switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){			case 1:				close;			case 2:				set .@chancerefine,rand(.@1,100);				if(.@chancerefine <=20){					next;					Mes @Npcn$; 					mes "Equipamento refinado com sucesso";					delitem 985,1;					successrefitem @posi; 					close;				}				next;				Mes @Npcn$;				mes "Refinamento falhou.";				delitem 985,1;				failedrefitem @posi;				close; 			case 3:				next;				Mes @Npcn$;				mes "Quantas Poeiras de Oriharucon deseja usar? (Máximo 10)";				input .@pdo;				next;				Mes @Npcn$;				if(.@pdo > 10) {					mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10";					close;				}				if(countitem(24001) <.@pdo ) {					mes "Você não tem Poeiras de Oriharucon suficientes.";					close;				}				mes "^228B22Chance de sucesso =^000000";				set .@result,20+.@pdo;				mes "20+"+.@pdo+" = "+.@result+"%";				set .@chancerefine,rand(.@1,100);				if(.@chancerefine <=.@result){					next;					Mes @Npcn$;					mes "Equipamento refinado com sucesso";					delitem 985,1;					delitem 24001,.@pdo;					successrefitem @posi;					close;				}				next;				Mes @Npcn$;				mes "Refinamento falhou.";				delitem 985,1;				delitem 24001,.@pdo;				failedrefitem @posi;				close;		}	}	function	Refine9	{		mes "^228B22Chance de sucesso =^000000 10%";		switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){			case 1:				close;			case 2:				set .@chancerefine,rand(.@1,100);				if(.@chancerefine <=10){					next;					Mes @Npcn$; 					mes "Equipamento refinado com sucesso";					delitem 985,1;					successrefitem @posi; 					close;				}				next;				Mes @Npcn$;				mes "Refinamento falhou.";				delitem 985,1;				failedrefitem @posi;				close; 			case 3:				next;				Mes @Npcn$;				mes "Quantas Poeiras de Oriharucon deseja usar? (Máximo 10)";				input .@pdo;				next;				Mes @Npcn$;				if(.@pdo > 10) {					mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10";					close;				}				if(countitem(24001) <.@pdo ) {					mes "Você não tem Poeiras de Oriharucon suficientes.";					close;				}				mes "^228B22Chance de sucesso =^000000";				set .@result,10+.@pdo;				mes "10+"+.@pdo+" = "+.@result+"%";				set .@chancerefine,rand(.@1,100);				if(.@chancerefine <=.@result){					next;					Mes @Npcn$;					mes "Equipamento refinado com sucesso";					delitem 985,1;					delitem 24001,.@pdo;					successrefitem @posi;					close;				}				next;				Mes @Npcn$;				mes "Refinamento falhou.";				delitem 985,1;				delitem 24001,.@pdo;				failedrefitem @posi;				close;		}	}case 2:next; Mes @Npcn$;mes "Refino apenas arma da mão direita.";switch(select("Refinar Arma:Sair")){case 1:set @posi,EQI_HAND_R;set @nvarm,getequipweaponlv(EQI_HAND_R);if(getequipisequiped(@posi) == 0) { mes "Você não tem nenhuma arma."; close;}if(getequipisenableref(@posi) == 0) { mes "Essa arma não pode ser refinada."; close; }if( getequiprefinerycnt(@posi) == 10 )  {mes "Essa arma já atingiu o refine máximo"; close;}if(@nvarm == 1){ if(countitem(1010) == 0) { mes "Você não tem o item necessário (Fracon) para refinar essa arma (Arma Nv1)."; close;} }if(@nvarm == 2){ if(countitem(1011) == 0) { mes "Você não tem o item necessário (Emveretarcon) para refinar essa arma (Arma Nv2)."; close;} }if(@nvarm == 3){ if(countitem(984) == 0) { mes "Você não tem o item necessário (Oridecon) para refinar essa arma (Arma Nv3)."; close;} }if(@nvarm == 4){ if(countitem(984) == 0) { mes "Você não tem o item necessário (Oridecon) para refinar essa arma (Arma Nv4)."; close;} }if(@nvarm == 1){if( getequiprefinerycnt(@posi) <= 6 ) {mes"^228B22Chance de sucesso =^000000 100%"; next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 1010,1; successrefitem @posi; close;}}if(@nvarm == 1){if( getequiprefinerycnt(@posi) == 7 ){function armnv1ren7;armnv1ren7();}}if(@nvarm == 1){if( getequiprefinerycnt(@posi) == 8 ){function armnv1ren8;armnv1ren8();}}if(@nvarm == 1){if( getequiprefinerycnt(@posi) == 9 ){function armnv1ren9;armnv1ren9();}}if(@nvarm == 2){if( getequiprefinerycnt(@posi) <= 5 ) {mes"^228B22Chance de sucesso =^000000 100%"; next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 1011,1; successrefitem @posi; close;}}if(@nvarm == 2){if( getequiprefinerycnt(@posi) == 6 ){function armnv2ren6;armnv2ren6();}}if(@nvarm == 2){if( getequiprefinerycnt(@posi) == 7 ){function armnv2ren7;armnv2ren7();}}if(@nvarm == 2){if( getequiprefinerycnt(@posi) == 8 ){function armnv2ren8;armnv2ren8();}}if(@nvarm == 2){if( getequiprefinerycnt(@posi) == 9 ){function armnv2ren9;armnv2ren9();}}if(@nvarm == 3){if( getequiprefinerycnt(@posi) <= 4 ) {mes"^228B22Chance de sucesso =^000000 100%"; next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 984,1; successrefitem @posi; close;}}if(@nvarm == 3){if( getequiprefinerycnt(@posi) == 5 ){function armnv3ren5;armnv3ren5();}}if(@nvarm == 3){if( getequiprefinerycnt(@posi) == 6 ){function armnv3ren6;armnv3ren6();}}if(@nvarm == 3){if( getequiprefinerycnt(@posi) == 7 ){function armnv3ren7;armnv3ren7();}}if(@nvarm == 3){if( getequiprefinerycnt(@posi) == 8 ){function armnv3ren7;armnv3ren7();}}if(@nvarm == 3){if( getequiprefinerycnt(@posi) == 9 ){function armnv3ren7;armnv3ren7();}}if(@nvarm == 4){if( getequiprefinerycnt(@posi) <= 3 ) {mes"^228B22Chance de sucesso =^000000 100%"; next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 984,1; successrefitem @posi; close;}}if(@nvarm == 4){if( getequiprefinerycnt(@posi) == 4 ){function armnv4ren4;armnv4ren4();}}if(@nvarm == 4){if( getequiprefinerycnt(@posi) == 5 ){function armnv4ren5;armnv4ren5();}}if(@nvarm == 4){if( getequiprefinerycnt(@posi) == 6 ){function armnv4ren5;armnv4ren5();}}if(@nvarm == 4){if( getequiprefinerycnt(@posi) == 7 ){function armnv4ren7;armnv4ren7();}}if(@nvarm == 4){if( getequiprefinerycnt(@posi) == 8 ){function armnv4ren7;armnv4ren7();}}if(@nvarm == 4){if( getequiprefinerycnt(@posi) == 9 ){function armnv4ren9;armnv4ren9();}}close;case 2:close;}case 3:next; Mes @Npcn$;mes "• Pelo preço de 1.000.000 zenys eu posso transformar 10 Restos por 1 Poeira";mes "• Deseja qual poeira?";switch(select("Lactolerium:Poeira de Oriharucon")){case 1:if(countitem(24002) < 10) { next; Mes @Npcn$; mes "Você não tem Restos de Lactolerium suficientes."; close;}if(zeny< 1000000) { next; Mes @Npcn$; mes "Você não tem Zenys suficientes."; close;}next;Mes @Npcn$;Mes "Negociação concluida com sucesso";delitem 24002,10;set zeny,zeny-1000000;getitem 24000,1;close;case 2:if(countitem(24003) < 10) { next; Mes @Npcn$; mes "Você não tem Restos de Oriharucon suficientes."; close;}if(zeny< 1000000) { next; Mes @Npcn$; mes "Você não tem Zenys suficientes."; close;}next;Mes @Npcn$;Mes "Negociação concluida com sucesso";delitem 24003,10;set zeny,zeny-1000000;getitem 24001,1;close;}close;}function	armnv1ren7	{mes "^228B22Chance de sucesso =^000000 60%";switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){case 1: close;case 2: set .@chancerefine,rand(.@1,100); if(.@chancerefine <=60){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 1010,1;successrefitem @posi; close;} next; Mes @Npcn$;  mes "Refinamento falhou."; delitem 1010,1;failedrefitem @posi; close; case 3: next; Mes @Npcn$; mes"Quantas Poeira de Lactolerium deseja usar? (Máximo 10)";input .@pdo;next; Mes @Npcn$;if(.@pdo > 10) { mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10"; close;}if(countitem(24000) <.@pdo ) { mes "Você não tem Poeira de Lactolerium suficientes."; close;}mes "^228B22Chance de sucesso =^000000";set .@mult,.@pdo*3;set .@result,60+.@mult;mes "60+"+.@mult+"="+.@result+"%";set .@chancerefine,rand(.@1,100); if(.@chancerefine <=.@result){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 1010,1; delitem 24000,.@pdo; successrefitem @posi; close;}next; Mes @Npcn$;mes "Refinamento falhou."; delitem 1010,1; delitem 24000,.@pdo; failedrefitem @posi; close;}}function	armnv1ren8	{mes "^228B22Chance de sucesso =^000000 40%";switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){case 1: close;case 2: set .@chancerefine,rand(.@1,100); if(.@chancerefine <=40){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 1010,1;successrefitem @posi; close;} next; Mes @Npcn$;  mes "Refinamento falhou."; delitem 1010,1;failedrefitem @posi; close; case 3: next; Mes @Npcn$; mes"Quantas Poeira de Lactolerium deseja usar? (Máximo 10)";input .@pdo;next; Mes @Npcn$;if(.@pdo > 10) { mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10"; close;}if(countitem(24000) <.@pdo ) { mes "Você não tem Poeira de Lactolerium suficientes."; close;}mes "^228B22Chance de sucesso =^000000";set .@mult,.@pdo*3;set .@result,40+.@mult;mes "40+"+.@mult+"="+.@result+"%";set .@chancerefine,rand(.@1,100); if(.@chancerefine <=.@result){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 1010,1; delitem 24000,.@pdo; successrefitem @posi; close;}next; Mes @Npcn$;mes "Refinamento falhou."; delitem 1010,1; delitem 24000,.@pdo; failedrefitem @posi; close;}}function	armnv1ren9	{mes "^228B22Chance de sucesso =^000000 20%";switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){case 1: close;case 2: set .@chancerefine,rand(.@1,100); if(.@chancerefine <=20){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 1010,1;successrefitem @posi; close;} next; Mes @Npcn$;  mes "Refinamento falhou."; delitem 1010,1;failedrefitem @posi; close; case 3: next; Mes @Npcn$; mes"Quantas Poeira de Lactolerium deseja usar? (Máximo 10)";input .@pdo;next; Mes @Npcn$;if(.@pdo > 10) { mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10"; close;}if(countitem(24000) <.@pdo ) { mes "Você não tem Poeira de Lactolerium suficientes."; close;}mes "^228B22Chance de sucesso =^000000";set .@mult,.@pdo*3;set .@result,20+.@mult;mes "20+"+.@mult+"="+.@result+"%";set .@chancerefine,rand(.@1,100); if(.@chancerefine <=.@result){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 1010,1; delitem 24000,.@pdo; successrefitem @posi; close;}next; Mes @Npcn$;mes "Refinamento falhou."; delitem 1010,1; delitem 24000,.@pdo; failedrefitem @posi; close;}}function	armnv2ren6	{mes "^228B22Chance de sucesso =^000000 60%";switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){case 1: close;case 2: set .@chancerefine,rand(.@1,100); if(.@chancerefine <=60){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 1011,1;successrefitem @posi; close;} next; Mes @Npcn$;  mes "Refinamento falhou."; delitem 1011,1;failedrefitem @posi; close; case 3: next; Mes @Npcn$; mes"Quantas Poeira de Oriharucon deseja usar? (Máximo 10)";input .@pdo;next; Mes @Npcn$;if(.@pdo > 10) { mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10"; close;}if(countitem(24001) <.@pdo ) { mes "Você não tem Poeira de Oriharucon suficientes."; close;}mes "^228B22Chance de sucesso =^000000";set .@mult,.@pdo*3;set .@result,60+.@mult;mes "60+"+.@mult+"="+.@result+"%";set .@chancerefine,rand(.@1,100); if(.@chancerefine <=.@result){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 1011,1; delitem 24001,.@pdo; successrefitem @posi; close;}next; Mes @Npcn$;mes "Refinamento falhou."; delitem 1011,1; delitem 24001,.@pdo; failedrefitem @posi; close;}}function	armnv2ren7	{mes "^228B22Chance de sucesso =^000000 40%";switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){case 1: close;case 2: set .@chancerefine,rand(.@1,100); if(.@chancerefine <=40){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 1011,1;successrefitem @posi; close;} next; Mes @Npcn$;  mes "Refinamento falhou."; delitem 1011,1;failedrefitem @posi; close; case 3: next; Mes @Npcn$; mes"Quantas Poeira de Lactolerium deseja usar? (Máximo 10)";input .@pdo;next; Mes @Npcn$;if(.@pdo > 10) { mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10"; close;}if(countitem(24000) <.@pdo ) { mes "Você não tem Poeira de Lactolerium suficientes."; close;}mes "^228B22Chance de sucesso =^000000";set .@mult,.@pdo*3;set .@result,40+.@mult;mes "40+"+.@mult+"="+.@result+"%";set .@chancerefine,rand(.@1,100); if(.@chancerefine <=.@result){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 1011,1; delitem 24000,.@pdo; successrefitem @posi; close;}next; Mes @Npcn$;mes "Refinamento falhou."; delitem 1011,1; delitem 24000,.@pdo; failedrefitem @posi; close;}}function	armnv2ren8	{mes "^228B22Chance de sucesso =^000000 20%";switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){case 1: close;case 2: set .@chancerefine,rand(.@1,100); if(.@chancerefine <=20){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 1011,1;successrefitem @posi; close;} next; Mes @Npcn$;  mes "Refinamento falhou."; delitem 1011,1;failedrefitem @posi; close; case 3: next; Mes @Npcn$; mes"Quantas Poeira de Lactolerium deseja usar? (Máximo 10)";input .@pdo;next; Mes @Npcn$;if(.@pdo > 10) { mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10"; close;}if(countitem(24000) <.@pdo ) { mes "Você não tem Poeira de Lactolerium suficientes."; close;}mes "^228B22Chance de sucesso =^000000";set .@mult,.@pdo*3;set .@result,20+.@mult;mes "20+"+.@mult+"="+.@result+"%";set .@chancerefine,rand(.@1,100); if(.@chancerefine <=.@result){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 1011,1; delitem 24000,.@pdo; successrefitem @posi; close;}next; Mes @Npcn$;mes "Refinamento falhou."; delitem 1011,1; delitem 24000,.@pdo; failedrefitem @posi; close;}}function	armnv2ren9	{mes "^228B22Chance de sucesso =^000000 20%";switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){case 1: close;case 2: set .@chancerefine,rand(.@1,100); if(.@chancerefine <=20){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 1011,1;successrefitem @posi; close;} next; Mes @Npcn$;  mes "Refinamento falhou."; delitem 1011,1;failedrefitem @posi; close; case 3: next; Mes @Npcn$; mes"Quantas Poeira de Lactolerium deseja usar? (Máximo 10)";input .@pdo;next; Mes @Npcn$;if(.@pdo > 10) { mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10"; close;}if(countitem(24000) <.@pdo ) { mes "Você não tem Poeira de Lactolerium suficientes."; close;}mes "^228B22Chance de sucesso =^000000";set .@mult,.@pdo*3;set .@result,20+.@mult;mes "20+"+.@mult+"="+.@result+"%";set .@chancerefine,rand(.@1,100); if(.@chancerefine <=.@result){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 1011,1; delitem 24000,.@pdo; successrefitem @posi; close;}next; Mes @Npcn$;mes "Refinamento falhou."; delitem 1011,1; delitem 24000,.@pdo; failedrefitem @posi; close;}}function	armnv3ren5	{mes "^228B22Chance de sucesso =^000000 60%";switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){case 1: close;case 2: set .@chancerefine,rand(.@1,100); if(.@chancerefine <=60){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 984,1;successrefitem @posi; close;} next; Mes @Npcn$;  mes "Refinamento falhou."; delitem 984,1;failedrefitem @posi; close; case 3: next; Mes @Npcn$; mes"Quantas Poeira de Oriharucon deseja usar? (Máximo 10)";input .@pdo;next; Mes @Npcn$;if(.@pdo > 10) { mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10"; close;}if(countitem(24001) <.@pdo ) { mes "Você não tem Poeira de Oriharucon suficientes."; close;}mes "^228B22Chance de sucesso =^000000";set .@mult,.@pdo*3;set .@result,60+.@mult;mes "60+"+.@mult+"="+.@result+"%";set .@chancerefine,rand(.@1,100); if(.@chancerefine <=.@result){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 984,1; delitem 24001,.@pdo; successrefitem @posi; close;}next; Mes @Npcn$;mes "Refinamento falhou."; delitem 984,1; delitem 24001,.@pdo; failedrefitem @posi; close;}}function	armnv3ren6	{mes "^228B22Chance de sucesso =^000000 50%";switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){case 1: close;case 2: set .@chancerefine,rand(.@1,100); if(.@chancerefine <=50){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 984,1;successrefitem @posi; close;} next; Mes @Npcn$;  mes "Refinamento falhou."; delitem 984,1;failedrefitem @posi; close; case 3: next; Mes @Npcn$; mes"Quantas Poeira de Oriharucon deseja usar? (Máximo 10)";input .@pdo;next; Mes @Npcn$;if(.@pdo > 10) { mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10"; close;}if(countitem(24001) <.@pdo ) { mes "Você não tem Poeira de Oriharucon suficientes."; close;}mes "^228B22Chance de sucesso =^000000";set .@mult,.@pdo*3;set .@result,50+.@mult;mes "50+"+.@mult+"="+.@result+"%";set .@chancerefine,rand(.@1,100); if(.@chancerefine <=.@result){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 984,1; delitem 24001,.@pdo; successrefitem @posi; close;}next; Mes @Npcn$;mes "Refinamento falhou."; delitem 984,1; delitem 24001,.@pdo; failedrefitem @posi; close;}}function	armnv3ren7	{mes "^228B22Chance de sucesso =^000000 20%";switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){case 1: close;case 2: set .@chancerefine,rand(.@1,100); if(.@chancerefine <=20){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 984,1;successrefitem @posi; close;} next; Mes @Npcn$;  mes "Refinamento falhou."; delitem 984,1;failedrefitem @posi; close; case 3: next; Mes @Npcn$; mes"Quantas Poeira de Lactolerium deseja usar? (Máximo 10)";input .@pdo;next; Mes @Npcn$;if(.@pdo > 10) { mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10"; close;}if(countitem(24000) <.@pdo ) { mes "Você não tem Poeira de Lactolerium suficientes."; close;}mes "^228B22Chance de sucesso =^000000";set .@mult,.@pdo*3;set .@result,20+.@mult;mes "20+"+.@mult+"="+.@result+"%";set .@chancerefine,rand(.@1,100); if(.@chancerefine <=.@result){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 984,1; delitem 24000,.@pdo; successrefitem @posi; close;}next; Mes @Npcn$;mes "Refinamento falhou."; delitem 984,1; delitem 24000,.@pdo; failedrefitem @posi; close;}}function	armnv4ren4	{mes "^228B22Chance de sucesso =^000000 60%";switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){case 1: close;case 2: set .@chancerefine,rand(.@1,100); if(.@chancerefine <=60){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 984,1;successrefitem @posi; close;} next; Mes @Npcn$;  mes "Refinamento falhou."; delitem 984,1;failedrefitem @posi; close; case 3: next; Mes @Npcn$; mes"Quantas Poeira de Oriharucon deseja usar? (Máximo 10)";input .@pdo;next; Mes @Npcn$;if(.@pdo > 10) { mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10"; close;}if(countitem(24001) <.@pdo ) { mes "Você não tem Poeira de Oriharucon suficientes."; close;}mes "^228B22Chance de sucesso =^000000";set .@mult,.@pdo*3;set .@result,60+.@mult;mes "60+"+.@mult+"="+.@result+"%";set .@chancerefine,rand(.@1,100); if(.@chancerefine <=.@result){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 984,1; delitem 24001,.@pdo; successrefitem @posi; close;}next; Mes @Npcn$;mes "Refinamento falhou."; delitem 984,1; delitem 24001,.@pdo; failedrefitem @posi; close;}}function	armnv4ren5	{mes "^228B22Chance de sucesso =^000000 40%";switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){case 1: close;case 2: set .@chancerefine,rand(.@1,100); if(.@chancerefine <=40){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 984,1;successrefitem @posi; close;} next; Mes @Npcn$;  mes "Refinamento falhou."; delitem 984,1;failedrefitem @posi; close; case 3: next; Mes @Npcn$; mes"Quantas Poeira de Oriharucon deseja usar? (Máximo 10)";input .@pdo;next; Mes @Npcn$;if(.@pdo > 10) { mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10"; close;}if(countitem(24001) <.@pdo ) { mes "Você não tem Poeira de Oriharucon suficientes."; close;}mes "^228B22Chance de sucesso =^000000";set .@mult,.@pdo*3;set .@result,40+.@mult;mes "40+"+.@mult+"="+.@result+"%";set .@chancerefine,rand(.@1,100); if(.@chancerefine <=.@result){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 984,1; delitem 24001,.@pdo; successrefitem @posi; close;}next; Mes @Npcn$;mes "Refinamento falhou."; delitem 984,1; delitem 24001,.@pdo; failedrefitem @posi; close;}}function	armnv4ren7	{mes "^228B22Chance de sucesso =^000000 20%";switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){case 1: close;case 2: set .@chancerefine,rand(.@1,100); if(.@chancerefine <=20){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 984,1;successrefitem @posi; close;} next; Mes @Npcn$;  mes "Refinamento falhou."; delitem 984,1;failedrefitem @posi; close; case 3: next; Mes @Npcn$; mes"Quantas Poeira de Lactolerium deseja usar? (Máximo 10)";input .@pdo;next; Mes @Npcn$;if(.@pdo > 10) { mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10"; close;}if(countitem(24000) <.@pdo ) { mes "Você não tem Poeira de Lactolerium suficientes."; close;}mes "^228B22Chance de sucesso =^000000";set .@mult,.@pdo*3;set .@result,20+.@mult;mes "20+"+.@mult+"="+.@result+"%";set .@chancerefine,rand(.@1,100); if(.@chancerefine <=.@result){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 984,1; delitem 24000,.@pdo; successrefitem @posi; close;}next; Mes @Npcn$;mes "Refinamento falhou."; delitem 984,1; delitem 24000,.@pdo; failedrefitem @posi; close;}}function	armnv4ren9	{mes "^228B22Chance de sucesso =^000000 10%";switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){case 1: close;case 2: set .@chancerefine,rand(.@1,100); if(.@chancerefine <=10){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 984,1;successrefitem @posi; close;} next; Mes @Npcn$;  mes "Refinamento falhou."; delitem 984,1;failedrefitem @posi; close; case 3: next; Mes @Npcn$; mes"Quantas Poeira de Lactolerium deseja usar? (Máximo 10)";input .@pdo;next; Mes @Npcn$;if(.@pdo > 10) { mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10"; close;}if(countitem(24000) <.@pdo ) { mes "Você não tem Poeira de Lactolerium suficientes."; close;}mes "^228B22Chance de sucesso =^000000";set .@mult,.@pdo*3;set .@result,10+.@mult;mes "10+"+.@mult+"="+.@result+"%";set .@chancerefine,rand(.@1,100); if(.@chancerefine <=.@result){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 984,1; delitem 24000,.@pdo; successrefitem @posi; close;}next; Mes @Npcn$;mes "Refinamento falhou."; delitem 984,1; delitem 24000,.@pdo; failedrefitem @posi; close;}}}//Script Desenvolvivo por Filipesaj  Favor não retirar os Créditos

P.E.:

Eu vi que o seu script não serai bem parsado par o scripting engine:

http://haru.ws/scriptchecker/

Validation output:

[Error]: script_add_str: detected possible use of wrong case in a script. Found 'Set', probably meant to be 'set' (in '/tmp/checkerwR2Mzm'). [Error]: script error in file '(DIRECT INPUT)' line 4 column 2     parse_line: expect command, missing function name or calling undeclared function      2: {      3:         set @posi,0; *    4:         Set @Npcn$,"^FF0000[Refinador]^000000";         ~~~~~~~~^      5:         Mes @Npcn$;      6:         mes "• Refinar é uma habilidade usada para tornar um equipamento mais poderoso.";      7:         mes "• Um mesmo equipamento pode atingir até o grau +10 de refinamento.";

Tudos os comandos de scripting devem estar em letra minúscula.

filipesaj · June 14, 2014

Desculpe, eu não sou Português mas eu tento de aprender.

Somente compare a primerira metade do script (indentada, case 1 do primeiro switch) com a segunda (o resto)

//Script Desenvolvivo por Filipesaj  Favor não retirar os Créditosprontera,148,166,3	script	Refine Especial	726,{	set @posi,0;	Set @Npcn$,"^FF0000[Refinador]^000000";	Mes @Npcn$;	mes "• Refinar é uma habilidade usada para tornar um equipamento mais poderoso.";	mes "• Um mesmo equipamento pode atingir até o grau +10 de refinamento.";	next;	switch(select("Refinar Equipamentos:Refinar Armas:Trocar Restos por Poeiras")) {		case 1:			switch(select("Topo da cabeça:Centro da Cabeça:Baixo da Cabeça:Armadura:Capa:Calçado:Escudo:Sair")) {				case 1:					set @posi,EQI_HEAD_TOP;					Mes @Npcn$;					if(getequipisequiped(@posi) == 0) {						mes "Você não tem nenhum equipamento no topo da cabeça.";						close;					}					if(getequipisenableref(@posi) == 0) {						mes "Esse equipamento não pode ser refinado.";						close;					}					if( getequiprefinerycnt(@posi) == 10 )  {						mes "Esse equipamento já atingiu o nível máximo";						close;					}					if(countitem(985) == 0) {						mes "Você não tem o item necessário (Elunium) para refinar esse equipamento.";						close;					}					if( getequiprefinerycnt(@posi) <= 3 ) {						mes"^228B22Chance de sucesso =^000000 100%";						next;						Mes @Npcn$;						mes "Equipamento refinado com sucesso";						delitem 985,1;						successrefitem @posi;						close;					}					if( getequiprefinerycnt(@posi) == 4) {						function Refine4;						Refine4();					}					if( getequiprefinerycnt(@posi) == 5) {						function Refine5;						Refine5();					}					if( getequiprefinerycnt(@posi) == 6) {						function Refine6;						Refine6();					}					if( getequiprefinerycnt(@posi) == 7) {						function Refine7;						Refine7();					}					if( getequiprefinerycnt(@posi) == 8) {						function Refine8;						Refine8();					}					if( getequiprefinerycnt(@posi) == 9) {						function Refine9;						Refine9();					}					close;				case 2:					set @posi,EQI_HEAD_MID;					Mes @Npcn$;					if(getequipisequiped(@posi) == 0) {						mes "Você não tem nenhum equipamento no centro da cabeça.";						close;					}					if(getequipisenableref(@posi) == 0) {						mes "Esse equipamento não pode ser refinado.";						close;					}					if( getequiprefinerycnt(@posi) == 10 )  {						mes "Esse equipamento já atingiu o nível máximo";						close;					}					if(countitem(985) == 0) {						mes "Você não tem o item necessário (Elunium) para refinar esse equipamento.";						close;					}					if( getequiprefinerycnt(@posi) <= 3 ) {						mes"^228B22Chance de sucesso =^000000 100%";						next;						Mes @Npcn$;						mes "Equipamento refinado com sucesso";						delitem 985,1;						successrefitem @posi;						close;					}					if( getequiprefinerycnt(@posi) == 4) {						function Refine4;						Refine4();					}					if( getequiprefinerycnt(@posi) == 5) {						function Refine5;						Refine5();					}					if( getequiprefinerycnt(@posi) == 6) {						function Refine6;						Refine6();					}					if( getequiprefinerycnt(@posi) == 7) {						function Refine7;						Refine7();					}					if( getequiprefinerycnt(@posi) == 8) {						function Refine8;						Refine8();					}					if( getequiprefinerycnt(@posi) == 9) {						function Refine9;						Refine9();					}					close;				case 3:					set @posi,EQI_HEAD_LOW;					Mes @Npcn$;					if(getequipisequiped(@posi) == 0) {						mes "Você não tem nenhum equipamento abaixo da cabeça.";						close;					}					if(getequipisenableref(@posi) == 0) {						mes "Esse equipamento não pode ser refinado.";						close;					}					if( getequiprefinerycnt(@posi) == 10 )  {						mes "Esse equipamento já atingiu o nível máximo";						close;					}					if(countitem(985) == 0) {						mes "Você não tem o item necessário (Elunium) para refinar esse equipamento.";						close;					}					if( getequiprefinerycnt(@posi) <= 3 ) {						mes"^228B22Chance de sucesso =^000000 100%";						next;						Mes @Npcn$;						mes "Equipamento refinado com sucesso";						delitem 985,1;						successrefitem @posi;						close;					}					if( getequiprefinerycnt(@posi) == 4) {						function Refine4;						Refine4();					}					if( getequiprefinerycnt(@posi) == 5) {						function Refine5;						Refine5();					}					if( getequiprefinerycnt(@posi) == 6) {						function Refine6;						Refine6();					}					if( getequiprefinerycnt(@posi) == 7) {						function Refine7;						Refine7();					}					if( getequiprefinerycnt(@posi) == 8) {						function Refine8;						Refine8();					}					if( getequiprefinerycnt(@posi) == 9) {						function Refine9;						Refine9();					}					close;				case 4:					set @posi,EQI_ARMOR;					Mes @Npcn$;					if(getequipisequiped(@posi) == 0) {						mes "Você não tem nenhuma armadura.";						close;					}					if(getequipisenableref(@posi) == 0) {						mes "Esse equipamento não pode ser refinado.";						close;					}					if( getequiprefinerycnt(@posi) == 10 )  {						mes "Esse equipamento já atingiu o nível máximo";						close;					}					if(countitem(985) == 0) {						mes "Você não tem o item necessário (Elunium) para refinar esse equipamento.";						close;					}					if( getequiprefinerycnt(@posi) <= 3 ) {						mes"^228B22Chance de sucesso =^000000 100%";						next;						Mes @Npcn$;						mes "Equipamento refinado com sucesso";						delitem 985,1;						successrefitem @posi;						close;					}					if( getequiprefinerycnt(@posi) == 4) {						function Refine4;						Refine4();					}					if( getequiprefinerycnt(@posi) == 5) {						function Refine5;						Refine5();					}					if( getequiprefinerycnt(@posi) == 6) {						function Refine6;						Refine6();					}					if( getequiprefinerycnt(@posi) == 7) {						function Refine7;						Refine7();					}					if( getequiprefinerycnt(@posi) == 8) {						function Refine8;						Refine8();					}					if( getequiprefinerycnt(@posi) == 9) {						function Refine9;						Refine9();					}					close;				case 5:					set @posi,EQI_GARMENT;					Mes @Npcn$;					if(getequipisequiped(@posi) == 0) {						mes "Você não tem nenhuma capa.";						close;					}					if(getequipisenableref(@posi) == 0) {						mes "Esse equipamento não pode ser refinado.";						close;					}					if( getequiprefinerycnt(@posi) == 10 )  {						mes "Esse equipamento já atingiu o nível máximo";						close;					}					if(countitem(985) == 0) {						mes "Você não tem o item necessário (Elunium) para refinar esse equipamento.";						close;					}					if( getequiprefinerycnt(@posi) <= 3 ) {						mes"^228B22Chance de sucesso =^000000 100%";						next;						Mes @Npcn$;						mes "Equipamento refinado com sucesso";						delitem 985,1;						successrefitem @posi;						close;					}					if( getequiprefinerycnt(@posi) == 4) {						function Refine4;						Refine4();					}					if( getequiprefinerycnt(@posi) == 5) {						function Refine5;						Refine5();					}					if( getequiprefinerycnt(@posi) == 6) {						function Refine6;						Refine6();					}					if( getequiprefinerycnt(@posi) == 7) {						function Refine7;						Refine7();					}					if( getequiprefinerycnt(@posi) == 8) {						function Refine8;						Refine8();					}					if( getequiprefinerycnt(@posi) == 9) {						function Refine9;						Refine9();					}					close;				case 6:					set @posi,EQI_SHOES;					Mes @Npcn$;					if(getequipisequiped(@posi) == 0) {						mes "Você não tem nenhum calçado.";						close;					}					if(getequipisenableref(@posi) == 0) {						mes "Esse equipamento não pode ser refinado.";						close;					}					if( getequiprefinerycnt(@posi) == 10 )  {						mes "Esse equipamento já atingiu o nível máximo";						close;					}					if(countitem(985) == 0) {						mes "Você não tem o item necessário (Elunium) para refinar esse equipamento.";						close;					}					if( getequiprefinerycnt(@posi) <= 3 ) {						mes"^228B22Chance de sucesso =^000000 100%";						next;						Mes @Npcn$;						mes "Equipamento refinado com sucesso";						delitem 985,1;						successrefitem @posi;						close;					}					if( getequiprefinerycnt(@posi) == 4) {						function Refine4;						Refine4();					}					if( getequiprefinerycnt(@posi) == 5) {						function Refine5;						Refine5();					}					if( getequiprefinerycnt(@posi) == 6) {						function Refine6;						Refine6();					}					if( getequiprefinerycnt(@posi) == 7) {						function Refine7;						Refine7();					}					if( getequiprefinerycnt(@posi) == 8) {						function Refine8;						Refine8();					}					if( getequiprefinerycnt(@posi) == 9) {						function Refine9;						Refine9();					}					close;				case 7:					set @posi,EQI_HAND_L;					Mes @Npcn$;					if(getequipisequiped(@posi) == 0) {						mes "Você não tem nenhum escudo.";						close;					}					if(getequipisenableref(@posi) == 0) {						mes "Esse equipamento não pode ser refinado.";						close;					}					if( getequiprefinerycnt(@posi) == 10 )  {						mes "Esse equipamento já atingiu o nível máximo";						close;					}					if(countitem(985) == 0) {						mes "Você não tem o item necessário (Elunium) para refinar esse equipamento.";						close;					}					if( getequiprefinerycnt(@posi) <= 3 ) {						mes"^228B22Chance de sucesso =^000000 100%";						next;						Mes @Npcn$;						mes "Equipamento refinado com sucesso";						delitem 985,1;						successrefitem @posi;						close;					}					if( getequiprefinerycnt(@posi) == 4) {						function Refine4;						Refine4();					}					if( getequiprefinerycnt(@posi) == 5) {						function Refine5;						Refine5();					}					if( getequiprefinerycnt(@posi) == 6) {						function Refine6;						Refine6();					}					if( getequiprefinerycnt(@posi) == 7) {						function Refine7;						Refine7();					}					if( getequiprefinerycnt(@posi) == 8) {						function Refine8;						Refine8();					}					if( getequiprefinerycnt(@posi) == 9) {						function Refine9;						Refine9();					}					close;				case 8:					close;			}	function	Refine4	{		mes "^228B22Chance de sucesso =^000000 60%";		switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){			case 1:				close;			case 2:				set .@chancerefine,rand(.@1,100);				if(.@chancerefine <=60){					next;					Mes @Npcn$; 					mes "Equipamento refinado com sucesso";					delitem 985,1;					successrefitem @posi; 					close;				}				next;				Mes @Npcn$;				mes "Refinamento falhou.";				delitem 985,1;				failedrefitem @posi;				close; 			case 3:				next;				Mes @Npcn$;				mes "Quantas Poeiras de Oriharucon deseja usar? (Máximo 10)";				input .@pdo;				next;				Mes @Npcn$;				if(.@pdo > 10) {					mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10";					close;				}				if(countitem(24001) <.@pdo ) {					mes "Você não tem Poeiras de Oriharucon suficientes.";					close;				}				mes "^228B22Chance de sucesso =^000000";				set .@result,60+.@pdo;				mes "60+"+.@pdo+" = "+.@result+"%";				set .@chancerefine,rand(.@1,100);				if(.@chancerefine <=.@result){					next;					Mes @Npcn$;					mes "Equipamento refinado com sucesso";					delitem 985,1;					delitem 24001,.@pdo;					successrefitem @posi;					close;				}				next;				Mes @Npcn$;				mes "Refinamento falhou.";				delitem 985,1;				delitem 24001,.@pdo;				failedrefitem @posi;				close;		}	}		function	Refine5	{		mes "^228B22Chance de sucesso =^000000 40%";		switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){			case 1:				close;			case 2:				set .@chancerefine,rand(.@1,100);				if(.@chancerefine <=40){					next;					Mes @Npcn$; 					mes "Equipamento refinado com sucesso";					delitem 985,1;					successrefitem @posi; 					close;				}				next;				Mes @Npcn$;				mes "Refinamento falhou.";				delitem 985,1;				failedrefitem @posi;				close; 			case 3:				next;				Mes @Npcn$;				mes "Quantas Poeiras de Oriharucon deseja usar? (Máximo 10)";				input .@pdo;				next;				Mes @Npcn$;				if(.@pdo > 10) {					mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10";					close;				}				if(countitem(24001) <.@pdo ) {					mes "Você não tem Poeiras de Oriharucon suficientes.";					close;				}				mes "^228B22Chance de sucesso =^000000";				set .@result,40+.@pdo;				mes "40+"+.@pdo+" = "+.@result+"%";				set .@chancerefine,rand(.@1,100);				if(.@chancerefine <=.@result){					next;					Mes @Npcn$;					mes "Equipamento refinado com sucesso";					delitem 985,1;					delitem 24001,.@pdo;					successrefitem @posi;					close;				}				next;				Mes @Npcn$;				mes "Refinamento falhou.";				delitem 985,1;				delitem 24001,.@pdo;				failedrefitem @posi;				close;		}	}	function	Refine6	{		mes "^228B22Chance de sucesso =^000000 40%";		switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){			case 1:				close;			case 2:				set .@chancerefine,rand(.@1,100);				if(.@chancerefine <=40){					next;					Mes @Npcn$; 					mes "Equipamento refinado com sucesso";					delitem 985,1;					successrefitem @posi; 					close;				}				next;				Mes @Npcn$;				mes "Refinamento falhou.";				delitem 985,1;				failedrefitem @posi;				close; 			case 3:				next;				Mes @Npcn$;				mes "Quantas Poeiras de Oriharucon deseja usar? (Máximo 10)";				input .@pdo;				next;				Mes @Npcn$;				if(.@pdo > 10) {					mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10";					close;				}				if(countitem(24001) <.@pdo ) {					mes "Você não tem Poeiras de Oriharucon suficientes.";					close;				}				mes "^228B22Chance de sucesso =^000000";				set .@result,40+.@pdo;				mes "40+"+.@pdo+" = "+.@result+"%";				set .@chancerefine,rand(.@1,100);				if(.@chancerefine <=.@result){					next;					Mes @Npcn$;					mes "Equipamento refinado com sucesso";					delitem 985,1;					delitem 24001,.@pdo;					successrefitem @posi;					close;				}				next;				Mes @Npcn$;				mes "Refinamento falhou.";				delitem 985,1;				delitem 24001,.@pdo;				failedrefitem @posi;				close;		}	}	function	Refine7	{		mes "^228B22Chance de sucesso =^000000 20%";		switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){			case 1:				close;			case 2:				set .@chancerefine,rand(.@1,100);				if(.@chancerefine <=20){					next;					Mes @Npcn$; 					mes "Equipamento refinado com sucesso";					delitem 985,1;					successrefitem @posi; 					close;				}				next;				Mes @Npcn$;				mes "Refinamento falhou.";				delitem 985,1;				failedrefitem @posi;				close; 			case 3:				next;				Mes @Npcn$;				mes "Quantas Poeiras de Oriharucon deseja usar? (Máximo 10)";				input .@pdo;				next;				Mes @Npcn$;				if(.@pdo > 10) {					mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10";					close;				}				if(countitem(24001) <.@pdo ) {					mes "Você não tem Poeiras de Oriharucon suficientes.";					close;				}				mes "^228B22Chance de sucesso =^000000";				set .@result,20+.@pdo;				mes "20+"+.@pdo+" = "+.@result+"%";				set .@chancerefine,rand(.@1,100);				if(.@chancerefine <=.@result){					next;					Mes @Npcn$;					mes "Equipamento refinado com sucesso";					delitem 985,1;					delitem 24001,.@pdo;					successrefitem @posi;					close;				}				next;				Mes @Npcn$;				mes "Refinamento falhou.";				delitem 985,1;				delitem 24001,.@pdo;				failedrefitem @posi;				close;		}	}	function	Refine8	{		mes "^228B22Chance de sucesso =^000000 20%";		switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){			case 1:				close;			case 2:				set .@chancerefine,rand(.@1,100);				if(.@chancerefine <=20){					next;					Mes @Npcn$; 					mes "Equipamento refinado com sucesso";					delitem 985,1;					successrefitem @posi; 					close;				}				next;				Mes @Npcn$;				mes "Refinamento falhou.";				delitem 985,1;				failedrefitem @posi;				close; 			case 3:				next;				Mes @Npcn$;				mes "Quantas Poeiras de Oriharucon deseja usar? (Máximo 10)";				input .@pdo;				next;				Mes @Npcn$;				if(.@pdo > 10) {					mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10";					close;				}				if(countitem(24001) <.@pdo ) {					mes "Você não tem Poeiras de Oriharucon suficientes.";					close;				}				mes "^228B22Chance de sucesso =^000000";				set .@result,20+.@pdo;				mes "20+"+.@pdo+" = "+.@result+"%";				set .@chancerefine,rand(.@1,100);				if(.@chancerefine <=.@result){					next;					Mes @Npcn$;					mes "Equipamento refinado com sucesso";					delitem 985,1;					delitem 24001,.@pdo;					successrefitem @posi;					close;				}				next;				Mes @Npcn$;				mes "Refinamento falhou.";				delitem 985,1;				delitem 24001,.@pdo;				failedrefitem @posi;				close;		}	}	function	Refine9	{		mes "^228B22Chance de sucesso =^000000 10%";		switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){			case 1:				close;			case 2:				set .@chancerefine,rand(.@1,100);				if(.@chancerefine <=10){					next;					Mes @Npcn$; 					mes "Equipamento refinado com sucesso";					delitem 985,1;					successrefitem @posi; 					close;				}				next;				Mes @Npcn$;				mes "Refinamento falhou.";				delitem 985,1;				failedrefitem @posi;				close; 			case 3:				next;				Mes @Npcn$;				mes "Quantas Poeiras de Oriharucon deseja usar? (Máximo 10)";				input .@pdo;				next;				Mes @Npcn$;				if(.@pdo > 10) {					mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10";					close;				}				if(countitem(24001) <.@pdo ) {					mes "Você não tem Poeiras de Oriharucon suficientes.";					close;				}				mes "^228B22Chance de sucesso =^000000";				set .@result,10+.@pdo;				mes "10+"+.@pdo+" = "+.@result+"%";				set .@chancerefine,rand(.@1,100);				if(.@chancerefine <=.@result){					next;					Mes @Npcn$;					mes "Equipamento refinado com sucesso";					delitem 985,1;					delitem 24001,.@pdo;					successrefitem @posi;					close;				}				next;				Mes @Npcn$;				mes "Refinamento falhou.";				delitem 985,1;				delitem 24001,.@pdo;				failedrefitem @posi;				close;		}	}case 2:next; Mes @Npcn$;mes "Refino apenas arma da mão direita.";switch(select("Refinar Arma:Sair")){case 1:set @posi,EQI_HAND_R;set @nvarm,getequipweaponlv(EQI_HAND_R);if(getequipisequiped(@posi) == 0) { mes "Você não tem nenhuma arma."; close;}if(getequipisenableref(@posi) == 0) { mes "Essa arma não pode ser refinada."; close; }if( getequiprefinerycnt(@posi) == 10 )  {mes "Essa arma já atingiu o refine máximo"; close;}if(@nvarm == 1){ if(countitem(1010) == 0) { mes "Você não tem o item necessário (Fracon) para refinar essa arma (Arma Nv1)."; close;} }if(@nvarm == 2){ if(countitem(1011) == 0) { mes "Você não tem o item necessário (Emveretarcon) para refinar essa arma (Arma Nv2)."; close;} }if(@nvarm == 3){ if(countitem(984) == 0) { mes "Você não tem o item necessário (Oridecon) para refinar essa arma (Arma Nv3)."; close;} }if(@nvarm == 4){ if(countitem(984) == 0) { mes "Você não tem o item necessário (Oridecon) para refinar essa arma (Arma Nv4)."; close;} }if(@nvarm == 1){if( getequiprefinerycnt(@posi) <= 6 ) {mes"^228B22Chance de sucesso =^000000 100%"; next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 1010,1; successrefitem @posi; close;}}if(@nvarm == 1){if( getequiprefinerycnt(@posi) == 7 ){function armnv1ren7;armnv1ren7();}}if(@nvarm == 1){if( getequiprefinerycnt(@posi) == 8 ){function armnv1ren8;armnv1ren8();}}if(@nvarm == 1){if( getequiprefinerycnt(@posi) == 9 ){function armnv1ren9;armnv1ren9();}}if(@nvarm == 2){if( getequiprefinerycnt(@posi) <= 5 ) {mes"^228B22Chance de sucesso =^000000 100%"; next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 1011,1; successrefitem @posi; close;}}if(@nvarm == 2){if( getequiprefinerycnt(@posi) == 6 ){function armnv2ren6;armnv2ren6();}}if(@nvarm == 2){if( getequiprefinerycnt(@posi) == 7 ){function armnv2ren7;armnv2ren7();}}if(@nvarm == 2){if( getequiprefinerycnt(@posi) == 8 ){function armnv2ren8;armnv2ren8();}}if(@nvarm == 2){if( getequiprefinerycnt(@posi) == 9 ){function armnv2ren9;armnv2ren9();}}if(@nvarm == 3){if( getequiprefinerycnt(@posi) <= 4 ) {mes"^228B22Chance de sucesso =^000000 100%"; next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 984,1; successrefitem @posi; close;}}if(@nvarm == 3){if( getequiprefinerycnt(@posi) == 5 ){function armnv3ren5;armnv3ren5();}}if(@nvarm == 3){if( getequiprefinerycnt(@posi) == 6 ){function armnv3ren6;armnv3ren6();}}if(@nvarm == 3){if( getequiprefinerycnt(@posi) == 7 ){function armnv3ren7;armnv3ren7();}}if(@nvarm == 3){if( getequiprefinerycnt(@posi) == 8 ){function armnv3ren7;armnv3ren7();}}if(@nvarm == 3){if( getequiprefinerycnt(@posi) == 9 ){function armnv3ren7;armnv3ren7();}}if(@nvarm == 4){if( getequiprefinerycnt(@posi) <= 3 ) {mes"^228B22Chance de sucesso =^000000 100%"; next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 984,1; successrefitem @posi; close;}}if(@nvarm == 4){if( getequiprefinerycnt(@posi) == 4 ){function armnv4ren4;armnv4ren4();}}if(@nvarm == 4){if( getequiprefinerycnt(@posi) == 5 ){function armnv4ren5;armnv4ren5();}}if(@nvarm == 4){if( getequiprefinerycnt(@posi) == 6 ){function armnv4ren5;armnv4ren5();}}if(@nvarm == 4){if( getequiprefinerycnt(@posi) == 7 ){function armnv4ren7;armnv4ren7();}}if(@nvarm == 4){if( getequiprefinerycnt(@posi) == 8 ){function armnv4ren7;armnv4ren7();}}if(@nvarm == 4){if( getequiprefinerycnt(@posi) == 9 ){function armnv4ren9;armnv4ren9();}}close;case 2:close;}case 3:next; Mes @Npcn$;mes "• Pelo preço de 1.000.000 zenys eu posso transformar 10 Restos por 1 Poeira";mes "• Deseja qual poeira?";switch(select("Lactolerium:Poeira de Oriharucon")){case 1:if(countitem(24002) < 10) { next; Mes @Npcn$; mes "Você não tem Restos de Lactolerium suficientes."; close;}if(zeny< 1000000) { next; Mes @Npcn$; mes "Você não tem Zenys suficientes."; close;}next;Mes @Npcn$;Mes "Negociação concluida com sucesso";delitem 24002,10;set zeny,zeny-1000000;getitem 24000,1;close;case 2:if(countitem(24003) < 10) { next; Mes @Npcn$; mes "Você não tem Restos de Oriharucon suficientes."; close;}if(zeny< 1000000) { next; Mes @Npcn$; mes "Você não tem Zenys suficientes."; close;}next;Mes @Npcn$;Mes "Negociação concluida com sucesso";delitem 24003,10;set zeny,zeny-1000000;getitem 24001,1;close;}close;}function	armnv1ren7	{mes "^228B22Chance de sucesso =^000000 60%";switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){case 1: close;case 2: set .@chancerefine,rand(.@1,100); if(.@chancerefine <=60){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 1010,1;successrefitem @posi; close;} next; Mes @Npcn$;  mes "Refinamento falhou."; delitem 1010,1;failedrefitem @posi; close; case 3: next; Mes @Npcn$; mes"Quantas Poeira de Lactolerium deseja usar? (Máximo 10)";input .@pdo;next; Mes @Npcn$;if(.@pdo > 10) { mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10"; close;}if(countitem(24000) <.@pdo ) { mes "Você não tem Poeira de Lactolerium suficientes."; close;}mes "^228B22Chance de sucesso =^000000";set .@mult,.@pdo*3;set .@result,60+.@mult;mes "60+"+.@mult+"="+.@result+"%";set .@chancerefine,rand(.@1,100); if(.@chancerefine <=.@result){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 1010,1; delitem 24000,.@pdo; successrefitem @posi; close;}next; Mes @Npcn$;mes "Refinamento falhou."; delitem 1010,1; delitem 24000,.@pdo; failedrefitem @posi; close;}}function	armnv1ren8	{mes "^228B22Chance de sucesso =^000000 40%";switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){case 1: close;case 2: set .@chancerefine,rand(.@1,100); if(.@chancerefine <=40){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 1010,1;successrefitem @posi; close;} next; Mes @Npcn$;  mes "Refinamento falhou."; delitem 1010,1;failedrefitem @posi; close; case 3: next; Mes @Npcn$; mes"Quantas Poeira de Lactolerium deseja usar? (Máximo 10)";input .@pdo;next; Mes @Npcn$;if(.@pdo > 10) { mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10"; close;}if(countitem(24000) <.@pdo ) { mes "Você não tem Poeira de Lactolerium suficientes."; close;}mes "^228B22Chance de sucesso =^000000";set .@mult,.@pdo*3;set .@result,40+.@mult;mes "40+"+.@mult+"="+.@result+"%";set .@chancerefine,rand(.@1,100); if(.@chancerefine <=.@result){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 1010,1; delitem 24000,.@pdo; successrefitem @posi; close;}next; Mes @Npcn$;mes "Refinamento falhou."; delitem 1010,1; delitem 24000,.@pdo; failedrefitem @posi; close;}}function	armnv1ren9	{mes "^228B22Chance de sucesso =^000000 20%";switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){case 1: close;case 2: set .@chancerefine,rand(.@1,100); if(.@chancerefine <=20){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 1010,1;successrefitem @posi; close;} next; Mes @Npcn$;  mes "Refinamento falhou."; delitem 1010,1;failedrefitem @posi; close; case 3: next; Mes @Npcn$; mes"Quantas Poeira de Lactolerium deseja usar? (Máximo 10)";input .@pdo;next; Mes @Npcn$;if(.@pdo > 10) { mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10"; close;}if(countitem(24000) <.@pdo ) { mes "Você não tem Poeira de Lactolerium suficientes."; close;}mes "^228B22Chance de sucesso =^000000";set .@mult,.@pdo*3;set .@result,20+.@mult;mes "20+"+.@mult+"="+.@result+"%";set .@chancerefine,rand(.@1,100); if(.@chancerefine <=.@result){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 1010,1; delitem 24000,.@pdo; successrefitem @posi; close;}next; Mes @Npcn$;mes "Refinamento falhou."; delitem 1010,1; delitem 24000,.@pdo; failedrefitem @posi; close;}}function	armnv2ren6	{mes "^228B22Chance de sucesso =^000000 60%";switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){case 1: close;case 2: set .@chancerefine,rand(.@1,100); if(.@chancerefine <=60){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 1011,1;successrefitem @posi; close;} next; Mes @Npcn$;  mes "Refinamento falhou."; delitem 1011,1;failedrefitem @posi; close; case 3: next; Mes @Npcn$; mes"Quantas Poeira de Oriharucon deseja usar? (Máximo 10)";input .@pdo;next; Mes @Npcn$;if(.@pdo > 10) { mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10"; close;}if(countitem(24001) <.@pdo ) { mes "Você não tem Poeira de Oriharucon suficientes."; close;}mes "^228B22Chance de sucesso =^000000";set .@mult,.@pdo*3;set .@result,60+.@mult;mes "60+"+.@mult+"="+.@result+"%";set .@chancerefine,rand(.@1,100); if(.@chancerefine <=.@result){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 1011,1; delitem 24001,.@pdo; successrefitem @posi; close;}next; Mes @Npcn$;mes "Refinamento falhou."; delitem 1011,1; delitem 24001,.@pdo; failedrefitem @posi; close;}}function	armnv2ren7	{mes "^228B22Chance de sucesso =^000000 40%";switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){case 1: close;case 2: set .@chancerefine,rand(.@1,100); if(.@chancerefine <=40){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 1011,1;successrefitem @posi; close;} next; Mes @Npcn$;  mes "Refinamento falhou."; delitem 1011,1;failedrefitem @posi; close; case 3: next; Mes @Npcn$; mes"Quantas Poeira de Lactolerium deseja usar? (Máximo 10)";input .@pdo;next; Mes @Npcn$;if(.@pdo > 10) { mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10"; close;}if(countitem(24000) <.@pdo ) { mes "Você não tem Poeira de Lactolerium suficientes."; close;}mes "^228B22Chance de sucesso =^000000";set .@mult,.@pdo*3;set .@result,40+.@mult;mes "40+"+.@mult+"="+.@result+"%";set .@chancerefine,rand(.@1,100); if(.@chancerefine <=.@result){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 1011,1; delitem 24000,.@pdo; successrefitem @posi; close;}next; Mes @Npcn$;mes "Refinamento falhou."; delitem 1011,1; delitem 24000,.@pdo; failedrefitem @posi; close;}}function	armnv2ren8	{mes "^228B22Chance de sucesso =^000000 20%";switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){case 1: close;case 2: set .@chancerefine,rand(.@1,100); if(.@chancerefine <=20){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 1011,1;successrefitem @posi; close;} next; Mes @Npcn$;  mes "Refinamento falhou."; delitem 1011,1;failedrefitem @posi; close; case 3: next; Mes @Npcn$; mes"Quantas Poeira de Lactolerium deseja usar? (Máximo 10)";input .@pdo;next; Mes @Npcn$;if(.@pdo > 10) { mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10"; close;}if(countitem(24000) <.@pdo ) { mes "Você não tem Poeira de Lactolerium suficientes."; close;}mes "^228B22Chance de sucesso =^000000";set .@mult,.@pdo*3;set .@result,20+.@mult;mes "20+"+.@mult+"="+.@result+"%";set .@chancerefine,rand(.@1,100); if(.@chancerefine <=.@result){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 1011,1; delitem 24000,.@pdo; successrefitem @posi; close;}next; Mes @Npcn$;mes "Refinamento falhou."; delitem 1011,1; delitem 24000,.@pdo; failedrefitem @posi; close;}}function	armnv2ren9	{mes "^228B22Chance de sucesso =^000000 20%";switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){case 1: close;case 2: set .@chancerefine,rand(.@1,100); if(.@chancerefine <=20){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 1011,1;successrefitem @posi; close;} next; Mes @Npcn$;  mes "Refinamento falhou."; delitem 1011,1;failedrefitem @posi; close; case 3: next; Mes @Npcn$; mes"Quantas Poeira de Lactolerium deseja usar? (Máximo 10)";input .@pdo;next; Mes @Npcn$;if(.@pdo > 10) { mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10"; close;}if(countitem(24000) <.@pdo ) { mes "Você não tem Poeira de Lactolerium suficientes."; close;}mes "^228B22Chance de sucesso =^000000";set .@mult,.@pdo*3;set .@result,20+.@mult;mes "20+"+.@mult+"="+.@result+"%";set .@chancerefine,rand(.@1,100); if(.@chancerefine <=.@result){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 1011,1; delitem 24000,.@pdo; successrefitem @posi; close;}next; Mes @Npcn$;mes "Refinamento falhou."; delitem 1011,1; delitem 24000,.@pdo; failedrefitem @posi; close;}}function	armnv3ren5	{mes "^228B22Chance de sucesso =^000000 60%";switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){case 1: close;case 2: set .@chancerefine,rand(.@1,100); if(.@chancerefine <=60){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 984,1;successrefitem @posi; close;} next; Mes @Npcn$;  mes "Refinamento falhou."; delitem 984,1;failedrefitem @posi; close; case 3: next; Mes @Npcn$; mes"Quantas Poeira de Oriharucon deseja usar? (Máximo 10)";input .@pdo;next; Mes @Npcn$;if(.@pdo > 10) { mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10"; close;}if(countitem(24001) <.@pdo ) { mes "Você não tem Poeira de Oriharucon suficientes."; close;}mes "^228B22Chance de sucesso =^000000";set .@mult,.@pdo*3;set .@result,60+.@mult;mes "60+"+.@mult+"="+.@result+"%";set .@chancerefine,rand(.@1,100); if(.@chancerefine <=.@result){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 984,1; delitem 24001,.@pdo; successrefitem @posi; close;}next; Mes @Npcn$;mes "Refinamento falhou."; delitem 984,1; delitem 24001,.@pdo; failedrefitem @posi; close;}}function	armnv3ren6	{mes "^228B22Chance de sucesso =^000000 50%";switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){case 1: close;case 2: set .@chancerefine,rand(.@1,100); if(.@chancerefine <=50){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 984,1;successrefitem @posi; close;} next; Mes @Npcn$;  mes "Refinamento falhou."; delitem 984,1;failedrefitem @posi; close; case 3: next; Mes @Npcn$; mes"Quantas Poeira de Oriharucon deseja usar? (Máximo 10)";input .@pdo;next; Mes @Npcn$;if(.@pdo > 10) { mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10"; close;}if(countitem(24001) <.@pdo ) { mes "Você não tem Poeira de Oriharucon suficientes."; close;}mes "^228B22Chance de sucesso =^000000";set .@mult,.@pdo*3;set .@result,50+.@mult;mes "50+"+.@mult+"="+.@result+"%";set .@chancerefine,rand(.@1,100); if(.@chancerefine <=.@result){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 984,1; delitem 24001,.@pdo; successrefitem @posi; close;}next; Mes @Npcn$;mes "Refinamento falhou."; delitem 984,1; delitem 24001,.@pdo; failedrefitem @posi; close;}}function	armnv3ren7	{mes "^228B22Chance de sucesso =^000000 20%";switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){case 1: close;case 2: set .@chancerefine,rand(.@1,100); if(.@chancerefine <=20){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 984,1;successrefitem @posi; close;} next; Mes @Npcn$;  mes "Refinamento falhou."; delitem 984,1;failedrefitem @posi; close; case 3: next; Mes @Npcn$; mes"Quantas Poeira de Lactolerium deseja usar? (Máximo 10)";input .@pdo;next; Mes @Npcn$;if(.@pdo > 10) { mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10"; close;}if(countitem(24000) <.@pdo ) { mes "Você não tem Poeira de Lactolerium suficientes."; close;}mes "^228B22Chance de sucesso =^000000";set .@mult,.@pdo*3;set .@result,20+.@mult;mes "20+"+.@mult+"="+.@result+"%";set .@chancerefine,rand(.@1,100); if(.@chancerefine <=.@result){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 984,1; delitem 24000,.@pdo; successrefitem @posi; close;}next; Mes @Npcn$;mes "Refinamento falhou."; delitem 984,1; delitem 24000,.@pdo; failedrefitem @posi; close;}}function	armnv4ren4	{mes "^228B22Chance de sucesso =^000000 60%";switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){case 1: close;case 2: set .@chancerefine,rand(.@1,100); if(.@chancerefine <=60){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 984,1;successrefitem @posi; close;} next; Mes @Npcn$;  mes "Refinamento falhou."; delitem 984,1;failedrefitem @posi; close; case 3: next; Mes @Npcn$; mes"Quantas Poeira de Oriharucon deseja usar? (Máximo 10)";input .@pdo;next; Mes @Npcn$;if(.@pdo > 10) { mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10"; close;}if(countitem(24001) <.@pdo ) { mes "Você não tem Poeira de Oriharucon suficientes."; close;}mes "^228B22Chance de sucesso =^000000";set .@mult,.@pdo*3;set .@result,60+.@mult;mes "60+"+.@mult+"="+.@result+"%";set .@chancerefine,rand(.@1,100); if(.@chancerefine <=.@result){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 984,1; delitem 24001,.@pdo; successrefitem @posi; close;}next; Mes @Npcn$;mes "Refinamento falhou."; delitem 984,1; delitem 24001,.@pdo; failedrefitem @posi; close;}}function	armnv4ren5	{mes "^228B22Chance de sucesso =^000000 40%";switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){case 1: close;case 2: set .@chancerefine,rand(.@1,100); if(.@chancerefine <=40){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 984,1;successrefitem @posi; close;} next; Mes @Npcn$;  mes "Refinamento falhou."; delitem 984,1;failedrefitem @posi; close; case 3: next; Mes @Npcn$; mes"Quantas Poeira de Oriharucon deseja usar? (Máximo 10)";input .@pdo;next; Mes @Npcn$;if(.@pdo > 10) { mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10"; close;}if(countitem(24001) <.@pdo ) { mes "Você não tem Poeira de Oriharucon suficientes."; close;}mes "^228B22Chance de sucesso =^000000";set .@mult,.@pdo*3;set .@result,40+.@mult;mes "40+"+.@mult+"="+.@result+"%";set .@chancerefine,rand(.@1,100); if(.@chancerefine <=.@result){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 984,1; delitem 24001,.@pdo; successrefitem @posi; close;}next; Mes @Npcn$;mes "Refinamento falhou."; delitem 984,1; delitem 24001,.@pdo; failedrefitem @posi; close;}}function	armnv4ren7	{mes "^228B22Chance de sucesso =^000000 20%";switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){case 1: close;case 2: set .@chancerefine,rand(.@1,100); if(.@chancerefine <=20){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 984,1;successrefitem @posi; close;} next; Mes @Npcn$;  mes "Refinamento falhou."; delitem 984,1;failedrefitem @posi; close; case 3: next; Mes @Npcn$; mes"Quantas Poeira de Lactolerium deseja usar? (Máximo 10)";input .@pdo;next; Mes @Npcn$;if(.@pdo > 10) { mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10"; close;}if(countitem(24000) <.@pdo ) { mes "Você não tem Poeira de Lactolerium suficientes."; close;}mes "^228B22Chance de sucesso =^000000";set .@mult,.@pdo*3;set .@result,20+.@mult;mes "20+"+.@mult+"="+.@result+"%";set .@chancerefine,rand(.@1,100); if(.@chancerefine <=.@result){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 984,1; delitem 24000,.@pdo; successrefitem @posi; close;}next; Mes @Npcn$;mes "Refinamento falhou."; delitem 984,1; delitem 24000,.@pdo; failedrefitem @posi; close;}}function	armnv4ren9	{mes "^228B22Chance de sucesso =^000000 10%";switch(select("Cancelar:Refinar:Usar Poeiras de Refine")){case 1: close;case 2: set .@chancerefine,rand(.@1,100); if(.@chancerefine <=10){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 984,1;successrefitem @posi; close;} next; Mes @Npcn$;  mes "Refinamento falhou."; delitem 984,1;failedrefitem @posi; close; case 3: next; Mes @Npcn$; mes"Quantas Poeira de Lactolerium deseja usar? (Máximo 10)";input .@pdo;next; Mes @Npcn$;if(.@pdo > 10) { mes "Eu disse que o máximo de Poeiras que poderiam ser usadas eram 10"; close;}if(countitem(24000) <.@pdo ) { mes "Você não tem Poeira de Lactolerium suficientes."; close;}mes "^228B22Chance de sucesso =^000000";set .@mult,.@pdo*3;set .@result,10+.@mult;mes "10+"+.@mult+"="+.@result+"%";set .@chancerefine,rand(.@1,100); if(.@chancerefine <=.@result){next; Mes @Npcn$;  mes "Equipamento refinado com sucesso"; delitem 984,1; delitem 24000,.@pdo; successrefitem @posi; close;}next; Mes @Npcn$;mes "Refinamento falhou."; delitem 984,1; delitem 24000,.@pdo; failedrefitem @posi; close;}}}//Script Desenvolvivo por Filipesaj  Favor não retirar os Créditos

P.E.:

Eu vi que o seu script não serai bem parsado par o scripting engine:

http://haru.ws/scriptchecker/

Validation output:

[Error]: script_add_str: detected possible use of wrong case in a script. Found 'Set', probably meant to be 'set' (in '/tmp/checkerwR2Mzm'). [Error]: script error in file '(DIRECT INPUT)' line 4 column 2     parse_line: expect command, missing function name or calling undeclared function      2: {      3:         set @posi,0; *    4:         Set @Npcn$,"^FF0000[Refinador]^000000";         ~~~~~~~~^      5:         Mes @Npcn$;      6:         mes "• Refinar é uma habilidade usada para tornar um equipamento mais poderoso.";      7:         mes "• Um mesmo equipamento pode atingir até o grau +10 de refinamento.";

Tudos os comandos de scripting devem estar em letra minúscula.

Hmm, o emulador que uso não importa se esta minúscula ou maiúscula, vou consertar.

Também não falo em Inglês.

Pensava até em fazer uma versão inglês desse script mas usando um tradutor acho que ficaria com muitos erros (frases sem sentidos...)

oblinez · July 12, 2014

belo npc testado e aprovado 100% obrigado por compartilhar...

filipesaj · July 21, 2014

belo npc testado e aprovado 100% obrigado por compartilhar...

Disponha

Sign In

(Novo) ♣ Sistema de Refine ♣ By: Filipesaj 1.0

Recommended Posts

Share this post

Link to post

Share on other sites

Share this post

Link to post

Share on other sites

Share this post

Link to post

Share on other sites

Share this post

Link to post

Share on other sites

Share this post

Link to post

Share on other sites

Share this post

Link to post

Share on other sites

Share this post

Link to post

Share on other sites

Share this post

Link to post

Share on other sites

Share this post

Link to post

Share on other sites

Share this post

Link to post

Share on other sites

Share this post

Link to post

Share on other sites

Join the conversation

Recently Browsing 0 members

Important Information