Novità

Proviamo a Testare le funzioni script di spazio Light e chiedere delucidazioni sulle difficoltà riscontrate

Mike58

Advanced Member >PLATINUM PLUS<
Si !!! capita anche a me, sarà intefaccia vbNet .
esegui questo script dei codici CHR e vedi che quel carattere non lo scrive.


Codice:
Class Script
    Sub Main
        For k As Integer = 1 To 220
            Scrivi (k & " - " & Chr(k))
        Next       
    'inserire qui il proprio codice...
    End Sub
End Class
 

Mike58

Advanced Member >PLATINUM PLUS<
Ecco lo script Abbellito dei Terni Vergini su Tutte.
Lo script analizza i terni trovati e verifica i sortiti in questo anno 2022


Terni Vergini Su Ruota Tutte
Script By LuigiB - I Legend - Mike58​



Estrazioni Inizio............... 1 - 1 - 07/01/1871
Estrazioni Fine analisi......... 10023 - 156 - 30/12/2021
Estrazioni Tot esaminate........ 10023
Estrazione di Verifica.......... 10024 - 157 - 03/01/2022
Colpi Trascorsi................. 6
Terni Trovati................... 43
Terni Sortiti................... 0


Codice:
Class Script
    Sub Main
        Dim Inizio As Integer =1
        Dim Fine As Integer = 10023 ' 156 del 31-12-2021 'EstrazioniArchivio-1
        Dim fin As Integer = EstrazioniArchivio
        Dim Classe As Integer = 3
        Dim Sorte As Integer = 3
        Dim aRuote() As Integer
        Dim nMaxRitPos = Fine - (Inizio -1)
        Dim aN() As Integer
        Dim aCol (Classe ) As Integer
        Dim nIntegrali As Integer
        Dim nSviluppate As Integer
        Dim Coll As Collection = New Collection
        Dim sRiga As String
        Dim kn ,clp ,k3 As Integer
        Dim T() , TT() ,VV() , esito , aUscite() , data As String
        Dim tot As Integer = fin - Inizio + 1
        TT = {"Terni Vergini Su Ruota Tutte "}
        Call InitTabella(TT,ColoreBlu,,250,ColoreBianco)
        VV = {Space (35) & "Script By LuigiB - I Legend - Mike58"}
        Call AddRigaTabella(VV)
        Call CreaTabella ()
        If ScegliRuote (aRuote) Then
            T = { " N. " , "  Terni vergini  " , "  Esito Ultima Estrazione  ","  nColpo  ", "  Id Sortito  "}
            Call InitTabella(T,ColoreVerde ,,,ColoreBianco )
            ImpostaRuotaTT ( aRuote )
            For idEstr As Integer = Inizio To Fine
                For r As Integer = 1 To  aRuote.getupperbound(0)
                    If GetNumeriRuota ( idEstr ,aRuote(r),aN) Then
                        Call OrdinaVettore (aN ,1,0,1)
                        InitSviluppoIntegrale (aN ,Classe)
                        Do While GetCombSviluppo ( aCol )
                            sRiga = StringaNumeri ( aCol )
                            AddItemCollection ( Coll , sRiga ,sRiga )
                        Loop
                    End If
                Next
            Next
            ReDim aN(90)
            For k As Integer =1 To 90
                aN(k)= k
            Next
            InitSviluppoIntegrale (aN , Classe )
            Do While GetCombSviluppo (aCol )
                sRiga = StringaNumeri (aCol)
                If Not Coll.contains ( sRiga ) Then
                    esito = "--"
                    data = "--"
                    If VerificaEsito (aCol , aRuote ,Sorte ,Fine+1,,,clp,aUscite)
                        For k1 As Integer = 0 To aUscite.GetUpperBound(0)
                            If aUscite(k1) <> "" Then esito = aUscite(k1)
                            If aUscite(k1) <> "" Then data = GetInfoEstrazione(Fine+clp)
                            If aUscite(k1) <> "" Then k3 +=1
                        Next
                    End If
                    kn +=1
                    T = {kn , StringaNumeri(aCol), esito , clp , data }
                    Call AddRigaTabella (T)
                    'Scrivi (FormatSpace(kn,2) & " - " &  (sRiga))
                End If
            Loop
            Scrivi ("Estrazioni Inizio............... " & GetInfoEstrazione(Inizio) )
            Scrivi ("Estrazioni Fine analisi......... " & GetInfoEstrazione(Fine) )
            Scrivi ("Estrazioni Tot esaminate........ " & tot - clp )
            Scrivi ("Estrazione di Verifica.......... " & GetInfoEstrazione(Fine + 1 ) )
            Scrivi ("Colpi Trascorsi................. " & clp)
            Scrivi ("Terni Trovati................... " & kn )
            Scrivi ("Terni Sortiti................... " & k3 )
            Scrivi ("Tempo Di Elaborazione........... " &  FormattaSecondi ( SecondiTrascorsi ))
        End If
        CreaTabella ()
    End Sub
    Sub ImpostaRuotaTT ( byref aRuote As Integer ())
        Dim bTutte As Boolean
        For k As Integer = 1 To aRuote.getupperbound(0)
            If aRuote(k) = 12 Then
                bTutte = True
                Exit For
            End If
        Next
        If bTutte Then
            ReDim aRuote (10)
            For k As Integer =1 To 10
                aRuote(k) = k
            Next
        End If
    End Sub
End Class
 

Xeroxs

Advanced Member
Buongiorno a Tutti,

Grazie Ancora a Mike58 per i codi, possono essere utili anche per altri usi.
Grazie a LuigiB, Fatto come da te indicato ed è ok.

Poi Confermo quanto detto da Mike58 se volessi scriverlo riporta comunque sempre quel carattere.
 

Xeroxs

Advanced Member
Ciao,

Allora seguendo le indicazioni di LuigiB,

ho pensato di Attivare dalla voce codifica e poi Unicode (UTF-8) ---> e lo scrive correttamente

1° Caso
2° Caso
 

Xeroxs

Advanced Member
Buongiorno,

Nel Testare gli Indici Mese ( Entrambi ), ho riscontrato che come primo colpo successivo riporta la stessa estrazione del calcolo o inizio del metodo da testare

esempio se indico

If IsPrimaDelMese(es) Then
oppure
If IndiceMensile(es) = 1 Then

ovvero vorrei partire dalla prima del mese per cui il primo colpo dovrebbe essere la data successiva
ma riporta

9881 - 14 - 02/02/2021 ----> prima estrazione del mese quella di partenza
9882 - 15 - 04/02/2021 ----> Questa dovrebbe essere invece il primo colpo successivo
9883 - 16 - 06/02/2021

Ho testato anche Ultima del Mese stesso cosa.

Segnalo per correttezza

Grazie.
 

i legend

Advanced Member >PLATINUM PLUS<
Ciao è giusto così.
Se l estrazione è la prima del mese allora la condizione è soddisfatta. Se invece vuoi quella successiva o chiedi la seconda o imposti l estrazione +1 che è appunto la successiva.
Sempre che non abbia frainteso quanto da te detto.
 

Xeroxs

Advanced Member
Ciao,
I-Legend
Se Vedi in Spaziometria e fai verifiche parallele lo vedi subito,
Quello che intendo io e che se scelgo l'estrazione Ultima, il programma la soddisfa ed è ok, ma in imposta giocata allora deve partire dalla estrazione successiva, ora ciò che posso capire io l'errore deve essere in imposta giocata perchè il primo colpo deve essere alla data successiva all'ultima estrazione.

Al momento ho risolto scrivendo per i test

Gioca (es + 1,True) cosi parte dalla successiva.
 

lotto_tom75

Advanced Premium Member
Buongiorno e complimenti di nuovo a tutti... ai mitici Luigi, Edo, al super power Ilegend, all'iper prolifico di script e fortissimo Mike58 e a tutti gli intervenuti!

ossessionato... come sono dalla tabella per immettere i numeri voluti anzichè i 90... (la metterei anche nel caffe latte... :coffee::LOL::D )

Codice:
Call ScegliNumeri(numeri)

mi stavo chiedendo... se fosse possibile ottimizzarne la versione per spaziolight anche per quanto riguarda i flag di riga e colonna per velocizzarne l'immissione... e le altre opzioni... :unsure:

Di seguito le due differenze riscontrate... tra spaziometria (versione migliore che mi piacerebbe fosse riportata in spazio light) e spaziolight (nuovo super programma che per velocità elaborazionale e possibilità di analisi tende a battere il suo progenitore...) :eek:

Super tabella di spaziometria

supertabella.jpg

tabella funzionale ma piuttosto spartana di spaziolight


funzionale-ma-spartana.jpg

Come si può notare la seconda non lega nemmeno le scarpe... alla prima :)

Se fosse possibile trasformare anche la seconda nella prima all'interno della sezione script del fenomenale nuovo spaziolight e magari metterla anche in tutte le altre sezioni del programma credo che potrebbe essere per tutti (per me sicuramente lo sarebbe...) iper fantastico 🤤 :D

Good Saturday e complimentissimi e grazie comunque a tutti per tutto quello che state facendo!

(y)💪👋🙂
 
Ultima modifica:

beppuzz

Junior Member
Buongiorno a tutti,vorrei un consiglio da voi,come si possono usare gli script di spazio metria con sapzio light??? mi spiego meglio,quando vado a copiare uno script di spazio metria in spazio light mi da errore...
 

Xeroxs

Advanced Member
Ciao,
I-Legend
Se Vedi in Spaziometria e fai verifiche parallele lo vedi subito,
Quello che intendo io e che se scelgo l'estrazione Ultima, il programma la soddisfa ed è ok, ma in imposta giocata allora deve partire dalla estrazione successiva, ora ciò che posso capire io l'errore deve essere in imposta giocata perchè il primo colpo deve essere alla data successiva all'ultima estrazione.

Al momento ho risolto scrivendo per i test

Gioca (es + 1,True) cosi parte dalla successiva.


o Forse Qualcosa nella Funzione Gioca è diverso, perchè scrivendo
Gioca (es + 1,True)
Tutto funziona come deve.... :) ;)
 

Mike58

Advanced Member >PLATINUM PLUS<
Buongiorno a tutti,vorrei un consiglio da voi,come si possono usare gli script di spazio metria con sapzio light??? mi spiego meglio,quando vado a copiare uno script di spazio metria in spazio light mi da errore...
Ciao Beppuzz, No !!! non è possibile sono 2 linguaggi e 2 piattaforme diverse.
Una spaziometria utllizza il vbscript , l'altra spaziolight utilizza il linguaggio più veloce vbnet.
Quindi a secondo del linguaggio va usata la relativa piattaforma.
 

antonino7629

Junior Member
Buona sera a tutti,
nel fare i complimenti agli sviluppatori del programma, nonchè a Mike58 per gli script postati.. premetto che sono alle prime armi e sto tentando di approcciarmi a questo nuovo mondo... con l'occasione volevo chiedere a voi tutti un aiuto relativamente allo script postato nei giorni scorsi da Mike58, nello specifico quello di ricerca degli "algoritmi sommativi a ruota". A quest'ultimo ho apportato delle modifiche affinchè trovasse l'algoritmo, anzichè al singolo indice, ma alle ultime estrazioni consecutive... la problematica che ho riscontrato, sta nel fatto che nella tabella viene indicato l'algoritmo relativo all'ultima estrazione, ma non vengono elencati gli algoritmi ancora in corso ed in attesa di estrazione. ho tentato di effettuare svariati tentativi nella modifica del codice, ma, naturalmente, con pessimo esito.... perdonatemi se non ho esposto in maniera chiara il mio pensiero... grazie ancora per il lavoro che state svolgendo...
Class Script
Sub Main
Dim k , r ,es ,p , a ,b , nu(2) , pos(1) , ru(1) ,clp, c ,kk,kn,kd , ind , nClp, pos2(1), p2,n As Integer
Dim ini , fin , indx As Integer
Dim Uscite () , sUscite() , esito As String
Dim posta(1) As Single
posta(1) = 1
Dim TotNum() As Integer
Dim aRuota As Integer
'-------------------------------------------------------------------------
Dim aT() As String = {" Casi ", " Algoritmo ", " Casi Esaminati "," Casi Validi ", " Ultima Operazione " , " Numero Calcolato " ," Esito Ultima Oper " , " Colpo " , " Data Sortita "}
InitTabella(aT,ColoreVerde,,100,ColoreBianco )
'-------------------------------------------------------------------------
ini = EstrazioniArchivio - 7
fin = EstrazioniArchivio
r = ScegliRuota() 'InputBox ("Scegli la ruota ","RUOTA",1)
indx = InputBox("Quale indice Mensile ","INDICE MENSILE ",0)
Scrivi ("Estrazioni Esaminate ......... : " & fin-ini + 1)
Scrivi ("Indice mensile considerato.... : " & indx )
Scrivi (Space(28) & Chr(174) & " Script In VbNet per SpazioLight 1.0.22 By Mike58 " & Chr(169),1,,,ColoreBlu ,120 )
Scrivi ("Cerca Algoritmi sommativi su " & NomeRuota(r,False) & " e Gioca sulla stessa Ruota ")
For rrr As Object = 1 To 10
For p = 1 To 5
For rr As Object = 1 To 10
For p2= 1 To 5
For n = 0 To 90
For es = ini To fin
If IndiceMensile(es) <> indx Then
Call Messaggio ("Cerca Algoritmi sommativi su ruota scelta & **** Script by Mike58 ***** " )
Call AvanzamentoElab (ini,fin,es)
ind = es + 1
k = k + 1
a = Estratto(es,rr,p)
b = Estratto(es,rrr,p2)
nu(1) = FuoriX((a+b+n),90)
nu(2) = Vertibile (nu(1))
ru(1) = r
pos(1) = p
pos2(1) = p2
If VerificaEsito (nu,ru,1,es+1,,3,clp,Uscite) Then
For c = 0 To Uscite.GetUpperBound(0)
If Uscite (c) <> "" Then
kk = kk + 1
End If
Next c
End If
End If
Next es
kd = k - (kk)
If kd <= 1 Then
kn = kn + 1
ReDim Preserve TotNum(kn)
TotNum(kn)=nu(1)
'-------------------------------------------------------------------------------------
esito = ""

If VerificaEsito (nu,ru,1,es+1,,3,nClp,sUscite) Then
For cc As Integer = 0 To sUscite.GetUpperBound(0)
If sUscite(cc) <> "" Then esito = sUscite (cc)
Next cc
End If
'-------------------------------------------------------------------------------------
Dim aV() As String
ReDim aV(aT.GetUpperBound(0))
aV(0) = kn
aV(1) = pos(1) & "_" & NomeRuota(rr) & " + " & pos2(1) & "_" & NomeRuota(rrr) & " + " & n
aV(2) = k
aV(3) = kk
aV(4) = a & " + " & b & " + " & n
aV(5) = nu(1) & " " & nu(2)
aV(6) = esito
aV(7) = nClp
aV(8) = DataEstrazione ((ind-1) + nClp )
If esito = "" Then
Call AddRigaTabella(aV,ColoreGiallo ,,100,ColoreRosso )
Else
Call AddRigaTabella(aV,ColoreMagenta ,,100,ColoreBianco )
End If
End If
k = 0 : kk = 0
Next n
Next p2
Next rr
Next p
Next rrr
Call CreaTabella()
Scrivi("Numeri Ricavati..... : " & StringaNumeri(TotNum),1,,,ColoreBlu,150)
For ess As Integer = ind To fin
ImpostaGiocata(1,TotNum,ru,posta,,3)
Gioca (ess,1)
Next ess
End Sub
End Class
 
Ultima modifica:

Xeroxs

Advanced Member
Buongiorno a Tutti

Ho Fatto il mio Primo Script per questo nuovo Programma per Testarmi e testare le/ o alcune Funzioni,
Ho impostato un ambata Fissa per capire meglio quanto sposto precedentemente in quanto vorrei capire la differenza da me riscontrata dallo stesso script creato con spaziometria.

Questo è lo script

Codice:
Class Script
    Sub Main
        'inserire qui il proprio codice...
        Dim inizio As Integer = 1
        Dim Ini As Integer = 9867
        Dim Fin As Integer = EstrazioniArchivio
        Dim es,K  As Integer
        Dim ruote(3) As Integer
        Dim Clp As Integer
        Dim Ambata(1) As Integer
        Dim StatAmbata,RitAmbataEs,StatAmbata2,RitAmbataEs2,Rit,RitMax,RitMax2,RitAmbataAT,RitAmbataAT2,RitAmbataMax As Integer
        Dim Posta(1) As Single
        'Dim A,B,C,Num1, Num2  As Integer
        '--------------------------------------------------- Ruote Di Gioco
        ruote(1) = 3
        'ruote(1) = Ba_ 'Scritta Così solo Per Funzioni Utente
        'ruote(2) = Ca_
        '---------------------------------------------------
        Posta(1) = 1
        Clp = 13 ' Colpi di Gioco
        '-------------------------------------------------------------------------------------------------------------- Intestazione
        Scrivi (StrDup(134,"-") & " By Xeroxs " & "-----",1)
        Scrivi (StrDup(67," ") & "---> Resoconto <--- ",1,,,ColoreMagenta)
        Scrivi (StrDup(65," ") & DataEstrazione(Ini) & " - " & DataEstrazione(Fin),1,,,ColoreBlu)
        Scrivi (StrDup(47," ") & " Test Metodi Per Ambata Fissa o Con Matematica Sommativa ",1,,,ColoreBlu)
        Scrivi (StrDup(41," ") & " Script Test Per  LottoProjectLb Ver. 1.0.29 By Edoardo_95 And LuigiB",1,,,ColoreBlu)
        Scrivi (StrDup(150,"-"))
        Scrivi
        '
        For es = Ini To Fin
            'If IndiceMensile(es) = 1 Then
            If IsUltimaDelMese(es) Then
                Messaggio ("Elaborazione estrazioni... [" &(es) & " ]   Script  by Xeroxs")
                AvanzamentoElab (Ini,Fin,es)
                '------------------------------------------------------------------------------- Calcolo Amabata e Statistica
                Ambata(1) = 90 ' Imposto un' Ambata Fissa
                StatAmbata = StatEstratto (Ambata(1),ruote(1),Rit,RitMax,,,,inizio,Fin,)
                StatAmbata2 = StatEstratto (Ambata(1),ruote(2),Rit,RitMax2,,,,inizio,Fin,)
                RitAmbataEs  = EstrattoRitardo(Ambata(1),ruote(1),es)
                RitAmbataAT  = EstrattoRitardo(Ambata(1),ruote(1),Fin)
                RitAmbataEs2  = EstrattoRitardo(Ambata(1),ruote(2),es)
                RitAmbataAT2  = EstrattoRitardo(Ambata(1),ruote(2),Fin)
                '--------------------------------------------------------------------------------
                K = K + 1
                Scrivi ("Estrazione n." & FormatSpace((es),5) & " "& "[" & IndiceAnnuale(es) &"] * " & StrDup (100,"*") & " " & DataEstrazione(es) & " * Caso n°" & Format2(K),1,,,ColoreBlu)
                Scrivi (MeseNome(Mese(es)) & " - " & Anno(es) & " ---> " & IndiceMensile(es) & "° Estrazione Mensile",1,,,ColoreBlu)
                Scrivi
                Scrivi ("Si è Scelto di Testare il Metodo sulla Ruota di ------> " & NomeRuota(ruote(1),False),1,,,ColoreRosso)
                'Scrivi ("Si è Scelto di Testare il Metodo sulle Ruote di ------> " & NomeRuota(ruote(1),False) & " - " & NomeRuota(ruote(2),False),1,,,ColoreRosso)
                Scrivi
                Scrivi ("Ambata da Mettere in Gioco: ",1,0,,ColoreBlu)
                Scrivi (Format2(Ambata(1)),1,,,ColoreRosso)
                Scrivi
                Scrivi ("Analisi Ambata su " & NomeRuota(ruote(1)) & " * Ritardo Al Momento Del Calcolo ---> " & Format2(RitAmbataEs) & "  *  Ritardo Attuale ---> " & Format2(RitAmbataAT) & " Estrazioni " & " *  Storico ---> " & Format2(RitMax),1,,,ColoreBlu)
                'Scrivi ("Analisi Ambata su " & NomeRuota(ruote(2)) & " * Ritardo Al Momento Del Calcolo ---> " & Format2(RitAmbataEs2)& "  *  Ritardo Attuale ---> " & Format2(RitAmbataAT2) & " Estrazioni " & " *  Storico ---> " & Format2(RitMax2),1,,,ColoreBlu)
                Scrivi
                Scrivi (StrDup(150,"-"),1,,,ColoreBlu)
                Scrivi
                'ImpostaGiocata(1,Ambata,ruote,Posta,,Clp,1)
                ImpostaGiocata(1,Ambata,ruote,Posta,,Clp,2) ' Uso Questa Per Vedere Tutte le Giocate
                'Gioca (es,False,True,1)
                Gioca (es + 1,True) ' Per Risolvere Anomalia Con Colpi Corretti
                'Gioca(es,True)
                'Gioca (es + 1,True,,1)
            End If ' Chiude Indice Mensile ---> Attivi Sopra Quale Utilizzato
        Next ' Chiude es
        Scrivi
        ScriviResoconto   
    End Sub
End Class

La Mia sia ben inteso non vuole essere una critica o altro vorrei capire come usare nel modo corretto gli esiti che vengono esposti a seconda delle nostre analisi o calcoli che si tratti di ambata o altro.

Quindi Se Io imposto Ultima estrazione --- vedi primo caso dello script 31/12/2020 * Caso n°01

il primo colpo della verifica deve avvenire il ------------------------------------> 9868 - 1 - 02/01/2021

Ma questo lo fa se io imposto

Gioca (es + 1,True) ---> Ovvero devo aggiungere + 1 per partire nel modo corretto

Cosa diversa dalla funzione usata in spaziometria.

Volevo capire se con VB.NET devo comunque aggiungere il + 1 al Gioca es oppure si tratta di Altro.

Infatti se ipotizziamo un calcolo sommativo che fatto all'ultima estrazione del mese, se uso
Gioca (es,True)

L'analisi parte come primo colpo come sotto riportato

G 1 - N. [90] Sorte : [E ] Fi [--.--.--.--.--] C 1 9867 - 139 - 31/12/2020
G 1 - N. [90] Sorte : [E ] Fi [--.--.--.--.--] C 2 9868 - 1 - 02/01/2021
G 1 - N. [90] Sorte : [E ] Fi [--.--.--.--.--] C 3 9869 - 2 - 05/01/2021

Certo, non è un problema scrivere sempre il + 1, ma penso che al di là del tipo di "programmazione utilizzata" sia sempre utile ,se fattibile mantenere lo stesso criterio nel realizzare la funzione.

Ripeto il mio intento è quello di capire come usare le funzioni create e poi usarle, Ovvio se ho sbagliato ad interpretare o a scrivere correttamente lo script chiedo scusa e confido nelle giuste direttive per non sbagliare in quelli successivi.

Spero di non essere frainteso.

Grazie Come sempre.
 

i legend

Advanced Member >PLATINUM PLUS<
Certo, non è un problema scrivere sempre il + 1, ma penso che al di là del tipo di "programmazione utilizzata" sia sempre utile ,se fattibile mantenere lo stesso criterio nel realizzare la funzione.
Gli algoritmi vengono ripensati, ottimizzati. Quando restano tali e quali è solo per due casi.
Primo : l algoritmo non è ottimizzabile, è perfetto.( potrebbe essere,ma sarei triste se così fosse)
Secondo: pigrizia mentale.
Tutto è perfettibile.
Quando vedo dei miei vecchi script ,che ritenevo fighissimi, oggi mi faccio tenerezza da solo ahhhhhhahhhh.
(Nonostante siano ancora davvero buoni)
Viva il progresso.:)
Xerox questa è una mi idea, magari hai ragione te e si tratta di un bug
 

Xeroxs

Advanced Member
Vivo anche io con il progresso nella forma verso migliorie, infatti se l'uso è quello nulla cambia, anzi.
Ripeto non si tratta ne di un cruccio ne di altro, non essendo un programmatore cerco di capirne il modo in cui è elaborato proprio per poterlo usare come lo ha pensato e realizzato l'ideatore o gli ideatori in questo caso.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 18 gennaio 2022
    Bari
    76
    16
    68
    50
    18
    Cagliari
    10
    04
    90
    62
    11
    Firenze
    65
    57
    74
    77
    24
    Genova
    10
    82
    55
    43
    15
    Milano
    57
    78
    54
    81
    89
    Napoli
    54
    16
    19
    87
    58
    Palermo
    36
    48
    12
    24
    66
    Roma
    24
    23
    50
    02
    30
    Torino
    28
    43
    84
    76
    46
    Venezia
    37
    74
    29
    23
    34
    Nazionale
    63
    60
    39
    59
    35
    Estrazione Simbolotto
    Bari
    06
    39
    25
    09
    41

Ultimi Messaggi

Alto