PER CORTESIA

[farfalla2]

Per cortesia…..avrei bisogno di uno script di Fabio Bubù su Torino. La previsione viene ricavata ad ogni estrazione per 3 colpi e mette in gioco una quaterna.

5°BARI + 4°FIRENZE + 3°MILANO + 83 X89

3°BARI + 1°GENOVA + 1°PALERMO +14 X01

5°BARI + 3°MILANO + 5°PALERMO +73 X53

3°CAGLIARI + 5°GENOVA + 1°PALERMO+06 X79



GRAZIEEEEEEEEE

 

[Marcorun]

Ciao.....sono uno (pessimo )scripter autodidatta,ma mi sembrava cosa facile così ci ho provato....
BOH....provalo!

Sub Main()
Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
posta(2) = 1
posta(3) = 1
posta(4) = 1
posta(1) = 0
ruote(1) = 9
For n = EstrazioneFin - 100 To EstrazioneFin

numeri1(1) = Fuori90(((Estratto(n,1,5)) + (Estratto(n,3,4)) + (Estratto(n,5,3)) + 83) * 89)
numeri1(2) = Fuori90(((Estratto(n,1,3)) + (Estratto(n,4,1)) + (Estratto(n,7,1)) + 14) * 1)
numeri1(3) = Fuori90(((Estratto(n,1,5)) + (Estratto(n,5,3)) + (Estratto(n,7,5)) + 73) * 53)
numeri1(4) = Fuori90(((Estratto(n,2,3)) + (Estratto(n,4,5)) + (Estratto(n,7,1)) + 6) * 79)

EliminaRipetuti numeri1
ImpostaGiocata 1,numeri1,ruote,posta,3,4
Scrivi "------------------------------------------------------------------------------------------------------------"
Gioca n

Next
ScriviResoconto
End Sub

 

[farfalla2]

CIAO MARCORUN....SCRIPT PERFETTO.....GRAZIEEEEEEEEEEEEEEEE

 

[Alien.]

Ciao Marcorun, ottimo come apprendista io ancora no,mi spieghi cosa vuol dire :

Sub Main()
Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
posta(2) = 1
posta(3) = 1
posta(4) = 1
posta(1) = 0
ruote(1) = 9
For n = EstrazioneFin - 100 To EstrazioneFin


poi

EliminaRipetuti numeri1
ImpostaGiocata 1,numeri1,ruote,posta,3,4
Scrivi "------------------------------------------------------------------------------------------------------------"
Gioca n






sono stato in posta ma non me lo hanno spiegato

 

[Marcorun]

 

[Alien.]

Ciao farfalla ma è un nuovo metodo di Fabio o nuovo,grazie.

 

[Marcorun]

Ciao Marcorun, ottimo come apprendista io ancora no,mi spieghi cosa vuol dire :

Sub Main()
Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
posta(2) = 1
posta(3) = 1
posta(4) = 1
posta(1) = 0
ruote(1) = 9
For n = EstrazioneFin - 100 To EstrazioneFin


poi

EliminaRipetuti numeri1
ImpostaGiocata 1,numeri1,ruote,posta,3,4
Scrivi "------------------------------------------------------------------------------------------------------------"
Gioca n






sono stato in posta ma non me lo hanno spiegato

Mi rovini la festa!....sii buono!

 

[Alien.]

è si forse hai ragione . Sorry

per

Ciao farfalla ma è un nuovo metodo di Fabio o nuovo,grazie.

scusami volevo dire vecchio

 

[Alien.]

Ma scusa non capisco perchè adesso mi da errore qua:

Gioca n


fini ad oggi andava tutto bene cosa gli è preso a spaziometria ?

 

[Marcorun]

 

[Alien.]

Marcorun ma a te funziona ?

acc........adesso l'ho riprovato funziona......non capisco......devo avere il pc stanco.

 

[Marcorun]