Kirjautuminen

Haku

Tehtävät

Keskustelu: Koodit: QB: FreeFall

tgunner [23.03.2005 19:39:23]

#

CLS
SCREEN 9
DO
KOHTA = KOHTA + 1 'Lisätään kohtaa jotta pixelit tippuisivat
PSET (5, KOHTA), 3 'Pixelit
PSET (8, KOHTA), 3
CALL hidastus
LOOP UNTIL INKEY$ = CHR$(27) 'Loopataan kunnes painetaan ESC

SUB hidastus
hid = TIMER
DO:LOOP UNTIL TIMER - hid < .01 ' snakari:n tasohyppelypelin hidastus, kiitos
END SUB

tgunner [23.03.2005 19:40:01]

#

Tää on mun 3 koodi tänne (ja toivottavasti ensimmäinen julkaistava)
Joten KOMMENTTIA KIITOS

T.M. [29.03.2005 01:49:55]

#

Mukava ikuinen looppi... ja kaiken lisäksi näkyy pelkkä raita, ei taida toimia?

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta