CODICE
Sub main()
Dim nu1(1),nu2(2),nu3(4),ruote(2),ruota(1),posta(1),poste(2),post(4)
posta(1)=5:poste(2)=5:post(2)=5:post(3)=5:post(4)=5
ce=CInt(InputBox("da quale estrazione vuoi controllare? ","estrazione",6947)) '6947 metodo
k=CInt(InputBox ("per quanti colpi?","colpi di gioco",14))
ini=ce
fin=EstrazioneFin
Scrivi "teoria dei vortici di a_scaravetti (script by maxma62)",1
Scrivi String(83,"="),1
Scrivi "resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)",1
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&DataEstrazione(es,1)
For r1=1 To 9
For p1=1 To 4
For p2=p1+1 To 5
a=Estratto(es,r1,p1):b=Estratto(es,r1,p2)
For r2=r1+1 To 10
For p3=1 To 4
For p4=p3+1 To 5
If p1=p3 And p2=p4 Then 'iso
c=Estratto(es,r2,p3):d=Estratto(es,r2,p4)
dd1=Distanza(a,d):dd2=Distanza(b,c)'dia
dv1=Distanza(a,c):dv2=Distanza(b,d)'ver
If dd1=dd2 Or dv1=dv2 Then
sv1=Fuori90(a+c):sv2=Fuori90(b+d)'somma ver
sd1=Fuori90(a+d):sd2=Fuori90(b+c)'somma dia
If Fuori90(a+c)=b Or Fuori90(a+c)=d Or Fuori90(b+d)=a Or Fuori90(b+d)=c Then
If Fuori90(a+c)=b Then n1=d : n2=a : n3=b : n4=c
If Fuori90(a+c)=d Then n1=b : n2=a : n3=c : n4=d
If Fuori90(b+d)=b Then n1=c : n2=a : n3=b : n4=d
If Fuori90(b+d)=c Then n1=a : n2=b : n3=c : n4=d
casi=casi+1:Scrivi String(65,"=")&" script by maxma62",1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&StringaEstratti(es,r1)&" ] [ "&_
Format2(a)&"."&format2(b)&" ] in "&(p1)&"^/"&(p2)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" - "&StringaEstratti(es,r2)&" ] [ "&_
Format2(c)&"."&format2(d)&" ] in "&(p3)&"^/"&(p4)&"^ pos."
Scrivi String(71,"-")&" caso n° "&(casi)
If dd1=dd2 Then
Scrivi Format2(a)&" e "&format2(d)&" = dist. dia. "&format2(dd1)&_
" / "&format2(b)&" e "&format2(c)&" = dist. dia. "&format2(dd2)
Scrivi String(83,"-")
Else
If dv1=dv2 Then
Scrivi Format2(a)&" e "&format2(c)&" = dist. ver. "&format2(dv1)&_
" / "&format2(b)&" e "&format2(d)&" = dist. ver. "&format2(dv2)
Scrivi String(83,"-")
End if:end If
If Fuori90(a+c)=b Then
Scrivi "somma "&format2(a)&" + "&format2(c)&" = "&format2(b)
Else
If Fuori90(a+c)=d Then
Scrivi "somma "&format2(a)&" + "&format2(c)&" = "&format2(d)
Else
If Fuori90(b+d)=a Then
Scrivi "somma "&format2(b)&" + "&format2(d)&" = "&format2(a)
Else
If Fuori90(b+d)=c Then
Scrivi "somma "&format2(b)&" + "&format2(d)&" = "&format2(c)
End if:end if:end if:end If
Scrivi "altro numero "&format2(n1)
Scrivi String(83,"-")
ruote(1)=r1:ruote(2)=r2::ruota(1)=11:co=0
nu1(1)=n1
co=co+1
ImpostaGiocata co,nu1,ruote,posta,k,0
nu2(1)=n1
nu2(2)=n2
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k,0
nu2(2)=n3
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k,0
nu2(2)=n4
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k,0
nu3(1)=n1:nu3(2)=n2:nu3(3)=n3:nu3(4)=n4
co=co+1
ImpostaGiocata co,nu3,ruote,post,k,0
co=co+1
ImpostaGiocata co,nu3,ruota,post,k,0
Gioca es
End If
End If 'iso
End If
Next:Next:Next:Next:Next:Next:Next
Scrivi String(80,"="),1
ScriviResoconto
Scrivi "teoria dei vortici di a_scaravetti (script by maxma62)",1
End Sub
