CERCASI CON URGENZA TOON

Alien. · Giovedì alle 19:54

CIAO sto usando i tuoi script prima tutto ok adesso mi da errore di sintassi come mai ?

> < & Format2(e),1

grazie.

Pandit · Venerdì alle 00:54

Io li ho quasi tutti, dimmi quale...
e vedo se scopro il problema...

salvo50 · Venerdì alle 07:53

Ciao a Tutti.

Sembrerebbe che devi eliminare quello spazio che c'è tra i due > <
cioè dovresti farli così >< però non ricordo se c'è un'istruzione
di questo genere, perché per indicare diverso è così <>

Alien. · Venerdì alle 11:53

Ciao salvo ho provato ma non è quello ,
Ciao Pandit

🤣 grazie è questo ne ho 3/4 script tutti con lo stesso errore ma mi ripeto l'ho sviluppato una volta ed l'ha fatto perfettamente 2 giorni fa l'ho ripreso ma mi da errore eppure non ho fatto nulla.

ColoreTesto 2
Scrivi String(37,32) & "Da un'idea di - adeleadele - ",1
Scrivi String(45,32) & "List. by Toon",1
ColoreTesto 0
Sub Main()
Dim n(10),ruote(12),poste(5),posta(2),n1(2)
w = InputBox("Quanti colpi di gioco per l'Ambata?",,10)
x = InputBox("Quanti colpi di gioco per la lunghetta?",,14)
y = InputBox("Quante estrazioni di ricerca?",,500)
posta(1) = 1
poste(2) = 1
poste(3) = 1
ini = EstrazioneFin - y
fin = EstrazioneFin
For es = ini To fin
Messaggio es
Call AvanzamentoElab(ini,fin,es)
'If IsUltimaDelMese(es) Then 'Togliere l'apostrofo per l'ultima del mese
If IndiceMensile(es) = 1 Then 'Togliere l'apostrofo per la prima del mese
r1 = 1
r2 = 2
a = Estratto(es,r1,1)
b = Estratto(es,r2,3)
If b > 5 Then
b = b - 5
End If
c = Estratto(es,r2,4)
If Cadenza(c) = 0 Then
c = c - 5
End If
e = Fuori90(a + b)
f = Fuori90(a + c)
g = Differenza(Decina(a),Cadenza(a))
h = Figura(Estratto(es,r1,3))
i = Fuori90(g & h)
ok = 0
ColoreTesto 1
casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
> < & Format2(e),1.................................................................................................................errore di sintassi
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
> < & Format2(f),1.....................................................................................................................errore di sintassi

Scrivi

forse perchè ho eliminato ' rimessa ma nulla da fare.................

Delphi · Venerdì alle 13:16

Bisogna chiudere la condizione For es = ini To fin con Next

Poi > < & Format2(e),1 o lo elimini o lo chiudi tra gli apici "> < " & Format2(e),1

Osyman · Venerdì alle 13:17

Option Explicit

Sub Main()
Dim w, x, y, poste(5), posta(2), ini, fin, es, r1, r2, a, b, c, e, f, g, h, i, ok, casi

w = InputBox("Quanti colpi di gioco per l'Ambata?", , 10)
x = InputBox("Quanti colpi di gioco per la lunghetta?", , 14)
y = InputBox("Quante estrazioni di ricerca?", , 500)

posta(1) = 1
poste(2) = 1
poste(3) = 1

ini = EstrazioneFin - y
fin = EstrazioneFin

For es = ini To fin
Messaggio es
Call AvanzamentoElab(ini, fin, es)

If IndiceMensile(es) = 1 Then
r1 = 1
r2 = 2
a = Estratto(es, r1, 1)
b = Estratto(es, r2, 3)

If b > 5 Then
b = b - 5
End If

c = Estratto(es, r2, 4)

If Cadenza(c) = 0 Then
c = c - 5
End If

e = Fuori90(a + b)
f = Fuori90(a + c)
g = Differenza(Decina(a), Cadenza(a))
h = Figura(Estratto(es, r1, 3))
i = Fuori90(g & h)
ok = 0

ColoreTesto 1
casi = casi + 1

Scrivi String(75, "=") & " caso n° " & (casi), 1
Scrivi DataEstrazione(es, 1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es, r1) & " > < " & Format2(e), 1
Scrivi DataEstrazione(es, 1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es, r2) & " > < " & Format2(f), 1
End If
Next

Scrivi ""
End Sub

salvo50 · Venerdì alle 14:08

salvo50 ha scritto:
Ciao a Tutti.

Sembrerebbe che devi eliminare quello spazio che c'è tra i due > <
cioè dovresti farli così >< però non ricordo se c'è un'istruzione
di questo genere, perché per indicare diverso è così <>

Ho scritto una cavolata

Codicebinario · Venerdì alle 15:25

Osyman ha scritto:
Option Explicit

Sub Main()
Dim w, x, y, poste(5), posta(2), ini, fin, es, r1, r2, a, b, c, e, f, g, h, i, ok, casi

w = InputBox("Quanti colpi di gioco per l'Ambata?", , 10)
x = InputBox("Quanti colpi di gioco per la lunghetta?", , 14)
y = InputBox("Quante estrazioni di ricerca?", , 500)

posta(1) = 1
poste(2) = 1
poste(3) = 1

ini = EstrazioneFin - y
fin = EstrazioneFin

For es = ini To fin
Messaggio es
Call AvanzamentoElab(ini, fin, es)

If IndiceMensile(es) = 1 Then
r1 = 1
r2 = 2
a = Estratto(es, r1, 1)
b = Estratto(es, r2, 3)

If b > 5 Then
b = b - 5
End If

c = Estratto(es, r2, 4)

If Cadenza(c) = 0 Then
c = c - 5
End If

e = Fuori90(a + b)
f = Fuori90(a + c)
g = Differenza(Decina(a), Cadenza(a))
h = Figura(Estratto(es, r1, 3))
i = Fuori90(g & h)
ok = 0

ColoreTesto 1
casi = casi + 1

Scrivi String(75, "=") & " caso n° " & (casi), 1
Scrivi DataEstrazione(es, 1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es, r1) & " > < " & Format2(e), 1
Scrivi DataEstrazione(es, 1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es, r2) & " > < " & Format2(f), 1
End If
Next

Scrivi ""
End Sub

UEHHHHH ! Ciao .....ma sei tu? TU sai che sono un attento osservatore...e il tuo modo di scrivere mi ricorda tanto un "amico",persona a modo e con cervello....dimmi solo se sei tu....ricorda...se dovesse succedere che hai bisogno davvero...fisicamente.....puoi sempre contare su di me....e tu sai che non scherzo su queste cose.....rispondi solo si o no ,io sapro' ...non faro' il tuo nome o nick...e sei hai bisogno davvero,rivolgiti a Giuseppa con la quale sono in contatto ...chiedi di avere la mail mia....

Alien. · Venerdì alle 16:18

Grazie

Delphi ma non so molto trafficare con lo script

Osymen ottimo script per ambate ma non è quello che avevo chiesto ma è questo ::::

ColoreTesto 2

Scrivi String(37,32) & "Da un'idea di - adeleadele - ",1

Scrivi String(45,32) & "List. by Toon",1

ColoreTesto 0

Sub Main()

Dim n(10),ruote(12),poste(5),posta(2),n1(2)

w = InputBox("Quanti colpi di gioco per l'Ambata?",,10)

x = InputBox("Quanti colpi di gioco per la lunghetta?",,14)

y = InputBox("Quante estrazioni di ricerca?",,500)

posta(1) = 1

poste(2) = 1

poste(3) = 1

ini = EstrazioneFin - y

fin = EstrazioneFin

For es = ini To fin

Messaggio es

Call AvanzamentoElab(ini,fin,es)

'If IsUltimaDelMese(es) Then 'Togliere l'apostrofo per l'ultima del mese

If IndiceMensile(es) = 1 Then 'Togliere l'apostrofo per la prima del mese

r1 = 1

r2 = 2

a = Estratto(es,r1,1)

b = Estratto(es,r2,3)

If b > 5 Then

b = b - 5

End If

c = Estratto(es,r2,4)

If Cadenza(c) = 0 Then

c = c - 5

End If

e = Fuori90(a + b)

f = Fuori90(a + c)

g = Differenza(Decina(a),Cadenza(a))

h = Figura(Estratto(es,r1,3))

i = Fuori90(g & h)

ok = 0

ColoreTesto 1

casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1

Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _

> < & Format2(e),1

Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _

> < & Format2(f),1

Scrivi

ColoreTesto 0

ruote(1) = r1

ruote(2) = r2

'ruote(3) = 11 'Togliere l'apostrofo per la giocata su tutte

k = x

col = w

co = 0

n1(1) = e

n1(2) = Vert(e)

'...

n(1) = e

n(2) = Vert(e)

n(3) = f

n(4) = Vert(f)

n(5) = i

n(6) = Vert(i)

ImpostaGiocata 1,n1,ruote,posta,col

ImpostaGiocata 2,n,ruote,poste,k

Gioca es,1

End If 'Togliere l'apostrofo per la prima o ultima del mese

End Sub

Osyman · Venerdì alle 16:51

Codicebinario ha scritto:
UEHHHHH ! Ciao .....ma sei tu? TU sai che sono un attento osservatore...e il tuo modo di scrivere mi ricorda tanto un "amico",persona a modo e con cervello....dimmi solo se sei tu....ricorda...se dovesse succedere che hai bisogno davvero...fisicamente.....puoi sempre contare su di me....e tu sai che non scherzo su queste cose.....rispondi solo si o no ,io sapro' ...non faro' il tuo nome o nick...e sei hai bisogno davvero,rivolgiti a Giuseppa con la quale sono in contatto ...chiedi di avere la mail mia....

mi spiace ma non sono chi credi che io sia, fisicamente sto apposto non ho problemi di alcun tipo ,probabilmente la persona alla quale ti riferisci si (spiace per lui)è un altra o abbiamo un modo di esprimerci simile nello scrivere.

Pandit · Venerdì alle 18:08

E' per caso questo?

ColoreTesto 2
Scrivi String(37,32) & "Da un'idea di - adeleadele - ",1
Scrivi String(45,32) & "List. by Toon",1
ColoreTesto 0
Sub Main()
Dim n(10),ruote(12),poste(5),posta(2),n1(2)
w = InputBox("Quanti colpi di gioco per l'Ambata?",,14)
x = InputBox("Quanti colpi di gioco per la lunghetta?",,14)
y = InputBox("Quante estrazioni di ricerca?",,200)
posta(1) = 1
poste(2) = 1
poste(3) = 1
ini = EstrazioneFin - y
fin = EstrazioneFin
For es = ini To fin
Messaggio es
Call AvanzamentoElab(ini,fin,es)
'If IsUltimaDelMese(es) Then 'Togliere l'apostrofo per l'ultima del mese
If IndiceMensile(es) = 1 Then 'Togliere l'apostrofo per la prima del mese
r1 = 1
r2 = 2
a = Estratto(es,r1,1)
b = Estratto(es,r2,3)
If b > 5 Then
b = b - 5
End If
c = Estratto(es,r2,4)
If Cadenza(c) = 0 Then
c = c - 5
End If
e = Fuori90(a + b)
f = Fuori90(a + c)
g = Differenza(Decina(a),Cadenza(a))
h = Figura(Estratto(es,r1,3))
i = Fuori90(g & h)
ok = 0
ColoreTesto 1
casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" > < " & Format2(e),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" > < " & Format2(f),1
Scrivi
ColoreTesto 0
ruote(1) = r1
ruote(2) = r2
'ruote(3) = 11 'Togliere l'apostrofo per la giocata su tutte
k = x
col = w
co = 0
n1(1) = e
n1(2) = Vert(e)
'...
n(1) = e
n(2) = Vert(e)
n(3) = f
n(4) = Vert(f)
n(5) = i
n(6) = Vert(i)
ImpostaGiocata 1,n1,ruote,posta,col
ImpostaGiocata 2,n,ruote,poste,k
Gioca es,1
End If 'Togliere l'apostrofo per la prima o ultima del mese
Next
ScriviResoconto
End Sub

Delphi · Venerdì alle 19:01

Codice:

ColoreTesto 2
Scrivi String(37,32) & "Da un'idea di - adeleadele - ",1
Scrivi String(45,32) & "List. by Toon",1
ColoreTesto 0
Sub Main()
Dim n(10),ruote(12),poste(5),posta(2),n1(2)
w = InputBox("Quanti colpi di gioco per l'Ambata?",,10)
x = InputBox("Quanti colpi di gioco per la lunghetta?",,14)
y = InputBox("Quante estrazioni di ricerca?",,500)
posta(1) = 1
poste(2) = 1
poste(3) = 1
ini = EstrazioneFin - y
fin = EstrazioneFin
For es = ini To fin
Messaggio es
Call AvanzamentoElab(ini,fin,es)
'If IsUltimaDelMese(es) Then 'Togliere l'apostrofo per l'ultima del mese
If IndiceMensile(es) = 1 Then 'Togliere l'apostrofo per la prima del mese
r1 = 1
r2 = 2
a = Estratto(es,r1,1)
b = Estratto(es,r2,3)
If b > 5 Then
b = b - 5
End If
c = Estratto(es,r2,4)
If Cadenza(c) = 0 Then
c = c - 5
End If
e = Fuori90(a + b)
f = Fuori90(a + c)
g = Differenza(Decina(a),Cadenza(a))
h = Figura(Estratto(es,r1,3))
i = Fuori90(g & h)
ok = 0
ColoreTesto 1
casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
"> <" & Format2(e),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
"> <" & Format2(f),1
Scrivi
ColoreTesto 0
ruote(1) = r1
ruote(2) = r2
'ruote(3) = 11 'Togliere l'apostrofo per la giocata su tutte
k = x
col = w
co = 0
n1(1) = e
n1(2) = Vert(e)
'...
n(1) = e
n(2) = Vert(e)
n(3) = f
n(4) = Vert(f)
n(5) = i
n(6) = Vert(i)
ImpostaGiocata 1,n1,ruote,posta,col
ImpostaGiocata 2,n,ruote,poste,k
Gioca es,1
End If 'Togliere l'apostrofo per la prima o ultima del mese
Next
ScriviResoconto
End Sub

Alien. · Venerdì alle 20:00

Pandit ha scritto:
E' per caso questo?

ColoreTesto 2
Scrivi String(37,32) & "Da un'idea di - adeleadele - ",1
Scrivi String(45,32) & "List. by Toon",1
ColoreTesto 0
Sub Main()
Dim n(10),ruote(12),poste(5),posta(2),n1(2)
w = InputBox("Quanti colpi di gioco per l'Ambata?",,14)
x = InputBox("Quanti colpi di gioco per la lunghetta?",,14)
y = InputBox("Quante estrazioni di ricerca?",,200)
posta(1) = 1
poste(2) = 1
poste(3) = 1
ini = EstrazioneFin - y
fin = EstrazioneFin
For es = ini To fin
Messaggio es
Call AvanzamentoElab(ini,fin,es)
'If IsUltimaDelMese(es) Then 'Togliere l'apostrofo per l'ultima del mese
If IndiceMensile(es) = 1 Then 'Togliere l'apostrofo per la prima del mese
r1 = 1
r2 = 2
a = Estratto(es,r1,1)
b = Estratto(es,r2,3)
If b > 5 Then
b = b - 5
End If
c = Estratto(es,r2,4)
If Cadenza(c) = 0 Then
c = c - 5
End If
e = Fuori90(a + b)
f = Fuori90(a + c)
g = Differenza(Decina(a),Cadenza(a))
h = Figura(Estratto(es,r1,3))
i = Fuori90(g & h)
ok = 0
ColoreTesto 1
casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" > < " & Format2(e),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" > < " & Format2(f),1
Scrivi
ColoreTesto 0
ruote(1) = r1
ruote(2) = r2
'ruote(3) = 11 'Togliere l'apostrofo per la giocata su tutte
k = x
col = w
co = 0
n1(1) = e
n1(2) = Vert(e)
'...
n(1) = e
n(2) = Vert(e)
n(3) = f
n(4) = Vert(f)
n(5) = i
n(6) = Vert(i)
ImpostaGiocata 1,n1,ruote,posta,col
ImpostaGiocata 2,n,ruote,poste,k
Gioca es,1
End If 'Togliere l'apostrofo per la prima o ultima del mese
Next
ScriviResoconto
End Sub

CIAO NO,PANDIT MI SI è IMPALLATO ho aspettato 15 minuti ma nulla.

Alien. · Venerdì alle 20:02

perfetto Ciao Oscar lieto di risentirti è un "secolo" fa si lo script va bene l'ho controllato ma è uguale ma senza errore mha...

salvo50 · Venerdì alle 22:42

Ho corretto quello de post #9

Codice:

ColoreTesto 2
Scrivi String(37,32) & "Da un'idea di - adeleadele - ",1
Scrivi String(45,32) & "List. by Toon",1
ColoreTesto 0
Sub Main()
   Dim n(10),ruote(12),poste(5),posta(2),n1(2)
   w = InputBox("Quanti colpi di gioco per l'Ambata?",,10)
   x = InputBox("Quanti colpi di gioco per la lunghetta?",,14)
   y = InputBox("Quante estrazioni di ricerca?",,500)
   posta(1) = 1
   poste(2) = 1
   poste(3) = 1
   ini = EstrazioneFin - y
   fin = EstrazioneFin
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(ini,fin,es)
      'If IsUltimaDelMese(es) Then 'Togliere l'apostrofo per l'ultima del mese
      If IndiceMensile(es) = 1 Then 'Togliere l'apostrofo per la prima del mese
         r1 = 1
         r2 = 2
         a = Estratto(es,r1,1)
         b = Estratto(es,r2,3)
         If b > 5 Then
            b = b - 5
         End If
         c = Estratto(es,r2,4)
         If Cadenza(c) = 0 Then
            c = c - 5
         End If
         e = Fuori90(a + b)
         f = Fuori90(a + c)
         g = Differenza(Decina(a),Cadenza(a))
         h = Figura(Estratto(es,r1,3))
         i = Fuori90(g & h)
         ok = 0
         ColoreTesto 1
         casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
         Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & "> <" & Format2(e),1
         Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & "> <" & Format2(f),1
         Scrivi
         ColoreTesto 0
         ruote(1) = r1
         ruote(2) = r2
         'ruote(3) = 11 'Togliere l'apostrofo per la giocata su tutte
         k = x
         col = w
         co = 0
         n1(1) = e
         n1(2) = Vert(e)
         '...
         n(1) = e
         n(2) = Vert(e)
         n(3) = f
         n(4) = Vert(f)
         n(5) = i
         n(6) = Vert(i)
         ImpostaGiocata 1,n1,ruote,posta,col
         ImpostaGiocata 2,n,ruote,poste,k
         Gioca es,1
      End If 'Togliere l'apostrofo per la prima o ultima del mese
   Next
   ScriviResoconto
End Sub

Alien. · Venerdì alle 23:58

salvo50 ha scritto:

Ho corretto quello de post #9

Codice:

ColoreTesto 2
Scrivi String(37,32) & "Da un'idea di - adeleadele - ",1
Scrivi String(45,32) & "List. by Toon",1
ColoreTesto 0
Sub Main()
   Dim n(10),ruote(12),poste(5),posta(2),n1(2)
   w = InputBox("Quanti colpi di gioco per l'Ambata?",,10)
   x = InputBox("Quanti colpi di gioco per la lunghetta?",,14)
   y = InputBox("Quante estrazioni di ricerca?",,500)
   posta(1) = 1
   poste(2) = 1
   poste(3) = 1
   ini = EstrazioneFin - y
   fin = EstrazioneFin
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(ini,fin,es)
      'If IsUltimaDelMese(es) Then 'Togliere l'apostrofo per l'ultima del mese
      If IndiceMensile(es) = 1 Then 'Togliere l'apostrofo per la prima del mese
         r1 = 1
         r2 = 2
         a = Estratto(es,r1,1)
         b = Estratto(es,r2,3)
         If b > 5 Then
            b = b - 5
         End If
         c = Estratto(es,r2,4)
         If Cadenza(c) = 0 Then
            c = c - 5
         End If
         e = Fuori90(a + b)
         f = Fuori90(a + c)
         g = Differenza(Decina(a),Cadenza(a))
         h = Figura(Estratto(es,r1,3))
         i = Fuori90(g & h)
         ok = 0
         ColoreTesto 1
         casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
         Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & "> <" & Format2(e),1
         Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & "> <" & Format2(f),1
         Scrivi
         ColoreTesto 0
         ruote(1) = r1
         ruote(2) = r2
         'ruote(3) = 11 'Togliere l'apostrofo per la giocata su tutte
         k = x
         col = w
         co = 0
         n1(1) = e
         n1(2) = Vert(e)
         '...
         n(1) = e
         n(2) = Vert(e)
         n(3) = f
         n(4) = Vert(f)
         n(5) = i
         n(6) = Vert(i)
         ImpostaGiocata 1,n1,ruote,posta,col
         ImpostaGiocata 2,n,ruote,poste,k
         Gioca es,1
      End If 'Togliere l'apostrofo per la prima o ultima del mese
   Next
   ScriviResoconto
End Sub

GRAZIE SALVO.

Delphi · Ieri alle 09:57

Alien. ha scritto:
perfetto Ciao Oscar lieto di risentirti è un "secolo" fa si lo script va bene l'ho controllato ma è uguale ma senza errore mha...

Ciao Alien non mi vedevi da quando ti avevo dato la mia mail , pur essendo sempre rimato sul forum , eravamo stati ignorati entrambi , io non vedevo te e tu non vedevi mè , me ne sono accorto poco tempo fà , quindi ho rimosso ignora selezionando segui

Presto mi cancello definitivamente per sempre

Alien. · Ieri alle 22:24

Acc...ed io pensavo che forse ti avevo fatto qualche torto e non ti ho più sentito ma non è il mio caso mha ......senti la mia e mail è stata cancellata da LIBERO non so perchè...ma la tua è oscarglm ecc. Cosa vuoi dire per "sempre" hai problemi di salus ? Un abbraccio.

CERCASI CON URGENZA TOON

Advanced Premium Member

Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member

Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Premium Member

Delphi ma non so molto trafficare con lo script​

Member

Member

Advanced Member

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member

Advanced Premium Member

Delphi ma non so molto trafficare con lo script