Just commit

This commit is contained in:
Ivan Bushchik 2021-04-11 15:53:37 +03:00
parent aced85bfb7
commit e410db4ea9
2 changed files with 6 additions and 3 deletions

View file

@ -1,6 +1,6 @@
<?xml version="1.0" encoding="UTF-8"?>
<project version="4">
<component name="ContentModelUserStore">
<component name="UserContentModel">
<attachedFolders />
<explicitIncludes />
<explicitExcludes />

View file

@ -245,9 +245,10 @@ Module Program
If Len(stav) <> Len(summs) Or summs.Sum() > fish Then Console.WriteLine("Ставки не корректны. Пропуск.") : stav.Clear() : summs.Clear()
Console.WriteLine("Крутим колесо...")
sleep(5)
display(Int(generated(1)))
Dim indedx As Integer
For i = 0 To UBound(generated)
If stav.Contains(generated(i)) Then
For i = 0 To UBound(stav.ToArray())
If generated.Contains(stav.ToArray(i)) Then
indedx = stav.IndexOf(generated(i))
End If
@ -282,9 +283,11 @@ Module Program
sleep(5)
Main
Case 1
Console.Clear
game()
Main()
Case 2
Console.Clear
rules()
Main()
Case 3