Refactor code

This commit is contained in:
Ivan Bushchik 2022-04-06 19:23:36 +03:00
parent ad8c259bc1
commit 8e4e6dfc09

View file

@ -17,32 +17,80 @@ Module Program
7, 28, 12, 35, 3, 26} 7, 28, 12, 35, 3, 26}
'ringRank0 нужен, чтобы было удобно подавать массив в поиск индекса 'ringRank0 нужен, чтобы было удобно подавать массив в поиск индекса
Private Const ReleaseTag As String = "2.1.7" Private Const ReleaseTag As String = "2.1.8"
Dim _lang As Integer = -1 ' 0 - русский language, 1 - english язык Dim _lang As Integer = -1 ' 0 - русский language, 1 - english язык
Dim ReadOnly LocalizationStrings(,)= {{"История выпадений (последние 15): ", " Нажмите любую кнопку, чтобы начать игру! ", Dim ReadOnly LocalizationStrings(,)= {{"История выпадений (последние 15): ",
"Выберите сложность: ", "1) Лёгкая - 500 фишек в начале", "2) Нормальная - 100 фишек в начале", " Нажмите любую кнопку, чтобы начать игру! ",
"3) Сложная - 10 фишек в начале", "4) Невозможная - 2 фишки в начале", "Выберите сложность: ",
"Выбор некорректен!", "Игра началась!", "Делайте ставки:", "Укажите суммы ставок:", "Ставки не корректны. Пропуск.", "1) Лёгкая - 500 фишек в начале",
"Крутим колесо...", "Выпало: ", "У Вас {0} фишек.", "Продолжить игру? (Y/n) >>> ", "Неверный ввод, продолжаем игру.", "2) Нормальная - 100 фишек в начале",
"У Вас закончились фишки, игра окончена.", "Нажмите любую клавишу, чтобы выйти в меню.", "3) Сложная - 10 фишек в начале",
"Рулетка / roulette", "Автор: Иван Бущик <ivan@bushchik.ru>", "Лицензия: GNU GPLv3", "Сайт: ivabus.dev/roulette", "4) Невозможная - 2 фишки в начале",
"Репозиторий: github.com/ivabus/roulette", "Версия: ", "Введите количество чисел для генерирования >>> ", "Выбор некорректен!",
"Погрешность генератора случайных чисел: ", "Игра Рулетка", "1) Начать игру", "Игра началась!",
"2) Ознакомиться с правилами", "3) О игре", "Дополнительно:", "4) Проверка генератора случайных чисел", "Делайте ставки:",
"0) Выйти из игры", "Ошибка!"}, "Укажите суммы ставок:",
{"Drop history (last 15): ", " Press any button to start ", "Choose difficulty: ", "1) Easy - 500 chips on the start", "Ставки не корректны. Пропуск.",
"2) Normal - 100 chips on the start", "3) Hard - 10 chips on the start", "Крутим колесо...",
"4) Impossible - 2 chips on the start", "Incorrect choise!", "Game started", "Выпало: ",
"Place your bets: ", "Specify the bid amounts: ", "The bids are incorrect. Skipping.", "У Вас {0} фишек.",
"Spinning wheel...", "Dropped: ", "You have {0} chips.", "Continue? (Y/n) >>> ", "Продолжить игру? (Y/n) >>> ",
"Incorrect input, we continue the game.", "You have run out of chips, the game is over.", "Неверный ввод, продолжаем игру.",
"Press any key to exit the menu.", "Roulette", "Author: Ivan Bushchik <ivan@bushchik.ru>", "У Вас закончились фишки, игра окончена.",
"License: GNU GPLv3", "Website: ivabus.dev/roulette", "Repository: github.com/ivabus/roulette", "Нажмите любую клавишу, чтобы выйти в меню.",
"Version: ", "Enter the number of numbers to generate >>> ", "Рулетка / roulette",
"Error of the random number generator: ", "Roulette game", "1) Begin game", "Автор: Иван Бущик <ivan@bushchik.ru>",
"2) Check the rules", "3) About game", "Additional: ", "4) Checking the random number generator", "0) Exit", "Error!"}} "Лицензия: GNU GPLv3",
"Сайт: ivabus.dev/roulette",
"Репозиторий: github.com/ivabus/roulette",
"Версия: ",
"Введите количество чисел для генерирования >>> ",
"Погрешность генератора случайных чисел: ",
"Игра Рулетка",
"1) Начать игру",
"2) Ознакомиться с правилами",
"3) О игре",
"Дополнительно:",
"4) Проверка генератора случайных чисел",
"0) Выйти из игры",
"Ошибка!"},
{"Drop history (last 15): ",
" Press any button to start ",
"Choose difficulty: ",
"1) Easy - 500 chips on the start",
"2) Normal - 100 chips on the start",
"3) Hard - 10 chips on the start",
"4) Impossible - 2 chips on the start",
"Incorrect choise!",
"Game started",
"Place your bets: ",
"Specify the bid amounts: ",
"The bids are incorrect. Skipping.",
"Spinning wheel...",
"Dropped: ",
"You have {0} chips.",
"Continue? (Y/n) >>> ",
"Incorrect input, we continue the game.",
"You have run out of chips, the game is over.",
"Press any key to exit the menu.",
"Roulette",
"Author: Ivan Bushchik <ivan@bushchik.ru>",
"License: GNU GPLv3",
"Website: ivabus.dev/roulette",
"Repository: github.com/ivabus/roulette",
"Version: ",
"Enter the number of numbers to generate >>> ",
"Error of the random number generator: ",
"Roulette game",
"1) Begin game",
"2) Check the rules",
"3) About game",
"Additional: ",
"4) Checking the random number generator",
"0) Exit",
"Error!"}}
Dim ReadOnly Logo() As String = { _ Dim ReadOnly Logo() As String = { _
"#### ### # # # ##### ##### ##### #####", "#### ### # # # ##### ##### ##### #####",
"# # # # # # # # # # # ", "# # # # # # # # # # # ",