Display FPS in Game
Posted: Fri Sep 03, 2010 5:13 am
Code: Select all
;before Repeat
FPSCounter = 0
OneSecond = 1
;after Repeat
Repeat
If FlipBuffers()
FPSCounter +1
EndIf
If OneSecond = 1
StartTime = ElapsedMilliseconds()
OneSecond = 0
EndIf
ElapsedTime = ElapsedMilliseconds()-StartTime
If ElapsedTime >= 1000
FinalFPS = FPSCounter
FPSCounter = 0
OneSecond = 1
EndIf
StartDrawing(ScreenOutput())
DrawingMode(#PB_2DDrawing_Default)
DrawText(10, 0, "FPS " + Str(FinalFPS), RGB(255, 255, 255))
StopDrawing()