Novità

Script

buongiorno, l'esempio era su roma nelle ultime estrazioni, quella del 23/07, posso avere, se possibile, lo script dove avete aggiunto il 4° elemento, formando la quartina? grazie di avermi ascoltata e buona giornata a tutti
Comunque sul listato SPAKKA abilita questa riga nell'ultima giocata
' num3(4)=c
togliendo l'apice evidenziato in rosso e nella quartina troverai l'ambata raddoppiata
 
Naturalmente da controllare

Codice:
'https://www.facebook.com/photo?fbid=741277244688386&set=pcb.2999450986855909
'06-12-2022
ColoreTesto 2
Scrivi String(37,32) & " Ambo Bis by Badessa Lotto ",1
Scrivi String(45,32) & "",1
ColoreTesto 0
Sub Main()
    Dim nu1(10),nu2(10),nu3(10),nu4(10)
    Dim ruote(10),ruota(10)
    Dim poste(5),poste1(5),poste2(5),poste3(5)
    poste(1) = 1
    poste(1) = 1
    poste1(2) = 1
    poste2(2) = 1
    poste2(3) = 1
    fin = EstrazioneFin
    ini =fin - 50
    For es = ini To fin
        AvanzamentoElab ini,fin,es
        For r1 = 1 To 10
            For p1 = 1 To 4
                For p2 = p1 + 1 To 5
                    n1 = Estratto(es,r1,p1)
                    n2 = Estratto(es,r1,p2)
                    For r2 = r1 + 1 To 12
                        If r2 = 11 Then r2 = 12
                        For p3 = 1 To 4
                            For p4 = p3 + 1 To 5

                                n3 = Estratto(es,r2,p3)
                                n4 = Estratto(es,r2,p4)
                                If (n1=n4 And n2=n3) Or (n1=n3 And n2=n4) Then
                                n5 =Fuori90(n1 + n2)'ambata 20+9  29
                                n6 = DiametraleD(n5)'abb  29-5 24

                                n7 = Diametrale(n5)'abb 29+45 74
                                n8 = DiametraleD(n7)'abb 74+5 79
                                
                                '*********Versione 2020  ********************************
                                                   'n3 = Estratto(es,r2,p3)
                                'n4 = Estratto(es,r2,p4)
                                'If (n1=n4 And n2=n3) Or (n1=n3 And n2=n4) Then
                                'n5 = Abs(n1 - n2)'ambata
                                'n6 = Diametrale(n5)'abb
                                'n7 = DiametraleD(n6)'abb
                                'n8 = DiametraleD(n5)'abb
                                                 '******************************
                                
                                    casi = casi + 1
                                    Scrivi
                                    Scrivi String(75,"=") & " caso n° " &(casi)
                                    Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
                                    " > ambo Ripetuto < " & Format2(n1) & "." & Format2(n2) & " >",1
                                    Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
                                    " > ambo Ripetuto < " & Format2(n3) & "." & Format2(n4),1
                                    ruote(1) = r1
                                    ruote(2) = r2
                                    ruota(1) = 11
                                    k = 12:k1 = 36
                                    co = 0


                                    
                                    nu2(1) = n5 
                                    nu2(2) = n6
                                    ImpostaGiocata 1,nu2,ruote,poste1,k
                                    nu2(1) = n7 
                                    nu2(2) = n8
                                    ImpostaGiocata 2,nu2,ruote,poste1,k

                                    nu3(1) = n5 
                                    nu3(2) = n6
                                    nu3(3) = n7 
                                    nu3(4) = n8
                                    ImpostaGiocata 3,nu3,ruote,poste2,k
                                    
                                    
                                    Gioca es
                                End If
                                'End If
                            Next
                        Next
                    Next
                Next
            Next
        Next
    Next
    ScriviResoconto

    ColoreTesto 2
    Scrivi String(37,32) & "Ambo Bis  by Badessa Lotto",1
    Scrivi String(45,32) & "",1
    ColoreTesto 0
End Sub





Codice:
'https://youtu.be/CkN63zK_2EU?list=PLrsFYPMN_mgEQjUUxv7WSekctksayWeFm
Sub Main()
   Scrivi " Metodo Semplice di Salvo Badessa",1
   Scrivi
   Dim ruota1(10),ruote(10),ambata(2),ambo1(2),ambo2(2),ambo3(2),quartina(5),cinquina(5),ruota(10),h,y,posta(10),poste(2),postee(4),poste1(4)
   : poste(2) = 1: postee(2) = 1 : postee(3) = 1 : postee(4) = 0.50
poste1(2) = 1 : poste1(3) = 1
   EstrazioniLotto = InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE ?","",10)
   k = CInt(InputBox("QUANTI COLPI ?","",9))
   'ini = EstrazioneFin - EstrazioniLotto
   fin = EstrazioneFin
   ini = fin - estrazionilotto
   For es = ini To fin
      AvanzamentoElab ini,fin,es
      For r1 = 1 To 12
        If r1 = 11  Then r1 = 12
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               n1 = Estratto(es,r1,p1)
               n2 = Estratto(es,r1,p2)

                        n5 = Fuori90(n1 + n2)
         For r2= 1 To 12
        If r2 = 11  Then r2 = 12
         For p3 = 1 To 5
               n3 = Estratto(es,r2,p3)
                      

                        If n5 = 90 And  n3 =Abs(n1-n2)  And (p3 =p1 Or p3 =p2)  Then
                        n4 = Diametrale(n3)'88+45  43
                        n6 = Diametrale(n3)'88
                       If p3 =p1 Then n7 = Estratto(es,r2,p2)
                       If p3 =p2 Then n7 = Estratto(es,r2,p1)
                        n8 =Abs(n3-n7)

                      amb=n4
                      abb1=n3
                      abb2=n8
                      

                           casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
                           Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
                           " > ambo < " & Format2(n1) & "." & Format2(n2) & " > somma < " & Format2(n5)
                          If p3 =p1 Then  Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
                           " >      < " & Format2(n3) &"."& Format2(n7)
                          If p3 =p2 Then  Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
                           " >      < " & Format2(n7) &"."& Format2(n3)
                           ruota(1) = r1 :
                           ruota(2) = r2  :ruote(2) = 11
                           ruota1(1) = r1 :
                           ruota1(2) = r2  :ruota1(3) = 11
                           '----------------------------------------
                            Erase posta
                            posta(1) = 1
                            posta(p1+5) = 1
                            posta(p2+5) = 1
                           ambata(1) = amb
                           ImpostaGiocata 1,ambata,ruota,posta,k
                           ambo1(1) = amb
                           ambo1(2) =  abb1
                           ImpostaGiocata 2,ambo1,ruota,poste,k
                           ambo1(1) = amb
                           ambo1(2) =  Fuori90(abb1+1)
                           ImpostaGiocata 3,ambo1,ruota,poste,k
                           ambo1(1) = amb
                           ambo1(2) = Fuori90(90+abb1-1)
                           ImpostaGiocata 4,ambo1,ruota,poste,k
                           ambo1(1) = Fuori90(amb+1)
                           ambo1(2) =  abb1
                           ImpostaGiocata 5,ambo1,ruota,poste,k
                           ambo1(1) = Fuori90(90+amb-1)
                           ambo1(2) =  abb1
                           ImpostaGiocata 6,ambo1,ruota,poste,k
                           ambo1(1) = amb
                           ambo1(2) = abb2
                           ImpostaGiocata 7,ambo1,ruota,poste,k
                           ambo1(1) = amb
                           ambo1(2) = Fuori90(abb2+1)
                           ImpostaGiocata 8,ambo1,ruota,poste,k
                           ambo1(1) = amb
                           ambo1(2) = Fuori90(90+abb2-1)
                           ImpostaGiocata 9,ambo1,ruota,poste,k
                           ambo1(1) = Fuori90(amb+1)
                           ambo1(2) =  abb2
                           ImpostaGiocata 10,ambo1,ruota,poste,k
                           ambo1(1) = Fuori90(90+amb-1)
                           ambo1(2) =  abb2
                           ImpostaGiocata 11,ambo1,ruota,poste,k


                    
                           quartina(1) = amb
                           quartina(2) = abb1
                           quartina(3) = abb2
                           ImpostaGiocata 12,quartina,ruota1,poste1,k
                           cinquina(1) = amb
                           cinquina(2) = abb1
                           cinquina(3) = abb2
                           cinquina(4) = DiametraleD(amb)
                           cinquina(5) = DiametraleD(abb1)
                          ' ImpostaGiocata 13,cinquina,ruota,postee,k
                  

                           Gioca es',1
                        End If
                        Next 
                     Next
                     Next   
                     Next 
                     Next 
     Next   

                     ScriviResoconto
                     End Sub
 

Controllate questi



Codice:
'https://www.youtube.com/watch?v=yoEQNhpavL8
'

Scrivi "  3 TRE 3  -   NUMERETTI   BY SALVO BADESSA",1
Sub main()
Dim num(2),num1(2),num2(4),ruota1(10),ruota2(10)
Dim posta(10),poste(2),poste1(5)
poste(2)=1
poste1(2)=1
poste1(3)=1
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",10065)
k=InputBox ("per quanti colpi?","colpi di gioco",12)
ini=ce
fin=EstrazioneFin

Scrivi String(76,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(rs)&" estr.)"
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&_
DataEstrazione (es,1)

For r=1 To 12
If r=11 Then r=12

For p1=1 To 5

a=Estratto(es-1,r,p1)
b=Estratto(es,r,p1)

If (Distanza(a,b)=3 Or Distanza(a,b)=6)  And a<10 And b<10 Then 'iso
If Distanza(a,b)=3 Then c=Massimo(a,b)+3
If c>9 Then c=Minimo(a,b)-3
If Distanza(a,b)=6 Then c=Minimo(a,b)+3

d=DiametraleD(c)
casi=casi+1:Scrivi String(58,"="),1
Scrivi DataEstrazione(es-1,1)& " [ "&SiglaRuota(r)&" - "&StringaEstratti(es-1,r)&_
" ] [ "&format2(a)&" ] in "&(p1),1
Scrivi DataEstrazione(es,1) & " [ " &SiglaRuota(r)&" - "&StringaEstratti(es,r)&_
" ] [ "&format2(b)&" ] in "&(p1),1

Scrivi String(62,"-")&" caso n° "&(casi)
ruota1(1)=r
ruota1(2)=r1
ruota2(1)=r
ruota2(2)=r1
ruota2(3)=11
ruota2(4)=12:cg=0
Erase posta
posta(1)=1:
posta(p1+5)=1

num1(1)=c
cg=cg+1
ImpostaGiocata cg,num1,ruota1,posta,k
num(1)=c
num(2)=d
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num2(1)=c
num2(2)=d
num2(3)=Vert(c)
num2(4)=Vert(d)
cg=cg+1
ImpostaGiocata cg,num2,ruota2,poste1,k
Gioca es
Scrivi
Scrivi  "           AMBETTI   ",1
Scrivi
num(1)=c
num(2)=Fuori90(d+1)
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=c
num(2)=Fuori90(90+d-1)
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=Fuori90(c+1)
num(2)=d
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=Fuori90(90+c-1)
num(2)=d
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
Gioca es

End If

Next:
Next:
Next:


ScriviResoconto

End Sub


Codice:
'https://www.youtube.com/watch?v=Wsaozwg30Zk
Sub main()
Scrivi: ColoreTesto 1: Scrivi " DIAMANTE  BY BADESSA LOTTO  ",1
Scrivi: ColoreTesto 0
    Dim nu1(10),nu2(10),nu3(10),nu4(10),nu(10)
    Dim ruote(10),ruota(10)
    Dim posta(5),poste(5),poste1(5),poste2(5),poste3(5)
    posta(1) = 1
    poste(1) = 1
    poste1(2) = 1
    poste2(2) = 1
    poste2(3) = 1.7
    poste2(4) = .3


      z=CInt(InputBox ("Quante estrazione controllare?","estrazioni",100))
      k=CInt(InputBox ("Quanti colpi di Gioco?","colpi di Gioco",12))

            
    fin = EstrazioneFin
    ini = fin - z
    For es = ini To fin
        AvanzamentoElab ini,fin,es
        For r1 = 1 To 12
               If r1=11 Then r1=12
            For p1 = 1 To 4
                For p2 = p1 + 1 To 5
                              For p3 = 1 To 4
                             For p4 = p3 + 1 To 5
                              For p5 = 1 To 4
                             For p6 = p5 + 1 To 5


                                      n1 = Estratto(es,r1,p1)'
                                      n2 = Estratto(es,r1,p2)'
                                n3 = Estratto(es-1,r1,p3)'
                                n4 = Estratto(es-1,r1,p4)'
                                n5 = Estratto(es-2,r1,p5)
                                n6 = Estratto(es-2,r1,p6)
                                
                                n7 = Abs(n1-n2)'distanza orizz
                                n8 = Abs(n3-n4)'distanza orizz
                                n9 = Abs(n5-n6)'distanza  orizz
                                If n7=1 And n8=1 And n9=1  Then
                                n10 =Fuori90(n1+n3)' som vert
                                                n11 =Fuori90(n2+n4)' som vert
                                                n12 =Fuori90(n1+n4)' som diag  45+20  65
                                                n13 =Fuori90(n2+n3)' som diag  44+21  65
                                                n14 =Abs(n1-n3)'diff vert 45-21  24
                                                n15 =Abs(n2-n4)'diff vert 44-20  24
                                                n16 =Abs(n1-n4)'diff diag 45-20 
                                                n17 =Abs(n2-n3)'diff diag 44-21 
                                If n10=n11 Or n12=n13   Then
                                If n10=n11 Then som1=n10
                                If n12=n13 Then som1=n12  '65
                                If n14=n15 Or n16=n17   Then
                                If n14=n15 Then dif1=n14' 24
                                If n16=n17 Then dif1=n16 '

                                n18 =Fuori90(n3+n5)' som vert
                                                n19 =Fuori90(n4+n6)' som vert
                                                n20 =Fuori90(n3+n6)' som diag  21+41  62
                                                n21 =Fuori90(n4+n5)' som diag  20+42  62
                                                n22 =Abs(n3-n5)'diff vert 42-21  21
                                                n23 =Abs(n4-n6)'diff vert 41-20  21
                                                n24 =Abs(n3-n6)'diff diag 41-21 
                                                n25 =Abs(n4-n5)'diff diag 42-20
                                If n18=n19 Or n20=n21   Then
                                If n18=n19 Then som2=n18
                                If n20=n21 Then som2=n21  '62
                                If n22=n23 Or n24=n25   Then
                                If n22=n23 Then dif2=n22' 21
                                If n24=n25 Then dif2=n24 '




               x = Fuori90(som1+dif1)'65+24=89
               y = Fuori90(som2+dif2)'62+21=83
               NN1 =Abs(x-y)'89-83  6  CHIAVE
               NN2 =Fuori90( NN1+Massimo(n1,n2))'6+45  51 ambata
               NN3 =Fuori90(NN2+1)'51+1 52
               '-----------------------------------
               NN4 = DiametraleD(NN2)
               NN5 = DiametraleD(NN3)

               NN6 = Vert(NN2)
               NN7 = Vert(NN3)

 casi=casi+1:Scrivi String(65,"-")&" caso n° "&(casi),1
Scrivi DataEstrazione(es-2,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es-2,r1)& " -----> "&Format2(n5)& " "&Format2(n6),1
Scrivi DataEstrazione(es-1,1)&" < "&siglARuota(r1)& " "& StringaEstratti(es-1,r1)& " -----> "&Format2(n3)& " "&Format2(n4),1
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r1)& " "& StringaEstratti(es,r1)& " -----> "&Format2(n1)& " "&Format2(n2),1
Scrivi


                                                      Scrivi


                                    ruota(1) = r1
                                    ruota(2) = 12

                                    ruote(1) = r1
                                    ruote(2) = 11
                                    ruote(3) = 12

                                    co = 0

                                    nu2(1) = NN2
                                    nu2(2) = NN3                           
                                                      ImpostaGiocata 1,nu2,ruota,poste1,k               
                                    nu1(1) = NN4 
                                    nu1(2) = NN5
                                    ImpostaGiocata 2,nu1,ruota,poste1,k
                                    nu1(1) = NN6 
                                    nu1(2) = NN7
                                    ImpostaGiocata 3,nu1,ruota,poste1,k

                                    nu4(1) = NN2 
                                    nu4(2) = NN3
                                    nu4(3) = NN4 
                                    nu4(4) = NN5
                                    nu4(5) = NN6 
                                    nu4(6) = NN6 
                                    
                                    ImpostaGiocata 6,nu4,ruote,poste2,k

        
                                    Gioca es



End If
End If
End If
End If
End If
Next
Next
Next
Next

Next
Next
Next
Next

ScriviResoconto
 End Sub
 
Sempre da con trollare......



Codice:
Sub main()
Dim nu1(2),nu2(4),nu3(6),ruote(2),ruotee(10)
Dim  am(2),am1(2),am2(4),am3(2),am4(2),am5(2),n(5)
Dim posta(1)
Dim poste(2)
Dim postee(4)

posta(1)=1
poste(2)=1
postee(2)=1.50
postee(3)=.50

ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",10000)
k=InputBox ("per quanti colpi?","colpi di gioco",9)
ini=ce
fin=EstrazioneFin
Scrivi "METODO SPECCHIO by Salvo Badessa ",1
Scrivi String(83,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)"
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&_
DataEstrazione (es,1)

For r1= 1 To 12
If r1=11 Then r1=12
For p1= 1 To 4
For  p2= p1+1 To 5

a=Estratto(es,r1,p1):b=Estratto(es,r1,p2)

If a=Vert(b) Then

'-----------------------

                       n(1)=Fuori90(a+b)'AMBATA
                       n(2)=a
                       n(3)=b
                       n(4)=Vert(n(1))
'-----------------------

casi=casi+1:Scrivi String(65,"=")&" ",1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&StringaEstratti(es,r1)&" ] [ "&_
Format2(a)& "-" & Format2(b)&"] Ambo Vertibile " &(p1)&"^/"&(p2)&"^ pos.",1
ColoreTesto 2
If Distanza(p1,p2)=1 Then Scrivi"AMBI UNITI",1
ColoreTesto 0
Scrivi String(71,"-")&" caso n° "&(casi),1
ruote(1)=r
ruote(2)=r1
ruotee(1)=r
ruotee(2)=r1
ruotee(3)=11
ruotee(4)=12
:co=0
am(1)=n(1)
 ImpostaGiocata 1,am,ruote,posta,k
am1(1)=n(1)
am1(2)=n(2)
 ImpostaGiocata 2,am1,ruote,poste,k
am1(1)=n(1)
am1(2)=n(3)
 ImpostaGiocata 3,am1,ruote,poste,k

am2(1)=n(1)
am2(2)=n(2)
am2(3)=n(3)
am2(4)=n(4)
 ImpostaGiocata 4,am2,ruotee,postee,k

Gioca es
End If

Next:Next:Next:Next
Scrivi String(65,"=")&" ",1
ScriviResoconto

End Sub






Codice:
Sub Main()
   Scrivi "METODO SPECCHIO 2 by Salvo Badessa ",1
   Scrivi
   Dim ruotee(10),ruote(10),ambata(2),ambo1(2),ambo2(2),ambo3(2),quartina(5),ruota(10),h,y,posta(1),poste(10),postee(4)
    posta(1) = 1: postee(2) = 1 : postee(3) = 1
poste(2) = 1
   EstrazioniLotto = InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE ?","",400)
   k = CInt(InputBox("QUANTI COLPI ?","",12))
   fin = EstrazioneFin
   ini = fin - EstrazioniLotto
   For es = ini To fin
      AvanzamentoElab ini,fin,es
      For r = 1 To 9
       r1 =r+1
  
         For p1 = 1 To 5
         For p2 = 1 To 5

               n1 = Estratto(es,r,p1)'89        15
               n2 = Estratto(es,r1,p1)'88       51

               If n1 = Vert(n2)   Then
               n3=Fuori90(n1+n2)
         For r2 = 1 To 10
              
               n4 = Estratto(es,r2,p2)
        ' If n4 = n3  And p2=p1 And r<>r2 And r1<>r2  Then ' la somma in posiz isotopa
         If n4 = n3 And r<>r2 And r1<>r2  Then 'la somma in  tutte le posizioni
                n5=90-n4
                           casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
                           Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r) & " " & StringaEstratti(es,r) & _
                           " >  < " & Format2(n1) ,1
                           Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
                           " >  < " & Format2(n2) &  " > Vertibile < " ,1
                           Scrivi
                           Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
                           " >  < " & Format2(n4) ,1
                           ColoreTesto 2
                           If  p2=p1 Then Scrivi"  NUMERO SOMMA TROVATO IN POSIZIONE ISOTOPA",1
                           ColoreTesto 2

                           ruote(1) = r2 '
                           ruote(2) = 12
                           '----------------------------------------
                           ruotee(1) = r2 '
                           ruotee(2) = 11
                           ruotee(3) = 12
                          
    
                          
                           ambata(1) = n5
                           ambata(2) = DiametraleD(n5)
                           ImpostaGiocata 1,ambata,ruote,posta,k
                           ambata(1) = n5
                           ambata(2) = n1
                           ImpostaGiocata 2,ambata,ruote,poste,k
                           ambata(1) = n5
                           ambata(2) = n2
                           ImpostaGiocata 3,ambata,ruote,poste,k
                           ambata(1) = DiametraleD(n5)
                           ambata(2) = n1
                           ImpostaGiocata 4,ambata,ruote,poste,k
                           ambata(1) = DiametraleD(n5)
                           ambata(2) = n2
                           ImpostaGiocata 5,ambata,ruote,poste,k
                           quartina(1) = n5
                           quartina(2) = DiametraleD(n5)
                           quartina(3) = n1
                           quartina(4) = n2
                           ImpostaGiocata 6,quartina,ruote,postee,k

                  

                           Gioca es
                        End If

                        Next
                        End If
                     Next
                     Next   
                   Next
                   Next   

                     ScriviResoconto
                     End Sub
 
Buonasera,
Chiedevo se fosse possibile realizzare uno script,da tale metodologia.
Grazie Mille a Tutti e Buona Serata

 
Per gli appassionati di Badessa Lotto,chi riesce a fare gli script
Buona serata


https://www.mediafire.com/file/tll6uxpfsq7xlf3/BUON+DIVERTIMENTO👍.mp4/file

https://www.mediafire.com/file/817e10pxuh5ipkj/CANNOLA+PI+TUTTI.😂😂+METODI+OMAGGIO+BY+SALVO+BADESSA.mp4/file

 
Di questo non si puo' fare lo script?

 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 novembre 2024
    Bari
    52
    79
    70
    83
    51
    Cagliari
    83
    14
    82
    89
    26
    Firenze
    57
    35
    33
    05
    14
    Genova
    38
    74
    16
    88
    25
    Milano
    86
    75
    87
    21
    05
    Napoli
    59
    07
    30
    78
    29
    Palermo
    30
    75
    52
    57
    22
    Roma
    22
    16
    03
    74
    23
    Torino
    28
    55
    72
    53
    22
    Venezia
    38
    77
    85
    23
    02
    Nazionale
    43
    23
    83
    72
    02
    Estrazione Simbolotto
    Torino
    42
    18
    32
    07
    24

Ultimi Messaggi

Indietro
Alto