mirror of
https://github.com/ivabus/roulette
synced 2024-11-23 00:45:09 +03:00
Add "About page"
This commit is contained in:
parent
55aa656c69
commit
9d86a094b2
1 changed files with 21 additions and 10 deletions
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue