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

filipesaj · Jun 14, 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

JulioCF · Jun 14, 2014

Olá, boa noite.

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

Abraços!

filipesaj · Jun 14, 2014

Sim. É meu.

JulioCF · Jun 14, 2014

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

Procure sempre assinar seus pots.

jaBote · Jun 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 · Jun 14, 2014

JulioCF said:
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 · Jun 14, 2014

jaBote said:
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 · Jun 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

oeira 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 · Jun 14, 2014

jaBote said:
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("Lactoleriumoeira 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.";

Click to expand...

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 · Jul 12, 2014

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

filipesaj · Jul 21, 2014

oblinez said:
belo npc testado e aprovado 100% obrigado por compartilhar...

Disponha

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

filipesaj

New member

Attachments

JulioCF

Corniz old member

filipesaj

New member

JulioCF

Corniz old member

jaBote

Community Contributors

filipesaj

New member

filipesaj

New member

jaBote

Community Contributors

filipesaj

New member

oblinez

New member

filipesaj

New member

We value your privacy