zana
/
BlackjackGUI
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Specify data types for parameters

master
CrystalMoogle 2023-07-16 15:54:53 +01:00
parent eb37ba7c41
commit d4511f6ffa
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
BlackjackGUI/game.vb
View File

@ -15,9 +15,9 @@
player.Start() player.Start()
dealer.Start() dealer.Start()
DealCard(player) DealCard(player)
DealCard(dealer, isDealer:=True) DealCard(dealer)
DealCard(player) DealCard(player)
DealCard(dealer, isDealer:=True, hide:=True) DealCard(dealer, hide:=True)
CheckPlayer(player) CheckPlayer(player)
CheckPlayer(dealer, True) CheckPlayer(dealer, True)
End Sub End Sub
@ -27,7 +27,7 @@
deck = CreateDeck() deck = CreateDeck()
RaiseEvent ResetUI() RaiseEvent ResetUI()
End Sub End Sub
Sub DealCard(playerDealt, Optional isDealer = False, Optional hide = False) Sub DealCard(playerDealt As Object, Optional hide As Boolean = False)
Dim card As Tuple(Of String, String) = deck(0) Dim card As Tuple(Of String, String) = deck(0)
playerDealt.hand.Add(card) playerDealt.hand.Add(card)
deck.RemoveAt(0) deck.RemoveAt(0)
@ -35,12 +35,12 @@
If hide Then If hide Then
playerDealt.hidden = card playerDealt.hidden = card
End If End If
Dim cardNumber As String = If(isDealer, (playerDealt.hand.Count + 5).ToString(), playerDealt.hand.Count) Dim cardNumber As String = If(TypeOf playerDealt Is Dealer, (playerDealt.hand.Count + 5).ToString(), playerDealt.hand.Count)
RaiseEvent CardDealt(card, cardNumber, hide) RaiseEvent CardDealt(card, cardNumber, hide)
RaiseEvent SetTotalLabels(player.total, dealer.total) RaiseEvent SetTotalLabels(player.total, dealer.total)
End Sub End Sub
Sub GetTotal(playerToCheck, Optional hide = False) Sub GetTotal(playerToCheck As Object, Optional hide As Boolean = False)
If hide Then If hide Then
Exit Sub Exit Sub
End If End If
@ -69,15 +69,15 @@
End While End While
playerToCheck.total = total playerToCheck.total = total
End Sub End Sub
Sub CheckPlayer(playerToCheck, Optional peek = False) Sub CheckPlayer(playerToCheck As Object, Optional peek As Boolean = False)
If playerToCheck.total = 21 And playerToCheck.hand.count = 2 And peek Then If playerToCheck.total = 21 And playerToCheck.hand.Count = 2 And peek Then
playerToCheck.winType = WinCondition.Blackjack playerToCheck.winType = WinCondition.Blackjack
playerToCheck.ingame = False playerToCheck.ingame = False
player.ingame = False player.ingame = False
DealerTurn() DealerTurn()
Exit Sub Exit Sub
End If End If
If playerToCheck.total = 21 And playerToCheck.hand.count = 2 Then If playerToCheck.total = 21 And playerToCheck.hand.Count = 2 Then
playerToCheck.winType = WinCondition.Blackjack playerToCheck.winType = WinCondition.Blackjack
playerToCheck.ingame = False playerToCheck.ingame = False
dealer.ingame = False dealer.ingame = False
@ -86,7 +86,7 @@
playerToCheck.winType = WinCondition.Bust playerToCheck.winType = WinCondition.Bust
playerToCheck.ingame = False playerToCheck.ingame = False
DealerTurn() DealerTurn()
ElseIf playerToCheck.total < 22 And playerToCheck.hand.count = 5 Then ElseIf playerToCheck.total < 22 And playerToCheck.hand.Count = 5 Then
playerToCheck.winType = WinCondition.FiveCard playerToCheck.winType = WinCondition.FiveCard
playerToCheck.ingame = False playerToCheck.ingame = False
dealer.ingame = False dealer.ingame = False
@ -114,7 +114,7 @@
dealer.winType = WinCondition.Bust dealer.winType = WinCondition.Bust
player.ingame = False player.ingame = False
ElseIf dealer.total < dealer.limit Then ElseIf dealer.total < dealer.limit Then
DealCard(dealer, isDealer:=True) DealCard(dealer)
DealerTurn() DealerTurn()
Else Else
dealer.winType = WinCondition.NormalWin dealer.winType = WinCondition.NormalWin