e possibile fare lo script???

Ciao Fata,spero sia giusto
********************************************************

Sub Main()
Dim ruote(3)
Dim numeri0(5)
Dim numeri1(10)
Dim numeri3(10)
Dim numeri2(10)
Dim numeri4(10)
Dim posta(5)
Dim posta1(5)
Dim poste(5)
ruote(1) = 1
ruote(2) = 0
ruote(3) = 0
posta(2) = 1
posta1(2) = 0.5
posta1(3) = 0.4
posta1(4) = 0.1
poste(1) = 1
k = 9
y = 2
For n = 8460 To EstrazioneFin
If IndiceMensile(n) = 1 Then
co = co + 1
Scrivi
ColoreTesto 1
Scrivi String(106,"§") & " Caso n°" & co,1
ColoreTesto 2
Scrivi String(20," ") & " " & DataEstrazione(es) & " <> " & SiglaRuota(ruo) & " <> " & StringaEstratti(es,ruo) & " <> 1'MESE <> " & a & " - " & b,1
ColoreTesto 1
Scrivi String(106,"§"),1
ColoreTesto 0
numeri0(1) = Fuori90(Estratto(n,1,3) + 9)
numeri0(2) = Fuori90((91 - numeri0(1)))
numeri0(3) = Fuori90(Estratto(n,5,1)) + 20
numeri0(4) = Vert(numeri0(3))
'---------------------------------------
numeri1(1) = Fuori90(Estratto(n,9,2) + Estratto(n,10,3) + 77)
numeri1(2) = Fuori90(Estratto(n,1,1) + 57)
ImpostaGiocata 1,numeri1,ruote,posta,k,2
numeri2(1) = numeri1(1)
numeri2(2) = numeri0(2)
ImpostaGiocata 2,numeri2,ruote,posta,k,2
numeri3(1) = numeri1(1)
numeri3(2) = numeri0(4)
ImpostaGiocata 3,numeri3,ruote,posta,k,2
numeri4(1) = numeri1(2)
numeri4(2) = numeri2(2)
numeri4(3) = numeri3(2)
numeri4(4) = numeri1(1)
ImpostaGiocata 4,numeri4,ruote,posta,k,3
Gioca n
End If
Next
ScriviResoconto
End Sub