Anillo III - Original — 182 of 199

Part 5 - La aventura

Chapter 1 - El inicio

NoLugar is a room.

[--------------------------------------------------

Regla activada al iniciar el juego

--------------------------------------------------]

[ Un poco de decoracion ]

To say hambre y sed:

if hambre_del_jugador is greater than 130:

say "H";

otherwise:

say "-";

if sed_del_jugador is greater than 160:

say "S";

otherwise:

say "-".

To decide which number is nneg of (num - a number):

if num is greater than 0:

decide on num;

otherwise:

decide on 0.

[ Localidades 'especiales' ]

To say nombre localidad:

if map region of location is nothing:

say location;

otherwise if location is Pantano1:

say "Manantial";

otherwise if location is Pantano26:

say "Huerta";

otherwise if location is Pantano23:

say "Hiedra y montículo";

otherwise if location is Pantano28:

say "Entrada a [j]cuevas[x] ";

otherwise if location is Lava:

say "Río de lava";

otherwise if location is Pantano12:

say "Arenas movedizas";

otherwise if location is Pantano17:

say "Viejas ruinas";

otherwise if location is PuertaCastillo:

say "Camino de la fortaleza";

otherwise:

say map region of location.

[No me gusta nada el status estandar, veamos si hago algo mejor]

[De la mano de Eliuk]

To close the statusline:

(- if (gg_statuswin)

{ glk_window_set_arrangement(glk_window_get_parent(gg_statuswin),winmethod_Fixed+winmethod_Above,0,0); } -)

To open the statusline:

(- if (gg_statuswin)

{ glk_window_set_arrangement(glk_window_get_parent(gg_statuswin),winmethod_Fixed+winmethod_Above,1,0); } -)

When play begins:

[enable veneer acceleration;]

close the statusline;

poner cuadro de inicio;

say "¿Quieres ver la introducción?";

say "Contesta sí o no>>";

if the player consents:

clear the screen;

poner cuadro de creditos;

wait for any key;

clear the screen;

say line break;

say line break;

poner cuadro de aviso;

wait for any key;

clear the screen;

say line break;

say line break;

contar inicio de la historia;

say line break;

say line break;

clear the screen;

now the player is in NoLugar;

now the player is nuhur;

create the midground channel;

set the foreground volume to 2;

set the background volume to 3;

set the midground volume to 4;

start musical introduction;

open the statusline;

now left hand status line is "[nombre localidad]";

now right hand status line is "[el portador]: [hambre y sed]";

now Efectos-Sonando is true;

play the sound of efectos in background with loop;

activar sonidos ambientales.

[FRASE: Cuadro de inicio con el nombre del relato y fecha]

To poner cuadro de inicio:

display the boxed quotation

"

De la saga de El Anillo

su tercera parte y conclusión

Un relato de Johan Paz.

Año 2009, sobre diseño de 1989,

para su 20 aniversario.

Actualizado en 2014,

para el 25 aniversario del CAAD.

Recompilado en la nueva versión

de Inform 7 en 2015.

";

show the current quotation.

To poner cuadro de aviso:

display the boxed quotation

"

Este relato interactivo cuenta con efectos sonoros

de ambientación y con música.

Para activar o desactivar la música

teclea simplemente 'MUSICA'.

Para activar o desactivar los efectos sonoros

teclea simplemente 'EFECTOS'.

";

show the current quotation.

To poner cuadro de creditos:

display the boxed quotation

"

Portada de: Urbatain.

Sonidos del pantano de: Xpktro.

Musica de: coax, the ice garden

Gracias a los múltiples colaboradores,

editores y testers que esta obra

ha tenido.

";

show the current quotation.

[COMANDO: Introducción que relata]

To contar inicio de la historia:

relatar fragmento en Table of Historia Inicial, limpiando pantalla.

[HISTORIA: El fragmento inicial]

Table of Historia Inicial