TORINO SECONDA ESTRAZIONE

[Mauro-emme]

Buonasera ragazzi.

Un nuovo script su Torino.

Sub Main
Dim ruota(1),pt(2),ruote(5),a1(2),a2(4)
pt(1) = 1
pt(2) = 1
clp = 7
ini = InputBox("Da quale estrazione vuoi iniziare?:","Script by Mauro",EstrazioneFin - 105)
pr = CInt(InputBox("Quante estrazioni vuoi controllare in un ciclo?:","per LottoCED",100))
fine = EstrazioneFin
r = 9
For es = ini To EstrazioneFin
' ------ INIZIO codice rilevamento condizione
If IndiceMensile(es) = 2 Then 'SECONDA estrazione
a = Estratto(es,r,5)
' ------ FINE codice rilevamento condizione
' ------ RUOTE di gioco
ruote(1) = 9
' ------ GIOCATA
cg = 0
a1(1) = Fuori90(a + 52)
a1(2) = 23
cg = cg + 1
ImpostaGiocata cg,a1,ruote,pt,clp,1
a2(1) = Fuori90(a + 52)
a2(2) = 81
cg = cg + 1
ImpostaGiocata cg,a2,ruote,pt,clp,1

Gioca es,1
End If
Next
Scrivi
Scrivi "------------------------------------------------TORINO SECONDA ESTRAZIONE------------------------------------------------"
Scrivi
Scrivi
ScriviResoconto
End Sub