ivabus/roulette
1
0
Fork 0
mirror of https://github.com/ivabus/roulette synced 2024-11-26 10:25:07 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

Изменение некоторых надписей, исправление интро, изменение приглашения ввода

Browse source
This commit is contained in:
Ivan Bushchik 2021-05-03 18:57:42 +03:00
parent 1cf8e3e284
commit 9cd2aac5c4
2 changed files with 15 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
.gitignore vendored
View file

@ -3,3 +3,4 @@ obj/
/packages/ /packages/
riderModule.iml riderModule.iml
/_ReSharper.Caches/ /_ReSharper.Caches/
.idea

20
Ruletka/Program.vb
View file

@ -1,5 +1,4 @@
Imports System Imports System
Imports System.Formats.Asn1
Module Program Module Program
Dim ring(,) As Integer = {{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}, Dim ring(,) As Integer = {{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},
@ -66,7 +65,7 @@ Module Program
'sleep(5) 'sleep(5)
Console.SetCursorPosition(0,0) Console.SetCursorPosition(0,0)
For i = 0 To (Console.WindowHeight()\2 - UBound(intr) + 2) \ 2 For i = 0 To (Console.WindowHeight()\2 - UBound(intr) + 2) \ 2
Console.Write(StrDup(Console.WindowWidth, "#")) Console.WriteLine(StrDup(Console.WindowWidth-1, "#"))
sleep(0.0888) sleep(0.0888)
Next Next
For i = 0 To Console.WindowHeight - (Console.WindowHeight()\2 - UBound(intr) + 2) - 3 For i = 0 To Console.WindowHeight - (Console.WindowHeight()\2 - UBound(intr) + 2) - 3
@ -76,7 +75,7 @@ Module Program
sleep(0.0888) sleep(0.0888)
Next Next
For i = 0 To (Console.WindowHeight()\2 - UBound(intr) + 2) \ 2 For i = 0 To (Console.WindowHeight()\2 - UBound(intr) + 2) \ 2
Console.Write(StrDup(Console.WindowWidth, "#")) Console.WriteLine(StrDup(Console.WindowWidth-1, "#"))
sleep(0.0888) sleep(0.0888)
Next Next
Dim entr As String = " Нажмите любую кнопку, чтобы начать игру! " Dim entr As String = " Нажмите любую кнопку, чтобы начать игру! "
@ -268,9 +267,8 @@ Module Program
Do while fish > 0 Do while fish > 0
Console.ForegroundColor = ConsoleColor.DarkBlue Console.ForegroundColor = ConsoleColor.DarkBlue
Console.WriteLine()
Console.WriteLine("У Вас {0} фишек.", fish) Console.WriteLine("У Вас {0} фишек.", fish)
Console.WriteLine("Продолжить игру? (Y/n)") Console.Write("Продолжить игру? (Y/n) >>> ")
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
@ -283,11 +281,13 @@ Module Program
Dim generated() As String = spinWheel() Dim generated() As String = spinWheel()
Console.Clear Console.Clear
history.Add(generated(0)) history.Add(generated(0))
Console.Write("Делайте ставки: ") Console.Write("Делайте ставки ")
Dim stav As New List(Of String) Dim stav As New List(Of String)
Console.Write(">>> ")
stav = Console.ReadLine().Split.ToList() stav = Console.ReadLine().Split.ToList()
Console.Write("Укажите суммы ставок: ") Console.Write("Укажите суммы ставок ")
Dim summ() As String Dim summ() As String
Console.Write(">>> ")
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
@ -343,8 +343,11 @@ Module Program
Console.WriteLine() Console.WriteLine()
displayHistory(history.ToArray()) displayHistory(history.ToArray())
Console.ForegroundColor = ConsoleColor.DarkBlue Console.ForegroundColor = ConsoleColor.DarkBlue
Console.WriteLine()
Loop Loop
Console.WriteLine("У Вас кончились фишки, игра закончена.")
Console.WriteLine("Нажмите любую кнопку, чтобы перезапустить игру.")
Console.ReadKey()
End Sub End Sub
Sub Main() Sub Main()
@ -358,6 +361,7 @@ Module Program
Console.WriteLine("1) Начать игру") Console.WriteLine("1) Начать игру")
Console.WriteLine("2) Ознакомиться с правилами") Console.WriteLine("2) Ознакомиться с правилами")
Console.WriteLine("3) Выйти из игры") Console.WriteLine("3) Выйти из игры")
Console.Write(">>> ")
Dim input As Char = Console.ReadKey.KeyChar Dim input As Char = Console.ReadKey.KeyChar
Dim n As Integer = If(Int(input.ToString()) = 1 Or Int(input.ToString()) = 2 Or Int(input.ToString()) = 3, Int(input.ToString()), 0) Dim n As Integer = If(Int(input.ToString()) = 1 Or Int(input.ToString()) = 2 Or Int(input.ToString()) = 3, Int(input.ToString()), 0)
Dim history As New List(Of Integer) Dim history As New List(Of Integer)