Add "About page"

This commit is contained in:
Ivan Bushchik 2021-10-28 12:19:42 +03:00
parent 55aa656c69
commit 9d86a094b2

View file

@ -15,6 +15,8 @@ Module Program
{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, {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} 7, 28, 12, 35, 3, 26}
'ringRank0 нужен, чтобы было удобно подавать массив в поиск индекса 'ringRank0 нужен, чтобы было удобно подавать массив в поиск индекса
Dim ReadOnly ReleaseTag As String = "1.26"
Dim ReadOnly Logo() As String = { _ Dim ReadOnly Logo() As String = { _
"#### ### # # # ##### ##### ##### #####", "#### ### # # # ##### ##### ##### #####",
"# # # # # # # # # # # ", "# # # # # # # # # # # ",
@ -380,6 +382,18 @@ Module Program
Console.ReadKey() Console.ReadKey()
End Sub End Sub
Sub About()
Console.Clear()
Console.WriteLine("Рулетка / roulette")
Console.WriteLine("Автор: Иван Бущик <ivan@bushchik.ru>")
Console.WriteLine("Лицензия: MIT")
Console.WriteLine("Сайт: bushchikivan.github.io/roulette")
Console.WriteLine("Репозиторий: github.com/BushchikIvan/roulette")
Console.WriteLine("Версия: " + ReleaseTag)
Console.WriteLine("Нажмите любую кнопку чтобы продолжить.")
Console.ReadKey()
End Sub
Sub Main() Sub Main()
Console.BackgroundColor = ConsoleColor.Green Console.BackgroundColor = ConsoleColor.Green
Console.ForegroundColor = ConsoleColor.DarkBlue Console.ForegroundColor = ConsoleColor.DarkBlue
@ -389,17 +403,13 @@ Module Program
Console.WriteLine("Игра Рулетка") Console.WriteLine("Игра Рулетка")
Console.WriteLine("1) Начать игру") Console.WriteLine("1) Начать игру")
Console.WriteLine("2) Ознакомиться с правилами") Console.WriteLine("2) Ознакомиться с правилами")
Console.WriteLine("3) Выйти из игры") Console.WriteLine("3) О игре")
Console.WriteLine("0) Выйти из игры")
Console.Write(">>> ") Console.Write(">>> ")
Dim input As Char = Console.ReadKey.KeyChar Dim input As Integer = Console.ReadLine
Dim n As Integer = Select Case input
If(Int(input.ToString()) = 1 Or Int(input.ToString()) = 2 Or Int(input.ToString()) = 3, Int(input.ToString()), 0)
Select Case n
Case 0 Case 0
Console.WriteLine() Exit Sub
Console.WriteLine("Неправильный ввод!")
Sleep(5)
Main()
Case 1 Case 1
Console.Clear Console.Clear
Game() Game()
@ -408,7 +418,8 @@ Module Program
Rules() Rules()
Main() Main()
Case 3 Case 3
Exit Sub About()
Main()
End Select End Select
End Sub End Sub
End Module End Module