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

Made optimizations for Windows

Browse source
This commit is contained in:
Ivan Bushchik 2022-02-10 12:43:57 +03:00
parent dfdef46f4c
commit aa344363ad
1 changed files with 80 additions and 73 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

153
roulette/Program.vb
View file

@ -1,4 +1,6 @@
Module Program Imports System.Text
Module Program
'https://github.com/ivabus/roulette 'https://github.com/ivabus/roulette
'https://ivabus.github.io/roulette 'https://ivabus.github.io/roulette
Dim ReadOnly _ Dim ReadOnly _
@ -17,7 +19,8 @@
Private Const ReleaseTag As String = "2.1.3" Private Const ReleaseTag As String = "2.1.3"
Dim LANG As Integer = -1 Dim _lang As Integer = -1 ' 0 - русский language, 1 - english язык
Dim ReadOnly strings(,)= {{"История выпадений (последние 15): ", " Нажмите любую кнопку, чтобы начать игру! ", Dim ReadOnly strings(,)= {{"История выпадений (последние 15): ", " Нажмите любую кнопку, чтобы начать игру! ",
"Выберите сложность: ", "1) Лёгкая - 500 фишек в начале", "2) Нормальная - 100 фишек в начале", "Выберите сложность: ", "1) Лёгкая - 500 фишек в начале", "2) Нормальная - 100 фишек в начале",
"3) Сложная - 10 фишек в начале", "4) Невозможная - 2 фишки в начале", "3) Сложная - 10 фишек в начале", "4) Невозможная - 2 фишки в начале",
@ -60,7 +63,7 @@
Sub DisplayHistory(history() As Integer) 'Эта функция не реализована в Game(), потому что это захламляло бы код Sub DisplayHistory(history() As Integer) 'Эта функция не реализована в Game(), потому что это захламляло бы код
Console.ForegroundColor = ConsoleColor.DarkBlue Console.ForegroundColor = ConsoleColor.DarkBlue
Console.Write(strings(LANG,0)) Console.Write(strings(_lang,0))
For i = If(Ubound(history) > 14, Ubound(history) - 14, 0) To UBound(history) For i = If(Ubound(history) > 14, Ubound(history) - 14, 0) To UBound(history)
Console.ForegroundColor = Colors(Ring(1, getindex(RingRank0, history(i)))) Console.ForegroundColor = Colors(Ring(1, getindex(RingRank0, history(i))))
Console.Write(history(i) & " ") Console.Write(history(i) & " ")
@ -99,7 +102,7 @@
Console.WriteLine(StrDup(Console.WindowWidth - 1, "#")) Console.WriteLine(StrDup(Console.WindowWidth - 1, "#"))
Sleep(0.04444) Sleep(0.04444)
Next Next
Dim entr = strings(LANG,1) Dim entr = strings(_lang,1)
Console.SetCursorPosition((Console.WindowWidth\2) - Len(entr)\2, Console.SetCursorPosition((Console.WindowWidth\2) - Len(entr)\2,
Console.WindowHeight - (Console.WindowHeight()\2 - UBound(Logo) + 2)\4 - 3) Console.WindowHeight - (Console.WindowHeight()\2 - UBound(Logo) + 2)\4 - 3)
Console.Write(StrDup(Len(entr) + 2, " ")) Console.Write(StrDup(Len(entr) + 2, " "))
@ -142,13 +145,13 @@
whatDropped.Add(Ring(0, dropped).ToString()) whatDropped.Add(Ring(0, dropped).ToString())
If dropped = 0 Then return whatDropped.ToArray() If dropped = 0 Then return whatDropped.ToArray()
If Ring(0, dropped) mod 2 = 0 And dropped > 0 If Ring(0, dropped) mod 2 = 0
whatDropped.Add("EVEN") whatDropped.Add("EVEN")
Else Else
whatDropped.Add("ODD") whatDropped.Add("ODD")
End If End If
If Ring(0, dropped) mod 3 = 0 And dropped > 0 If Ring(0, dropped) mod 3 = 0
whatDropped.Add("3L") whatDropped.Add("3L")
Else If Ring(0, dropped) mod 3 = 1 Else If Ring(0, dropped) mod 3 = 1
whatDropped.Add("2L") whatDropped.Add("2L")
@ -270,32 +273,32 @@
Console.ForegroundColor = ConsoleColor.DarkBlue Console.ForegroundColor = ConsoleColor.DarkBlue
End Sub End Sub
Sub Rules() Sub Rules()
If LANG = 1 Then If _lang = 0 Then
Console.Clear Console.Clear
Console.ForegroundColor = ConsoleColor.DarkBlue Console.ForegroundColor = ConsoleColor.DarkBlue
Console.WriteLine("Рекомендуемое разрешение консоли: 100x35") Console.WriteLine("Рекомендуемое разрешение консоли: 100x35")
Console.WriteLine("Минимальное разрешение консоли: 100х20") Console.WriteLine("Минимальное разрешение консоли: 100х20")
Console.WriteLine("Правила:") Console.WriteLine("Правила:")
Console.WriteLine( Console.WriteLine(
"Игра представляет собой Европейскую рулетку. Игрок должен сделать ставку на определённую зону, будь то число, сектор, строка, чётность или цвет. Игрок может делать несколько ставок. Ставки вводятся в предоставленную зону через пробел.") "Игра представляет собой Европейскую рулетку. Игрок должен сделать ставку на определённую зону, будь то число, сектор, строка, чётность или цвет. Игрок может делать несколько ставок. Ставки вводятся в предоставленную зону через пробел.")
Console.WriteLine("<число 0 - 36> - ставка на число (1:36).") Console.WriteLine("<число 0 - 36> - ставка на число (1:36).")
Console.WriteLine("1L/2L/3L - 1/2/3 линия соответственно, снизу вверх (1:3).") 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("F12/S12/T12 - ставка на сектора от 1 по 12/от 13 по 24/от 25 по 36 соответственно (1:3).")
Console.WriteLine("RED/BLACK - ставка на цвет (1:2).") Console.WriteLine("RED/BLACK - ставка на цвет (1:2).")
Console.WriteLine("TO18/FROM18 - ставка на сектор от 1 по 18/от 19 по 36 (1:2).") Console.WriteLine("TO18/FROM18 - ставка на сектор от 1 по 18/от 19 по 36 (1:2).")
Console.WriteLine("EVEN/ODD - чётные/нечётные (1:2).") Console.WriteLine("EVEN/ODD - чётные/нечётные (1:2).")
Console.WriteLine("Игрок изначально получает 500, 100, 10, 2 фишки.") Console.WriteLine("Игрок изначально получает 500, 100, 10, 2 фишки.")
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( Console.WriteLine(
"ВНИМАНИЕ! Количество ставок должно совпадать с количеством фишек, которые ставите, в примере 6 = 6.") "ВНИМАНИЕ! Количество ставок должно совпадать с количеством фишек, которые ставите, в примере 6 = 6.")
Console.WriteLine("Или просто нажмите ENTER, чтобы пропустить ставку.") Console.WriteLine("Или просто нажмите ENTER, чтобы пропустить ставку.")
Console.WriteLine("Удачи!") Console.WriteLine("Удачи!")
Console.ReadKey() Console.ReadKey()
ElseIf LANG = 2 Then Else
Console.Clear Console.Clear
Console.ForegroundColor = ConsoleColor.DarkBlue Console.ForegroundColor = ConsoleColor.DarkBlue
Console.WriteLine("Recommended console resolution: 100x35") Console.WriteLine("Recommended console resolution: 100x35")
@ -325,11 +328,11 @@
End Sub End Sub
Sub Game() Sub Game()
Console.WriteLine(strings(LANG, 2)) Console.WriteLine(strings(_lang, 2))
Console.WriteLine(strings(LANG, 3)) Console.WriteLine(strings(_lang, 3))
Console.WriteLine(strings(LANG, 4)) Console.WriteLine(strings(_lang, 4))
Console.WriteLine(strings(LANG, 5)) Console.WriteLine(strings(_lang, 5))
Console.WriteLine(strings(LANG, 6)) Console.WriteLine(strings(_lang, 6))
Console.Write(">>> ") Console.Write(">>> ")
Dim choose As Integer = Console.ReadLine() Dim choose As Integer = Console.ReadLine()
Dim fish As Long Dim fish As Long
@ -343,28 +346,27 @@
Case 4 Case 4
fish = 2 fish = 2
Case Else Case Else
Console.WriteLine(strings(LANG, 7)) Console.WriteLine(strings(_lang, 7))
End Select End Select
Console.WriteLine(strings(LANG,8)) Console.WriteLine(strings(_lang,8))
Dim history As New List(Of Integer) Dim history As New List(Of Integer)
Console.Clear()
Do while fish > 0 Do while fish > 0
Console.ForegroundColor = ConsoleColor.DarkBlue Console.ForegroundColor = ConsoleColor.DarkBlue
Dim generated() As String = SpinWheel() Dim generated() As String = SpinWheel()
Console.Clear
history.Add(generated(0)) history.Add(generated(0))
Console.WriteLine(strings(LANG,9)) Console.WriteLine(strings(_lang,9))
Console.Write(">>> ") Console.Write(">>> ")
Dim stav Dim stav
stav = UCase(Console.ReadLine()).Split.ToList() stav = UCase(Console.ReadLine()).Split.ToList()
Console.WriteLine(strings(LANG,10)) Console.WriteLine(strings(_lang,10))
Console.Write(">>> ") Console.Write(">>> ")
Dim summ() As String Dim summ() As String
summ = Console.ReadLine().Split summ = Console.ReadLine().Split
For i = 0 To UBound(summ) For i = 0 To UBound(summ)
If not IsNumeric(summ(i)) Then If not IsNumeric(summ(i)) Then
Console.WriteLine(strings(LANG,11)) Console.WriteLine(strings(_lang,11))
Continue Do Continue Do
End If End If
Next Next
@ -373,17 +375,18 @@
summs.add(Int(summ(i))) summs.add(Int(summ(i)))
Next Next
If stav.Count <> summs.Count Or summs.ToArray.Sum() > fish Then If stav.Count <> summs.Count Or summs.ToArray.Sum() > fish Then
Console.WriteLine(strings(LANG, 11)) Console.WriteLine(strings(_lang, 11))
Continue Do Continue Do
End If End If
For i = 0 To summs.Count - 1 For i = 0 To summs.Count - 1
If summs(i) < 0 Then If summs(i) < 0 Then
Console.WriteLine(strings(LANG, 11)) Console.WriteLine(strings(_lang, 11))
Continue Do Continue Do
End If End If
Next Next
Console.WriteLine(strings(LANG, 12)) Console.WriteLine(strings(_lang, 12))
Sleep(0.5) Sleep(0.5)
Console.Clear()
Display(Int(generated(0))) Display(Int(generated(0)))
Console.ForegroundColor = ConsoleColor.DarkBlue Console.ForegroundColor = ConsoleColor.DarkBlue
Dim indedx As Integer Dim indedx As Integer
@ -409,7 +412,7 @@
fish -= summs(i) fish -= summs(i)
Next Next
Console.WriteLine() Console.WriteLine()
Console.Write(strings(LANG,13)) Console.Write(strings(_lang,13))
For i = 0 To UBound(generated) For i = 0 To UBound(generated)
Console.Write(generated(i) & " ") Console.Write(generated(i) & " ")
Next Next
@ -417,31 +420,31 @@
DisplayHistory(history.ToArray()) DisplayHistory(history.ToArray())
Console.ForegroundColor = ConsoleColor.DarkBlue Console.ForegroundColor = ConsoleColor.DarkBlue
Console.WriteLine() Console.WriteLine()
Console.WriteLine(strings(LANG, 14), fish) Console.WriteLine(strings(_lang, 14), fish)
Console.Write(strings(LANG, 15)) Console.Write(strings(_lang, 15))
Dim temp As String = Console.ReadLine() Dim temp As String = Console.ReadLine()
If temp = "n" or temp = "N" Then If temp = "n" or temp = "N" Then
Exit Sub Exit Sub
Else IF temp = "" or temp = "y" or temp = "Y" Else IF temp = "" or temp = "y" or temp = "Y"
Console.Write("") Console.Write("")
Else Else
Console.WriteLine(strings(LANG, 16)) Console.WriteLine(strings(_lang, 16))
End If End If
Loop Loop
Console.WriteLine(strings(LANG, 17)) Console.WriteLine(strings(_lang, 17))
Console.WriteLine(strings(LANG, 18)) Console.WriteLine(strings(_lang, 18))
Console.ReadKey() Console.ReadKey()
End Sub End Sub
Sub About() Sub About()
Console.Clear() Console.Clear()
Console.WriteLine(strings(LANG, 19)) Console.WriteLine(strings(_lang, 19))
Console.WriteLine(strings(LANG, 20)) Console.WriteLine(strings(_lang, 20))
Console.WriteLine(strings(LANG, 21)) Console.WriteLine(strings(_lang, 21))
Console.WriteLine(strings(LANG, 22)) Console.WriteLine(strings(_lang, 22))
Console.WriteLine(strings(LANG, 23)) Console.WriteLine(strings(_lang, 23))
Console.WriteLine(strings(LANG, 24) + ReleaseTag) Console.WriteLine(strings(_lang, 24) + ReleaseTag)
Console.WriteLine(strings(LANG, 18)) Console.WriteLine(strings(_lang, 18))
Console.ReadKey() Console.ReadKey()
End Sub End Sub
@ -449,7 +452,7 @@
Randomize() Randomize()
Dim count As Long Dim count As Long
Dim rnd As New Random Dim rnd As New Random
Console.Write(strings(LANG, 25)) Console.Write(strings(_lang, 25))
Count = Console.ReadLine() Count = Console.ReadLine()
Dim mass(count) As Double Dim mass(count) As Double
For i = 0 to Ubound(mass) For i = 0 to Ubound(mass)
@ -458,18 +461,18 @@
Dim pogr As Double = 0 Dim pogr As Double = 0
Dim sr As Double = mass.Sum() / Count Dim sr As Double = mass.Sum() / Count
pogr = Math.abs((sr - 0.5) / 0.5) * 100 pogr = Math.abs((sr - 0.5) / 0.5) * 100
Console.WriteLine(strings(LANG,26) + pogr.ToString("0.#####") + "%") Console.WriteLine(strings(_lang,26) + pogr.ToString("0.#####") + "%")
Console.ReadKey() Console.ReadKey()
End Sub End Sub
Sub Menu() Sub Menu()
Console.Clear() Console.Clear()
Console.WriteLine(strings(LANG, 27)) Console.WriteLine(strings(_lang, 27))
Console.WriteLine(strings(LANG, 28)) Console.WriteLine(strings(_lang, 28))
Console.WriteLine(strings(LANG, 29)) Console.WriteLine(strings(_lang, 29))
Console.WriteLine(strings(LANG, 30)) Console.WriteLine(strings(_lang, 30))
Console.WriteLine(strings(LANG, 31)) Console.WriteLine(strings(_lang, 31))
Console.WriteLine(strings(LANG, 32)) Console.WriteLine(strings(_lang, 32))
Console.WriteLine(strings(LANG, 33)) Console.WriteLine(strings(_lang, 33))
Console.Write(">>> ") Console.Write(">>> ")
Dim input As Integer = Console.ReadLine Dim input As Integer = Console.ReadLine
Select Case input Select Case input
@ -495,17 +498,21 @@
Sub Main() Sub Main()
Try Try
If OperatingSystem.IsWindows() Then
Console.SetWindowSize(100,40)
Console.OutputEncoding = New UTF8Encoding()
End If
Console.BackgroundColor = ConsoleColor.Green Console.BackgroundColor = ConsoleColor.Green
Console.ForegroundColor = ConsoleColor.DarkBlue Console.ForegroundColor = ConsoleColor.DarkBlue
Randomize() Randomize()
Console.Clear() Console.Clear()
If LANG = -1 Then If _lang = -1 Then
Console.WriteLine("Choose language / Выберете язык:") Console.WriteLine("Choose language / Выберете язык:")
Console.WriteLine("1) Russian / Русский") Console.WriteLine("1) Russian / Русский")
Console.WriteLine("2) English / Английский") Console.WriteLine("2) English / Английский")
Console.Write(">>> ") Console.Write(">>> ")
LANG = Console.ReadLine() - 1 _lang = Console.ReadLine() - 1
if LANG < 0 or LANG > 1 Then if _lang < 0 or _lang > 1 Then
Console.WriteLine("Incorrect choose") Console.WriteLine("Incorrect choose")
Exit Sub Exit Sub
End If End If
@ -515,7 +522,7 @@
Intro() Intro()
Menu() Menu()
Catch Catch
Console.WriteLine(strings(LANG, 34)) Console.WriteLine(strings(_lang, 34))
Exit Sub Exit Sub
End Try End Try
End Sub End Sub