Sub Main()
Scrivi
Scrivi String(42," ") & "PER SVEGLIA / LISTATO BY BLACKMORE",1
Scrivi
Dim ruote(10) : Dim a5(5) : Dim b5(5) : Dim c5(5) : Dim d5(5) : Dim e5(5) : Dim nu(2)
Dim posta(5) : Dim post(5) : Dim poste(5) : Dim postee(5)
posta(1) = 1 : post(2) = 1 : poste(2) = 1 : poste(3) = 0.50 : postee(2) = 1 : postee(3) = 1 : postee(4) = 0.50
ww = CInt(InputBox("DA QUALE ESTRAZIONE VUOI PARTIRE?","BLACKMORE"," 6500 "))
kkk = CInt(InputBox("COLPI DI GIOCO?","BLACKMORE"," 13 "))
spia1 = CInt(InputBox("1 NUMERO SPIA?","BLACKMORE",01))
spia2 = CInt(InputBox("2 NUMERO SPIA?","BLACKMORE",90))
ru = CInt(InputBox("RUOTA DOVE E' USCITO L'AMBO ?","BLACKMORE",5))
ru1 = CInt(InputBox("SU CHE RUOTA VUOI GIOCARE?","BLACKMORE",5))
'------------------------------------------------------------------------------------
ff = InputBox("ESTRATTO ","BLACKMORE","01")
ff = "0." & ff
h = Split(ff,".")
f1 = CInt(h(1))
a5(1) = f1
'------------------------------------------------------------------------------------
ff = InputBox("AMBO SECCO ","BLACKMORE","02.03")
ff = "0." & ff
h = Split(ff,".")
f1 = CInt(h(1)) : f2 = CInt(h(2))
b5(1) = f1 : b5(2) = f2
'------------------------------------------------------------------------------------
ff = InputBox("1° TERNO SECCO ","BLACKMORE","04.05.06")
ff = "0." & ff
h = Split(ff,".")
f1 = CInt(h(1)) : f2 = CInt(h(2)) : f3 = CInt(h(3))
c5(1) = f1 : c5(2) = f2 : c5(3) = f3
'------------------------------------------------------------------------------------
ff = InputBox("2° TERNO SECCO ","BLACKMORE","07.08.09")
ff = "0." & ff
h = Split(ff,".")
f1 = CInt(h(1)) : f2 = CInt(h(2)) : f3 = CInt(h(3))
d5(1) = f1 : d5(2) = f2 : d5(3) = f3
'------------------------------------------------------------------------------------
ff = InputBox("CINQUINA ","BLACKMORE","10.11.12.13.14")
ff = "0." & ff
h = Split(ff,".")
f1 = CInt(h(1)) : f2 = CInt(h(2)) : f3 = CInt(h(3)): f4 = CInt(h(4)): f5 = CInt(h(5))
e5(1) = f1 : e5(2) = f2 : e5(3) = f3 : e5(4) = f4 : e5(5) = f5
'------------------------------------------------------------------------------------
co = 0
ruote(1) = ru1
ini = ww
fin = EstrazioneFin
For es = ini To fin
AvanzamentoElab Ini,es,fin
If Posizione(es,ru,spia1) > 0 Then
If Posizione(es,ru,spia2) > 0 Then
casi = casi + 1
Scrivi String(99,"*") & " Caso n° " & casi,1
ColoreTesto 1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(ru) & " " & StringaEstratti(es,ru) & " °°° AMBO SPIA °°° " & spia1 & "-" & spia2,1
ColoreTesto 0: Scrivi String(54,"°"),1
ColoreTesto 1: Scrivi "1 ESTRATTO - 1 AMBO SECCO - 2 TERNI - 1 CINQUINA",1
ColoreTesto 0: Scrivi String(54,"°"),1
co = co + 1
ImpostaGiocata 1,a5,ruote,posta,kkk,1
ImpostaGiocata 2,b5,ruote,post,kkk,2
ImpostaGiocata 3,c5,ruote,poste,kkk,2
ImpostaGiocata 4,d5,ruote,poste,kkk,2
ImpostaGiocata 5,e5,ruote,postee,kkk,2
Gioca es
End If
End If
If ScriptInterrotto Then Exit For
Next
Scrivi : Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub