Keskustelu: Koodit: QB: Sama nopeus kaikilla koneilla

Tämä ei ole minun tekemä koodi, mutta se on erittäin hyödyllinen. Se saa toimimaan pelin samalla nopeudella, millä tahansa koneella.

SCREEN 13
DO
CLS 2
CIRCLE (x, 100), 10
x = x + 1
IF x = 330 THEN x = -10
DO: LOOP UNTIL (INP(&H3DA) AND &H8) = 0
DO: LOOP UNTIL (INP(&H3DA) AND &H8) <> 0
LOOP

Toimii myöskin, kun laittaa pelin "main" loopin väliin seuraavan:
WAIT &H3DA, 8
sama, mut vähemmän koodia =)

Eikös tämäkin korvaa asian.

JOOPAJOO&=TIMER
DO
LOOP UNTIL JOOPAJOO& > TIMER + .05

vai onko erikoneilla erilaiset timerin nopeudet

Ei ole erinopeuksiset timerit, mutta hitaalla koneella toimii pätkien toi TIMER + .05. Itselläni täytyy olla vähintään TIMER + .075.