Sub Main()
ColoreTesto 2
Scrivi "AMBI SPIA DELLA NZ A FAVORE DI BARI"
Scrivi "METODO E LIST BY Marco"
ColoreTesto 0
Dim poste(4)
Dim ruota(1)
Dim quartina(4)
poste(2) = 1
poste(3) = .7
poste(4) = .3
clp = 9
ini = EstrazioneFin - 4500
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(Ini,Fin,es)
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,12,p1)
b = Estratto(es,12,p2)
ok = 0
If a = 2 And b = 23 Or a = 23 And b = 2 Then
quartina(1) = Fuori90(Estratto(es,1,5) + Estratto(es,8,5) + 3)
quartina(2) = Fuori90(Cadenza(Estratto(es,9,4) + Decina(Estratto(es,9,4)) + Estratto(es,7,2) + 65))
quartina(3) = Fuori90(Estratto(es,6,2) + Estratto(es,10,2) + 1)
quartina(4) = Fuori90(Decina(Estratto(es,10,5)) + Estratto(es,4,5) + 3)
ok = 1
End If
If a = 70 And b = 86 Or a = 86 And b = 70 Then
quartina(1) = Fuori90(Vert(Estratto(es,8,4)) + Estratto(es,9,2) + 26)
quartina(2) = Fuori90(Estratto(es,6,2) + Estratto(es,7,2) + 1)
quartina(3) = Fuori90(Figura(Estratto(es,7,2)) + Estratto(es,6,2) + 2)
quartina(4) = Fuori90(Estratto(es,5,1) + Estratto(es,3,1) + 5)
ok = 1
End If
If a = 52 And b = 53 Or a = 53 And b = 52 Then
quartina(1) = Fuori90(Diametrale(Estratto(es,6,3)) + Estratto(es,4,3) + 3)
quartina(2) = Fuori90(Cadenza(Estratto(es,12,3)) + Estratto(es,12,1) + 1)
quartina(3) = Fuori90(Cadenza(Estratto(es,7,1)) + Estratto(es,9,1) + 47)
quartina(4) = Fuori90(Figura(Estratto(es,12,1)) + Estratto(es,12,4) + 1)
ok = 1
End If
If a = 10 And b = 8 Or a = 8 And b = 10 Then
quartina(1) = Fuori90(Estratto(es,8,5) + Estratto(es,8,5) + 14)
quartina(2) = Fuori90(Cadenza(Estratto(es,7,3)) + Estratto(es,5,3) + 13)
quartina(3) = Fuori90(ComplAdX(Estratto(es,3,4)) + Estratto(es,8,3) + 75)
quartina(4) = Fuori90(Decina(Estratto(es,2,5)) + Estratto(es,3,2) + 5)
ok = 1
End If
If a = 18 And b = 59 Or a = 59 And b = 18 Then
quartina(1) = Fuori90(Diametrale(Estratto(es,5,4)) + Estratto(es,3,5) + 50)
quartina(2) = Fuori90(Figura(Estratto(es,4,1)) + Estratto(es,7,4) + 1)
quartina(3) = Fuori90(ComplAdX(Estratto(es,9,3)) + Estratto(es,3,5) + 4)
quartina(4) = Fuori90(Estratto(es,10,5) + Estratto(es,3,5) + 31)
ok = 1
End If
If a = 36 And b = 16 Or a = 16 And b = 36 Then
quartina(1) = Fuori90(Decina(Estratto(es,2,1)) + Estratto(es,7,4) + 47)
quartina(2) = Fuori90(Cadenza(Estratto(es,6,2) + Decina(Estratto(es,6,2)) + Estratto(es,1,2) + 1))
quartina(3) = Fuori90(Estratto(es,6,2) + Estratto(es,3,3) + 19)
quartina(4) = Fuori90(Decina(Estratto(es,2,1)) + Estratto(es,4,2) + 70)
ok = 1
End If
If a = 1 And b = 48 Or a = 48 And b = 1 Then
quartina(1) = Fuori90(Decina(Estratto(es,3,2)) + Estratto(es,5,3) + 4)
quartina(2) = Fuori90(Cadenza(Estratto(es,10,4) + Decina(Estratto(es,10,4)) + Estratto(es,8,2)) + 39)
quartina(3) = Fuori90(Estratto(es,4,3) + Estratto(es,1,5) + 23)
quartina(4) = Fuori90(Decina(Estratto(es,9,5)) + Estratto(es,4,1) + 1)
ok = 1
End If
If a = 21 And b = 62 Or a = 62 And b = 21 Then
quartina(1) = Fuori90(Vert(Estratto(es,6,1)) + Estratto(es,2,3) + 27)
quartina(2) = Fuori90(ComplAdX(Estratto(es,10,5)) + Estratto(es,2,2) + 1)
quartina(3) = Fuori90(DiametraleD(Estratto(es,5,2)) + Estratto(es,3,1) + 14)
quartina(4) = Fuori90(Decina(Estratto(es,2,1)) + Estratto(es,10,3) + 44)
ok = 1
End If
If a = 5 And b = 49 Or a = 49 And b = 5 Then
quartina(1) = Fuori90(Decina(Estratto(es,9,4)) + Estratto(es,10,4) + 43)
quartina(2) = Fuori90(Cadenza(Estratto(es,6,4) + Decina(Estratto(es,6,4)) + Estratto(es,2,5)) + 5)
quartina(3) = Fuori90(Figura(Estratto(es,8,5)) + Estratto(es,6,1) + 6)
quartina(4) = Fuori90(Cadenza(Estratto(es,5,2)) + Estratto(es,10,4) + 56)
ok = 1
End If
If a = 26 And b = 61 Or a = 61 And b = 26 Then
quartina(1) = Fuori90(Diametrale(Estratto(es,5,5)) + Estratto(es,2,4) + 1)
quartina(2) = Fuori90(Cadenza(Estratto(es,4,5)) + Estratto(es,2,2) + 1)
quartina(3) = Fuori90(Cadenza(Estratto(es,7,5)) + Estratto(es,4,1) + 1)
quartina(4) = Fuori90(DiametraleD(Estratto(es,2,3)) + Estratto(es,12,2) + 2)
ok = 1
End If
If a = 20 And b = 3 Or a = 3 And b = 20 Then
quartina(1) = Fuori90(Cadenza(Estratto(es,6,4)) + Estratto(es,5,2) + 67)
quartina(2) = Fuori90(DiametraleD(Estratto(es,12,4)) + Estratto(es,8,2) + 3)
quartina(3) = Fuori90(DiametraleD(Estratto(es,4,4)) + Estratto(es,4,4) + 16)
quartina(4) = Fuori90(Decina(Estratto(es,8,1)) + Estratto(es,9,3) + 73)
ok = 1
End If
If a = 13 And b = 65 Or a = 65 And b = 13 Then
quartina(1) = Fuori90(Decina(Estratto(es,4,2)) + Estratto(es,10,3) + 55)
quartina(2) = Fuori90(Estratto(es,8,2) + Estratto(es,9,3) + 40)
quartina(3) = Fuori90(Vert(Estratto(es,2,4)) + Estratto(es,6,2) + 7)
quartina(4) = Fuori90(Decina(Estratto(es,1,4)) + Estratto(es,10,5) + 43)
ok = 1
End If
If a = 32 And b = 63 Or a = 63 And b = 32 Then
quartina(1) = Fuori90(Diametrale(Estratto(es,6,2)) + Estratto(es,3,3) + 66)
quartina(2) = Fuori90(ComplAdX(Estratto(es,3,5)) + Estratto(es,5,2) + 35)
quartina(3) = Fuori90(Figura(Estratto(es,2,4)) + Estratto(es,1,1) + 5)
quartina(4) = Fuori90(ComplAdX(Estratto(es,1,3)) + Estratto(es,6,2) + 1)
ok = 1
End If
If ok = 1 Then
co = co + 1
ColoreTesto 1
Scrivi String(80,"*") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " NZ ambo spia " & a & " - " & b,1
Scrivi String(80,"*"),1
ColoreTesto 0
ruota(1) = 1
ImpostaGiocata 1,quartina,ruota,poste,clp
Gioca es,1
End If
Next
Next
Next
ScriviResoconto
End Sub