'Dopo l'uscita del numero spia 90 in 3a posizione su qualsiasi ruota esclusa nazionale,il Listato gioca ambata e 2 Ambi e ambetti (non inseriti nello script) su ruota, diametrale e tutte
'Baricentro90 di Pasquale Robbe
Sub Main()
Dim n(6),n1(3),ru(2),ps(3)
Dim ruo(1)'ruota tutte
Dim am(1)' ambata
Dim ps2(1)' posta ambata
Dim ps3(2)' posta ambo
Dim ambo(2) ' 1° ambo
Dim ambo1(2)' 2° ambo
ps(2) = 2
ps(3) = 1 ' assegno 1 euro al terno
ps2(1) = 1 ' assegno 1 euro all' ambata
ps3(2) = 1 ' assegno 1 euro all' ambo
ru(1) = r
ru(2) = RuotaDiametrale(r)
ruo(1) = 11 'al vettore delle ruote tutte assegno 11 che equivale a tutte
For es = EstrazioneFin - 100 To EstrazioneFin
For r = 1 To 10
If Posizione(es,r,90) = 3 Then
am(1) = ComplAdX(Fuori90(SommaEstratti(es,r)))
ambo(1) = am(1)
ambo(2) = Fuori90(Estratto(es,r,2) + am(1))
ambo1(1) = am(1)
ambo1(2) = Diametrale(ambo(2))
ru(1) = r
ru(2) = RuotaDiametrale(r)
ImpostaGiocata 1,am,ru,ps2,9,1
ImpostaGiocata 2,ambo,ru,ps3,9,2,,2
ImpostaGiocata 3,ambo1,ru,ps3,9,2,,2
ImpostaGiocata 4,ambo,ruo,ps3,9,2,,2
ImpostaGiocata 5,ambo1,ruo,ps3,9,2,,2
Scrivi " @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@",1
ColoreTesto 2 : Scrivi " --------------------------------------------------------------------",1
ColoreTesto 2 : Scrivi DataEstrazione((es),1) & " " & " [" & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " " & "] Sortito 90 : somma = " & Fuori90(SommaEstratti(es,r)) & " e ambata = " & Format2(am(1)) & " abb." & Format2(ambo(2)) & " e " & Format2(ambo1(2)) & " ",1
Gioca es,False,,1
End If
Next
Next
ScriviResoconto
End Sub