Se Ti accontenti...Non sono uno Scripter, ma ci provo..
[list=]
Sub Main()
ColoreTesto 2
Scrivi
Scrivi "Cinquina alla 2° ESTRAZIONE MENSILE",1
Scrivi
Scrivi" da un listato di nunzio65",1
Scrivi
ColoreTesto 0
Dim ruote(5):Dim ruota(5)
Dim n1(6): Dim poste(4):Dim posta(1):Dim a1(1)
klp =InputBox("Per quanti colpi vuoi giocare?",,13)
ini =InputBox("Da quale Estrazione vuoi controllare?",,9575)
fin = EstrazioneFin
posta(1)= 1
poste(2) = 1
poste(3) = 1
'poste(4) = 0
cp = 0
For es = ini To fin
If IndiceMensile(es) = 2 Then
ruote(1) = 9
ruote(3) = 12
ruota(1)=12
casi = casi + 1
cp = cp + 1
ColoreTesto 1:Scrivi String(100,"-") & " Caso n° " & casi,1
ColoreTesto 1:Scrivi DataEstrazione(es) & "==>" & IndiceMensile(es) & "° Estrazione Mensile"
ColoreTesto 1:Scrivi String(100,"-")
ColoreTesto 0
a1(1)= n1(1)
n1(1) = Fuori90(Estratto(es,6,3) + 61)
n1(2) = Fuori90(Estratto(es,9,4) + 74)
n1(3) = Fuori90(Estratto(es,10,2) + 75)
n1(5) = Fuori90(Estratto(es,5,2) * 8)
n1(6) = Fuori90(Estratto(es,12,5) * 48)
ImpostaGiocata 1,a1,ruota,posta,klp,3
ImpostaGiocata 2,n1,ruote,poste,klp,3
Gioca es,1
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Trovati " & CInt(cp)
ScriviResoconto
End Sub
[/list]