MovementRule

Public Class MovementRule

    Private m_Vertical As Integer
    Private m_Horizontal As Integer
    Private ReadOnly m_Speed As Integer

    Public Sub New()
        m_Vertical = 200
        m_Horizontal = 100
        m_Speed = 1
    End Sub

    Public Function Evaluate(aCooordinates As Point, ByRef aNewCoordinates As Point) As Boolean
        If m_Vertical > 0 Then
            aNewCoordinates = New Point(aCooordinates.X, aCooordinates.Y + m_Speed)
            m_Vertical = m_Vertical - 1
            Return True
        End If
        If m_Horizontal > 0 Then
            aNewCoordinates = New Point(aCooordinates.X + m_Speed, aCooordinates.Y)
            m_Horizontal = m_Horizontal - 1
            Return True
        End If
        aNewCoordinates = aCooordinates
        Return False
    End Function

End Class