MODULE losinmortales
MAXROOM 1000
MAXITEM 1000
MAXMOB 1000
MODULENAME Los Inmortales
VERSION 1.0 (Rápida)
PARSERVERSION 0.4.6
AUTHOR Carlos Gómez (solrac888@yahoo.com - http://www.irreality.org)
TYPE Aventura conversacional pura
DATE 02.11.13
BEGIN_EVA_CODE 
	.CODE
		intro:  loadi $a0, %red%Los Inmortales% % siempre han mantenido sus pruebas de iniciación en el más estricto secreto. Jamás has logrado sonsacarle a ninguno de ellos un ápice de información sobre ellas, ni has conseguido que los que no han logrado superarlas o han tenido miedo a acometerlas, que son muchos, se atreviesen a romper el silencio que la banda impone. Apenas has podido dormir esta noche con la incertidumbre... Los Inmortales son, sin duda, los más duros del pueblo, y te han dado la posibilidad de unirte a ellos; pero ¿contarán contigo de verdad, o sólo querrán humillarte con una prueba que no puedas superar, riéndose de tu cobardía y tu debilidad?
			loadi $Obj, 20000000
			function escribir
			function newline
			function waitkeypress
			loadi $a0, Sea como sea, no puedes permitirte perder una oportunidad semejante, y mayor humillación aún sería rechazar la prueba, lo que sin duda dejaría en evidencia tu falta de valor por muchas excusas que pusieras, puesto que ¿quién no iba a desear unirse a los Inmortales? En cuanto te comunicaron la noticia, hace tres días, enseguida aceptaste; y durante estos días, pensando en la posibilidad de que la prueba fuese una lucha a muerte o una carrera por la vida, has dejado tus libros y tus elucubraciones y has pasado las tardes corriendo y haciendo pesas... sin que te viese tu madre, por supuesto, no fuera a servir de precedente.
			function escribir
			function newline
			function waitkeypress
			loadi $a0, Durante estas jornadas de infierno psicológico, te has imaginado multitud de posibles pruebas. En tus hipótesis no han faltado el aceite hirviendo, las bombas de tiempo, el ácido sulfúrico, los combates contra grandes maestros de kung-fu o los desnudos públicos... Sin embargo, viendo la dirección hacia la cual los Inmortales te conducen ahora que ha llegado el gran momento, empiezas a sospechar que tal vez la prueba sea algo acaso peor aún, algo que pondría a prueba las agallas del más valeroso guerrero bárbaro. En efecto, en seguida se disipan las dudas, y queda claro que el lugar al que los Inmortales te conducen es la Casa Encantada, en la que nadie ha entrado desde hace años.
			function escribir
			function newline
			function waitkeypress
			loadi $a0, ¡La Casa Encantada! Un lugar del que jóvenes y ancianos cuentan historias que estremecen a los más osados, y al que la gente no se atreve siquiera a acercarse. Un hombre tuerto que había cometido crímenes horribles se refugió allí hace varias décadas, y la esposa de una de sus víctimas lo encontró y vengó la muerte de su marido, asesinando al criminal de un modo tan espeluznante que la gente palidece al recordarlo. Desde entonces, la casa no tiene dueño; pero no está precisamente vacía... Una legión de fantasmas y criaturas de ultratumba la habitan.
			function escribir
			function newline
			function waitkeypress
			loadi $a0, En cuanto llegáis a la casa, te das cuenta de que el sol ya está próximo a ponerse. Son las ocho todavía; pero estamos en invierno y los días se hacen cortos. Por suerte, todavía hay algo de luz... quedarse en el escalofriante edificio por la noche sería suicida, incluso para un Inmortal. El terror te invade cuando ves al jefe, Jorge, "el Tigre", abrir la verja del jardín, que chirría levemente.
			function escribir
			function newline
			function waitkeypress
			loadi $a0, Jorge le pide un rotulador a su subalterno, Luis "el Leopardo", quien le entrega un permanente. A continuación, se pone a buscar por el suelo. ¿Qué te tendrá preparado? Ves cómo coge una piedra, un canto rodado de unos diez centímetros de largo, tal vez, y la marca con el permanente. Una "I" inconfundible.
			function escribir
			function newline
			function waitkeypress
			loadi $a0, "Bien, he aquí tu prueba...", dice Jorge, y despreocupadamente lanza el pedrusco hacia la casa, con tal puntería que rompe uno de los pocos cristales supervivientes de una ventana del segundo piso, cayendo en el interior. "Tráenosla."
			function escribir
			function newline
			function waitkeypress
			loadi $a0, Un escalofrío recorre tu espalda. "Oh, venga ya, no te pases", dice Luis. "Lánzala al primer piso, por lo menos..." 
			function escribir
			function newline
			function waitkeypress
			loadi $a0, Te solidarizas con su causa; pero Jorge es el jefe. No se echará atrás. "¿Qué pasa", dice, "¿tú no lo habrías hecho? Pensaba que tenía una banda de valientes, y va a resultar que tengo una banda de cobardes."
			function escribir
			function newline
			function waitkeypress
			loadi $a0, Tras esa demostración de fuerza, nadie se atreve a objetar nada más. Si quieres hacerte miembro de la prestigiosa banda de los Inmortales, tendrás que recuperar la piedra que está en el segundo piso de una casa infestada de fantasmas y zombis. Ni en tus peores sueños hubiera podido ser peor...
			function escribir
			function newline
			function waitkeypress
			function newline
			function newline
			end
END_EVA_CODE
BEGIN_BSH_CODE
/**
La intro del juego.
*/
void intro()
{
	jugador = obj.getPlayer();

	jugador.escribir("%red%\nLOS INMORTALES% %");

	jugador.escribirAccion("\nPulsa una tecla para empezar...\n\n");

	jugador.waitKeyPress();

	obj.escribir("%red%Los Inmortales% % siempre han mantenido sus pruebas de iniciación en el más estricto secreto. Jamás has logrado sonsacarle a ninguno de ellos un ápice de información sobre ellas, ni has conseguido que los que no han logrado superarlas o han tenido miedo a acometerlas, que son muchos, se atreviesen a romper el silencio que la banda impone. Apenas has podido dormir esta noche con la incertidumbre... Los Inmortales son, sin duda, los más duros del pueblo, y te han dado la posibilidad de unirte a ellos; pero ¿contarán contigo de verdad, o sólo querrán humillarte con una prueba que no puedas superar, riéndose de tu cobardía y tu debilidad?\n");
	
	jugador.waitKeyPress();
	
	obj.escribir("Sea como sea, no puedes permitirte perder una oportunidad semejante, y mayor humillación aún sería rechazar la prueba, lo que sin duda dejaría en evidencia tu falta de valor por muchas excusas que pusieras, puesto que ¿quién no iba a desear unirse a los Inmortales? En cuanto te comunicaron la noticia, hace tres días, enseguida aceptaste; y durante estos días, pensando en la posibilidad de que la prueba fuese una lucha a muerte o una carrera por la vida, has dejado tus libros y tus elucubraciones y has pasado las tardes corriendo y haciendo pesas... sin que te viese tu madre, por supuesto, no fuera a servir de precedente.\n");

	jugador.waitKeyPress();

	obj.escribir("Durante estas jornadas de infierno psicológico, te has imaginado multitud de posibles pruebas. En tus hipótesis no han faltado el aceite hirviendo, las bombas de tiempo, el ácido sulfúrico, los combates contra grandes maestros de kung-fu o los desnudos públicos... Sin embargo, viendo la dirección hacia la cual los Inmortales te conducen ahora que ha llegado el gran momento, empiezas a sospechar que tal vez la prueba sea algo acaso peor aún, algo que pondría a prueba las agallas del más valeroso guerrero bárbaro. En efecto, en seguida se disipan las dudas, y queda claro que el lugar al que los Inmortales te conducen es la Casa Encantada, en la que nadie ha entrado desde hace años.\n");

	jugador.waitKeyPress();

	obj.escribir("¡La Casa Encantada! Un lugar del que jóvenes y ancianos cuentan historias que estremecen a los más osados, y al que la gente no se atreve siquiera a acercarse. Un hombre tuerto que había cometido crímenes horribles se refugió allí hace varias décadas, y la esposa de una de sus víctimas lo encontró y vengó la muerte de su marido, asesinando al criminal de un modo tan espeluznante que la gente palidece al recordarlo. Desde entonces, la casa no tiene dueño; pero no está precisamente vacía... Una legión de fantasmas y criaturas de ultratumba la habitan.\n");

	jugador.waitKeyPress();

	obj.escribir("En cuanto llegáis a la casa, te das cuenta de que el sol ya está próximo a ponerse. Son las ocho todavía; pero estamos en invierno y los días se hacen cortos. Por suerte, todavía hay algo de luz... quedarse en el escalofriante edificio por la noche sería suicida, incluso para un Inmortal. El terror te invade cuando ves al jefe, Jorge, \"el Tigre\", abrir la verja del jardín, que chirría levemente.\n");

	jugador.waitKeyPress();

	obj.escribir("Jorge le pide un rotulador a su subalterno, Luis \"el Leopardo\", quien le entrega un permanente. A continuación, se pone a buscar por el suelo. ¿Qué te tendrá preparado? Ves cómo coge una piedra, un canto rodado de unos diez centímetros de largo, tal vez, y la marca con el permanente. Una \"I\" inconfundible.\n");

	jugador.waitKeyPress();

	obj.escribir("\"Bien, he aquí tu prueba...\", dice Jorge, y despreocupadamente lanza el pedrusco hacia la casa, con tal puntería que rompe uno de los pocos cristales supervivientes de una ventana del segundo piso, cayendo en el interior. \"Tráenosla.\"\n");

	jugador.waitKeyPress();

	obj.escribir("Un escalofrío recorre tu espalda. \"Oh, venga ya, no te pases\", dice Luis. \"Lánzala al primer piso, por lo menos...\"\n" );

	jugador.waitKeyPress();

	obj.escribir("Te solidarizas con su causa; pero Jorge es el jefe. No se echará atrás. \"¿Qué pasa\", dice, \"¿tú no lo habrías hecho? Pensaba que tenía una banda de valientes, y va a resultar que tengo una banda de cobardes.\"\n");

	jugador.waitKeyPress();

	obj.escribir("Tras esa demostración de fuerza, nadie se atreve a objetar nada más. Si quieres hacerte miembro de la prestigiosa banda de los Inmortales, tendrás que recuperar la piedra que está en el segundo piso de una casa infestada de fantasmas y zombis. Ni en tus peores sueños hubiera podido ser peor...");

	jugador.waitKeyPress();

	obj.escribir("\n\n");

	jugador.forceCommand("mirar");

	source("end.bsh");

}
invoke ( name , args )
{
	obj.escribir("Undefined method invoked at world: " + name + args);
}

END_BSH_CODE