Rappel 10Liner

(english below)

Un juego de ZX Spectrum para el concurso BASIC 10Liner 2022 de Homeputerium

https://gkanold.wixsite.com/homeputerium

Introducción

Escalando una enorme montaña te ves atrapado en una avalancha que te empuja hacia abajo. Escapa rapelando lo más rápido posible. Evita quedar atrapado en los salientes. Ten cuidado con las rocas que caen.

Un juego para ZX Spectrum 16/48K.

Descripción del juego

Empiezas a rapelar descendiendo automáticamente. Si te quedas atascado en un saliente perderás tiempo y te acercarás a la avalancha que nunca se detiene.

El juego termina cuando llegas a la parte superior de la pantalla, la avalancha.

Puedes evitar los salientes dando pequeños saltos pulsando cualquier tecla. Mantén pulsada la tecla elegida para un salto más largo.

Evita ser golpeado por las rocas sueltas durante la caída, o morirás.

¿Hasta dónde puedes descender? Cuanto más, mejor puntuación.

(english)

A ZX Spectrum game for the 2022 BASIC 10Liner contest from Homeputerium

https://gkanold.wixsite.com/homeputerium

Introduction

Climbing a huge mountain you are caught in an avalanche that pushes you back. Escape by rappelling as fast as possible. Avoid getting caught on the ledges. Watch out for falling rocks.

A game for ZX Spectrum 16K/48K.

Game description

You start rappeling by descending automatically. If you get stuck on a ledge you will lose time and get closer to the avalanche that never stops.

The game ends when you reach the top of the screen, the avalanche.

You can avoid the ledges by making small jumps by pressing any key. Hold down the chosen key for a longer jump.

Avoid being hit by loose rocks during the fall, or you will die.

How low can you get? The more, the better score.

Codigo fuente/Source code

1 POKE 23692,9: RESTORE : PRINT AT 21,31;" "; PAPER 4; INK 2;AT 21,0;c$( TO c): READ a,m: REM #Rappel# RUN 10 to start game 2 PRINT AT u,r;" " AND o;AT w,v;")": PRINT OVER 1;AT y,x;a$;AT s,r;b$ AND o*(s<16): REM BASIC 10Liner contest 3 IF (y=0)+(x=r)*((y=s)+(y=s+1))*o THEN GO TO 9: DATA INKEY{{ APP_CONTENT }}lt;>"",(m+1)*a*(m<6)*(m>=0),n+1 4 READ n,b: DATA ATTR (y,x-1)>34,x,y-1*(y>0),x+SGN m,ATTR (y+1,x)>34,y-1*(b=0) 5 IF m=6 OR (m=0)*b OR (m>0)*(a=0) THEN LET m=-1: DATA d=0,c-1+INT (RND*3),(s-1)*(s<18) 6 READ v,w,x,b,y,d,i,u,s,r,o: IF d=0 THEN IF (i>2)*(i<19) THEN LET c=i: DATA (s+1)*(s<18): REM 2022 by Avlixa 7 GO TO 1: DATA r*(s<17)+(x)*(s>17),(s=0)+o*(s<17)*(ATTR (s,r)>34): REM Press any key to jump 8 FOR i=1 TO 21: PRINT AT i,0; PAPER 4; INK 2;c$( TO 10): NEXT i: GO TO 1: DATA 10,13,x,y,0,0,o,o,o,o,0,0,10,0,"(\#008x","\{i3}y\#008$" 9 PRINT AT 15,0;"GAME OVER - SCORE ";n: PAUSE 1: GO TO 9+(INKEY$=""): DATA "\@\@\@\@\@\@\@\@",c$+c$+c$,"PRESS ANY KEY" 10 RESTORE 8: READ x,y,v,w,m,o,r,s,u,n,a,b,c,d,a$,b$,c$,c$,d$: PRINT d$: PAUSE 0: POKE 23693,41: BORDER 5: CLS : GO TO 8