| Garcid nello script di OKKI manca alla fine <end Sub>.....per questo ti da errore.
Comunque mi sono dilettato a modificare lo script e penso che sia questo quello che volevi:
-----------------------------------------------------------------------------------------------------------------
Sub main()
Dim nu1(10),nu2(10)
Dim ruote(10),ruota(10)
Dim posta(5),poste(5)
poste(1)=1
fin=EstrazioneFin
ini=fin-50
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 10
For p1=1 To 5
n1=Estratto(es,r1,p1)
If n1=1 Or n1=2 Or n1=3 Or n1=4 Or n1=5 Or n1=6 Or n1=7 Or n1=8 Or n1=9 Then
c1=Estratto(es-1,r1,p1)
a1=Fuori90(c1+n1)
a2=Vert(a1)
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es-1,r1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es-1,r1)& " "
Scrivi DataEstrazione(es,r1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)& " "
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1 : k=18 : co=0
nu1(1)=a1
nu1(2)=a2
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
Gioca es
End If
Next
Next
Next
ScriviResoconto
ColoreTesto 2 : Scrivi"listato by Occhidigiada-modifiche di P.Robbe"
End Sub
-----------------------------------------------------------------------------------------------------------------
Ciao ciao
|
