Novità

METODO QUESTI NUMERETTI !!!!!

Codice: 
Sub Main
   Dim ambata(5),ruote(5),calc(10),ruota(5),num(5),posta(2),poste(2)
   Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2)
   Dim terzina(5)
   Dim r1,r2
   Dim caso
   posta(1) = 1
   poste(2) = 1
   '
   rs = InputBox("Quante estrazioni vuoi controllare?",,0)
   k = 0
   caso = 0
   '
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      For r1 = 1 To 9
         For r2 = r1 + 1 To r2
            '
            For p1 = 1 To 5
               For p2 = 1 To 5
                  '
                  a = Estratto(es,r1,p1)
                  b = Estratto(es,r2,p2)
                  '--------------------
                  n1 = a + b
                  n2 = Diametrale(n1)
                  n3 = DiametraleD(n2)
                  x = n3
                  n4 = Massimo(a,b)
                  n5 = DiametraleD(n4)
                  n6 = n3 + 1
                  '
                  If Decina(a) = 0 And Decina(b) = 0 And p1 = p2 Then
                     ambata(1) = x
                     '
                     ambo1(1) = x
                     ambo1(2) = n4
                     ambo2(1) = x
                     ambo2(2) = n5
                     '
                     terzina(1) = n6
                     terzina(2) = n4
                     terzina(3) = n5
                     '
                     caso = caso + 1
                     Scrivi String(99,"-") & " gioco n. " & caso
                     Scrivi
                     '
                     ReDim MatriceCaselleDaEvid(10,1)
                     ' Primo elemento
                     MatriceCaselleDaEvid(1,0) = r1 ' ruota di bari
                     MatriceCaselleDaEvid(1,1) = 1 ' primo estratto
                     ' secondo elemento
                     MatriceCaselleDaEvid(2,0) = r1 ' ruota di bari
                     MatriceCaselleDaEvid(2,1) = 2 ' secondo estratto
                     ' terzo elemento
                     MatriceCaselleDaEvid(3,0) = r1 ' ruota di venezia
                     MatriceCaselleDaEvid(3,1) = 3 ' terzo estratto
                     ' quarto elemento
                     MatriceCaselleDaEvid(4,0) = r1 ' ruota di venezia
                     MatriceCaselleDaEvid(4,1) = 4 ' quarto estratto
                     ' quarto elemento
                     MatriceCaselleDaEvid(5,0) = r1 ' ruota di venezia
                     MatriceCaselleDaEvid(5,1) = 5 ' quinto estratto
                     ' ---------------------------------------------------
                     MatriceCaselleDaEvid(6,0) = r2 ' ruota di bari
                     MatriceCaselleDaEvid(6,1) = 1 ' primo estratto
                     ' secondo elemento
                     MatriceCaselleDaEvid(7,0) = r2 ' ruota di bari
                     MatriceCaselleDaEvid(7,1) = 2 ' secondo estratto
                     ' terzo elemento
                     MatriceCaselleDaEvid(8,0) = r2 ' ruota di venezia
                     MatriceCaselleDaEvid(8,1) = 3 ' terzo estratto
                     ' quarto elemento
                     MatriceCaselleDaEvid(9,0) = r2 ' ruota di venezia
                     MatriceCaselleDaEvid(9,1) = 4 ' quarto estratto
                     ' quarto elemento
                     MatriceCaselleDaEvid(10,0) = r2 ' ruota di venezia
                     MatriceCaselleDaEvid(10,1) = 5 ' quinto estratto
                     Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
                     '
                     ruota(1) = r1
                     ruota(2) = r2
                     ruote(1) = r1
                     ruote(2) = r2
                     ruote(3) = TT_
                     ruote(4) = NZ_
                     '
                     Scrivi
                     Scrivi DataEstrazione(es,1) & "  " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
                     "  numero  " & Format2(a) & "  in " & p1 & "° Pos.",1,1,3,7,4
                     '
                     Scrivi DataEstrazione(es,1) & "  " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
                     "  numero  " & Format2(b) & "  in " & p2 & "° Pos.",1,1,7,3,4
                     Scrivi
                     Scrivi
                     '
                     ImpostaGiocata 1,ambata,ruota,posta,k
                     Gioca es,1,,1
                     Scrivi
                     Scrivi String(55,"-")
                     Scrivi
                     Scrivi
                     ImpostaGiocata 1,ambo1,ruota,poste,k
                     ImpostaGiocata 2,ambo2,ruota,poste,k
                     Gioca es,1,,1
                     Scrivi
                     Scrivi String(55,"-")
                     Scrivi
                     Scrivi
                     ImpostaGiocata 1,terzina,ruota,poste,k
                     Gioca es,1,,1
                  End If
               Next
            Next
         Next
      Next
   Next
   Scrivi
   Scrivi "script di Zetrix",0,1,4,1
End Sub

imaging ho fatto questo script vedi se e esatto..
 
IL listato che hai scritto è una bomba i calcoli sembrano giusti semplicemente bello......:)(y)
 
Non lo so è una sciocchezza di osservazione ma la ruota della Nazionale non fa parte del metodo ??? Cosi.........
 
la nazionale non la metto perchè e na rompi cogliona..
non la metto quasi mai la nazionale negli script..
il listato era semplice potevi farlo anche tu..
stasera sono inca. perche ho cambiato una previsione..
e stasera e uscita proprio quella previsione che ho cambiata..
 
Zetrix ha scritto:
la nazionale non la metto perchè e na rompi cogliona..
non la metto quasi mai la nazionale negli script..
il listato era semplice potevi farlo anche tu..
Clicca per espandere...
Ci sono troppi rompi cogl.......sono con te ma specifico per chi giocherà il metodo Quindi quando si presenta cosiESTR Met.JPGESTR. METODO1.JPG
si faranno i calcoli a mano O... NO ;)
 
Codice: 
Sub Main
   Dim ambata(5),ruote(5),calc(10),ruota(5),num(5),posta(2),poste(2)
   Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2)
   Dim terzina(5)
   Dim r1,r2
   Dim caso
   posta(1) = 1
   poste(2) = 1
   '
   rs = InputBox("Quante estrazioni vuoi controllare?",,0)
   k = 0
   caso = 0
   '
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      For r1 = 1 To 11
         For r2 = r1 + 1 To r2
            '
            For p1 = 1 To 5
               For p2 = 1 To 5
               '
               If r2 = 11 Then r2 = 12 End If
                  '
                  a = Estratto(es,r1,p1)
                  b = Estratto(es,r2,p2)
                  '--------------------
                  n1 = a + b
                  n2 = Diametrale(n1)
                  n3 = DiametraleD(n2)
                  x = n3
                  n4 = Massimo(a,b)
                  n5 = DiametraleD(n4)
                  n6 = n3 + 1
                  '
                  If Decina(a) = 0 And Decina(b) = 0 And p1 = p2 Then
                     ambata(1) = x
                     '
                     ambo1(1) = x
                     ambo1(2) = n4
                     ambo2(1) = x
                     ambo2(2) = n5
                     '
                     terzina(1) = n6
                     terzina(2) = n4
                     terzina(3) = n5
                     '
                     caso = caso + 1
                     Scrivi String(99,"-") & " gioco n. " & caso
                     Scrivi
                     '
                     ReDim MatriceCaselleDaEvid(10,1)
                     ' Primo elemento
                     MatriceCaselleDaEvid(1,0) = r1 ' ruota di bari
                     MatriceCaselleDaEvid(1,1) = 1 ' primo estratto
                     ' secondo elemento
                     MatriceCaselleDaEvid(2,0) = r1 ' ruota di bari
                     MatriceCaselleDaEvid(2,1) = 2 ' secondo estratto
                     ' terzo elemento
                     MatriceCaselleDaEvid(3,0) = r1 ' ruota di venezia
                     MatriceCaselleDaEvid(3,1) = 3 ' terzo estratto
                     ' quarto elemento
                     MatriceCaselleDaEvid(4,0) = r1 ' ruota di venezia
                     MatriceCaselleDaEvid(4,1) = 4 ' quarto estratto
                     ' quarto elemento
                     MatriceCaselleDaEvid(5,0) = r1 ' ruota di venezia
                     MatriceCaselleDaEvid(5,1) = 5 ' quinto estratto
                     ' ---------------------------------------------------
                     MatriceCaselleDaEvid(6,0) = r2 ' ruota di bari
                     MatriceCaselleDaEvid(6,1) = 1 ' primo estratto
                     ' secondo elemento
                     MatriceCaselleDaEvid(7,0) = r2 ' ruota di bari
                     MatriceCaselleDaEvid(7,1) = 2 ' secondo estratto
                     ' terzo elemento
                     MatriceCaselleDaEvid(8,0) = r2 ' ruota di venezia
                     MatriceCaselleDaEvid(8,1) = 3 ' terzo estratto
                     ' quarto elemento
                     MatriceCaselleDaEvid(9,0) = r2 ' ruota di venezia
                     MatriceCaselleDaEvid(9,1) = 4 ' quarto estratto
                     ' quarto elemento
                     MatriceCaselleDaEvid(10,0) = r2 ' ruota di venezia
                     MatriceCaselleDaEvid(10,1) = 5 ' quinto estratto
                     Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
                     '
                     ruota(1) = r1
                     ruota(2) = r2
                     ruote(1) = r1
                     ruote(2) = r2
                     ruote(3) = TT_
                     ruote(4) = NZ_
                     '
                     Scrivi
                     Scrivi DataEstrazione(es,1) & "  " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
                     "  numero  " & Format2(a) & "  in " & p1 & "° Pos.",1,1,3,7,4
                     '
                     Scrivi DataEstrazione(es,1) & "  " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
                     "  numero  " & Format2(b) & "  in " & p2 & "° Pos.",1,1,7,3,4
                     Scrivi
                     Scrivi
                     '
                     ImpostaGiocata 1,ambata,ruota,posta,k
                     Gioca es,1,,1
                     Scrivi
                     Scrivi String(55,"-")
                     Scrivi
                     Scrivi
                     ImpostaGiocata 1,ambo1,ruota,poste,k
                     ImpostaGiocata 2,ambo2,ruota,poste,k
                     Gioca es,1,,1
                     Scrivi
                     Scrivi String(55,"-")
                     Scrivi
                     Scrivi
                     ImpostaGiocata 1,terzina,ruota,poste,k
                     Gioca es,1,,1
                  End If
               Next
            Next
         Next
      Next
   Next
   Scrivi
   Scrivi "script di Zetrix",0,1,4,1
End Sub

prova questo script ho aggiunto anche la nazionale vedi se i calcoli sono esatti..
 
Buongiorno per quanti colpi si giocano le previsioni? dallo script ho visto che non ci sono dei colpi stabiliti.... grazie
 
Zetrix ha scritto:
la nazionale non la metto perchè e na rompi cogliona..
non la metto quasi mai la nazionale negli script..
il listato era semplice potevi farlo anche tu..
stasera sono inca. perche ho cambiato una previsione..
e stasera e uscita proprio quella previsione che ho cambiata..
Clicca per espandere...
Escono sempre quando non si giocano strano caso.....
 
Solo per una piccola riflessione con la previsione questi Numeretti VE-NZ. 1.6.43 al 2° colpo terno secco TT.(MI):unsure::unsure::unsure:
 
kalat ha scritto:
ciao, come posso scaricare questo script. grazie
Clicca per espandere...
ciao questi script non si scaricano non sono programmi che si scaricano e poi si installano
si deve copiare lo script e poi incollarlo nello spazio elabora script di spaziometria
per default nello spazio elabora script ci sono queste scritte queste si devono cancellare
non ci deve stare scritto niente poi si puo incollare lo script e spaziometria elabora lo script..

Option Explicit
Sub Main

End Sub
 
3808.png
7_______8_________?
___(+1)____(+1)____

Numeri in gioco 09 su BA CA FI per Estratto
[BA] [09 .. .. .. ..] C.3 Estratto [19/07/2022] [09.58.51.77.18]
[FI] [.. 09 .. .. ..] C.10 Estratto [04/08/2022] [61.09.67.28.58]

-------------------------------------------------------
Numeri in gioco 09.67 su TT per Ambo
[FI][.. 09 67 .. ..] C.10 Ambo [04/08/2022] [61.09.67.28.58]

Numeri in gioco 09.77 su TT per Ambo
[BA][09 .. .. 77 ..] C.3 Ambo [19/07/2022] [09.58.51.77.18]

-------------------------------------------------------
 
Ultima modifica:
Codice: 
Sub Main
   Dim ambata(5),ruote(5),calc(10),ruota(5),num(5),posta(2),poste(2)
   Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2)
   Dim terzina(5)
   Dim r1,r2
   Dim caso
   posta(1) = 1
   poste(2) = 1
   '
   rs = InputBox("Quante estrazioni vuoi controllare?",,0)
   k = 0
   caso = 0
   '
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      For r1 = 1 To 11
         For r2 = r1 + 1 To r2
            '
            For p1 = 1 To 5
               For p2 = 1 To 5
                  '
                  If r2 = 11 Then r2 = 12 End If
                  '
                  a = Estratto(es,r1,p1)
                  b = Estratto(es,r2,p2)
                  '--------------------
                  n1 = a + b
                  n2 = Diametrale(n1)
                  n3 = DiametraleD(n2)
                  x = n3
                  n4 = Massimo(a,b)
                  n5 = DiametraleD(n4)
                  n6 = n3 + 1
                  '
                  If Decina(a) = 0 And Decina(b) = 0 And p1 = p2 Then
                     ambata(1) = x
                     '
                     ambo1(1) = x
                     ambo1(2) = n4
                     ambo2(1) = x
                     ambo2(2) = n5
                     '
                     terzina(1) = n6
                     terzina(2) = n4
                     terzina(3) = n5
                     '
                     ruota(1) = r1
                     ruota(2) = r2
                     ruote(1) = r1
                     ruote(2) = r2
                     ruote(3) = TT_
                     ruote(4) = NZ_
                     '
                     caso = caso + 1
                     Scrivi String(99,"-") & " gioco n. " & caso
                     Scrivi
                     '
                     ReDim MatriceCaselleDaEvid(10,1)
                     ' Primo elemento
                     MatriceCaselleDaEvid(1,0) = r1 ' ruota di bari
                     MatriceCaselleDaEvid(1,1) = 1 ' primo estratto
                     ' secondo elemento
                     MatriceCaselleDaEvid(2,0) = r1 ' ruota di bari
                     MatriceCaselleDaEvid(2,1) = 2 ' secondo estratto
                     ' terzo elemento
                     MatriceCaselleDaEvid(3,0) = r1 ' ruota di venezia
                     MatriceCaselleDaEvid(3,1) = 3 ' terzo estratto
                     ' quarto elemento
                     MatriceCaselleDaEvid(4,0) = r1 ' ruota di venezia
                     MatriceCaselleDaEvid(4,1) = 4 ' quarto estratto
                     ' quarto elemento
                     MatriceCaselleDaEvid(5,0) = r1 ' ruota di venezia
                     MatriceCaselleDaEvid(5,1) = 5 ' quinto estratto
                     ' ---------------------------------------------------
                     MatriceCaselleDaEvid(6,0) = r2 ' ruota di bari
                     MatriceCaselleDaEvid(6,1) = 1 ' primo estratto
                     ' secondo elemento
                     MatriceCaselleDaEvid(7,0) = r2 ' ruota di bari
                     MatriceCaselleDaEvid(7,1) = 2 ' secondo estratto
                     ' terzo elemento
                     MatriceCaselleDaEvid(8,0) = r2 ' ruota di venezia
                     MatriceCaselleDaEvid(8,1) = 3 ' terzo estratto
                     ' quarto elemento
                     MatriceCaselleDaEvid(9,0) = r2 ' ruota di venezia
                     MatriceCaselleDaEvid(9,1) = 4 ' quarto estratto
                     ' quarto elemento
                     MatriceCaselleDaEvid(10,0) = r2 ' ruota di venezia
                     MatriceCaselleDaEvid(10,1) = 5 ' quinto estratto
                     Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
                     '
                     '
                     Scrivi
                     Scrivi DataEstrazione(es,1) & "  " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
                     "  numero  " & Format2(a) & "  in " & p1 & "° Pos.",1,1,3,7,4
                     '
                     Scrivi DataEstrazione(es,1) & "  " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
                     "  numero  " & Format2(b) & "  in " & p2 & "° Pos.",1,1,7,3,4
                     Scrivi
                     Scrivi
                     '
                     ImpostaGiocata 1,ambata,ruota,posta,k
                     Gioca es,1,,1
                     Scrivi
                     Scrivi String(55,"-")
                     Scrivi
                     Scrivi
                     ImpostaGiocata 1,ambo1,ruote,poste,k
                     ImpostaGiocata 2,ambo2,ruote,poste,k
                     Gioca es,1,,1
                     Scrivi
                     Scrivi String(55,"-")
                     Scrivi
                     Scrivi
                     ImpostaGiocata 1,terzina,ruote,poste,k
                     Gioca es,1,,1
                  End If
               Next
            Next
         Next
      Next
   Next
   Scrivi
   Scrivi "script di Zetrix",0,1,1,5,4,4,8
   Scrivi "richiesta di Imaging",0,1,1,5,4,4,8
End Sub

scusa Imaging non avevo messo il gioco a tutte
adesso lo script evidenzia il terno 1 6 43 a MI (TT)
 
Ultima modifica:
Zetrix ha scritto:
Codice: 
Sub Main
   Dim ambata(5),ruote(5),calc(10),ruota(5),num(5),posta(2),poste(2)
   Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2)
   Dim terzina(5)
   Dim r1,r2
   Dim caso
   posta(1) = 1
   poste(2) = 1
   '
   rs = InputBox("Quante estrazioni vuoi controllare?",,0)
   k = 0
   caso = 0
   '
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      For r1 = 1 To 11
         For r2 = r1 + 1 To r2
            '
            For p1 = 1 To 5
               For p2 = 1 To 5
                  '
                  If r2 = 11 Then r2 = 12 End If
                  '
                  a = Estratto(es,r1,p1)
                  b = Estratto(es,r2,p2)
                  '--------------------
                  n1 = a + b
                  n2 = Diametrale(n1)
                  n3 = DiametraleD(n2)
                  x = n3
                  n4 = Massimo(a,b)
                  n5 = DiametraleD(n4)
                  n6 = n3 + 1
                  '
                  If Decina(a) = 0 And Decina(b) = 0 And p1 = p2 Then
                     ambata(1) = x
                     '
                     ambo1(1) = x
                     ambo1(2) = n4
                     ambo2(1) = x
                     ambo2(2) = n5
                     '
                     terzina(1) = n6
                     terzina(2) = n4
                     terzina(3) = n5
                     '
                     ruota(1) = r1
                     ruota(2) = r2
                     ruote(1) = r1
                     ruote(2) = r2
                     ruote(3) = TT_
                     ruote(4) = NZ_
                     '
                     caso = caso + 1
                     Scrivi String(99,"-") & " gioco n. " & caso
                     Scrivi
                     '
                     ReDim MatriceCaselleDaEvid(10,1)
                     ' Primo elemento
                     MatriceCaselleDaEvid(1,0) = r1 ' ruota di bari
                     MatriceCaselleDaEvid(1,1) = 1 ' primo estratto
                     ' secondo elemento
                     MatriceCaselleDaEvid(2,0) = r1 ' ruota di bari
                     MatriceCaselleDaEvid(2,1) = 2 ' secondo estratto
                     ' terzo elemento
                     MatriceCaselleDaEvid(3,0) = r1 ' ruota di venezia
                     MatriceCaselleDaEvid(3,1) = 3 ' terzo estratto
                     ' quarto elemento
                     MatriceCaselleDaEvid(4,0) = r1 ' ruota di venezia
                     MatriceCaselleDaEvid(4,1) = 4 ' quarto estratto
                     ' quarto elemento
                     MatriceCaselleDaEvid(5,0) = r1 ' ruota di venezia
                     MatriceCaselleDaEvid(5,1) = 5 ' quinto estratto
                     ' ---------------------------------------------------
                     MatriceCaselleDaEvid(6,0) = r2 ' ruota di bari
                     MatriceCaselleDaEvid(6,1) = 1 ' primo estratto
                     ' secondo elemento
                     MatriceCaselleDaEvid(7,0) = r2 ' ruota di bari
                     MatriceCaselleDaEvid(7,1) = 2 ' secondo estratto
                     ' terzo elemento
                     MatriceCaselleDaEvid(8,0) = r2 ' ruota di venezia
                     MatriceCaselleDaEvid(8,1) = 3 ' terzo estratto
                     ' quarto elemento
                     MatriceCaselleDaEvid(9,0) = r2 ' ruota di venezia
                     MatriceCaselleDaEvid(9,1) = 4 ' quarto estratto
                     ' quarto elemento
                     MatriceCaselleDaEvid(10,0) = r2 ' ruota di venezia
                     MatriceCaselleDaEvid(10,1) = 5 ' quinto estratto
                     Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
                     '
                     '
                     Scrivi
                     Scrivi DataEstrazione(es,1) & "  " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
                     "  numero  " & Format2(a) & "  in " & p1 & "° Pos.",1,1,3,7,4
                     '
                     Scrivi DataEstrazione(es,1) & "  " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
                     "  numero  " & Format2(b) & "  in " & p2 & "° Pos.",1,1,7,3,4
                     Scrivi
                     Scrivi
                     '
                     ImpostaGiocata 1,ambata,ruota,posta,k
                     Gioca es,1,,1
                     Scrivi
                     Scrivi String(55,"-")
                     Scrivi
                     Scrivi
                     ImpostaGiocata 1,ambo1,ruote,poste,k
                     ImpostaGiocata 2,ambo2,ruote,poste,k
                     Gioca es,1,,1
                     Scrivi
                     Scrivi String(55,"-")
                     Scrivi
                     Scrivi
                     ImpostaGiocata 1,terzina,ruote,poste,k
                     Gioca es,1,,1
                  End If
               Next
            Next
         Next
      Next
   Next
   Scrivi
   Scrivi "script di Zetrix",0,1,1,5,4,4,8
   Scrivi "richiesta di Imaging",0,1,1,5,4,4,8
End Sub

scusa Imaging non avevo messo il gioco a tutte
adesso lo script evidenzia il terno 1 6 43 a MI (TT)
Clicca per espandere...
Non ci sono scuse ;)(y)era già tutto a posto !!!!!!
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 26 luglio 2025
    Bari
    81
    09
    05
    54
    10
    Cagliari
    56
    07
    45
    69
    64
    Firenze
    39
    16
    56
    29
    09
    Genova
    67
    12
    55
    74
    04
    Milano
    40
    30
    44
    63
    27
    Napoli
    63
    07
    74
    86
    81
    Palermo
    80
    34
    16
    27
    53
    Roma
    08
    78
    43
    03
    52
    Torino
    38
    84
    47
    57
    20
    Venezia
    88
    70
    85
    65
    24
    Nazionale
    36
    09
    43
    55
    10
    Estrazione Simbolotto
    Nazionale
    25
    23
    13
    40
    35
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto