AIUTO SCRIPT

Sub main()
Dim n,t,r1,r2,n1,n2,n3,n4
Dim AMBATA(2)
Dim ambo(4)
Dim cinq(10)
Dim ruote(10)
Dim ruota(10)
Dim posta(10)
Dim poste(5)
posta(1)=1
posta(6)=1
posta(7)=1
posta(8)=1
posta(9)=1
posta(10)=1
poste(2)=1
poste(3)=1
For n=8300 To EstrazioneFin
Messaggio DataEstrazione (n)
t=1
Do While DISAMBO(n,t,r1,n1,n2,r2,n3,n4)=True
ruota(1)=11
ruote(1)=r1
ruote(2)=r2
s1=Fuori90(n1+n2)
Scrivi "----------------------------------------------------------"


Scrivi NomeRuota(r1)&" "&Cint(n1)&" + "&Cint(n2)&" ="&Cint(s1)&" "& NomeRuota(r2)&" "&Cint(n3)&" + "&Cint(n4)&" ="&Cint(s1)
Scrivi "Alla Somma Comune Isotopa "&Cint(s1)&" addizioniamo il fisso 17 per ottenere il Primo Numero"
Scrivi "Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero"

AMBATA(1)=Fuori90(s1+17)
AMBATA(2)= Vert (AMBATA(1))
ambo(1)=AMBATA(1)
ambo(2)=AMBATA(2)
cinq(1)=Fuori90(s1+17)
cinq(2)= Vert (AMBATA(1))
cinq(3)=25 '<<<<<<<<<<<<<<<<<<<<<<<<<<metti i numeri che vuoi
cinq(4)=26
cinq(5)=27
cinq(6)=28 '<<<<<<<<<se vuoi meno numeri metti un apice d'avanti a >>>' cinq(6)=28
cinq(7)=29
ImpostaGiocata 1,AMBATA,ruote,posta,9 ' ,2 '<<< se non vuoi intwrruzione giocate togli l'apice
ImpostaGiocata 2,ambo,ruote,poste,9 ' ,2
ImpostaGiocata 3,cinq,ruote,poste,9 ' ,2



'ImpostaInterruzioni 1,2,2
'ImpostaInterruzioni 2,1,2
Gioca n
t=t+1
Loop
Next
ScriviResoconto
End Sub


Function DISAMBO(estrazione, tentativo, byref ruota1, byref numero1, byref numero2, byref ruota2, byref numero3, byref numero4)
Dim trovati,r,rr,i,ii,j,jj
trovati=0
For r= 1 To 12
For i= 4 To 4
j=i+1
a=Estratto (estrazione,r,i)
b=Estratto(estrazione,r,j)
c=Fuori90(a+b)
For rr=r+1 To 12
aa=Estratto(estrazione,rr,i)
bb=Estratto(estrazione,rr,j)
cc=Fuori90(aa+bb)
If c=cc Then
trovati=trovati+1
If trovati=tentativo Then
numero1=a
numero2=b
numero3=aa
numero4=bb
ruota1=r
ruota2=rr
DISAMBO=True
Exit Function
End If
End If
Next
Next
Next
DISAMBO=False
End Function

----------------------------------------------------------
Firenze 85 + 19 =14 Milano 66 + 38 =14
Alla Somma Comune Isotopa 14 addizioniamo il fisso 17 per ottenere il Primo Numero
Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
mar 17.05.2011  [8378]
 G  1:  MD1D2D3D4D5         31.13                  Fi Mi    6/9    
    M  31               su Mi    1° colpo   [8379/19.05.2011]
    D1 31               su Mi    1° colpo   [8379/19.05.2011]
    M  31               su Fi    3° colpo   [8381/24.05.2011]
    D1 31               su Fi    3° colpo   [8381/24.05.2011]
    in corso (6° su 9)
 G  2:  AT                  31.13                  Fi Mi    6/9    
    in corso (6° su 9)
 G  3:  AT                  31.13.25.26.27.28.29   Fi Mi    6/9    
    in corso (6° su 9)
----------------------------------------------------------