Sub Process_Globals
Private const NO_MOVEMENT_INTERVAL As Int = 1000
Private LastMovement As Long
End Sub
Sub MapFragment1_CameraChange (Position As CameraPosition)
Dim last As Long = DateTime.Now
LastMovement = last
Sleep(NO_MOVEMENT_INTERVAL)
If LastMovement = last Then
Log("map was not moved for more than " & NO_MOVEMENT_INTERVAL & "ms.")
End If
End Sub