Ciao due belle ambate che forse ci regala un bel ambo secco..
vi allego lo script
vi allego lo script
Codice:
Sub Main()
Dim ruote(1)
Dim posta(1)
Dim n(2)
ruote(1) = NA_
posta(1) = 1
ini = EstrazioneFin - 150
fin = EstrazioneFin
For es = ini To fin
If IndiceMensile(es + 1) = 1 Then
n(1) = Fuori90(Estratto(es,BA_,3) + 14)
n(2) = Fuori90(Estratto(es,PA_,4) + 13)
ImpostaGiocata 1,n,ruote,posta,14
Gioca es
End If
Next
Scrivi
ScriviResoconto
End Sub
Ultima modifica: