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ì 17 aprile 2026
    Bari
    31
    34
    54
    63
    51
    Cagliari
    54
    15
    14
    25
    40
    Firenze
    75
    79
    42
    26
    19
    Genova
    02
    67
    09
    42
    41
    Milano
    34
    68
    73
    79
    03
    Napoli
    47
    26
    31
    23
    63
    Palermo
    74
    64
    03
    75
    63
    Roma
    82
    60
    28
    73
    11
    Torino
    27
    30
    51
    75
    05
    Venezia
    21
    65
    43
    15
    87
    Nazionale
    48
    09
    72
    88
    29
    Estrazione Simbolotto
    Genova
    45
    15
    22
    05
    25
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto