CERCASI CON URGENZA TOON

Alien. · 15 Agosto 2024

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

> < & Format2(e),1

grazie.

Pandit · 16 Agosto 2024

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

salvo50 · 16 Agosto 2024

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. · 16 Agosto 2024

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 · 16 Agosto 2024

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 · 16 Agosto 2024

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 · 16 Agosto 2024

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 · 16 Agosto 2024

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. · 16 Agosto 2024

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 · 16 Agosto 2024

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 · 16 Agosto 2024

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 · 16 Agosto 2024

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. · 16 Agosto 2024

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. · 16 Agosto 2024

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

salvo50 · 16 Agosto 2024

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. · 16 Agosto 2024

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 · 17 Agosto 2024

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. · 17 Agosto 2024

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.

Delphi · 24 Agosto 2024

Alien. ha scritto:
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.

Ciao Alien no sto benissimo , solo meno tempo

Alien. · 24 Agosto 2024

Meglio così ma sai chi va piano va sano e lontano ma oggi è impossibile ,siamo dentro ad un ingranaggio che se esci sei"fuori"

CERCASI CON URGENZA TOON

Advanced Premium Member

Super Member >GOLD<

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Banned

Banned

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Premium Member

Delphi ma non so molto trafficare con lo script​

Banned

Super Member >GOLD<

Banned

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Banned

Advanced Premium Member

Banned

Advanced Premium Member

Delphi ma non so molto trafficare con lo script