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

BUUUUUUUGS

Browse source
This commit is contained in:
ivabus 2021-04-22 19:06:10 +03:00
parent 695f9eaf6c
commit ee15e6b0b0
1 changed files with 8 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
Ruletka/Program.vb
View file

@ -236,42 +236,34 @@ Module Program
Dim stav As New List(Of String) Dim stav As New List(Of String)
stav = Console.ReadLine().Split.ToList() stav = Console.ReadLine().Split.ToList()
Console.Write("Укажите суммы ставок: ") Console.Write("Укажите суммы ставок: ")
Dim summs As New List(Of Integer)
Dim summ() As String Dim summ() As String
summ = Console.ReadLine().Split summ = Console.ReadLine().Split
Dim summs(UBound(summ)) As Integer
For i = 0 To UBound(summ) For i = 0 To UBound(summ)
summs.Add(Int(summ(i))) summs(i) = Int(summ(i))
Next Next
If stav.count <> summs.count Or summs.ToArray.Sum() > fish Then If stav.Count <> summs.Count Or summs.ToArray.Sum() > fish Then
Console.WriteLine("Ставки не корректны. Пропуск.") Console.WriteLine("Ставки не корректны. Пропуск.")
stav.Clear()
summs.Clear()
Continue Do Continue Do
End If End If
Console.WriteLine("Крутим колесо...") Console.WriteLine("Крутим колесо...")
sleep(5) sleep(2)
display(Int(generated(0))) display(Int(generated(0)))
Dim saray() As Integer = summs.ToArray()
fish -= saray.Sum()
Dim indedx As Integer Dim indedx As Integer
For i = 0 To UBound(generated) For i = 0 To UBound(generated)
If stav.Contains(generated(i)) Then If stav.Contains(generated(i)) Then
indedx = stav.IndexOf(generated(i)) indedx = stav.IndexOf(generated(i))
If IsNumeric(generated(i)) If IsNumeric(generated(i))
saray(indedx) *= 35 fish += summs(indedx) * 35
Else If generated(i) = "RED" Or generated(i) = "BLACK" Or generated(i) = "ODD" Or generated(i) = "EVEN" Or generated(i) = "FROM18" Or generated(i) = "TO18" Then Else If generated(i) = "RED" Or generated(i) = "BLACK" Or generated(i) = "ODD" Or generated(i) = "EVEN" Or generated(i) = "FROM18" Or generated(i) = "TO18" Then
saray(indedx) *= 1 fish += summs(indedx) * 1
Else If generated(i) = "3L" Or generated(i) = "2L" Or generated(i) = "1L" Or generated(i) = "F12" Or generated(i) = "S12" Or generated(i) = "T12" Then Else If generated(i) = "3L" Or generated(i) = "2L" Or generated(i) = "1L" Or generated(i) = "F12" Or generated(i) = "S12" Or generated(i) = "T12" Then
saray(indedx) *= 2 fish += summs(indedx) * 2
Else Else
saray(indedx) = -saray(indedx) fish -= summs(indedx) * 2
fish += saray(indedx)
End If End If
End If End If
Next Next
display(Int(generated(0)))
Console.WriteLine() Console.WriteLine()
Console.WriteLine("Выпало: ") Console.WriteLine("Выпало: ")
For i = 0 To UBound(generated) For i = 0 To UBound(generated)