Arkanoid style

[ewoke]

Чувствую, читатели ждут еще этих сладких кодесов. Куда же без них? Без кодесов, а стало быть и без их компеляции? :)

Компелировать: fbc.exe -lang qb -s gui bounce2.bas

SCREEN 12
ix = 10: iy = 100: ia = 30
DO

LINE (0, 0)-(319, 199), 3, B
CIRCLE (ix, iy), 10, 2
z1 = COS(ia * .0174): z2 = SIN(ia * .0174)
ix = ix + z1: iy = iy + z2

REM законы арканоида
rem неверное предположение! - IF ix > 319 THEN ia = ia - 90: ix = 319: GOTO skpp
rem неверное номер два - IF ix < 0 THEN ia = ia - 90: ix = 0: GOTO skpp
IF ix > 319 THEN ia = 180 - ia: ix = 319: GOTO skpp
IF ix < 0 THEN ia = 180 - ia: ix = 0: GOTO skpp

IF iy > 199 THEN ia = 360 - ia: iy = 199
IF iy < 0 THEN ia = 360 - ia: iy = 0

skpp:

sleep 1,1
LOOP UNTIL INKEY$ = CHR$(27)

Файлы:
65wat.ru/fb/bounce2.BAS
65wat.ru/fb/bounce2.exe

Исправил ошибку в своих исходниках на QBasic 10-летней давности. Увлекательно.

p.s. Заумное выражение ia * .0174 объясняется тем, что машина считает в радианах, а мы считаем в градусах.

p.p.s Продолжение следует. И надо бы научиться записывать это дело на Ютуб.