Status.vb

Module Status
    Private Busy As Boolean = False
    Private ManaTrain As Boolean = False
    Private EatFood As Boolean = False

    Public Property getBusy As Boolean
        Get
            Return Busy
        End Get
        Set(value As Boolean)
            Busy = value
        End Set
    End Property

    Public Property getManaTrain As Boolean
        Get
            Return ManaTrain
        End Get
        Set(value As Boolean)
            ManaTrain = value
        End Set
    End Property

    Public Property getEatFood As Boolean
        Get
            Return EatFood
        End Get
        Set(value As Boolean)
            EatFood = value
        End Set
    End Property

    Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As IntPtr) As Short

    'Check if insert hold
    Public Function CheckInsert() As Boolean
        If GetKeyState(Keys.Insert).ToString <> "-127" And GetKeyState(Keys.Insert).ToString <> "-128" Then
            Return False
        Else
            Return True
        End If
    End Function
End Module