Mini Bomber by teki

Мини-бомбер от teki

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

Код предназначен для венгерского компьютера Videoton TV Computer. Ссылка для скачивания эмулятора для Windows: http://tvc.homeserver.hu/bin/ emu/tvc220.zip" class="redactor-linkify-object">http://tvc.homeserver.hu/bin/emu/tvc220.zip (http://tvc.homeserver.hu/ — это фолл венгерских ресурсов для ТВЦ)

Инструкции по игре:

ПРОБЕЛ — сбросить бомбу

Вы будете получать 10 очков каждый раз, когда он попадет в точку O. Скорость точки O является случайной, как и высота падения.

Код в тексте:

10 РАНДОМИЗАЦИЯ:ГРАФИКА 2:P=0 20 BYO=RND(15):BY=BYO:SP=RND(10)+2:BS=0 30 FOR I=0 TO 63:A$=INKEY$:ЕСЛИ A$=" " ТО BS=1 40 BY=BY+BS:PRINT AT 1,50:"Оценка:",P 50 НАПЕЧАТАЙТЕ 23, I:"O";:ПЕЧАТАЙТЕ НА BY,32:"X"; 60 ГРОМКОСТЬ ЗВУКА 0, ДЛИТЕЛЬНОСТЬ SP:ЗВУК ;ГРОМКОСТЬ 0 70 ПЕЧАТЬ НА 23, I:" ";:ПЕЧАТЬ НА BY,32:" "; 80 ЕСЛИ BY = 23 И I = 32, ТО P = P + 10: ПЕРЕЙТИ К 20 90 ЕСЛИ BY = 23 ТО BY = BYO: BS = 0 100 ДАЛЕЕ:ПЕРЕХОД К 30

Это очень простая игра. Несколько специальных инструкций для TVC:

INKEY$ читает клавиатуру без блокировки.

SOUND издает звук, используемый здесь для задержки. Он не блокируется, но вторая инструкция SOUND с точкой с запятой будет ждать завершения первой (без точки с запятой прерывает предыдущую SOUND). Единица, если DURATION равна 1/50 сек.