plebeya

¡BIENVENIDA A LA AVENTURA!
¿QUIERES INSTRUCCIONES?
N

1 LOC=1
NEWLOC=1
GOTO 74

Estás de pie al final de un camino, delante una pequeña edificación de ladrillo. Alrededor hay un bosque. Un río sale desde dentro hacia el precipicio.

74 LOC=NEWLOC
KK=1
CALL RSPEAK(KK)

LOOK

2 CALL LISTEN
WORD1="LOOK"

Estás de pie al final de un camino, delante una pequeña edificación de ladrillo. Alrededor hay un bosque. Un río sale desde dentro hacia el precipicio.

CALL VOCAB(WORD1,1,WD1)
VERB=57
GOTO 74

BUILDING

CALL LISTEN
WORD1="BUILDING"

Estás dentro, es un refugio para un gran pozo.
Aquí hay unas llaves en el suelo.
Hay una lámpara de latón brillante cerca.

CALL VOCAB(WORD1,1,WD1)
VERB=12
KK=KEY(LOC)
NEWLOC=3
GOTO 74

GET KEYS

CALL LISTEN
WORD1="GET"
WORD2="KEYS"

CALL VOCAB(WORD1,1,WD1)
CALL VOCAB(WORD2,1,WD2)
VERB=2001
OBJ=55
PLACE(OBJ)=-1
CALL RSPEAK(54)

TAKE LAMP

CALL LISTEN
WORD1="TAKE"
WORD2="LAMP"

CALL VOCAB(WORD1,1,WD1)
CALL VOCAB(WORD2,1,WD2)
VERB=2001
OBJ=2
PLACE(OBJ)=-1
CALL RSPEAK(54)

OUT

CALL LISTEN
WORD1="OUT"

Estás al final del camino otra vez.

CALL VOCAB(WORD1,1,WD1)
VERB=11
NEWLOC=1
GOTO 74

SOUTH

CALL LISTEN
WORD1="SOUTH"

Estás en un valle en el bosque, al borde del río, el cauce está lleno de piedras.

CALL VOCAB(WORD1,1,WD1)
VERB=46
KK=KEY(LOC)
NEWLOC=4
GOTO 74

DOWNSTREAM

CALL LISTEN
WORD1="DOWNSTREAM"

A tus pies, el agua del río se estrella y cuela en una grieta en la piedra. Abajo solo ves más piedras.

CALL VOCAB(WORD1,1,WD1)
VERB=5
NEWLOC=7
GOTO 74

DOWN

CALL LISTEN
WORD1="DOWN"

No cabes por un agujero de cinco centímetros.

CALL VOCAB(WORD1,1,WD1)
VERB=30
IF(LOC.EQ.7)GOTO 12
12 CALL RSPEAK(24)
GOTO 2

SOUTH

CALL LISTEN
WORD1="SOUTH"

Estás en una hondonada profunda, de unos seis metros. Entre las piedras hay una rejilla de acero incrustada. El cauce, ya seco, llegaba hasta aquí y se metía más adentro.
La rejilla está bloqueada.

CALL VOCAB(WORD1,1,WD1)
VERB=46
NEWLOC=8
GOTO 74

UNLOCK GRATE

CALL LISTEN
WORD1="UNLOCK"
WORD2="GRATE"

La rejilla está ahora desbloqueada.

CALL VOCAB(WORD1,1,WD1)
CALL VOCAB(WORD2,1,WD2)
VERB=2004
OBJ=3
IF(TOTING(55))GOTO 8010
8010 PROP(3)=1
CALL RSPEAK(37)

DOWN

CALL LISTEN
WORD1="DOWN"

Estás en una pequeña galería bajo una rejilla de acero de unos 3x3 metros. Un pasillo bajo y estrecho conduce hacia el oeste.

CALL VOCAB(WORD1,1,WD1)
VERB=30
NEWLOC=9
GOTO 74

WEST

CALL LISTEN
WORD1="WEST"

Estás en una sala inmensa de nueve metros de altura. Las paredes parecen ríos congelados de piedra caliza. De sus extremos, el desfiladero se interna hacia el este y otro conducto sale hacia el oeste.

CALL VOCAB(WORD1,1,WD1)
VERB=44
NEWLOC=13
GOTO 74

WEST

CALL LISTEN
WORD1="WEST"

A tus pies, un pozo del que sale una niebla muy blanca. El camino terminaría aquí, salvo por una oscura grieta que continúa más adelante.

CALL VOCAB(WORD1,1,WD1)
VERB=44
NEWLOC=14
GOTO 74

WEST

CALL LISTEN
WORD1="WEST"

Estás en el extremo de una enorme caverna que se extiende más allá de tu vista. Hay aperturas a ambos lados. Cerca, una amplia escalera de piedra desciende hacia las profundidades. La niebla, que aquí es más blanca y espesa, se mueve como si respirara. Un viento frío sube por la escalera. Detrás de ti, una erosión con forma de bóveda. En su cima, una grieta.

CALL VOCAB(WORD1,1,WD1)
VERB=44
NEWLOC=15
GOTO 74

DOWN

CALL LISTEN
WORD1="DOWN"

Estás en el Salón del Rey de la Montaña, con pasadizos que se dispersan en todas direcciones.

CALL VOCAB(WORD1,1,WD1)
VERB=30
NEWLOC=19
GOTO 74

NORTH

CALL LISTEN
WORD1="NORTH"

No hay forma de ir en esa dirección.

CALL VOCAB(WORD1,1,WD1)
VERB=45
KK=KEY(LOC)
CALL RSPEAK(9)
GOTO 2

WEST

CALL LISTEN
WORD1="WEST"

Estás en la sala del lado oeste, en el salón del Rey de la Montaña. Un camino continúa hacia arriba.

CALL VOCAB(WORD1,1,WD1)
VERB=44
NEWLOC=30
GOTO 74

CALL LISTEN
WORD1="UP"

Estás en un laberinto de pequeños pasadizos serpenteantes, todos iguales.

CALL VOCAB(WORD1,1,WD1)
VERB=29
NEWLOC=42
GOTO 74

NORTH

CALL LISTEN
WORD1="NORTH"

Estás en un laberinto de pequeños pasadizos serpenteantes, todos iguales.

CALL VOCAB(WORD1,1,WD1)
VERB=45
NEWLOC=43
GOTO 74

EAST

CALL LISTEN
WORD1="EAST"

Estás en un laberinto de pequeños pasadizos serpenteantes, todos iguales.

CALL VOCAB(WORD1,1,WD1)
VERB=43
NEWLOC=45
GOTO 74

SOUTH

CALL LISTEN
WORD1="SOUTH"

Punto muerto.

CALL VOCAB(WORD1,1,WD1)
VERB=46
NEWLOC=46
GOTO 74

NORTH

CALL LISTEN
WORD1="NORTH"

Ahora está muy oscuro. Si sigues adelante es probable que caigas en un pozo.

CALL VOCAB(WORD1,1,WD1)
VERB=44
NEWLOC=10
IF(PROP(2).NE.1)GOTO 2000
2000 CALL RSPEAK(16)
GOTO 2

TURN ON LAMP

CALL LISTEN
WORD1="TURN"
WORD2="LAMP"

La lámpara está encendida.

CALL VOCAB(WORD1,1,WD1)
CALL VOCAB(WORD2,1,WD2)
VERB=2007
OBJ=2
PROP(2)=1
CALL RSPEAK(39)
GOTO 2

LOOK

CALL LISTEN
WORD1="LOOK"

Avanzas a gatas por el suelo de adoquines. Al otro lado del túnel, una luz.

CALL VOCAB(WORD1,1,WD1)
VERB=57
GOTO 74

WEST

CALL LISTEN
WORD1="WEST"

Estás entre escombros, en una gruta llena de objetos arrastrados desde la superficie. Lodo, barro y restos bloquean el paso, aunque parece haber un desfiladero resbaladizo y oscuro que sube hacia el oeste.
Una nota en la pared dice: "palabra mágica XYZZY"

CALL VOCAB(WORD1,1,WD1)
VERB=44
NEWLOC=11
GOTO 74

XYZZY

CALL LISTEN
WORD1="XYZZY"

Estás dentro.
Hay una botella vacía.

CALL VOCAB(WORD1,1,WD1)
VERB=48
IF(VERB.EQ.48)GOTO 8000
8000 NEWLOC=3
GOTO 74

XYZZY

CALL LISTEN
WORD1="XYZZY"

Estás en la habitación de los escombros.

CALL VOCAB(WORD1,1,WD1)
VERB=48
NEWLOC=11
GOTO 74

WEST

CALL LISTEN
WORD1="WEST"

Estás en un desfiladero muy inclinado, puedes ir al este o al oeste.

CALL VOCAB(WORD1,1,WD1)
VERB=44
NEWLOC=12
GOTO 74

WEST

CALL LISTEN
WORD1="WEST"

CALL VOCAB(WORD1,1,WD1)
VERB=44
NEWLOC=13
GOTO 74

WEST

CALL LISTEN
WORD1="WEST"

Punto muerto.

CALL VOCAB(WORD1,1,WD1)
VERB=44
NEWLOC=47
GOTO 74

NORTH

CALL LISTEN
WORD1="NORTH"

Punto muerto.

CALL VOCAB(WORD1,1,WD1)
VERB=45
NEWLOC=48
GOTO 74

EAST

CALL LISTEN
WORD1="EAST"

Punto muerto.

CALL VOCAB(WORD1,1,WD1)
VERB=43
NEWLOC=46
GOTO 74

HELP

CALL LISTEN
WORD1="HELP"

No entiendo eso!

CALL VOCAB(WORD1,1,WD1)
VERB=3002
CALL RSPEAK(13)
GOTO 2