Tabella statistica

Zetrix · 25 Luglio 2021

Codice:

Sub Main

   Dim arrData(10,13)
 
   Dim r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11
 
 
     'rv = InputBox("Quale numero vuoi controllare?",,0)
 
 
   For es = EstrazioneFin To EstrazioneFin
  AvanzamentoElab EstrazioneFin,EstrazioneFin,es
 
  For x = 1 To 90
 

 
   For r1 = 1 To 1
   For r2 = 2 To 2

   For r3 = 3 To 3
   For r4 = 4 To 4
   For r5 = 5 To 5
   For r6 = 6 To 6

   For r7 = 7 To 7
   For r8 = 8 To 8
   For r9 = 9 To 9
   For r10 = 10 To 10
 


'If r1 = 11 Then r1 = 12 End If

 
       
         arrData(1,1) = "" & x & "  BA "
         arrData(2,1) = "" & x & "  CA "
         arrData(3,1) = "" & x & "  FI "
         arrData(4,1) = "" & x & "  GE "
         arrData(5,1) = "" & x & "  MI "
         arrData(6,1) = "" & x & "  NA "
         arrData(7,1) = "" & x & "  PA "
         arrData(8,1) = "" & x & "  RO "
         arrData(9,1) = "" & x & "  TO "
         arrData(10,1) = "" & x & "  VE "
     
   



   
    arrData(1,2) = EstrattoRitardo(r1,x)
    arrData(2,3) = EstrattoRitardo(r2,x)
    arrData(3,4) = EstrattoRitardo(r3,x)
    arrData(4,5) = EstrattoRitardo(r4,x)
    arrData(5,6) = EstrattoRitardo(r5,x)
    arrData(6,7) = EstrattoRitardo(r6,x)
    arrData(7,10) = EstrattoRitardo(r7,x)
    arrData(8,11) = EstrattoRitardo(r8,x)
    arrData(9,12) = EstrattoRitardo(r9,x)
    arrData(10,13) = EstrattoRitardo(r10,x)
   



For k = 1 To 1


 
 
 Next



      Call Scrivi("Grafico" & k)
      Call Grafico(arrData,2,DataEstrazione(es) & Space(5) & " " & x & Space(5) & " Rit.Att. " & Space(5) & "","titX","titY",True)
 
 
      Scrivi SiglaRuota(r1) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r1,x)
      Scrivi SiglaRuota(r2) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r2,x)
      Scrivi SiglaRuota(r3) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r3,x)
      Scrivi SiglaRuota(r4) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r4,x)
      Scrivi SiglaRuota(r5) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r5,x)
      Scrivi SiglaRuota(r6) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r6,x)
      Scrivi SiglaRuota(r7) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r7,x)
      Scrivi SiglaRuota(r8) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r8,x)
      Scrivi SiglaRuota(r9) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r9,x)
      Scrivi SiglaRuota(r10) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r10,x)
   


 Next
     
Next
Next
Next


Next
Next
Next
Next
Next
Next
Next
Next

End Sub

Ciao Joe ho questo script che da sempre errore puoi vedere perche con tutti i 90
dice sempre impossibile aprire negli appunti ho fatto diversi tentativi ma niente
da fare

For x = 1 To 90

se invece scrivo

For x = 1 To 2

per due numeri lo script non da errore
e come se lo script non ce la facesse ad elaborare tutti i 90 numeri
adesso non voglio scomodare LuigiB perche forse a molte altre cose
da fare se puoi vedere te se riesci a risolvere questo problema
visto la tua bravura e la professionalità in merito ai script che realizzi
ho visto che ce anche Cinzia27 che e molto brava con i listati script
in ogni modo chiedo se qualcuno riesce a risolvere questa fastidiosa
finestra di windos che dice sempre impossibile aprire gli appunti

intanto buona domenica

Antonio Pagano · 25 Luglio 2021

Prova con questa correzione, con spazioMetria funziona perfettamente.

Option Explicit
Sub Main

Dim arrData(10,13)

Dim r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11

Dim x,es,k

'rv = InputBox("Quale numero vuoi controllare?",,0)

For es = EstrazioneFin To EstrazioneFin
AvanzamentoElab EstrazioneFin,EstrazioneFin,es

For x = 1 To 90

For r1 = 1 To 1
For r2 = 2 To 2

For r3 = 3 To 3
For r4 = 4 To 4
For r5 = 5 To 5
For r6 = 6 To 6

For r7 = 7 To 7
For r8 = 8 To 8
For r9 = 9 To 9
For r10 = 10 To 10

'If r1 = 11 Then r1 = 12 End If

arrData(1,1) = "" & x & " BA "
arrData(2,1) = "" & x & " CA "
arrData(3,1) = "" & x & " FI "
arrData(4,1) = "" & x & " GE "
arrData(5,1) = "" & x & " MI "
arrData(6,1) = "" & x & " NA "
arrData(7,1) = "" & x & " PA "
arrData(8,1) = "" & x & " RO "
arrData(9,1) = "" & x & " TO "
arrData(10,1) = "" & x & " VE "

arrData(1,2) = EstrattoRitardo(r1,x)
arrData(2,3) = EstrattoRitardo(r2,x)
arrData(3,4) = EstrattoRitardo(r3,x)
arrData(4,5) = EstrattoRitardo(r4,x)
arrData(5,6) = EstrattoRitardo(r5,x)
arrData(6,7) = EstrattoRitardo(r6,x)
arrData(7,10) = EstrattoRitardo(r7,x)
arrData(8,11) = EstrattoRitardo(r8,x)
arrData(9,12) = EstrattoRitardo(r9,x)
arrData(10,13) = EstrattoRitardo(r10,x)

For k = 1 To 1

Next

Call Scrivi("Grafico" & k)
'Call Grafico(arrData,2,DataEstrazione(es) & Space(5) & " " & x & Space(5) & " Rit.Att. " & Space(5) & ""," titX & "," titY"" ,True)
Call Grafico(arrData,2,DataEstrazione(es) & Space(5) ,,True)

Scrivi SiglaRuota(r1) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r1,x)
Scrivi SiglaRuota(r2) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r2,x)
Scrivi SiglaRuota(r3) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r3,x)
Scrivi SiglaRuota(r4) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r4,x)
Scrivi SiglaRuota(r5) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r5,x)
Scrivi SiglaRuota(r6) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r6,x)
Scrivi SiglaRuota(r7) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r7,x)
Scrivi SiglaRuota(r8) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r8,x)
Scrivi SiglaRuota(r9) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r9,x)
Scrivi SiglaRuota(r10) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r10,x)

Next

Next
Next
Next

Next
Next
Next
Next
Next
Next
Next
Next

End Sub

Zetrix · 25 Luglio 2021

grazie Antonio ho provato lo script adesso non da errore quindi lo sbaglio
era che non ho dimesionate la x, k ,es,
ho visto che funziona anche senza Option Explicit che poi non ho capito a
che serve questa stringa io non la scrivo mai nei listati

i legend · 26 Luglio 2021

Optional explicit ti obbliga a dichiarare tutte le variabili e ti permette di evitare o rintracciare possibili errori.
Lo script sopra potrebbe essere ottimizzato, purtroppo al momento non ho il pc a disposizione per mostrare come. Appena posso magari se non lo fa qualcuno prima ve lo mostro .
Ciao

Zetrix · 26 Luglio 2021

grazie i legend se riesci a ottimizzare la tabella aspetto le tue dritte io ho gia creato piu di duecento
tabelle perche io non mi arrendo e lo devo battere il banco anche con la statistica
se vogliono la guerra l'hanno trovata

Ciao

joe · 26 Luglio 2021

Si ma prima devi imparare i For-Next

perché se li usi a quel modo la battaglia la fai ai mulini a vento.

For R = 1 to 10
Scrivi NomeRuota (R)
Next

R = 1 / R = 2 / R = 3 / ... / R = 10 non devono essere scritti a mano

DEVONO ESSERE UNA SOLA "R" alla quale il computer cambia il valore ad ogni ciclo.

Per esempio con 3 righe di codice scrivi 10 nomi di ruota differenti ... IN AUTOMATICO.

NON DEVONO ESSERE USATE 10 VARIABILI DIFFERENTI

MA UNA SOLA che assume tanti valori (entro i limiti 1-10).

E ... OGNI VALORE DIFFERENTE INDICA ED INDIRIZZA ad un "qualcosa" di simile e differente.

Com'è per noi il 1° nome di Ruota è Bari.

Il 2° è Cagliari .... il 10° è Venezia così per il computer è:

NomeRuota (INDICIZZATO) ... con un numero che "ho scelto" essere R.

Combiando R ... per 10 volte ... indirizzo al nome di 10 Ruote differenti.

Se R = 5 ... Scrivi NomeRuota (R) ... scriverà "Milano"

Se R = 10 ... Scrivi NomeRuota (R) ... scriverà "Venezia"

For R1 = 1 To 1
For R2 = 1 To 1 (x 10 volte che FORSE potrebbero essere 13)

E' una cosa che mette paura ... ma non al banco.

Zetrix · 27 Luglio 2021

Joe mi stai dicendo che questo prospetto che ho scritto non va bene
lo so che ho un po di difficoltà con i for e i next infatti non sai quanti
errori ho fatto con i for e i next perche basta che gli cambi di ordine
nelle righe dello script e si fa un casino comunque questo prospetto
che ho scritto lo fatto con il copia e incolla basta che copio la prima riga
e poi le incollo tutte le altre righe ma devo risistemare le ruote r1 r2 ecc

Scrivi SiglaRuota(r1) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r1,x)
Scrivi SiglaRuota(r2) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r2,x)
Scrivi SiglaRuota(r3) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r3,x)
Scrivi SiglaRuota(r4) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r4,x)
Scrivi SiglaRuota(r5) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r5,x)
Scrivi SiglaRuota(r6) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r6,x)
Scrivi SiglaRuota(r7) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r7,x)
Scrivi SiglaRuota(r8) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r8,x)
Scrivi SiglaRuota(r9) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r9,x)
Scrivi SiglaRuota(r10) & Space(2) &(x) & Space(4) & "Rit.Att." & EstrattoRitardo(r10,x)

joe · 27 Luglio 2021

E' complicato ed ognuno può avere soluzioni diverse ... o le sue.

Io ho come mia regola: "3 casi".

Se devio scrivere tre nomi di ruota li scrivo ...

Se sono più di 3, li faccio scrivere al computer.

Se ho una posizione da leggere scrivo qual'è la posizione da leggere.

Se sono 5 (come le posizioni) o 10 (come le ruote) o 90 (come i numeri),

li faccio scorrere dal computer.

Tu hai 10 ruote hai usato 10 variabili.

Hai dovuto incollarle 10 volte

rinominarle una ad una (aggiungendo un numero progressivo ad ogni nuova R).

10 volte + 10 volte con il rischio di commettere molti errori.

Se avessi voluto creare una tabella 10 x 90 avresti 900 righe e variabili da incollare e rinominare.

Una per ogni cella e gli errori diventano inevitabili. La lettura/correzione impossibile.

Anche il tempo di preparazione della tabella e del suo script diventa enorme.

Mentre se afferri che hai bisogno di 2 variabili (Numero e Ruota)

puoi avere una tabella con tutti i ritardi di tutti i numeri di tutte le ruote ...

pulita,ordinata,giusta, semplice, senza errori, in meno di un minuto.

Codice:

Option Explicit
Sub Main
Dim N,R
  For N = 1 To 90
    Scrivi Format2(N) & Space(1),True,False
    For R = 1 To 10
      Scrivi FormatSpace(RitardoEstratto(N,EstrazioneFin,R),4,True),0,0
    Next
    Scrivi
  Next
End Sub

Zetrix · 27 Luglio 2021

Joe non si mette in discussione la tua professionalità ma
con i rit dei numeri non si fa la guerra al banco
ci vogliono delle strategie di gioco sei bravo a fare le tabelle
con 90 numeri me ne servono tre pannelli con 90 numeri
uno che evidenzia i numeri con una uscita durante un ciclo di estrazioni
un altro pannello che evidenzia i numeri con due uscite e piu
e infine un altro pannello che evidenzia i numeri con 0 uscite
e forse in questo modo si potrebbe iniziare a fare la guerra al banco
e non ai mulini al vento

joe · 27 Luglio 2021

Se il periodo è fisso (18 estrazioni) in questo periodo

ogni numero può essere estratto tanto zero volte

come una, due,tre e raramente qualche volta in più.

Però i numeri sono 90 e le ruote 10/11.

La tabella rimane pressoché identica.

si cambia l'istruzione ritardo con frequenza.

Se ho usato ritardo è perché quello era il tuo esempio.

anche la scelta di avere tre tabelle una piena al 60%

una al 20% ed una quasi vuota. è scelta personale.

Se così deve essere basta aggiungere un terzo for-next da 1a 3

per avere 3 tabelle.

joe · 28 Luglio 2021

Zetrix ha scritto:
Joe non si mette in discussione la tua professionalità ma
con i rit dei numeri non si fa la guerra al banco
ci vogliono delle strategie di gioco sei bravo a fare le tabelle
con 90 numeri me ne servono tre pannelli con 90 numeri
uno che evidenzia i numeri con una uscita durante un ciclo di estrazioni
un altro pannello che evidenzia i numeri con due uscite e piu
e infine un altro pannello che evidenzia i numeri con 0 uscite
e forse in questo modo si potrebbe iniziare a fare la guerra al banco
e non ai mulini al vento

Codice:

Option Explicit
Sub Main
  ' Nero = ZERO presenze nelle ULTIME 18 Estrazioni
  ' Blu  = UNA  presenza nelle ULTIME 18 Estrazioni (Freq = 0.056)
  'Rosso = DUE o PIU' presenze nelle ULTIME 18 Estrazioni
  Dim N,R,F
  For N = 1 To 90
    ColoreTesto 0
    Scrivi Format2(N),True,False
    For R = 1 To 10
      F = EstrattoFrequenza(R,N,EstrazioneFin - 17,EstrazioneFin)
      ColoreTesto 0
      If F >= 2 Then ColoreTesto 2
      If F = 1 Then ColoreTesto 1
      Scrivi FormatSpace(SiglaRuota(R),3,True),0,0
    Next
    Scrivi
  Next
End Sub

joe · 28 Luglio 2021

Facendo seguito a quanto ho scritto ...

Se si vogliono 3 tabelle separate ... basta separare le 3 parti di cui si compone quella unica,

Come detto lo si può fare, aggiungendo semplicemente un ciclo "For-Next" quale contatore di tabelle "T".

Sempre che debbano essere 3 e che ... questa nuova componente cabalistica ...

non sia oggetto di ulteriore voluttuosità:

Codice:

Option Explicit
Sub Main
  Dim N,R,F,T
  Scrivi String(35,"="),True
  For T = 2 To 0 Step - 1
    ColoreTesto T
    Scrivi "N°" & Space(4) & T & " Presenze / 18 Estrazioni",True
    For N = 1 To 90
      Scrivi Format2(N),True,False
      For R = 1 To 12 : If R = 11 Then R = 12
        F = EstrattoFrequenza(R,N,EstrazioneFin - 17,EstrazioneFin)
        If F = T Or F > 2 Then
          Scrivi FormatSpace(SiglaRuota(R),3,True),0,0
        Else
        Scrivi Space(3),0,0
        End If
      Next
      Scrivi
    Next
    ColoreTesto 0 : Scrivi String(35,"="),True
  Next
  Scrivi "Agg al " & DataEstrazione(EstrazioneFin),True
End Sub

Red*one · 28 Luglio 2021

joe ha scritto:
Facendo seguito a quanto ho scritto ...

Se si vogliono 3 tabelle separate ... basta separare le 3 parti di cui si compone quella unica,

Come detto lo si può fare, aggiungendo semplicemente un ciclo "For-Next" quale contatore di tabelle "T".

Sempre che debbano essere 3 e che ... questa nuova componente cabalistica ...

non sia oggetto di ulteriore voluttuosità:

Codice:

Option Explicit Sub Main Dim N,R,F,T Scrivi String(35,"="),True For T = 2 To 0 Step - 1 ColoreTesto T Scrivi "N°" & Space(4) & T & " Presenze / 18 Estrazioni",True For N = 1 To 90 Scrivi Format2(N),True,False For R = 1 To 12 : If R = 11 Then R = 12 F = EstrattoFrequenza(R,N,EstrazioneFin - 17,EstrazioneFin) If F = T Or F > 2 Then Scrivi FormatSpace(SiglaRuota(R),3,True),0,0 Else Scrivi Space(3),0,0 End If Next Scrivi Next ColoreTesto 0 : Scrivi String(35,"="),True Next Scrivi "Agg al " & DataEstrazione(EstrazioneFin),True End Sub

Buon pomeriggio, Joe ,Zetrix chiedo a Voi:
è possibile inserire a quest'ultimo una rappresentanza grafica dove si possa selezionare ruota e numero ,che vada a verificare l'andamento del numero nelle ultime 100 estrazioni?

joe · 28 Luglio 2021

Red*one ha scritto:
Buon pomeriggio, Joe ,Zetrix chiedo a Voi:
è possibile inserire a quest'ultimo una rappresentanza grafica dove si possa selezionare ruota e numero ,che vada a verificare l'andamento del numero nelle ultime 100 estrazioni?

Il grafico ... in genere si usa per evidenziare curve ed aspetti

difficilmente rappresentabili o difficilmente ricavabili visivamente in una tabella.

Per esempio per interpolare un numero tra due estremi

o estrapolare (trovare fuori da questi poli) per esempio il valore di un ritardo futuro.

Trovare il punto di incrocio di linee. La secante, evidenziare uno sfasamento,

Rappresentare una isteresi, una curva di rottura.

Punti di massima, di minima, di tangente, di flesso ...

O semplicemente per vedere se nei numeri è presente una parabola (Ascendente/Discendente),

una curva asintotica, una polinomiale, una esponenziale.

Se i numeri rappresentano, una retta, trovarne il modulo ecc. ecc.

Però mettere assieme molte linee in un grafico o averne una sola,

(che neppure esiste) crea più problemi che soluzioni.

Per esempio se anche tu cerchi i numeri galleggianti ... o qualcosa di simile,

che sono solo il prodotto scaturito dalla fantasia-commerciale del farsi pagare,

se è vero che un grafico li evidenzia

(se sono la rappresentazione di uno solo numero in una sola ruota)

trovarli in un ammasso di 90 linee intrecciate tra loro è impossibile all'occhio umano.

Dunque meglio non sovrapporre i loro dati graficamente.

Molto meglio usare gli script.

Cioè creare un robot-esploratore, capace di cercare e trovare cosa si vorrebbe trovare.

In sintesi se sai già quale è il numero e quale è la ruota è relativamente inutile creare un grafico.

Se non lo sai e lo cerchi tra tutti i numeri, poi non riuscirai a discriminare e scegliere la linea di tuo interesse.

Red*one · 28 Luglio 2021

joe ha scritto:
Il grafico ... in genere si usa per evidenziare curve ed aspetti

difficilmente rappresentabili o difficilmente ricavabili visivamente in una tabella.

Per esempio per interpolare un numero tra due estremi

o estrapolare (trovare fuori da questi poli) per esempio il valore di un ritardo futuro.

Trovare il punto di incrocio di linee. La secante, evidenziare uno sfasamento,

Rappresentare una isteresi, una curva di rottura.

Punti di massima, di minima, di tangente, di flesso ...

O semplicemente per vedere se nei numeri è presente una parabola (Ascendente/Discendente),

una curva asintotica, una polinomiale, una esponenziale.

Se i numeri rappresentano, una retta, trovarne il modulo ecc. ecc.

Però mettere assieme molte linee in un grafico o averne una sola,

(che neppure esiste) crea più problemi che soluzioni.

Per esempio se anche tu cerchi i numeri galleggianti ... o qualcosa di simile,

che sono solo il prodotto scaturito dalla fantasia-commerciale del farsi pagare,

se è vero che un grafico li evidenzia

(se sono la rappresentazione di uno solo numero in una sola ruota)

trovarli in un ammasso di 90 linee intrecciate tra loro è impossibile all'occhio umano.

Dunque meglio non sovrapporre i loro dati graficamente.

Molto meglio usare gli script.

Cioè creare un robot-esploratore, capace di cercare e trovare cosa si vorrebbe trovare.

In sintesi se sai già quale è il numero e quale è la ruota è relativamente inutile creare un grafico.

Se non lo sai e lo cerchi tra tutti i numeri, poi non riuscirai a discriminare e scegliere la linea di tuo interesse.

grazie infinite Joe per la tua splendida ed esauriente risposta .

joe · 28 Luglio 2021

E' tutto da controllare

BA 51 Ultimi Ritardi 7 4 9 15 5 4 6 3 15 15
FI 63 Ultimi Ritardi 10 2 6 9 13 15 1 4 3 3
GE 52 Ultimi Ritardi 4 7 12 8 7 17 4 7 12 8
MI 50 Ultimi Ritardi 5 6 3 7 15 16 11 2 11 16
NA 29 Ultimi Ritardi 7 1 12 9 2 3 1 7 2 16
NA 77 Ultimi Ritardi 7 1 10 3 11 3 1 5 10 4
TO 51 Ultimi Ritardi 13 5 16 8 13 7 4 15 15 11
TO 74 Ultimi Ritardi 6 1 5 14 8 8 7 15 2 4

Red*one · 28 Luglio 2021

interessanti

Zetrix · 28 Luglio 2021

buona sera Joe.. Red one

Joe oggi è stata una giornata schiattosa dal caldo e non ho visto ancora il tuo script con spaziometria lo farò domani
Le estrazioni in tutto devono essere 90 estr.
18 X 5
quindi 5 cicli di 18 estr.
la naz. mettila da parte perché è una ruota a se è non deve far parte del gioco a tutte

Zetrix · 29 Luglio 2021

Joe non si combina niente con lo script che ai fatto

mi sa che ci vuole il software lotto studio personal
che studia le masse numeriche e la statistica dei numeri
ma costa un po non e un software gratis..

lotto studio personal

Red*one · 29 Luglio 2021

Zetrix ha scritto:
Joe non si combina niente con lo script che ai fatto

mi sa che ci vuole il software lotto studio personal
che studia le masse numeriche e la statistica dei numeri
ma costa un po non e un software gratis..

lotto studio personal

provato mai lotto++ gold 2021 ?

Tabella statistica

Advanced Premium Member

Allegati

Super member

Advanced Premium Member

Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Banned

Advanced Member >PLATINUM PLUS<

Banned

Advanced Member >PLATINUM PLUS<

Banned

Advanced Premium Member

Advanced Premium Member

Banned