mirror of
https://github.com/ivabus/roulette
synced 2024-11-22 08:25:09 +03:00
Code cleanup
This commit is contained in:
Ivan Bushchik
parent
c325db2fd7
commit
1f84830c17
1 changed files with 109 additions and 89 deletions
|
|
@ -1,13 +1,21 @@
|
|||
Imports System
|
||||
|
||||
|
||||
Module Program
|
||||
'https://github.com/BushchikIvan/roulette
|
||||
Dim ring(,) As Integer = {{0, 32, 15, 19, 4, 21, 2, 25, 17, 34, 6, 27, 13, 36, 11, 30, 8, 23, 10, 5, 24, 16, 33, 1, 20, 14, 31, 9, 22,18, 29, 7, 28, 12, 35, 3, 26},
|
||||
Dim ReadOnly _
|
||||
ring(,) As Integer =
|
||||
{{0, 32, 15, 19, 4, 21, 2, 25, 17, 34, 6, 27, 13, 36, 11, 30, 8, 23, 10, 5, 24, 16, 33, 1, 20, 14, 31, 9, 22, 18, 29,
|
||||
7, 28, 12, 35, 3, 26},
|
||||
{0, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2}}
|
||||
Dim colors() As ConsoleColor = {ConsoleColor.White, ConsoleColor.Red, ConsoleColor.Black}
|
||||
Dim ringRank0() As Integer = {0, 32, 15, 19, 4, 21, 2, 25, 17, 34, 6, 27, 13, 36, 11, 30, 8, 23, 10, 5, 24, 16, 33, 1, 20, 14, 31, 9, 22,18, 29, 7, 28, 12, 35, 3, 26}
|
||||
|
||||
Dim ReadOnly colors() As ConsoleColor = {ConsoleColor.White, ConsoleColor.Red, ConsoleColor.Black}
|
||||
|
||||
Dim ReadOnly _
|
||||
ringRank0() As Integer =
|
||||
{0, 32, 15, 19, 4, 21, 2, 25, 17, 34, 6, 27, 13, 36, 11, 30, 8, 23, 10, 5, 24, 16, 33, 1, 20, 14, 31, 9, 22, 18, 29,
|
||||
7, 28, 12, 35, 3, 26}
|
||||
'ringRank0 нужен, чтобы было удобно подавать массив в поиск индекса
|
||||
Dim logo() As String = {
|
||||
Dim ReadOnly logo() As String = { _
|
||||
"#### ### # # # ##### ##### ##### #####",
|
||||
"# # # # # # # # # # # ",
|
||||
"# # # # # # # # # # # ",
|
||||
|
|
@ -35,7 +43,7 @@ Module Program
|
|||
Console.ForegroundColor = ConsoleColor.DarkBlue
|
||||
End Sub
|
||||
|
||||
Function RemoveAt(Of T)(ByVal arr As T(), ByVal index As Integer) As T()
|
||||
Function RemoveAt (Of T)(arr As T(), index As Integer) As T()
|
||||
Dim uBound = arr.GetUpperBound(0)
|
||||
Dim lBound = arr.GetLowerBound(0)
|
||||
Dim arrLen = uBound - lBound
|
||||
|
|
@ -67,7 +75,8 @@ Module Program
|
|||
Next
|
||||
For i = 0 To Console.WindowHeight - (Console.WindowHeight()\2 - UBound(logo) + 2) - 3
|
||||
Console.Write(StrDup((Console.WindowWidth\2 - Len(logo(0))\2)\2, "#"))
|
||||
Console.SetCursorPosition(Console.WindowWidth - (Console.WindowWidth \ 2 - Len(logo(0)) \ 2) \ 2, (Console.GetCursorPosition().Item2))
|
||||
Console.SetCursorPosition(Console.WindowWidth - (Console.WindowWidth\2 - Len(logo(0))\2)\2,
|
||||
(Console.GetCursorPosition().Item2))
|
||||
Console.WriteLine(StrDup((Console.WindowWidth\2 - Len(logo(0))\2)\2 - 1, "#"))
|
||||
sleep(0.04444)
|
||||
Next
|
||||
|
|
@ -75,14 +84,17 @@ Module Program
|
|||
Console.WriteLine(StrDup(Console.WindowWidth - 1, "#"))
|
||||
sleep(0.04444)
|
||||
Next
|
||||
Dim entr As String = " Нажмите любую кнопку, чтобы начать игру! "
|
||||
Console.SetCursorPosition((Console.WindowWidth \ 2) - Len(entr) \ 2,Console.WindowHeight - (Console.WindowHeight()\2 - UBound(logo) + 2) \ 4 - 3)
|
||||
Dim entr = " Нажмите любую кнопку, чтобы начать игру! "
|
||||
Console.SetCursorPosition((Console.WindowWidth\2) - Len(entr)\2,
|
||||
Console.WindowHeight - (Console.WindowHeight()\2 - UBound(logo) + 2)\4 - 3)
|
||||
Console.Write(StrDup(Len(entr) + 2, " "))
|
||||
|
||||
Console.SetCursorPosition((Console.WindowWidth \ 2) - Len(entr) \ 2,Console.WindowHeight - (Console.WindowHeight()\2 - UBound(logo) + 2) \ 4 - 2)
|
||||
Console.SetCursorPosition((Console.WindowWidth\2) - Len(entr)\2,
|
||||
Console.WindowHeight - (Console.WindowHeight()\2 - UBound(logo) + 2)\4 - 2)
|
||||
Console.Write(entr & " ")
|
||||
|
||||
Console.SetCursorPosition((Console.WindowWidth \ 2) - Len(entr) \ 2,Console.WindowHeight - (Console.WindowHeight()\2 - UBound(logo) + 2) \ 4 - 1)
|
||||
Console.SetCursorPosition((Console.WindowWidth\2) - Len(entr)\2,
|
||||
Console.WindowHeight - (Console.WindowHeight()\2 - UBound(logo) + 2)\4 - 1)
|
||||
Console.Write(StrDup(Len(entr) + 2, " "))
|
||||
Console.SetCursorPosition(0, 0)
|
||||
Console.ReadKey
|
||||
|
|
@ -249,7 +261,8 @@ Module Program
|
|||
Console.WriteLine("Рекомендуемое разрешение консоли: 100x35")
|
||||
Console.WriteLine("Минимальное разрешение консоли: 100х20")
|
||||
Console.WriteLine("Правила:")
|
||||
Console.WriteLine("Игра представляет собой Европейскую рулетку. Игрок должен сделать ставку на определённую зону, будь то число, сектор, строка, чётность или цвет. Игрок может делать несколько ставок. Ставки вводятся в предоставленную зону через пробел.")
|
||||
Console.WriteLine(
|
||||
"Игра представляет собой Европейскую рулетку. Игрок должен сделать ставку на определённую зону, будь то число, сектор, строка, чётность или цвет. Игрок может делать несколько ставок. Ставки вводятся в предоставленную зону через пробел.")
|
||||
Console.WriteLine("<число 0 - 36> - ставка на число (1:36).")
|
||||
Console.WriteLine("1L/2L/3L - 1/2/3 линия соответственно, снизу вверх (1:3).")
|
||||
Console.WriteLine("F12/S12/T12 - ставка на сектора от 1 по 12/от 13 по 24/от 25 по 36 соответственно (1:3).")
|
||||
|
|
@ -257,11 +270,13 @@ Module Program
|
|||
Console.WriteLine("TO18/FROM18 - ставка на сектор от 1 по 18/от 19 по 36 (1:2).")
|
||||
Console.WriteLine("EVEN/ODD - чётные/нечётные (1:2).")
|
||||
Console.WriteLine("Игрок изначально получает 5000 фишек.")
|
||||
Console.WriteLine("После того, как игрок укажет, на что ставит, он указывает количество фишек на каждую ставку через пробел.")
|
||||
Console.WriteLine(
|
||||
"После того, как игрок укажет, на что ставит, он указывает количество фишек на каждую ставку через пробел.")
|
||||
Console.WriteLine("Например:")
|
||||
Console.WriteLine("Делайте ставки >>> 0 16 2L T12 RED ODD")
|
||||
Console.WriteLine("Укажите суммы ставок >>> 100 50 500 500 1000 1000")
|
||||
Console.WriteLine("ВНИМАНИЕ! Количество ставок должно совпадать с количеством фишек, которые ставите, в примере 6 = 6.")
|
||||
Console.WriteLine(
|
||||
"ВНИМАНИЕ! Количество ставок должно совпадать с количеством фишек, которые ставите, в примере 6 = 6.")
|
||||
Console.WriteLine("Или просто нажмите ENTER, чтобы пропустить ставку.")
|
||||
Console.WriteLine("Удачи!")
|
||||
Console.ReadKey()
|
||||
|
|
@ -330,11 +345,15 @@ Module Program
|
|||
fish += summ(indedx)*35
|
||||
'stav.RemoveAt(indedx)
|
||||
'summs.RemoveAt(indedx)
|
||||
Else If generated(i) = "RED" Or generated(i) = "BLACK" Or generated(i) = "ODD" Or generated(i) = "EVEN" Or generated(i) = "FROM18" Or generated(i) = "TO18" Then
|
||||
Else If _
|
||||
generated(i) = "RED" Or generated(i) = "BLACK" Or generated(i) = "ODD" Or generated(i) = "EVEN" Or
|
||||
generated(i) = "FROM18" Or generated(i) = "TO18" Then
|
||||
fish += summ(indedx)*1
|
||||
'stav.RemoveAt(indedx)
|
||||
'summs.RemoveAt(indedx)
|
||||
Else If generated(i) = "3L" Or generated(i) = "2L" Or generated(i) = "1L" Or generated(i) = "F12" Or generated(i) = "S12" Or generated(i) = "T12" Then
|
||||
Else If _
|
||||
generated(i) = "3L" Or generated(i) = "2L" Or generated(i) = "1L" Or generated(i) = "F12" Or generated(i) = "S12" Or
|
||||
generated(i) = "T12" Then
|
||||
fish += summ(indedx)*2
|
||||
'stav.RemoveAt(indedx)
|
||||
'summs.RemoveAt(indedx)
|
||||
|
|
@ -373,7 +392,8 @@ Module Program
|
|||
Console.WriteLine("3) Выйти из игры")
|
||||
Console.Write(">>> ")
|
||||
Dim input As Char = Console.ReadKey.KeyChar
|
||||
Dim n As Integer = If(Int(input.ToString()) = 1 Or Int(input.ToString()) = 2 Or Int(input.ToString()) = 3, Int(input.ToString()), 0)
|
||||
Dim n As Integer =
|
||||
If(Int(input.ToString()) = 1 Or Int(input.ToString()) = 2 Or Int(input.ToString()) = 3, Int(input.ToString()), 0)
|
||||
Select Case n
|
||||
Case 0
|
||||
Console.WriteLine()
|
||||
|
|
|
|||
Loading…
Reference in a new issue