Miscellany

Namespace Cyclelogic
    Public Class Marta
        Implements ICafeDeLaEsquina

        Private m_intGolpes As Integer
        Private m_eBasergas As BasergaStatus

        Property Golpes() As Integer
            Get
                Return Me.m_intGolpes
            End Get
            Set(ByVal value As Integer)
                Me.m_intGolpes = value
            End Set
        End Property

        Property Baserga() As BasergaStatus
            Get
                Return Me.m_eBasergas
            End Get
            Set(ByVal value As BasergaStatus)
                Me.m_eBasergas = value
            End Set
        End Property

        Public Sub New()
            Me.m_intGolpes = 0
            Me.m_eBasergas = BasergaStatus.Ignorar
        End Sub

        Public Sub GolpearseConCosas()
            Dim objRand As New System.Random
            If objRand.Next(1, 10) <= 8 Then
                Me.Golpes = Me.Golpes + 1
                Debug.Write("Ahhhhhhhhhh!")
            End If
        End Sub

        Public Sub LavarPalitos()
            Throw New LosPalitosNoSeLavanException
        End Sub
#Region "Cafe de la esquina"
        Public Sub PedirEnsalada(ByVal Tipo As Ensalada) Implements ICafeDeLaEsquina.PedirEnsalada

        End Sub

        Public Sub PedirSanguche(ByVal QuePan As Pan) Implements ICafeDeLaEsquina.PedirSanguche

        End Sub
#End Region
    End Class

    ' Baserga's
    Public Enum BasergaStatus
        Ignorar = 0
        NoDarleBola = 1
        ContestarleConMonosilabos = 2
        DarleBola = 9999
    End Enum

    ' Cafe de la esquina
    Public Enum Pan
        Arabe = 0
        Frances = 1
    End Enum

    Public Enum Ensalada
        Martin = 0
        Cesar = 1
    End Enum

    Public Interface ICafeDeLaEsquina
        Sub PedirSanguche(ByVal QuePan As Pan)
        Sub PedirEnsalada(ByVal Tipo As Ensalada)
    End Interface

    Public Class LosPalitosNoSeLavanException
        Inherits Exception
    End Class

End Namespace