Keskustelu: Koodit: QB: Kimpoileva blockki

CLS
SCREEN 13
nopeus = 5000 'Asetetaan blokin nopeus
y = 1
x = 1
tausta.vari = 0 'Asetetaan onko tausta vaihtuva vai ei. 0 = ei | 1 = kyllä
meno$ = "alaoikee" 'Asetetaan mihinpäin blokki menee
vari = 32
vari2 = 133
vari$ = "kaikki"
LOCATE y, x: COLOR vari: PRINT CHR$(merkki)
merkki = 219
DO
IF tausta.vari = 1 THEN COLOR vari2: PAINT (1, 1)
vari2 = vari2 - 1
IF vari2 = 32 THEN vari2 = 133
IF vari = 133 THEN vari = 32
IF x = 1 AND y = 23 THEN vari$ = "musta": LOCATE 23, 1: PRINT " "

'Kimpolut alkaa tästä:

IF meno$ = "alaoikee" THEN x = x + 1: y = y + 1
IF y = 23 AND meno$ = "alaoikee" THEN meno$ = "ylaoikee": LOCATE y, x: PRINT CHR$(merkki): vari = vari + 1
IF meno$ = "ylaoikee" THEN x = x + 1: y = y - 1
IF x = 40 AND meno$ = "ylaoikee" THEN LOCATE y, x: PRINT CHR$(merkki): meno$ = "ylavasen": vari = vari + 1
IF meno$ = "ylavasen" THEN x = x - 1: y = y - 1
IF y = 1 AND meno$ = "ylavasen" THEN LOCATE y, x: PRINT CHR$(merkki): meno$ = "alavasen": vari = vari + 1
IF meno$ = "alavasen" THEN x = x - 1: y = y + 1
IF y = 23 AND meno$ = "alavasen" THEN LOCATE y, x: PRINT CHR$(merkki): meno$ = "ylavasen": vari = vari + 1
IF x = 1 AND meno$ = "ylavasen" THEN LOCATE y, x: PRINT CHR$(merkki): meno$ = "ylaoikee": vari = vari + 1
IF y = 1 AND meno$ = "ylaoikee" THEN LOCATE y, x: PRINT CHR$(merkki): meno$ = "alaoikee": vari = vari + 1
IF x = 40 AND meno$ = "alaoikee" THEN LOCATE y, x: PRINT CHR$(merkki): meno$ = "alavasen": vari = vari + 1
IF x = 1 AND meno$ = "alavasen" THEN LOCATE y, x: PRINT CHR$(merkki): meno$ = "alaoikee": vari = vari + 1
ON ERROR GOTO alku

IF vari$ = "kaikki" THEN LOCATE y, x: COLOR vari: PRINT CHR$(merkki)
IF vari$ = "musta" THEN LOCATE y, x: COLOR 0: PRINT CHR$(merkki)

ON ERROR GOTO alku
FOR odotus = 0 TO nopeus
g$ = INKEY$
IF g$ = CHR$(27) THEN END
IF g$ = CHR$(13) THEN
        IF tausta.vari = 1 THEN tausta.vari = 0: CLS : GOTO yep
        IF tausta.vari = 0 THEN tausta.vari = 1
END IF
yep:
NEXT
takaisin:

LOOP

alku:
END