Script su Metodi Cabalistici, Ciclometrici & C.

filippo1963 · 23 Ottobre 2025

Buonasera a Tutti gli Utenti del Forum, in modo particolare agli Scripter che ci aiutano a trasformare le nostre idee di metodi lotto in esempi pratici per testarli. Per questo a chi può farlo mi serve uno script che partendo dagli estratti della Ruota Nazionale, mi ricambi un estratto determinato su un altra delle rimanenti dieci ruote, Spiego in poche parole cosa dovrebbe fare lo script A) Sommare i 5 estratti della nazionale. B) ridurre in figura i 5 estratti della nazionale , unire le cinque figure formando un numero a 5 cifre. C) Sottrarre da questo numero a cinque cifre il numero ottenuto dalla somma dei 5 estratti dalla nazionale, ridurre il numero ottenuto da questa sottrazione con il Fuori90, chiamiamo per convenzione il numero ottenuto il ricercato. D) cercare il Numero ricercato sulle altre 10 ruote partendo al 1° estratto di bari fino al 5° estratto di Venezia a partire dall'estrazione di calcolo per un massimo di altre quattro estrazioni successive. E) Se il numero ricercato viene trovato nei 50 estratti come prima occorrenza segnarsi posizione e ruota dove è stato trovato . verificare il suo isotopo sulla ruota nazionale. F) Se il Numero ricercato è minore del suo isotopo sulla nazionale i due numeri vanno sommati con eventuale fuori90, Se il Numero Ricercato è maggiore del suo isotopo sulla nazionale va calcolata la differenza aritmetica tra i due Numeri, al numero ottenuto con la somma/differenza va aggiunto un numero da 1 a 50 che si calcola in base su quale ruota ed in che posizione è stato trovato il numero ricercato il numero ottenuto è il futuro estratto sulla ruota dove si è trovato il numero ricercato, le posizioni di gioco come estratto determinato sono due è vengono calcolate nel seguente modo. Se il numero ricercato è uscito in 1à estratto determinato va giocato in 2à e 3à , numero ricercato in 2à determinato da giocare in 3à e 4à, numero ricercato in 3à determinato da giocare in 4à e 5a, numero ricercato in 4à determinato da giocare in 3à e 5à, numero ricercato in 5à determinato da giocare in 3à e 4à. Faccio un esempio reale Estrazione del 02-09-2025 Ruota nazionale i cinque estratti sono [49-14-32-19-7] che sommati sono 121, i cinque estratti ridotti in figura formano il numero a cinque cifre 45517 sottraendo da questo numero 121 otteniamo[45517-121=45396] con il fuori90 otteniamo 36 il numero Ricercato, nella stessa estrazione il 36 è uscito in 1à posizione nella prima delle dieci ruote (Bari) in isotopia al 36 sulla nazionale abbiamo il 49 , 36 minore di 49 si fa la somma 36+49=85 a questo numero va aggiunto 1 [36 numero ricercato uscito in 1à posizione sulla 1à ruota] Estratto 85+1=86 da giocare come determinato su Bari in 2à e 3à posizione. il 19-09-2025 su Bari esce 86 in 4à posizione.

salvo50 · 25 Ottobre 2025

Ciao a Tutti
Bubù, Cicalotto, ScarfaceTony
Grazie

Codice:

Option Explicit
Sub Main()
   Dim Es1,Es2,Ini,Fin,R1,R2,P1,P2
   Dim B,C,Casi,Caso,Salvo50,Clp,X,Z,Ok
   Dim Som_A,Gi_A5,Sp,xSp,xNum,Num
   Dim A(5),Fi_A(5),Amba(1),Ruo(1)
   Dim Post1(8),Post2(9),Post3(10),Post4(10),Post5(9)
   Post1(7) = 1
   Post1(8) = 1
   Post2(8) = 1
   Post2(9) = 1
   Post3(9) = 1
   Post3(10) = 1
   Post4(8) = 1
   Post4(10) = 1
   Post5(8) = 1
   Post5(9) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10704)
   Clp = InputBox("Per quanti colpi vuoi giocare l'ambata?",,14)
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi Space(10) & " Metodo Numero Ricercato di Filippo1963 - Script Salvo50" & Space(10),1,,4,,3,,1
   R1 = NZ_
   For Es1 = Ini To Fin
      AvanzamentoElab Ini,Fin,Es1
      Caso = 0
      Som_A = SommaEstratti(Es1,R1)
      For P1 = 1 To 5
         A(P1) = Estratto(Es1,R1,P1)
         Fi_A(P1) = Figura(A(P1))
      Next
      Gi_A5 = Fi_A(1) & Fi_A(2) & Fi_A(3) & Fi_A(4) & Fi_A(5)
      xSp = Gi_A5 - Som_A : Sp = Fuori90(xSp)
      '
      For Es2 = Es1 To Es1 + 4
         For R2 = 1 To 10
            For P2 = 1 To 5
               B = Estratto(Es2,R2,P2)
               Call Ricercato(R2,Z,P2)
               If B = Sp Then Exit For
            Next
            If B = Sp Then Exit For
         Next
         If B = Sp Then Exit For
      Next
      Ok = 0
      If B = Sp Then
         C = Estratto(Es2,R1,P2)
         If B < C Then xNum = Fuori90(B + C) : Ok = 1
         If B > C Then xNum = B - C : Ok = 2
         Num = Fuori90(xNum + Z)
         Amba(1) = Num
         Caso = Caso + 1
         Casi = Casi + 1
         Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
         Scrivi String(80,"o") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
         Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
         Scrivi "  " & SiglaRuota(R1) & "  " & StringaEstratti(Es1,R1),1,0
         Scrivi Space(3) & "Figure " & Gi_A5,1,0,,2
         Scrivi Space(3) & "Somma Estratti = " & Som_A,1,,,1
         Scrivi
         Scrivi Space(57) & Gi_A5 & " - " & FormattaStringa(Som_A,"000") & " = " & xSp & " Fuori90 = " & Sp,1
         Scrivi
         ReDim MatriceCaselleDaEvid(2,1)
         MatriceCaselleDaEvid(1,0) = R2
         MatriceCaselleDaEvid(1,1) = P2
         MatriceCaselleDaEvid(2,0) = R1
         MatriceCaselleDaEvid(2,1) = P2
         Call DisegnaEstrazione(Es2,MatriceCaselleDaEvid)
         '   Scrivi
         If Ok = 1 Then Scrivi Space(57) & Format2(B) & " + " & Format2(C) & " = " & Format2(xNum),1
         If Ok = 2 Then Scrivi Space(57) & Format2(B) & " - " & Format2(C) & " = " & Format2(xNum),1
         Scrivi Space(57) & Format2(xNum) & " + " & Format2(Z) & " = " & Format2(Num) & " Ambata",1
         Scrivi
         Ruo(1) = R2
         If P2 = 1 Then ImpostaGiocata 1,Amba,Ruo,Post1,Clp
         If P2 = 2 Then ImpostaGiocata 1,Amba,Ruo,Post2,Clp
         If P2 = 3 Then ImpostaGiocata 1,Amba,Ruo,Post3,Clp
         If P2 = 4 Then ImpostaGiocata 1,Amba,Ruo,Post4,Clp
         If P2 = 5 Then ImpostaGiocata 1,Amba,Ruo,Post5,Clp
         Gioca Es2
      End If
      '      Next
      '  Next
      If ScriptInterrotto Then Exit For
   Next
   ScriviResoconto
End Sub
Function Ricercato(R2,Z,P2)
   If R2 = BA_ Then Z = P2
   If R2 = CA_ Then Z = P2 + 5
   If R2 = FI_ Then Z = P2 + 10
   If R2 = GE_ Then Z = P2 + 15
   If R2 = MI_ Then Z = P2 + 20
   If R2 = NA_ Then Z = P2 + 25
   If R2 = PA_ Then Z = P2 + 30
   If R2 = RO_ Then Z = P2 + 35
   If R2 = TO_ Then Z = P2 + 40
   If R2 = VE_ Then Z = P2 + 45
End Function

filippo1963 · 25 Ottobre 2025

salvo50 ha scritto:

Ciao a Tutti
Bubù, Cicalotto, ScarfaceTony
Grazie

Codice:

Option Explicit
Sub Main()
   Dim Es1,Es2,Ini,Fin,R1,R2,P1,P2
   Dim B,C,Casi,Caso,Salvo50,Clp,X,Z,Ok
   Dim Som_A,Gi_A5,Sp,xSp,xNum,Num
   Dim A(5),Fi_A(5),Amba(1),Ruo(1)
   Dim Post1(8),Post2(9),Post3(10),Post4(10),Post5(9)
   Post1(7) = 1
   Post1(8) = 1
   Post2(8) = 1
   Post2(9) = 1
   Post3(9) = 1
   Post3(10) = 1
   Post4(8) = 1
   Post4(10) = 1
   Post5(8) = 1
   Post5(9) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10704)
   Clp = InputBox("Per quanti colpi vuoi giocare l'ambata?",,14)
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi Space(10) & " Metodo Numero Ricercato di Filippo1963 - Script Salvo50" & Space(10),1,,4,,3,,1
   R1 = NZ_
   For Es1 = Ini To Fin
      AvanzamentoElab Ini,Fin,Es1
      Caso = 0
      Som_A = SommaEstratti(Es1,R1)
      For P1 = 1 To 5
         A(P1) = Estratto(Es1,R1,P1)
         Fi_A(P1) = Figura(A(P1))
      Next
      Gi_A5 = Fi_A(1) & Fi_A(2) & Fi_A(3) & Fi_A(4) & Fi_A(5)
      xSp = Gi_A5 - Som_A : Sp = Fuori90(xSp)
      '
      For Es2 = Es1 To Es1 + 4
         For R2 = 1 To 10
            For P2 = 1 To 5
               B = Estratto(Es2,R2,P2)
               Call Ricercato(R2,Z,P2)
               If B = Sp Then Exit For
            Next
            If B = Sp Then Exit For
         Next
         If B = Sp Then Exit For
      Next
      Ok = 0
      If B = Sp Then
         C = Estratto(Es2,R1,P2)
         If B < C Then xNum = Fuori90(B + C) : Ok = 1
         If B > C Then xNum = B - C : Ok = 2
         Num = Fuori90(xNum + Z)
         Amba(1) = Num
         Caso = Caso + 1
         Casi = Casi + 1
         Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
         Scrivi String(80,"o") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
         Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
         Scrivi "  " & SiglaRuota(R1) & "  " & StringaEstratti(Es1,R1),1,0
         Scrivi Space(3) & "Figure " & Gi_A5,1,0,,2
         Scrivi Space(3) & "Somma Estratti = " & Som_A,1,,,1
         Scrivi
         Scrivi Space(57) & Gi_A5 & " - " & FormattaStringa(Som_A,"000") & " = " & xSp & " Fuori90 = " & Sp,1
         Scrivi
         ReDim MatriceCaselleDaEvid(2,1)
         MatriceCaselleDaEvid(1,0) = R2
         MatriceCaselleDaEvid(1,1) = P2
         MatriceCaselleDaEvid(2,0) = R1
         MatriceCaselleDaEvid(2,1) = P2
         Call DisegnaEstrazione(Es2,MatriceCaselleDaEvid)
         '   Scrivi
         If Ok = 1 Then Scrivi Space(57) & Format2(B) & " + " & Format2(C) & " = " & Format2(xNum),1
         If Ok = 2 Then Scrivi Space(57) & Format2(B) & " - " & Format2(C) & " = " & Format2(xNum),1
         Scrivi Space(57) & Format2(xNum) & " + " & Format2(Z) & " = " & Format2(Num) & " Ambata",1
         Scrivi
         Ruo(1) = R2
         If P2 = 1 Then ImpostaGiocata 1,Amba,Ruo,Post1,Clp
         If P2 = 2 Then ImpostaGiocata 1,Amba,Ruo,Post2,Clp
         If P2 = 3 Then ImpostaGiocata 1,Amba,Ruo,Post3,Clp
         If P2 = 4 Then ImpostaGiocata 1,Amba,Ruo,Post4,Clp
         If P2 = 5 Then ImpostaGiocata 1,Amba,Ruo,Post5,Clp
         Gioca Es2
      End If
      '      Next
      '  Next
      If ScriptInterrotto Then Exit For
   Next
   ScriviResoconto
End Sub
Function Ricercato(R2,Z,P2)
   If R2 = BA_ Then Z = P2
   If R2 = CA_ Then Z = P2 + 5
   If R2 = FI_ Then Z = P2 + 10
   If R2 = GE_ Then Z = P2 + 15
   If R2 = MI_ Then Z = P2 + 20
   If R2 = NA_ Then Z = P2 + 25
   If R2 = PA_ Then Z = P2 + 30
   If R2 = RO_ Then Z = P2 + 35
   If R2 = TO_ Then Z = P2 + 40
   If R2 = VE_ Then Z = P2 + 45
End Function

Grazie Salvo50, lo testo Subito

fillott0 · 25 Ottobre 2025

EVERITA C · 1 Dicembre 2025

Option Explicit
Sub Main
Dim X,Y,Z,K,Y2,Z3,Som
Scrivi Space(1) & " Chiesto da EVERITAC - Somme Terne Dispari sommare il primo numero ",1,,4,,3,,1
Scrivi Space(1) & " con il doppio del secondo PIù il triplo del terzo - Script Salvo50 ",1,,4,,3,,1
For X = 1 To 90
Messaggio X
For Y = 1 To 90
For Z = 1 To 90
If X <> Y And X <> Z And Y <> Z Then
Y2 = 0 : Z3 = 0
Y2 = Fuori90(Y * 2)
Z3 = Fuori90(Z * 3)
Som = Fuori90(X + Y2 + Z3)
If dispari(Som) Then
K = K + 1
Scrivi FormattaStringa(K,"000000") & Space(4) & Format2(X) & " " & Format2(Y) & " " & Format2(Z),1,0
Scrivi Space(4) & Format2(X) & " + " & Format2(Y2) & " + " & Format2(Z3) & " = " & Format2(Som),1
End If
End If
Next
Next
If ScriptInterrotto Then Exit Sub
Next
Scrivi
Scrivi " Tempo Trascorso " & TempoTrascorso
End Sub

EVERITA C · 1 Dicembre 2025

Option Explicit
Sub Main
Dim X,Y,Z,K,Y2,Z3,Som
Scrivi Space(1) & " Chiesto da EVERITAC - Somme Terne Pari sommare il primo numero ",1,,4,,3,,1
Scrivi Space(1) & " con il doppio del secondo PIù il triplo del terzo - Script Salvo50 ",1,,4,,3,,1
For X = 1 To 90
Messaggio X
For Y = 1 To 90
For Z = 1 To 90
If X <> Y And X <> Z And Y <> Z Then
Y2 = 0 : Z3 = 0
Y2 = Fuori90(Y * 2)
Z3 = Fuori90(Z * 3)
Som = Fuori90(X + Y2 + Z3)
If pari(Som) Then
K = K + 1
Scrivi FormattaStringa(K,"000000") & Space(4) & Format2(X) & " " & Format2(Y) & " " & Format2(Z),1,0
Scrivi Space(4) & Format2(X) & " + " & Format2(Y2) & " + " & Format2(Z3) & " = " & Format2(Som),1
End If
End If
Next
Next
If ScriptInterrotto Then Exit Sub
Next
Scrivi
Scrivi " Tempo Trascorso " & TempoTrascorso
End Sub

EVERITA C · 1 Dicembre 2025

Buonasera Salvo questi due script li hai fatti tu e' possibile modificarli con le somme in ordine cronologico?

Grazie infinite.

salvo50 · Ieri alle 06:00

Ciao a Tutti
Ciao everita
Non riesco a capire cosa intendi per ordine cronologico
Fai un esempio

capthegamer · Oggi alle 09:33

Buongiorno Salvo dalla somma 1 ala somma 90 in ordine cronologico:

Somma 1 , somma 2 , somma 3 ....... e via discorrendo.

Oppure separando la somma pari da quella dispari.

Con lo stesso ordine cronologico.

capthegamer · Oggi alle 09:35

Sto rispondendo con un'altro account.

Ho avuto problemi con il PC e lentamente sto riprendendo.

LoneWolf · 59 minuti fa

salvo50 ha scritto:

Ciao a Tutti
Bubù, Cicalotto, ScarfaceTony
Grazie

Codice:

Option Explicit
Sub Main()
   Dim Es1,Es2,Ini,Fin,R1,R2,P1,P2
   Dim B,C,Casi,Caso,Salvo50,Clp,X,Z,Ok
   Dim Som_A,Gi_A5,Sp,xSp,xNum,Num
   Dim A(5),Fi_A(5),Amba(1),Ruo(1)
   Dim Post1(8),Post2(9),Post3(10),Post4(10),Post5(9)
   Post1(7) = 1
   Post1(8) = 1
   Post2(8) = 1
   Post2(9) = 1
   Post3(9) = 1
   Post3(10) = 1
   Post4(8) = 1
   Post4(10) = 1
   Post5(8) = 1
   Post5(9) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10704)
   Clp = InputBox("Per quanti colpi vuoi giocare l'ambata?",,14)
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi Space(10) & " Metodo Numero Ricercato di Filippo1963 - Script Salvo50" & Space(10),1,,4,,3,,1
   R1 = NZ_
   For Es1 = Ini To Fin
      AvanzamentoElab Ini,Fin,Es1
      Caso = 0
      Som_A = SommaEstratti(Es1,R1)
      For P1 = 1 To 5
         A(P1) = Estratto(Es1,R1,P1)
         Fi_A(P1) = Figura(A(P1))
      Next
      Gi_A5 = Fi_A(1) & Fi_A(2) & Fi_A(3) & Fi_A(4) & Fi_A(5)
      xSp = Gi_A5 - Som_A : Sp = Fuori90(xSp)
      '
      For Es2 = Es1 To Es1 + 4
         For R2 = 1 To 10
            For P2 = 1 To 5
               B = Estratto(Es2,R2,P2)
               Call Ricercato(R2,Z,P2)
               If B = Sp Then Exit For
            Next
            If B = Sp Then Exit For
         Next
         If B = Sp Then Exit For
      Next
      Ok = 0
      If B = Sp Then
         C = Estratto(Es2,R1,P2)
         If B < C Then xNum = Fuori90(B + C) : Ok = 1
         If B > C Then xNum = B - C : Ok = 2
         Num = Fuori90(xNum + Z)
         Amba(1) = Num
         Caso = Caso + 1
         Casi = Casi + 1
         Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
         Scrivi String(80,"o") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
         Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
         Scrivi "  " & SiglaRuota(R1) & "  " & StringaEstratti(Es1,R1),1,0
         Scrivi Space(3) & "Figure " & Gi_A5,1,0,,2
         Scrivi Space(3) & "Somma Estratti = " & Som_A,1,,,1
         Scrivi
         Scrivi Space(57) & Gi_A5 & " - " & FormattaStringa(Som_A,"000") & " = " & xSp & " Fuori90 = " & Sp,1
         Scrivi
         ReDim MatriceCaselleDaEvid(2,1)
         MatriceCaselleDaEvid(1,0) = R2
         MatriceCaselleDaEvid(1,1) = P2
         MatriceCaselleDaEvid(2,0) = R1
         MatriceCaselleDaEvid(2,1) = P2
         Call DisegnaEstrazione(Es2,MatriceCaselleDaEvid)
         '   Scrivi
         If Ok = 1 Then Scrivi Space(57) & Format2(B) & " + " & Format2(C) & " = " & Format2(xNum),1
         If Ok = 2 Then Scrivi Space(57) & Format2(B) & " - " & Format2(C) & " = " & Format2(xNum),1
         Scrivi Space(57) & Format2(xNum) & " + " & Format2(Z) & " = " & Format2(Num) & " Ambata",1
         Scrivi
         Ruo(1) = R2
         If P2 = 1 Then ImpostaGiocata 1,Amba,Ruo,Post1,Clp
         If P2 = 2 Then ImpostaGiocata 1,Amba,Ruo,Post2,Clp
         If P2 = 3 Then ImpostaGiocata 1,Amba,Ruo,Post3,Clp
         If P2 = 4 Then ImpostaGiocata 1,Amba,Ruo,Post4,Clp
         If P2 = 5 Then ImpostaGiocata 1,Amba,Ruo,Post5,Clp
         Gioca Es2
      End If
      '      Next
      '  Next
      If ScriptInterrotto Then Exit For
   Next
   ScriviResoconto
End Sub
Function Ricercato(R2,Z,P2)
   If R2 = BA_ Then Z = P2
   If R2 = CA_ Then Z = P2 + 5
   If R2 = FI_ Then Z = P2 + 10
   If R2 = GE_ Then Z = P2 + 15
   If R2 = MI_ Then Z = P2 + 20
   If R2 = NA_ Then Z = P2 + 25
   If R2 = PA_ Then Z = P2 + 30
   If R2 = RO_ Then Z = P2 + 35
   If R2 = TO_ Then Z = P2 + 40
   If R2 = VE_ Then Z = P2 + 45
End Function

Ringrazio Salvo per lo script; Potevo chiedere guardando questo OutPut: Ma gli estratti Determinati non vengono Conteggiati ?
In corso per altre 14 estrazioni
+----------------------------------------+
| Prima Giocata : 10746 |
| Ultima Giocata : 10765 |
| Range : 20 |
| Casi giocab perc. : 60% |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| RESOCONTO | | DISTRIBUZIONE ESITI | | DISTRIBUZIONE ESITI PERCENTUALI | | DISTRIBUZIONE CASI |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| Casi esaminati : 12 | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT | Q | |
| Casi vincenti : 6 | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Percentuale pos. : 50 % | | BA | | | | | | | BA | | | | | | | BA | 3| |
| Pronostici totali : 20 | | CA | | | | | | | CA | | | | | | | CA | 2| |
| Pronostici vinc. : 9 | | FI | | | | | | | FI | | | | | | | FI | 6| |
| Percentuale pos. : 45 % | | GE | | | | | | | GE | | | | | | | GE | 2| |
| Giocate in corso : 13 | | MI | | | | | | | MI | | | | | | | MI | 2| |
| Giocate terminate : 7 | | NA | | | | | | | NA | | | | | | | NA | 1| |
| Bollette giocate : 191 | | PA | | | | | | | PA | | | | | | | PA | 1| |
| Bollette vincenti : 10 | | RO | | | | | | | RO | | | | | | | RO | 2| |
| Attesa media : 6 | | TO | | | | | | | TO | | | | | | | TO | 1| |
| Spesa : 382,00 € | | VE | | | | | | | VE | | | | | | | VE | | |
| Vincita : 517,00 € | | NZ | | | | | | | NZ | | | | | | | NZ | | |
| Guadagno : 135,00 € | | TT | | | | | | | TT | | | | | | | TT | | |
| Perc. Rendimento : 35,34 % | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Mass. Esposizione : 66,00 € |
| Estratto su ruota : 10 |
| |
+----------------------------------------+

... nella colonna estratti singoli potrebbero essere aggiunti con la Posta anche per Estratto Semplice ;
aggiungendo:
Post1(1) = 1
Post2(1) = 1
Post3(1) = 1
Post4(1) = 1
Post5(1) = 1
,,, Cordiali Saluti

Grazie

Cerca

Cerca

Script su Metodi Cabalistici, Ciclometrici & C.

filippo1963

Member

salvo50

Advanced Member >PLATINUM PLUS<

filippo1963

Member

fillott0

Senior Member

EVERITA C

Senior Member

EVERITA C

Senior Member

EVERITA C

Senior Member

salvo50

Advanced Member >PLATINUM PLUS<

capthegamer

Junior Member

capthegamer

Junior Member

LoneWolf

Advanced Member >PLATINUM<

Ultima estrazione Lotto

Ultimi Messaggi