Keskustelu: Koodit: QB: Toinen maailma

Empä keksinyt tälle oikein mitään nimeä, se on nimittäin syntynyt aivan vahingossa, mutta joku voi käyttää sitä ihan hyödyksikin. Myöhemmin tänne tulee sitten se, mitä minä tästä yritin tehdä, kunhan saan sen valmiiksi.

SCREEN 13
DIM rowsa(199)
DIM rowsx(199)
x1 = 30
x2 = 199 - x1
DIM vara(319)
FOR j = 0 TO 199
k = k + .1
rowsa(j) = k
rowsx(j) = rowsx(j) + SIN(rowsa(j))
NEXT j
GOSUB kuva
DO
FOR j = 0 TO 199
GET (1, j)-(318, j), vara
rowsx(j) = rowsx(j) + rowsa(j)
rowsa(j) = rowsa(j) + .1
PUT (rowsx, j), vara
NEXT j


LOOP

END
kuva:
FOR d = 0 TO 200
CIRCLE (160, 100), d, 18
NEXT
RETURN

Vaikuttaa joltain tunnelilta?

Poispääsy vaikutti hankalalta. En oikein tajunnut mitään tästä tunnelin näköisestä efektistä...

Toinen maailma oli vähän väärä sana, ajattelin, että se sopisi jossain roolipelissä taustaksi johonkin paikkaan, "jossa ei ole mitään"