mirror of
https://github.com/ivabus/roulette
synced 2024-11-22 08:25:09 +03:00
Clearing code
This commit is contained in:
Ivan Bushchik
parent
9cd2aac5c4
commit
f86b9d41c4
1 changed files with 378 additions and 383 deletions
|
|
@ -1,387 +1,382 @@
|
|||
Imports System
|
||||
|
||||
Module Program
|
||||
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},
|
||||
{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 intr() As String = {
|
||||
"#### ### # # # ##### ##### ##### #####",
|
||||
"# # # # # # # # # # # ",
|
||||
"# # # # # # # # # # # ",
|
||||
"# # # # # # # # # # # ",
|
||||
"#### # # # # # #### # # #### ",
|
||||
"## # # # # # # # # # ",
|
||||
"# # # # # # # # # # # ",
|
||||
"# # # # # # # # # # # ",
|
||||
"# # ### ### ##### ##### # # ##### "}
|
||||
Function GetIndex(mass() As Integer, obj As Integer) As Integer
|
||||
For i = 0 To UBound(mass)
|
||||
If mass(i) = obj Then Return i
|
||||
Next
|
||||
End Function
|
||||
|
||||
Sub displayHistory(history() As Integer)
|
||||
Console.ForegroundColor = ConsoleColor.DarkBlue
|
||||
Console.Write("История выпадений (последние 10): ")
|
||||
Dim start As Integer = If(Ubound(history) > 9, Ubound(history) - 10, 0)
|
||||
For i = start To UBound(history)
|
||||
Console.ForegroundColor = colors(ring(1,getindex(ringRank0, history(i))))
|
||||
Console.Write(history(i) & " ")
|
||||
Next
|
||||
Console.ForegroundColor = ConsoleColor.DarkBlue
|
||||
End Sub
|
||||
|
||||
Function RemoveAt(Of T)(ByVal arr As T(), ByVal index As Integer) As T()
|
||||
Dim uBound = arr.GetUpperBound(0)
|
||||
Dim lBound = arr.GetLowerBound(0)
|
||||
Dim arrLen = uBound - lBound
|
||||
|
||||
If index < lBound OrElse index > uBound Then
|
||||
Throw New ArgumentOutOfRangeException( _
|
||||
String.Format("Index must be from {0} to {1}.", lBound, uBound))
|
||||
Else
|
||||
Dim outArr(arrLen - 1) As T
|
||||
Array.Copy(arr, 0, outArr, 0, index)
|
||||
Array.Copy(arr, index + 1, outArr, index, uBound - index)
|
||||
Return outArr
|
||||
End If
|
||||
End Function
|
||||
|
||||
Sub sleep(d As Single)
|
||||
Dim t As Single = Timer
|
||||
Do while Timer - t < d
|
||||
Loop
|
||||
End Sub
|
||||
|
||||
Sub intro()
|
||||
Console.ForegroundColor = ConsoleColor.DarkBlue
|
||||
Console.SetCursorPosition(Console.WindowWidth \ 2 - Len(intr(0))\2,Console.WindowHeight()\2 - UBound(intr) + 3)
|
||||
For i = 0 To UBound(intr)
|
||||
Console.WriteLine(intr(i))
|
||||
Console.SetCursorPosition(Console.WindowWidth \ 2 - Len(intr(0))\2, Console.GetCursorPosition().Item2)
|
||||
sleep(0.0888)
|
||||
Next
|
||||
'sleep(5)
|
||||
Console.SetCursorPosition(0,0)
|
||||
For i = 0 To (Console.WindowHeight()\2 - UBound(intr) + 2) \ 2
|
||||
Console.WriteLine(StrDup(Console.WindowWidth-1, "#"))
|
||||
sleep(0.0888)
|
||||
Next
|
||||
For i = 0 To Console.WindowHeight - (Console.WindowHeight()\2 - UBound(intr) + 2) - 3
|
||||
Console.Write(StrDup((Console.WindowWidth \ 2 - Len(intr(0)) \ 2) \ 2, "#"))
|
||||
Console.SetCursorPosition(Console.WindowWidth - (Console.WindowWidth \ 2 - Len(intr(0)) \ 2) \ 2, (Console.GetCursorPosition().Item2))
|
||||
Console.WriteLine(StrDup((Console.WindowWidth \ 2 - Len(intr(0)) \ 2) \ 2 - 1, "#"))
|
||||
sleep(0.0888)
|
||||
Next
|
||||
For i = 0 To (Console.WindowHeight()\2 - UBound(intr) + 2) \ 2
|
||||
Console.WriteLine(StrDup(Console.WindowWidth-1, "#"))
|
||||
sleep(0.0888)
|
||||
Next
|
||||
Dim entr As String = " Нажмите любую кнопку, чтобы начать игру! "
|
||||
Console.SetCursorPosition((Console.WindowWidth \ 2) - Len(entr) \ 2,Console.WindowHeight - (Console.WindowHeight()\2 - UBound(intr) + 2) \ 4 - 1)
|
||||
Console.Write(StrDup(Len(entr) + 2, " "))
|
||||
|
||||
Console.SetCursorPosition((Console.WindowWidth \ 2) - Len(entr) \ 2,Console.WindowHeight - (Console.WindowHeight()\2 - UBound(intr) + 2) \ 4)
|
||||
Console.Write(entr & " ")
|
||||
|
||||
Console.SetCursorPosition((Console.WindowWidth \ 2) - Len(entr) \ 2,Console.WindowHeight - (Console.WindowHeight()\2 - UBound(intr) + 2) \ 4 + 1)
|
||||
Console.Write(StrDup(Len(entr) + 2, " "))
|
||||
|
||||
Console.ReadKey
|
||||
Console.Clear
|
||||
End Sub
|
||||
|
||||
Function spinWheel() As String()
|
||||
Dim rnd As New Random
|
||||
Dim probability(36) As Double
|
||||
Dim whatDropped As New List(Of String)
|
||||
|
||||
For k = 0 To rnd.Next(1,5)
|
||||
For i = 0 To rnd.Next(1,rnd.Next(5,100))
|
||||
rnd.NextDouble()
|
||||
Next
|
||||
Next
|
||||
|
||||
Dim max As Double = 0
|
||||
Dim dropped As Integer
|
||||
|
||||
For i = 0 To 36
|
||||
probability(i) = rnd.NextDouble()
|
||||
if probability(i) > max then
|
||||
max = probability(i)
|
||||
dropped = i
|
||||
End If
|
||||
Next
|
||||
|
||||
whatDropped.Add(ring(0,dropped).ToString())
|
||||
|
||||
If ring(0, dropped) mod 2 = 0 And dropped > 0
|
||||
whatDropped.Add("EVEN")
|
||||
Else
|
||||
whatDropped.Add("ODD")
|
||||
End If
|
||||
|
||||
If ring(0, dropped) mod 3 = 0 And dropped > 0
|
||||
whatDropped.Add("3L")
|
||||
Else If ring(0, dropped) mod 3 = 1
|
||||
whatDropped.Add("2L")
|
||||
Else
|
||||
whatDropped.Add("1L")
|
||||
End If
|
||||
|
||||
If ring(1,dropped) = 1
|
||||
whatDropped.Add("RED")
|
||||
Else If ring(1,dropped) = 2
|
||||
whatDropped.Add("BLACK")
|
||||
End If
|
||||
|
||||
If ring(0, dropped) > 0 And ring(0, dropped) <= 12
|
||||
whatDropped.Add("F12")
|
||||
Else If ring(0, dropped) > 12 And ring(0, dropped) <= 24
|
||||
whatDropped.Add("S12")
|
||||
Else If ring(0, dropped) > 24
|
||||
whatDropped.Add("T12")
|
||||
End If
|
||||
|
||||
If ring(0,dropped) > 0 And ring(0,dropped) < 19
|
||||
whatDropped.Add("TO18")
|
||||
ElseIf ring(0,dropped) > 18
|
||||
whatDropped.Add("FROM18")
|
||||
End If
|
||||
|
||||
Return whatDropped.ToArray()
|
||||
End Function
|
||||
|
||||
Sub display(dropped As Integer)
|
||||
Console.BackgroundColor = ConsoleColor.Green
|
||||
Console.Clear()
|
||||
If ring(0,0) <> dropped
|
||||
Console.BackgroundColor = ConsoleColor.Black
|
||||
Console.ForegroundColor = colors(ring(1,0))
|
||||
Console.Write(ring(0,0) & " ")
|
||||
Console.BackgroundColor = ConsoleColor.Green
|
||||
Else
|
||||
Console.BackgroundColor = ConsoleColor.White
|
||||
Console.ForegroundColor = ConsoleColor.Black
|
||||
Console.Write(ring(0, 0))
|
||||
Console.BackgroundColor = ConsoleColor.Green
|
||||
Console.Write(" ")
|
||||
End If
|
||||
For i = 1 To 36
|
||||
If ring(0,i) <> dropped
|
||||
Console.ForegroundColor = colors(ring(1,i))
|
||||
Console.Write(ring(0,i) & " ")
|
||||
Else
|
||||
Console.BackgroundColor = ConsoleColor.White
|
||||
Console.ForegroundColor = colors(ring(1,i))
|
||||
Console.Write(ring(0, i))
|
||||
Console.BackgroundColor = ConsoleColor.Green
|
||||
Console.Write(" ")
|
||||
End If
|
||||
Next
|
||||
Dim temp As Integer
|
||||
Console.WriteLine()
|
||||
Console.WriteLine()
|
||||
For i = 3 To 36 Step 3
|
||||
temp = GetIndex(ringRank0, i)
|
||||
If i <> dropped
|
||||
Console.ForegroundColor = colors(ring(1,temp))
|
||||
Console.Write("{0,2:G} ", i)
|
||||
Else
|
||||
Console.BackgroundColor = ConsoleColor.White
|
||||
Console.ForegroundColor = colors(ring(1,temp))
|
||||
Console.Write("{0,2:G}", i)
|
||||
Console.BackgroundColor = ConsoleColor.Green
|
||||
Console.Write(" ")
|
||||
End If
|
||||
Next
|
||||
Console.ForegroundColor = ConsoleColor.DarkBlue
|
||||
Console.Write(" 3L")
|
||||
Console.WriteLine()
|
||||
For i = 2 To 36 Step 3
|
||||
temp = GetIndex(ringRank0, i)
|
||||
If i <> dropped
|
||||
Console.ForegroundColor = colors(ring(1,temp))
|
||||
Console.Write("{0,2:G} ", i)
|
||||
Else
|
||||
Console.BackgroundColor = ConsoleColor.White
|
||||
Console.ForegroundColor = colors(ring(1,temp))
|
||||
Console.Write("{0,2:G}", i)
|
||||
Console.BackgroundColor = ConsoleColor.Green
|
||||
Console.Write(" ")
|
||||
End If
|
||||
Next
|
||||
Console.ForegroundColor = ConsoleColor.DarkBlue
|
||||
Console.Write(" 2L")
|
||||
Console.WriteLine()
|
||||
For i = 1 To 36 Step 3
|
||||
temp = GetIndex(ringRank0, i)
|
||||
If i <> dropped
|
||||
Console.ForegroundColor = colors(ring(1,temp))
|
||||
Console.Write("{0,2:G} ", i)
|
||||
Else
|
||||
Console.BackgroundColor = ConsoleColor.White
|
||||
Console.ForegroundColor = colors(ring(1,temp))
|
||||
Console.Write("{0,2:G}", i)
|
||||
Console.BackgroundColor = ConsoleColor.Green
|
||||
Console.Write(" ")
|
||||
End If
|
||||
Next
|
||||
Console.ForegroundColor = ConsoleColor.DarkBlue
|
||||
Console.Write(" 1L")
|
||||
Console.WriteLine()
|
||||
Console.WriteLine(" F12 | S12 | T12 ")
|
||||
Console.ForegroundColor = ConsoleColor.DarkBlue
|
||||
End Sub
|
||||
|
||||
Sub rules()
|
||||
Console.Clear
|
||||
Console.ForegroundColor = ConsoleColor.DarkBlue
|
||||
Console.WriteLine("Рекомендуемое разрешение консоли: 100x35")
|
||||
Console.WriteLine("Минимальное разрешение консоли: 100х20")
|
||||
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).")
|
||||
Console.WriteLine("RED/BLACK - ставка на цвет (1:2).")
|
||||
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("На что ставите: 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
|
||||
Dim history As New List(Of Integer)
|
||||
|
||||
Do while fish > 0
|
||||
Console.ForegroundColor = ConsoleColor.DarkBlue
|
||||
Console.WriteLine("У Вас {0} фишек.", fish)
|
||||
Console.Write("Продолжить игру? (Y/n) >>> ")
|
||||
Dim temp As String = Console.ReadLine()
|
||||
If temp = "n" or temp = "N" Then
|
||||
Exit Sub
|
||||
Else IF temp = "" or temp = "y" or temp = "Y"
|
||||
isGaming = True
|
||||
Else
|
||||
Console.WriteLine("Неверный ввод, продолжаем игру.")
|
||||
End If
|
||||
|
||||
Dim generated() As String = spinWheel()
|
||||
Console.Clear
|
||||
history.Add(generated(0))
|
||||
Console.Write("Делайте ставки ")
|
||||
Dim stav As New List(Of String)
|
||||
Console.Write(">>> ")
|
||||
stav = Console.ReadLine().Split.ToList()
|
||||
Console.Write("Укажите суммы ставок ")
|
||||
Dim summ() As String
|
||||
Console.Write(">>> ")
|
||||
summ = Console.ReadLine().Split
|
||||
For i = 0 To UBound(summ)
|
||||
If not IsNumeric(summ(i)) Then
|
||||
Console.WriteLine("Ставки не корректны. Пропуск.")
|
||||
Continue Do
|
||||
End If
|
||||
Next
|
||||
Dim summs As New List(Of Integer)
|
||||
For i = 0 To UBound(summ)
|
||||
summs.add(Int(summ(i)))
|
||||
Next
|
||||
If stav.Count <> summs.Count Or summs.ToArray.Sum() > fish Then
|
||||
Console.WriteLine("Ставки не корректны. Пропуск.")
|
||||
Continue Do
|
||||
End If
|
||||
For i = 0 To summs.Count - 1
|
||||
If summs(i) < 0 Then
|
||||
Console.WriteLine("Ставки не корректны. Пропуск.")
|
||||
Continue Do
|
||||
End If
|
||||
Next
|
||||
Console.WriteLine("Крутим колесо...")
|
||||
sleep(2)
|
||||
display(Int(generated(0)))
|
||||
Console.ForegroundColor = ConsoleColor.DarkBlue
|
||||
Dim indedx As Integer
|
||||
For i = 0 To UBound(generated)
|
||||
If stav.Contains(generated(i)) Then
|
||||
indedx = stav.IndexOf(generated(i))
|
||||
If IsNumeric(generated(i))
|
||||
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
|
||||
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
|
||||
fish += summ(indedx) * 2
|
||||
stav.RemoveAt(indedx)
|
||||
summs.RemoveAt(indedx)
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
For i = 0 To summs.Count - 1
|
||||
fish -= summs(i)
|
||||
Next
|
||||
Console.WriteLine()
|
||||
Console.WriteLine("Выпало: ")
|
||||
For i = 0 To UBound(generated)
|
||||
Console.Write(generated(i) & " ")
|
||||
Next
|
||||
Console.WriteLine()
|
||||
displayHistory(history.ToArray())
|
||||
Console.ForegroundColor = ConsoleColor.DarkBlue
|
||||
Console.WriteLine()
|
||||
Loop
|
||||
Console.WriteLine("У Вас кончились фишки, игра закончена.")
|
||||
Console.WriteLine("Нажмите любую кнопку, чтобы перезапустить игру.")
|
||||
Console.ReadKey()
|
||||
End Sub
|
||||
|
||||
Sub Main()
|
||||
Console.BackgroundColor = ConsoleColor.Green
|
||||
Randomize()
|
||||
Console.Clear()
|
||||
Console.ForegroundColor = ConsoleColor.DarkBlue
|
||||
intro()
|
||||
'Console.SetWindowSize(108,100)
|
||||
Console.WriteLine("Игра Рулетка")
|
||||
Console.WriteLine("1) Начать игру")
|
||||
Console.WriteLine("2) Ознакомиться с правилами")
|
||||
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 history As New List(Of Integer)
|
||||
Dim historyC As New List(Of Integer)
|
||||
Select Case n
|
||||
Case 0
|
||||
Console.WriteLine()
|
||||
Console.WriteLine("Неправильный ввод!")
|
||||
sleep(5)
|
||||
Main
|
||||
Case 1
|
||||
Console.Clear
|
||||
game()
|
||||
Main()
|
||||
Case 2
|
||||
Console.Clear
|
||||
rules()
|
||||
Main()
|
||||
Case 3
|
||||
Exit Sub
|
||||
End Select
|
||||
End Sub
|
||||
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},
|
||||
{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 intr() As String = {
|
||||
"#### ### # # # ##### ##### ##### #####",
|
||||
"# # # # # # # # # # # ",
|
||||
"# # # # # # # # # # # ",
|
||||
"# # # # # # # # # # # ",
|
||||
"#### # # # # # #### # # #### ",
|
||||
"## # # # # # # # # # ",
|
||||
"# # # # # # # # # # # ",
|
||||
"# # # # # # # # # # # ",
|
||||
"# # ### ### ##### ##### # # ##### "}
|
||||
Function GetIndex(mass() As Integer, obj As Integer) As Integer
|
||||
For i = 0 To UBound(mass)
|
||||
If mass(i) = obj Then Return i
|
||||
Next
|
||||
Return -1
|
||||
End Function
|
||||
|
||||
Sub displayHistory(history() As Integer)
|
||||
Console.ForegroundColor = ConsoleColor.DarkBlue
|
||||
Console.Write("История выпадений (последние 15): ")
|
||||
For i = If(Ubound(history) > 14, Ubound(history) - 15, 0) To UBound(history)
|
||||
Console.ForegroundColor = colors(ring(1,getindex(ringRank0, history(i))))
|
||||
Console.Write(history(i) & " ")
|
||||
Next
|
||||
Console.ForegroundColor = ConsoleColor.DarkBlue
|
||||
End Sub
|
||||
|
||||
Function RemoveAt(Of T)(ByVal arr As T(), ByVal index As Integer) As T()
|
||||
Dim uBound = arr.GetUpperBound(0)
|
||||
Dim lBound = arr.GetLowerBound(0)
|
||||
Dim arrLen = uBound - lBound
|
||||
Dim outArr(arrLen - 1) As T
|
||||
Array.Copy(arr, 0, outArr, 0, index)
|
||||
Array.Copy(arr, index + 1, outArr, index, uBound - index)
|
||||
Return outArr
|
||||
End Function
|
||||
|
||||
Sub sleep(d As Single)
|
||||
Dim t As Single = Timer
|
||||
Do while Timer - t < d
|
||||
Loop
|
||||
End Sub
|
||||
|
||||
Sub intro()
|
||||
Console.ForegroundColor = ConsoleColor.DarkBlue
|
||||
Console.SetCursorPosition(Console.WindowWidth \ 2 - Len(intr(0))\2,Console.WindowHeight()\2 - UBound(intr) + 3)
|
||||
For i = 0 To UBound(intr)
|
||||
Console.WriteLine(intr(i))
|
||||
Console.SetCursorPosition(Console.WindowWidth \ 2 - Len(intr(0))\2, Console.GetCursorPosition().Item2)
|
||||
sleep(0.04444)
|
||||
Next
|
||||
'sleep(5)
|
||||
Console.SetCursorPosition(0,0)
|
||||
For i = 0 To (Console.WindowHeight()\2 - UBound(intr) + 2) \ 2
|
||||
Console.WriteLine(StrDup(Console.WindowWidth-1, "#"))
|
||||
sleep(0.04444)
|
||||
Next
|
||||
For i = 0 To Console.WindowHeight - (Console.WindowHeight()\2 - UBound(intr) + 2) - 3
|
||||
Console.Write(StrDup((Console.WindowWidth \ 2 - Len(intr(0)) \ 2) \ 2, "#"))
|
||||
Console.SetCursorPosition(Console.WindowWidth - (Console.WindowWidth \ 2 - Len(intr(0)) \ 2) \ 2, (Console.GetCursorPosition().Item2))
|
||||
Console.WriteLine(StrDup((Console.WindowWidth \ 2 - Len(intr(0)) \ 2) \ 2 - 1, "#"))
|
||||
sleep(0.04444)
|
||||
Next
|
||||
For i = 0 To (Console.WindowHeight()\2 - UBound(intr) + 2) \ 2
|
||||
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(intr) + 2) \ 4 - 1)
|
||||
Console.Write(StrDup(Len(entr) + 2, " "))
|
||||
|
||||
Console.SetCursorPosition((Console.WindowWidth \ 2) - Len(entr) \ 2,Console.WindowHeight - (Console.WindowHeight()\2 - UBound(intr) + 2) \ 4)
|
||||
Console.Write(entr & " ")
|
||||
|
||||
Console.SetCursorPosition((Console.WindowWidth \ 2) - Len(entr) \ 2,Console.WindowHeight - (Console.WindowHeight()\2 - UBound(intr) + 2) \ 4 + 1)
|
||||
Console.Write(StrDup(Len(entr) + 2, " "))
|
||||
|
||||
Console.ReadKey
|
||||
Console.Clear
|
||||
End Sub
|
||||
|
||||
Function spinWheel() As String()
|
||||
Dim rnd As New Random
|
||||
Dim probability(36) As Double
|
||||
Dim whatDropped As New List(Of String)
|
||||
|
||||
For k = 0 To rnd.Next(1,5)
|
||||
For i = 0 To rnd.Next(1,rnd.Next(5,100))
|
||||
rnd.NextDouble()
|
||||
Randomize
|
||||
Next
|
||||
Next
|
||||
|
||||
Dim max As Double = 0
|
||||
Dim dropped As Integer
|
||||
|
||||
For i = 0 To 36
|
||||
probability(i) = rnd.NextDouble()
|
||||
if probability(i) > max then
|
||||
max = probability(i)
|
||||
dropped = i
|
||||
End If
|
||||
Next
|
||||
|
||||
whatDropped.Add(ring(0,dropped).ToString())
|
||||
|
||||
If ring(0, dropped) mod 2 = 0 And dropped > 0
|
||||
whatDropped.Add("EVEN")
|
||||
Else
|
||||
whatDropped.Add("ODD")
|
||||
End If
|
||||
|
||||
If ring(0, dropped) mod 3 = 0 And dropped > 0
|
||||
whatDropped.Add("3L")
|
||||
Else If ring(0, dropped) mod 3 = 1
|
||||
whatDropped.Add("2L")
|
||||
Else
|
||||
whatDropped.Add("1L")
|
||||
End If
|
||||
|
||||
If ring(1,dropped) = 1
|
||||
whatDropped.Add("RED")
|
||||
Else If ring(1,dropped) = 2
|
||||
whatDropped.Add("BLACK")
|
||||
End If
|
||||
|
||||
If ring(0, dropped) > 0 And ring(0, dropped) <= 12
|
||||
whatDropped.Add("F12")
|
||||
Else If ring(0, dropped) > 12 And ring(0, dropped) <= 24
|
||||
whatDropped.Add("S12")
|
||||
Else If ring(0, dropped) > 24
|
||||
whatDropped.Add("T12")
|
||||
End If
|
||||
|
||||
If ring(0,dropped) > 0 And ring(0,dropped) < 19
|
||||
whatDropped.Add("TO18")
|
||||
ElseIf ring(0,dropped) > 18
|
||||
whatDropped.Add("FROM18")
|
||||
End If
|
||||
|
||||
Return whatDropped.ToArray()
|
||||
End Function
|
||||
|
||||
Sub display(dropped As Integer)
|
||||
Console.BackgroundColor = ConsoleColor.Green
|
||||
Console.Clear()
|
||||
If ring(0,0) <> dropped
|
||||
Console.BackgroundColor = ConsoleColor.Black
|
||||
Console.ForegroundColor = colors(ring(1,0))
|
||||
Console.Write(ring(0,0) & " ")
|
||||
Console.BackgroundColor = ConsoleColor.Green
|
||||
Else
|
||||
Console.BackgroundColor = ConsoleColor.White
|
||||
Console.ForegroundColor = ConsoleColor.Black
|
||||
Console.Write(ring(0, 0))
|
||||
Console.BackgroundColor = ConsoleColor.Green
|
||||
Console.Write(" ")
|
||||
End If
|
||||
For i = 1 To 36
|
||||
If ring(0,i) <> dropped
|
||||
Console.ForegroundColor = colors(ring(1,i))
|
||||
Console.Write(ring(0,i) & " ")
|
||||
Else
|
||||
Console.BackgroundColor = ConsoleColor.White
|
||||
Console.ForegroundColor = colors(ring(1,i))
|
||||
Console.Write(ring(0, i))
|
||||
Console.BackgroundColor = ConsoleColor.Green
|
||||
Console.Write(" ")
|
||||
End If
|
||||
Next
|
||||
Dim temp As Integer
|
||||
Console.WriteLine()
|
||||
Console.WriteLine()
|
||||
For i = 3 To 36 Step 3
|
||||
temp = GetIndex(ringRank0, i)
|
||||
If i <> dropped
|
||||
Console.ForegroundColor = colors(ring(1,temp))
|
||||
Console.Write("{0,2:G} ", i)
|
||||
Else
|
||||
Console.BackgroundColor = ConsoleColor.White
|
||||
Console.ForegroundColor = colors(ring(1,temp))
|
||||
Console.Write("{0,2:G}", i)
|
||||
Console.BackgroundColor = ConsoleColor.Green
|
||||
Console.Write(" ")
|
||||
End If
|
||||
Next
|
||||
Console.ForegroundColor = ConsoleColor.DarkBlue
|
||||
Console.Write(" 3L")
|
||||
Console.WriteLine()
|
||||
For i = 2 To 36 Step 3
|
||||
temp = GetIndex(ringRank0, i)
|
||||
If i <> dropped
|
||||
Console.ForegroundColor = colors(ring(1,temp))
|
||||
Console.Write("{0,2:G} ", i)
|
||||
Else
|
||||
Console.BackgroundColor = ConsoleColor.White
|
||||
Console.ForegroundColor = colors(ring(1,temp))
|
||||
Console.Write("{0,2:G}", i)
|
||||
Console.BackgroundColor = ConsoleColor.Green
|
||||
Console.Write(" ")
|
||||
End If
|
||||
Next
|
||||
Console.ForegroundColor = ConsoleColor.DarkBlue
|
||||
Console.Write(" 2L")
|
||||
Console.WriteLine()
|
||||
For i = 1 To 36 Step 3
|
||||
temp = GetIndex(ringRank0, i)
|
||||
If i <> dropped
|
||||
Console.ForegroundColor = colors(ring(1,temp))
|
||||
Console.Write("{0,2:G} ", i)
|
||||
Else
|
||||
Console.BackgroundColor = ConsoleColor.White
|
||||
Console.ForegroundColor = colors(ring(1,temp))
|
||||
Console.Write("{0,2:G}", i)
|
||||
Console.BackgroundColor = ConsoleColor.Green
|
||||
Console.Write(" ")
|
||||
End If
|
||||
Next
|
||||
Console.ForegroundColor = ConsoleColor.DarkBlue
|
||||
Console.Write(" 1L")
|
||||
Console.WriteLine()
|
||||
Console.WriteLine(" F12 | S12 | T12 ")
|
||||
Console.ForegroundColor = ConsoleColor.DarkBlue
|
||||
End Sub
|
||||
|
||||
Sub rules()
|
||||
Console.Clear
|
||||
Console.ForegroundColor = ConsoleColor.DarkBlue
|
||||
Console.WriteLine("Рекомендуемое разрешение консоли: 100x35")
|
||||
Console.WriteLine("Минимальное разрешение консоли: 100х20")
|
||||
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).")
|
||||
Console.WriteLine("RED/BLACK - ставка на цвет (1:2).")
|
||||
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("На что ставите: 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
|
||||
Dim history As New List(Of Integer)
|
||||
|
||||
Do while fish > 0
|
||||
Console.ForegroundColor = ConsoleColor.DarkBlue
|
||||
Console.WriteLine("У Вас {0} фишек.", fish)
|
||||
Console.Write("Продолжить игру? (Y/n) >>> ")
|
||||
Dim temp As String = Console.ReadLine()
|
||||
If temp = "n" or temp = "N" Then
|
||||
Exit Sub
|
||||
Else IF temp = "" or temp = "y" or temp = "Y"
|
||||
isGaming = True
|
||||
Else
|
||||
Console.WriteLine("Неверный ввод, продолжаем игру.")
|
||||
End If
|
||||
|
||||
Dim generated() As String = spinWheel()
|
||||
Console.Clear
|
||||
history.Add(generated(0))
|
||||
Console.Write("Делайте ставки ")
|
||||
Dim stav As New List(Of String)
|
||||
Console.Write(">>> ")
|
||||
stav = Console.ReadLine().Split.ToList()
|
||||
Console.Write("Укажите суммы ставок ")
|
||||
Dim summ() As String
|
||||
Console.Write(">>> ")
|
||||
summ = Console.ReadLine().Split
|
||||
For i = 0 To UBound(summ)
|
||||
If not IsNumeric(summ(i)) Then
|
||||
Console.WriteLine("Ставки не корректны. Пропуск.")
|
||||
Continue Do
|
||||
End If
|
||||
Next
|
||||
Dim summs As New List(Of Integer)
|
||||
For i = 0 To UBound(summ)
|
||||
summs.add(Int(summ(i)))
|
||||
Next
|
||||
If stav.Count <> summs.Count Or summs.ToArray.Sum() > fish Then
|
||||
Console.WriteLine("Ставки не корректны. Пропуск.")
|
||||
Continue Do
|
||||
End If
|
||||
For i = 0 To summs.Count - 1
|
||||
If summs(i) < 0 Then
|
||||
Console.WriteLine("Ставки не корректны. Пропуск.")
|
||||
Continue Do
|
||||
End If
|
||||
Next
|
||||
Console.WriteLine("Крутим колесо...")
|
||||
sleep(1)
|
||||
display(Int(generated(0)))
|
||||
Console.ForegroundColor = ConsoleColor.DarkBlue
|
||||
Dim indedx As Integer
|
||||
For i = 0 To UBound(generated)
|
||||
If stav.Contains(generated(i)) Then
|
||||
indedx = stav.IndexOf(generated(i))
|
||||
If IsNumeric(generated(i))
|
||||
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
|
||||
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
|
||||
fish += summ(indedx) * 2
|
||||
stav.RemoveAt(indedx)
|
||||
summs.RemoveAt(indedx)
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
For i = 0 To summs.Count - 1
|
||||
fish -= summs(i)
|
||||
Next
|
||||
Console.WriteLine()
|
||||
Console.WriteLine("Выпало: ")
|
||||
For i = 0 To UBound(generated)
|
||||
Console.Write(generated(i) & " ")
|
||||
Next
|
||||
Console.WriteLine()
|
||||
displayHistory(history.ToArray())
|
||||
Console.ForegroundColor = ConsoleColor.DarkBlue
|
||||
Console.WriteLine()
|
||||
Loop
|
||||
Console.WriteLine("У Вас кончились фишки, игра закончена.")
|
||||
Console.WriteLine("Нажмите любую кнопку, чтобы перезапустить игру.")
|
||||
Console.ReadKey()
|
||||
End Sub
|
||||
|
||||
Sub Main()
|
||||
Console.BackgroundColor = ConsoleColor.Green
|
||||
Randomize()
|
||||
Console.Clear()
|
||||
Console.ForegroundColor = ConsoleColor.DarkBlue
|
||||
intro()
|
||||
'Console.SetWindowSize(108,100)
|
||||
Console.WriteLine("Игра Рулетка")
|
||||
Console.WriteLine("1) Начать игру")
|
||||
Console.WriteLine("2) Ознакомиться с правилами")
|
||||
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 history As New List(Of Integer)
|
||||
Dim historyC As New List(Of Integer)
|
||||
Select Case n
|
||||
Case 0
|
||||
Console.WriteLine()
|
||||
Console.WriteLine("Неправильный ввод!")
|
||||
sleep(5)
|
||||
Main
|
||||
Case 1
|
||||
Console.Clear
|
||||
game()
|
||||
Main()
|
||||
Case 2
|
||||
Console.Clear
|
||||
rules()
|
||||
Main()
|
||||
Case 3
|
||||
Exit Sub
|
||||
End Select
|
||||
End Sub
|
||||
End Module
|
||||
|
|
|
|||
Loading…
Reference in a new issue