joi_lotto
Super Member >PLATINUM<
Ciao Blackmore.
Mi sono permesso di modificare (ex novo) un Tuo script riguardante l'ambo gemello.
Io ho fatto un ricerca riguardante la ruota di NAPOLI e guarda cosa ne è uscito!?
Sub Main()
ColoreTesto 2 :Scrivi "METODO BY BLACKMORE <> LISTATO MIO"
ColoreTesto 2 :Scrivi "PER ELEPHANTBIG <> PROGRAMMA USATO PER LA COSTRUZIONE DEI METODI: SPAZIOMETRIA 1-2-87"
ColoreTesto 2 :Scrivi "FORUM: <http://www.lottoced.com/>"
ColoreTesto 2 :Scrivi "UNA QUARTINA DOPO L'USCITA DI UN AMBO GEMELLO SU NAPOLI"
ColoreTesto 2 :Scrivi "INIZIO RICERCA: 10/01/2001 - FINE RICERCA: 22/09/2011"
Scrivi : ColoreTesto 0
Dim ruota(1),amb(4),nu1(2),nu2(3),nu3(4),nu4(4),pt(1),ruote(10),pt1(4)
pt1(2) = 1 t1(3) = 0.40 t1(4) = 0.10
clp = 13
ini = EstrazioneFin - 1466
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
ruote(1) = 6
For p = 1 To 4
For p1 = p + 1 To 5
a = Estratto(es,6,p) : b = Estratto(es,6,p1)
'-------------------------------------------------------------------
ok = 0
If a = 11 And b = 22 Or a = 22 And b = 11 Then amb(1) = Fuori90(Estratto(es,6,4) + 09):amb(2) = Fuori90(Estratto(es,6,4) + 14):amb(3) = Fuori90(Estratto(es,6,4) + 27):amb(4) = Fuori90(Estratto(es,6,4) + 62)k = 1
If a = 11 And b = 33 Or a = 33 And b = 11 Then amb(1) = Fuori90(Estratto(es,6,5) + 02):amb(2) = Fuori90(Estratto(es,6,5) + 08):amb(3) = Fuori90(Estratto(es,6,5) + 65):amb(4) = Fuori90(Estratto(es,6,5) + 80)k = 1
If a = 11 And b = 44 Or a = 44 And b = 11 Then amb(1) = Fuori90(Estratto(es,6,2) + 07):amb(2) = Fuori90(Estratto(es,6,2) + 11):amb(3) = Fuori90(Estratto(es,6,2) + 24):amb(4) = Fuori90(Estratto(es,6,2) + 60)k = 1
If a = 11 And b = 55 Or a = 55 And b = 11 Then amb(1) = Fuori90(Estratto(es,6,3) + 01):amb(2) = Fuori90(Estratto(es,6,3) + 05):amb(3) = Fuori90(Estratto(es,6,3) + 72):amb(4) = Fuori90(Estratto(es,6,3) + 78)k = 1
If a = 11 And b = 66 Or a = 66 And b = 11 Then amb(1) = Fuori90(Estratto(es,6,2) + 04):amb(2) = Fuori90(Estratto(es,6,2) + 06):amb(3) = Fuori90(Estratto(es,6,2) + 21):amb(4) = Fuori90(Estratto(es,6,3) + 27)k = 1
If a = 11 And b = 77 Or a = 77 And b = 11 Then amb(1) = Fuori90(Estratto(es,6,3) + 01):amb(2) = Fuori90(Estratto(es,6,3) + 64):amb(3) = Fuori90(Estratto(es,6,3) + 72):amb(4) = Fuori90(Estratto(es,6,3) + 78)k = 1
If a = 11 And b = 88 Or a = 88 And b = 11 Then amb(1) = Fuori90(Estratto(es,6,5) + 30):amb(2) = Fuori90(Estratto(es,6,5) + 44):amb(3) = Fuori90(Estratto(es,6,5) + 49):amb(4) = Fuori90(Estratto(es,6,5) + 78)k = 1
If a = 22 And b = 33 Or a = 33 And b = 22 Then amb(1) = Fuori90(Estratto(es,6,2) + 02):amb(2) = Fuori90(Estratto(es,6,2) + 10):amb(3) = Fuori90(Estratto(es,6,2) + 50):amb(4) = Fuori90(Estratto(es,6,2) + 51)k = 1
If a = 22 And b = 44 Or a = 44 And b = 22 Then amb(1) = Fuori90(Estratto(es,6,4) + 09):amb(2) = Fuori90(Estratto(es,6,4) + 20):amb(3) = Fuori90(Estratto(es,6,4) + 44):amb(4) = Fuori90(Estratto(es,6,4) + 57)k = 1
If a = 22 And b = 55 Or a = 55 And b = 22 Then amb(1) = Fuori90(Estratto(es,6,5) + 02):amb(2) = Fuori90(Estratto(es,6,5) + 08):amb(3) = Fuori90(Estratto(es,6,5) + 65):amb(4) = Fuori90(Estratto(es,6,5) + 84)k = 1
If a = 22 And b = 66 Or a = 66 And b = 22 Then amb(1) = Fuori90(Estratto(es,6,5) + 02):amb(2) = Fuori90(Estratto(es,6,5) + 08):amb(3) = Fuori90(Estratto(es,6,5) + 37):amb(4) = Fuori90(Estratto(es,6,5) + 76)k = 1
If a = 22 And b = 77 Or a = 77 And b = 22 Then amb(1) = Fuori90(Estratto(es,6,4) + 07):amb(2) = Fuori90(Estratto(es,6,4) + 20):amb(3) = Fuori90(Estratto(es,6,4) + 31):amb(4) = Fuori90(Estratto(es,6,4) + 57)k = 1
If a = 22 And b = 88 Or a = 88 And b = 22 Then amb(1) = Fuori90(Estratto(es,6,5) + 28):amb(2) = Fuori90(Estratto(es,6,5) + 37):amb(3) = Fuori90(Estratto(es,6,5) + 44):amb(4) = Fuori90(Estratto(es,6,5) + 48)k = 1
If a = 33 And b = 44 Or a = 44 And b = 33 Then amb(1) = Fuori90(Estratto(es,6,5) + 27):amb(2) = Fuori90(Estratto(es,6,5) + 47):amb(3) = Fuori90(Estratto(es,6,5) + 59):amb(4) = Fuori90(Estratto(es,6,5) + 81)k = 1
If a = 33 And b = 55 Or a = 55 And b = 33 Then amb(1) = Fuori
Mi sono permesso di modificare (ex novo) un Tuo script riguardante l'ambo gemello.
Io ho fatto un ricerca riguardante la ruota di NAPOLI e guarda cosa ne è uscito!?
Sub Main()
ColoreTesto 2 :Scrivi "METODO BY BLACKMORE <> LISTATO MIO"
ColoreTesto 2 :Scrivi "PER ELEPHANTBIG <> PROGRAMMA USATO PER LA COSTRUZIONE DEI METODI: SPAZIOMETRIA 1-2-87"
ColoreTesto 2 :Scrivi "FORUM: <http://www.lottoced.com/>"
ColoreTesto 2 :Scrivi "UNA QUARTINA DOPO L'USCITA DI UN AMBO GEMELLO SU NAPOLI"
ColoreTesto 2 :Scrivi "INIZIO RICERCA: 10/01/2001 - FINE RICERCA: 22/09/2011"
Scrivi : ColoreTesto 0
Dim ruota(1),amb(4),nu1(2),nu2(3),nu3(4),nu4(4),pt(1),ruote(10),pt1(4)
pt1(2) = 1 t1(3) = 0.40 t1(4) = 0.10
clp = 13
ini = EstrazioneFin - 1466
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
ruote(1) = 6
For p = 1 To 4
For p1 = p + 1 To 5
a = Estratto(es,6,p) : b = Estratto(es,6,p1)
'-------------------------------------------------------------------
ok = 0
If a = 11 And b = 22 Or a = 22 And b = 11 Then amb(1) = Fuori90(Estratto(es,6,4) + 09):amb(2) = Fuori90(Estratto(es,6,4) + 14):amb(3) = Fuori90(Estratto(es,6,4) + 27):amb(4) = Fuori90(Estratto(es,6,4) + 62)k = 1
If a = 11 And b = 33 Or a = 33 And b = 11 Then amb(1) = Fuori90(Estratto(es,6,5) + 02):amb(2) = Fuori90(Estratto(es,6,5) + 08):amb(3) = Fuori90(Estratto(es,6,5) + 65):amb(4) = Fuori90(Estratto(es,6,5) + 80)k = 1
If a = 11 And b = 44 Or a = 44 And b = 11 Then amb(1) = Fuori90(Estratto(es,6,2) + 07):amb(2) = Fuori90(Estratto(es,6,2) + 11):amb(3) = Fuori90(Estratto(es,6,2) + 24):amb(4) = Fuori90(Estratto(es,6,2) + 60)k = 1
If a = 11 And b = 55 Or a = 55 And b = 11 Then amb(1) = Fuori90(Estratto(es,6,3) + 01):amb(2) = Fuori90(Estratto(es,6,3) + 05):amb(3) = Fuori90(Estratto(es,6,3) + 72):amb(4) = Fuori90(Estratto(es,6,3) + 78)k = 1
If a = 11 And b = 66 Or a = 66 And b = 11 Then amb(1) = Fuori90(Estratto(es,6,2) + 04):amb(2) = Fuori90(Estratto(es,6,2) + 06):amb(3) = Fuori90(Estratto(es,6,2) + 21):amb(4) = Fuori90(Estratto(es,6,3) + 27)k = 1
If a = 11 And b = 77 Or a = 77 And b = 11 Then amb(1) = Fuori90(Estratto(es,6,3) + 01):amb(2) = Fuori90(Estratto(es,6,3) + 64):amb(3) = Fuori90(Estratto(es,6,3) + 72):amb(4) = Fuori90(Estratto(es,6,3) + 78)k = 1
If a = 11 And b = 88 Or a = 88 And b = 11 Then amb(1) = Fuori90(Estratto(es,6,5) + 30):amb(2) = Fuori90(Estratto(es,6,5) + 44):amb(3) = Fuori90(Estratto(es,6,5) + 49):amb(4) = Fuori90(Estratto(es,6,5) + 78)k = 1
If a = 22 And b = 33 Or a = 33 And b = 22 Then amb(1) = Fuori90(Estratto(es,6,2) + 02):amb(2) = Fuori90(Estratto(es,6,2) + 10):amb(3) = Fuori90(Estratto(es,6,2) + 50):amb(4) = Fuori90(Estratto(es,6,2) + 51)k = 1
If a = 22 And b = 44 Or a = 44 And b = 22 Then amb(1) = Fuori90(Estratto(es,6,4) + 09):amb(2) = Fuori90(Estratto(es,6,4) + 20):amb(3) = Fuori90(Estratto(es,6,4) + 44):amb(4) = Fuori90(Estratto(es,6,4) + 57)k = 1
If a = 22 And b = 55 Or a = 55 And b = 22 Then amb(1) = Fuori90(Estratto(es,6,5) + 02):amb(2) = Fuori90(Estratto(es,6,5) + 08):amb(3) = Fuori90(Estratto(es,6,5) + 65):amb(4) = Fuori90(Estratto(es,6,5) + 84)k = 1
If a = 22 And b = 66 Or a = 66 And b = 22 Then amb(1) = Fuori90(Estratto(es,6,5) + 02):amb(2) = Fuori90(Estratto(es,6,5) + 08):amb(3) = Fuori90(Estratto(es,6,5) + 37):amb(4) = Fuori90(Estratto(es,6,5) + 76)k = 1
If a = 22 And b = 77 Or a = 77 And b = 22 Then amb(1) = Fuori90(Estratto(es,6,4) + 07):amb(2) = Fuori90(Estratto(es,6,4) + 20):amb(3) = Fuori90(Estratto(es,6,4) + 31):amb(4) = Fuori90(Estratto(es,6,4) + 57)k = 1
If a = 22 And b = 88 Or a = 88 And b = 22 Then amb(1) = Fuori90(Estratto(es,6,5) + 28):amb(2) = Fuori90(Estratto(es,6,5) + 37):amb(3) = Fuori90(Estratto(es,6,5) + 44):amb(4) = Fuori90(Estratto(es,6,5) + 48)k = 1
If a = 33 And b = 44 Or a = 44 And b = 33 Then amb(1) = Fuori90(Estratto(es,6,5) + 27):amb(2) = Fuori90(Estratto(es,6,5) + 47):amb(3) = Fuori90(Estratto(es,6,5) + 59):amb(4) = Fuori90(Estratto(es,6,5) + 81)k = 1
If a = 33 And b = 55 Or a = 55 And b = 33 Then amb(1) = Fuori