'https://www.youtube.com/watch?v=05LMFVxM2Yg



ColoreTesto 2 :Scrivi String(17,32)&"  LA MUMMIA  by Franca46",1



ColoreTesto 0


Sub main()
Dim nu1(10),nu2(10),nu3(3),nu4(10),am(2),am3(3),am4(5)
Dim ruote(10),ruota(10)
Dim poste(5),posta(10),poste2(5),poste3(5)

poste(2)=1
poste2(2)=1
poste2(3)=1
poste3(2)=1.20
poste3(3)=1.40
poste3(4)=.40
z=CInt(InputBox ("Quante estrazione controllare?","estrazioni",60))
k=CInt(InputBox ("Quanti colpi di Gioco?","colpi di Gioco",12))
fin=EstrazioneFin  '8367'esempio
ini=fin-z           '8367 '  
For es=ini To fin
Messaggio DataEstrazione (es,1)&" LA MUMMIA  by Franca46  "


For r1=1 To 12
If r1=11 Then r1=12
For p1=1 To 4
For p2=p1+1 To 5

n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2)

If DecinaCabalistica(n1)=DecinaCabalistica(n2)  And Distanza(p1,p2)=2 Then


For r2=1 To 12
If r2=11 Then r2=12
For p3=1 To 5
If r1<>r2 Then
n3=Estratto(es,r2,p3)
If (DecinaCabalistica(n2)=DecinaCabalistica(n3) )And n3<>n1 And n3<>n2 And (p3=p1+1)Then

n4=Decina(n1)+Decina(n2)+Decina(n3)
n5=Cadenza(n1)+Cadenza(n2)+Cadenza(n3)


'n4=Estratto(es,r1,p3)'ambata
'n5=Diametrale(n4)





casi=casi+1:Scrivi String(75,"="),1
Scrivi String(65,"-")&" caso n° "&(casi),1
Scrivi
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)& "    "&Format2(n1)& "    "&Format2(n2),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r2)& " "& StringaEstratti(es,r2)& "       "&Format2(n3),1

Scrivi
ruota(1)=r1:ruota(2)=r2:ruota(3)=11
ruote(1)=r1:ruote(2)=r2:co=0

Erase posta
posta(1)=1
posta(2)=1
posta(p3+5)=1



am(1)=n4
am(2)=n5
ImpostaGiocata 1,am,ruote,posta,k 

Gioca es
ColoreTesto 2
Scrivi "      AMBETTI   ",1
ColoreTesto 0
am3(1)=n4
am3(2)=Fuori90(n5+1)

ImpostaGiocata 2,am3,ruote,poste,k 
am3(1)=n4
am3(2)=Fuori90(90+n5-1)

ImpostaGiocata 3,am3,ruote,poste,k 
am3(1)=Fuori90(n4+1)
am3(2)=n5
ImpostaGiocata 4,am3,ruote,poste,k 
am3(1)=Fuori90(90+n4-1)
am3(2)=n5
ImpostaGiocata 5,am3,ruote,poste,k


Gioca es
End If
End If
Next
Next
End If
Next
Next
Next
Next
ScriviResoconto
End Sub