master
CrystalMoogle 2023-07-21 18:20:29 +01:00
parent a368d0af41
commit 9581591605
1 changed files with 2 additions and 2 deletions

View File

@ -34,7 +34,7 @@
Sub DealCard(playerDealt As Object, Optional hide As Boolean = False)
Dim card As Tuple(Of String, String) = deck(0)
Dim playingCard = New Card(card, hide)
playerDealt.hand.Add(card)
playerDealt.hand.Add(playingCard)
deck.RemoveAt(0)
GetTotal(playerDealt, hide)
If hide Then
@ -43,7 +43,7 @@
Dim cardNumber As String =
If(TypeOf playerDealt Is Dealer, (playerDealt.hand.Count + 5).ToString(), playerDealt.hand.Count)
RaiseEvent CardDealt(card, cardNumber, hide)
RaiseEvent CardDealt(playingCard, cardNumber, hide)
RaiseEvent SetTotalLabels(player.total, dealer.total)
End Sub