Novità

Script di MIKE58

Marcorun

Super member
Messaggi
179
Punti reazione
1
Punti
18
Sub Main()
'presenze su cicli di 5 estrazioni"
Dim ruote(1)
Dim nm(1)
r = InputBox("Ruota richiesta",,1)
periodo = InputBox("Periodo estrazione indietro",,16)
ultima = InputBox("Estrazione ultima",,EstrazioneFin)
ult0 = Int(periodo/4)
ult = InputBox("ULTIMO CICLO LUNGHEZZA ",,ult0)
ruote(1) = r
Scrivi "-------------------------------------------------------------------------"
Scrivi " Situazione statistica Numeri IPER_FREQUENTI - by Mike58 - ",1,1,,1,3
Scrivi " Correlazione e presenze dei singoli numeri in 4 periodi di " & periodo & " estrazioni"
Scrivi " Ruota di Richerca " & NomeRuota(ruote(1)),- 1,7,3
Scrivi " Partenza della statistica a ritroso dal...." & Ultima
Scrivi " Durata del periodo N.Estrazioni a ritroso ." & periodo
Scrivi " Durata ultimo ciclo " & ult
Scrivi "-------------------- " & NomeRuota(ruote(1)),- 1,7,3
ReDim T(18)
T(1) = " Numero "
T(2) = " Freq. Totale "
T(3) = " Ultimo Ciclo "
T(4) = " ciclo 2 "
T(5) = " ciclo 3 "
T(6) = " ciclo 4 "
T(7) = " ciclo 5 "
T(8) = " Ritardo Att "
T(9) = " Ritardo Sto "
T(10) = " Caldi "
T(11) = " Esito "
T(12) = " RP1 "
T(13) = " RP2 "
T(14) = " RP3 "
T(15) = " Rp4 "
T(16) = " Rp5 "
T(17) = " Sm Rit "
T(18) = " Md Rit "
Call InitTabella(T,2,,3,5,"Arial Black")
Inizio = EstrazioneIni
fine = EstrazioneFin
dal1 =(ultima + 1) - ult
al1 = ultima
dal2 = dal1 - periodo
al2 = dal1 - 1
dal3 = dal2 - periodo
al3 = dal2 - 1
dal4 = dal3 - periodo
al4 = dal3 - 1
dal5 = dal4 - periodo
al5 = dal4 - 1
ColoreTesto 1
Scrivi "______________________________________________________________________________________________________",2
Scrivi""
Scrivi " Riepilogo numeri rintracciati ciclo di : " & periodo & " estraz.",- 1,6,3
Scrivi "-------------------- " & NomeRuota(ruote(1)),- 1,7,3
Scrivi "______________________________________________________________________________________________________",2
'dal5 = ultima + 1 - 5
For x = 1 To 90
nm(1) = x
Call VerificaEsito(nm,ruote,fine,1,1,Nothing,esito,colpi,estratti,id)
'------- calcolo ritardi precedenti------------
'For q = 1 To UBound(num)
ReDim rp(6)
InizioR = EstrazioneIni
fineR = EstrazioneFin
somrit = 0
For z = 1 To 6
rp(z) = SerieRitardo(InizioR,fineR,nm,ruote,1)
fineR = fineR -(rp(z) + 1)
somrit = somrit + rp(z)
Medrit = Int(somrit/z)
Next
' fine calcolo----------------------------------
a = SerieFreq(dal1,al1,nm,ruote,1)
b = SerieFreq(dal2,al2,nm,ruote,1)
c = SerieFreq(dal3,al3,nm,ruote,1)
d = SerieFreq(dal4,al4,nm,ruote,1)
e = SerieFreq(dal5,al5,nm,ruote,1)
If a >= 0 Then
If b >= 1 Then
If c >= 1 Then
If d >= 1 Then
If e >= 1 Then
kk = kk + 1
rit = EstrattoRitardo(ruote(1),nm(1),Inizio,fine)
rs = EstrattoStorico(ruote(1),nm(1),Inizio,fine)
fre = a + b + c + d + e
ReDim V(18)
V(1) = nm(1)
V(2) = fre
V(3) = a
V(4) = b
V(5) = c
V(6) = d
V(7) = e
V(8) = rit
V(9) = rs
If V(3) = 0 Then V(10) = V(1)
If V(3) <> 0 Then V(10) = " -- "
V(11) = estratti
V(12) = rp(2)
V(13) = rp(3)
V(14) = rp(4)
V(15) = rp(5)
V(16) = rp(6)
V(17) = somrit
V(18) = Medrit
'k1 = 0
Call AddRigaTabella(V,,,3,,"Arial Black")
Call SetColoreCella(1,2,4)
Call SetColoreCella(10,7,5)
For xy = 3 To 7
Call SetColoreCella((xy),4,0)
Next
For y = 12 To 16
Call SetColoreCella((y),4,0)
Next
If a = 0 Then Call SetColoreCella(1,3,1)
If a = 0 Then Call SetColoreCella(3,3,1)
If rit = 0 Then Call SetColoreCella(8,3,0)
End If
End If
End If
End If
End If
Next
Call SetTableWidth("100%")
Call CreaTabella(2)
Scrivi "-------------------- " & NomeRuota(ruote(1)),- 1,7,3
Scrivi "Totali Numeri Rintracciati... " & kk,1
Scrivi "_____________________________________________________________________________________________________",1
ritardatario = PiuRitardatario(ultima,ruote(1))
rtp = EstrattoRitardo(ruote(1),ritardatario,Inizio,fine)
ColoreTesto 2
Scrivi"**** numero più in ritardo **** " & ritardatario & " **** ritarda da " & rtp & " estrazioni ",1,1,,2,4
End Sub


questo bellissimo script che MIKE58 mi (ci) ha regalato .......chiedevo se x caso fosse possibile modificarlo x elaborare le superfrequenze non solo su ruota (così com'è) ma su 2 ruote a scelta.....e se non chiedo troppo un'altro modificato in modo che elaborasse le estrazioni 1 del martedi...2 del giovedi..3 del sabato ,GRAZIE...
 

Mike58

Advanced Member >PLATINUM<
Messaggi
1.960
Punti reazione
27
Punti
48
Ciao Script molto datato, ho fatto al volo la modifica di scelta + ruote devi poi scegliere tu il range di ciclo + adatto.



Sub Main()
'presenze su cicli di 5 estrazioni"
ReDim ruote(0)
Dim nm(1)
'r = InputBox("Ruota richiesta",,1)
periodo = InputBox("Periodo estrazione indietro",,12)
ultima = InputBox("Estrazione ultima",,EstrazioneFin)
ult0 = Int(periodo/4)
ult = InputBox("ULTIMO CICLO LUNGHEZZA ",,ult0)
'ruote(1) = r
ScegliRuote(ruote)
Scrivi "-------------------------------------------------------------------------"
Scrivi " Situazione statistica Numeri IPER_FREQUENTI - by Mike58 - ",1,1,,1,3
Scrivi " Correlazione e presenze dei singoli numeri in 4 periodi di " & periodo & " estrazioni"
Scrivi " Ruota di Richerca " & StringaRuote(ruote),- 1,7,3
Scrivi " Partenza della statistica a ritroso dal...." & Ultima
Scrivi " Durata del periodo N.Estrazioni a ritroso ." & periodo
Scrivi " Durata ultimo ciclo " & ult
'Scrivi "-------------------- " & NomeRuota(ruote(1)),- 1,7,3
ReDim T(18)
T(1) = " Numero "
T(2) = " Freq. Totale "
T(3) = " Ultimo Ciclo "
T(4) = " ciclo 2 "
T(5) = " ciclo 3 "
T(6) = " ciclo 4 "
T(7) = " ciclo 5 "
T(8) = " Ritardo Att "
T(9) = " Ritardo Sto "
T(10) = " Caldi "
T(11) = " Esito "
T(12) = " RP1 "
T(13) = " RP2 "
T(14) = " RP3 "
T(15) = " Rp4 "
T(16) = " Rp5 "
T(17) = " Sm Rit "
T(18) = " Md Rit "
Call InitTabella(T,2,,3,5,"Arial Black")
Inizio = EstrazioneIni
fine = EstrazioneFin
dal1 =(ultima + 1) - ult
al1 = ultima
dal2 = dal1 - periodo
al2 = dal1 - 1
dal3 = dal2 - periodo
al3 = dal2 - 1
dal4 = dal3 - periodo
al4 = dal3 - 1
dal5 = dal4 - periodo
al5 = dal4 - 1
ColoreTesto 1
Scrivi "______________________________________________________________________________________________________",2
Scrivi""
Scrivi " Riepilogo numeri rintracciati ciclo di : " & periodo & " estraz.",- 1,6,3
Scrivi "-------------------- " & StringaRuote(ruote),- 1,7,3
Scrivi "______________________________________________________________________________________________________",2
'dal5 = ultima + 1 - 5
For x = 1 To 90
nm(1) = x
Call VerificaEsito(nm,ruote,fine,1,1,Nothing,esito,colpi,estratti,id)
'------- calcolo ritardi precedenti------------
'For q = 1 To UBound(num)
ReDim rp(6)
InizioR = EstrazioneIni
fineR = EstrazioneFin
somrit = 0
For z = 1 To 6
rp(z) = SerieRitardo(InizioR,fineR,nm,ruote,1)
fineR = fineR -(rp(z) + 1)
somrit = somrit + rp(z)
Medrit = Int(somrit/z)
Next
' fine calcolo----------------------------------
a = SerieFreq(dal1,al1,nm,ruote,1)
b = SerieFreq(dal2,al2,nm,ruote,1)
c = SerieFreq(dal3,al3,nm,ruote,1)
d = SerieFreq(dal4,al4,nm,ruote,1)
e = SerieFreq(dal5,al5,nm,ruote,1)
If a >= 0 Then
If b >= 1 Then
If c >= 1 Then
If d >= 1 Then
If e >= 1 Then
kk = kk + 1
'rit = EstrattoRitardo(ruote(1),nm(1),Inizio,fine)
'rs = EstrattoStorico(ruote(1),nm(1),Inizio,fine)
rit = SerieRitardo(Inizio,fine,nm,ruote,1)
rs = SerieStorico(Inizio,fine,nm,ruote,1)
fre = a + b + c + d + e
ReDim V(18)
V(1) = nm(1)
V(2) = fre
V(3) = a
V(4) = b
V(5) = c
V(6) = d
V(7) = e
V(8) = rit
V(9) = rs
If V(3) = 0 Then V(10) = V(1)
If V(3) <> 0 Then V(10) = " -- "
V(11) = estratti
V(12) = rp(2)
V(13) = rp(3)
V(14) = rp(4)
V(15) = rp(5)
V(16) = rp(6)
V(17) = somrit
V(18) = Medrit
'k1 = 0
Call AddRigaTabella(V,,,3,,"Arial Black")
Call SetColoreCella(1,2,4)
Call SetColoreCella(10,7,5)
For xy = 3 To 7
Call SetColoreCella((xy),4,0)
Next
For y = 12 To 16
Call SetColoreCella((y),4,0)
Next
If a = 0 Then Call SetColoreCella(1,3,1)
If a = 0 Then Call SetColoreCella(3,3,1)
If rit = 0 Then Call SetColoreCella(8,3,0)
End If
End If
End If
End If
End If
Next
Call SetTableWidth("100%")
Call CreaTabella(2)
Scrivi "-------------------- " & StringaRuote(ruote),- 1,7,3
Scrivi "Totali Numeri Rintracciati... " & kk,1
Scrivi "_____________________________________________________________________________________________________",1
'ritardatario = PiuRitardatari(ultima,r)
'rtp = EstrattoRitardo(ruote(1),ritardatario,Inizio,fine)
'ColoreTesto 2
'Scrivi"**** numero più in ritardo **** " & ritardatario & " **** ritarda da " & rtp & " estrazioni ",1,1,,2,4
End Sub


 

Mike58

Advanced Member >PLATINUM<
Messaggi
1.960
Punti reazione
27
Punti
48
Codice:
Sub Main()
'presenze su cicli di 5 estrazioni"
ReDim ruote(0)
Dim nm(1)
'r = InputBox("Ruota richiesta",,1)
periodo = InputBox("Periodo estrazione indietro",,12)
ultima = InputBox("Estrazione ultima",,EstrazioneFin)
ult0 = Int(periodo/4)
ult = InputBox("ULTIMO CICLO LUNGHEZZA ",,ult0)
'ruote(1) = r
ScegliRuote(ruote)
Scrivi "-------------------------------------------------------------------------"
Scrivi " Situazione statistica Numeri IPER_FREQUENTI - by Mike58 - ",1,1,,1,3
Scrivi " Correlazione e presenze dei singoli numeri in 4 periodi di " & periodo & " estrazioni"
Scrivi " Ruota di Richerca " & StringaRuote(ruote),- 1,7,3
Scrivi " Partenza della statistica a ritroso dal...." & Ultima
Scrivi " Durata del periodo N.Estrazioni a ritroso ." & periodo
Scrivi " Durata ultimo ciclo " & ult
'Scrivi "-------------------- " & NomeRuota(ruote(1)),- 1,7,3
ReDim T(18)
T(1) = " Numero "
T(2) = " Freq. Totale "
T(3) = " Ultimo Ciclo "
T(4) = " ciclo 2 "
T(5) = " ciclo 3 "
T(6) = " ciclo 4 "
T(7) = " ciclo 5 "
T(8) = " Ritardo Att "
T(9) = " Ritardo Sto "
T(10) = " Caldi "
T(11) = " Esito "
T(12) = " RP1 "
T(13) = " RP2 "
T(14) = " RP3 "
T(15) = " Rp4 "
T(16) = " Rp5 "
T(17) = " Sm Rit "
T(18) = " Md Rit "
Call InitTabella(T,2,,3,5,"Arial Black")
Inizio = EstrazioneIni
fine = EstrazioneFin
dal1 =(ultima + 1) - ult
al1 = ultima
dal2 = dal1 - periodo
al2 = dal1 - 1
dal3 = dal2 - periodo
al3 = dal2 - 1
dal4 = dal3 - periodo
al4 = dal3 - 1
dal5 = dal4 - periodo
al5 = dal4 - 1
ColoreTesto 1
Scrivi "______________________________________________________________________________________________________",2
Scrivi""
Scrivi " Riepilogo numeri rintracciati ciclo di : " & periodo & " estraz.",- 1,6,3
Scrivi "-------------------- " & StringaRuote(ruote),- 1,7,3
Scrivi "______________________________________________________________________________________________________",2
'dal5 = ultima + 1 - 5
For x = 1 To 90
nm(1) = x
Call VerificaEsito(nm,ruote,fine,1,1,Nothing,esito,colpi,estratti,id)
'------- calcolo ritardi precedenti------------
'For q = 1 To UBound(num)
ReDim rp(6)
InizioR = EstrazioneIni
fineR = EstrazioneFin
somrit = 0
For z = 1 To 6
rp(z) = SerieRitardo(InizioR,fineR,nm,ruote,1)
fineR = fineR -(rp(z) + 1)
somrit = somrit + rp(z)
Medrit = Int(somrit/z)
Next
' fine calcolo----------------------------------
a = SerieFreq(dal1,al1,nm,ruote,1)
b = SerieFreq(dal2,al2,nm,ruote,1)
c = SerieFreq(dal3,al3,nm,ruote,1)
d = SerieFreq(dal4,al4,nm,ruote,1)
e = SerieFreq(dal5,al5,nm,ruote,1)
If a >= 0 Then
If b >= 1 Then
If c >= 1 Then
If d >= 1 Then
If e >= 1 Then
kk = kk + 1
'rit = EstrattoRitardo(ruote(1),nm(1),Inizio,fine)
'rs = EstrattoStorico(ruote(1),nm(1),Inizio,fine)
rit = SerieRitardo(Inizio,fine,nm,ruote,1)
rs = SerieStorico(Inizio,fine,nm,ruote,1)
fre = a + b + c + d + e
ReDim V(18)
V(1) = nm(1)
V(2) = fre
V(3) = a
V(4) = b
V(5) = c
V(6) = d
V(7) = e
V(8) = rit
V(9) = rs
If V(3) = 0 Then V(10) = V(1)
If V(3) <> 0 Then V(10) = " -- "
V(11) = estratti
V(12) = rp(2)
V(13) = rp(3)
V(14) = rp(4)
V(15) = rp(5)
V(16) = rp(6)
V(17) = somrit
V(18) = Medrit
'k1 = 0
Call AddRigaTabella(V,,,3,,"Arial Black")
Call SetColoreCella(1,2,4)
Call SetColoreCella(10,7,5)
For xy = 3 To 7
Call SetColoreCella((xy),4,0)
Next
For y = 12 To 16
Call SetColoreCella((y),4,0)
Next
If a = 0 Then Call SetColoreCella(1,3,1)
If a = 0 Then Call SetColoreCella(3,3,1)
If rit = 0 Then Call SetColoreCella(8,3,0)
End If
End If
End If
End If
End If
Next
Call SetTableWidth("100%")
Call CreaTabella(2)
Scrivi "-------------------- " & StringaRuote(ruote),- 1,7,3
Scrivi "Totali Numeri Rintracciati... " & kk,1
Scrivi "_____________________________________________________________________________________________________",1
'ritardatario = PiuRitardatari(ultima,r)
'rtp = EstrattoRitardo(ruote(1),ritardatario,Inizio,fine)
'ColoreTesto 2
'Scrivi"**** numero più in ritardo **** " & ritardatario & " **** ritarda da " & rtp & " estrazioni ",1,1,,2,4
End Sub
 

Marcorun

Super member
Messaggi
179
Punti reazione
1
Punti
18
Disponibile come sempre....GRAZIE...sarà anche datato il tuo script,ma bello ci lavoro moltissimo...e con questo modificato avrò ancora più da divertirmi...:))
Per quanto riguarda la scelta dei giorni della settimana,ho provato ad impostare l'archivio nei vari giorni ma non funziona bene....credo che debba essere scritto nello script il giorno....GRAZIE ancora..CIAO
 

vincenzo4221

Advanced Member >GOLD<
Messaggi
951
Punti reazione
13
Punti
18
PER MIKE sarebbe possibile modificare questi script per ottenere i dati di cui al mio post "diagramma delle frequenze", mi sembra di capire che si dovrebbe solo fare in modo che si possano ottenere più dei 5 cicli che si formano con quello attuale...tutto il resto sembra che vada bene , anzi integra con nuovi dati ....ciao
 

Mike58

Advanced Member >PLATINUM<
Messaggi
1.960
Punti reazione
27
Punti
48
Raga,il tempo manca per concentrarsi negli script (stasera turno notte)

Per Marcorun per filtrare le estrazioni del girono potrebbe essere usato un If then con il codice giorno(es) = a ???
ma dovrei verificarlo.

Per Vincenzo tutto si può fare con indicazioni precise, ma ora mi manca il tempo e la lucidità se trovo queste... magari posso provare.

Ciao
 

vincenzo4221

Advanced Member >GOLD<
Messaggi
951
Punti reazione
13
Punti
18
marco è soddisfatto bene x lui .....io invece a quanto pare chiedo cose difficili da farsi...parlo anche in merito ad altre richieste al sito.. non soddisfatte ...si preferisce perder tempo con teorie caballistiche ed altre fregnacce invece di lavorare sulla statistica seria...boh???
 

i legend

Advanced Member >PLATINUM PLUS<
Messaggi
3.176
Punti reazione
81
Punti
48
Mike faccio un plauso alla tua grande disponibilità:)
 

Mike58

Advanced Member >PLATINUM<
Messaggi
1.960
Punti reazione
27
Punti
48
Ciao ILegend , un grazie per l'apprezzamento, lo stesso vale per te.

Per Marcorun, lo script in cicli in esame è abbastanza rigido e fine a se stesso ossia i 5 cicli stabiliti con range e ultimo ciclo ridimensionato di 1/3, per il filtraggio dei giorni purtroppo è più complicato, bisogna creare una routine allo scopo, ma in questo script ha poca valenza.

Ti posto un altro mio script che stabilito un numero verifica quante uscite per giorno di estrazione.
Cosi puoi vedere come devono agire i codici date e giorni, per poi utilizzali alle occasioni volute.

Codice:
Sub Main()
   'Sabato, martedi, giovedi
   Dim nu(1),ru(1)
   num = InputBox("Quale numero cercare ",,90)
   rt = InputBox("Quale ruota ",,1)
   et = CInt(InputBox("Quante estrazioni",,300))
   nu(1) = num
   ru(1) = rt
   For Es = EstrazioneFin - et To EstrazioneFin
      aps = Posizione(es,rt,num)
      If Sabato(es) Then
         If SerieFreq(es,es,nu,ru,1) = 1 Then
            sab = EstrazioneFin - es
            Scrivi DataEstrazione(Es,1) & vbTab & " - " & StringaEstratti(es,rt) & " - Posiz. " & aps
            co = co + 1
         End If
      End If
   Next
   Scrivi
   ColoreTesto 1
   Scrivi "Numero cercato..." & num & " Sulla ruota di..." & NomeRuota(rt) & " è uscito..." & co & " Volte al Sabato " & " è Ritarda da... " & sab,1
   ColoreTesto 0
   Scrivi
   For Es = EstrazioneFin - et To EstrazioneFin
      apg = Posizione(es,rt,num)
      If giovedi(es) Then
         If SerieFreq(es,es,nu,ru,1) = 1 Then
            gio = EstrazioneFin - es
            Scrivi DataEstrazione(Es,1) & vbTab & " - " & StringaEstratti(es,rt) & " - Posiz. " & apg
            co1 = co1 + 1
         End If
      End If
   Next
   Scrivi
   ColoreTesto 1
   Scrivi "Numero cercato..." & num & " Sulla ruota di..." & NomeRuota(rt) & " è uscito..." & co1 & " Volte al giovedì" & " è Ritarda da... " & gio,1
   ColoreTesto 0
   Scrivi
   For Es = EstrazioneFin - et To EstrazioneFin
      apm = Posizione(es,rt,num)
      If martedi(es) Then
         If SerieFreq(es,es,nu,ru,1) = 1 Then
            mar = EstrazioneFin - es
            Scrivi DataEstrazione(Es,1) & vbTab & " - " & StringaEstratti(es,rt) & " - Posiz. " & apm
            co2 = co2 + 1
            sr = SerieRitardo(es,EstrazioneFin,nu,ru,1)
         End If
      End If
   Next
   Scrivi
   ColoreTesto 1
   Scrivi "Numero cercato..." & num & " Sulla ruota di..." & NomeRuota(rt) & " è uscito..." & co2 & " Volte al martedì " & " è Ritarda da... " & mar,1
   ColoreTesto 0
   Scrivi
   tt = co + co1 + co2
   ColoreTesto 2
   Scrivi "Totali di volte uscito.... " & tt & " Ritarda da... " & sr & " Dalla data ultima... " & DataEstrazione(EstrazioneFin - sr,1),1
   ColoreTesto 0
End Sub
Function Sabato(Es)
   Sabato = False
   Data = Replace(DataEstrazione(Es),".","/")
   Mike = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Mike) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbSaturday Then Sabato = True
End Function
Function giovedi(Es)
   giovedi = False
   Data = Replace(DataEstrazione(Es),".","/")
   Mike = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Mike) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbThursday Then giovedi = True
End Function
Function martedi(Es)
   martedi = False
   Data = Replace(DataEstrazione(Es),".","/")
   Mike = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Mike) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbTuesday Then martedi = True
End Function
 

Mike58

Advanced Member >PLATINUM<
Messaggi
1.960
Punti reazione
27
Punti
48
Ciao Vincenzo, posso capire che molte volte le richieste passano inosservate e non evase, ma devi anche capire che sono pochi quelli che si dilettano a fare script e non sempre si trova il tempo, la voglia e soprattutto la via per il giusto costrutto.
Come ti dicevo nell'altro trhend a me stuzzicano un pochetto gli script statistici e come hai visto avevo simulato la schermata postata, ma poi lo script e la richiesta cambia direzione e si vuole tutto un altro script ed un altro costrutto il chè rimetterci le mani nella logica stessa del costrutto diventa complicato.

Il tutto per dire che la tua richiesta è fattibile basta avere pazienza e lavorarci insieme ad un determinato progetto.
I modi di costrutti sono diversi e tanti basta prendere l giusta direzione.



Abbi pazienza nessuno e contro nessuno e noi appassionati che ci delettiamo a fare script facciamo quello che il tempo a la voglia ci porta a fare.


P.s cancellato script di ilegend ( come richiesta sottostante)

ciao
 
Ultima modifica:

i legend

Advanced Member >PLATINUM PLUS<
Messaggi
3.176
Punti reazione
81
Punti
48
Ciao Mike hai riesumato uno script datatissimo ahahahaha,
era fatto su richiesta di un utente,pertanto una statistica particolare di una sua personale interpretazione , a mio avviso non è corretta. potresti toglierlo per favore?
 

Marcorun

Super member
Messaggi
179
Punti reazione
1
Punti
18
GRAZIE MIKE58 .........

saluto anche Vincenzo ,del lotto ,script,statistiche,numeri casuali,fregnacce.....apprezzo tutto...tanto che mi son messo anche in gioco senza paura nella gara ambate............................ciao,buono studio a tutti!
 

Mike58

Advanced Member >PLATINUM<
Messaggi
1.960
Punti reazione
27
Punti
48
Ok Ilegend nessun problema, lavorerò ex novo allo scopo di Vincenzo.
 

Ultimi Messaggi

Alto