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

Add a delay to dealer drawing of cards

master
CrystalMoogle 2023-07-16 16:34:20 +01:00
parent 12b6bb7358
commit 3ae3a26e2b
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
BlackjackGUI/game.vb
View File

@ -8,7 +8,7 @@
Private player As Player Private player As Player
Private dealer As Dealer Private dealer As Dealer
Private deck As List(Of Tuple(Of String, String)) Private deck As List(Of Tuple(Of String, String))
Private WithEvents dealerDelay As Timer
Public Sub Start() Public Sub Start()
Init() Init()
player.Start() player.Start()
@ -116,14 +116,24 @@
dealer.winType = WinCondition.Bust dealer.winType = WinCondition.Bust
player.ingame = False player.ingame = False
ElseIf dealer.total < dealer.limit And dealer.hand.Count < 5 Then ElseIf dealer.total < dealer.limit And dealer.hand.Count < 5 Then
DealCard(dealer) dealerDelay = New Timer With {
DealerTurn() .Interval = 1000
}
dealerDelay.Start()
Exit Sub
Else Else
dealer.winType = WinCondition.NormalWin dealer.winType = WinCondition.NormalWin
End If End If
End If End If
CheckGame() CheckGame()
End Sub End Sub
Sub OnTickDealerDelay(sender As Object, e As EventArgs) Handles dealerDelay.Tick
dealerDelay.Stop()
dealerDelay.Dispose()
DealCard(dealer)
DealerTurn()
End Sub
Sub Hit() Sub Hit()
If player.hand.Count < 5 And player.ingame Then If player.hand.Count < 5 And player.ingame Then
DealCard(player) DealCard(player)