mirror of
https://github.com/ivabus/roulette
synced 2024-11-22 16:35:09 +03:00
Just commit
This commit is contained in:
parent
aced85bfb7
commit
e410db4ea9
2 changed files with 6 additions and 3 deletions
|
@ -1,6 +1,6 @@
|
|||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<project version="4">
|
||||
<component name="ContentModelUserStore">
|
||||
<component name="UserContentModel">
|
||||
<attachedFolders />
|
||||
<explicitIncludes />
|
||||
<explicitExcludes />
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue