ivabus/roulette
1
0
Fork 0
mirror of https://github.com/ivabus/roulette synced 2024-11-22 08:25:09 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

Rules FINALLY done

Browse source
This commit is contained in:
ivabus 2021-03-22 14:08:35 +03:00
parent 43d5d5cf65
commit 434d421e4f
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Ruletka/Program.vb
View file

@ -147,9 +147,11 @@ Module Program
Console.WriteLine("Игрок изначально получает 5000 фишек.")
Console.WriteLine("После того, как игрок укажет, на что ставит, он указывает количество фишек на каждую ставку через пробел.")
Console.WriteLine("Например:")
Console.WriteLine("На что ставите: 0 16 2L T12 RED ODD")
Console.WriteLine("На что ставите: 0 16 2L T12 RED ODD")
Console.WriteLine("Сколько ставите: 100 50 500 500 1000 1000")
Console.WriteLine("ВНИМАНИЕ! Количество ставок должно совпадать с количеством фишек, которые ставите, в примере 6 = 6.")
Console.WriteLine("Удачи!")
Console.ReadKey()
End Sub
Sub game()
@ -167,6 +169,8 @@ Module Program
Console.WriteLine("2) Ознакомиться с правилами")
Console.WriteLine("3) Выйти из игры")
Dim n As Integer = Console.ReadLine
Dim history As New List(Of Integer)
Dim historyC As New List(Of Integer)
Select Case n
Case 1
game()