Metodo del monco

[solare]

Chiedo ai bravi compilatori di script se si può modificare "Funziona solo su lottodesk"per farlo girare anche su spaziometria.
Sub main()

'il segreto del monco di san ferdinando
Dim k(10),ab(2),ab1(7)
Dim rt(4),rtt(4),ruote(2)
Dim pt(5),ptt(5)
pt(1)=1 : ptt(2)=1: ptt(3)=1 : clp=13
ini=EstrazioneFin -100
co=0
For es=ini To EstrazioneFin
Messaggio (es)
For r=1 To 10
rt(1)=r : rtt(1)=r
For p1=1 To 5
n1=Estratto(es,r,p1)
For r1=r+1 To 12
If r1=11 Then r1=12
rt(2)=r1 : rtt(2)=r1
ruote(1)=11:ruote(2)=12
n2=Estratto(es,r1,p1)
If (n1)=(n2)Then
co=co+1
Scrivi String (70,"=")
Scrivi DataEstrazione (es)&" "& SiglaRuota (r1)&" "& StringaEstratti (es,r1)&""
Scrivi DataEstrazione (es)&" "& SiglaRuota (r)&" "& StringaEstratti (es,r)&" "
Scrivi DataEstrazione (es)&" "& SiglaRuota(r)&"-"& SiglaRuota (r1)&_
" Numero isotopo "& n1 &"-"& n2 &" estratto al "&p1&"° posto",1
Scrivi
ab(1)=Fuori90(n1+1)
ab(2)=Vert (ab(1))
ImpostaGiocata 1,ab,rtt,pt,clp

ab1(1)=Fuori90(n1+1)
ab1(2)=Vert (ab1(1))
ab1(3)=Figura (ab1(1))
ab1(4)=Fuori90(ab1(3)+1)
ab1(5)=Fuori90(ab1(4)+4)
ab1(6)=Fuori90(ab1(5)+4)
ab1(7)=Diametrale (ab1(1))
ImpostaGiocata 2,ab1, rtt, ptt,clp
ImpostaGiocata 3,ab1, ruote, ptt,clp

Gioca es

End If
Next
Next
Next
Next

ScriviResoconto

 

[*Max-lotto*]

SALVE SOLARE HO PROVATO SU SPAZIOMETRIA GIRA PERFFETTAMENTE PERCASO NON è CHE NON HAI MESSO ALLA FINE DELLO SCRIPT END SUB? CIAOOO FAMMI SAPERE

 

[solare]

Grazie ancora, mancava qualcosa....end sub