Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
ciao zetrix, ti seguo in silenzio. volevo chiederti il 5.38 si porta avanti?
ciao nonna , mi sono imbattuto se mettere il 38 o il 18 nella quartina di palermo , ma mi piace 5.18.42.50
magari fai una giocata a parte con 5.38, ciao
Ciao zetrix quindi il 45 a palermo ha cinque colpi a partire da domani?
Sub Main
Scrivi : ColoreTesto 1 : Scrivi "1 Ambata su Palermo Alla 1° Estrazione Del Mese(genova)"
Scrivi : ColoreTesto 0 : Scrivi
Dim rt(1),pt(4)
Dim n1(4)
pt(1) = 1 ' <- per estratto
'pt(2) = 1
'pt(3) = 0.40
'pt(4) = 0.10
clp = 5 '<-- colpi di gioco
rt(1) = 7 '<-- ruota palermo
ini = EstrazioneFin - 110
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio(es)
If IndiceMensile(es) = 1 Then ' 1 estrazione del mese
casi = casi + 1
Scrivi String(70,"-")
co = co + 1
a = Fuori90(Estratto(es,4,4) + 77) ' 4° / genova
'------------------------------------------------------
n1(1) =(a)
ImpostaGiocata 1,n1,rt,pt,clp,2
Gioca es
End If
Next
End Sub
Sub Main
Scrivi : ColoreTesto 1 : Scrivi "1 Ambata su Palermo Alla 1° Estrazione Del Mese(genova)"
Scrivi : ColoreTesto 0 : Scrivi
Dim rt(1),pt(4)
Dim n1(4)
'pt(1) = 1 ' <- per estratto
pt(2) = 1
'pt(3) = 0.40
'pt(4) = 0.10
clp = 5 '<-- colpi di gioco
rt(1) = 7 '<-- ruota palermo
ini = EstrazioneFin - 110
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio(es)
If IndiceMensile(es) = 1 Then ' 1 estrazione del mese
casi = casi + 1
Scrivi String(70,"-")
co = co + 1
a = Fuori90 (Estratto(es,4,4) + 77) ' 4° / genova
b = Fuori90 (Estratto(es,4,4) + 22) ' x ambo
'c = Fuori90 (Estratto(es,4,4) + 37) ' x ambo
'------------------------------------------------------
n1(1) = (a)
n1(2) = (b)
'n1(3) = (c)
ImpostaGiocata 1,n1,rt,pt,clp,2
Gioca es
End If
Next
End Sub