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
    giovedì 16 aprile 2026
    Bari
    17
    71
    26
    06
    73
    Cagliari
    35
    72
    04
    61
    78
    Firenze
    22
    30
    46
    57
    81
    Genova
    77
    48
    17
    59
    64
    Milano
    90
    02
    32
    08
    57
    Napoli
    04
    71
    12
    77
    76
    Palermo
    42
    87
    07
    24
    56
    Roma
    32
    67
    03
    44
    38
    Torino
    25
    48
    17
    09
    50
    Venezia
    15
    81
    10
    03
    86
    Nazionale
    76
    20
    38
    59
    80
    Estrazione Simbolotto
    Genova
    28
    04
    02
    41
    29
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto