Sub Main()
ColoreTesto 2
Scrivi "Non dirai mica che non ti ho fatto il metodo!"
ColoreTesto 0
Dim posta(2)
Dim ruota(1)
Dim a(2)
posta(2) = 1
clp = 6
ini = EstrazioneFin - 1200
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(Ini,Fin,es)
n = Estratto(es,1,1)
ok = 0
If IndiceMensile(es) = 1 And n = 6 Then
a(1) = Fuori90(Estratto(es,1,1) + Estratto(es,6,5) + 1)
a(2) = Fuori90(Estratto(es,3,5) + Estratto(es,12,3) + 3)
ok = 1
End If
If IndiceMensile(es) = 1 And n = 49 Then
a(1) = Fuori90(Estratto(es,1,1) + Estratto(es,2,3) + 1)
a(2) = Fuori90(Estratto(es,2,5) + Estratto(es,8,2) + 2)
ok = 1
End If
If IndiceMensile(es) = 1 And n = 35 Then
a(1) = Fuori90(Estratto(es,1,2) + Estratto(es,2,4) + 1)
a(2) = Fuori90(Estratto(es,3,3) + Estratto(es,7,3) + 8)
ok = 1
End If
If IndiceMensile(es) = 1 And n = 15 Then
a(1) = Fuori90(Estratto(es,1,1) + Estratto(es,2,1) + 1)
a(2) = Fuori90(Estratto(es,2,4) + Estratto(es,12,2) + 15)
ok = 1
End If
If IndiceMensile(es) = 1 And n = 12 Then
a(1) = Fuori90(Estratto(es,1,1) + Estratto(es,8,2) + 1)
a(2) = Fuori90(Estratto(es,2,2) + Estratto(es,4,4) + 6)
ok = 1
End If
If IndiceMensile(es) = 1 And n = 34 Then
a(1) = Fuori90(Estratto(es,1,1) + Estratto(es,6,5) + 1)
a(2) = Fuori90(Estratto(es,6,1) + Estratto(es,9,3) + 2)
ok = 1
End If
If IndiceMensile(es) = 1 And n = 29 Then
a(1) = Fuori90(Estratto(es,1,2) + Estratto(es,6,5) + 1)
a(2) = Fuori90(Estratto(es,4,3) + Estratto(es,8,5) + 5)
ok = 1
End If
If IndiceMensile(es) = 1 And n = 81 Then
a(1) = Fuori90(Estratto(es,1,1) + Estratto(es,8,5) + 1)
a(2) = Fuori90(Estratto(es,1,3) + Estratto(es,4,3) + 13)
ok = 1
End If
If IndiceMensile(es) = 1 And n = 60 Then
a(1) = Fuori90(Estratto(es,1,4) + Estratto(es,4,5) + 1)
a(2) = Fuori90(Estratto(es,3,1) + Estratto(es,12,3) + 3)
ok = 1
End If
If IndiceMensile(es) = 1 And n = 87 Then
a(1) = Fuori90(Estratto(es,1,3) + Estratto(es,4,3) + 1)
a(2) = Fuori90(Estratto(es,8,5) + Estratto(es,9,4) + 3)
ok = 1
End If
If IndiceMensile(es) = 1 And n = 81 Then
a(1) = Fuori90(Estratto(es,1,1) + Estratto(es,8,5) + 1)
a(2) = Fuori90(Estratto(es,1,3) + Estratto(es,4,3) + 13)
ok = 1
End If
If IndiceMensile(es) = 1 And n = 42 Then
a(1) = Fuori90(Estratto(es,1,2) + Estratto(es,4,3) + 1)
a(2) = Fuori90(Estratto(es,5,2) + Estratto(es,5,5) + 80)
ok = 1
End If
If IndiceMensile(es) = 1 And n = 30 Then
a(1) = Fuori90(Estratto(es,1,1) + Estratto(es,6,2) + 1)
a(2) = Fuori90(Estratto(es,7,2) + Estratto(es,9,3) + 27)
ok = 1
End If
If IndiceMensile(es) = 1 And n = 74 Then
a(1) = Fuori90(Estratto(es,1,3) + Estratto(es,2,3) + 1)
a(2) = Fuori90(90 +(Estratto(es,6,1)) - Estratto(es,3,3) + 16)
ok = 1
End If
If IndiceMensile(es) = 1 And n = 38 Then
a(1) = Fuori90(Estratto(es,1,1) + Estratto(es,2,1) + 1)
a(2) = Fuori90(Estratto(es,6,2) + Estratto(es,7,2) + 3)
ok = 1
End If
If IndiceMensile(es) = 1 And n = 36 Then
a(1) = Fuori90(Estratto(es,1,1) + Estratto(es,3,3) + 1)
a(2) = Fuori90(Estratto(es,2,1) + Estratto(es,5,2) + 13)
ok = 1
End If
If IndiceMensile(es) = 1 And n = 65 Then
a(1) = Fuori90(Estratto(es,1,2) + Estratto(es,4,2) + 1)
a(2) = Fuori90(Estratto(es,3,1) + Estratto(es,7,5) + 3)
ok = 1
End If
If IndiceMensile(es) = 1 And n = 89 Then
a(1) = Fuori90(Estratto(es,1,1) + Estratto(es,4,4) + 1)
a(2) = Fuori90(Estratto(es,1,5) + Estratto(es,9,5) + 3)
ok = 1
End If
If ok = 1 Then
co = co + 1
ColoreTesto 1
Scrivi String(80,"*") & " Caso n°" & co,1
Scrivi DataEstrazione(es)
Scrivi String(80,"*"),1
ColoreTesto 0
ruota(1) = 1
ImpostaGiocata 1,a,ruota,posta,clp
Gioca es,1
End If
Next
ScriviResoconto
End Sub