AIUTO SCRIPT

----------------------------------------------------------
Bari 6 + 40 =46  Milano 37 + 9 =46
Alla Somma Comune Isotopa 46 addizioniamo il fisso 17 per ottenere il Primo Numero
Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
mar 24.05.2011  [8381]
 G  1:  M       63.36   Ba Mi    3/9    
    in corso (3° su 9)
 G  2:  AT      63.36   Ba Mi    3/9    
    in corso (3° su 9)
----------------------------------------------------------
Firenze 70 + 69 =49  Nazionale 77 + 62 =49
Alla Somma Comune Isotopa 49 addizioniamo il fisso 17 per ottenere il Primo Numero
Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
mar 24.05.2011  [8381]
 G  1:  M       66.69   Fi Nz    3/9    
    M  66               su Fi    1° colpo   [8382/26.05.2011]
    in corso (3° su 9)
 G  2:  AT      66.69   Fi Nz    3/9    
    in corso (3° su 9)
----------------------------------------------------------
Bari 26 + 4 =30  Roma 52 + 68 =30
Alla Somma Comune Isotopa 30 addizioniamo il fisso 17 per ottenere il Primo Numero
Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
gio 26.05.2011  [8382]
 G  1:  M       47.74   Ba Ro    2/9    
    in corso (2° su 9)
 G  2:  AT      47.74   Ba Ro    2/9    
    in corso (2° su 9)

----------------------------------------------------------
Sub main()
Dim n,t,r1,r2,n1,n2,n3,n4

Dim AMBATA(2)
Dim am(4)
Dim am1(10)
Dim ruote(10)
Dim ruota(10)
Dim posta(5)
Dim poste(5)
posta(1)=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"

'am1(1)=s1


AMBATA(1)=Fuori90(s1+17)
AMBATA(2)= Vert (AMBATA(1))
am1(2)=AMBATA(1)
am1(3)=AMBATA(2)
ImpostaGiocata 1,AMBATA,ruote,posta,9,2

ImpostaGiocata 2,am1,ruote,poste,9,2
'ImpostaGiocata 3,am1,ruota,poste,9,2

'ImpostaInterruzioni 1,2,2
'ImpostaInterruzioni 2,1,2
Gioca n
'Gioca AMBATA
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