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

Preparing for release

Browse source
This commit is contained in:
Ivan Bushchik 2021-04-24 21:48:36 +03:00
parent ee15e6b0b0
commit 6700b4e06d
1 changed files with 38 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

45
Ruletka/Program.vb
View file

@ -22,6 +22,24 @@ Module Program
Next Next
End Function End Function
Function RemoveAt(Of T)(ByVal arr As T(), ByVal index As Integer) As T()
Dim uBound = arr.GetUpperBound(0)
Dim lBound = arr.GetLowerBound(0)
Dim arrLen = uBound - lBound
If index < lBound OrElse index > uBound Then
Throw New ArgumentOutOfRangeException( _
String.Format("Index must be from {0} to {1}.", lBound, uBound))
Else
Dim outArr(arrLen - 1) As T
Array.Copy(arr, 0, outArr, 0, index)
Array.Copy(arr, index + 1, outArr, index, uBound - index)
Return outArr
End If
End Function
Sub sleep(d As Single) Sub sleep(d As Single)
Dim t As Single = Timer Dim t As Single = Timer
Do while Timer - t < d Do while Timer - t < d
@ -238,14 +256,20 @@ Module Program
Console.Write("Укажите суммы ставок: ") Console.Write("Укажите суммы ставок: ")
Dim summ() As String Dim summ() As String
summ = Console.ReadLine().Split summ = Console.ReadLine().Split
Dim summs(UBound(summ)) As Integer Dim summs As New List(Of Integer)
For i = 0 To UBound(summ) For i = 0 To UBound(summ)
summs(i) = Int(summ(i)) summs.add(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("Ставки не корректны. Пропуск.")
Continue Do Continue Do
End If End If
For i = 0 To summs.Count - 1
If summs(i) < 0 Then
Console.WriteLine("Ставки не корректны. Пропуск.")
Continue Do
End If
Next
Console.WriteLine("Крутим колесо...") Console.WriteLine("Крутим колесо...")
sleep(2) sleep(2)
display(Int(generated(0))) display(Int(generated(0)))
@ -254,16 +278,23 @@ Module Program
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))
fish += summs(indedx) * 35 fish += summ(indedx) * 35
stav.RemoveAt(indedx)
summs.RemoveAt(indedx)
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
fish += summs(indedx) * 1 fish += summ(indedx) * 1
stav.RemoveAt(indedx)
summs.RemoveAt(indedx)
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
fish += summs(indedx) * 2 fish += summ(indedx) * 2
Else stav.RemoveAt(indedx)
fish -= summs(indedx) * 2 summs.RemoveAt(indedx)
End If End If
End If End If
Next Next
For i = 0 To summs.Count - 1
fish -= summs(i)
Next
Console.WriteLine() Console.WriteLine()
Console.WriteLine("Выпало: ") Console.WriteLine("Выпало: ")
For i = 0 To UBound(generated) For i = 0 To UBound(generated)