MILANO NAPOLI SI CANTA E SI BALLA SOGNANDO IL TERNO PER NATALE UN REGALO PER VOI

[matt68]

CONDIZIONI
--------------------
Indice mensile: 13
Ruote di gioco: MI;NA;
Colpi: 13

I CALCOLI
--------------------
1) Ambata : 2° di CA + 45 Abb. 2° di RM + 30 Abb. 3° di MI + 45 Abb. per ambo: 1° di NA + 7

SE VOLETE AMBATA

E QUARTINA PER AMBO TERNO QUATERNA MI NA ( TT NZ PER RECUPERO)


Sub Main()
Dim rt(2),pt(4),n1(7)

pt(1)=1
pt(2)=2
pt(3)=0.5
pt(4)=0.5

clp=13
rt(1)=5
rt(2)=6


ini=10541
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es)=13 Then
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
a=Estratto (es,2,2) + 45
b=Estratto (es,8,2) + 30
c=Estratto (es,5,3) + 45
d=Estratto (es,6,1) + 7
n1(1)=Fuori90 (a+0)
n1(2)=Fuori90 (b+0)
n1(3)=Fuori90 (c+0)
n1(4)=Fuori90 (d+0)
ImpostaGiocata 1,n1,rt,pt,clp

Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto

End Sub