Snap

SNAP (Спектр)

Билл Литго от Sinclair User 26 (май 1984)

SNAP это игра для двух игроков, в которой экран и границы

постоянно менять цвет. Когда цвета совпадают, игрок следует нажмите 1 и игрок два должны нажать 0. игрока нажать первую прибыль точка, а точка будет идти к противнику, если вы нажмете на неправильное время. Написано для 16K Spectrum Биллом Литго из Shelvington, Уиган.

Переменные, используемые в программе:

Название $ первом игрока Название B $ втором игрока оценка первых игрока оценка B второго игрока ж победный счет Цвет бо Пограничный Цвет годовых бумаги н Используется для изменения заметки в звуковой сигнал отчетности

  10- 60 Печать начальных титрах

       70 Ожидает нажатия клавиши  100- 120 Входное имена игроков и выиграв со счетом       130 Устанавливает баллы игроков к нулю       150 Как цветная бумага постоянно меняется, это команда гарантирует            что-нибудь напечатано еще можно прочитать. Если бумага            темно, чернила будут белыми; если это свет, чернила            быть черным. Смотрите стр 111 [стр 83. JimG] в руководстве.  170- 180 Выборы случайные бумаги и пограничные цвета и очищает экран            для тех цветов  190- 200 Печатает имена и оценки игроков       210 Пауза для случайные промежутки времени  220- 250 Если какой-либо игрок нажатием клавиши и цвета            же, их оценка увеличивается и печатается. Если цвета            не то же самое, оценка их противника увеличивается.       260 Очищает сообщение печатается в строках 220-250  270- 280 изменяет значение п и ограничивает его до 13  290- 300 Если какой-либо из игроков достиг победный счет,            распечатать его и GOTO конце рутины игры       310 GOTO начало игры  500- 530 инструкции Print, чтобы играть снова       540 Подождите нажатия клавиши  550- 560 Если вы выбрали любой вариант, GOTO правильная линия.            Если нет, то программа будет работать из линий и STOP.

Это довольно простой игры, но, как это может быть использовано

люди, которые ничего не знают о компьютерах должно быть ошибок в ловушке – то есть программа не должна прекратиться, если нажата неправильная клавиша. Когда один игрок нажимает клавишу в линиях 220-250, если это победа нажать программа переходит к строке 500 и ожидает нажатия клавиши для другого, если игрок не выпустила ключ достаточно быстро программа останавливается. Добавляя новую линию 500, программа ждет ключевой быть выпущен перед продолжением.

500 IF INKEY $<>“” THEN GOTO 500

505 CLS

Линии 100-120 могут быть также ошибок в ловушке, например:

100 INPUT “Имя первого игрока?”; $:

    ЕСЛИ $ = “” затем распечатать AT 20,4; “Вы должны ввести что-то”: GOTO 100 105 CLS

Существует более ошибок захвата вы можете сделать – это вам решать.

Если программа должна быть использована очень маленьких детей, было бы полезно

если они должны были нажать только их половину клавиатуры, а не один Ключ. Например, добавить:

210 Пауза 50 + RND * 50

212 ЛЕТ ул = (IN 65278<>255 ИЛИ 65022<>255 ИЛИ 64510<>255 ИЛИ 63486<>255) 214 ЛЕТ й = (IN 61438<>255 ИЛИ 57342<>255 ИЛИ 49150<>295 ИЛИ 32766<>255) 216 IF ул = 1 И й = 1, то на печать 10,12; “TIE”:     При Т = 1 до 100: СЛЕДУЮЩИЙ т: CLS: GOTO 160

Если у вас есть проблема 3 Spectrum, изменить все 255s на 191.

Alter начало следующего содержания:

220 IF-м = 1 и …

• 230 IF-й = 1 И …
• 240 IF-м = 1 и …
• 250 IF-й = 1 И …