la grande speculazione di osvaldo manara

'la grande speculazione di osvaldo manara
Sub main()
Dim ru(2),rur(1),ab(10),ambata(2),ambi(2),lun(10),ps(2),ps1(2),ps2(5)
ps(1)=1:ps1(2)=1:ps2(2)=1:ps2(3)=0.80:ps2(4)=0.15:ps2(5)=0.05

ee= CInt(InputBox("Estrazioni da esaminare ",,500))

im=InputBox("Pronostico dall'estrazione mensile numero? (1=prima / 0=ultima / 16=penultima )",_
"Numero dell' estrazione ",1)

k= CInt(InputBox(" Colpi di gioco ",,13))

ini=EstrazioneFin-ee

For es=ini To EstrazioneFin
If(((eval(im)=0)And(es=fin))Or((IndiceMensile(es)=eval(im)And _
(eval(im)>0))Or((IndiceMensile(es+1)=1)And(eval(im)=0))Or((IndiceMensile(es+2)=1)And(eval(im)=16))))Then
Messaggio(es)



r=1 'gioco sulla ruota di ba
rr=10 'gioco sulla ruota ve
ru(1)=r
ru(2)=rr
rur(1)=11'tutte

casi=casi+1:Scrivi String(87,"°"),1

If im=0 Then
Scrivi " - ultimo indice mensile"
Else
If im<>16 Then
Scrivi " - "&(im)&"^ indice mensile"
Else
If im=16 Then
Scrivi " - penultimo indice mensile"
end if:end If:end If
Scrivi

a=Estratto(es,1,1)'1°estratto di ba
b=Estratto(es,10,5)
ambata(1)=Fuori90(a+b+86)'1° di ba + 5 di ve +5
co=1
ImpostaGiocata co,ambata,ru,ps,k

ab(1)=ambata(1)
ab(2)=Fuori90((a+b)+23)
ab(3)=Fuori90((a+b)+50)

lun(1)=ab(1)
lun(2)=ab(2)
lun(3)=ab(3)


co=co+1
ImpostaGiocata co,lun,ru,ps2,k
co=co+1
ImpostaGiocata co,lun,rur,ps2,k '<--- tutte
Gioca es

End If 'scelta estrazione
Next
ScriviResoconto

End Sub