ColoreTesto 2 : Scrivi "****************************************************************",1
ColoreTesto 1 : Scrivi "* Metodo di Mike64 list by Baffowilly *",1
ColoreTesto 1 : Scrivi "* Da applicare in qualsiasi estrazione e a qualsiasi ruota *"
ColoreTesto 1 : Scrivi "* Fare la somma dei 5 estratti si sottraggono ad uno ad uno *"
ColoreTesto 1 : Scrivi "* i 5 estratti fino ad ottenere un numero giocabile, mettere *"
ColoreTesto 1 : Scrivi "* in gioco i 5 numeri che ne derivano x ambo e terno x 9 colpi *"
ColoreTesto 2 : Scrivi "***************************************************************",1
Sub main()
Dim ruote(10)
Dim numeri1(10)
Dim numeri2(10)
Dim poste(5)
Dim posta(5)
poste(2)=1
poste(3)=1
poste(4)=1
poste(5)=1
ruote(1)=6 '<--------per cambiare ruota cambiare numero
r=6 '<--------per cambiare ruota cambiare numero
For n=7688To EstrazioneFin
If IndiceMensile(n) Then
ColoreTesto 7 : Scrivi "******************************"
ColoreTesto 2 : Scrivi "Estratti di "&Left(NomeRuota(r),9)&" "&stringaEstratti(n,r),1
ColoreTesto 2 : Scrivi "Somma estratti = "&SommaEstratti(n,r),1
a=SommaEstratti(n,r)
b=Estratto(n,r,1)
c=Estratto(n,r,2)
d=Estratto(n,r,3)
e=Estratto(n,r,4)
f=Estratto(n,r,5)
a=SommaEstratti(n,r)
While a > 90
a = a-b
Wend
a1=SommaEstratti(n,r)
While a1 > 90
a1 = a1-c
Wend
a2=SommaEstratti(n,r)
While a2 > 90
a2 = a2-d
Wend
a3=SommaEstratti(n,r)
While a3 > 90
a3 = a3-e
Wend
a4=SommaEstratti(n,r)
While a4 > 90
a4 = a4-f
Wend
numeri1(1)= a
numeri1(2)= a1
numeri1(3)= a2
numeri1(4)= a3
numeri1(5)= a4
ImpostaGiocata 1,numeri1,ruote,poste,9,2
Gioca n
End If
Next
ScriviResoconto
End Sub