Problemas de Tiempo con scrip Ziu Mora village research bifrost

deathdaniels · May 31, 2013

Hola estimados, bueno tengo un script de nuestro amigo Ziu lo quise implementar en mi server, no tuve problemas ni errores en el script, el problema es que no respeta limites ni horas en hacer las quest, e intentado repararlo pero no tengo exito ejemplo al momento de pelear con la sombra se supone que uno pierde la lucha y no puedes volver a pelear después de una hora, en cambio en el script puedes volver a pasearte por el lago y se activa a los pocos segundos nuevamente y asi sigues ganando mora coins como loco.

Ojala alguien me pueda ayudar con este script.

// - Organismo Misterioso (No Real)
//==============================
mora,31,138,5	script	Investigador Mora	522,{
	if (mora_quest == 0) {
		mes "[Investigador Mora]";
		mes "Hola viajero.. tengo un gran problema.. ^FF0000¡Ah! ¡Toma Nota!^000000 soy el encargado de investigaciones de mora";
		next;
		mes "[Investigador Mora]";
		mes "Mi trabajo consiste en tomar muestras del agua que puedes encontrar en todos los campos de mora";
		next;
		mes "[Investigador Mora]";
		mes "Es una sustancia muy especial que puede ayudar a curar graves heridas y desinfectarlas";
		next;
		switch(select("Hablame sobre él","No Me Interesa" ))
		{
			case 1:
				mes "[Investigador Mora]";
				mes "Estaba investigando en el lago que se encuentra en medio del pueblo de mora";
				next;
				mes "[Investigador Mora]";
				mes "Cuando un extraño tentaculo apareció y perdi todos mis materiales de investigación";
				next;
				mes "[Investigador Mora]";
				mes "Pero tengo miedo de que vuelva atacarmé, ahora no tengo mis aparatos para poder continuar con mi trabajo";
				next;
				mes "[Investigador Mora]";
				mes "¿Podrías ayudarme a recuperar mis aparatos?";
				next;
				switch(select("No me interesa","Si te ayudaré" ) )
				{
					case 1:
						mes "[Investigador Mora]";
						mes "Pense que podrías ayudarme a recuperar mis artilugios pero me equivoque...";
						emotion e_pif;
						close;
					case 2:
						mes "[Investigador Mora]";
						mes "Muchas gracias por tú ayuda ahora te explicaré donde tienes que ir";
						emotion e_lv;
						next;
						mes "[Investigador Mora]";
						mes "En el centro de la ciudad encontrarás un gran lago donde se situa el organismo";
						next;
						mes "[Investigador Mora]";
						mes "Si logras vencerle podrás recuperar mis herramientas que se encuentran dentro de una maletín";
						next;
						mes "[Investigador Mora]";
						mes "Ten mucho cuidado....";
						setquest 5016;
						set mora_quest,1;
						close;
				}
			case 2:
				mes "[Investigador Mora]";
				mes "Pense que podrías ayudarme a recuperar mis artilugios pero me equivoque...";
				emotion e_pif;
				close;
		}
	}
	if (mora_quest == 1) {
		mes "[Investigador Mora]";
		mes "En el centro de la ciudad encontrarás un gran lago donde se situa el organismo";
		next;
		mes "[Investigador Mora]";
		mes "Si logras vencerle podrás recuperar mis herramientas que se encuentran dentro de una maletín";
		close;
	}
	if (mora_quest == 2) {
		if (countitem(6385) == 1) {
			mes "[Investigador Mora]";
			mes "Oh muchas gracias por recuperar mi maletín con todas mis herramientas de estudio";
			next;
			mes "[Investigador Mora]";
			mes "Ahora me gustaría continuar con mis investigaciones por ello quiero que luches contra el organismo y le derrotes 3 veces más para debilitarle";
			completequest 5016;
			setquest 5017;
			getitem 6380,1; //Mora Coin
			set mora_quest,3;
			close;
		} else {
			mes "[Investigador Mora]";
			mes "Hola viajero.. tengo un gran problema.. ^FF0000¡Ah! ¡Toma Nota!^000000 soy el encargado de investigaciones de mora";
			next;
			mes "[Investigador Mora]";
			mes "Mi trabajo consiste en tomar muestras del agua que puedes encontrar en todos los campos de mora";
			next;
			mes "[Investigador Mora]";
			mes "Es una sustancia muy especial que puede ayudar a curar graves heridas y desinfectarlas";
			close;
		}
	}
	if ((mora_quest > 2) && (mora_quest < 6)) {
		mes "[Investigador Mora]";
		mes "Ahora me gustaría continuar con mis investigaciones por ello quiero que luches contra el organismo y le derrotes 3 veces más para debilitarle";
		close;
	}
	if (mora_quest == 6) {
		mes "[Investigador Mora]";
		mes "Veo que has podido derrotarle 3 veces más, ahora es el momento de comenzar la investigación en serio.";
		next;
		mes "[Investigador Mora]";
		mes "Para realizar un correcto muestreo de la composión del liquido que hay en el lago necesito que recolectes muestras de ello";
		next;
		mes "[Investigador Mora]";
		mes "Para ello te daré 10 Empty Test Tube para que puedas recolectar todas las muestras que necesito";
		completequest 5018;
		setquest 5019;
		getitem 1092,10; //Empty_Cylinder
		set mora_quest,7;
		close;
	}
	if (mora_quest == 7) {
		if (countitem(6386) == 10) {
			mes "[Investigador Mora]";
			mes "Bien has traido todas las muestras que necesitaba del lago";
			next;
			mes "[Investigador Mora]";
			mes "Ahora estudiare la composición del agua del lago para intentar descubrir más sobre ello";
			next;
			mes "[Investigador Mora]";
			mes "Necesito 24 horas para completar mis investigaciones...vuelve entonces";
			completequest 5019;
			setquest 5020;
			delitem 6386,10;
			getitem 6380,1; //mora coin
			set mora_quest,8;
			close;
		} else {
			mes "[Investigador Mora]";
			mes "Necesito hacer un muestreo homogeneo de líquido del lago, recoje las muestras necesarias de todos los puntos";
			close;
		}
	}
	if (mora_quest == 8) {
		set .@lago_time,checkquest(5020,PLAYTIME);
		if (.@lago_time == 2) {
			mes "[Investigador Mora]";
			mes "Terminado de investigar sobre las muestras que recolectaste";
			next;
			mes "[Investigador Mora]";
			mes "Es muy interesante el DNA encontrado en todas las muestras... puede ayudarnos en el futuro";
			next;
			mes "[Investigador Mora]";
			mes "Por eso necesito que intentes obtener 10 dientes de los tentaculos de la criatura del lago";
			next;
			mes "[Investigador Mora]";
			mes "Mucha suerte..vuelve cuando los consigas";
			completequest 5020;
			setquest 5021;
			set mora_quest,9;
			close;
		} else {
			mes "[Investigador Mora]";
			mes "Necesito 24 horas para completar mis investigaciones...vuelve entonces";
			close;
		}
	}
	if (mora_quest == 9) {
		if (countitem(6387) == 10) {
			mes "[Investigador Mora]";
			mes "Uooo muchas gracias...ahora podré estudiarlas comparando el DNA encontrado en el agua del lago";
			next;
			mes "[Investigador Mora]";
			mes "Mientras podrías intentar conseguir 10 escamas para completar mis investigaciones";
			completequest 5021;
			setquest 5022;
			delitem 6387,10; //
			getitem 6380,1; //mora coin
			set mora_quest,10;
			close;	
		} else {
			mes "[Investigador Mora]";
			mes "Necesito que intentes obtener 10 dientes de los tentaculos de la criatura del lago";
			close;
		}
	}
	if (mora_quest == 10) {
		if (countitem(6388) == 10) {
			mes "[Investigador Mora]";
			mes "Ahora que tengo todas estas muestras voy a compararlas para poder investigar el DNA";
			next;
			mes "[Investigador Mora]";
			mes "Ahora dame 6 horas para poder investigarlo y compararlas con tranquilidad";
			next;
			mes "[Investigador Mora]";
			mes "Mientras continua con tu aventura....mucha suerte";
			completequest 5022;
			setquest 5023;
			delitem 6388,10;
			getitem 6380,1; //mora coin
			set mora_quest,11;
			close;
		} else {
			mes "[Investigador Mora]";
			mes "Necesito que intentes obtener 10 escamas de los tentaculos de la criatura del lago";
			close;
		}
	}
	if (mora_quest == 11) {
		set .@lago1_time,checkquest(5023,PLAYTIME);
		if (.@lago1_time == 2) {
			mes "[Investigador Mora]";
			mes "Todas la investigaciones sobre este nuevo DNA han sido muy frutiferas";
			next;
			mes "[Investigador Mora]";
			mes "Ahora necesito comparar todas mis muestras con las que puedas encontrar en los pools de fuera";
			next;
			mes "[Investigador Mora]";
			mes "Para completar mis resultados.... encuentra los cuatro puntos necesarios para recojer tus muestras";
			next;
			mes "[Investigador Mora]";
			mes "El primero de ellos se encuentra en la parte oriental de los campos.";
			next;
			completequest 5023;
			setquest 5024;
			getitem 1092,4; //Empty_Cylinder
			set mora_quest,12;
			close;
		} else {
			mes "[Investigador Mora]";
			mes "Necesito seis horas para completar mis investigaciones y comparar cada uno de los items que me trajistes";
			close;
		}
	}
	if ((mora_quest > 12) && (mora_quest < 16)) {
		mes "[Investigador Mora]";
		mes "Para completar mis resultados.... encuentra los cuatro puntos necesarios para recojer tus muestras";
		close;
	}
	if (mora_quest == 16) {
		if(countitem(6389) == 4) {
			mes "[Investigador Mora]";
			mes "Gracias por traerme las muestras de cuatro localizaciones distintas";
			next;
			mes "[Investigador Mora]";
			mes "Voy a proceder a compararlas con todas las muestras que tomaste del lago para estudiar su composición y su DNA";
			next;
			mes "[Investigador Mora]";
			mes "Necesito 12 horas para completar mi estudio, vuelve cuando haya terminado y te daré los resultados finales";
			next;
			mes "[Investigador Mora]";
			mes "Mientras puedes volver a luchar con la estraña criatura del lago de mora";
			setquest 5028;
			delitem 6389,4;
			getitem 6380,4;
			set mora_quest,17;
			close;
		} else {
			mes "[Investigador Mora]";
			mes "Para completar mis resultados.... encuentra los cuatro puntos necesarios para recojer tus muestras";
			close;
		}
	}
	if (mora_quest == 17) {
		set .@lago2_time,checkquest(5028,PLAYTIME);
		if (.@lago2_time == 2) {
			mes "[Investigador Mora]";
			mes "Has vuelto? expectativas último estudio concluido y esperó. ¿Por qué quieres estudiar?";
			next;
			switch(select("Aceptarlo. Estoy Bien","Quiero Los Resultados"))
			{
				case 1:
					close;
				case 2:
					mes "[Informe Investigación]";
					mes "*** Investigador - Inflation.";
					mes "*** ? ? - ???";
					next;
					mes "<Métodos>";
					mes "1. Obtener muestras de DNA en el lago de la ciudad de mora para confirmar la presencia de DNA no identificado.";
					next;
					mes "2. El análisis comparativo de la vida animal no identificado de DNA con el DNA encontrado en el agua del lago puede considerase en 70% del DNA está transformado.";
					next;
					mes "3. Un estudio de cuatro lugares alrededor de la ciudad confirmo que los componentes se distribuian uniformemente por cada uno de los cuatro lugares";
					next;
					mes "<Análisis Químico>";
					mes "*** Temp Muestra ***** 33,5c";
					mes "*** PH *************** 9,8";
					mes "*** Residuo Seco ***** 176";
					mes "*** K+ *************** 0,23";
					mes "*** Ca++ ************* 1,83";
					mes "*** Cl- ************** 26,2";
					mes "*** HCO3- ************ 31,0";
					mes "*** H2S ************** 1,7";
					mes "*** Na++ ************* 51,9";
					mes "*** Mg+ ************** 0,03";
					mes "*** SO4- ************* 5,0";
					mes "*** F **************** 12,8";
					mes "*** SiO2 ************* 23,9";
					mes "*** Li *************** 0,06";
					mes "*** CO3+ ************* 22,8";
					mes "*** Sr *************** 0,04";
					mes "*** T-Solidos ******** 165";
					mes "*** Conductividad **** 500";
					mes "*** Loguitud ********* 4,6";
					next;
					mes "[Investigador Mora]";
					mes "Esta cerca de la región al volcán y aún asi la temperatura no es muy alta, ¿No es soprendente?";
					next;
					mes "[Investigador Mora]";
					mes "Tiene un PH bastante elevado y se corresponde con la cantidad encontrada de silicatos y otros compuestos como calcio o sodio que son bastante antos";
					next;
					mes "[Investigador Mora]";
					mes "Aunque la cantidad que deja cuando evaporamos todo el agua es relativamente baja resulta que es un compuesto conocido como agua blanda";
					next;
					mes "[Investigador Mora]";
					mes "Contiene una gran cantidad de elementos metálicos, carbonatos, sultafos, con cargas negativas y se corresponde con el PH de la muestra";
					next;
					mes "[Investigador Mora]";
					mes "Aúnque los resultados no son todo lo stisfactorios debido a que ha estado lloviendo. De todas formas por el momento lo dejaremos como un misterio...";
					next;
					mes "[Investigador Mora]";
					mes "He estado pensando en una compensación por todas las molestas que te ocasionado y porque los resultados no fueron los mejores...";
					next;
					mes "[Investigador Mora]";
					mes "Has sido.. ¡el mejor asistente que tenido nunca!";
					completequest 5028;
					getitem 6380,30; //Mora coin
					set mora_quest,18;
					close;
			}
		} else {
			mes "[Investigador Mora]";
			mes "Necesito 12 horas para completar mi estudio, vuelve cuando haya terminado y te daré los resultados finales";
			next;
			mes "[Investigador Mora]";
			mes "Mientras puedes volver a luchar con la estraña criatura del lago de mora";
			close;
		}
	}
	if (mora_quest > 17) {
		mes "[Investigador Mora]";
		mes "En estos momentos estoy aún analizando los datos que obtube de toda las muestras...";
		next;
		mes "[Investigador Mora]";
		mes "Has sido.. ¡el mejor asistente que tenido nunca!";
		close;
	}
}

bif_fild02,315,286,0	script	Pool#bifrost	844,{
	if (mora_quest == 12) {
		mes "Parece que aquí brota agua del fondo de la tierra";
		next;
		switch(select("Recojer Muestra","No Hacer Nada"))
		{
			case 1:
				if (countitem(1092) > 0) {
					mes "Metiste la mano y sacaste una probeta llena del liquido del lago";
					completequest 5024;
					setquest 5025;
					delitem 1092,1; //Empty_Cylinder
					getitem 6389,1; //Pool Research Sample
					set mora_quest,13;
					next;
					mes "[Investigador Mora]";
					mes "La siguente parada es en la parte más occidental de los campos mucha suerte";
					close;
				} else {
					mes "No tienes donde llenar la muestra a recojer...";
					close;
				}
			case 2:
				close;
		}
	} else {
		mes "Parece que el agua mana del fondo de la tierra y se ha formado una pequeña piscina que brilla muy extrañamente";
		close;
	}
}
bif_fild02,65,108,0	script	Pool#bifrost1	844,{
	if (mora_quest == 13) {
		mes "Parece que aquí brota agua del fondo de la tierra";
		next;
		switch(select("Recojer Muestra","No Hacer Nada"))
		{
			case 1:
				if (countitem(1092) > 0) {
					mes "Metiste la mano y sacaste una probeta llena del liquido del lago";
					completequest 5025;
					setquest 5026;
					delitem 1092,1; //Empty_Cylinder
					getitem 6389,1; //Pool Research Sample
					set mora_quest,14;
					next;
					mes "[Investigador Mora]";
					mes "La siguente parada es en la parte más al sur de los campos mucha suerte";
					close;
				} else {
					mes "No tienes donde llenar la muestra a recojer...";
					close;
				}
			case 2:
				close;
		}
	} else {
		mes "Parece que el agua mana del fondo de la tierra y se ha formado una pequeña piscina que brilla muy extrañamente";
		close;
	}
}
bif_fild02,224,71,0	script	Pool#bifrost2	844,{
	if (mora_quest == 14) {
		mes "Parece que aquí brota agua del fondo de la tierra";
		next;
		switch(select("Recojer Muestra","No Hacer Nada"))
		{
			case 1:
				if (countitem(1092) > 0) {
					mes "Metiste la mano y sacaste una probeta llena del liquido del lago";
					completequest 5026;
					setquest 5027;
					delitem 1092,1; //Empty_Cylinder
					getitem 6389,1; //Pool Research Sample
					set mora_quest,15;
					next;
					mes "[Investigador Mora]";
					mes "La siguente parada es en la parte más al norte de los campos mucha suerte";
					close;
				} else {
					mes "No tienes donde llenar la muestra a recojer...";
					close;
				}
			case 2:
				close;
		}
	} else {
		mes "Parece que el agua mana del fondo de la tierra y se ha formado una pequeña piscina que brilla muy extrañamente";
		close;
	}
}
bif_fild02,113,340,0	script	Pool#bifrost3	844,{
	if (mora_quest == 15) {
		mes "Parece que aquí brota agua del fondo de la tierra";
		next;
		switch(select("Recojer Muestra","No Hacer Nada"))
		{
			case 1:
				if (countitem(1092) > 0) {
					mes "Metiste la mano y sacaste una probeta llena del liquido del lago";
					completequest 5027;
					delitem 1092,1; //Empty_Cylinder
					getitem 6389,1; //Pool Research Sample
					set mora_quest,16;
					next;
					mes "[Investigador Mora]";
					mes "Vuelve a mora para reoganizar todas las muestras...";
					close;
				} else {
					mes "No tienes donde llenar la muestra a recojer...";
					close;
				}
			case 2:
				close;
		}
	} else {
		mes "Parece que el agua mana del fondo de la tierra y se ha formado una pequeña piscina que brilla muy extrañamente";
		close;
	}
}
		

//Organismo Mecanismo.

mora,108,86,0	script	???#mora1	844,{
	if (mora_quest == 7) {
		if (countitem(6386) < 10) {
			mes "El lago está recubierto por un aura mística y parece que puedes obtener una muestra. ¿Qué quieres hacer?";
			next;
			switch(select("Obtener Muestra","Dejarlo Ir"))
			{
				case 1:
					if (countitem(1092) > 0) {
						set .@sample_ran,rand(1,4);
						if (.@sample_ran == 1) {
							mes "Pudiste recojer la muestra que estabas buscando";
							delitem 1092,1; //Empy Test Tube
							getitem 6386,1; //Bathhouse Research Sample
							donpcevent "???#mora1::OnDisable";
							close;
						}
						else if (.@sample_ran > 1) {
							mes "Metes la mano y parece que algo te golpea impidiendote poder recojer la muestra";
							percentheal -5,0;
							donpcevent "???#mora1::OnDisable";
							close;
						}
					} else {
						mes "No tienes donde guardar tus muestras";
						close;
					}
				case 2:
					close;
			}
		} else {
			mes "Ya tienes suficientes muestras ahora vuelve con el investigador";
			close;
		}
	}
	if (mora_quest == 9) {
		if (countitem(6387) < 10) {
			mes "El lago está recubierto por un aura mística y parece que puedes intentar cojer un diente. ¿Qué quieres hacer?";
			next;
			switch(select("Obtener Diente","Dejarlo Ir"))
			{
				case 1:
					set .@sample_ran,rand(1,4);
					if (.@sample_ran == 1) {
						mes "Pudiste recojer uno de los dientes que estabas buscando";
						getitem 6387,1; //Teeth_Sample
						donpcevent "???#mora1::OnDisable";
						close;
					}
					else if (.@sample_ran > 1) {
						mes "Metes la mano y parece que algo te golpea impidiendote poder recojer el diente";
						percentheal -5,0;
						donpcevent "???#mora1::OnDisable";
						close;
					}
				case 2:
					close;
			}
		} else {
			mes "Ya tienes suficientes dientes ahora vuelve con el investigador";
			close;
		}
	}
	if (mora_quest == 10) {
		if (countitem(6388) < 10) {
			mes "El lago está recubierto por un aura mística y parece que puedes intentar cojer una escama. ¿Qué quieres hacer?";
			next;
			switch(select("Obtener Escama","Dejarlo Ir"))
			{
				case 1:
					set .@sample_ran,rand(1,4);
					if (.@sample_ran == 1) {
						mes "Pudiste recojer uno de las escamas que estabas buscando";
						getitem 6388,1; //Scale_Samples
						donpcevent "???#mora1::OnDisable";
						close;
					}
					else if (.@sample_ran > 1) {
						mes "Metes la mano y parece que algo te golpea impidiendote poder recojer la escama";
						percentheal -5,0;
						donpcevent "???#mora1::OnDisable";
						close;
					}
				case 2:
					close;
			}
		} else {
			mes "Ya tienes suficientes dientes ahora vuelve con el investigador";
			close;
		}
	}	
	mes "???";
	next;
	switch(select("???"))
	{
		case 1:
			mes "???";
			close;
	}
OnHides:
	specialeffect EF_BASH;
	end;
OnDisable:
	hideonnpc "???#mora1";
	initnpctimer;
	end;
OnTimer60000:
	hideoffnpc "???#mora1";
	stopnpctimer;
	end;
}
mora,107,82,0	script	???#mora2	844,{
	if (mora_quest == 7) {
		if (countitem(6386) < 10) {
			mes "El lago está recubierto por un aura mística y parece que puedes obtener una muestra. ¿Qué quieres hacer?";
			next;
			switch(select("Obtener Muestra","Dejarlo Ir"))
			{
				case 1:
					if (countitem(1092) > 0) {
						set .@sample_ran,rand(1,4);
						if (.@sample_ran == 1) {
							mes "Pudiste recojer la muestra que estabas buscando";
							delitem 1092,1; //Empy Test Tube
							getitem 6386,1; //Bathhouse Research Sample
							donpcevent "???#mora2::OnDisable";
							close;
						}
						else if (.@sample_ran > 1) {
							mes "Metes la mano y parece que algo te golpea impidiendote poder recojer la muestra";
							percentheal -5,0;
							donpcevent "???#mora2::OnDisable";
							close;
						}
					} else {
						mes "No tienes donde guardar tus muestras";
						close;
					}
				case 2:
					close;
			}
		} else {
			mes "Ya tienes suficientes muestras ahora vuelve con el investigador";
			close;
		}
	}
	if (mora_quest == 9) {
		if (countitem(6387) < 10) {
			mes "El lago está recubierto por un aura mística y parece que puedes intentar cojer un diente. ¿Qué quieres hacer?";
			next;
			switch(select("Obtener Diente","Dejarlo Ir"))
			{
				case 1:
					set .@sample_ran,rand(1,4);
					if (.@sample_ran == 1) {
						mes "Pudiste recojer uno de los dientes que estabas buscando";
						getitem 6387,1; //Teeth_Sample
						donpcevent "???#mora2::OnDisable";
						close;
					}
					else if (.@sample_ran > 1) {
						mes "Metes la mano y parece que algo te golpea impidiendote poder recojer el diente";
						percentheal -5,0;
						donpcevent "???#mora2::OnDisable";
						close;
					}
				case 2:
					close;
			}
		} else {
			mes "Ya tienes suficientes dientes ahora vuelve con el investigador";
			close;
		}
	}
	if (mora_quest == 10) {
		if (countitem(6388) < 10) {
			mes "El lago está recubierto por un aura mística y parece que puedes intentar cojer una escama. ¿Qué quieres hacer?";
			next;
			switch(select("Obtener Escama","Dejarlo Ir"))
			{
				case 1:
					set .@sample_ran,rand(1,4);
					if (.@sample_ran == 1) {
						mes "Pudiste recojer uno de las escamas que estabas buscando";
						getitem 6388,1; //Scale_Samples
						donpcevent "???#mora2::OnDisable";
						close;
					}
					else if (.@sample_ran > 1) {
						mes "Metes la mano y parece que algo te golpea impidiendote poder recojer la escama";
						percentheal -5,0;
						donpcevent "???#mora2::OnDisable";
						close;
					}
				case 2:
					close;
			}
		} else {
			mes "Ya tienes suficientes dientes ahora vuelve con el investigador";
			close;
		}
	}
	mes "???";
	next;
	switch(select("???"))
	{
		case 1:
			mes "???";
			close;
	}
OnHides:
	specialeffect EF_BASH;
	end;
OnDisable:
	hideonnpc "???#mora2";
	initnpctimer;
	end;
OnTimer60000:
	hideoffnpc "???#mora2";
	stopnpctimer;
	end;
}
mora,113,84,0	script	???#mora3	844,{
	if (mora_quest == 7) {
		if (countitem(6386) < 10) {
			mes "El lago está recubierto por un aura mística y parece que puedes obtener una muestra. ¿Qué quieres hacer?";
			next;
			switch(select("Obtener Muestra","Dejarlo Ir"))
			{
				case 1:
					if (countitem(1092) > 0) {
						set .@sample_ran,rand(1,4);
						if (.@sample_ran == 1) {
							mes "Pudiste recojer la muestra que estabas buscando";
							delitem 1092,1; //Empy Test Tube
							getitem 6386,1; //Bathhouse Research Sample
							donpcevent "???#mora3::OnDisable";
							close;
						}
						else if (.@sample_ran > 1) {
							mes "Metes la mano y parece que algo te golpea impidiendote poder recojer la muestra";
							percentheal -5,0;
							donpcevent "???#mora3::OnDisable";
							close;
						}
					} else {
						mes "No tienes donde guardar tus muestras";
						close;
					}
				case 2:
					close;
			}
		} else {
			mes "Ya tienes suficientes muestras ahora vuelve con el investigador";
			close;
		}
	}
	if (mora_quest == 9) {
		if (countitem(6387) < 10) {
			mes "El lago está recubierto por un aura mística y parece que puedes intentar cojer un diente. ¿Qué quieres hacer?";
			next;
			switch(select("Obtener Diente","Dejarlo Ir"))
			{
				case 1:
					set .@sample_ran,rand(1,4);
					if (.@sample_ran == 1) {
						mes "Pudiste recojer uno de los dientes que estabas buscando";
						getitem 6387,1; //Teeth_Sample
						donpcevent "???#mora3::OnDisable";
						close;
					}
					else if (.@sample_ran > 1) {
						mes "Metes la mano y parece que algo te golpea impidiendote poder recojer el diente";
						percentheal -5,0;
						donpcevent "???#mora3::OnDisable";
						close;
					}
				case 2:
					close;
			}
		} else {
			mes "Ya tienes suficientes dientes ahora vuelve con el investigador";
			close;
		}
	}
	if (mora_quest == 10) {
		if (countitem(6388) < 10) {
			mes "El lago está recubierto por un aura mística y parece que puedes intentar cojer una escama. ¿Qué quieres hacer?";
			next;
			switch(select("Obtener Escama","Dejarlo Ir"))
			{
				case 1:
					set .@sample_ran,rand(1,4);
					if (.@sample_ran == 1) {
						mes "Pudiste recojer uno de las escamas que estabas buscando";
						getitem 6388,1; //Scale_Samples
						donpcevent "???#mora3::OnDisable";
						close;
					}
					else if (.@sample_ran > 1) {
						mes "Metes la mano y parece que algo te golpea impidiendote poder recojer la escama";
						percentheal -5,0;
						donpcevent "???#mora3::OnDisable";
						close;
					}
				case 2:
					close;
			}
		} else {
			mes "Ya tienes suficientes dientes ahora vuelve con el investigador";
			close;
		}
	}	
	mes "???";
	next;
	switch(select("???"))
	{
		case 1:
			mes "???";
			close;
	}
OnHides:
	specialeffect EF_BASH;
	end;
OnDisable:
	hideonnpc "???#mora3";
	initnpctimer;
	end;
OnTimer60000:
	hideoffnpc "???#mora3";
	stopnpctimer;
	end;
}
mora,117,86,0	script	???#mora4	844,{
	if (mora_quest == 7) {
		if (countitem(6386) < 10) {
			mes "El lago está recubierto por un aura mística y parece que puedes obtener una muestra. ¿Qué quieres hacer?";
			next;
			switch(select("Obtener Muestra","Dejarlo Ir"))
			{
				case 1:
					if (countitem(1092) > 0) {
						set .@sample_ran,rand(1,4);
						if (.@sample_ran == 1) {
							mes "Pudiste recojer la muestra que estabas buscando";
							delitem 1092,1; //Empy Test Tube
							getitem 6386,1; //Bathhouse Research Sample
							donpcevent "???#mora4::OnDisable";
							close;
						}
						else if (.@sample_ran > 1) {
							mes "Metes la mano y parece que algo te golpea impidiendote poder recojer la muestra";
							percentheal -5,0;
							donpcevent "???#mora4::OnDisable";
							close;
						}
					} else {
						mes "No tienes donde guardar tus muestras";
						close;
					}
				case 2:
					close;
			}
		} else {
			mes "Ya tienes suficientes muestras ahora vuelve con el investigador";
			close;
		}
	}
	if (mora_quest == 9) {
		if (countitem(6387) < 10) {
			mes "El lago está recubierto por un aura mística y parece que puedes intentar cojer un diente. ¿Qué quieres hacer?";
			next;
			switch(select("Obtener Diente","Dejarlo Ir"))
			{
				case 1:
					set .@sample_ran,rand(1,4);
					if (.@sample_ran == 1) {
						mes "Pudiste recojer uno de los dientes que estabas buscando";
						getitem 6387,1; //Teeth_Sample
						donpcevent "???#mora4::OnDisable";
						close;
					}
					else if (.@sample_ran > 1) {
						mes "Metes la mano y parece que algo te golpea impidiendote poder recojer el diente";
						percentheal -5,0;
						donpcevent "???#mora4::OnDisable";
						close;
					}
				case 2:
					close;
			}
		} else {
			mes "Ya tienes suficientes dientes ahora vuelve con el investigador";
			close;
		}
	}
	if (mora_quest == 10) {
		if (countitem(6388) < 10) {
			mes "El lago está recubierto por un aura mística y parece que puedes intentar cojer una escama. ¿Qué quieres hacer?";
			next;
			switch(select("Obtener Escama","Dejarlo Ir"))
			{
				case 1:
					set .@sample_ran,rand(1,4);
					if (.@sample_ran == 1) {
						mes "Pudiste recojer uno de las escamas que estabas buscando";
						getitem 6388,1; //Scale_Samples
						donpcevent "???#mora4::OnDisable";
						close;
					}
					else if (.@sample_ran > 1) {
						mes "Metes la mano y parece que algo te golpea impidiendote poder recojer la escama";
						percentheal -5,0;
						donpcevent "???#mora4::OnDisable";
						close;
					}
				case 2:
					close;
			}
		} else {
			mes "Ya tienes suficientes dientes ahora vuelve con el investigador";
			close;
		}
	}	
	mes "???";
	next;
	switch(select("???"))
	{
		case 1:
			mes "???";
			close;
	}
OnHides:
	specialeffect EF_BASH;
	end;
OnDisable:
	hideonnpc "???#mora4";
	initnpctimer;
	end;
OnTimer60000:
	hideoffnpc "???#mora4";
	stopnpctimer;
	end;
}
mora,116,81,0	script	???#mora5	844,{
	if (mora_quest == 7) {
		if (countitem(6386) < 10) {
			mes "El lago está recubierto por un aura mística y parece que puedes obtener una muestra. ¿Qué quieres hacer?";
			next;
			switch(select("Obtener Muestra","Dejarlo Ir"))
			{
				case 1:
					if (countitem(1092) > 0) {
						set .@sample_ran,rand(1,4);
						if (.@sample_ran == 1) {
							mes "Pudiste recojer la muestra que estabas buscando";
							delitem 1092,1; //Empy Test Tube
							getitem 6386,1; //Bathhouse Research Sample
							donpcevent "???#mora5::OnDisable";
							close;
						}
						else if (.@sample_ran > 1) {
							mes "Metes la mano y parece que algo te golpea impidiendote poder recojer la muestra";
							percentheal -5,0;
							donpcevent "???#mora5::OnDisable";
							close;
						}
					} else {
						mes "No tienes donde guardar tus muestras";
						close;
					}
				case 2:
					close;
			}
		} else {
			mes "Ya tienes suficientes muestras ahora vuelve con el investigador";
			close;
		}
	}
	if (mora_quest == 9) {
		if (countitem(6387) < 10) {
			mes "El lago está recubierto por un aura mística y parece que puedes intentar cojer un diente. ¿Qué quieres hacer?";
			next;
			switch(select("Obtener Diente","Dejarlo Ir"))
			{
				case 1:
					set .@sample_ran,rand(1,4);
					if (.@sample_ran == 1) {
						mes "Pudiste recojer uno de los dientes que estabas buscando";
						getitem 6387,1; //Teeth_Sample
						donpcevent "???#mora5::OnDisable";
						close;
					}
					else if (.@sample_ran > 1) {
						mes "Metes la mano y parece que algo te golpea impidiendote poder recojer el diente";
						percentheal -5,0;
						donpcevent "???#mora5::OnDisable";
						close;
					}
				case 2:
					close;
			}
		} else {
			mes "Ya tienes suficientes dientes ahora vuelve con el investigador";
			close;
		}
	}
	if (mora_quest == 10) {
		if (countitem(6388) < 10) {
			mes "El lago está recubierto por un aura mística y parece que puedes intentar cojer una escama. ¿Qué quieres hacer?";
			next;
			switch(select("Obtener Escama","Dejarlo Ir"))
			{
				case 1:
					set .@sample_ran,rand(1,4);
					if (.@sample_ran == 1) {
						mes "Pudiste recojer uno de las escamas que estabas buscando";
						getitem 6388,1; //Scale_Samples
						donpcevent "???#mora5::OnDisable";
						close;
					}
					else if (.@sample_ran > 1) {
						mes "Metes la mano y parece que algo te golpea impidiendote poder recojer la escama";
						percentheal -5,0;
						donpcevent "???#mora5::OnDisable";
						close;
					}
				case 2:
					close;
			}
		} else {
			mes "Ya tienes suficientes dientes ahora vuelve con el investigador";
			close;
		}
	}
	mes "???";
	next;
	switch(select("???"))
	{
		case 1:
			mes "???";
			close;
	}
OnHides:
	specialeffect EF_BASH;
	end;
OnDisable:
	hideonnpc "???#mora5";
	initnpctimer;
	end;
OnTimer60000:
	hideoffnpc "???#mora5";
	stopnpctimer;
	end;
}

mora,111,84,0	script	#activacionorg	-1,3,3,{
OnTouch:
	if (mora_quest > 0) {
		set .@organ_time,checkquest(5029,PLAYTIME); //1 hora
		if (.@organ_time == 2) {
			set .@acti_ran,rand(1,4);
			if (.@acti_ran == 1) {
					disablenpc "Sombra Negra#disable";
					enablenpc "Sombra Negra#enable";
					mapannounce "mora","El baño misterioso está ahora disponible.",bc_map,"0xFFFF00";
					donpcevent "???#mora1::OnHides";
					donpcevent "???#mora2::OnHides";
					donpcevent "???#mora3::OnHides";
					donpcevent "???#mora4::OnHides";
					donpcevent "???#mora5::OnHides";
			}
			else if (.@acti_ran > 1) {
				}
			end;
		}
		else if (.@organ_time == -1) {
			set .@acti_ran,rand(1,4);
			if (.@acti_ran == 1) {
					disablenpc "Sombra Negra#disable";
					enablenpc "Sombra Negra#enable";
					mapannounce "mora","El baño misterioso está ahora disponible.",bc_map,"0xFFFF00";
					donpcevent "???#mora1::OnHides";
					donpcevent "???#mora2::OnHides";
					donpcevent "???#mora3::OnHides";
					donpcevent "???#mora4::OnHides";
					donpcevent "???#mora5::OnHides";
			}
			else if (.@acti_ran > 1) {
				}
			end;
		}
	}
}
mora,1,1,1	script	#comienzo	-1,{
OnInit:
	disablenpc "Sombra Negra#enable";
	end;
}

mora,113,80,0	script	Sombra Negra#disable	844,{
	mes "^FF0000 Lo que ha surjido^000000";
	mes "^FF0000 Ahora no puedes usar el baño misterioso^000000";
	close;
}
mora,113,80,0	script	Sombra Negra#enable	844,{
	if (mora_quest > 0) {
		set .@organ_time,checkquest(5029,PLAYTIME); //1 hora
		if (.@organ_time == 2) {
			mes "De repente te ves atacado por un extraño organismo";
			enablenpc "Sombra Negra#disable";
			disablenpc "Sombra Negra#enable";
			next;
			switch(Select("Deseas Luchar","Huir"))
			{
				case 1:
					specialeffect2 EF_BASH;
					erasequest 5029;
					setquest 5029;
					goto LUCHAR;
				case 2:
					close;
			}
		}
		else if (.@organ_time == -1) {
			mes "De repente te ves atacado por un extraño organismo";
			enablenpc "Sombra Negra#disable";
			disablenpc "Sombra Negra#enable";
			next;
			switch(Select("Deseas Luchar","Huir"))
			{
				case 1:
					specialeffect2 EF_BASH;
					goto LUCHAR;
				case 2:
					close;
			}
		}
		else if (.@organ_time == 1) {
			mes "^FF0000 Lo que ha surjido^000000";
			mes "^FF0000 Ahora no puedes usar el baño misterioso^000000";
			close;
		}
REPLY:
	mes "La criatura del mar no identificada recibe un ataque";
	mes "¿Qué podemos hacer?";
	next;
	switch(select("Atacar Con Armas","Atacar Con Habilidades","Atacar Mediante El Uso De Un Diente.","Correr De Miedo") )
	{
		case 1:
			goto ARMA;
		case 2:
			goto HABILIDAD;
		case 3:
			goto DIENTE;
		case 4:
			goto CORRER;
	}
LUCHAR:
	set $@hpmob,200;
	set $@hpplay,200;
	set $@bajarhp,0;
	set $@hpmobtotal,$@hpmob - $@bajarhp;
	set $@hpplaytotal,$@hpplay - $@bajarhp;
	mes "Vida Organismo: ^FF0000"+$@hpmobtotal+"^000000.";
	mes "Vida "+strcharinfo(0)+": ^FF0000"+$@hpplaytotal+"^000000.";
	next;
	mes "La criatura del mar no identificada recibe un ataque";
	mes "¿Qué podemos hacer?";
	next;
	switch(select("Atarcar Con Armas","Usar Habilidades De Ataque","Ataque Mediante El Uso De Un Diente.","Correr De Miedo") )
	{
		case 1:
			goto ARMA;
		case 2:
			goto HABILIDAD;
		case 3:
			goto DIENTE;
		case 4:
			goto CORRER;
	}
ARMA:
	set $@hpmob,$@hpmobtotal;
	set $@hpplay,$@hpplaytotal;
	mes "Con impetud intentas darle un golpe al organismo con todas tus fuerzas usando tu arma pero..";
	next;
	set .@hit_ran,rand(1,11);
	if (.@hit_ran == 1) {
		set $@bajarhp,10;
		set $@hpplaytotal,$@hpplay - $@bajarhp;
		mes "Al intentar darle un golpe tan fuerte quedaste desprotegido recibiendo daño del organismo";
		next;
		mes "Perdiste ^FF0000 10^000000 de HP";
	}
	else if (.@hit_ran == 2) {
		set $@bajarhp,10;
		set $@hpplaytotal,$@hpplay - $@bajarhp;
		mes "Al intentar darle un golpe tan fuerte quedaste desprotegido recibiendo daño del organismo";
		next;
		mes "Perdiste ^FF0000 20^000000 de HP";
	}
	else if (.@hit_ran == 3) {
		set $@bajarhp,20;
		set $@hpplaytotal,$@hpplay - $@bajarhp;
		mes "Al intentar darle un golpe tan fuerte quedaste desprotegido recibiendo daño del organismo";
		next;
		mes "Perdiste ^FF0000 20^000000 de HP";
	}
	else if (.@hit_ran == 4) {
		set $@bajarhp,20;
		set $@hpplaytotal,$@hpplay - $@bajarhp;
		mes "Al intentar darle un golpe tan fuerte quedaste desprotegido recibiendo daño del organismo";
		next;
		mes "Perdiste ^FF0000 20^000000 de HP";
	}
	else if (.@hit_ran == 5) {
		set $@bajarhp,20;
		set $@hpplaytotal,$@hpplay - $@bajarhp;
		mes "Al intentar darle un golpe tan fuerte quedaste desprotegido recibiendo daño del organismo pero te defendiste con AUTO-GUARD y disminuiste el daño";
		next;
		mes "Perdiste ^FF0000 20^000000 de HP";
		specialeffect2 EF_GUARD;
	}
	else if (.@hit_ran == 6) {
		set $@bajarhp,50;
		set $@hpplaytotal,$@hpplay - $@bajarhp;
		mes "Al intentar darle un golpe tan fuerte quedaste desprotegido recibiendo daño del organismo";
		next;
		mes "Perdiste ^FF0000 50^000000 de HP";
	}
	else if (.@hit_ran == 7) {
		set $@bajarhp,10;
		set $@hpmobtotal,$@hpmob - $@bajarhp;
		mes "Le golpeaste pero no pudiste darle acertadamente y solo sufrio pequeño daño";
		next;
		mes "El organismo perdió ^FF0000 10^000000 de HP";
	}
	else if (.@hit_ran == 8) {
		set $@bajarhp,20;
		set $@hpmobtotal,$@hpmob - $@bajarhp;
		mes "Le golpeaste pero no pudiste darle acertadamente y solo sufrio pequeño daño";
		next;
		mes "El organismo perdió ^FF0000 20^000000 de HP";
	}
	else if (.@hit_ran == 9) {
		set $@bajarhp,50;
		set $@hpmobtotal,$@hpmob - $@bajarhp;
		mes "Le golpeaste acertadamente y sufrio gran daño";
		next;
		mes "El organismo perdió ^FF0000 50^000000 de HP";
	}
	else if (.@hit_ran == 10) {
		set $@bajarhp,20;
		set $@hpmobtotal,$@hpmob - $@bajarhp;
		mes "Le golpeaste acertadamente y sufrio gran daño pero se defendio con AUTO-GUARD y disminuyo sus daños";
		next;
		mes "El organismo perdió ^FF0000 20^000000 de HP";
		specialeffect EF_GUARD;
	}
	else if (.@hit_ran == 11) {
		mes "No pudiste acertar al organismo, pero esquivaste bien su golpe";
		next;
		mes "Nadie recibio daño alguno..";
		
	}
	next;
	goto CHECK;

HABILIDAD:
	set $@hpmob,$@hpmobtotal;
	set $@hpplay,$@hpplaytotal;
	mes "Te concentrás para golpearle con una de tus mejores habilidades, pero....";
	next;
	set .@hit_ran,rand(1,9);
	if (.@hit_ran == 1) {
		set $@bajarhp,10;
		set $@hpplaytotal,$@hpplay - $@bajarhp;
		mes "Al intentar golpearle con una habilidad te quedas paralizado y el organismo te golpea";
		next;
		mes "Perdiste ^FF0000 10^000000 de HP";
	}
	else if (.@hit_ran == 2) {
		set $@bajarhp,20;
		set $@hpplaytotal,$@hpplay - $@bajarhp;
		mes "Al intentar golpearle con una habilidad te quedas paralizado y el organismo te golpea";
		next;
		mes "Perdiste ^FF0000 20^000000 de HP";
	}
	else if (.@hit_ran == 3) {
		set $@bajarhp,20;
		set $@hpplaytotal,$@hpplay - $@bajarhp;
		mes "Al intentar golpearle con una habilidad te quedas paralizado y el organismo te golpea pero el AUTO-GUARD te reduce los daños.";
		next;
		mes "Perdiste ^FF0000 20^000000 de HP";
		specialeffect2 EF_GUARD;
	}
	else if (.@hit_ran == 4) {
		set $@bajarhp,50;
		set $@hpplaytotal,$@hpplay - $@bajarhp;
		mes "Al intentar golpearle con una habilidad te quedas paralizado y el organismo te golpea con mucha fuerza";
		next;
		mes "Perdiste ^FF0000 50^000000 de HP";
	}
	else if (.@hit_ran == 5) {
		set $@bajarhp,10;
		set $@hpmobtotal,$@hpmob - $@bajarhp;
		mes "Le golpeaste pero no pudiste darle acertadamente y solo sufrio pequeño daño";
		next;
		mes "El organismo perdió ^FF0000 10^000000 de HP";
	}
	else if (.@hit_ran == 6) {
		set $@bajarhp,20;
		set $@hpmobtotal,$@hpmob - $@bajarhp;
		mes "Le golpeaste pero no pudiste darle acertadamente y solo sufrio pequeño daño";
		next;
		mes "El organismo perdió ^FF0000 20^000000 de HP";
	}
	else if (.@hit_ran == 7) {
		set $@bajarhp,50;
		set $@hpmobtotal,$@hpmob - $@bajarhp;
		mes "Le golpeaste acertadamente y sufrio gran daño";
		next;
		mes "El organismo perdió ^FF0000 50^000000 de HP";
	}
	else if (.@hit_ran == 8) {
		set $@bajarhp,20;
		set $@hpmobtotal,$@hpmob - $@bajarhp;
		mes "Le golpeaste acertadamente y sufrio gran daño pero se defendio con AUTO-GUARD y disminuyo sus daños";
		next;
		mes "El organismo perdió ^FF0000 20^000000 de HP";
		specialeffect EF_GUARD;
	}
	else if (.@hit_ran == 9) {
		mes "No pudiste acertar al organismo, pero esquivaste bien su golpe";
		next;
		mes "Nadie recibio daño alguno..";
		
	}
	next;
	goto CHECK;

DIENTE:
	set $@hpmob,$@hpmobtotal;
	set $@hpplay,$@hpplaytotal;
	mes "Sin dudarlo atacas a uno de sus tentaculos con tus propios dientes pero...";
	next;
	set .@hit_ran,rand(1,9);
	if (.@hit_ran == 1) {
		set $@bajarhp,10;
		set $@hpplaytotal,$@hpplay - $@bajarhp;
		mes "Al intentar morderle con tus dientes el organismo te golpea";
		next;
		mes "Perdiste ^FF0000 10^000000 de HP";
	}
	else if (.@hit_ran == 2) {
		set $@bajarhp,20;
		set $@hpplaytotal,$@hpplay - $@bajarhp;
		mes "Al intentar morderle con tus dientes el organismo te golpea";
		next;
		mes "Perdiste ^FF0000 20^000000 de HP";
	}
	else if (.@hit_ran == 3) {
		set $@bajarhp,20;
		set $@hpplaytotal,$@hpplay - $@bajarhp;
		mes "Al intentar morderle con tus dientes el organismo te golpea pero el AUTO-GUARD te reduce los daños.";
		next;
		mes "Perdiste2 ^FF0000 20^000000 de HP";
		specialeffect EF_GUARD;
	}
	else if (.@hit_ran == 4) {
		set $@bajarhp,50;
		set $@hpplaytotal,$@hpplay - $@bajarhp;
		mes "Al intentar morderle con tus dientes el organismo te golpea con mucha fuerza";
		next;
		mes "Perdiste ^FF0000 50^000000 de HP";
	}
	else if (.@hit_ran == 5) {
		set $@bajarhp,10;
		set $@hpmobtotal,$@hpmob - $@bajarhp;
		mes "Le muerdes uno de sus tentaculos haciendole poco daño";
		next;
		mes "El organismo perdió ^FF0000 10^000000 de HP";
	}
	else if (.@hit_ran == 6) {
		set $@bajarhp,20;
		set $@hpmobtotal,$@hpmob - $@bajarhp;
		mes "Le muerdes uno de sus tentaculos hadiendole algo de daño";
		next;
		mes "El organismo perdió ^FF0000 20^000000 de HP";
	}
	else if (.@hit_ran == 7) {
		set $@bajarhp,50;
		set $@hpmobtotal,$@hpmob - $@bajarhp;
		mes "Le muerdes uno de sus tentaculos con tanta fuerza que le haces mucho daño";
		next;
		mes "El organismo perdió ^FF0000 50^000000 de HP";
	}
	else if (.@hit_ran > 7 ) {
		mes "No pudiste acertar al organismo, pero esquivaste bien su golpe";
		next;
		mes "Nadie recibio daño alguno..";
		
	}
	next;
	goto CHECK;

CORRER:
	set $@hpmob,$@hpmobtotal;
	set $@hpplay,$@hpplaytotal;
	mes "Intentas huir de miedo pero el organismo te lanza uno de sus tentaculos y...";
	next;
	set .@hit_ran,rand(1,9);
	if (.@hit_ran == 1) {
		set $@bajarhp,10;
		set $@hpplaytotal,$@hpplay - $@bajarhp;
		mes "El organismo te golpea impidiendote seguir corriendo.";
		next;
		mes "Perdiste ^FF0000 10^000000 de HP";
	}
	else if (.@hit_ran == 2) {
		set $@bajarhp,20;
		set $@hpplaytotal,$@hpplay - $@bajarhp;
		mes "El organismo te golpea impidiendote seguir corriendo.";
		next;
		mes "Perdiste ^FF0000 20^000000 de HP";
	}
	else if (.@hit_ran == 3) {
		set $@bajarhp,20;
		set $@hpplaytotal,$@hpplay - $@bajarhp;
		mes "El organismo te golpea impidiendote seguir corriendo, pero el AUTO-GUARD te reduce los daños.";
		next;
		mes "Perdiste ^FF0000 20^000000 de HP";
		specialeffect2 EF_GUARD;
	}
	else if (.@hit_ran == 4) {
		set $@bajarhp,50;
		set $@hpplaytotal,$@hpplay - $@bajarhp;
		mes "El organismo te golpea fuertemente impidiendote seguir corriendo.";
		next;
		mes "Perdiste ^FF0000 50^000000 de HP";
	}
	else if (.@hit_ran == 5) {
		set $@bajarhp,10;
		set $@hpmobtotal,$@hpmob - $@bajarhp;
		mes "El organismo te intenta golpear falla y aprovechas para asestarle un golpe.";
		next;
		mes "El organismo perdió ^FF0000 10^000000 de HP";
	}
	else if (.@hit_ran == 6) {
		set $@bajarhp,20;
		set $@hpmobtotal,$@hpmob - $@bajarhp;
		mes "El organismo te intenta golpear falla y aprovechas para asestarle un golpe.";
		next;
		mes "El organismo perdió ^FF0000 20^000000 de HP";
	}
	else if (.@hit_ran > 6 ) {
		mes "El organismo fallo cuando intento bloquearte el paso y sales huyendo";
		close;	
	}
	next;
	goto CHECK;

CHECK:
	if ($@hpmobtotal < 1) goto PLAYERWIN;
	if ($@hpplaytotal < 1) goto MOBWIN;
	mes "Vida Mob: ^FF0000"+$@hpmobtotal+"^000000.";
	mes "Vida "+strcharinfo(0)+": ^FF0000"+$@hpplaytotal+"^000000.";
	next;
	goto REPLY;
	
PLAYERWIN:
	if (mora_quest == 1) {
		mes "Has conseguido derrotar al organismo desconocido del mar";
		next;
		mes "Ahora buscas tranquilamente en el lago y encuentras el objeto que el investigador habia perdido";
		set mora_quest,2;
		//setquest 5029;
		getitem 6385,1; //Research Tools Bag
		close;
	}
	else if (mora_quest == 2) {
		mes "Has conseguido derrotar al organismo desconocido del mar";
		next;
		mes "No puedes hacer nada más por el momento";
		close;
	}
	else if (mora_quest == 3) {
		mes "Has conseguido derrotar al organismo desconocido del mar";
		next;
		mes "Veciste una vez más al organismo te faltan dos veces más.";
		getitem 6380,1; //mora coin
		set mora_quest,4;
		close;
	}
	else if (mora_quest == 4) {
		mes "Has conseguido derrotar al organismo desconocido del mar";
		next;
		mes "Veciste una vez más al organismo te falta una vez más.";
		getitem 6380,1; //mora coin
		set mora_quest,5;
		close;
	}
	else if (mora_quest == 5) {
		mes "Has conseguido derrotar al organismo desconocido del mar";
		next;
		mes "Ahora vuelve con el investigador.";
		completequest 5017;
		setquest 5018;
		getitem 6380,1; //mora coin
		set mora_quest,6;
		close;
	}
	else if (mora_quest > 5) {
		mes "Has conseguido derrotar al organismo desconocido del mar";
		next;
		mes "Veciste una vez más al organismo recoje tu premio.";
		getitem 6380,5; //mora coin
		close;
	}
	
MOBWIN:
	mes "Caes de rodillas al suelo exausto por la batalla perdida contra el organismo...";
	percentheal -20,0;
	close;
	}
}

Euphy · May 31, 2013

I've finished the official scripts. If you can wait a day or so, I'll add them to the SVN.

deathdaniels · May 31, 2013

thank you very much.

Ziu · May 31, 2013

Como te dijo eurphy praticamente tienen finiquiado el aegis conversión oficial

SIno funciona es porque no se la razón los setquest de esa parte estan deshabilitados fijate que llevan un //

deathdaniels · June 2, 2013

Hola Ziu, muchas gracias igual solucionamos el problema de los tiempos a nuestra manera si, XD, si alguien lo quiere aquí dejo el script, funciona sin problemas.

PD: Gracias por las actualizaciones de Mora Oficiales.

// - Organismo Misterioso (No Real)
//==============================
mora,31,138,5	script	Investigador Mora	522,{
	if (mora_quest == 0) {
		mes "[Investigador Mora]";
		mes "Hola viajero.. tengo un gran problema.. ^FF0000¡Ah! ¡Toma Nota!^000000 soy el encargado de investigaciones de mora";
		next;
		mes "[Investigador Mora]";
		mes "Mi trabajo consiste en tomar muestras del agua que puedes encontrar en todos los campos de mora";
		next;
		mes "[Investigador Mora]";
		mes "Es una sustancia muy especial que puede ayudar a curar graves heridas y desinfectarlas";
		next;
		switch(select("Hablame sobre él","No Me Interesa" ))
		{
			case 1:
				mes "[Investigador Mora]";
				mes "Estaba investigando en el lago que se encuentra en medio del pueblo de mora";
				next;
				mes "[Investigador Mora]";
				mes "Cuando un extraño tentaculo apareció y perdi todos mis materiales de investigación";
				next;
				mes "[Investigador Mora]";
				mes "Pero tengo miedo de que vuelva atacarmé, ahora no tengo mis aparatos para poder continuar con mi trabajo";
				next;
				mes "[Investigador Mora]";
				mes "¿Podrías ayudarme a recuperar mis aparatos?";
				next;
				switch(select("No me interesa","Si te ayudaré" ) )
				{
					case 1:
						mes "[Investigador Mora]";
						mes "Pense que podrías ayudarme a recuperar mis artilugios pero me equivoque...";
						emotion e_pif;
						close;
					case 2:
						mes "[Investigador Mora]";
						mes "Muchas gracias por tú ayuda ahora te explicaré donde tienes que ir";
						emotion e_lv;
						next;
						mes "[Investigador Mora]";
						mes "En el centro de la ciudad encontrarás un gran lago donde se situa el organismo";
						next;
						mes "[Investigador Mora]";
						mes "Si logras vencerle podrás recuperar mis herramientas que se encuentran dentro de una maletín";
						next;
						mes "[Investigador Mora]";
						mes "Ten mucho cuidado....";
						setquest 5016;
						set mora_quest,1;
						close;
				}
			case 2:
				mes "[Investigador Mora]";
				mes "Pense que podrías ayudarme a recuperar mis artilugios pero me equivoque...";
				emotion e_pif;
				close;
		}
	}
	if (mora_quest == 1) {
		mes "[Investigador Mora]";
		mes "En el centro de la ciudad encontrarás un gran lago donde se situa el organismo";
		next;
		mes "[Investigador Mora]";
		mes "Si logras vencerle podrás recuperar mis herramientas que se encuentran dentro de una maletín";
		close;
	}
	if (mora_quest == 2) {
		if (countitem(6385) == 1) {
			mes "[Investigador Mora]";
			mes "Oh muchas gracias por recuperar mi maletín con todas mis herramientas de estudio";
			next;
			mes "[Investigador Mora]";
			mes "Ahora me gustaría continuar con mis investigaciones por ello quiero que luches contra el organismo y le derrotes 3 veces más para debilitarle";
			completequest 5016;
			setquest 5017;
			getitem 6380,1; //Mora Coin
			set mora_quest,3;
			close;
		} else {
			mes "[Investigador Mora]";
			mes "Hola viajero.. tengo un gran problema.. ^FF0000¡Ah! ¡Toma Nota!^000000 soy el encargado de investigaciones de mora";
			next;
			mes "[Investigador Mora]";
			mes "Mi trabajo consiste en tomar muestras del agua que puedes encontrar en todos los campos de mora";
			next;
			mes "[Investigador Mora]";
			mes "Es una sustancia muy especial que puede ayudar a curar graves heridas y desinfectarlas";
			close;
		}
	}
	if ((mora_quest > 2) && (mora_quest < 6)) {
		mes "[Investigador Mora]";
		mes "Ahora me gustaría continuar con mis investigaciones por ello quiero que luches contra el organismo y le derrotes 3 veces más para debilitarle";
		close;
	}
	if (mora_quest == 6) {
		mes "[Investigador Mora]";
		mes "Veo que has podido derrotarle 3 veces más, ahora es el momento de comenzar la investigación en serio.";
		next;
		mes "[Investigador Mora]";
		mes "Para realizar un correcto muestreo de la composión del liquido que hay en el lago necesito que recolectes muestras de ello";
		next;
		mes "[Investigador Mora]";
		mes "Para ello te daré 10 Empty Test Tube para que puedas recolectar todas las muestras que necesito";
		completequest 5018;
		setquest 5019;
		getitem 1092,10; //Empty_Cylinder
		set mora_quest,7;
		close;
	}
	if (mora_quest == 7) {
		if (countitem(6386) == 10) {
			mes "[Investigador Mora]";
			mes "Bien has traido todas las muestras que necesitaba del lago";
			next;
			mes "[Investigador Mora]";
			mes "Ahora estudiare la composición del agua del lago para intentar descubrir más sobre ello";
			next;
			mes "[Investigador Mora]";
			mes "Necesito 24 horas para completar mis investigaciones...vuelve entonces";
			completequest 5019;
			setquest 5020;
			delitem 6386,10;
			getitem 6380,1; //mora coin
			set mora_quest,8;
			close;
		} else {
			mes "[Investigador Mora]";
			mes "Necesito hacer un muestreo homogeneo de líquido del lago, Recoge las muestras necesarias de todos los puntos";
			close;
		}
	}
	if (mora_quest == 8) {
		set .@lago_time,checkquest(5020,PLAYTIME);
		if (.@lago_time == 2) {
			mes "[Investigador Mora]";
			mes "Terminado de investigar sobre las muestras que recolectaste";
			next;
			mes "[Investigador Mora]";
			mes "Es muy interesante el DNA encontrado en todas las muestras... puede ayudarnos en el futuro";
			next;
			mes "[Investigador Mora]";
			mes "Por eso necesito que intentes obtener 10 dientes de los tentaculos de la criatura del lago";
			next;
			mes "[Investigador Mora]";
			mes "Mucha suerte..vuelve cuando los consigas";
			completequest 5020;
			setquest 5021;
			set mora_quest,9;
			close;
		} else {
			mes "[Investigador Mora]";
			mes "Necesito 24 horas para completar mis investigaciones...vuelve entonces";
			close;
		}
	}
	if (mora_quest == 9) {
		if (countitem(6387) == 10) {
			mes "[Investigador Mora]";
			mes "Uooo muchas gracias...ahora podré estudiarlas comparando el DNA encontrado en el agua del lago";
			next;
			mes "[Investigador Mora]";
			mes "Mientras podrías intentar conseguir 10 escamas para completar mis investigaciones";
			completequest 5021;
			setquest 5022;
			delitem 6387,10; //
			getitem 6380,1; //mora coin
			set mora_quest,10;
			close;	
		} else {
			mes "[Investigador Mora]";
			mes "Necesito que intentes obtener 10 dientes de los tentaculos de la criatura del lago";
			close;
		}
	}
	if (mora_quest == 10) {
		if (countitem(6388) == 10) {
			mes "[Investigador Mora]";
			mes "Ahora que tengo todas estas muestras voy a compararlas para poder investigar el DNA";
			next;
			mes "[Investigador Mora]";
			mes "Ahora dame 6 horas para poder investigarlo y compararlas con tranquilidad";
			next;
			mes "[Investigador Mora]";
			mes "Mientras continua con tu aventura....mucha suerte";
			completequest 5022;
			setquest 5023;
			delitem 6388,10;
			getitem 6380,1; //mora coin
			set mora_quest,11;
			close;
		} else {
			mes "[Investigador Mora]";
			mes "Necesito que intentes obtener 10 escamas de los tentaculos de la criatura del lago";
			close;
		}
	}
	if (mora_quest == 11) {
		set .@lago1_time,checkquest(5023,PLAYTIME);
		if (.@lago1_time == 2) {
			mes "[Investigador Mora]";
			mes "Todas la investigaciones sobre este nuevo DNA han sido muy frutiferas";
			next;
			mes "[Investigador Mora]";
			mes "Ahora necesito comparar todas mis muestras con las que puedas encontrar en los pools de fuera";
			next;
			mes "[Investigador Mora]";
			mes "Para completar mis resultados.... encuentra los cuatro puntos necesarios para recoger tus muestras";
			next;
			mes "[Investigador Mora]";
			mes "El primero de ellos se encuentra en la parte oriental de los campos.";
			next;
			completequest 5023;
			setquest 5024;
			getitem 1092,4; //Empty_Cylinder
			set mora_quest,12;
			close;
		} else {
			mes "[Investigador Mora]";
			mes "Necesito seis horas para completar mis investigaciones y comparar cada uno de los items que me trajistes";
			close;
		}
	}
	if ((mora_quest > 12) && (mora_quest < 16)) {
		mes "[Investigador Mora]";
		mes "Para completar mis resultados.... encuentra los cuatro puntos necesarios para recoger tus muestras";
		close;
	}
	if (mora_quest == 16) {
		if(countitem(6389) == 4) {
			mes "[Investigador Mora]";
			mes "Gracias por traerme las muestras de cuatro localizaciones distintas";
			next;
			mes "[Investigador Mora]";
			mes "Voy a proceder a compararlas con todas las muestras que tomaste del lago para estudiar su composición y su DNA";
			next;
			mes "[Investigador Mora]";
			mes "Necesito 12 horas para completar mi estudio, vuelve cuando haya terminado y te daré los resultados finales";
			next;
			mes "[Investigador Mora]";
			mes "Mientras puedes volver a luchar con la extraña criatura del lago de mora";
			setquest 5028;
			delitem 6389,4;
			getitem 6380,4;
			set mora_quest,17;
			close;
		} else {
			mes "[Investigador Mora]";
			mes "Para completar mis resultados.... encuentra los cuatro puntos necesarios para recoger tus muestras";
			close;
		}
	}
	if (mora_quest == 17) {
		set .@lago2_time,checkquest(5028,PLAYTIME);
		if (.@lago2_time == 2) {
			mes "[Investigador Mora]";
			mes "Has vuelto? expectativas último estudio concluido y esperó. ¿Por qué quieres estudiar?";
			next;
			switch(select("Aceptarlo. Estoy Bien","Quiero Los Resultados"))
			{
				case 1:
					close;
				case 2:
					mes "[Informe Investigación]";
					mes "*** Investigador - Inflation.";
					mes "*** ? ? - ???";
					next;
					mes "<Métodos>";
					mes "1. Obtener muestras de DNA en el lago de la ciudad de mora para confirmar la presencia de DNA no identificado.";
					next;
					mes "2. El análisis comparativo de la vida animal no identificado de DNA con el DNA encontrado en el agua del lago puede considerase en 70% del DNA está transformado.";
					next;
					mes "3. Un estudio de cuatro lugares alrededor de la ciudad confirmo que los componentes se distribuian uniformemente por cada uno de los cuatro lugares";
					next;
					mes "<Análisis Químico>";
					mes "*** Temp Muestra ***** 33,5c";
					mes "*** PH *************** 9,8";
					mes "*** Residuo Seco ***** 176";
					mes "*** K+ *************** 0,23";
					mes "*** Ca++ ************* 1,83";
					mes "*** Cl- ************** 26,2";
					mes "*** HCO3- ************ 31,0";
					mes "*** H2S ************** 1,7";
					mes "*** Na++ ************* 51,9";
					mes "*** Mg+ ************** 0,03";
					mes "*** SO4- ************* 5,0";
					mes "*** F **************** 12,8";
					mes "*** SiO2 ************* 23,9";
					mes "*** Li *************** 0,06";
					mes "*** CO3+ ************* 22,8";
					mes "*** Sr *************** 0,04";
					mes "*** T-Solidos ******** 165";
					mes "*** Conductividad **** 500";
					mes "*** Loguitud ********* 4,6";
					next;
					mes "[Investigador Mora]";
					mes "Esta cerca de la región al volcán y aún asi la temperatura no es muy alta, ¿No es soprendente?";
					next;
					mes "[Investigador Mora]";
					mes "Tiene un PH bastante elevado y se corresponde con la cantidad encontrada de silicatos y otros compuestos como calcio o sodio que son bastante antos";
					next;
					mes "[Investigador Mora]";
					mes "Aunque la cantidad que deja cuando evaporamos todo el agua es relativamente baja resulta que es un compuesto conocido como agua blanda";
					next;
					mes "[Investigador Mora]";
					mes "Contiene una gran cantidad de elementos metálicos, carbonatos, sultafos, con cargas negativas y se corresponde con el PH de la muestra";
					next;
					mes "[Investigador Mora]";
					mes "Aúnque los resultados no son todo lo stisfactorios debido a que ha estado lloviendo. De todas formas por el momento lo dejaremos como un misterio...";
					next;
					mes "[Investigador Mora]";
					mes "He estado pensando en una compensación por todas las molestas que te ocasionado y porque los resultados no fueron los mejores...";
					next;
					mes "[Investigador Mora]";
					mes "Has sido.. ¡el mejor asistente que tenido nunca!";
					completequest 5028;
					getitem 6380,30; //Mora coin
					set mora_quest,18;
					close;
			}
		} else {
			mes "[Investigador Mora]";
			mes "Necesito 12 horas para completar mi estudio, vuelve cuando haya terminado y te daré los resultados finales";
			next;
			mes "[Investigador Mora]";
			mes "Mientras puedes volver a luchar con la estraña criatura del lago de mora";
			close;
		}
	}
	if (mora_quest > 17) {
		mes "[Investigador Mora]";
		mes "En estos momentos estoy aún analizando los datos que obtube de toda las muestras...";
		next;
		mes "[Investigador Mora]";
		mes "Has sido.. ¡el mejor asistente que tenido nunca!";
		close;
	}
}

bif_fild02,315,286,0	script	Pool#bifrost	844,{
	if (mora_quest == 12) {
		mes "Parece que aquí brota agua del fondo de la tierra";
		next;
		switch(select("recoger Muestra","No Hacer Nada"))
		{
			case 1:
				if (countitem(1092) > 0) {
					mes "Metiste la mano y sacaste una probeta llena del liquido del lago";
					completequest 5024;
					setquest 5025;
					delitem 1092,1; //Empty_Cylinder
					getitem 6389,1; //Pool Research Sample
					set mora_quest,13;
					next;
					mes "[Investigador Mora]";
					mes "La siguente parada es en la parte más occidental de los campos mucha suerte";
					close;
				} else {
					mes "No tienes donde llenar la muestra a recoger...";
					close;
				}
			case 2:
				close;
		}
	} else {
		mes "Parece que el agua mana del fondo de la tierra y se ha formado una pequeña piscina que brilla muy extrañamente";
		close;
	}
}
bif_fild02,65,108,0	script	Pool#bifrost1	844,{
	if (mora_quest == 13) {
		mes "Parece que aquí brota agua del fondo de la tierra";
		next;
		switch(select("recoger Muestra","No Hacer Nada"))
		{
			case 1:
				if (countitem(1092) > 0) {
					mes "Metiste la mano y sacaste una probeta llena del liquido del lago";
					completequest 5025;
					setquest 5026;
					delitem 1092,1; //Empty_Cylinder
					getitem 6389,1; //Pool Research Sample
					set mora_quest,14;
					next;
					mes "[Investigador Mora]";
					mes "La siguente parada es en la parte más al sur de los campos mucha suerte";
					close;
				} else {
					mes "No tienes donde llenar la muestra a recoger...";
					close;
				}
			case 2:
				close;
		}
	} else {
		mes "Parece que el agua mana del fondo de la tierra y se ha formado una pequeña piscina que brilla muy extrañamente";
		close;
	}
}
bif_fild02,224,71,0	script	Pool#bifrost2	844,{
	if (mora_quest == 14) {
		mes "Parece que aquí brota agua del fondo de la tierra";
		next;
		switch(select("recoger Muestra","No Hacer Nada"))
		{
			case 1:
				if (countitem(1092) > 0) {
					mes "Metiste la mano y sacaste una probeta llena del liquido del lago";
					completequest 5026;
					setquest 5027;
					delitem 1092,1; //Empty_Cylinder
					getitem 6389,1; //Pool Research Sample
					set mora_quest,15;
					next;
					mes "[Investigador Mora]";
					mes "La siguente parada es en la parte más al norte de los campos mucha suerte";
					close;
				} else {
					mes "No tienes donde llenar la muestra a recoger...";
					close;
				}
			case 2:
				close;
		}
	} else {
		mes "Parece que el agua mana del fondo de la tierra y se ha formado una pequeña piscina que brilla muy extrañamente";
		close;
	}
}
bif_fild02,113,340,0	script	Pool#bifrost3	844,{
	if (mora_quest == 15) {
		mes "Parece que aquí brota agua del fondo de la tierra";
		next;
		switch(select("recoger Muestra","No Hacer Nada"))
		{
			case 1:
				if (countitem(1092) > 0) {
					mes "Metiste la mano y sacaste una probeta llena del liquido del lago";
					completequest 5027;
					delitem 1092,1; //Empty_Cylinder
					getitem 6389,1; //Pool Research Sample
					set mora_quest,16;
					next;
					mes "[Investigador Mora]";
					mes "Vuelve a mora para reoganizar todas las muestras...";
					close;
				} else {
					mes "No tienes donde llenar la muestra a recoger...";
					close;
				}
			case 2:
				close;
		}
	} else {
		mes "Parece que el agua mana del fondo de la tierra y se ha formado una pequeña piscina que brilla muy extrañamente";
		close;
	}
}
		

//Organismo Mecanismo.

mora,108,86,0	script	???#mora1	844,{
	if (mora_quest == 7) {
		if (countitem(6386) < 10) {
			mes "El lago está recubierto por un aura mística y parece que puedes obtener una muestra. ¿Qué quieres hacer?";
			next;
			switch(select("Obtener Muestra","Dejarlo Ir"))
			{
				case 1:
					if (countitem(1092) > 0) {
						set .@sample_ran,rand(1,4);
						if (.@sample_ran == 1) {
							mes "Pudiste recoger la muestra que estabas buscando";
							delitem 1092,1; //Empy Test Tube
							getitem 6386,1; //Bathhouse Research Sample
							donpcevent "???#mora1::OnDisable";
							close;
						}
						else if (.@sample_ran > 1) {
							mes "Metes la mano y parece que algo te golpea impidiendote poder recoger la muestra";
							percentheal -5,0;
							donpcevent "???#mora1::OnDisable";
							close;
						}
					} else {
						mes "No tienes donde guardar tus muestras";
						close;
					}
				case 2:
					close;
			}
		} else {
			mes "Ya tienes suficientes muestras ahora vuelve con el investigador";
			close;
		}
	}
	if (mora_quest == 9) {
		if (countitem(6387) < 10) {
			mes "El lago está recubierto por un aura mística y parece que puedes intentar cojer un diente. ¿Qué quieres hacer?";
			next;
			switch(select("Obtener Diente","Dejarlo Ir"))
			{
				case 1:
					set .@sample_ran,rand(1,4);
					if (.@sample_ran == 1) {
						mes "Pudiste recoger uno de los dientes que estabas buscando";
						getitem 6387,1; //Teeth_Sample
						donpcevent "???#mora1::OnDisable";
						close;
					}
					else if (.@sample_ran > 1) {
						mes "Metes la mano y parece que algo te golpea impidiendote poder recoger el diente";
						percentheal -5,0;
						donpcevent "???#mora1::OnDisable";
						close;
					}
				case 2:
					close;
			}
		} else {
			mes "Ya tienes suficientes dientes ahora vuelve con el investigador";
			close;
		}
	}
	if (mora_quest == 10) {
		if (countitem(6388) < 10) {
			mes "El lago está recubierto por un aura mística y parece que puedes intentar cojer una escama. ¿Qué quieres hacer?";
			next;
			switch(select("Obtener Escama","Dejarlo Ir"))
			{
				case 1:
					set .@sample_ran,rand(1,4);
					if (.@sample_ran == 1) {
						mes "Pudiste recoger uno de las escamas que estabas buscando";
						getitem 6388,1; //Scale_Samples
						donpcevent "???#mora1::OnDisable";
						close;
					}
					else if (.@sample_ran > 1) {
						mes "Metes la mano y parece que algo te golpea impidiendote poder recoger la escama";
						percentheal -5,0;
						donpcevent "???#mora1::OnDisable";
						close;
					}
				case 2:
					close;
			}
		} else {
			mes "Ya tienes suficientes dientes ahora vuelve con el investigador";
			close;
		}
	}	
	mes "???";
	next;
	switch(select("???"))
	{
		case 1:
			mes "???";
			close;
	}
OnHides:
	specialeffect EF_BASH;
	end;
OnDisable:
	hideonnpc "???#mora1";
	initnpctimer;
	end;
OnTimer60000:
	hideoffnpc "???#mora1";
	stopnpctimer;
	end;
}
mora,107,82,0	script	???#mora2	844,{
	if (mora_quest == 7) {
		if (countitem(6386) < 10) {
			mes "El lago está recubierto por un aura mística y parece que puedes obtener una muestra. ¿Qué quieres hacer?";
			next;
			switch(select("Obtener Muestra","Dejarlo Ir"))
			{
				case 1:
					if (countitem(1092) > 0) {
						set .@sample_ran,rand(1,4);
						if (.@sample_ran == 1) {
							mes "Pudiste recoger la muestra que estabas buscando";
							delitem 1092,1; //Empy Test Tube
							getitem 6386,1; //Bathhouse Research Sample
							donpcevent "???#mora2::OnDisable";
							close;
						}
						else if (.@sample_ran > 1) {
							mes "Metes la mano y parece que algo te golpea impidiendote poder recoger la muestra";
							percentheal -5,0;
							donpcevent "???#mora2::OnDisable";
							close;
						}
					} else {
						mes "No tienes donde guardar tus muestras";
						close;
					}
				case 2:
					close;
			}
		} else {
			mes "Ya tienes suficientes muestras ahora vuelve con el investigador";
			close;
		}
	}
	if (mora_quest == 9) {
		if (countitem(6387) < 10) {
			mes "El lago está recubierto por un aura mística y parece que puedes intentar cojer un diente. ¿Qué quieres hacer?";
			next;
			switch(select("Obtener Diente","Dejarlo Ir"))
			{
				case 1:
					set .@sample_ran,rand(1,4);
					if (.@sample_ran == 1) {
						mes "Pudiste recoger uno de los dientes que estabas buscando";
						getitem 6387,1; //Teeth_Sample
						donpcevent "???#mora2::OnDisable";
						close;
					}
					else if (.@sample_ran > 1) {
						mes "Metes la mano y parece que algo te golpea impidiendote poder recoger el diente";
						percentheal -5,0;
						donpcevent "???#mora2::OnDisable";
						close;
					}
				case 2:
					close;
			}
		} else {
			mes "Ya tienes suficientes dientes ahora vuelve con el investigador";
			close;
		}
	}
	if (mora_quest == 10) {
		if (countitem(6388) < 10) {
			mes "El lago está recubierto por un aura mística y parece que puedes intentar cojer una escama. ¿Qué quieres hacer?";
			next;
			switch(select("Obtener Escama","Dejarlo Ir"))
			{
				case 1:
					set .@sample_ran,rand(1,4);
					if (.@sample_ran == 1) {
						mes "Pudiste recoger uno de las escamas que estabas buscando";
						getitem 6388,1; //Scale_Samples
						donpcevent "???#mora2::OnDisable";
						close;
					}
					else if (.@sample_ran > 1) {
						mes "Metes la mano y parece que algo te golpea impidiendote poder recoger la escama";
						percentheal -5,0;
						donpcevent "???#mora2::OnDisable";
						close;
					}
				case 2:
					close;
			}
		} else {
			mes "Ya tienes suficientes dientes ahora vuelve con el investigador";
			close;
		}
	}
	mes "???";
	next;
	switch(select("???"))
	{
		case 1:
			mes "???";
			close;
	}
OnHides:
	specialeffect EF_BASH;
	end;
OnDisable:
	hideonnpc "???#mora2";
	initnpctimer;
	end;
OnTimer60000:
	hideoffnpc "???#mora2";
	stopnpctimer;
	end;
}
mora,113,84,0	script	???#mora3	844,{
	if (mora_quest == 7) {
		if (countitem(6386) < 10) {
			mes "El lago está recubierto por un aura mística y parece que puedes obtener una muestra. ¿Qué quieres hacer?";
			next;
			switch(select("Obtener Muestra","Dejarlo Ir"))
			{
				case 1:
					if (countitem(1092) > 0) {
						set .@sample_ran,rand(1,4);
						if (.@sample_ran == 1) {
							mes "Pudiste recoger la muestra que estabas buscando";
							delitem 1092,1; //Empy Test Tube
							getitem 6386,1; //Bathhouse Research Sample
							donpcevent "???#mora3::OnDisable";
							close;
						}
						else if (.@sample_ran > 1) {
							mes "Metes la mano y parece que algo te golpea impidiendote poder recoger la muestra";
							percentheal -5,0;
							donpcevent "???#mora3::OnDisable";
							close;
						}
					} else {
						mes "No tienes donde guardar tus muestras";
						close;
					}
				case 2:
					close;
			}
		} else {
			mes "Ya tienes suficientes muestras ahora vuelve con el investigador";
			close;
		}
	}
	if (mora_quest == 9) {
		if (countitem(6387) < 10) {
			mes "El lago está recubierto por un aura mística y parece que puedes intentar cojer un diente. ¿Qué quieres hacer?";
			next;
			switch(select("Obtener Diente","Dejarlo Ir"))
			{
				case 1:
					set .@sample_ran,rand(1,4);
					if (.@sample_ran == 1) {
						mes "Pudiste recoger uno de los dientes que estabas buscando";
						getitem 6387,1; //Teeth_Sample
						donpcevent "???#mora3::OnDisable";
						close;
					}
					else if (.@sample_ran > 1) {
						mes "Metes la mano y parece que algo te golpea impidiendote poder recoger el diente";
						percentheal -5,0;
						donpcevent "???#mora3::OnDisable";
						close;
					}
				case 2:
					close;
			}
		} else {
			mes "Ya tienes suficientes dientes ahora vuelve con el investigador";
			close;
		}
	}
	if (mora_quest == 10) {
		if (countitem(6388) < 10) {
			mes "El lago está recubierto por un aura mística y parece que puedes intentar cojer una escama. ¿Qué quieres hacer?";
			next;
			switch(select("Obtener Escama","Dejarlo Ir"))
			{
				case 1:
					set .@sample_ran,rand(1,4);
					if (.@sample_ran == 1) {
						mes "Pudiste recoger uno de las escamas que estabas buscando";
						getitem 6388,1; //Scale_Samples
						donpcevent "???#mora3::OnDisable";
						close;
					}
					else if (.@sample_ran > 1) {
						mes "Metes la mano y parece que algo te golpea impidiendote poder recoger la escama";
						percentheal -5,0;
						donpcevent "???#mora3::OnDisable";
						close;
					}
				case 2:
					close;
			}
		} else {
			mes "Ya tienes suficientes dientes ahora vuelve con el investigador";
			close;
		}
	}	
	mes "???";
	next;
	switch(select("???"))
	{
		case 1:
			mes "???";
			close;
	}
OnHides:
	specialeffect EF_BASH;
	end;
OnDisable:
	hideonnpc "???#mora3";
	initnpctimer;
	end;
OnTimer60000:
	hideoffnpc "???#mora3";
	stopnpctimer;
	end;
}
mora,117,86,0	script	???#mora4	844,{
	if (mora_quest == 7) {
		if (countitem(6386) < 10) {
			mes "El lago está recubierto por un aura mística y parece que puedes obtener una muestra. ¿Qué quieres hacer?";
			next;
			switch(select("Obtener Muestra","Dejarlo Ir"))
			{
				case 1:
					if (countitem(1092) > 0) {
						set .@sample_ran,rand(1,4);
						if (.@sample_ran == 1) {
							mes "Pudiste recoger la muestra que estabas buscando";
							delitem 1092,1; //Empy Test Tube
							getitem 6386,1; //Bathhouse Research Sample
							donpcevent "???#mora4::OnDisable";
							close;
						}
						else if (.@sample_ran > 1) {
							mes "Metes la mano y parece que algo te golpea impidiendote poder recoger la muestra";
							percentheal -5,0;
							donpcevent "???#mora4::OnDisable";
							close;
						}
					} else {
						mes "No tienes donde guardar tus muestras";
						close;
					}
				case 2:
					close;
			}
		} else {
			mes "Ya tienes suficientes muestras ahora vuelve con el investigador";
			close;
		}
	}
	if (mora_quest == 9) {
		if (countitem(6387) < 10) {
			mes "El lago está recubierto por un aura mística y parece que puedes intentar cojer un diente. ¿Qué quieres hacer?";
			next;
			switch(select("Obtener Diente","Dejarlo Ir"))
			{
				case 1:
					set .@sample_ran,rand(1,4);
					if (.@sample_ran == 1) {
						mes "Pudiste recoger uno de los dientes que estabas buscando";
						getitem 6387,1; //Teeth_Sample
						donpcevent "???#mora4::OnDisable";
						close;
					}
					else if (.@sample_ran > 1) {
						mes "Metes la mano y parece que algo te golpea impidiendote poder recoger el diente";
						percentheal -5,0;
						donpcevent "???#mora4::OnDisable";
						close;
					}
				case 2:
					close;
			}
		} else {
			mes "Ya tienes suficientes dientes ahora vuelve con el investigador";
			close;
		}
	}
	if (mora_quest == 10) {
		if (countitem(6388) < 10) {
			mes "El lago está recubierto por un aura mística y parece que puedes intentar cojer una escama. ¿Qué quieres hacer?";
			next;
			switch(select("Obtener Escama","Dejarlo Ir"))
			{
				case 1:
					set .@sample_ran,rand(1,4);
					if (.@sample_ran == 1) {
						mes "Pudiste recoger uno de las escamas que estabas buscando";
						getitem 6388,1; //Scale_Samples
						donpcevent "???#mora4::OnDisable";
						close;
					}
					else if (.@sample_ran > 1) {
						mes "Metes la mano y parece que algo te golpea impidiendote poder recoger la escama";
						percentheal -5,0;
						donpcevent "???#mora4::OnDisable";
						close;
					}
				case 2:
					close;
			}
		} else {
			mes "Ya tienes suficientes dientes ahora vuelve con el investigador";
			close;
		}
	}	
	mes "???";
	next;
	switch(select("???"))
	{
		case 1:
			mes "???";
			close;
	}
OnHides:
	specialeffect EF_BASH;
	end;
OnDisable:
	hideonnpc "???#mora4";
	initnpctimer;
	end;
OnTimer60000:
	hideoffnpc "???#mora4";
	stopnpctimer;
	end;
}
mora,116,81,0	script	???#mora5	844,{
	if (mora_quest == 7) {
		if (countitem(6386) < 10) {
			mes "El lago está recubierto por un aura mística y parece que puedes obtener una muestra. ¿Qué quieres hacer?";
			next;
			switch(select("Obtener Muestra","Dejarlo Ir"))
			{
				case 1:
					if (countitem(1092) > 0) {
						set .@sample_ran,rand(1,4);
						if (.@sample_ran == 1) {
							mes "Pudiste recoger la muestra que estabas buscando";
							delitem 1092,1; //Empy Test Tube
							getitem 6386,1; //Bathhouse Research Sample
							donpcevent "???#mora5::OnDisable";
							close;
						}
						else if (.@sample_ran > 1) {
							mes "Metes la mano y parece que algo te golpea impidiendote poder recoger la muestra";
							percentheal -5,0;
							donpcevent "???#mora5::OnDisable";
							close;
						}
					} else {
						mes "No tienes donde guardar tus muestras";
						close;
					}
				case 2:
					close;
			}
		} else {
			mes "Ya tienes suficientes muestras ahora vuelve con el investigador";
			close;
		}
	}
	if (mora_quest == 9) {
		if (countitem(6387) < 10) {
			mes "El lago está recubierto por un aura mística y parece que puedes intentar cojer un diente. ¿Qué quieres hacer?";
			next;
			switch(select("Obtener Diente","Dejarlo Ir"))
			{
				case 1:
					set .@sample_ran,rand(1,4);
					if (.@sample_ran == 1) {
						mes "Pudiste recoger uno de los dientes que estabas buscando";
						getitem 6387,1; //Teeth_Sample
						donpcevent "???#mora5::OnDisable";
						close;
					}
					else if (.@sample_ran > 1) {
						mes "Metes la mano y parece que algo te golpea impidiendote poder recoger el diente";
						percentheal -5,0;
						donpcevent "???#mora5::OnDisable";
						close;
					}
				case 2:
					close;
			}
		} else {
			mes "Ya tienes suficientes dientes ahora vuelve con el investigador";
			close;
		}
	}
	if (mora_quest == 10) {
		if (countitem(6388) < 10) {
			mes "El lago está recubierto por un aura mística y parece que puedes intentar cojer una escama. ¿Qué quieres hacer?";
			next;
			switch(select("Obtener Escama","Dejarlo Ir"))
			{
				case 1:
					set .@sample_ran,rand(1,4);
					if (.@sample_ran == 1) {
						mes "Pudiste recoger uno de las escamas que estabas buscando";
						getitem 6388,1; //Scale_Samples
						donpcevent "???#mora5::OnDisable";
						close;
					}
					else if (.@sample_ran > 1) {
						mes "Metes la mano y parece que algo te golpea impidiendote poder recoger la escama";
						percentheal -5,0;
						donpcevent "???#mora5::OnDisable";
						close;
					}
				case 2:
					close;
			}
		} else {
			mes "Ya tienes suficientes dientes ahora vuelve con el investigador";
			close;
		}
	}
	mes "???";
	next;
	switch(select("???"))
	{
		case 1:
			mes "???";
			close;
	}
OnHides:
	specialeffect EF_BASH;
	end;
OnDisable:
	hideonnpc "???#mora5";
	initnpctimer;
	end;
OnTimer60000:
	hideoffnpc "???#mora5";
	stopnpctimer;
	end;
}

mora,111,84,0	script	#activacionorg	-1,3,3,{
OnTouch:
	if (mora_quest > 0) {
		set .@organ_time,checkquest(5029,PLAYTIME); //1 hora
		if (.@organ_time == 2) {
			set .@acti_ran,rand(1,4);
			if (.@acti_ran == 1) {
					disablenpc "Sombra Negra#disable";
					enablenpc "Sombra Negra#enable";
					mapannounce "mora","El baño misterioso está ahora disponible.",bc_map,"0xFFFF00";
					donpcevent "???#mora1::OnHides";
					donpcevent "???#mora2::OnHides";
					donpcevent "???#mora3::OnHides";
					donpcevent "???#mora4::OnHides";
					donpcevent "???#mora5::OnHides";
			}
			else if (.@acti_ran > 1) {
				}
			end;
		}
		else if (.@organ_time == -1) {
			set .@acti_ran,rand(1,4);
			if (.@acti_ran == 1) {
					disablenpc "Sombra Negra#disable";
					enablenpc "Sombra Negra#enable";
					mapannounce "mora","El baño misterioso está ahora disponible.",bc_map,"0xFFFF00";
					donpcevent "???#mora1::OnHides";
					donpcevent "???#mora2::OnHides";
					donpcevent "???#mora3::OnHides";
					donpcevent "???#mora4::OnHides";
					donpcevent "???#mora5::OnHides";
			}
			else if (.@acti_ran > 1) {
				}
			end;
		}
	}
}
mora,1,1,1	script	#comienzo	-1,{
OnInit:
	disablenpc "Sombra Negra#enable";
	end;
}

mora,113,80,0	script	Sombra Negra#disable	844,{
	mes "^FF0000 Lo que ha surjido^000000";
	mes "^FF0000 Ahora no puedes usar el baño misterioso^000000";
	close;
}
mora,113,80,0	script	Sombra Negra#enable	844,{
	if (mora_quest > 0) {
		set .@organ_time,checkquest(5029,PLAYTIME); //1 hora
		if (.@organ_time == 2) {
			mes "De repente te ves atacado por un extraño organismo";
			enablenpc "Sombra Negra#disable";
			disablenpc "Sombra Negra#enable";
			next;
			switch(Select("Deseas Luchar","Huir"))
			{
				case 1:
					specialeffect2 EF_BASH;
					erasequest 5029;
					setquest 5029;
					goto LUCHAR;
				case 2:
					close;
			}
		}
		else if (.@organ_time == -1) {
			mes "De repente te ves atacado por un extraño organismo";
			enablenpc "Sombra Negra#disable";
			disablenpc "Sombra Negra#enable";
			next;
			switch(Select("Deseas Luchar","Huir"))
			{
				case 1:
					specialeffect2 EF_BASH;
					goto LUCHAR;
				case 2:
					close;
			}
		}
		else if (.@organ_time == 1) {
			mes "^FF0000 Lo que ha surjido^000000";
			mes "^FF0000 Ahora no puedes usar el baño misterioso^000000";
			close;
		}
REPLY:
	mes "La criatura del mar no identificada recibe un ataque";
	mes "¿Qué podemos hacer?";
	next;
	switch(select("Atacar Con Armas","Atacar Con Habilidades","Atacar Mediante El Uso De Un Diente.","Correr De Miedo") )
	{
		case 1:
			goto ARMA;
		case 2:
			goto HABILIDAD;
		case 3:
			goto DIENTE;
		case 4:
			goto CORRER;
	}
LUCHAR:
	set $@hpmob,200;
	set $@hpplay,200;
	set $@bajarhp,0;
	set $@hpmobtotal,$@hpmob - $@bajarhp;
	set $@hpplaytotal,$@hpplay - $@bajarhp;
	mes "Vida Organismo: ^FF0000"+$@hpmobtotal+"^000000.";
	mes "Vida "+strcharinfo(0)+": ^FF0000"+$@hpplaytotal+"^000000.";
	next;
	mes "La criatura del mar no identificada recibe un ataque";
	mes "¿Qué podemos hacer?";
	next;
	switch(select("Atarcar Con Armas","Usar Habilidades De Ataque","Ataque Mediante El Uso De Un Diente.","Correr De Miedo") )
	{
		case 1:
			goto ARMA;
		case 2:
			goto HABILIDAD;
		case 3:
			goto DIENTE;
		case 4:
			goto CORRER;
	}
ARMA:
	set $@hpmob,$@hpmobtotal;
	set $@hpplay,$@hpplaytotal;
	mes "Con impetud intentas darle un golpe al organismo con todas tus fuerzas usando tu arma pero..";
	next;
	set .@hit_ran,rand(1,11);
	if (.@hit_ran == 1) {
		set $@bajarhp,10;
		set $@hpplaytotal,$@hpplay - $@bajarhp;
		mes "Al intentar darle un golpe tan fuerte quedaste desprotegido recibiendo daño del organismo";
		next;
		mes "Perdiste ^FF0000 10^000000 de HP";
	}
	else if (.@hit_ran == 2) {
		set $@bajarhp,10;
		set $@hpplaytotal,$@hpplay - $@bajarhp;
		mes "Al intentar darle un golpe tan fuerte quedaste desprotegido recibiendo daño del organismo";
		next;
		mes "Perdiste ^FF0000 20^000000 de HP";
	}
	else if (.@hit_ran == 3) {
		set $@bajarhp,20;
		set $@hpplaytotal,$@hpplay - $@bajarhp;
		mes "Al intentar darle un golpe tan fuerte quedaste desprotegido recibiendo daño del organismo";
		next;
		mes "Perdiste ^FF0000 20^000000 de HP";
	}
	else if (.@hit_ran == 4) {
		set $@bajarhp,20;
		set $@hpplaytotal,$@hpplay - $@bajarhp;
		mes "Al intentar darle un golpe tan fuerte quedaste desprotegido recibiendo daño del organismo";
		next;
		mes "Perdiste ^FF0000 20^000000 de HP";
	}
	else if (.@hit_ran == 5) {
		set $@bajarhp,20;
		set $@hpplaytotal,$@hpplay - $@bajarhp;
		mes "Al intentar darle un golpe tan fuerte quedaste desprotegido recibiendo daño del organismo pero te defendiste con AUTO-GUARD y disminuiste el daño";
		next;
		mes "Perdiste ^FF0000 20^000000 de HP";
		specialeffect2 EF_GUARD;
	}
	else if (.@hit_ran == 6) {
		set $@bajarhp,50;
		set $@hpplaytotal,$@hpplay - $@bajarhp;
		mes "Al intentar darle un golpe tan fuerte quedaste desprotegido recibiendo daño del organismo";
		next;
		mes "Perdiste ^FF0000 50^000000 de HP";
	}
	else if (.@hit_ran == 7) {
		set $@bajarhp,10;
		set $@hpmobtotal,$@hpmob - $@bajarhp;
		mes "Le golpeaste pero no pudiste darle acertadamente y solo sufrio pequeño daño";
		next;
		mes "El organismo perdió ^FF0000 10^000000 de HP";
	}
	else if (.@hit_ran == 8) {
		set $@bajarhp,20;
		set $@hpmobtotal,$@hpmob - $@bajarhp;
		mes "Le golpeaste pero no pudiste darle acertadamente y solo sufrio pequeño daño";
		next;
		mes "El organismo perdió ^FF0000 20^000000 de HP";
	}
	else if (.@hit_ran == 9) {
		set $@bajarhp,50;
		set $@hpmobtotal,$@hpmob - $@bajarhp;
		mes "Le golpeaste acertadamente y sufrio gran daño";
		next;
		mes "El organismo perdió ^FF0000 50^000000 de HP";
	}
	else if (.@hit_ran == 10) {
		set $@bajarhp,20;
		set $@hpmobtotal,$@hpmob - $@bajarhp;
		mes "Le golpeaste acertadamente y sufrio gran daño pero se defendio con AUTO-GUARD y disminuyo sus daños";
		next;
		mes "El organismo perdió ^FF0000 20^000000 de HP";
		specialeffect EF_GUARD;
	}
	else if (.@hit_ran == 11) {
		mes "No pudiste acertar al organismo, pero esquivaste bien su golpe";
		next;
		mes "Nadie recibio daño alguno..";
		
	}
	next;
	goto CHECK;

HABILIDAD:
	set $@hpmob,$@hpmobtotal;
	set $@hpplay,$@hpplaytotal;
	mes "Te concentrás para golpearle con una de tus mejores habilidades, pero....";
	next;
	set .@hit_ran,rand(1,9);
	if (.@hit_ran == 1) {
		set $@bajarhp,10;
		set $@hpplaytotal,$@hpplay - $@bajarhp;
		mes "Al intentar golpearle con una habilidad te quedas paralizado y el organismo te golpea";
		next;
		mes "Perdiste ^FF0000 10^000000 de HP";
	}
	else if (.@hit_ran == 2) {
		set $@bajarhp,20;
		set $@hpplaytotal,$@hpplay - $@bajarhp;
		mes "Al intentar golpearle con una habilidad te quedas paralizado y el organismo te golpea";
		next;
		mes "Perdiste ^FF0000 20^000000 de HP";
	}
	else if (.@hit_ran == 3) {
		set $@bajarhp,20;
		set $@hpplaytotal,$@hpplay - $@bajarhp;
		mes "Al intentar golpearle con una habilidad te quedas paralizado y el organismo te golpea pero el AUTO-GUARD te reduce los daños.";
		next;
		mes "Perdiste ^FF0000 20^000000 de HP";
		specialeffect2 EF_GUARD;
	}
	else if (.@hit_ran == 4) {
		set $@bajarhp,50;
		set $@hpplaytotal,$@hpplay - $@bajarhp;
		mes "Al intentar golpearle con una habilidad te quedas paralizado y el organismo te golpea con mucha fuerza";
		next;
		mes "Perdiste ^FF0000 50^000000 de HP";
	}
	else if (.@hit_ran == 5) {
		set $@bajarhp,10;
		set $@hpmobtotal,$@hpmob - $@bajarhp;
		mes "Le golpeaste pero no pudiste darle acertadamente y solo sufrio pequeño daño";
		next;
		mes "El organismo perdió ^FF0000 10^000000 de HP";
	}
	else if (.@hit_ran == 6) {
		set $@bajarhp,20;
		set $@hpmobtotal,$@hpmob - $@bajarhp;
		mes "Le golpeaste pero no pudiste darle acertadamente y solo sufrio pequeño daño";
		next;
		mes "El organismo perdió ^FF0000 20^000000 de HP";
	}
	else if (.@hit_ran == 7) {
		set $@bajarhp,50;
		set $@hpmobtotal,$@hpmob - $@bajarhp;
		mes "Le golpeaste acertadamente y sufrio gran daño";
		next;
		mes "El organismo perdió ^FF0000 50^000000 de HP";
	}
	else if (.@hit_ran == 8) {
		set $@bajarhp,20;
		set $@hpmobtotal,$@hpmob - $@bajarhp;
		mes "Le golpeaste acertadamente y sufrio gran daño pero se defendio con AUTO-GUARD y disminuyo sus daños";
		next;
		mes "El organismo perdió ^FF0000 20^000000 de HP";
		specialeffect EF_GUARD;
	}
	else if (.@hit_ran == 9) {
		mes "No pudiste acertar al organismo, pero esquivaste bien su golpe";
		next;
		mes "Nadie recibio daño alguno..";
		
	}
	next;
	goto CHECK;

DIENTE:
	set $@hpmob,$@hpmobtotal;
	set $@hpplay,$@hpplaytotal;
	mes "Sin dudarlo atacas a uno de sus tentaculos con tus propios dientes pero...";
	next;
	set .@hit_ran,rand(1,9);
	if (.@hit_ran == 1) {
		set $@bajarhp,10;
		set $@hpplaytotal,$@hpplay - $@bajarhp;
		mes "Al intentar morderle con tus dientes el organismo te golpea";
		next;
		mes "Perdiste ^FF0000 10^000000 de HP";
	}
	else if (.@hit_ran == 2) {
		set $@bajarhp,20;
		set $@hpplaytotal,$@hpplay - $@bajarhp;
		mes "Al intentar morderle con tus dientes el organismo te golpea";
		next;
		mes "Perdiste ^FF0000 20^000000 de HP";
	}
	else if (.@hit_ran == 3) {
		set $@bajarhp,20;
		set $@hpplaytotal,$@hpplay - $@bajarhp;
		mes "Al intentar morderle con tus dientes el organismo te golpea pero el AUTO-GUARD te reduce los daños.";
		next;
		mes "Perdiste2 ^FF0000 20^000000 de HP";
		specialeffect EF_GUARD;
	}
	else if (.@hit_ran == 4) {
		set $@bajarhp,50;
		set $@hpplaytotal,$@hpplay - $@bajarhp;
		mes "Al intentar morderle con tus dientes el organismo te golpea con mucha fuerza";
		next;
		mes "Perdiste ^FF0000 50^000000 de HP";
	}
	else if (.@hit_ran == 5) {
		set $@bajarhp,10;
		set $@hpmobtotal,$@hpmob - $@bajarhp;
		mes "Le muerdes uno de sus tentaculos haciendole poco daño";
		next;
		mes "El organismo perdió ^FF0000 10^000000 de HP";
	}
	else if (.@hit_ran == 6) {
		set $@bajarhp,20;
		set $@hpmobtotal,$@hpmob - $@bajarhp;
		mes "Le muerdes uno de sus tentaculos hadiendole algo de daño";
		next;
		mes "El organismo perdió ^FF0000 20^000000 de HP";
	}
	else if (.@hit_ran == 7) {
		set $@bajarhp,50;
		set $@hpmobtotal,$@hpmob - $@bajarhp;
		mes "Le muerdes uno de sus tentaculos con tanta fuerza que le haces mucho daño";
		next;
		mes "El organismo perdió ^FF0000 50^000000 de HP";
	}
	else if (.@hit_ran > 7 ) {
		mes "No pudiste acertar al organismo, pero esquivaste bien su golpe";
		next;
		mes "Nadie recibio daño alguno..";
		
	}
	next;
	goto CHECK;

CORRER:
	set $@hpmob,$@hpmobtotal;
	set $@hpplay,$@hpplaytotal;
	mes "Intentas huir de miedo pero el organismo te lanza uno de sus tentaculos y...";
	next;
	set .@hit_ran,rand(1,9);
	if (.@hit_ran == 1) {
		set $@bajarhp,10;
		set $@hpplaytotal,$@hpplay - $@bajarhp;
		mes "El organismo te golpea impidiendote seguir corriendo.";
		next;
		mes "Perdiste ^FF0000 10^000000 de HP";
	}
	else if (.@hit_ran == 2) {
		set $@bajarhp,20;
		set $@hpplaytotal,$@hpplay - $@bajarhp;
		mes "El organismo te golpea impidiendote seguir corriendo.";
		next;
		mes "Perdiste ^FF0000 20^000000 de HP";
	}
	else if (.@hit_ran == 3) {
		set $@bajarhp,20;
		set $@hpplaytotal,$@hpplay - $@bajarhp;
		mes "El organismo te golpea impidiendote seguir corriendo, pero el AUTO-GUARD te reduce los daños.";
		next;
		mes "Perdiste ^FF0000 20^000000 de HP";
		specialeffect2 EF_GUARD;
	}
	else if (.@hit_ran == 4) {
		set $@bajarhp,50;
		set $@hpplaytotal,$@hpplay - $@bajarhp;
		mes "El organismo te golpea fuertemente impidiendote seguir corriendo.";
		next;
		mes "Perdiste ^FF0000 50^000000 de HP";
	}
	else if (.@hit_ran == 5) {
		set $@bajarhp,10;
		set $@hpmobtotal,$@hpmob - $@bajarhp;
		mes "El organismo te intenta golpear falla y aprovechas para asestarle un golpe.";
		next;
		mes "El organismo perdió ^FF0000 10^000000 de HP";
	}
	else if (.@hit_ran == 6) {
		set $@bajarhp,20;
		set $@hpmobtotal,$@hpmob - $@bajarhp;
		mes "El organismo te intenta golpear falla y aprovechas para asestarle un golpe.";
		next;
		mes "El organismo perdió ^FF0000 20^000000 de HP";
	}
	else if (.@hit_ran > 6 ) {
		mes "El organismo fallo cuando intento bloquearte el paso y sales huyendo";
		close;	
	}
	next;
	goto CHECK;

CHECK:
	if ($@hpmobtotal < 1) goto PLAYERWIN;
	if ($@hpplaytotal < 1) goto MOBWIN;
	mes "Vida Mob: ^FF0000"+$@hpmobtotal+"^000000.";
	mes "Vida "+strcharinfo(0)+": ^FF0000"+$@hpplaytotal+"^000000.";
	next;
	goto REPLY;
	
PLAYERWIN:
	if (mora_quest == 1) {
		mes "Has conseguido derrotar al organismo desconocido del mar";
		next;
		mes "Ahora buscas tranquilamente en el lago y encuentras el objeto que el investigador habia perdido";
		set mora_quest,2;
		setquest 5029;
		getitem 6385,1; //Research Tools Bag
		close;
	}
	else if (mora_quest == 2) {
		mes "Has conseguido derrotar al organismo desconocido del mar";
		next;
		mes "No puedes hacer nada más por el momento.";
		close;
	}
	else if (mora_quest == 3) {
		mes "Has conseguido derrotar al organismo desconocido del mar";
		next;
		mes "Venciste otra vez al organismo; te faltan dos veces más.";
		getitem 6380,1; //mora coin
		setquest 5029;
		set mora_quest,4;
		close;
	}
	else if (mora_quest == 4) {
		mes "Has conseguido derrotar al organismo desconocido del mar";
		next;
		mes "Venciste otra vez al organismo; te falta una vez más.";
		getitem 6380,1; //mora coin
		setquest 5029;
		set mora_quest,5;
		close;
	}
	else if (mora_quest == 5) {
		mes "Has conseguido derrotar al organismo desconocido del mar";
		next;
		mes "Ahora vuelve con el investigador.";
		completequest 5017;
		setquest 5018;
		setquest 5029;
		getitem 6380,1; //mora coin
		set mora_quest,6;
		close;
	}
	else if (mora_quest > 6) {
		mes "Has conseguido derrotar al organismo desconocido del mar";
		next;
		mes "Pero ya no puedes hacer nada al respecto.";
		setquest 5029;
		close;
	}
	
MOBWIN:
	mes "Caes de rodillas al suelo exausto por la batalla perdida contra el organismo...";
	percentheal -20,0;
	setquest 5029;
	close;
	}
}

Sign In

Problemas de Tiempo con scrip Ziu Mora village research bifrost

Recommended Posts

deathdaniels

Link to comment

Share on other sites

Euphy

Link to comment

Share on other sites

deathdaniels

Link to comment

Share on other sites

Ziu

Link to comment

Share on other sites

deathdaniels

Link to comment

Share on other sites

Join the conversation

Recently Browsing 0 members

Docs

Get Started

Github

Community

My Account