Timing executable inside

Miscellaneous Forums/General Discussion/Timing executable inside

I let max drag the titlebar after enabling mouse just on the title bar. Max auto pauses the game code. Then I call this before the timing code loop starts:


?win32
Extern "win32"
    Function GetWindowRect%(hWnd%, lpRect: Byte Ptr)
End Extern
?

Type TRect
	Field L%, T%, R%, B%
End Type

			'Quickly check to see if the window has moved.
			'If it has, this is because the user has dragged it and so we should
			'reset the timing variables.
			Local Rect:TRect = ccWindowPositionHandle(Game.WindowHandle)
			If Game.WindowX <> Rect.L Or Game.WindowY <> Rect.T Then
				Init() 'timing vars
				Game.SetWindowCoords()
				Game.SetClientCoords()
			EndIf

Function ccWindowPositionHandle:TRect(hWnd%)
	'Pass a handle in
	?Win32
	Local window:TRect= New TRect
	GetWindowRect(hWnd,window)
	Return window	
	?
End Function



re: bug, sorry I'm plain out of motivation right now. We both are on the same mission at the same time, but I'm peed off with the whole thing now.