SCRIPT AGGIORNAMENTO
'
https://image.forumfree.it/1/3/1/4/0/5/5/6/1657547302.jpg
'
https://image.forumfree.it/1/3/1/4/0/5/5/6/1657547304.jpg
'
https://oltreillotto.forumfree.it/?t=79202331#lastpost
'
https://enzob-metodieprevisioni.forumfree.it/?t=79202328#newpost
'11-07-2022
ColoreTesto 2 :Scrivi String(17,32) & " IL SOGNO DEL TERNO aggiornamento by Enzob",1
ColoreTesto 0
Sub Main()
Dim nu1(10),nu2(10),nu3(3),nu4(10),am(5),am3(3),am4(5)
Dim ruote(10),ruota(10)
Dim poste(5),posta(5),poste2(5),poste3(5)
posta(1) = 1
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",25))
k = CInt(InputBox("Quanti colpi di Gioco?","colpi di Gioco",12))
fin = EstrazioneFin
ini = fin - z
For es = ini To fin
Messaggio DataEstrazione(es,1) & " IL SOGNO DEL TERNO by Enzob "
For r1 = 1 To 10
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 Distanza(n1,n2) = 10 Then
For r2 = 1 To 10
If r2 = 11 Then r2 = 12
For p3 = 1 To 5
If r1 <> r2 Then
n3 = Estratto(es,r2,p3)
If(n3 = 10 And Distanza(n1,n2) = 10)And(p3 = p1 Or p3 = p2)Then
n4 = Fuori90(Estratto(es,1,2) + Estratto(es,3,4) + 1)'ambata
n44 = Fuori90(Estratto(es,8,4) + Estratto(es,12,5) + 3)'ambo
n444 = Fuori90(Estratto(es,6,5) + Estratto(es,9,5) + 3)'terno
n5 = Fuori90(Estratto(es,1,2) + Estratto(es,2,1) + 1)'ambata
n55 = Fuori90(Estratto(es,3,2) + Estratto(es,7,3) + 15)'ambo
n555 = Fuori90(Estratto(es,8,2) + Estratto(es,10,1) + 2)'terno
n6 = Fuori90(Estratto(es,1,1) + Estratto(es,1,2) + 1)'ambata
n66 = Fuori90(Estratto(es,2,1) + Estratto(es,3,4) + 1)'ambo
n666 = Fuori90(Estratto(es,2,1) + Estratto(es,7,2) + 1)'terno
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
am(1) = n4
am(2) = n5
am(3) = n6
ImpostaGiocata 1,am,ruote,posta,k
am4(1) = n4
am4(2) = n44
am4(3) = n444
ImpostaGiocata 2,am4,ruota,poste2,k
am4(1) = n5
am4(2) = n55
am4(3) = n555
ImpostaGiocata 3,am4,ruota,poste2,k
am4(1) = n6
am4(2) = n66
am4(3) = n666
ImpostaGiocata 4,am4,ruota,poste2,k
Gioca es
End If
End If
Next
Next
End If
Next
Next
Next
Next
ScriviResoconto
End Sub