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(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"



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 '<<<<<<<<<se vuoi meno numeri metti un apice d'avanti a >>>' 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