Script su Metodi Cabalistici, Ciclometrici & C.

salvo50 · Martedì alle 21:44

Ecco lo script
salvo errori o dimenticanze

Codice:

Option Explicit
Sub Main()
   Dim Es,Ini,Fin,Qua,R1,R2,P1,P2,P3,P4,P5
   Dim A,B,C,E1,E2,Casi,Caso
   Qua = InputBox("Quante estrazioni vuoi controllare? ","Controllo estrazioni",10)
   Ini = EstrazioneFin - Qua
   Fin = EstrazioneFin
   Scrivi " 2 Ruote, 3 Estratti Consecutivi, Oppure 3 estratti distanza 10, di cui 2 Isotopi",1,,4,,3,,1
   Scrivi "                    Chiesto da Everita C - Script Salvo50                        ",1,,4,,3,,1
   For Es = Ini To Fin
      Messaggio "elab. estr. del < " & DataEstrazione(Es) & " >"
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            For R2 = 1 To 10
               If R1 <> R2 Then
                  For P2 = 1 To 4
                     For P3 = P2 + 1 To 5
                        B = Estratto(Es,R2,P2)
                        C = Estratto(Es,R2,P3)
                        If P1 = P2 Or P1 = P3 Then
                           If(A + 1 = B And B + 1 = C) Or(A + 1 = C And C + 1 = B)_
                              Or(B + 1 = C And C + 1 = A) Or(B + 1 = A And A + 1 = C)_
                              Or(C + 1 = A And A + 1 = B) Or(C + 1 = B And B + 1 = A)_
                              Or(A + 10 = B And B + 10 = C) Or(A + 10 = C And C + 10 = B)_
                              Or(B + 10 = C And C + 10 = A) Or(B + 10 = A And A + 10 = C)_
                              Or(C + 10 = A And A + 10 = B) Or(C + 10 = B And B + 10 = A)Then
                              Casi = Casi + 1
                              Caso = Caso + 1
                              Scrivi String(90,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                              Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                              Scrivi
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                              For P4 = 1 To 5
                                 E1 = Estratto(Es,R1,P4)
                                 If E1 = A Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E1) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                              For P5 = 1 To 5
                                 E2 = Estratto(Es,R2,P5)
                                 If E2 = B Or E2 = C Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E2) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi
                           End If
                        End If
                     Next
                  Next
               End If
            Next
         Next
      Next
   Next
 
End Sub

Alien. · Martedì alle 22:48

È EVIDENZIA TRE NUMERI CONSECUTIVI E POI !! SI FANNO SCINTILLE ?

Ramco · Mercoledì alle 12:46

Ciao Salvo e tutti
..mi ha incuriosito il tuo script, a solo scopo didattico...
allego una versione diversa che agisce sulle distanze, che potrebbe ovviare a possibili errori, ed accorcia il codice di riga..
è solo uno scopo didattico per tenerci allenati, magari può servire...
PS: se è una cavolata, non tenetene conto..

Codice:

Option Explicit
Sub Main()
   Dim Es,Ini,Fin,Qua,R1,R2,P1,P2,P3,P4,P5
   Dim A,B,C,E1,E2,Casi,Caso,d1,d2,d3
   Qua = InputBox("Quante estrazioni vuoi controllare? ","Controllo estrazioni",10)
   Ini = EstrazioneFin - Qua
   Fin = EstrazioneFin
   Scrivi " 2 Ruote, 3 Estratti Consecutivi, Oppure 3 estratti distanza 10, di cui 2 Isotopi",1,,4,,3,,1
   Scrivi "                    Chiesto da Everita C - Script Salvo50                        ",1,,4,,3,,1
   For Es = Ini To Fin
      Messaggio "elab. estr. del < " & DataEstrazione(Es) & " >"
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            For R2 = 1 To 10
               If R1 <> R2 Then
                  For P2 = 1 To 4
                     For P3 = P2 + 1 To 5
                        B = Estratto(Es,R2,P2)
                        C = Estratto(Es,R2,P3)
                        If P1 = P2 Or P1 = P3 Then
                           'distanze
                           d1 = Distanza(A,B): d2 = Distanza(A,C): d3 = Distanza(B,C)
                           If(d1 = 1 And d2 = 2) Or(d1 = 2 And d2 = 1) Or(d1 = 1 And d2 = 1) Or(d1 = 10 And d2 = 20) Or(d1 = 20 And d2 = 10) Or(d1 = 10 And d2 = 10) Then
                              If(d1 = d2 And d3 =(d1*2)) Or(d1 = d3 And d2 =(d1*2)) Or(d2 = d3 And(d1 = d2*2)) Then
                                 Casi = Casi + 1
                                 Caso = Caso + 1
                                 Scrivi String(90,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                                 Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                                 Scrivi
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                                 For P4 = 1 To 5
                                    E1 = Estratto(Es,R1,P4)
                                    If E1 = A Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E1) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                                 For P5 = 1 To 5
                                    E2 = Estratto(Es,R2,P5)
                                    If E2 = B Or E2 = C Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E2) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi
                                 Scrivi
                              End If
                           End If
                        End If
                     Next
                  Next
               End If
            Next
         Next
      Next
   Next
End Sub

salvo50 · Mercoledì alle 16:18

Ciao a Tutti
Ciao Ramco
Ottimo script con il tuo modo di operare nelle distanze, meglio di come l'ho fatto io, quindi consiglio a chi interessa di fare riferimento alla tua versione dello script

filippo1963 · Mercoledì alle 19:44

Script interessante ho visto che si può ricavare l'estratto sulle Due Ruote Sommando i Tre Numeri Evidenziati con il 4° Numero isotopo al numero singolo di una delle due ruote sull'altra Ruota. Ad Esempio Estrazione n.10607 del 04.03.2025 MI 13 11 27 88 80
Estrazione n.10607 del 04.03.2025 VE 06 87 53 89 32 si sommano 11+88+87+89=5 da giocare su MI e Ve il 14.03.2025 esce a Milano in 5à il Numero 5

salvo50 · Mercoledì alle 23:18

Con la modifica suggerita da Filippo1963

Codice:

Option Explicit
Sub Main()
   Dim Es,Ini,Fin,Qua,R1,R2,P1,P2,P3,P4,P5,Som
   Dim A,B,C,D,E1,E2,Casi,Caso,d1,d2,d3,X,Clp
   Dim Amba(1),Ruo(2),Posta(1)
   Qua = InputBox("Quante estrazioni vuoi controllare? ","Controllo estrazioni",100)
   Clp = InputBox("Quante i colpi di gioco? ","Colpi d gioco",8)
   Ini = EstrazioneFin - Qua
   Fin = EstrazioneFin
   Posta(1) = 1
   Scrivi " 2 Ruote, 3 Estratti Consecutivi, Oppure 3 estratti distanza 10, di cui 2 Isotopi",1,,4,,3,,1
   Scrivi "    Chiesto da Everita C - Con modifica chiesta da Filippo1963 Script Salvo50    ",1,,4,,3,,1
   For Es = Ini To Fin
      Messaggio "elab. estr. del < " & DataEstrazione(Es) & " >"
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            For R2 = 1 To 10
               If R1 <> R2 Then
                  For P2 = 1 To 4
                     For P3 = P2 + 1 To 5
                        B = Estratto(Es,R2,P2)
                        C = Estratto(Es,R2,P3)
                        If P1 = P2 Or P1 = P3 Then
                           If P1 = P2 Then X = P3
                           If P1 = P3 Then X = P2
                           D = Estratto(Es,R1,X)
                           'distanze
                           d1 = Distanza(A,B): d2 = Distanza(A,C): d3 = Distanza(B,C)
                           If(d1 = 1 And d2 = 2) Or(d1 = 2 And d2 = 1) Or(d1 = 1 And d2 = 1) Or(d1 = 10 And d2 = 20) Or(d1 = 20 And d2 = 10) Or(d1 = 10 And d2 = 10) Then
                              If(d1 = d2 And d3 =(d1*2)) Or(d1 = d3 And d2 =(d1*2)) Or(d2 = d3 And(d1 = d2*2)) Then
                                 Som = Fuori90(A + B + C + D)
                                 Amba(1) = Som
                                 Casi = Casi + 1
                                 Caso = Caso + 1
                                 Scrivi String(90,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                                 Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                                 Scrivi
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                                 For P4 = 1 To 5
                                    E1 = Estratto(Es,R1,P4)
                                    If E1 = A Or E1 = D Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E1) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                                 For P5 = 1 To 5
                                    E2 = Estratto(Es,R2,P5)
                                    If E2 = B Or E2 = C Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E2) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi
                                 Scrivi
                                 Scrivi Space(32) & Format2(A) & " + " & Format2(B) & " + " & Format2(C) & " + " & Format2(D) & " = ",1,0
                                 Scrivi Format2(Som),1,,,2
                                 Scrivi
                                 Ruo(1) = R1 : Ruo(2) = R2
                                 ImpostaGiocata 1,Amba,Ruo,Posta,Clp,1
                                 Gioca Es
                              End If
                           End If
                        End If
                     Next
                  Next
               End If
            Next
         Next
      Next
   Next
scriviresoconto
End Sub

Con questo alla terza domanda col numero 1 la ricerca dell'ambata la fa nella prima ruota
col numero 2 nella seconda ruota

Codice:

Option Explicit
Sub Main()
   Dim Es,Ini,Fin,Qua,R1,R2,P1,P2,P3,P4,P5,Som
   Dim A,B,C,D,E1,E2,Casi,Caso,d1,d2,d3,X,Clp
   Dim Amba(1),Ruo(1),Posta(1),Ruota
   Qua = InputBox("Quante estrazioni vuoi controllare? ","Controllo estrazioni",100)
   Clp = InputBox("Quante i colpi di gioco? ","Colpi d gioco",8)
   Ruota = InputBox("Inserisci la Ruota di Ricerca, la prima Ruota col numero 1, la seconda col numero 2  ? ","Colpi d gioco",2)
   Ini = EstrazioneFin - Qua
   Fin = EstrazioneFin
   Posta(1) = 1
   Scrivi " 2 Ruote, 3 Estratti Consecutivi, Oppure 3 estratti distanza 10, di cui 2 Isotopi",1,,4,,3,,1
   Scrivi "    Chiesto da Everita C - Con modifica chiesta da Filippo1963 Script Salvo50    ",1,,4,,3,,1
   For Es = Ini To Fin
      Messaggio "elab. estr. del < " & DataEstrazione(Es) & " >"
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            For R2 = 1 To 10
               If R1 <> R2 Then
                  For P2 = 1 To 4
                     For P3 = P2 + 1 To 5
                        B = Estratto(Es,R2,P2)
                        C = Estratto(Es,R2,P3)
                        If P1 = P2 Or P1 = P3 Then
                           If P1 = P2 Then X = P3
                           If P1 = P3 Then X = P2
                           D = Estratto(Es,R1,X)
                           'distanze
                           d1 = Distanza(A,B): d2 = Distanza(A,C): d3 = Distanza(B,C)
                           If(d1 = 1 And d2 = 2) Or(d1 = 2 And d2 = 1) Or(d1 = 1 And d2 = 1) Or(d1 = 10 And d2 = 20) Or(d1 = 20 And d2 = 10) Or(d1 = 10 And d2 = 10) Then
                              If(d1 = d2 And d3 =(d1*2)) Or(d1 = d3 And d2 =(d1*2)) Or(d2 = d3 And(d1 = d2*2)) Then
                                 Som = Fuori90(A + B + C + D)
                                 Amba(1) = Som
                                 Casi = Casi + 1
                                 Caso = Caso + 1
                                 Scrivi String(90,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                                 Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                                 Scrivi
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                                 For P4 = 1 To 5
                                    E1 = Estratto(Es,R1,P4)
                                    If E1 = A Or E1 = D Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E1) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                                 For P5 = 1 To 5
                                    E2 = Estratto(Es,R2,P5)
                                    If E2 = B Or E2 = C Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E2) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi
                                 Scrivi
                                 Scrivi Space(32) & Format2(A) & " + " & Format2(B) & " + " & Format2(C) & " + " & Format2(D) & " = ",1,0
                                 Scrivi Format2(Som),1,,,2
                                 Scrivi
                                 If Ruota = 1 Then Ruo(1) = R1
                                 If Ruota = 2 Then Ruo(1) = R2
                                 ImpostaGiocata 1,Amba,Ruo,Posta,Clp,1
                                 Gioca Es
                              End If
                           End If
                        End If
                     Next
                  Next
               End If
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub

salvo50 · Giovedì alle 08:54

filippo1963 ha scritto:
Qualche bravo scripter, potrebbe fare questo semplice script che parte da coppie di ruote diametrali che presentano questa condizione nei 5 numeri estratti, nessun numeretto e nessun numero cadenza zero. i 5 estratti devono essere ridotti in figura e le 5 figure unite formando due numeri da 5 cifre, fare adesso la differenza aritmetica tra i due numeri da 5 cifre, il risultato ottenuto da questa operazione va ridotto con il fuori90, il numero ottenuto è il numero spia da ricercare nelle otto estrazioni precedenti sulle altre otto ruote(escludendo la ruota nazionale), se il numero spia viene rintracciato per ricavare l'estratto determinato sommare i due numeri isotopi presente nell'estrazione dove è stato trovato il numero spia sulle du coppie di ruote diametrali di partenza. Il numero ottenuto da questa somma si dovrà giocare nelle successive otto estrazioni a quella di partenza sia come semplice che come determinato sulla coppia di ruote diametrali iniziali la posizione determinata è quella dove è uscito nelle precedenti estrazioni il numero spia sua una delle altre otto ruote.

Ciao a Tutti

Quando ho detto che non riuscivo a farlo, la mia difficoltà era nella ricerca a ritroso di solo 8 ruote, perchè le ruote non erano sempre le stesse cambiavano in base a quali erano le 2 ruote di partenza, adesso mi è venuta un idea di come impostare lo script.

Quindi appena posso faccio lo script

EVERITA C · Giovedì alle 18:11

Buonasera Salvo al post. n' 884 se possibile aggiungere un'imput box dove inserire le due cinquine.

Grazie.

filippo1963 · Giovedì alle 19:40

salvo50 ha scritto:

Con la modifica suggerita da Filippo1963

Codice:

Option Explicit
Sub Main()
   Dim Es,Ini,Fin,Qua,R1,R2,P1,P2,P3,P4,P5,Som
   Dim A,B,C,D,E1,E2,Casi,Caso,d1,d2,d3,X,Clp
   Dim Amba(1),Ruo(2),Posta(1)
   Qua = InputBox("Quante estrazioni vuoi controllare? ","Controllo estrazioni",100)
   Clp = InputBox("Quante i colpi di gioco? ","Colpi d gioco",8)
   Ini = EstrazioneFin - Qua
   Fin = EstrazioneFin
   Posta(1) = 1
   Scrivi " 2 Ruote, 3 Estratti Consecutivi, Oppure 3 estratti distanza 10, di cui 2 Isotopi",1,,4,,3,,1
   Scrivi "    Chiesto da Everita C - Con modifica chiesta da Filippo1963 Script Salvo50    ",1,,4,,3,,1
   For Es = Ini To Fin
      Messaggio "elab. estr. del < " & DataEstrazione(Es) & " >"
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            For R2 = 1 To 10
               If R1 <> R2 Then
                  For P2 = 1 To 4
                     For P3 = P2 + 1 To 5
                        B = Estratto(Es,R2,P2)
                        C = Estratto(Es,R2,P3)
                        If P1 = P2 Or P1 = P3 Then
                           If P1 = P2 Then X = P3
                           If P1 = P3 Then X = P2
                           D = Estratto(Es,R1,X)
                           'distanze
                           d1 = Distanza(A,B): d2 = Distanza(A,C): d3 = Distanza(B,C)
                           If(d1 = 1 And d2 = 2) Or(d1 = 2 And d2 = 1) Or(d1 = 1 And d2 = 1) Or(d1 = 10 And d2 = 20) Or(d1 = 20 And d2 = 10) Or(d1 = 10 And d2 = 10) Then
                              If(d1 = d2 And d3 =(d1*2)) Or(d1 = d3 And d2 =(d1*2)) Or(d2 = d3 And(d1 = d2*2)) Then
                                 Som = Fuori90(A + B + C + D)
                                 Amba(1) = Som
                                 Casi = Casi + 1
                                 Caso = Caso + 1
                                 Scrivi String(90,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                                 Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                                 Scrivi
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                                 For P4 = 1 To 5
                                    E1 = Estratto(Es,R1,P4)
                                    If E1 = A Or E1 = D Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E1) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                                 For P5 = 1 To 5
                                    E2 = Estratto(Es,R2,P5)
                                    If E2 = B Or E2 = C Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E2) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi
                                 Scrivi
                                 Scrivi Space(32) & Format2(A) & " + " & Format2(B) & " + " & Format2(C) & " + " & Format2(D) & " = ",1,0
                                 Scrivi Format2(Som),1,,,2
                                 Scrivi
                                 Ruo(1) = R1 : Ruo(2) = R2
                                 ImpostaGiocata 1,Amba,Ruo,Posta,Clp,1
                                 Gioca Es
                              End If
                           End If
                        End If
                     Next
                  Next
               End If
            Next
         Next
      Next
   Next
End Sub

Sto provando lo script , ho visto che alla fine non c'è un riepilogo sulla percentuale di casi giocabili e del loro esito entro i colpi di gioco inseriti, inoltre sto notando che quando esce l'estratto esce quasi sempre nella ruota di calcolo dove ci sono i due numeri consecutivi. deduco che si può ridurre la giocata di estratto su una singola ruota

salvo50 · Giovedì alle 20:20

Ciao Everita, Filippo

Per Everita ti rifaccio lo stesso script, le cinquine le devi inserire come hai chiesto da INPUTBOX

Per Filippo per il resoconto hai ragione mi sono dimenticato di inserirlo, riprendi lo script adesso c'è, però non l'ho provato

filippo1963 · Giovedì alle 20:35

salvo50 ha scritto:
Ciao a Tutti

Quando ho detto che non riuscivo a farlo, la mia difficoltà era nella ricerca a ritroso di solo 8 ruote, perchè le ruote non erano sempre le stesse cambiavano in base a quali erano le 2 ruote di partenza, adesso mi è venuta un idea di come impostare lo script.

Quindi appena posso faccio lo script

Provato io con il resoconto su 100 estrazioni mi esce 80% di esiti positivi, volevo vedere se usando una solo ruota le percentuali si mantengono, il dispendio finanziario si dimezza

salvo50 · Giovedì alle 22:35

filippo1963 ha scritto:
Provato io con il resoconto su 100 estrazioni mi esce 80% di esiti positivi, volevo vedere se usando una solo ruota le percentuali si mantengono, il dispendio finanziario si dimezza

Ho messo un altro script nel post 906, dove puoi decidere in quale ruota fare la ricerca del pronostico

salvo50 · Ieri alle 09:50

Ciao a Tutti
Per Everita
Al post 884, ho aggiunto un altro script che puoi inserire le due cinquine da tastiera

Cerca

Cerca

Script su Metodi Cabalistici, Ciclometrici & C.

salvo50

Advanced Member >PLATINUM PLUS<

Alien.

Advanced Premium Member

Ramco

Member

salvo50

Advanced Member >PLATINUM PLUS<

filippo1963

Junior Member

salvo50

Advanced Member >PLATINUM PLUS<

salvo50

Advanced Member >PLATINUM PLUS<

EVERITA C

Senior Member

filippo1963

Junior Member

salvo50

Advanced Member >PLATINUM PLUS<

filippo1963

Junior Member

salvo50

Advanced Member >PLATINUM PLUS<

salvo50

Advanced Member >PLATINUM PLUS<

Ultima estrazione Lotto

Ultimi Messaggi