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
    venerdì 07 novembre 2025
    Bari
    87
    44
    86
    59
    51
    Cagliari
    85
    41
    53
    76
    18
    Firenze
    24
    90
    51
    89
    57
    Genova
    04
    39
    77
    13
    23
    Milano
    86
    81
    49
    20
    85
    Napoli
    23
    75
    07
    40
    79
    Palermo
    26
    37
    32
    08
    64
    Roma
    87
    05
    37
    03
    85
    Torino
    66
    16
    28
    09
    37
    Venezia
    30
    73
    32
    49
    26
    Nazionale
    76
    68
    25
    01
    62
    Estrazione Simbolotto
    Torino
    27
    21
    30
    20
    07
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto