From 3ae3a26e2b5290325e9bca076b61dabc508bcca2 Mon Sep 17 00:00:00 2001
From: CrystalMoogle <crystalmoogle@gmail.com>
Date: Sun, 16 Jul 2023 16:34:20 +0100
Subject: [PATCH] Add a delay to dealer drawing of cards

---
 BlackjackGUI/game.vb | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

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