From b4d386b7abf35ba1617d5d769f03aac5dc3462a9 Mon Sep 17 00:00:00 2001
From: ivabus <ivan@bushchik.ru>
Date: Mon, 17 Jan 2022 10:20:03 +0300
Subject: [PATCH] =?UTF-8?q?=D0=92=D1=8B=D0=BD=D0=BE=D1=81=20=D0=BC=D0=B5?=
 =?UTF-8?q?=D0=BD=D1=8E=20=D0=B2=20=D0=BE=D1=82=D0=B4=D0=B5=D0=BB=D1=8C?=
 =?UTF-8?q?=D0=BD=D1=83=D1=8E=20=D1=84=D1=83=D0=BD=D0=BA=D1=86=D0=B8=D1=8E?=
 =?UTF-8?q?,=20=D0=B4=D0=BB=D1=8F=20=D0=B8=D0=B7=D0=B1=D0=B5=D0=B6=D0=B0?=
 =?UTF-8?q?=D0=BD=D0=B8=D1=8F=20=D0=BF=D0=BE=D0=BA=D0=B0=D0=B7=D0=B0=20?=
 =?UTF-8?q?=D0=B8=D0=BD=D1=82=D1=80=D0=BE=20=D0=BD=D0=B5=D1=81=D0=BA=D0=BE?=
 =?UTF-8?q?=D0=BB=D1=8C=D0=BA=D0=BE=20=D1=80=D0=B0=D0=B7?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 roulette/Program.vb | 62 +++++++++++++++++++++++++--------------------
 1 file changed, 35 insertions(+), 27 deletions(-)

diff --git a/roulette/Program.vb b/roulette/Program.vb
index eef1abd..16515ca 100644
--- a/roulette/Program.vb
+++ b/roulette/Program.vb
@@ -435,6 +435,40 @@ Module Program
 		Dim sr As Double = mass.Sum() / Count
 		pogr = Math.abs((sr - 0.5) / 0.5) * 100
 		Console.WriteLine(strings(LANG,26) + pogr.ToString("0.#####") + "%")
+		Console.ReadKey()
+	End Sub
+
+
+	Sub Menu()
+			Console.Clear()
+			Console.WriteLine(strings(LANG, 27))
+			Console.WriteLine(strings(LANG, 28))
+			Console.WriteLine(strings(LANG, 29))
+			Console.WriteLine(strings(LANG, 30))
+			Console.WriteLine(strings(LANG, 31))
+			Console.WriteLine(strings(LANG, 32))
+			Console.WriteLine(strings(LANG, 33))
+			Console.Write(">>> ")
+			Dim input As Integer = Console.ReadLine
+			Select Case input
+				Case 0
+					Exit Sub
+				Case 1
+					Console.Clear()
+					Game()
+					Menu()
+				Case 2
+					Rules()
+					Menu()
+				Case 3
+					About()
+					Menu()
+				Case 4
+					TestGenerator()
+					Menu()
+				Case Else
+					Exit Sub
+			End Select
 	End Sub
 
 	Sub Main()
@@ -457,33 +491,7 @@ Module Program
 			End If
 			
 			Intro()
-			Console.WriteLine(strings(LANG, 27))
-			Console.WriteLine(strings(LANG, 28))
-			Console.WriteLine(strings(LANG, 29))
-			Console.WriteLine(strings(LANG, 30))
-			Console.WriteLine(strings(LANG, 31))
-			Console.WriteLine(strings(LANG, 32))
-			Console.WriteLine(strings(LANG, 33))
-			Console.Write(">>> ")
-			Dim input As Integer = Console.ReadLine
-			Select Case input
-				Case 0
-					Exit Sub
-				Case 1
-					Console.Clear
-						Game()
-					Main()
-				Case 2
-					Rules()
-					Main()
-				Case 3
-					About()
-					Main()
-				Case 4
-					TestGenerator()
-				Case Else
-					Exit Sub
-			End Select
+			Menu()
 		Catch
 			Console.WriteLine(strings(LANG, 34))
 			Exit Sub