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

Program.vb: change strings[] to LocaliztionStrings[] for more readability.

Browse source
This commit is contained in:
Ivan Bushchik 2022-04-03 17:56:17 +03:00
parent e6acd912c8
commit 4a13113578
1 changed files with 40 additions and 40 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

80
roulette/Program.vb
View file

@ -21,7 +21,7 @@ Module Program
Dim _lang As Integer = -1 ' 0 - русский language, 1 - english язык Dim _lang As Integer = -1 ' 0 - русский language, 1 - english язык
Dim ReadOnly strings(,)= {{"История выпадений (последние 15): ", " Нажмите любую кнопку, чтобы начать игру! ", Dim ReadOnly LocalizationStrings(,)= {{"История выпадений (последние 15): ", " Нажмите любую кнопку, чтобы начать игру! ",
"Выберите сложность: ", "1) Лёгкая - 500 фишек в начале", "2) Нормальная - 100 фишек в начале", "Выберите сложность: ", "1) Лёгкая - 500 фишек в начале", "2) Нормальная - 100 фишек в начале",
"3) Сложная - 10 фишек в начале", "4) Невозможная - 2 фишки в начале", "3) Сложная - 10 фишек в начале", "4) Невозможная - 2 фишки в начале",
"Выбор некорректен!", "Игра началась!", "Делайте ставки:", "Укажите суммы ставок:", "Ставки не корректны. Пропуск.", "Выбор некорректен!", "Игра началась!", "Делайте ставки:", "Укажите суммы ставок:", "Ставки не корректны. Пропуск.",
@ -63,7 +63,7 @@ Module Program
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(LocalizationStrings(_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) & " ")
@ -102,7 +102,7 @@ Module Program
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 = LocalizationStrings(_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, " "))
@ -328,11 +328,11 @@ Module Program
End Sub End Sub
Sub Game() Sub Game()
Console.WriteLine(strings(_lang, 2)) Console.WriteLine(LocalizationStrings(_lang, 2))
Console.WriteLine(strings(_lang, 3)) Console.WriteLine(LocalizationStrings(_lang, 3))
Console.WriteLine(strings(_lang, 4)) Console.WriteLine(LocalizationStrings(_lang, 4))
Console.WriteLine(strings(_lang, 5)) Console.WriteLine(LocalizationStrings(_lang, 5))
Console.WriteLine(strings(_lang, 6)) Console.WriteLine(LocalizationStrings(_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
@ -346,9 +346,9 @@ Module Program
Case 4 Case 4
fish = 2 fish = 2
Case Else Case Else
Console.WriteLine(strings(_lang, 7)) Console.WriteLine(LocalizationStrings(_lang, 7))
End Select End Select
Console.WriteLine(strings(_lang,8)) Console.WriteLine(LocalizationStrings(_lang,8))
Dim history As New List(Of Integer) Dim history As New List(Of Integer)
Console.Clear() Console.Clear()
Do while fish > 0 Do while fish > 0
@ -356,17 +356,17 @@ Module Program
Dim generated() As String = SpinWheel() Dim generated() As String = SpinWheel()
history.Add(generated(0)) history.Add(generated(0))
Console.WriteLine(strings(_lang,9)) Console.WriteLine(LocalizationStrings(_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(LocalizationStrings(_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(LocalizationStrings(_lang,11))
Continue Do Continue Do
End If End If
Next Next
@ -375,16 +375,16 @@ Module Program
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(LocalizationStrings(_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(LocalizationStrings(_lang, 11))
Continue Do Continue Do
End If End If
Next Next
Console.WriteLine(strings(_lang, 12)) Console.WriteLine(LocalizationStrings(_lang, 12))
Sleep(0.5) Sleep(0.5)
Console.Clear() Console.Clear()
Display(Int(generated(0))) Display(Int(generated(0)))
@ -412,7 +412,7 @@ Module Program
fish -= summs(i) fish -= summs(i)
Next Next
Console.WriteLine() Console.WriteLine()
Console.Write(strings(_lang,13)) Console.Write(LocalizationStrings(_lang,13))
For i = 0 To UBound(generated) For i = 0 To UBound(generated)
Console.Write(generated(i) & " ") Console.Write(generated(i) & " ")
Next Next
@ -420,31 +420,31 @@ Module Program
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(LocalizationStrings(_lang, 14), fish)
Console.Write(strings(_lang, 15)) Console.Write(LocalizationStrings(_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(LocalizationStrings(_lang, 16))
End If End If
Loop Loop
Console.WriteLine(strings(_lang, 17)) Console.WriteLine(LocalizationStrings(_lang, 17))
Console.WriteLine(strings(_lang, 18)) Console.WriteLine(LocalizationStrings(_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(LocalizationStrings(_lang, 19))
Console.WriteLine(strings(_lang, 20)) Console.WriteLine(LocalizationStrings(_lang, 20))
Console.WriteLine(strings(_lang, 21)) Console.WriteLine(LocalizationStrings(_lang, 21))
Console.WriteLine(strings(_lang, 22)) Console.WriteLine(LocalizationStrings(_lang, 22))
Console.WriteLine(strings(_lang, 23)) Console.WriteLine(LocalizationStrings(_lang, 23))
Console.WriteLine(strings(_lang, 24) + ReleaseTag) Console.WriteLine(LocalizationStrings(_lang, 24) + ReleaseTag)
Console.WriteLine(strings(_lang, 18)) Console.WriteLine(LocalizationStrings(_lang, 18))
Console.ReadKey() Console.ReadKey()
End Sub End Sub
@ -452,27 +452,27 @@ Module Program
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(LocalizationStrings(_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)
mass(i) = rnd.NextDouble() mass(i) = rnd.NextDouble()
Next Next
Dim pogr As Double = 0 Dim pogr As Double
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(LocalizationStrings(_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(LocalizationStrings(_lang, 27))
Console.WriteLine(strings(_lang, 28)) Console.WriteLine(LocalizationStrings(_lang, 28))
Console.WriteLine(strings(_lang, 29)) Console.WriteLine(LocalizationStrings(_lang, 29))
Console.WriteLine(strings(_lang, 30)) Console.WriteLine(LocalizationStrings(_lang, 30))
Console.WriteLine(strings(_lang, 31)) Console.WriteLine(LocalizationStrings(_lang, 31))
Console.WriteLine(strings(_lang, 32)) Console.WriteLine(LocalizationStrings(_lang, 32))
Console.WriteLine(strings(_lang, 33)) Console.WriteLine(LocalizationStrings(_lang, 33))
Console.Write(">>> ") Console.Write(">>> ")
Dim input As Integer = Console.ReadLine Dim input As Integer = Console.ReadLine
Select Case input Select Case input
@ -522,7 +522,7 @@ Module Program
Intro() Intro()
Menu() Menu()
Catch Catch
Console.WriteLine(strings(_lang, 34)) Console.WriteLine(LocalizationStrings(_lang, 34))
Exit Sub Exit Sub
End Try End Try
End Sub End Sub