ivabus/roulette
1
0
Fork 0
mirror of https://github.com/ivabus/roulette synced 2025-04-23 14:07:09 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

Just commit

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

2
.idea/.idea.Ruletka/.idea/indexLayout.xml
View file

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

7
Ruletka/Program.vb
View file

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