FAVOLOSO 90 by Maurizio Carini

'https://enzob-metodieprevisioni.forumfree.it/?t=78556094
'https://image.forumfree.it/1/3/1/4/0/5/5/6/1624905407.jpg
'03-07-2021
Scrivi "============================= FAVOLOSO 90 by Maurizio Carini ",1
Scrivi String(70,"="),1
Sub Main()
Scrivi "": Scrivi
Dim ruote(10),ambata(5),ambo(5),ambi(5)
Dim posta(1),poste(2)
posta(1) = 1
poste(2) = 1
ini =9776 '8587 '
spy =90
k =13
fin = EstrazioneFin
For es = ini To fin
For ruo = 1 To 10
For pos = 1 To 5
n1 = Estratto(es,ruo,pos)
If n1 = spy Then

If ruo=1 Then a=Fuori90(Estratto(es,9,1)+66):b=Fuori90(Estratto(es,2,1)+5):ru1=5:ru2=9
If ruo=2 Then a=Fuori90(Estratto(es,3,1)+11):b=Fuori90(Estratto(es,10,2)+4):ru1=5:ru2=7
If ruo=3 Then a=Fuori90(Estratto(es,3,3)+48):b=Fuori90(Estratto(es,9,2)+90):ru1=2:ru2=7
If ruo=4 Then a=Fuori90(Estratto(es,3,4)+46):b=Fuori90(Estratto(es,9,1)+55):ru1=6:ru2=8
If ruo=5 Then a=Fuori90(Estratto(es,3,2)+45):b=Fuori90(Estratto(es,9,1)+44):ru1=6:ru2=7
If ruo=6 Then a=Fuori90(Estratto(es,3,1)+50):b=Fuori90(Estratto(es,6,1)+26):ru1=2:ru2=3
If ruo=7 Then a=Fuori90(Estratto(es,3,2)+46):b=Fuori90(Estratto(es,6,1)+1):ru1=7:ru2=9
If ruo=8 Then a=Fuori90(Estratto(es,3,3)+34):b=Fuori90(Estratto(es,6,3)+90):ru1=4:ru2=6
If ruo=9 Then a=Fuori90(Estratto(es,3,5)+60):b=Fuori90(Estratto(es,6,3)+46):ru1=1:ru2=9
If ruo=10 Then a=Fuori90(Estratto(es,3,2)+89):b=Fuori90(Estratto(es,6,5)+3):ru1=1:ru2=7

amb = 90
ru3=11

If a=90 Then a=45
If b=90 Then b=45
ruote(1) = ru1 : ruote(2) = ru2: ruote(3) = ru3
co = co + 1 : Scrivi String(100,"=") & " Caso n°" & Format2(co),1
Scrivi DataEstrazione(es) & " " & SiglaRuota(ruo) & " " & StringaEstratti(es,ruo) & " Spia " & Format2(spy) & " in " & pos & "° Posizione",1

ambo(1) = amb
ambo(2) = a
ImpostaGiocata 1,ambo,ruote,poste,k
ambo(1) = amb
ambo(2) = b
ImpostaGiocata 2,ambo,ruote,poste,k


Gioca es
End If
Next
Next
Next
Scrivi:Scrivi:ScriviResoconto
End Sub