Jump to content
  • 0

successenchant .@Part,.@Enchant; and failedenchant 2; bug script

guhx

Asked by guhx,

 Share

Question

guhx Poring

guhx

Posted
  • Group:  Members
  • Topic Count:  12
  • Topics Per Day:  0.00
  • Content Count:  27
  • Reputation:   0
  • Joined:  04/03/14
  • Last Seen:  
Posted (edited)

My script:

  

// Hidding Slot Enchant NPC
// Important Note : Item ID 677 Platinum Coin is a special item that allow user to select the Enchant.

prontera,146,61,5	script	Shiriublem	84,{
	mes "[Shiriublem]";
	mes "Eu sou um engenheiro que se especializou em encantar armaduras.";
	next;
	mes "[Shiriublem]";
	mes "Encantamentos podem parecer simples, mas é muito mais complicado do que parece.";
	mes "Se você estiver interessado em meu serviço, avise-me.";
	next;
	switch( select( "^4169E1Encantar Arma^000000:Encantar Armadura:^0000FFEncantar Chapéu^000000:^FFA500Encantar Capa/Sapatos^000000:^FF0000Encantar Escudo^000000:^4169E1Encantar Acessório^000000:Informação:Cancelar" ) )
	{
		case 1:
			mes "[Shiriublem]";
			mes "^FFA500Para encantar sua arma^000000:";
			mes "a) Eu preciso de emblemas: 50 de bravura, 50 de valor e 50 de guerra.";
			mes "b) 500.000 Zeny";
			mes "c) Tipo de encantamento elemental ou racial.";
			mes "d) ^FF0000Sua arma vai perder refinamento e cartas^000000.";
			mes "e) Arma deve ser 3 slots ou menos.";
			next;

			setarray .@Position$[3], "Left hand","Right hand";
			set .@Menu$,"";
			for( set .@i, 3; .@i <= 4; set .@i, .@i + 1 )
			{
				if( getequipisequiped(.@i) )
					set .@Menu$, .@Menu$ + .@Position$[.@i] + "-" + "[" + getequipname(.@i) + "]";
				set .@Menu$, .@Menu$ + ":";
			}

			set .@Part,select(.@Menu$ + "Cancel") + 2;
			if( .@Part >= 5 )
			{
				mes "[Shiriublem]";
				mes "Precisa de algum tempo para pensar sobre isso?";
				mes "Tudo bem, eu posso entender.";
				close;
			}
			if( !getequipisequiped(.@Part) )
			{
				mes "[Shiriublem]";
				mes "Your not wearing anything there...";
				close;
			}
			if( getequipweaponlv(.@Part) == 0 )
			{
				mes "[Shiriublem]";
				mes "Este encantamento só funciona em armas, não em escudos...";
				close;
			}
			set .@Slot0, getequipcardid(.@Part,0);
			if( .@Slot0 == 255 || .@Slot0 == 254 || .@Slot0 < 0 )
			{
				mes "[Shiriublem]";
				mes "Sinto muito, eu não posso trabalhar em itens forjados.";
				close;
			}
			set .@Item, getequipid(.@Part);
			if( getitemslots(.@Item) >= 4 )
			{
				mes "[Shiriublem]";
				mes "Sinto muito, eu não posso trabalhar com armas 4 slots.";
				close;
			}

			mes "[Shiriublem]";
			mes "Você quer encantar a sua " + getitemname(.@Item) + "?";
			mes "O custo deste trabalho é ^0000FF50 Bravura, 50 Valor e 50 Guerra^000000.";
			next;
			mes "[Shiriublem]";
			mes "Se você tem os emblemas, podemos ir em frente com a tentativa de encantamento.";
			mes "Mas antes disso, devo avisá-lo do risco.";
			next;
			mes "[Shiriublem]";
			mes "Uma vez que a arma receber o encantamento ^FF0000ela vai perder o refinamento e as cartas^000000.";
			mes "Você ainda quer encantar?";
			next;
			if( select("^FF0000Encantar elemental^000000:^0000FFEncantar racial^000000:^FFA500Deixe-me escolher (Platinum Coin)^000000:Cancelar") == 4 )
			{
				mes "[Shiriublem]";
				mes "Precisa de algum tempo para pensar sobre isso?";
				mes "Tudo bem, eu posso entender.";
				mes "Basta lembrar que a vida não tem graça se você está sempre jogando no lado seguro ~";
				close;
			}

			set .@Type, @menu; // 1 : Elemental | 2 : Racial
			if( countitem(7828) < 50 || countitem(7829) < 50 || countitem(7773) < 50 || Zeny < 500000 )
			{
				mes "[Shiriublem]";
				mes "Eu gostaria de ir em frente com esta tentativa de encantamento, mas está faltando algumas coisas.";
				mes "Tem certeza de que você tem os emblemas?";
				close;
			}

			set .@Slot0, getequipcardid(.@Part,0);
			if( !getequipisequiped(.@Part) || !getequipweaponlv(.@Part) || .@Slot0 == 255 || .@Slot0 == 254 || .@Slot0 < 0 || .@Item != getequipid(.@Part) )
			{
				mes "[Shiriublem]";
				mes "This is not the equip we were talking about...";
				mes "Get out of here!!";
				close;
			}

			if( .@Type == 3 && countitem(677) < 1 )
			{
				mes "[Shiriublem]";
				mes "Oh.. ok... e onde está a Platinum Coin?";
				close;
			}

			switch( .@Type )
			{
			case 1: // Elemental
				set .@Enchant, 4964 + rand(5);
				break;
			case 2: // Racial
				set .@Enchant, 4969 + rand(10);
				break;
			case 3: // Selective
				set .@Menu$,"";
				for( set .@i, 4964; .@i <= 4978; set .@i, .@i + 1 )
					set .@Menu$, .@Menu$ + getitemname(.@i) + ":";

				set .@Enchant, 4963 + select(.@Menu$);
				delitem 677,1;
				break;
			}

			delitem 7828,50;
			delitem 7829,50;
			delitem 7773,50;
			set Zeny, Zeny - 500000;

			//successenchant .@Part,.@Enchant;

			mes "[Shiriublem]";
			mes "Ótimo, sua arma recebeu ^0000FF" + getitemname(.@Enchant) + "^000000 enchant.";
			mes "Parece muito bem feito, parabéns!";
			next;
			mes "[Shiriublem]";
			mes "Espero ve-lo novamente!";
			close;
		case 2:
			mes "[Shiriublem]";
			mes "Você quer encantar a sua armadura?";
			mes "Lembre-se que este item perderá encantamentos anteriores.";
			next;
			if ( select("Tentar encantar","Cancelar") == 2 )
			{
				mes "[Shiriublem]";
				mes "Precisa de algum tempo para pensar sobre isso?";
				mes "Tudo bem, eu posso entender.";
				close;
			}
			
			if( !getequipisequiped(2) )
			{
				mes "[Shiriublem]";
				mes "Você não está usando nenhum tipo de armadura...";
				mes "Eu não posso encantar o seu corpo!";
				close;
			}
			
			deletearray .@Armor[0],127;
			setarray .@Armor[0],2358,2307,2309,2314,2316,2321,2325,2327,2330,2332,2334,2335,2341,2344,2346,2348,2350,2337,2386,2311,2318,2319,2320,2308,2310,2315,2317,2322,2324,2326,2331,2333,2336,2342,2345,2347,2349,2351,2364,2365,2374,2375,2387,2389,2391,2390,2376,2377,2378,2379,2380,2381,2382,2394,2395,2396;
			set .@Item, getequipid(2);
			
			for( set .@i, 0; .@i < getarraysize(.@Armor); set .@i, .@i + 1 )
			{
				if( .@Armor[.@i] == .@Item )
					break;
			}

			if( .@i >= getarraysize(.@Armor) )
			{
				mes "[Shiriublem]";
				mes "Sinto muito, mas eu não posso trabalhar neste armadura.";
				mes "Se você precisar de informações, basta me perguntar...";
				close;
			}

			mes "[Shiriublem]";
			mes "Você quer encantar a sua " + getitemname(.@Item) + "?";
			mes "O custo de meu trabalho é 400.000 zeny.";
			next;
			mes "[Shiriublem]";
			mes "Se você tem o valor de taxa de serviço e a armadura, então podemos ir em frente com a tentativa de encatamento.";
			mes "Mas antes disso, devo avisá-lo do risco.";
			next;
			mes "[Shiriublem]";
			mes "^FF0000Sua armadura vai perder qualquer refinamento e cartas^000000.";
			mes "Além disso, se a tentativa de encantar falhar, a ^FF0000armadura^000000 será destruída^000000.";
			mes "Você ainda quer tentar encantar?";
			next;
			if ( select("Tentar encantar","Cancelar") == 2 )
			{
				mes "[Shiriublem]";
				mes "Precisa de algum tempo para pensar sobre isso?";
				mes "Tudo bem, eu posso entender.";
				close;
			}

			if( getequipisequiped(2) == 0 || getequipid(2) != .@Item || Zeny < 400000 )
			{
				mes "[Shiriublem]";
				mes "Eu gostaria de ir em frente com esta tentativa de encantamento, mas está faltando algumas coisas.";
				mes "Tem certeza de que você tem o equipamento e o dinheiro?";
				close;
			}

			mes "[Shiriublem]";
			mes "Certo então, vamos começar o trabalho!";
			mes "É melhor você começar a rezar para ter um resultado bem-sucedido.";
			mes "Deixe-me tirar sua armadura...";
			next;
			set .@Enchant, 0;

			if( countitem(677) )
			{
				mes "[Shiriublem]";
				mes "Wooo!! Você possui uma Platinum Coin.";
				mes "Olha, eu posso deixar você escolher +3 Safe Enchant de uma de minhas armaduras.";
				mes "Se você me der sua aramdura atual e a moeda.";
				next;
				if( select("Ok... deixe-me escolher:Não obrigado, pode continuar") == 1 )
				{
					set .@Menu$,"";
					for( set .@i, 0; .@i < 6; set .@i, .@i + 1 )
						set .@Menu$, .@Menu$ + getitemname(4702 + (.@i * 10)) + ":";

					set .@Enchant, 4702 + ((select(.@Menu$) - 1) * 10);
					delitem 677,1;
				}
			}

			set Zeny, Zeny - 400000;

			if( .@Enchant == 0 )
			{
				set .@Rate, rand(50);
				if( .@Rate < 14 )
				{ // 14% Break chance
					failedenchant 2;

					mes "[Shiriublem]";
					mes "Wah! ...Eu sinto muito, eu falhei.";
					mes "No entanto, eu sou completamente inocente.";
					mes "Está é a sua sorte, e ela está destina por Deus?";
					mes "Não seja tão pessimista, tente da próxima vez.";
					next;
					mes "[Shiriublem]";
					mes "Desejo-lhe boa sorte na próxima vez!";
					close;
				}
				else if( .@Rate < 32 )
					set .@Enchant, 4700 + (rand(6) * 10); // 18% to become +1 stat
				else if( .@Rate < 44 )
					set .@Enchant, 4701 + (rand(6) * 10); // 12% to become +2 stat
				else
					set .@Enchant, 4702 + (rand(6) * 10); // 6% to become +3 stat
			}

			successenchant 2,.@Enchant;

			mes "[Shiriublem]";
			mes "Ótimo, foi um sucesso.";
			mes "Sua armadura recebeu o encantamento ^0000FF" + getitemname(.@Enchant) + "^000000.";
			mes "Foi muito bem feito, parabéns!";
			next;
			mes "[Shiriublem]";
			mes "Desejo ve-lo novamente!";
			close;
		case 3:
			mes "[Shiriublem]";
			mes "^FFA500Para encantar o chapéu^000000:";
			mes "a) Eu preciso de Emblemas: 100 de bravura, 100 de valor e 100 de guerra.";
			mes "b) 500.000 Zeny";
			mes "c) Se ele já está encantado, exigirá também ^0000FF1 Terra's Bronze Coin^000000.";
			mes "d) Status é +1 por chance.";
			mes "e) ^FF0000O chapéu vai perder refinamento e cartas.^000000.";
			next;
			if ( select("Tentar encantar","Cancelar") == 2 )
			{
				mes "[Shiriublem]";
				mes "Precisa de algum tempo para pensar sobre isso?";
				mes "Tudo bem, eu posso entender.";
				close;
			}
			if( !getequipisequiped(1) )
			{
				mes "[Shiriublem]";
				mes "Você não está usando chapéu...";
				mes "Eu não posso encantar a sua cabeça!";
				close;
			}
			
			set .@Slot0, getequipcardid(1,0);
			set .@Slot3, getequipcardid(1,3);
			set .@NeedCP, 0;
			
			if( .@Slot0 == 255 || .@Slot0 == 254 || .@Slot0 < 0 )
			{
				mes "[Shiriublem]";
				mes "I am sorry, i cannot work on Signed items.";
				close;
			}
			
			if( .@Slot3 != 0 )
			{
				set .@NeedCP, 1;
				mes "[Shiriublem]";
				mes "Este capacete já está encantando. Além dos emblemas você vai precisar me pagar 1 ^0000FFTerra's Bronze Coin^000000.";
				next;
			}

			mes "[Shiriublem]";
			mes "Você quer encantar o seu " + getitemname(getequipid(1)) + "?";
			mes "O custo deste trabalho é de ^0000FF100 bravura, 100 valor e 100 guerra^000000.";
			if( .@NeedCP ) mes "And 1 ^0000FFTerra's Bronze Coin^000000";
			next;
			mes "[Shiriublem]";
			mes "Se você tem os emblemas, podemos ir em frente com a tentativa de encantamento.";
			mes "Mas antes disso, devo avisá-lo do risco.";
			next;
			mes "[Shiriublem]";
			mes "Uma vez que o chapéu recebe o encantamento, ele não pode mais ser encantado e^FF0000 ele vai perder refinamentos e cartas^000000.";
			mes "Você ainda quer encantar?";
			next;
			if ( select("Tente encantar","Cancelar") == 2 )
			{
				mes "Precisa de algum tempo para pensar sobre isso?";
				mes "Tudo bem, eu posso entender.";
				close;
			}

			if( countitem(7828) < 100 || countitem(7829) < 100 || countitem(7773) < 100 || Zeny < 500000 || (.@NeedCP && countitem(8905) < 1) )
			{
				mes "[Shiriublem]";
				mes "Eu gostaria de ir em frente com esta tentativa de encantamento, mas está faltando algumas coisas.";
				mes "Tem certeza de que você tem os emblemas e o dinheiro?";
				if( .@NeedCP ) mes "E lembre-se da Terra's Bronze Coin.";
				close;
			}

			set .@Slot0, getequipcardid(1,0);
			set .@Slot3, getequipcardid(1,3);

			if( !getequipisequiped(1) || .@Slot0 == 255 || .@Slot0 == 254 || .@Slot0 < 0 || (.@NeedCP == 0 && .@Slot3 != 0) )
			{
				mes "[Shiriublem]";
				mes "This is not the headgear we were talking about...";
				mes "Get out of here!!";
				close;
			}

			set .@Enchant, 0;

			if( countitem(677) )
			{
				mes "[Shiriublem]";
				mes "Wooo!! Você tem uma Platinum Coin.";
				mes "Olha, eu posso deixar você escolher o status +1 e o encantamento é seguro em um dos meus chapéis.";
				mes "Se você me der o seu chapéu e a moeda.";
				next;
				if( select("Ok... Vamos encantar:Não obrigado.") == 1 )
				{
					set .@Menu$,"";
					for( set .@i, 0; .@i < 6; set .@i, .@i + 1 )
						set .@Menu$, .@Menu$ + getitemname(4700 + (.@i * 10)) + ":";

					set .@Enchant, 4700 + ((select(.@Menu$) - 1) * 10);
					delitem 677,1;
				}
			}

			delitem 7828,100;
			delitem 7829,100;
			delitem 7773,100;
			set Zeny, Zeny - 500000;
			if( .@Enchant == 0 ) set .@Enchant, 4700 + (rand(6) * 10);
			if( .@NeedCP ) delitem 8905,1;
			successenchant 1,.@Enchant;

			mes "[Shiriublem]";
			mes "Ótimo, recebeu ^0000FF" + getitemname(.@Enchant) + "^000000.";
			mes "Foi muito bem feito, parabéns!";
			next;
			mes "[Shiriublem]";
			mes "Espero ve-lo de novo!";
			close;
		case 4:
			mes "[Shiriublem]";
			mes "^FFA500Para encantar capa ou sapatos.^000000:";
			mes "a) 30 Bravura, 30 Valor and 30 Guerra.";
			mes "b) 200.000 Zeny";
			mes "c) Os tipos de encantamentos são HP/SP bonus";
			mes "d) ^FF0000Os equipamentos vão perder refinamentos e cartas^000000.";
			next;
			if ( select("Tentar encantar minha capa:Tentar encantar meus sapatos:Cancelar") == 3 )
			{
				mes "[Shiriublem]";
				mes "Precisa de algum tempo para pensar sobre isso?";
				mes "Tudo bem, eu posso entender.";
				close;
			}
			
			set .@Equip, 4 + @menu; // Selected option
			if( !getequipisequiped(.@Equip) )
			{
				mes "[Shiriublem]";
				mes "Você não está usando nada...";
				mes "Eu não posso encantar seu corpo!";
				close;
			}

			set .@Slot0, getequipcardid(.@Equip,0);
			if( .@Slot0 == 255 || .@Slot0 == 254 || .@Slot0 < 0 )
			{
				mes "[Shiriublem]";
				mes "I am sorry, i cannot work on Signed items.";
				close;
			}

			mes "[Shiriublem]";
			mes "Você quer encantar a sua  " + getitemname(getequipid(.@Equip)) + "?";
			mes "O custo deste trabalho é ^0000FF30 Bravura, 30 Valor e 30 guerra^000000.";
			next;
			mes "[Shiriublem]";
			mes "Se você tem os emblemas, podemos ir em frente com a tentativa de encantamento.";
			mes "Mas antes disso, devo avisá-lo do risco.";
			next;
			mes "[Shiriublem]";
			mes "Uma vez que o equipamento recebe o encantamento ^FF0000ele vai perder o refinamento e cartas^000000.";
			mes "Você ainda quer encantar?";
			next;
			if ( select("^FFFF00Encantar com HP^000000:^0000FFEncantar com SP^000000:^FFA500Deixe-me escolher (Platinum Coin)^000000:Cancelar") == 4 )
			{
				mes "[Shiriublem]";
				mes "Precisa de algum tempo para pensar sobre isso?";
				mes "Tudo bem, eu posso entender.";
				close;
			}

			set .@Type, @menu - 1; // 0 : HP | 1 : SP
			if( countitem(7828) < 30 || countitem(7829) < 30 || countitem(7773) < 30 || Zeny < 200000 )
			{
				mes "[Shiriublem]";
				mes "Eu gostaria de ir em frente com esta tentativa de encantamento, mas está faltando algumas coisas.";
				mes "Tem certeza de que você tem os emblemas e o dinheiro?";
				close;
			}

			set .@Slot0, getequipcardid(.@Equip,0);
			if( !getequipisequiped(.@Equip) || .@Slot0 == 255 || .@Slot0 == 254 || .@Slot0 < 0 )
			{
				mes "[Shiriublem]";
				mes "This is not the equip we were talking about...";
				mes "Get out of here!!";
				close;
			}

			if( .@Type == 2 && countitem(677) < 1 )
			{
				mes "[Shiriublem]";
				mes "Oh.. ok... and where is the Platinum Coin?";
				mes "Platinum Coin is the reward for being in the Top 3 Battlegrounds players of the Week.";
				close;
			}

			if( .@Type == 2 )
			{
				set .@Menu$,"";
				for( set .@i, 0; .@i < 2; set .@i, .@i + 1 )
					set .@Menu$, .@Menu$ + getitemname(4996 + (.@i * 3)) + ":";

				set .@Enchant, 4996 + ((select(.@Menu$) - 1) * 3);
				delitem 677,1;
			}
			else
			{
				set .@Rate, rand(100);
				if( .@Rate < 50 )
					set .@Enchant, 4994 + (.@Type * 3);
				else if( .@Rate < 85 )
					set .@Enchant, 4995 + (.@Type * 3);
				else
					set .@Enchant, 4996 + (.@Type * 3);
			}

			delitem 7828,30;
			delitem 7829,30;
			delitem 7773,30;
			set Zeny, Zeny - 200000;

			successenchant .@Equip,.@Enchant;

			mes "[Shiriublem]";
			mes "Ótimo, seu equipamento recebeu ^0000FF" + getitemname(.@Enchant) + "^000000 enchant.";
			mes "O encantamento foi muito bem sucedido, parabéns!";
			next;
			mes "[Shiriublem]";
			mes "Espero ve-lo de novo!";
			close;
		case 5:
			mes "[Shiriublem]";
			mes "^FFA500Para encantar um escudo você precisa:^000000:";
			mes "a) De 30 Bravura, 30 Valor e 30 Guerra.";
			mes "b) 200.000 Zeny";
			mes "c) Os tipos de encantamentos são elemental e racial.";
			mes "d) ^FF0000O escudo vai perder refinamento e cartas^000000.";
			next;
			if ( select("Tentar encantar:Cancelar") == 2 )
			{
				mes "[Shiriublem]";
				mes "Precisa de algum tempo para pensar sobre isso?";
				mes "Tudo bem, eu posso entender.";
				close;
			}

			if( !getequipisequiped(3) )
			{
				mes "[Shiriublem]";
				mes "Você não está usando nada...";
				mes "Eu não posso encantar suas mãos!";
				close;
			}
			
			if( getequipweaponlv(3) )
			{
				mes "[Shiriublem]";
				mes "Este encantamento é para escudos, não para armas...";
				close;
			}

			set .@Slot0, getequipcardid(3,0);
			if( .@Slot0 == 255 || .@Slot0 == 254 || .@Slot0 < 0 )
			{
				mes "[Shiriublem]";
				mes "I am sorry, i cannot work on Signed items.";
				close;
			}

			mes "[Shiriublem]";
			mes "Você quer encantar o seu " + getitemname(getequipid(3)) + "?";
			mes "O custo deste trabalho é de ^0000FF30 Bravura, 30 Valor e 30 Guerra^000000.";
			next;
			mes "[Shiriublem]";
			mes "Se você tem os emblemas, podemos ir em frente com a tentativa de encantamento.";
			mes "Mas antes disso, devo avisá-lo do risco.";
			next;
			mes "[Shiriublem]";
			mes "Uma vez que o equipamento receber o encantamento ^FF0000ele vai perder o refinamento e cartas^000000.";
			mes "Você ainda quer encantar?";
			next;
			if ( select("^FFFF00Encantar com elemental^000000:^0000FFEncantar com racial^000000:^FFA500Deixe-me escolher (Platinum Coin)^000000:Cancelar") == 4 )
			{
				mes "[Shiriublem]";
				mes "Precisa de algum tempo para pensar sobre isso?";
				mes "Tudo bem, eu posso entender.";
				close;
			}

			set .@Type, @menu; // 1 : Elemental | 2 : Racial
			if( countitem(7828) < 30 || countitem(7829) < 30 || countitem(7773) < 30 || Zeny < 200000 )
			{
				mes "[Shiriublem]";
				mes "Eu gostaria de ir em frente com esta tentativa de encantamento, mas está faltando algumas coisas.";
				mes "Tem certeza de que você tem os emblemas?";
				close;
			}

			set .@Slot0, getequipcardid(3,0);
			if( !getequipisequiped(3) || getequipweaponlv(3) || .@Slot0 == 255 || .@Slot0 == 254 || .@Slot0 < 0 )
			{
				mes "[Shiriublem]";
				mes "This is not the equip we were talking about...";
				mes "Get out of here!!";
				close;
			}

			if( .@Type == 3 && countitem(677) < 1 )
			{
				mes "[Shiriublem]";
				mes "Oh.. ok... and where is the Platinum Coin?";
				mes "Platinum Coin is the reward for being in the Top 3 Battlegrounds players of the Week.";
				close;
			}

			switch( .@Type )
			{
			case 1: // Elemental
				set .@Enchant, 4979 + rand(5);
				break;
			case 2: // Racial
				set .@Enchant, 4984 + rand(10);
				break;
			case 3: // Selective
				set .@Menu$,"";
				for( set .@i, 4979; .@i <= 4993; set .@i, .@i + 1 )
					set .@Menu$, .@Menu$ + getitemname(.@i) + ":";

				set .@Enchant, 4978 + select(.@Menu$);
				delitem 677,1;
				break;
			}

			delitem 7828,30;
			delitem 7829,30;
			delitem 7773,30;
			set Zeny, Zeny - 200000;

			successenchant 3,.@Enchant;

			mes "[Shiriublem]";
			mes "Ótimo, seu equipamento recebeu ^0000FF" + getitemname(.@Enchant) + "^000000 enchant.";
			mes "O trabalho foi muito bem sucedido, parabéns!";
			next;
			mes "[Shiriublem]";
			mes "Espero ve-lo de novo!";
			close;
		case 6:
			mes "[Shiriublem]";
			mes "^FFA500Para encantar seu acessório^000000:";
			mes "a) Preciso de 750 Bravura, 750 Valor e 500 Guerra.";
			mes "b) 1.000.000 Zeny";
			mes "c) O tipo de encantamento é bonus na capacidade de carga.";
			mes "d) ^FF0000O acessório perderá cartas^000000.";
			next;

			setarray .@Position$[7], "Acessório 1","Acessório 2";
			set .@Menu$,"";
			for( set .@i, 7; .@i <= 8; set .@i, .@i + 1 )
			{
				if( getequipisequiped(.@i) )
					set .@Menu$, .@Menu$ + .@Position$[.@i] + "-" + "[" + getequipname(.@i) + "]";
				set .@Menu$, .@Menu$ + ":";
			}

			set .@Part,select(.@Menu$ + "Cancel") + 6;
			if( .@Part >= 9 )
			{
				mes "[Shiriublem]";
				mes "Precisa de algum tempo para pensar sobre isso?";
				mes "Tudo bem, eu posso entender.";
				close;
			}
			if( !getequipisequiped(.@Part) )
			{
				mes "[Shiriublem]";
				mes "Você não está usando nada...";
				close;
			}

			set .@Slot0, getequipcardid(.@Part,0);
			if( .@Slot0 == 255 || .@Slot0 == 254 || .@Slot0 < 0 )
			{
				mes "[Shiriublem]";
				mes "I am sorry, i cannot work on Signed items.";
				close;
			}

			set .@Item, getequipid(.@Part);

			mes "[Shiriublem]";
			mes "Você quer encantar o seu " + getitemname(.@Item) + "?";
			mes "O custo deste trabalho é de ^0000FF750 Bravura, 750 Valor e 500 Guerra^000000.";
			next;
			mes "[Shiriublem]";
			mes "Se você tem os emblemas, podemos ir em frente com a tentativa de encantamento.";
			mes "Mas antes disso, devo avisá-lo do risco.";
			next;
			mes "[Shiriublem]";
			mes "Uma vez que o acessório receber o encantamento ^FF0000ele irá perder as cartas^000000.";
			mes "Você ainda quer encantar?";
			next;
			if ( select("^0000FFEncanta-lo^000000:Cancelar") == 2 )
			{
				mes "[Shiriublem]";
				mes "Precisa de algum tempo para pensar sobre isso?";
				mes "Tudo bem, eu posso entender.";
				close;
			}

			if( countitem(7828) < 750 || countitem(7829) < 750 || countitem(7773) < 500 || Zeny < 1000000 )
			{
				mes "[Shiriublem]";
				mes "Eu gostaria de ir em frente com esta tentativa de encantamento, mas está faltando algumas coisas.";
				mes "Tem certeza de que você tem os emblemas?";
				close;
			}

			set .@Slot0, getequipcardid(.@Part,0);
			if( !getequipisequiped(.@Part) || .@Slot0 == 255 || .@Slot0 == 254 || .@Slot0 < 0 || .@Item != getequipid(.@Part) )
			{
				mes "[Shiriublem]";
				mes "This is not the equip we were talking about...";
				mes "Get out of here!!";
				close;
			}

			delitem 7828,750;
			delitem 7829,750;
			delitem 7773,500;
			set Zeny, Zeny - 1000000;
			successenchant .@Part,4963;

			mes "[Shiriublem]";
			mes "Ótimo, você recebeu ^0000FF" + getitemname(4963) + "^000000 enchant.";
			mes "O trabalho foi muito bem sucedido, parabéns!";
			next;
			mes "[Shiriublem]";
			mes "Espero ve-lo de novo!";
			close;
		case 7:
			mes "[Shiriublem]";
			mes "Bem, eu realmente não tenho refinado a arte de encantamento.";
			mes "É tão complicado que eu estaria mentindo se eu dissesse que eu sei de todos os fatores que afetaram o processo.";
			mes "Ainda assim, eu faço notar algumas tendências...";
			next;
			mes "[Shiriublem]";
			mes "Quando uma armadura for encantada, ela irá mostar um slot especial escondido com uma jóia nele.";
			mes "Isto irá conceder um status adiciona para a armadura, e com valores diferentes.";
			next;
			mes "[Shiriublem]";
			mes "Você deve saber que a armadura perderá seus refinamentos, cartas e encantamentos anteriores.";
			mes "E talvez a armadura também, se eu falhar...";
			next;
			mes "[Shiriublem]";
			mes "Você quer saber qual armadura pode ser encantada?.";
			mes "Diga-me o que você quer explorar nesta lista...";
			next;
			deletearray .@Armor[0],127;
			switch( select( "Armaduras sem slot","Armaduras com slot","Armaduras de elite" ) )
			{
				case 1: setarray .@Armor[0],2358,2307,2309,2314,2316,2321,2325,2327,2330,2332,2334,2335,2341,2344,2346,2348,2350,2337,2386; break;
				case 2: setarray .@Armor[0],2311,2318,2319,2320,2308,2310,2315,2317,2322,2324,2326,2331,2333,2336,2342,2345,2347,2349,2351; break;
				case 3: setarray .@Armor[0],2364,2365,2374,2375,2387,2389,2391,2390,2376,2377,2378,2379,2380,2381,2382,2394,2395,2396; break;
			}
			
			mes "^0000FF** Lista de armadura **^000000";
			for( set .@i, 0; .@i < getarraysize(.@Armor); set .@i, .@i + 1 )
				mes "" + getitemname(.@Armor[.@i]) + "";
			
			next;
			mes "[Shiriublem]";
			mes "Fale comigo de novo se você quiser encantar sua armadura ou se precisar de masi informações.";
			close;
		case 8:
			mes "[Shiriublem]";
			mes "Acalme-se aventureiro.";
			mes "Se você quiser tentar encantar suas armaduras, volte e me avise.";
			mes "Até~";
			close;
	}
}

 

When it is loaded, it has an error in the lines:

*  137 :                        's'uccessenchant .@Part,.@Enchant;

*  246 :                                        'f'ailedenchant 2;

 

 

I tried to make some changes in the source to try to solve, but I did not succeed

Can anyone tell me how to solve this problem?

Edited by guhx
Link to comment
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to question listing
×
×
  • Create New...