'1° mese Nando52 Una Ambata e Un Ambo Secco su Bari/Cagliari
'https://forum.lottoced.com/threads/solo-una-ambata-e-un-ambo-secco-ba-ca.2190539/


ColoreTesto 1
Scrivi String(37,32) & " - 1° mese Nando52 Un Ambo Secco Bari/Cagliari - ",1
Scrivi

ColoreTesto 0

Sub main()
Dim ruota(10),ruote(10)
Dim numeri1(10),numeri2(10),numeri3(10),numeri4(10),numeri5(10)
Dim posta(5)
Dim poste(5)



posta(1)=1
poste(2)=1


ini=InputBox("Da quale Estrazione vuoi controllare [nr.9572 02/01/2019]?",,10000)
cp=InputBox("Per quanti colpi vuoi giocare?",,14)



fin=EstrazioneFin
For n=ini To fin
If IndiceMensile (n)=1 Then
Messaggio DataEstrazione (n)

ruota(1)=1
ruota(2)=2
ruote(1)=1
ruote(2)=2
ruote(3)=11



ColoreTesto 2 :Scrivi "--1°estrazione del mese Nando52 Ambata e Ambo Secco Bari-Cagliari-----------script by Jai.Jai",1


app=CStr (Estratto(n,1,4))
e=Len(app)
app1=Mid (app,1,1)
app2=Mid (app,2,1)
If e=1 Then
app3=CInt (app1)
Else
app3=CInt (CInt (app1)+CInt (app2))
End If


numeri1(1)=Fuori90(app3+Estratto(n,7,4)+23)
ImpostaGiocata 1,numeri1,ruota,posta,eval(cp)

numeri3(1)=Fuori90(app3+Estratto(n,7,4)+23)
numeri3(2)=Fuori90(Estratto(n,6,2)*Estratto(n,6,2)+Estratto(n,9,2)+80)

ImpostaGiocata 2,numeri3,ruote,poste,eval(cp)


numeri4(1)=numeri3(1)
numeri4(2)=Fuori90(numeri3(2)+1)
ImpostaGiocata 3,numeri4,ruote,poste,eval(cp)


numeri5(1)=numeri3(1)
numeri5(2)=Abs(numeri3(2)-1)
ImpostaGiocata 4,numeri5,ruote,poste,eval(cp)


numeri4(1)=Fuori90(numeri3(1)+1)
numeri4(2)=numeri3(2)
ImpostaGiocata 5,numeri4,ruote,poste,eval(cp)


numeri5(1)=Abs(numeri3(1)-1)
numeri5(2)=numeri3(2)
ImpostaGiocata 6,numeri5,ruote,poste,eval(cp)

Gioca n
End If
Next
Scrivi

ScriviResoconto 
'ScriviResoconto 2

ColoreTesto 2


End Sub