Space Splat by Wiremu Te Kani

Название игры: Space Splat

Автор: Вирему Те Кани

Язык: Locomotive BASIC 1.1 (Amstrad)

Категория: ЭКСТРЕМ-256

Файл .WAV (лента) прилагается.

Новая игра для 10-Liner Compo 2022 года.

"Вы обречены. Земля захвачена дуплоидами: космическая гонка, которая колонизирует планеты с помощью сборных кораблей-насекомых. Все, что вы можете сделать сейчас, это не попасть под удар (клавиши влево/вправо). Удачи ." Этот использует только 9 линий. Вот он в компактном виде ниже. За развернутой версией программы BASIC следуют удобные операторы REM, показывающие, что делает каждая команда.

10-LINER (9 строк):

10 r$=CHR$(10)+CHR$(13):r2$=r$+r$:b$=CHR$(143):b2$=b$+b$:b4$=b2$+b2 $:s2$=" ":s4$=s2$+s2$:x1$=b$+" ":x2$=" "+b$:m1$=CHR$(4)+CHR$(1): u$=CHR$(11)+CHR$(11) 20 PRINT m1$"ТЫ ОБРЕЧЕН."r2$"Земля захвачена дуплоидами:"r$"космическая гонка, которая колонизирует"r$"планеты с помощью сборных"r$"кораблей-жуков."r2$ "Все, что вы можете сделать сейчас, это не допустить, чтобы "r$" растоптали (клавиши влево/вправо)."r2$"УДАЧИ." 30 PRINT r$"Нажмите любую клавишу, чтобы начать... конец":CALL &BB03:WHILE INKEY$="":WEND 40 x=4:w2=12:h2=8:c=1:m$="352f2c282328231b23282c2823282c2f":ПЕЧАТЬ m1$:ОКНО #0,1,15,1,24:ОКНО #1,1,40,25, 25:КАЖДЫЕ 17 GOSUB 90 50 ПЕРО #0,2:ПЕЧАТЬ #0,s4$x2$x2$r$s4$b4$b$r$s4$x1$x1$b$r$b4$b4$b4$b$r$b2$s2 $b4$b$s2$b2$r$b2$s2$x2$x2$s2$x2$b$r$s4$b2$x2$b$ 60 FOR b=1 TO 25:x=x+((INKEY(8) XOR INKEY(71)) AND x>1)-((INKEY(1) XOR INKEY(63)) AND x<37):PEN #1 ,1:LOCATE #1,x,1:PRINT #1," ";CHR$(250+RND);" ":LOCATE #0,1,1:PRINT #0,u$;:IF x>=x2 ТО ЕСЛИ x<=x2+w2 ТО ЕСЛИ b>23-5 ТО 80 70 ЗВУК 1,500+((b+x2)*10),13,4,12:ДАЛЕЕ:x2=RND*25:ОКНО #0,1+x2,15+x2,1,24:ЧЕРНИЛА 2,2+( РНД*26):ПЕРЕХОД К 50 80 CALL &BCA7:LOCATE #1,x,1:PRINT #1," _ ":WINDOW #1,1,40,1,25:LOCATE #1,15,12:PEN #1,3:PRINT #1, "GAME OVER":ДЛЯ a=2000 ДО 1 ШАГ -50:ЗВУК 1,a,4,9,RND*15:ДАЛЕЕ:ДЛЯ a=1 ДО 2000:ДАЛЕЕ:ПЕРО 1:ПУСК 90 DI:n=VAL("&"+MID$(m$,c,2)):c=(c+2) MOD 32:SOUND 2,n+n+n+n+n,26,6, 1:ЭИ:ВОЗВРАТ Версия Unraveled с комментариями: 100 ' Инициализировать 101 r$=CHR$(10)+CHR$(13):' Контрольные коды для возврата каретки (введите) 102 r2$=r$+r$:' 2 Возврат каретки 103 b$=CHR$(143): ' Квадратный блок 8x8 пикселей 104 b2$=b$+b$: ' 2 блока 105 b4$=b2$+b2$: ' 4 блока 106 s2$=" ": ' 2 пробела 107 s4$=s2$+s2$: ' 4 пробела 108 x1$=b$+" ": ' 1 блок, 1 пробел 109 x2$=" "+b$: ' 1 пробел, 1 блок 110 m1$=CHR$(4)+CHR$(1):' Коды управления для РЕЖИМА 1 111 u$=CHR$(11)+CHR$(11):' Управляющие коды для перемещения курсора вверх на 2 пробела (прокрутка экрана вниз) 200 ' Помещение и инструкции 201 PRINT m1$"ТЫ ОБРЕЧЕН."r2$"Земля захвачена дуплоидами:"r$"космическая гонка, которая колонизирует"r$"планеты с помощью сборных"r$"кораблей-жуков."r2$ "Все, что вы можете сделать сейчас, это не допустить, чтобы "r$" растоптали (клавиши влево/вправо)."r2$"УДАЧИ." 202 ' Установите экран в РЕЖИМ 1 истирать строки текста с возвратом каретки. 300 ' Любая клавиша для запуска 301 PRINT r$"Нажмите любую клавишу, чтобы начать... конец": ' Напечатать текст 302 CALL &BB03: ' Очистить буфер ввода с клавиатуры 303 WHILE INKEY$="": ' Цикл до нажатия клавиши 304 ВЕНД 400 'Установить игровую площадку для игры 401 x=4: ' Позиция игрока и врага 402 w2=12: 403 ч2=8: 404 с=1: 405 m$="352f2c282328231b23282c2823282c2f": ' Сохраняем данные музыкальных нот 406 ПЕЧАТЬ m1$: ' Режим 1 407 ОКНО #0,1,15,1,24: ' Настройте вражескую область для движения 408 WINDOW #1,1,40,25,25: ' Настроить область игрока для перемещения 409 EVERY 17 GOSUB 900: ' Воспроизведение ноты каждые 17/300 сек. 500 ' Распечатать врага 501 PEN #0,2:' Установить цвет врага 502 ПЕЧАТЬ #0,s4$x2$x2$r$s4$b4$b$r$s4$x1$x1$b$r$b4$b4$b4$b$r$b2$s2$b4$b$s2 $b2$r$b2$s2$x2$x2$s2$x2$b$r$s4$b2$x2$b$:' Вывести вражеское существо 600 'Ввод и движение игрока 601 ДЛЯ b=1 TO 25: ' Начать цикл движения врага (движется вниз на весь экран) 602 x=x+((INKEY(8) XOR INKEY(71)) AND x>1)-((INKEY(1) XOR INKEY(63)) AND x<37): ' прочитать клавиатуру, чтобы переместить игрока влево/вправо 603 PEN #1,1: 'Изменить цвет для игрока 604 LOCATE #1,x,1: ' Позиция игрока 605 PRINT #1," ";CHR$(250+RND);" ": ' Напечатать крупье (игрок) 606 LOCATE #0,1,1: ' Переместите курсор в верхнюю часть экрана 607 PRINT #0,u$;: ' Нажмите вверх, чтобы прокрутить врага вниз 608 IF x>=x2 THEN IF x<=x2+w2 THEN IF b>23-5 THEN 800: ' Если противник касается игрока, перейти к строке 800 700 ' Воспроизвести выпадающий звук, зациклитьпока враг не исчезнет, ​​затем создайте нового врага 701 SOUND 1,500+((b+x2)*10),13,4,12: ' Воспроизвести звук падения 702 NEXT: ' Вернуться к строке 60 - враг движется вниз. Когда он достигает дна 703 x2=RND*25: ' Расположение следующего врага 704 WINDOW #0,1+x2,15+x2,1,24 ' Позиция нового врага 705 INK 2,2+(RND*26): ' Выбрать новый цвет врага 705 ПЕРЕЙТИ К 500: ' Начать еще один забег противника 800 'Игрок умирает, игра окончена 801 CALL &BCA7: ' остановить нажатия клавиш 802 LOCATE #1,x,1: ' сделать игрока не человеком 803 PRINT #1, "_ ": ' к расплескавшемуся блину 804 ОКНО #1,1,40,1,25: ' Позиция текста GAME OVER 805 МЕСТОПОЛОЖЕНИЕ #1,15,12: 806 PEN #1,3: 'Установить цвет 807 ПЕЧАТЬ № 1, «ИГРА ЗАКОНЧЕНА»: 808 FOR a=2000 TO 1 ШАГ -50: ' Воспроизведение звука смерти 809 ЗВУК 1,а,4,9,РНД*15: 810 СЛЕДУЮЩИЙ: 811 FOR a=1 TO 2000: 'Игра останавливается примерно на 4 секунды 812 СЛЕДУЮЩИЙ: 813 PEN 1: ' Сбрасывает цвета 814 RUN: 'Перезапустить игру 900 ' Музыка играет по прерываниям 901 DI: 'Отключить прерывания 902 n=VAL("&"+MID$(m$,c,2)): ' Извлечь ноту из музыкальных данных 903 c=(c+2) MOD 32: 'переместить указатель воспроизведения вперед 904 SOUND 2,n+n+n+n+n,26,6,1: ' Воспроизвести ноту (частота - это данные, умноженные на 5) 905 EI: ' Разрешить прерывания 906 ВОЗВРАТ