ammmmmore ecco qua

Sub main()
Dim ru(3),rur(1),ab(6),ambata(1),lun(4),ps(2),ps1(2),ps2(5)
ps(1)=1:ps1(2)=1:ps2(2)=1:ps2(3)=0.80
ee= CInt(InputBox(" Estrazioni da esaminare ",,400))
If ee="" Then Exit Sub
im=CInt(InputBox("Indice mensile ",,6))
If im="" Then Exit Sub
fin=EstrazioneFin
ini=fin-ee
rur(1)=11
r=4
rr=5
rrr=3
ru(1)=r
ru(2)=rr
ru(3)=rrr
For es=ini To fin
If IndiceMensile(es)=im Then
Messaggio(es)
a=Estratto(es,3,4)
b=48 ' codice
ambata(1)=Fuori90(a+b)

co=1
Scrivi String(87,"°")
ImpostaGiocata co,ambata,ru,ps,14
ab(1)=Fuori90(Estratto(es-2,3,5)+20)
ab(2)=Fuori90(Estratto(es,3,1)+24)
ab(3)=Fuori90(Estratto(es,3,2)+62)

lun(1)=ambata(1)  
lun(2)=ab(1)
lun(3)=ab(2)
lun(4)=ab(3)

ImpostaGiocata 2,lun,ru,ps2,14
ImpostaGiocata 3,lun,rur,ps2,14
Gioca es
End If
Next
ScriviResoconto
End Sub

Sub main
Dim ru(2),num1(1),num2(2),num3(3),num4(8)
Dim posta(1),poste(2),post(3),pos(5)

posta(1)=1:poste(2)=1
post(2)=1:post(3)=1
pos(2)=1:pos(3)=1:pos(4)=1:pos(5)=1
ce=CInt(InputBox("da quale estrazione vuoi controllare? ","estrazione",8164))
k=CInt(InputBox ("per quanti colpi?","colpi di gioco",14))
Scrivi "ambata, ambi e terni si riparte da firenze di m_bartalini (script by maxma62)",1
Scrivi String(78,"="),1
ini=ce
fin=EstrazioneFin
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)",1
For es=ini To EstrazioneFin
If IndiceMensile(es)=6  Then '6 = sesta estrazione
r1=3 'ruota ricerca
p1=4 'posizione
r2=4 'ruota gioco
r3=5 'ruota gioco
a=Estratto(es,r1,p1)
n1=Fuori90(a+48)

casi=casi+1:Scrivi String(60,"=")&" script by maxma62",1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&StringaEstratti(es,r1)&" ] [ "&_
Format2(a)&" ] in "&(p1)&"^ pos."
Scrivi String(65,"-")&" caso n° "&(casi)
ru(1)=r2:ru(2)=r3:co=0

num1(1)=n1
co=co+1
ImpostaGiocata co,num1,ru,posta,k
num2(1)=n1:num2(2)=19
co=co+1
ImpostaGiocata co,num2,ru,poste,k
num2(2)=33
co=co+1
ImpostaGiocata co,num2,ru,poste,k
num2(2)=49
co=co+1
ImpostaGiocata co,num2,ru,poste,k

num3(1)=n1:num3(2)=19:num3(3)=55
co=co+1
ImpostaGiocata co,num3,ru,post,k
num3(3)=80
co=co+1
ImpostaGiocata co,num3,ru,post,k
num3(3)=6
co=co+1
ImpostaGiocata co,num3,ru,post,k
num3(3)=22
co=co+1
ImpostaGiocata co,num3,ru,post,k

num3(1)=n1:num3(2)=33:num3(3)=55
co=co+1
ImpostaGiocata co,num3,ru,post,k
num3(3)=80
co=co+1
ImpostaGiocata co,num3,ru,post,k
num3(3)=6
co=co+1
ImpostaGiocata co,num3,ru,post,k
num3(3)=22
co=co+1
ImpostaGiocata co,num3,ru,post,k

num3(1)=n1:num3(2)=49:num3(3)=55
co=co+1
ImpostaGiocata co,num3,ru,post,k
num3(3)=80
co=co+1
ImpostaGiocata co,num3,ru,post,k
num3(3)=6
co=co+1
ImpostaGiocata co,num3,ru,post,k
num3(3)=22
co=co+1
ImpostaGiocata co,num3,ru,post,k

num4(1)=n1:num4(2)=19:num4(3)=33
num4(4)=49:num4(5)=55:num4(6)=80
num4(7)=6:num4(8)=22
co=co+1
ImpostaGiocata co,num4,ru,pos,k

Gioca es

End If
Next
Scrivi String(60,"=")&" script by maxma62",1
ScriviResoconto
Scrivi "ambata, ambi e terni si riparte da firenze di m_bartalini (script by maxma62)",1
End Sub

gio 13.01.2011  [8325]
 G  1:  M       79                           Fi Ge Mi    3/14    
    in corso (3° su 14)
 G  2:  AT      79.62.81.71                Fi Ge Mi    3/14    
    in corso (3° su 14)
 G  3:  AT      79.19.33.49                 Fi Ge Mi     3/14    
    in corso (3° su 14)
 G  4:  AT      79.62.19.33.49.55.80.06.22    Fi Ge Mi     3/14    
    A  55.19            su Fi    2° colpo   [8327/18.01.2011]
    A  06.22            su Mi    2° colpo   [8327/18.01.2011]
    A  19.06            su Fi    3° colpo   [8328/20.01.2011]
    in corso (3° su 14)