Rappel 10Liner

(английский ниже)

Использование ZX Spectrum для согласования BASIC 10Liner 2022 с Homeputerium

https://gkanold.wixsite.com/homeputerium

Введение

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

Мы используем ZX Spectrum 16/48K.

Описание игры

Empiezas происходит автоматически. 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 спусковое устройство? Cuanto más, mejor puntuacion.

(английский)

Игра ZX Spectrum для конкурса BASIC 10Liner 2022 от Homeputerium.

https://gkanold.wixsite.com/homeputerium

Введение

Поднимаясь на огромную гору, вы попадаете в лавину, которая отбрасывает вас назад. Спасайтесь, спускаясь как можно быстрее. Избегайте попадания на уступы. Остерегайтесь падающих камней.

Игра для ZX Spectrum 16K/48K.

Описание игры

Вы начинаете спускаться автоматически. Если вы застрянете на выступе, вы потеряете время и приблизитесь к лавине, которая никогда не остановится.

Игра заканчивается, когда вы достигаете верхней части экрана лавиной.

Вы можете избежать уступов, совершая небольшие прыжки, нажимая любую клавишу. Удерживайте выбранную клавишу для более длительного прыжка.

Избегайте ударов о камни во время падения, иначе вы умрете.

Как низко вы можете получить? Чем больше, тем лучше оценка.

Codigo fuente/Исходный код

1 POKE 23692,9: ВОССТАНОВЛЕНИЕ: ПЕЧАТЬ НА 21,31;" "; БУМАГА 4; ЧЕРНИЛА 2;AT 21,0;c$( TO c): ПРОЧИТАЙТЕ a,m: REM #Rappel# ВЫПОЛНИТЕ 10, чтобы начать игру 2 НАПЕЧАТАЙТЕ AT u,r;" " AND o;AT w,v;")": НАПЕЧАТАЙТЕ НАД 1;AT y,x;a$;AT s,r;b$ AND o*(s<16): REM Конкурс BASIC 10Liner 3 ЕСЛИ (y=0)+(x=r)*((y=s)+(y=s+1))*o ТО ПЕРЕХОДИТЕ К ПУНКТУ 9: КЛЮЧ ДАННЫХ$<>"",(m+1)* а*(м<6)*(м>=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* (б=0) 5 ЕСЛИ m=6 ИЛИ (m=0)*b ИЛИ (m>0)*(a=0), ТО ПУСТЬ m=-1: ДАННЫЕ d=0,c-1+INT (RND*3),(s -1)*(s<18) 6 ПРОЧИТАЙТЕ v,w,x,b,y,d,i,u,s,r,o: ЕСЛИ d=0, ТО ЕСЛИ (i>2)*(i<19), ТО ПУСТЬ c=i: ДАННЫЕ (s +1)*(s<18): REM 2022 от Avlixa 7 ПЕРЕЙДИТЕ К 1: ДАННЫЕ r*(s<17)+(x)*(s>17),(s=0)+o*(s<17)*(ATTR (s,r)>34): REM Нажмите любую клавишу, чтобы прыгнуть 8 ДЛЯ i=1 ДО 21: ПЕЧАТЬ AT i,0; БУМАГА 4; INK 2;c$( TO 10): СЛЕДУЮЩИЙ i: ПЕРЕЙТИ К 1: ДАННЫЕ 10,13,x,y,0,0,o,o,o,o,0,0,10,0,"(\# 008x","\{i3}y\#008$"9 ПЕЧАТЬ НА 15,0;"ИГРА ЗАВЕРШЕНА - СЧЕТ";n: ПАУЗА 1: ПЕРЕЙТИ К 9+(INKEY$=""): ДАННЫЕ "\@\@\@\@\@\@\@\@" ,c$+c$+c$,"НАЖМИТЕ ЛЮБУЮ КЛАВИШУ" 10 ВОССТАНОВЛЕНИЕ 8: ПРОЧИТАЙТЕ x,y,v,w,m,o,r,s,u,n,a,b,c,d,a$,b$,c$,c$,d$: НАПЕЧАТАЙТЕ d $: ПАУЗА 0: ТОЧКА 23693,41: ГРАНИЦА 5: CLS: ПЕРЕЙТИ К 8