ivabus/roulette
1
0
Fork 0
mirror of https://github.com/ivabus/roulette synced 2024-11-26 10:25:07 +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("Игрок изначально получает 5000 фишек.")
Console.WriteLine("После того, как игрок укажет, на что ставит, он указывает количество фишек на каждую ставку через пробел.") Console.WriteLine("После того, как игрок укажет, на что ставит, он указывает количество фишек на каждую ставку через пробел.")
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("Сколько ставите: 100 50 500 500 1000 1000")
Console.WriteLine("ВНИМАНИЕ! Количество ставок должно совпадать с количеством фишек, которые ставите, в примере 6 = 6.")
Console.WriteLine("Удачи!") Console.WriteLine("Удачи!")
Console.ReadKey()
End Sub End Sub
Sub game() Sub game()
@ -167,6 +169,8 @@ Module Program
Console.WriteLine("2) Ознакомиться с правилами") Console.WriteLine("2) Ознакомиться с правилами")
Console.WriteLine("3) Выйти из игры") Console.WriteLine("3) Выйти из игры")
Dim n As Integer = Console.ReadLine Dim n As Integer = Console.ReadLine
Dim history As New List(Of Integer)
Dim historyC As New List(Of Integer)
Select Case n Select Case n
Case 1 Case 1
game() game()