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

code cleaning

Browse source
This commit is contained in:
Ivan Bushchik 2021-10-07 10:50:46 +03:00
parent a6da7cc3c5
commit dc53434f57
1 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
roulette/Program.vb
View file

@ -328,17 +328,19 @@ Module Program
indedx = stav.IndexOf(generated(i))
If IsNumeric(generated(i))
fish += summ(indedx) * 35
stav.RemoveAt(indedx)
summs.RemoveAt(indedx)
'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
fish += summ(indedx) * 1
stav.RemoveAt(indedx)
summs.RemoveAt(indedx)
'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
fish += summ(indedx) * 2
stav.RemoveAt(indedx)
summs.RemoveAt(indedx)
'stav.RemoveAt(indedx)
'summs.RemoveAt(indedx)
End If
stav.RemoveAt(indedx)
summs.RemoveAt(indedx)
End If
Next
For i = 0 To summs.Count - 1