ASTRONAUT KERL for BASIC 10 Liner Contest 2021

АСТРОНАВТ КЕРЛ для BASIC 10 Liner Contest 2021 (https://gkanold.wixsite.com/homeputerium)

Экстрим-256 КАТЕГОРИЯ

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

АСТРОНАВТ КЕРЛ это игра для ZX Spectrum 48k. Вы потерялись в космосе, и вы должны получить на свой корабль, уклоняясь от метеоритов до кислорода заканчивается.

Игра по мотивам игры Азимова "Парашютист Керл" https://azimov.itch.io/paracaidista-kerl

Иинструкции:

После сотни и сотни прыжков с парашютом, Керл нуждался в большем вызов в его жизни. Поэтому он подал заявку на работу астронавтом в ЕКА (Европейское космическое агентство) и получил работа.

Он сейчас летает в миссии на Марс на StarShip 21 и вышел в открытый космос, чтобы отремонтировать солнечный панели, когда он попал под метеоритный дождь, из-за которого он потерял связь с космическим кораблем.

Он должен добраться до StarShip 21. пока у него не кончился воздух. Чтобы облегчить задачу, его товарищи по команде отправили ему кислород "О" цилиндры, чтобы перезарядить ограниченный воздух скафандра, когда он пробирается к корабль.

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

Другие шаттлы из предыдущих миссии исчезли в области, в которой вы находитесь, и возможно что корабль, с которым вы сталкиваетесьэто не StarShip 21, поэтому вы должны продолжить на вашем пути, если вы не хотите исчезнуть в космосе навсегда.

Клавиатура:

– Слева: O

– справа: P

 – Повышение: A

Вкл. слева у вас есть маркер в качестве ориентира оставшееся расстояние до корабля:

- "S" - Звездолет позиция

<р> - "А" - Положение космонавта

Загрузить игру:

Используйте ZX Эмулятор Spectrum 48k например Fuse( https://sourceforge.net/projects/fuse-emulator/ ). В левом нижнем углу Fuse вы увидите модель Spectrum. использовал. Рекомендуется использовать модель Spectrum 48K. Если ты видишь модели, отличной от Spectrum 48K, необходимо изменить модель в Машина — выберите (или F9) опцию и выберите опцию Spectrum 48K.

Для загрузки игры откройте файл astrokerl.tap в меню «Файл» — «Открыть».

В игра сохраняется с опцией СОХРАНИТЬ "атрокерл" СТРОКА 10, и в первый раз она автоматически запустится с 10 строки. Чтобы снова запустить игру тип R (для RUN) 10 и ENTER.

(испанский)

АСТРОНАВТ КЕРЛ это ваш выбор для ZX Spectrum 48k. Эстас perdido en el espacio y debes llegar a tu nave esquivando los метеориты ante que el aire se acabe.

Джуэго inspirado en «Paracaidista Kerl» на juego de Azimov https://azimov.itch.io/paracaidista-kerl

Инструкции:

Трасс сентос и сентос де сальтос ан паракайдас, Керл, тебе нужноn reto мэр en su vida. Así que busco trabajo de astronauta en la ESA (Agencia Espacial Europea) y consiguió el пуэсто.

Ahora está volando en una Миссия на Marte en la StarShip 21, y salió en un paseo espacial a reparar un panel solar, cuando le sorprendió una lluvia de метеориты, которые связаны с землей.

Дебе llegar a la StarShip 21 antes de que se le agote el aire. Пара facilitar la tarea sus compañeros de tripulación le han enviado algunas botellas de oxígeno «О» que licenser recargar el limitado aire del traje mientras avanza hacia la nave.

El traje espacial lleva un propulsor ilimitado, pero se recalienta y debe dejarlo recuperarse для использования.

Por la zona donde se encuentra desaparecieron otros transbordadores de misiones anteriores, y es возможный que la nave que encuentre no sea la StarShip 21, debe continuar su camino si no quiere desaparecer en el espacio para Зимпре.

Текладо:

• Искьерда: О
• Дереча: П
• Движитель: А

А ла искьерда tienes un marcador que sirve de guía para saber la distancia restante a la nave:

• «С» - Позиция корабля StarShip
• «А» — Позиция дель астронавт

Каргар-эль-Хуэго:

Использование эмулятор ZX Spectrum 48k для Fuse ( https://sourceforge.net/projects/fuse-emulator/ ). En la esquina inferior izquierda de Fuse aparece el modelo de Использование спектра. Се рекомендуется использовать модель Spectrum 48K. Си покупайте разные модели Spectrum 48K в зависимости от модели. опция Machine – выберите (o F9) выбор опции Spectrum 48 тыс.

Параметр cargar el juego abre el fichero astrokerl.tap en la option File – Открыть.

Эль Хуего Эста Грабадо кон ла возможность СОХРАНИТЬ «atrokerl» LINE 10, y la primera vez se autoejecutará desde la línea 10. Para ejecutar el juego nuevamente pulsa R (para RUN) 10 y ENTER.

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

1 LET m=1+INT (RND*26): LET n=1+INT (RND*3): LET o=INT (RND*5): FOR i=1 К 5: ПУСТЬ p=(RND*30)*(f=0): ПУСТЬ l$(i)=""+m$(i) И f=1: ПУСТЬ l$(i,1+p)=".": ПЕЧАТЬ НА r-1,0;" ": ПУСТЬ r=21-(q*20)/s: LET r=r*(r<21)+21*(r>21): ПЕЧАТЬ ЯРКО 1; ИНВЕРС 1;AT r,0;"A";AT 20,0;"|";AT 21,0;"S"; 2 POKE 23692,9: ПУСТЬ n=n+6*(q<1): ПЕЧАТЬ l$(i): ПЕЧАТЬ ЯРКИЙ 1;AT 21,m;("\.:"+"\::\::\::\::"( К RND*4)+"\:.") И (n=i): НАПЕЧАТАТЬ ЯРКО 1;AT 21,m;("\':"+"\::\::\::\::"( К RND*4)+"\:'") И (n+1=i): ПЕЧАТНЫЕ КРАСКИ 5;AT 21,m+2;"O" И (o>2)*(n+2=i): ПЕЧАТЬ 3 ПЕЧАТЬ НА 0,0;"Ускорение:"; ДОКУМЕНТ 4;""( К Б); БУМАГА 2;""( К 10-Б): ПЕЧАТЬ В 0,17;"Воздух:";а;""; БОЛЕЕ 1;В 0,21; ДОКУМЕНТ 5; ""( К а/10); ДОКУМЕНТ 2;""( К 10-(a/10)): ЕСЛИ k=1, ТО, ЕСЛИ b>0, ТОГДА ВЫХОД 254,22: ВЫХОД 254,16: ВЫХОД 254,0 4 ПУСТЬ k=IN 65022=190: ПУСТЬ y=y-1+2*(k=1)*(b>0)-1*(k=0): ПУСТЬ x=x+((IN 57342=190)-(IN 57342=189))*(x>0)*(x<31): ПУСТЬ w=w-1: ПУСТЬ b=b-1*(k=1)*(b>0)+2*(k=0)*(b<10): ПУСТЬ z=(w<>y) ИЛИ (v<>x): ПУСТЬ d=d+1: ЕСЛИ (q<1 И i=5), ТО ПУСТЬ f=f+1 5 ПУСТЬ g=(ATTR (y,x)>64) ИЛИ (ATTR (y+1,x)>64) ИЛИ (y>19): ПУСТЬ y=w*g+y*(g=0): ПУСТЬ g=ATTR (y,x): ПУСТЬ h=ATTR (y+1,x): ПУСТЬ x=v*(g>64)+x*(g<64): ПУСТЬ a=a-1+16*((g=5) ИЛИ (h=5)): ПУСТЬ а=а*(а<=100)+100*(а>100) 6 НАПЕЧАТАЙТЕ AT w,v;" " AND z;AT w+1,v;" " AND z; ЧЕРНИЛА 3;AT y,x;"W";AT y+1,x;"o": ПУСТЬ v=x: ПУСТЬ w=y: ПУСТЬ q=q-1: ПУСТЬ c=9-2*(y<1 ИЛИ a<1)-1*((g=6) ИЛИ (h=6)): ПЕРЕЙТИ К c: ДАННЫЕ 15,17,15,17,10,100,0,0,0,"МОЛОДЕЦ ТЫ ЖИВ!","### АСТРОНАВТ КЕРЛ ###" 7 ДЛЯ i=1 ДО 30: СИГНАЛ .03,i+10: СЛЕДУЮЩИЙ i: ПЕЧАТЬ FLASH 1; ДОКУМЕНТ 2;В 11,0;,,,,,,,,,,;В 11,8;"У ВАС НЕТ ВОЗДУХА" И (а<1);В 12,4;"ТЫ ПОТЕРЯН В КОСМОСЕ!";AT 13,6;"НАВСЕГДА ...ЕСЛИ";НА 14,2;"Кто-то наберет RUN 10 + ENTER";НА 15,6;"УРОВЕНЬ:";l;" ПУНКТЫ:";d: СТОП 8 Пусть l=l+1: Пусть q=75*(1+l): Пусть s=q: Пусть r=2: Пусть b=10: Пусть a=100: Пусть f=0: LET z=l>1 AND l<21: BEEP 2,10: CLS : ПЕЧАТЬ НА 7,5;o$;AT 8,6;"ДВИЖЕНИЕ: УСКОРЕНИЕ O-P: A": ПЕЧАТЬ В 15,3;q$;d: ПЕЧАТЬ В 10,2;p$ И (z=1);AT 10,19;STR$ l И (z=1): ПЕЧАТЬ БУМАГИ 4; ВСПЫШКА 1;НА 11,4;n$ И (l=21): ПАУЗА 50: ПАУЗА 0: ПЕРЕЙТИ К 1+10*(l=21) 9 ПУСТЬ b=b*(b<11)+10*(b>10): СЛЕДУЮЩИЙ i: ПЕРЕЙТИ К 1: ДАННЫЕ "ЭТО ЗВЕЗДНЫЙ КОРАБЛЬ, НАЙДИТЕ 21", "НАЖМИТЕ ЛЮБУЮ КЛАВИШУ. ТОЧКИ:" 10 ВОССТАНОВЛЕНИЕ: ЧТЕНИЕ x,y,v,w,b,a,l,d,k: РАЗМЕТАТЬ l$(5,31): РАЗМАТЬ m$(5,31): ПРОЧИТАТЬ n$,o$,p$,q$: ДЛЯ i=1 ДО 5: ПУСТЬ m$(i)=" "+CHR$ 16+CHR$ 6+CHR$19+CHR$ 0: ПРОЧИТАТЬ m$(i,12 TO ): СЛЕДУЮЩИЙ i: ДАННЫЕ "\::\::\:.","\.'\.'\.'\::\::\::\::\::\::\..","\::\ ::\::\: \ :\: \ :\: \: \::\: ","\'.\'.\'.\::\::\::\::\::\::\''", "\::\::\:'": БУМАГА 0: ПОЛЯ 0: ЧЕРНИЛА 7: ПЕРЕЙТИ К 8