Привет решил проблемму с синхронизацией? Если нет вот:
gameUPS = 60
framePeriod = 1000 / gameUPS
frameTime = MilliSecs () - framePeriod
While Not Quit=True
Repeat
frameElapsed = MilliSecs () - frameTime
Until frameElapsed
frameTicks = frameElapsed / framePeriod
frameTween# = Float(frameElapsed Mod framePeriod) / Float (framePeriod)
For frameLimit = 1 To frameTicks
If frameLimit = frameTicks Then CaptureWorld
frameTime = frameTime + framePeriod
If (MilliSecs()-frameTime)<>0
RTime=(MilliSecs()-frameTime) ; вычисление времени рендеринга.
EndIf
логика, все апдейты и. т. д.
UpdatePlayer()
UpdateWorld()
UpdateSomething()
If keyhit(1) Then Quit=True
UpdateWorld
Next
RenderWorld frameTween#
2D
Text 0,5,"RenderTime: "+Rtime
Flip 0
Wend
end
Теперь смело можешь играть с вертикальной синхронизацией Flip ;ON Flip 0; off. Жду новых скринов, красивая игра! Спасибо тебе.