Конкурс игр на бейсике

[Alex Rider]

Я за конкурс, может, даже поучаствую. Мое мнение про ограничения: надо запретить только разработку ассемблерного кода для самой игры. В этому случае можно использовать тучу тулов и ассемблерного кода, зарелиженных до конкурса, а именно:

• Laser-, Beta-, Mega- и прочие бэйсики;
• [New]SuperCode и аналогичные либы;
• тулы, не требующие программирования, но генерящие выходной код, например, мой SpriteGrabber;
• специально разработанные и утвержденные оргами для конкурса пакеты подпрограмм (например, проигрывание фоновой AY-музыки из 128-й страницы, загрузка музыки в GS, печать хитрых символов через PRINT#, поддержка расширенных экранов клонов и так далее).

Это позволит сделать зрелищную BASIC-игру, использующую возможности железа, недоступные из обычного BASIC'а. При этом вся логика игры останется на BASIC, автор игры не напишет ни одной строчки кода на асме, обеспечится равенство участников и игры будут ни разу не унылыми.

[Advertiser]

[denpopov]

и системная переменная LAST_K в которой лежит "код" последней нажатой клавиши.

а как Cursor Joystick будет выглядеть, если нажаты влево-вверх или влево-огонь?

[null_device]

denpopov, в случае отслеживания нажатия сразу нескольких клавиш, поможет только чтение из порта(ов). LAST_K - не более чем, аналог команды CODE INKEY$.

[Eltaron]

Есть команда чтения из порта (клавиатурного, в том числе) и системная переменная LAST_K в которой лежит "код" последней нажатой клавиши.

LAST_K с KSTATE такой же "невариант" как и INKEY$ (два одновременных нажатия как?), а дербанить значения из порта на отдельные биты на бейсике дико неудобно и долго - арифметического AND нет, вычитание зовёт калькулятор и насилует пятибайтный формат.

Если выдать всем участникам пару стандартных процедур - опрос клавы и вывод спрайта, игры станут в 10 раз быстрей. Спрайты, скажем, из инфоркомовской "Динамической графики" - вполне себе олдскул, и из бейсика пользоваться просто.

[denpopov]

LAST_K с KSTATE такой же "невариант" как и INKEY$ (два одновременных нажатия как?), а дербанить значения из порта на отдельные биты на бейсике дико неудобно и долго - арифметического AND нет, вычитание зовёт калькулятор и насилует пятибайтный формат.

ой ли? я на Атари делал аналог, выйдет тормозно.

[null_device]

дербанить значения из порта на отдельные биты на бейсике дико неудобно и долго

Можно, но опять же не быстро и не просто. Именно поэтому я писал, про невозможность написания динамических игры на "чистом" бейсике.

[Alex Rider]

а дербанить значения из порта на отдельные биты на бейсике дико неудобно и долго - арифметического AND нет, вычитание зовёт калькулятор и насилует пятибайтный формат.

Для Kempston- и Sinaclair-джойстиков из порта читается 32 возможных значения - что мешает сделать массив с номерами строк для перехода по каждому возможному значению? А, если выкинуть опрос "огня", который, как правило, обрабатывается отдельно, получится 16 значений всего.

[alone]

Ты забыл про три старших бита, которые надо откинуть по MOD (которого в спектрумовском бейсике нет).
LET i=IN ...:LET i=i-(32*INT (i/32))

[null_device]

На бейсике "раскидывание" на биты, однобайтового десятичного значения, можно организовать в виде подпрограммы (строки 2 и 30 служат для ввода и вывода значения):

2 INPUT n
...
8 DIM b(8)
10 IF n>127 THEN LET n=n-128: LET b(8)=1
12 IF n>63 THEN LET n=n-64: LET b(7)=1
14 IF n>31 THEN LET n=n-32: LET b(6)=1
16 IF n>15 THEN LET n=n-16: LET b(5)=1
15 IF n>7 THEN LET n=n-8: LET b(4)=1
20 IF n>3 THEN LET n=n-4: LET b(3)=1
22 IF n>1 THEN LET n=n-2: LET b(2)=1
24 LET b(1)=n
...
30 FOR i =1 TO 8: PRINT AТ 0, i; b(i): NEXT i

Можно организовать программу несколько иначе (отказаться от массива). Данный вариант показывает общий принцип, что это можно реализовать довольно коротко и просто.
----
В отличии от "циклопической" программы из книжки: "Как написать игру..."

10 DIM J(5)
20 LET JOY=IN 31
30 FOR N=1 TO 5
40 LET JOY=J0Y/2
50 LET J(N)=(JOY<>INT JOY): LET JOY=INT JOY
60 NEXT N
70 PRINT AT 0,0;
80 FOR N=5 TO 1 STEP -1
90 PRINT J(N);
100 NEXT N
110 GO TO 20

[Reobne]

Прикладываю образец ввода с клавиатуры и кемпстон мыши в бейсике.
Смотреть LIST, запустить RUN.

Глубоко надеюсь, что старшие разряды не будут скакать на вашем эмуляторе.