paololotto
Super member
ogni volta che esce il 90 su palermo si gioca su firenze
ogni volta che esce il 90 a palermo si fa:
2° di palermo + 4 ambata
2° di palemo + 81 ambata
1° di palermo + 22 + 33 + 72 il risultato è una terzina x ambo e terno
2° di palermo +20 +67 +73 il risultato è una terzina x ambo e terno
3° di palermo +4 +6 +66 il risultato è una terzina x ambo e terno
4° di palermo +29 +35 +51 il risultato è una terzina x ambo e terno
5° di palermo +50 +58 +64 il risultato èuna terzina x ambo e ternmi
attenzione!!! alle terzine bisogna abbinare le 2 ambate cosi da formare delle cinquine x ambo e terno
il tutto x 10 colpi su firenze
Sub main()
Dimn(4),n1(3),ru(3),ps(3),pta(1),a1(5),g1(5),h1(5),i1(5),f1(5)
pta(1) = 1
ps(2) = 2
ps(3) = 1
r = 7
ru(1) = 3
'ru(2) = 7
For es = EstrazioneFin - 545 ToEstrazioneFin
IfPosizione(es,r,90) > 0 Then
a = Estratto(es,7,2)
b = Estratto(es,7,1)
c = Estratto(es,7,2)
d = Estratto(es,7,3)
e = Estratto(es,7,4)
f = Estratto(es,7,5)
n(1) = Fuori90(a + 4)
n(2) = Fuori90(a + 81)
a1(1) = Fuori90(b + 22)
a1(2) = Fuori90(b + 33)
a1(3) = Fuori90(b + 72)
a1(4) = Fuori90(a + 4)
a1(5) = Fuori90(a + 81)
g1(1) = Fuori90(c + 20)
g1(2) = Fuori90(c + 67)
g1(3) = Fuori90(c + 73)
g1(4) = Fuori90(a + 4)
g1(5) = Fuori90(a + 81)
h1(1) = Fuori90(d + 4)
h1(2) = Fuori90(d + 6)
h1(3) = Fuori90(d + 66)
h1(4) = Fuori90(a + 4)
h1(5) = Fuori90(a + 81)
i1(1) = Fuori90(e + 29)
i1(2) = Fuori90(e + 35)
i1(3) = Fuori90(e + 51)
i1(4) = Fuori90(a + 4)
i1(5) = Fuori90(a + 81)
f1(1) = Fuori90(f + 50)
f1(2) = Fuori90(f + 58)
f1(3) = Fuori90(f + 64)
f1(4) = Fuori90(a + 4)
f1(5) = Fuori90(a + 81)
ImpostaGiocata 1,n,ru,pta,10,3
ImpostaGiocata 2,a1,ru,ps,10,3
ImpostaGiocata 3,g1,ru,ps,10,3
ImpostaGiocata 4,h1,ru,ps,10,3
ImpostaGiocata 5,i1,ru,ps,10,3
ImpostaGiocata 6,f1,ru,ps,10,3
Scrivi " @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@",1
Scrivi : ColoreTesto 0 : Scrivi " [ Metodo "" Spia 90 a palermo - di PaoloLotto ""] ",1
ColoreTesto 2 : Scrivi " - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ",1
ColoreTesto 2 : ScriviDataEstrazione((es),1) & " " & " [" & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " " & "] palermo sortito numero spia !!! = " & "" & Format2(90) & " ",1
ColoreTesto 2 : Scrivi " - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ",1
Gioca es
EndIf
Next
ScriviResoconto
Scrivi : ColoreTesto 0 : Scrivi " [ Listato da sean69..] ",1
EndSub
ogni volta che esce il 90 a palermo si fa:
2° di palermo + 4 ambata
2° di palemo + 81 ambata
1° di palermo + 22 + 33 + 72 il risultato è una terzina x ambo e terno
2° di palermo +20 +67 +73 il risultato è una terzina x ambo e terno
3° di palermo +4 +6 +66 il risultato è una terzina x ambo e terno
4° di palermo +29 +35 +51 il risultato è una terzina x ambo e terno
5° di palermo +50 +58 +64 il risultato èuna terzina x ambo e ternmi
attenzione!!! alle terzine bisogna abbinare le 2 ambate cosi da formare delle cinquine x ambo e terno
il tutto x 10 colpi su firenze
Sub main()
Dimn(4),n1(3),ru(3),ps(3),pta(1),a1(5),g1(5),h1(5),i1(5),f1(5)
pta(1) = 1
ps(2) = 2
ps(3) = 1
r = 7
ru(1) = 3
'ru(2) = 7
For es = EstrazioneFin - 545 ToEstrazioneFin
IfPosizione(es,r,90) > 0 Then
a = Estratto(es,7,2)
b = Estratto(es,7,1)
c = Estratto(es,7,2)
d = Estratto(es,7,3)
e = Estratto(es,7,4)
f = Estratto(es,7,5)
n(1) = Fuori90(a + 4)
n(2) = Fuori90(a + 81)
a1(1) = Fuori90(b + 22)
a1(2) = Fuori90(b + 33)
a1(3) = Fuori90(b + 72)
a1(4) = Fuori90(a + 4)
a1(5) = Fuori90(a + 81)
g1(1) = Fuori90(c + 20)
g1(2) = Fuori90(c + 67)
g1(3) = Fuori90(c + 73)
g1(4) = Fuori90(a + 4)
g1(5) = Fuori90(a + 81)
h1(1) = Fuori90(d + 4)
h1(2) = Fuori90(d + 6)
h1(3) = Fuori90(d + 66)
h1(4) = Fuori90(a + 4)
h1(5) = Fuori90(a + 81)
i1(1) = Fuori90(e + 29)
i1(2) = Fuori90(e + 35)
i1(3) = Fuori90(e + 51)
i1(4) = Fuori90(a + 4)
i1(5) = Fuori90(a + 81)
f1(1) = Fuori90(f + 50)
f1(2) = Fuori90(f + 58)
f1(3) = Fuori90(f + 64)
f1(4) = Fuori90(a + 4)
f1(5) = Fuori90(a + 81)
ImpostaGiocata 1,n,ru,pta,10,3
ImpostaGiocata 2,a1,ru,ps,10,3
ImpostaGiocata 3,g1,ru,ps,10,3
ImpostaGiocata 4,h1,ru,ps,10,3
ImpostaGiocata 5,i1,ru,ps,10,3
ImpostaGiocata 6,f1,ru,ps,10,3
Scrivi " @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@",1
Scrivi : ColoreTesto 0 : Scrivi " [ Metodo "" Spia 90 a palermo - di PaoloLotto ""] ",1
ColoreTesto 2 : Scrivi " - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ",1
ColoreTesto 2 : ScriviDataEstrazione((es),1) & " " & " [" & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " " & "] palermo sortito numero spia !!! = " & "" & Format2(90) & " ",1
ColoreTesto 2 : Scrivi " - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ",1
Gioca es
EndIf
Next
ScriviResoconto
Scrivi : ColoreTesto 0 : Scrivi " [ Listato da sean69..] ",1
EndSub
Ultima modifica: