SLOT10L

SLOT10L — простой симулятор игровых автоматов на 10 строках MSX2 BASIC v3.

Я создал эту игру ради удовольствия поучаствовать в соревновании GameJam.

Для остальных обязательств я поставил себе лимит на выполнение проекта в 90 минут — время скучного футбольного матча Евро-2020.

MSX не была платформой моего детства — у меня были только компьютеры Commodore — но это был взрослый выбор: я думаю, что это лучшая версия BASIC среди 8-битных машин.

# Game Logic

Игрок нажимает пробел, чтобы начать вращение.

Каждое вращение стоит 1$, и если 3 символа находятся на одной горизонтальной линии, пользователь выигрывает 10$.

# элементов управления

- ПРОБЕЛ для вращения

Исходники хранятся по адресу: https://github.com/robertocapuano/Slot10L

# установка

Игра была разработана в MSX-BASIC v3 на MSX2. Эмулятор доступен по адресу https://webmsx.org/

. <р>1. подключитесь к https://webmsx.org/

<р>2. нажмите ALT+B

<р>3. скопируйте и вставьте исходный код

<р>5. введите:

```

бежать

```

URL-адрес запуска WebMSX:

- https://webmsx.org?MACHINE=MSX2P&DISK=https://raw.githubusercontent.com/robertoc...

# Описание источника

```

0 SCREEN1,0,0:COLOR10,12,12:KEYOFF:DEFINTA-Z:B=6349:Z=RND(-TIME):M=10

```

Строка 0 инициализирует режим экрана, цвета. Определяет целочисленные переменные.

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

Переменная M содержит деньги пользователя.значение.

```

1 dimSP(2,15):forI=0to15:A=RND(1)*3:forJ=0to2:SP(J,I)=A:nextJ,I:CLS:

```

Массив SP содержит символы трех колес. И он инициализируется случайными значениями.

```

2 ?"SLOT10L":forI=0to6:forJ=0to6:vpoke6316+j+i*32,RND(1)*4+20:nextJ,I

```

Распечатать название игры. Отрисуйте случайную графику.

```

3 forJ=0to2:forI=0to2:A=SP(J,(ST(J)+I)mod16)+1:vpokeB+64*I+J*2,A

```

Отображение символов колес на экране.

```

4 R(J,I)=A:nextI,J:LOCATE7,22:"НАЖМИТЕ ПРОБЕЛ":LOCATE22,0

```

Массив R содержит фактический экранный символ, чтобы сократить код после него.

```

5 ?"$";M;"  ":CH=0:forJ=0to2:CK=(SR(J)>0):CH=CH+CK:SR(J)=SR(J)-1 :

```

Выведите денежную стоимость. CH содержит количество шагов для каждого колеса.

```

6 ST(J)=(ST(J)-CK*1)mod15:next:if CH<>0then:play «T120O4L15A»:goto3

```

Для каждого шага вращения воспроизводится звук.

```

7 для K=0–2: если R(0,K)=R(1,K) и R(1,K)=R(2,K), то M=M+10: воспроизвести «T120O4L60B»

```

Проверяет, находятся ли 3 символа в одной строке.

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

```

8 nextK:LOCATE22,0:?"$";M;"  ":LOCATE22,0

```

Отображается обновленная денежная стоимость

```

9 K$=INKEY$:IFK$<>" "then9:elseM=M-1:forJ=0to2:SR(J)=RND(1)*15:nextJ:goto5

```

Прочитайте ввод пользователя. Для каждого шага колеса генерируется случайное значение.