le distanze magiche, di f_mongillo

Sub main()
Dim nu(4),nu1(1),nu2(2),nu3(8),ruote(2),posta(1),poste(2),post(5)
posta(1)=1:poste(2)=1:post(2)=1:post(3)=1:post(4)=1:post(5)=1

ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8265) '7850 inizio 2008
k=InputBox ("per quanti colpi?","colpi di gioco",14)
ini=ce
fin=EstrazioneFin
Scrivi "le distanze magiche di f_mongillo (script by maxma62)",1
Scrivi String(83,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)"
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
c=Estratto(es,r2,p3):d=Estratto(es,r2,p4)
If p1=p3 And p2=p4 Then 'iso
'-----------------------
do1=Distanza(a,b):do2=Distanza (c,d)'orr
If do1=do2 And (do1=9 Or do1=18 Or do1=27 Or do1=36 Or do1=45) Then
'-----------------------
so1=Fuori90(a+b):so2=Fuori90(c+d)
sv1=Fuori90(a+c):sv2=Fuori90(b+d)
sd1=Fuori90(a+d):sd2=Fuori90(b+c)
td1=Fuori90(so1+so2) '1 triplo diff
td2=Fuori90(sv1+sv2) '2 triplo diff
td3=Fuori90(sd1+sd2) '3 triplo diff
'-----------------------
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. dist. "&format2(do1)
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" - "&StringaEstratti(es,r2)&" ] [ "&_
Format2(c)&"."&format2(d)&" ] in "&(p3)&"^/"&(p4)&"^ pos. dist. "&format2(do2)
Scrivi String(71,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:co=0

n1=90-td2 'ambata
nu(1)=a
nu(2)=b
nu(3)=c
nu(4)=d
OrdinaMatrice nu,-1
n2=Abs(nu(1)-nu(2))
n3=Abs(nu(1)-nu(3))
n4=Abs(nu(1)-nu(4))
n5=Abs(nu(2)-nu(3))
n6=Abs(nu(2)-nu(4))
n7=Abs(nu(3)-nu(4))

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
nu2(2)=n5
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k,0
nu2(2)=n6
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k,0
nu2(2)=n7
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k,0

nu3(1)=n1
nu3(2)=n2
nu3(3)=n3
nu3(4)=n4
nu3(5)=n5
nu3(6)=n6
nu3(7)=n7
co=co+1
ImpostaGiocata co,nu3,ruote,poste,k,0
Gioca es

End If
End If 'iso
Next:Next:Next:Next:Next:Next:Next
Scrivi String(65,"=")&" script by maxma62",1
ScriviResoconto
Scrivi "le distanze magiche di f_mongillo (script by maxma62)",1
End Sub