code cleaning

This commit is contained in:
Ivan Bushchik 2021-10-07 10:50:46 +03:00
parent a6da7cc3c5
commit dc53434f57

View file

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