From 683eaa2db5e644ebf80c7a5b9e9599361d3b2448 Mon Sep 17 00:00:00 2001
From: ivabus <ivabus06@yandex.ru>
Date: Fri, 2 Apr 2021 20:52:31 +0300
Subject: [PATCH] Adding game 5%

---
 Ruletka/Program.vb | 26 +++++++++++++++++++++++++-
 1 file changed, 25 insertions(+), 1 deletion(-)

diff --git a/Ruletka/Program.vb b/Ruletka/Program.vb
index 0e8f8d4..260a3e2 100644
--- a/Ruletka/Program.vb
+++ b/Ruletka/Program.vb
@@ -12,6 +12,12 @@ Module Program
         Next
     End Function
     
+    Sub sleep(d As Single)
+        Dim t As Single = Timer
+        Do while Timer - t < d
+        Loop
+    End Sub
+    
     Function spinWheel() As String()
         Dim rnd As New Random
         Dim probability(36) As Double
@@ -150,11 +156,30 @@ Module Program
         Console.WriteLine("На что ставите: 0 16 2L T12 RED ODD")
         Console.WriteLine("Сколько ставите: 100 50 500 500 1000 1000")
         Console.WriteLine("ВНИМАНИЕ! Количество ставок должно совпадать с количеством фишек, которые ставите, в примере 6 = 6.")
+        Console.WriteLine("Или просто нажмите ENTER, чтобы пропустить ставку.")
         Console.WriteLine("Удачи!")
         Console.ReadKey()
     End Sub
     
     Sub game()
+        Console.WriteLine("Игра началась!")
+        Dim fish As Long = 5000
+        Dim isGaming As Boolean = True
+        Do while isGaming xor fish
+            
+            
+            
+            
+            
+            Console.WriteLine("У Вас {0} фишек.", fish)
+            Console.WriteLine("Продолжить игру? (Y/n)")
+            Dim temp As String = Console.ReadLine()
+            If temp = "n" or temp = "N" Then
+                isGaming = False
+            Else IF temp = "" or temp = "y" or temp = "Y"
+                isGaming = True
+            End If
+        Loop
         
     End Sub
     
@@ -181,6 +206,5 @@ Module Program
             Case 3
                 Exit Sub
         End Select
-        Console.ReadKey()
     End Sub
 End Module