Coin counter amount animation + row & column Font

P3D/Screens/VoltorbFlipScreen.vb

@@ -19,7 +19,7 @@ Namespace VoltorbFlip
         Private Shared ReadOnly GridSize As Integer = 5
 
         Public Shared GameOrigin As New Vector2(CInt(windowSize.Width - GameSize.Width / 2), CInt(windowSize.Height / 2 - GameSize.Height / 2))
-        Public Shared BoardOrigin As New Vector2(GameOrigin.X + 32, GameOrigin.Y + 32)
+        Public Shared BoardOrigin As New Vector2(GameOrigin.X + 32, GameOrigin.Y + 96)
 
         Private BoardCursorPosition As New Vector2(0, 0)
         Private BoardCursorDestination As New Vector2(0, 0)
@@ -684,13 +684,30 @@ Namespace VoltorbFlip
             'Completed the level
             If GameState = States.GameWon Then
                 TextBox.Show("Game clear! You received" & " " & CurrentCoins & " " & "Coins!")
-                TotalCoins += CurrentCoins
 
-                If TotalCoins > 99999 Then
-                    TotalCoins = 99999
-                End If
+                Dim ResultCoins As Integer = TotalCoins + CurrentCoins
+                Dim AnimationTotalCoins As Single = TotalCoins
+                Dim AnimationCurrentCoins As Single = CurrentCoins
+
+                While TotalCoins < ResultCoins
+                    AnimationTotalCoins += 0.05F
+                    If AnimationTotalCoins >= ResultCoins Then
+                        AnimationTotalCoins = ResultCoins
+                    End If
+
+                    AnimationCurrentCoins -= -0.05F
+                    If AnimationCurrentCoins <= 0 Then
+                        AnimationCurrentCoins = 0
+                    End If
+
+                    TotalCoins = CInt(Math.Floor(AnimationTotalCoins))
+                    If TotalCoins > 99999 Then
+                        TotalCoins = 99999
+                    End If
+
+                    CurrentCoins = CInt(Math.Ceiling(AnimationCurrentCoins))
+                End While
 
-                CurrentCoins = 0
                 'Flip all Tiles to reveal contents
                 For _row = 0 To GridSize
                     For _column = 0 To GridSize
@@ -703,7 +720,19 @@ Namespace VoltorbFlip
             'Revealed a Voltorb
             If GameState = States.GameLost Then
                 TextBox.Show("Oh no! You get 0 coins")
-                CurrentCoins = 0
+
+                Dim ResultCoins As Integer = 0
+                Dim AnimationCurrentCoins As Single = CurrentCoins
+
+                While CurrentCoins > ResultCoins
+                    AnimationCurrentCoins -= -0.05F
+                    If AnimationCurrentCoins <= 0 Then
+                        AnimationCurrentCoins = 0
+                    End If
+
+                    CurrentCoins = CInt(Math.Ceiling(AnimationCurrentCoins))
+                End While
+
                 'Flip all Tiles to reveal contents
                 For _row = 0 To GridSize
                     For _column = 0 To GridSize

lib/P3D.ContentPipeline/Content/Content.mgcb

@@ -88,6 +88,15 @@
 /processorParam:TextureFormat=Color
 /build:Fonts/BMP/Unown.png
 
+#begin Fonts/BMP/VoltorbFlipFont.png
+/importer:TextureImporter
+/processor:LocalizedFontTextureProcessor
+/processorParam:DefaultCharacter=?
+/processorParam:FirstCharacter=
+/processorParam:PremultiplyAlpha=True
+/processorParam:TextureFormat=Color
+/build:Fonts/BMP/VoltorbFlipFont.png
+
 #begin Models/BattlePike/BattlePike.fbx
 /importer:FbxImporter
 /processor:ModelProcessor

lib/P3D.ContentPipeline/Content/Fonts/BMP/VoltorbFlipFont.txt

@@ -0,0 +1 @@
+ 0123456789

lib/P3D.ContentPipeline/P3D.ContentPipeline.csproj

@@ -86,6 +86,8 @@
     <Content Include="Content\Fonts\BMP\TextFont.png" />
     <Content Include="Content\Fonts\BMP\TextFont.txt" />
     <Content Include="Content\Fonts\BMP\Unown.png" />
+    <Content Include="Content\Fonts\BMP\VoltorbFlipFont.png" />
+    <Content Include="Content\Fonts\BMP\VoltorbFlipFont.txt" />
     <Content Include="Content\Models\BattlePike\BattlePike.png" />
     <Content Include="Content\Models\boat2\Boat.png" />
     <Content Include="Content\Models\boat\SSAqua.png" />