From 2455812fb266b2a00ba5f9b967888d4ce216b3a5 Mon Sep 17 00:00:00 2001
From: CrystalMoogle <crystalmoogle@gmail.com>
Date: Sun, 16 Jul 2023 17:40:28 +0100
Subject: [PATCH] Add a message for dealer's turn, also an event to add any
 message if needed in the future

---
 BlackjackGUI/BlackjackGUI.vbproj | 74 ++++++++++++++++----------------
 BlackjackGUI/GameWindow.vb       |  4 ++
 BlackjackGUI/game.vb             |  2 +
 3 files changed, 43 insertions(+), 37 deletions(-)

diff --git a/BlackjackGUI/BlackjackGUI.vbproj b/BlackjackGUI/BlackjackGUI.vbproj
index 5ea8328..4cdb678 100644
--- a/BlackjackGUI/BlackjackGUI.vbproj
+++ b/BlackjackGUI/BlackjackGUI.vbproj
@@ -1,45 +1,45 @@
 <Project Sdk="Microsoft.NET.Sdk">
 
-  <PropertyGroup>
-    <OutputType>WinExe</OutputType>
-    <TargetFramework>net6.0-windows</TargetFramework>
-    <StartupObject>Sub Main</StartupObject>
-    <UseWindowsForms>true</UseWindowsForms>
-    <MyType>WindowsForms</MyType>
-  </PropertyGroup>
+	<PropertyGroup>
+		<OutputType>WinExe</OutputType>
+		<TargetFramework>net6.0-windows</TargetFramework>
+		<StartupObject>Sub Main</StartupObject>
+		<UseWindowsForms>true</UseWindowsForms>
+		<MyType>WindowsForms</MyType>
+	</PropertyGroup>
 
-  <ItemGroup>
-    <Import Include="System.Data" />
-    <Import Include="System.Drawing" />
-    <Import Include="System.Windows.Forms" />
-  </ItemGroup>
+	<ItemGroup>
+		<Import Include="System.Data" />
+		<Import Include="System.Drawing" />
+		<Import Include="System.Windows.Forms" />
+	</ItemGroup>
 
-  <ItemGroup>
-    <Compile Update="My Project\Application.Designer.vb">
-      <DesignTime>True</DesignTime>
-      <AutoGen>True</AutoGen>
-      <DependentUpon>Application.myapp</DependentUpon>
-    </Compile>
-    <Compile Update="My Project\Resources.Designer.vb">
-      <DesignTime>True</DesignTime>
-      <AutoGen>True</AutoGen>
-      <DependentUpon>Resources.resx</DependentUpon>
-    </Compile>
-  </ItemGroup>
+	<ItemGroup>
+		<Compile Update="My Project\Application.Designer.vb">
+			<DesignTime>True</DesignTime>
+			<AutoGen>True</AutoGen>
+			<DependentUpon>Application.myapp</DependentUpon>
+		</Compile>
+		<Compile Update="My Project\Resources.Designer.vb">
+			<DesignTime>True</DesignTime>
+			<AutoGen>True</AutoGen>
+			<DependentUpon>Resources.resx</DependentUpon>
+		</Compile>
+	</ItemGroup>
 
-  <ItemGroup>
-    <EmbeddedResource Update="My Project\Resources.resx">
-      <CustomToolNamespace>My.Resources</CustomToolNamespace>
-      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
-      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
-    </EmbeddedResource>
-  </ItemGroup>
+	<ItemGroup>
+		<EmbeddedResource Update="My Project\Resources.resx">
+			<CustomToolNamespace>My.Resources</CustomToolNamespace>
+			<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+			<LastGenOutput>Resources.Designer.vb</LastGenOutput>
+		</EmbeddedResource>
+	</ItemGroup>
 
-  <ItemGroup>
-    <None Update="My Project\Application.myapp">
-      <Generator>MyApplicationCodeGenerator</Generator>
-      <LastGenOutput>Application.Designer.vb</LastGenOutput>
-    </None>
-  </ItemGroup>
+	<ItemGroup>
+		<None Update="My Project\Application.myapp">
+			<Generator>MyApplicationCodeGenerator</Generator>
+			<LastGenOutput>Application.Designer.vb</LastGenOutput>
+		</None>
+	</ItemGroup>
 
 </Project>
\ No newline at end of file
diff --git a/BlackjackGUI/GameWindow.vb b/BlackjackGUI/GameWindow.vb
index 84ccc66..2a7c19b 100644
--- a/BlackjackGUI/GameWindow.vb
+++ b/BlackjackGUI/GameWindow.vb
@@ -59,6 +59,10 @@
         StandButton.Enabled = False
     End Sub
 
+    Private Sub MessageLabel(message) Handles game.MessageLabel
+        WinMessage.Text = message
+    End Sub
+
     Private Sub EndGame(message) Handles game.EndGame
         WinMessage.Text = message
         HitButton.Enabled = False
diff --git a/BlackjackGUI/game.vb b/BlackjackGUI/game.vb
index 4f6f4e3..e16cdb9 100644
--- a/BlackjackGUI/game.vb
+++ b/BlackjackGUI/game.vb
@@ -5,6 +5,7 @@
     Public Event ShowDealerCard(card)
     Public Event EndPlayerTurn()
     Public Event EndGame(winMessage)
+    Public Event MessageLabel(message)
 
     Private player As Player
     Private dealer As Dealer
@@ -108,6 +109,7 @@
 
     Sub DealerTurn()
         GetTotal(dealer)
+        RaiseEvent MessageLabel("Dealer's turn...")
         RaiseEvent EndPlayerTurn()
         RaiseEvent SetTotalLabels(player.total, dealer.total)
         RaiseEvent ShowDealerCard(dealer.hidden)