vorrei sapere cosa fa questo script grazie

[Alien.]

Sub Main()
Dim nmr(90),ru(02),ambo(),poste(02)
poste(01) = 1
poste(02) = 1
fin = EstrazioneFin
ini = 8150
For es = fin To ini Step - 01
Messaggio es
AvanzamentoElab fin,Ini,es
co = co + 01
If co = 04 Then
For r = 01 To 10
Erase nmr
For ex = es To es + 04
riga = ""
For x = 0 To 01
r1 = r + x
If r1 > 10 Then r1 = r1 - 10
riga = riga & SiglaRuota(r1) & " "
ru(x + 1) = r1
For p = 01 To 05
nmr(Estratto(ex,r1,p)) = nmr(Estratto(ex,r1,p)) + 01
Next
Next
Next
cc = 00
For x = 01 To 90
If nmr(x) > 02 Then
cc = cc + 01
ReDim Preserve ambo(cc)
ambo(cc) = x
End If
Next
If cc > 00 Then
If UBound(ambo) = 2 Then
Scrivi "Periodo dal " & Format2(es) & " al " & Format2(es + 09) & " " & riga & " " & StringaNumeri(ambo),1
ImpostaGiocata 1,ambo,ru,poste,6,2
Gioca es,True,,2
Scrivi
End If
End If
Next
co = 00
End If
Next
ScriviResoconto
End Sub



grazie

 

[salvo50]

Ciao!

Imbroglia o scherza, perchè va indietro nelle estrazioni e poi pronostica i numeri già usciti.

 

[Alien.]

ecco immaginavo troppo bello per essere vero......non so chi lo ha fatto ...complimenti.........grazie salvo