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

Game finished with some bugs and badly working system

Browse source
This commit is contained in:
ivabus 2021-04-17 09:34:22 +03:00
parent e410db4ea9
commit 417fa4cdff
1 changed files with 35 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

47
Ruletka/Program.vb
View file

@ -130,7 +130,7 @@ Module Program
Console.BackgroundColor = ConsoleColor.Green Console.BackgroundColor = ConsoleColor.Green
Console.Clear() Console.Clear()
For i = 0 To 36 For i = 0 To 36
If i <> dropped If ring(0,i) <> dropped
Console.ForegroundColor = colors(ring(1,i)) Console.ForegroundColor = colors(ring(1,i))
Console.Write(ring(0,i) & " ") Console.Write(ring(0,i) & " ")
Else Else
@ -146,7 +146,7 @@ Module Program
Console.WriteLine() Console.WriteLine()
For i = 3 To 36 Step 3 For i = 3 To 36 Step 3
temp = GetIndex(ringRank0, i) temp = GetIndex(ringRank0, i)
If i <> ring(0, dropped) If i <> dropped
Console.ForegroundColor = colors(ring(1,temp)) Console.ForegroundColor = colors(ring(1,temp))
Console.Write(i & " ") Console.Write(i & " ")
Else Else
@ -160,7 +160,7 @@ Module Program
Console.WriteLine() Console.WriteLine()
For i = 2 To 36 Step 3 For i = 2 To 36 Step 3
temp = GetIndex(ringRank0, i) temp = GetIndex(ringRank0, i)
If i <> ring(0, dropped) If i <> dropped
Console.ForegroundColor = colors(ring(1,temp)) Console.ForegroundColor = colors(ring(1,temp))
Console.Write(i & " ") Console.Write(i & " ")
Else Else
@ -174,7 +174,7 @@ Module Program
Console.WriteLine() Console.WriteLine()
For i = 1 To 36 Step 3 For i = 1 To 36 Step 3
temp = GetIndex(ringRank0, i) temp = GetIndex(ringRank0, i)
If i <> ring(0, dropped) If i <> dropped
Console.ForegroundColor = colors(ring(1,temp)) Console.ForegroundColor = colors(ring(1,temp))
Console.Write(i & " ") Console.Write(i & " ")
Else Else
@ -212,7 +212,7 @@ Module Program
Console.WriteLine("Игра началась!") Console.WriteLine("Игра началась!")
Dim fish As Long = 5000 Dim fish As Long = 5000
Dim isGaming As Boolean = True Dim isGaming As Boolean = True
Do while isGaming xor fish Do while fish > 0
@ -222,7 +222,7 @@ Module Program
Console.WriteLine("Продолжить игру? (Y/n)") Console.WriteLine("Продолжить игру? (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
isGaming = False Exit Sub
Else IF temp = "" or temp = "y" or temp = "Y" Else IF temp = "" or temp = "y" or temp = "Y"
isGaming = True isGaming = True
Else Else
@ -242,21 +242,44 @@ Module Program
For i = 0 To UBound(summ) For i = 0 To UBound(summ)
summs.Add(Int(summ(i))) summs.Add(Int(summ(i)))
Next Next
If Len(stav) <> Len(summs) Or summs.Sum() > fish Then Console.WriteLine("Ставки не корректны. Пропуск.") : stav.Clear() : summs.Clear() If stav.count <> summs.count Or summs.ToArray.Sum() > fish Then
Console.WriteLine("Ставки не корректны. Пропуск.")
stav.Clear()
summs.Clear()
Continue Do
End If
Console.WriteLine("Крутим колесо...") Console.WriteLine("Крутим колесо...")
sleep(5) sleep(5)
display(Int(generated(1))) display(Int(generated(0)))
Dim saray() As Integer = summs.ToArray()
Dim indedx As Integer Dim indedx As Integer
For i = 0 To UBound(stav.ToArray()) For i = 0 To UBound(saray)
If generated.Contains(stav.ToArray(i)) Then fish -= saray(i)
Next
For i = 0 To UBound(generated)
If stav.Contains(generated(i)) Then
indedx = stav.IndexOf(generated(i)) indedx = stav.IndexOf(generated(i))
If IsNumeric(generated(i))
summs(indedx) *= 37
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
summs(indedx) *= 3
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
summs(indedx) *= 4
Else
summs(indedx) = 0
End If
End If End If
Next Next
fish += summs.Count()
display(Int(generated(0))) display(Int(generated(0)))
Console.WriteLine("") Console.WriteLine()
Console.WriteLine("Выпало: ")
For i = 0 To UBound(generated)
Console.Write(generated(i) & " ")
Next
Console.WriteLine()
Loop Loop
End Sub End Sub