29 lines
628 B
VB.net
29 lines
628 B
VB.net
Public Class Player
|
|
Private _winCondition As WinCondition
|
|
Public Property hand As New List(Of String)
|
|
Public Property total As Integer
|
|
Public Property ingame As Boolean
|
|
Public Property winType
|
|
Get
|
|
Return _winCondition
|
|
End Get
|
|
Set
|
|
_winCondition = Value
|
|
End Set
|
|
End Property
|
|
|
|
Sub Start()
|
|
hand.Clear()
|
|
total = 0
|
|
ingame = True
|
|
winType = WinCondition.NormalWin
|
|
|
|
End Sub
|
|
End Class
|
|
Public Class Dealer
|
|
Inherits Player
|
|
|
|
Public Property limit As Integer = 17
|
|
Public Property hidden As String
|
|
End Class
|