MEGA RACCOLTA "SCRIPT"

kabb77 · 21 Ottobre 2011

complimenti claudio x i tuoi metodi, sei un grande !!!

mauro kabb77

Roby · 21 Ottobre 2011

Proviamo a centrare l'ambo secco
Le ruote escluse non presentavano le condizioni da me richieste
Si può provare a giocare direttamente la terzina o Quartina, per ambo (e per terno)

BA: 32-82//32-46 (Terzina 32-82-46)

FI: 1-81//35-81 (Terzina 1-35-81)

GE: 64-88//55-88//13-88 (Quartina 64-55-13-88)

MI: 3-55//3-73 (Terzina 3-55-73)

NA: 56-75//56-85 (Terzina 56-75-85)

PA: 23-66//37-66 (Terzina 23-37-66)

TO: 46-85//61-85 (Terzina 46-61-85)

NAZ: 25-83//25-29 (Terzina 25-83-29)

TUTTE: 20-39//20-72 (Terno 20-39-72)

Se non erro sono 10 colpi
Gli ambi sono un pò troppi per giocarli tutti insieme, scegliete quelli con cui avete delle convergenze e buona fortuna
Fate il vostro gioco...

Blackmore

kabb77 · 21 Ottobre 2011

quanto mi piacerebbe fare uno script anchio !! e molto difficile ? cè qualche amicone che mi indirizza, e che mi accenna qualcosa come si fa? grazie chi mi risponderà .

mauro kabb77

Roby · 21 Ottobre 2011

BARI !!!!!!!!!!!!!! l'80^ la fa' da padrona.....il 46 buono...il 32 ottimo....

ciao.

Artemisio
Memento Audere Semper

claudio8 · 22 Ottobre 2011

quote:Originally posted by kabb77

quanto mi piacerebbe fare uno script anchio !! e molto difficile ? cè qualche amicone che mi indirizza, e che mi accenna qualcosa come si fa? grazie chi mi risponderà .

mauro kabb77

Vi è nelle pagine precedenti a questa un post in cui sono inseriti dei Link x scaricare delle video lezioni preparate da Luigi.
Tempo fa sono state raccolte per Keeper.
Vai qui

http://forum.lottoced.com/topic.asp?TOPIC_ID=133722

Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"

kabb77 · 22 Ottobre 2011

ok grazie claudio molto centile !! sei un grande ! caro claudio avrei bisogno di parlare con tè in privto x email , sempre se vuoi! si può fare ? grazie

mauro kabb77

Pluta · 22 Ottobre 2011

quote:Originally posted by codicebinario

BARI !!!!!!!!!!!!!! l'80^ la fa' da padrona.....il 46 buono...il 32 ottimo....

ciao.

Artemisio
Memento Audere Semper

.....anche nelle previsioni di lottoced è riportata l ambata 32 con altre associazioni di numeri su bar: sceglierò gli ambi su Bari di blackmore da portare avanti!!
Grazie
P.

Roby · 11 Novembre 2011

Codice:

Sub Main()
ColoreTesto 1 :Scrivi "========= M E T O DI    B Y    B L A C K M O R E =========",1
ColoreTesto 0 :Scrivi "============= 1 AMBATA SECCA DOPO AMBO SPIA ==============",1
ColoreTesto 1 :Scrivi "======================== B A R I =========================",1
ColoreTesto 0 :Scrivi "== INIZIO RICERCA 02/01/2009 = FINE RICERCA: 30/07/2011 ==",1
Scrivi : ColoreTesto 0
Dim ruota(1),Num(2),nu3(2),ruote(1),ptt(10)
ptt(1) =1
clp = 9
ini = EstrazioneFin - 409
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es

ruote(1) = 1
For p = 1 To 4
For p1 = p + 1 To 5
a = Estratto(es,1,p) : b = Estratto(es,1,p1)

'-------------------------------------------------------------------
ok = 0
If a = 05 And b = 11 Or a = 11 And b = 05 Then Num(1) = Fuori90(Estratto(es,1,3) + 21):ok =1
If a = 01 And b = 23 Or a = 23 And b = 01 Then Num(1) = Fuori90(Estratto(es,1,4) + 32):ok =1
If a = 11 And b = 16 Or a = 16 And b = 11 Then Num(1) = Fuori90(Estratto(es,1,4) + 84):ok =1
If a = 60 And b = 61 Or a = 61 And b = 60 Then Num(1) = Fuori90(Estratto(es,1,4) + 27):ok =1
If a = 08 And b = 41 Or a = 41 And b = 08 Then Num(1) = Fuori90(Estratto(es,1,4) + 87):ok =1
If a = 38 And b = 51 Or a = 51 And b = 38 Then Num(1) = Fuori90(Estratto(es,1,4) + 71):ok =1
If a = 56 And b = 64 Or a = 64 And b = 56 Then Num(1) = Fuori90(Estratto(es,1,3) + 17):ok =1
If a = 34 And b = 48 Or a = 48 And b = 34 Then Num(1) = Fuori90(Estratto(es,1,2) + 63):ok =1
If a = 15 And b = 48 Or a = 48 And b = 15 Then Num(1) = Fuori90(Estratto(es,1,1) + 50):ok =1
If a = 11 And b = 81 Or a = 81 And b = 11 Then Num(1) = Fuori90(Estratto(es,1,2) + 72):ok =1
If a = 05 And b = 46 Or a = 46 And b = 05 Then Num(1) = Fuori90(Estratto(es,1,5) + 19):ok =1
If a = 19 And b = 84 Or a = 84 And b = 19 Then Num(1) = Fuori90(Estratto(es,1,4) + 78):ok =1
If a = 15 And b = 27 Or a = 27 And b = 15 Then Num(1) = Fuori90(Estratto(es,1,5) + 83):ok =1
If a = 57 And b = 87 Or a = 87 And b = 57 Then Num(1) = Fuori90(Estratto(es,1,2) + 61):ok =1
If a = 37 And b = 41 Or a = 41 And b = 37 Then Num(1) = Fuori90(Estratto(es,1,4) + 47):ok =1
If a = 59 And b = 83 Or a = 83 And b = 59 Then Num(1) = Fuori90(Estratto(es,1,2) + 15):ok =1
If a = 03 And b = 80 Or a = 80 And b = 03 Then Num(1) = Fuori90(Estratto(es,1,5) + 39):ok =1
If a = 69 And b = 88 Or a = 88 And b = 69 Then Num(1) = Fuori90(Estratto(es,1,2) + 81):ok =1
If a = 43 And b = 70 Or a = 70 And b = 43 Then Num(1) = Fuori90(Estratto(es,1,3) + 49):ok =1
If a = 12 And b = 33 Or a = 33 And b = 12 Then Num(1) = Fuori90(Estratto(es,1,3) + 52):ok =1
If a = 20 And b = 66 Or a = 66 And b = 20 Then Num(1) = Fuori90(Estratto(es,1,5) + 06):ok =1
If a = 20 And b = 80 Or a = 80 And b = 20 Then Num(1) = Fuori90(Estratto(es,1,5) + 37):ok =1
If a = 57 And b = 73 Or a = 73 And b = 57 Then Num(1) = Fuori90(Estratto(es,1,5) + 74):ok =1
If a = 14 And b = 15 Or a = 15 And b = 14 Then Num(1) = Fuori90(Estratto(es,1,1) + 09):ok =1
If a = 53 And b = 66 Or a = 66 And b = 53 Then Num(1) = Fuori90(Estratto(es,1,4) + 27):ok =1
If a = 43 And b = 47 Or a = 47 And b = 43 Then Num(1) = Fuori90(Estratto(es,1,2) + 23):ok =1
If a = 02 And b = 37 Or a = 37 And b = 02 Then Num(1) = Fuori90(Estratto(es,1,4) + 19):ok =1
If a = 07 And b = 45 Or a = 45 And b = 07 Then Num(1) = Fuori90(Estratto(es,1,3) + 83):ok =1
If a = 06 And b = 67 Or a = 67 And b = 06 Then Num(1) = Fuori90(Estratto(es,1,3) + 06):ok =1
If a = 36 And b = 66 Or a = 66 And b = 36 Then Num(1) = Fuori90(Estratto(es,1,1) + 58):ok =1
If a = 07 And b = 09 Or a = 09 And b = 07 Then Num(1) = Fuori90(Estratto(es,1,3) + 12):ok =1
If a = 11 And b = 56 Or a = 56 And b = 11 Then Num(1) = Fuori90(Estratto(es,1,3) + 06):ok =1
If a = 07 And b = 08 Or a = 08 And b = 07 Then Num(1) = Fuori90(Estratto(es,1,3) + 76):ok =1
If a = 03 And b = 37 Or a = 37 And b = 03 Then Num(1) = Fuori90(Estratto(es,1,3) + 38):ok =1
If a = 20 And b = 33 Or a = 33 And b = 20 Then Num(1) = Fuori90(Estratto(es,1,3) + 11):ok =1
If a = 39 And b = 87 Or a = 87 And b = 39 Then Num(1) = Fuori90(Estratto(es,1,2) + 24):ok =1
If a = 11 And b = 46 Or a = 46 And b = 11 Then Num(1) = Fuori90(Estratto(es,1,1) + 35):ok =1
If a = 33 And b = 61 Or a = 61 And b = 33 Then Num(1) = Fuori90(Estratto(es,1,5) + 50):ok =1
If a = 43 And b = 68 Or a = 68 And b = 43 Then Num(1) = Fuori90(Estratto(es,1,2) + 21):ok =1
If a = 08 And b = 55 Or a = 55 And b = 08 Then Num(1) = Fuori90(Estratto(es,1,3) + 32):ok =1
If a = 73 And b = 81 Or a = 81 And b = 73 Then Num(1) = Fuori90(Estratto(es,1,4) + 52):ok =1
If a = 26 And b = 81 Or a = 81 And b = 26 Then Num(1) = Fuori90(Estratto(es,1,5) + 71):ok =1
If a = 26 And b = 85 Or a = 85 And b = 26 Then Num(1) = Fuori90(Estratto(es,1,2) + 56):ok =1
If a = 32 And b = 55 Or a = 55 And b = 32 Then Num(1) = Fuori90(Estratto(es,1,1) + 75):ok =1
If a = 03 And b = 41 Or a = 41 And b = 03 Then Num(1) = Fuori90(Estratto(es,1,3) + 27):ok =1
If a = 12 And b = 15 Or a = 15 And b = 12 Then Num(1) = Fuori90(Estratto(es,1,4) + 11):ok =1
If a = 12 And b = 17 Or a = 17 And b = 12 Then Num(1) = Fuori90(Estratto(es,1,3) + 67):ok =1
If a = 17 And b = 87 Or a = 87 And b = 17 Then Num(1) = Fuori90(Estratto(es,1,3) + 41):ok =1
If a = 46 And b = 87 Or a = 87 And b = 46 Then Num(1) = Fuori90(Estratto(es,1,2) + 06):ok =1
If a = 46 And b = 90 Or a = 90 And b = 46 Then Num(1) = Fuori90(Estratto(es,1,2) + 38):ok =1
If a = 16 And b = 33 Or a = 33 And b = 16 Then Num(1) = Fuori90(Estratto(es,1,2) + 59):ok =1
If a = 05 And b = 86 Or a = 86 And b = 05 Then Num(1) = Fuori90(Estratto(es,1,4) + 06):ok =1
If a = 20 And b = 86 Or a = 86 And b = 20 Then Num(1) = Fuori90(Estratto(es,1,5) + 16):ok =1
If a = 34 And b = 84 Or a = 84 And b = 34 Then Num(1) = Fuori90(Estratto(es,1,5) + 70):ok =1
If a = 19 And b = 35 Or a = 35 And b = 19 Then Num(1) = Fuori90(Estratto(es,1,3) + 35):ok =1
If a = 18 And b = 61 Or a = 61 And b = 18 Then Num(1) = Fuori90(Estratto(es,1,2) + 12):ok =1
If a = 61 And b = 83 Or a = 83 And b = 61 Then Num(1) = Fuori90(Estratto(es,1,4) + 34):ok =1
If a = 05 And b = 20 Or a = 20 And b = 05 Then Num(1) = Fuori90(Estratto(es,1,5) + 45):ok =1
If a = 11 And b = 51 Or a = 51 And b = 11 Then Num(1) = Fuori90(Estratto(es,1,4) + 45):ok =1
If a = 01 And b = 74 Or a = 74 And b = 01 Then Num(1) = Fuori90(Estratto(es,1,2) + 03):ok =1
If a = 09 And b = 74 Or a = 74 And b = 09 Then Num(1) = Fuori90(Estratto(es,1,2) + 49):ok =1
If a = 05 And b = 30 Or a = 30 And b = 05 Then Num(1) = Fuori90(Estratto(es,1,3) + 10):ok =1
If a = 05 And b = 73 Or a = 73 And b = 05 Then Num(1) = Fuori90(Estratto(es,1,3) + 23):ok =1
If a = 21 And b = 62 Or a = 62 And b = 21 Then Num(1) = Fuori90(Estratto(es,1,2) + 55):ok =1
If a = 43 And b = 83 Or a = 83 And b = 43 Then Num(1) = Fuori90(Estratto(es,1,5) + 07):ok =1
If a = 05 And b = 85 Or a = 85 And b = 05 Then Num(1) = Fuori90(Estratto(es,1,2) + 16):ok =1
If a = 57 And b = 77 Or a = 77 And b = 57 Then Num(1) = Fuori90(Estratto(es,1,2) + 09):ok =1
If a = 41 And b = 48 Or a = 48 And b = 41 Then Num(1) = Fuori90(Estratto(es,1,4) + 20):ok =1
If a = 03 And b = 88 Or a = 88 And b = 03 Then Num(1) = Fuori90(Estratto(es,1,2) + 57):ok =1
If a = 06 And b = 40 Or a = 40 And b = 06 Then Num(1) = Fuori90(Estratto(es,1,1) + 27):ok =1
If a = 05 And b = 77 Or a = 77 And b = 05 Then Num(1) = Fuori90(Estratto(es,1,1) + 86):ok =1
If a = 24 And b = 61 Or a = 61 And b = 24 Then Num(1) = Fuori90(Estratto(es,1,4) + 44):ok =1
If a = 62 And b = 73 Or a = 73 And b = 62 Then Num(1) = Fuori90(Estratto(es,1,3) + 59):ok =1
If a = 37 And b = 43 Or a = 43 And b = 37 Then Num(1) = Fuori90(Estratto(es,1,3) + 65):ok =1
If a = 18 And b = 90 Or a = 90 And b = 18 Then Num(1) = Fuori90(Estratto(es,1,5) + 80):ok =1
If a = 41 And b = 57 Or a = 57 And b = 41 Then Num(1) = Fuori90(Estratto(es,1,2) + 51):ok =1
If a = 18 And b = 38 Or a = 38 And b = 18 Then Num(1) = Fuori90(Estratto(es,1,3) + 28):ok =1
If a = 21 And b = 56 Or a = 56 And b = 21 Then Num(1) = Fuori90(Estratto(es,1,4) + 19):ok =1
If a = 14 And b = 83 Or a = 83 And b = 14 Then Num(1) = Fuori90(Estratto(es,1,3) + 53):ok =1
If a = 15 And b = 84 Or a = 84 And b = 15 Then Num(1) = Fuori90(Estratto(es,1,4) + 72):ok =1
If a = 24 And b = 65 Or a = 65 And b = 24 Then Num(1) = Fuori90(Estratto(es,1,3) + 02):ok =1
If a = 37 And b = 87 Or a = 87 And b = 37 Then Num(1) = Fuori90(Estratto(es,1,2) + 77):ok =1
If a = 01 And b = 06 Or a = 06 And b = 01 Then Num(1) = Fuori90(Estratto(es,1,2) + 34):ok =1
If a = 64 And b = 68 Or a = 68 And b = 64 Then Num(1) = Fuori90(Estratto(es,1,4) + 82):ok =1
'-------------------------------------------------------------------
If ok = 1 Then
co = co + 1

Scrivi String(70,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " " & SiglaRuota(1) & " " & StringaEstratti(es,1) &   "    AMBO SPIA BY BLACK:   " & a & " - " & b,1

Scrivi String(70,"°"),1
ruota(1) = 1:cg = 0

nu3(1) = Num(1):nu3(1) = Num(1)
nu3(2) = Num(2):nu3(2) = Num(2)

cg = cg + 1
ImpostaGiocata cg,nu3,ruote,ptt,clp,1

Gioca es

End If

Next:Next:Next':Next
ScriviResoconto

End Sub

barattolo · 11 Novembre 2011

quote:Originally posted by claudio8

ECCOLO

Codice:

Ambi più  frequenti in ordine decrescente sulla ruota di - Bari - Dal 13.04.2005 al 24.09.2011 con 1000 estrazioni

Ambi presenti :         15.84  18.34  51.89  14.23  47.85  32.82  43.90  49.75  15.48  05.73  21.28  53.66  21.90  47.70  38.89  20.75  05.27  73.79  20.80  73.81  
Pres in range ricerca:     9      9      9      9      8      8      8      8      8      8      8      8      8      8      7      7      7      7      7      7    
Rit. da inizio gioco:     25     77      1      0     15     24      6    483    101     65    196     22      6    200    139      2    120      5     32    120    
Esiti in  10 colpi a dal 27.09.2011  : 
						_________    _________    _________    __________    _________    _________

Ambi neno frequenti in ordine crescente sulla ruota di - Bari - Dal 13.04.2005 al 24.09.2011 con 1000 estrazioni

Ambi presenti :         52-71  33-54  52-75  52-72  31-63  34-39  52-62  32-46  33-39  29-42  26-41  55-85  25-44  25-51  55-84  25-83  56-67  56-59  25-82  34-56  
Pres in range ricerca:      0      0      0      0      0      0      0      0      0      0      0      0      0      0      0      0      0      0      0      0   
Rit. da inizio gioco:    1117   1544   1263   1425   1025   1094   1505   1543   1556   1298   1977   1152   1971   1268   2005   1092   1596   1017   1384   1186   
Esiti in  10 colpi a partire dal 27.09.2011  :  pos 02 ambo 33-54 al 3° clp. |33.54.67.65.45 |: 
================================================================================================================================================================

Ambi più  frequenti in ordine decrescente sulla ruota di - Cagliari - Dal 13.04.2005 al 24.09.2011 con 1000 estrazioni

Ambi presenti :         41.61  11.47  74.89  06.23  23.74  61.73  39.89  01.86  80.86  01.81  06.86  03.42  20.39  41.79  31.82  15.88  47.78  12.75  01.11  88.90  
Pres in range ricerca:     9      9      9      9      9      9      8      8      8      8      8      8      8      8      8      8      8      8      8      8    
Rit. da inizio gioco:     26    226    143     38    180    282    290     85    116    144    355     35    435     26     14    215    175     20     23    283    
Esiti in  10 colpi a dal 27.09.2011  :  pos 04 ambo 06-23 al 3° clp. |55.23.58.06.71 |:  pos 20 ambo 88-90 al 8° clp. |37.70.25.88.90 |: 
						_________    _________    _________    __________    _________    _________

Ambi neno frequenti in ordine crescente sulla ruota di - Cagliari - Dal 13.04.2005 al 24.09.2011 con 1000 estrazioni

Ambi presenti :         05-72  75-78  05-74  75-76  05-77  04-87  40-45  47-49  04-42  39-84  46-88  19-66  19-67  27-60  27-57  27-59  75-84  05-51  05-63  05-48  
Pres in range ricerca:      0      0      0      0      0      0      0      0      0      0      0      0      0      0      0      0      0      0      0      0   
Rit. da inizio gioco:    1254   1090   1369   1252   1256   1145   1260   1055   1316   1043   1246   1429   1143   1130   1050   1132   1043   2325   1208   1159   
Esiti in  10 colpi a partire dal 27.09.2011  : 
================================================================================================================================================================

Ambi più  frequenti in ordine decrescente sulla ruota di - Firenze - Dal 13.04.2005 al 24.09.2011 con 1000 estrazioni

Ambi presenti :         09.14  10.75  79.89  49.90  32.74  01.81  02.27  29.76  30.69  02.08  09.63  07.24  48.86  07.68  19.68  02.82  29.82  08.57  32.36  08.25  
Pres in range ricerca:     9      9      8      8      8      8      8      8      8      8      8      8      8      8      8      7      7      7      7      7    
Rit. da inizio gioco:     20     24    419     67    214    151    128    228     16     81    178    240    157     47     56     99     41     77    129

arcor · 11 Novembre 2011

CIAO BLACK COMPLIMENTI PER QUESTO TUO ULTIMO LAVORO A DIR POCO ECCEZIONALE GRAZIE MILLE X AVERLO CONDIVISO PROPRIO UNO SCRIPT DA COLLEZIONE!!!!

by arcor

kabb77 · 11 Novembre 2011

ciao black, complimenti anche da parte mia veramente bello questo metodo !!!

mauro kabb77

pigi · 11 Novembre 2011

CIAO BLACK
SEI UNA MINIERA DI IDEE ,GRAZIE PER QUELLO CHE FAI .

Giorgio

giorgio's

barattolo · 12 Novembre 2011

quote:Originally posted by barattolo

quote:Originally posted by claudio8

ECCOLO

Codice:

Ambi più  frequenti in ordine decrescente sulla ruota di - Bari - Dal 13.04.2005 al 24.09.2011 con 1000 estrazioni

Ambi presenti :         15.84  18.34  51.89  14.23  47.85  32.82  43.90  49.75  15.48  05.73  21.28  53.66  21.90  47.70  38.89  20.75  05.27  73.79  20.80  73.81  
Pres in range ricerca:     9      9      9      9      8      8      8      8      8      8      8      8      8      8      7      7      7      7      7      7    
Rit. da inizio gioco:     25     77      1      0     15     24      6    483    101     65    196     22      6    200    139      2    120      5     32    120    
Esiti in  10 colpi a dal 27.09.2011  : 
						_________    _________    _________    __________    _________    _________

Ambi neno frequenti in ordine crescente sulla ruota di - Bari - Dal 13.04.2005 al 24.09.2011 con 1000 estrazioni

Ambi presenti :         52-71  33-54  52-75  52-72  31-63  34-39  52-62  32-46  33-39  29-42  26-41  55-85  25-44  25-51  55-84  25-83  56-67  56-59  25-82  34-56  
Pres in range ricerca:      0      0      0      0      0      0      0      0      0      0      0      0      0      0      0      0      0      0      0      0   
Rit. da inizio gioco:    1117   1544   1263   1425   1025   1094   1505   1543   1556   1298   1977   1152   1971   1268   2005   1092   1596   1017   1384   1186   
Esiti in  10 colpi a partire dal 27.09.2011  :  pos 02 ambo 33-54 al 3° clp. |33.54.67.65.45 |: 
================================================================================================================================================================

Ambi più  frequenti in ordine decrescente sulla ruota di - Cagliari - Dal 13.04.2005 al 24.09.2011 con 1000 estrazioni

Ambi presenti :         41.61  11.47  74.89  06.23  23.74  61.73  39.89  01.86  80.86  01.81  06.86  03.42  20.39  41.79  31.82  15.88  47.78  12.75  01.11  88.90  
Pres in range ricerca:     9      9      9      9      9      9      8      8      8      8      8      8      8      8      8      8      8      8      8      8    
Rit. da inizio gioco:     26    226    143     38    180    282    290     85    116    144    355     35    435     26     14    215    175     20     23    283    
Esiti in  10 colpi a dal 27.09.2011  :  pos 04 ambo 06-23 al 3° clp. |55.23.58.06.71 |:  pos 20 ambo 88-90 al 8° clp. |37.70.25.88.90 |: 
						_________    _________    _________    __________    _________    _________

Ambi neno frequenti in ordine crescente sulla ruota di - Cagliari - Dal 13.04.2005 al 24.09.2011 con 1000 estrazioni

Ambi presenti :         05-72  75-78  05-74  75-76  05-77  04-87  40-45  47-49  04-42  39-84  46-88  19-66  19-67  27-60  27-57  27-59  75-84  05-51  05-63  05-48  
Pres in range ricerca:      0      0      0      0      0      0      0      0      0      0      0      0      0      0      0      0      0      0      0      0   
Rit. da inizio gioco:    1254   1090   1369   1252   1256   1145   1260   1055   1316   1043   1246   1429   1143   1130   1050   1132   1043   2325   1208   1159   
Esiti in  10 colpi a partire dal 27.09.2011  : 
================================================================================================================================================================

Ambi più  frequenti in ordine decrescente sulla ruota di - Firenze - Dal 13.04.2005 al 24.09.2011 con 1000 estrazioni

Ambi presenti :         09.14  10.75  79.89  49.90  32.74  01.81  02.27  29.76  30.69  02.08  09.63  07.24  48.86  07.68  19.68  02.82  29.82  08.57  32.36  08.25  
Pres in range ricerca:     9      9      8      8      8      8      8      8      8      8      8      8      8      8      8      7      7      7      7

Antonin · 12 Novembre 2011

Complimenti per il metodo Balckmore,anche la statistica di Claudio sembra interessante.

Antonio1

Baffoblu · 21 Novembre 2011

Very good

Roby · 30 Novembre 2011

beppe401 · 30 Novembre 2011

numero spia 31

numero spia 31

Sub Main()
Dim poste(5)
Dim ruote(10)
Dim numeri(10)
Dim ruota(10)

For n = EstrazioneFin - 25 To EstrazioneFin
Messaggio "Estrazione esaminata: " & CStr

'per sapere a che punto sto

ng = 0
For r = 1 To 10
For i = 1 To 5

If Estratto(n,r,i) = 31 Then

a = Estratto(n,r,i)

ng = 0
Scrivi "----------------------------------------------------------"
ColoreTesto 2
Scrivi NomeRuota(r) & " " & CInt(a),True
ColoreTesto 0
Scrivi "----------------------------------------------------------"

ng = ng + 1
Erase poste
Erase numeri
Erase ruote
numeri(1) = 19
' numeri(2)=09
ruote(1) = 1
'ruote(2)=rr
poste(1) = 1
ImpostaGiocata ng,numeri,ruote,poste,6

ng = ng + 1
Erase poste
Erase numeri
Erase ruote
numeri(1) = 19
numeri(2) = 53
ruote(1) = 1
'ruote(2)=rr
poste(2) = 1
ImpostaGiocata ng,numeri,ruote,poste,6
ng = ng + 1
Erase poste
Erase numeri
Erase ruote
numeri(1) = 19
numeri(2) = 53
numeri(3) = 83
ruote(1) = 1
'ruote(2)=rr
poste(3) = 1
ImpostaGiocata ng,numeri,ruote,poste,6

End If

Next
Next

Gioca n

Next

ScriviResoconto

End Sub

joi_lotto · 30 Novembre 2011

Ciao Blackmore, come faccio a verificare il tuo metodo, non dirmi con il copia e incolla,mi da errore riga25 k=1
Grazie
joi.

Roby · 30 Novembre 2011

joi_lotto ha scritto:
Ciao Blackmore, come faccio a verificare il tuo metodo, non dirmi con il copia e incolla,mi da errore riga25 k=1
Grazie
joi.

Joi non so che dirti, tra l'altro appaiono gli smile che sballano tutto lo script, aspettiamo qualche giorno per vedere se si sistema il tutto
ho provato a modificarlo ma mi appare mezzo script, boohhhhh
comunque l'ambata in corso è il 5, ancora 5 estrazioni
ciao

Baffoblu · 30 Novembre 2011

Blackmore ha scritto:
Joi non so che dirti, tra l'altro appaiono gli smile che sballano tutto lo script, aspettiamo qualche giorno per vedere se si sistema il tutto
ho provato a modificarlo ma mi appare mezzo script, boohhhhh
comunque l'ambata in corso è il 5, ancora 5 estrazioni
ciao

Ciao Blackmore

La faccenda delle faccine e risolvibile stando attenti a digitare, perchè alcune particolari combinazione di caratteri
vengono convertite automaticamente in faccine.

Io non riesco a trovarmi lo script tuo originale, ma ho quello che ho modificato con gli abbinamenti,
valido solo per quest'ultima previsione dove l'ambata è il 5.

Questo è lo script :

Codice:

Sub Main()
	ColoreTesto 1
	Scrivi "========= M E T O DI    B Y    B L A C K M O R E ========",1
	ColoreTesto 0
	Scrivi "============= 1 AMBATA SECCA DOPO AMBO SPIA =============",1
	ColoreTesto 2
	Scrivi "============= Modifica per ambata in corso ==============",1
	ColoreTesto 1
	Scrivi "=============     BY    B A F F O B L U    ==============",1
	ColoreTesto 2
	Scrivi "====== 8 numeri da abbinare all'ambata 5 in corso =======",1
	ColoreTesto 0
	Scrivi "======================== B A R I ========================",1
	ColoreTesto 1
	Scrivi "== INIZIO RICERCA 02/01/2009 = FINE RICERCA: 30/07/2011 ==",1
	Scrivi
	ColoreTesto 0
	' CON L'AMBATA 5 IN CORSO POTETE ABBINARE GLI 8 NUMERI PER FARE 8 AMBI SECCHI.
	' OPPURE GIOCARE LA LUNGHETTA PER AMBO E LE SORTI MAGGIORI.
	' GUARDATE SOLO LE SORTITE DEL NUMERO 5 CON GLI ABBINAMENTI.
	' prudenza perchè sono metodi sommativi e non si sa mai.
	Dim ruote(1)
	Dim Num(9)
	Dim poste(10)
	poste(2) = 10
	poste(3) = 5
	poste(4) = 1
	poste(5) = 1
	clp = 9
	ini = EstrazioneFin - 409
	fin = EstrazioneFin
	co = 0
	For es = ini To fin
		Messaggio es
		ruote(1) = 1
		For p = 1 To 4
			For p1 = p + 1 To 5
				a = Estratto(es,1,p)
				b = Estratto(es,1,p1)
				'-------------------------------------------------------------------
				ok = 0
				If a = 05 And b = 11 Or a = 11 And b = 05 Then
					Num(1) = Fuori90(Estratto(es,1,3) + 21)
					ok = 1
				End If
				If a = 01 And b = 23 Or a = 23 And b = 01 Then
					Num(1) = Fuori90(Estratto(es,1,4) + 32)
					ok = 1
				End If
				If a = 11 And b = 16 Or a = 16 And b = 11 Then
					Num(1) = Fuori90(Estratto(es,1,4) + 84)
					Num(2) = Fuori90(Estratto(es,1,1) + 87)
					Num(3) = Fuori90(Estratto(es,1,2) + 88)
					Num(4) = Fuori90(Estratto(es,1,2) + 76)
					Num(5) = Fuori90(Estratto(es,1,2) + 10)
					Num(6) = Fuori90(Estratto(es,1,2) + 41)
					Num(7) = Fuori90(Estratto(es,1,2) + 57)
					Num(8) = Fuori90(Estratto(es,1,3) + 39)
					Num(9) = Fuori90(Estratto(es,1,5) + 63)
					ok = 1
				End If
				If a = 60 And b = 61 Or a = 61 And b = 60 Then
					Num(1) = Fuori90(Estratto(es,1,4) + 27)
					ok = 1
				End If
				If a = 08 And b = 41 Or a = 41 And b = 08 Then
					Num(1) = Fuori90(Estratto(es,1,4) + 87)
					Num(2) = Fuori90(Estratto(es,1,1) + 87)
					Num(3) = Fuori90(Estratto(es,1,2) + 88)
					Num(4) = Fuori90(Estratto(es,1,2) + 76)
					Num(5) = Fuori90(Estratto(es,1,2) + 10)
					Num(6) = Fuori90(Estratto(es,1,2) + 41)
					Num(7) = Fuori90(Estratto(es,1,2) + 57)
					Num(8) = Fuori90(Estratto(es,1,3) + 39)
					Num(9) = Fuori90(Estratto(es,1,5) + 63)
					ok = 1
				End If
				If a = 38 And b = 51 Or a = 51 And b = 38 Then
					Num(1) = Fuori90(Estratto(es,1,4) + 71)
					Num(2) = Fuori90(Estratto(es,1,1) + 87)
					Num(3) = Fuori90(Estratto(es,1,2) + 88)
					Num(4) = Fuori90(Estratto(es,1,2) + 76)
					Num(5) = Fuori90(Estratto(es,1,2) + 10)
					Num(6) = Fuori90(Estratto(es,1,2) + 41)
					Num(7) = Fuori90(Estratto(es,1,2) + 57)
					Num(8) = Fuori90(Estratto(es,1,3) + 39)
					Num(9) = Fuori90(Estratto(es,1,5) + 63)
					ok = 1
				End If
				If a = 56 And b = 64 Or a = 64 And b = 56 Then
					Num(1) = Fuori90(Estratto(es,1,3) + 17)
					ok = 1
				End If
				If a = 34 And b = 48 Or a = 48 And b = 34 Then
					Num(1) = Fuori90(Estratto(es,1,2) + 63)
					ok = 1
				End If
				If a = 15 And b = 48 Or a = 48 And b = 15 Then
					Num(1) = Fuori90(Estratto(es,1,1) + 50)
					ok = 1
				End If
				If a = 11 And b = 81 Or a = 81 And b = 11 Then
					Num(1) = Fuori90(Estratto(es,1,2) + 72)
					ok = 1
				End If
				If a = 05 And b = 46 Or a = 46 And b = 05 Then
					Num(1) = Fuori90(Estratto(es,1,5) + 19)
					ok = 1
				End If
				If a = 19 And b = 84 Or a = 84 And b = 19 Then
					Num(1) = Fuori90(Estratto(es,1,4) + 78)
					ok = 1
				End If
				If a = 15 And b = 27 Or a = 27 And b = 15 Then
					Num(1) = Fuori90(Estratto(es,1,5) + 83)
					ok = 1
				End If
				If a = 57 And b = 87 Or a = 87 And b = 57 Then
					Num(1) = Fuori90(Estratto(es,1,2) + 61)
					ok = 1
				End If
				If a = 37 And b = 41 Or a = 41 And b = 37 Then
					Num(1) = Fuori90(Estratto(es,1,4) + 47)
					ok = 1
				End If
				If a = 59 And b = 83 Or a = 83 And b = 59 Then
					Num(1) = Fuori90(Estratto(es,1,2) + 15)
					ok = 1
				End If
				If a = 03 And b = 80 Or a = 80 And b = 03 Then
					Num(1) = Fuori90(Estratto(es,1,5) + 39)
					Num(2) = Fuori90(Estratto(es,1,1) + 87)
					Num(3) = Fuori90(Estratto(es,1,2) + 88)
					Num(4) = Fuori90(Estratto(es,1,2) + 76)
					Num(5) = Fuori90(Estratto(es,1,2) + 10)
					Num(6) = Fuori90(Estratto(es,1,2) + 41)
					Num(7) = Fuori90(Estratto(es,1,2) + 57)
					Num(8) = Fuori90(Estratto(es,1,3) + 39)
					Num(9) = Fuori90(Estratto(es,1,5) + 63)
					ok = 1
				End If
				If a = 69 And b = 88 Or a = 88 And b = 69 Then
					Num(1) = Fuori90(Estratto(es,1,2) + 81)
					Num(2) = Fuori90(Estratto(es,1,1) + 87)
					Num(3) = Fuori90(Estratto(es,1,2) + 88)
					Num(4) = Fuori90(Estratto(es,1,2) + 76)
					Num(5) = Fuori90(Estratto(es,1,2) + 10)
					Num(6) = Fuori90(Estratto(es,1,2) + 41)
					Num(7) = Fuori90(Estratto(es,1,2) + 57)
					Num(8) = Fuori90(Estratto(es,1,3) + 39)
					Num(9) = Fuori90(Estratto(es,1,5) + 63)
					ok = 1
				End If
				If a = 43 And b = 70 Or a = 70 And b = 43 Then
					Num(1) = Fuori90(Estratto(es,1,3) + 49)
					ok = 1
				End If
				If a = 12 And b = 33 Or a = 33 And b = 12 Then
					Num(1) = Fuori90(Estratto(es,1,3) + 52)
					ok = 1
				End If
				If a = 20 And b = 66 Or a = 66 And b = 20 Then
					Num(1) = Fuori90(Estratto(es,1,5) + 06)
					Num(2) = Fuori90(Estratto(es,1,1) + 87)
					Num(3) = Fuori90(Estratto(es,1,2) + 88)
					Num(4) = Fuori90(Estratto(es,1,2) + 76)
					Num(5) = Fuori90(Estratto(es,1,2) + 10)
					Num(6) = Fuori90(Estratto(es,1,2) + 41)
					Num(7) = Fuori90(Estratto(es,1,2) + 57)
					Num(8) = Fuori90(Estratto(es,1,3) + 39)
					Num(9) = Fuori90(Estratto(es,1,5) + 63)
					ok = 1
				End If
				If a = 20 And b = 80 Or a = 80 And b = 20 Then
					Num(1) = Fuori90(Estratto(es,1,5) + 37)
					ok = 1
				End If
				If a = 57 And b = 73 Or a = 73 And b = 57 Then
					Num(1) = Fuori90(Estratto(es,1,5) + 74)
					ok = 1
				End If
				If a = 14 And b = 15 Or a = 15 And b = 14 Then
					Num(1) = Fuori90(Estratto(es,1,1) + 09)
					ok = 1
				End If
				If a = 53 And b = 66 Or a = 66 And b = 53 Then
					Num(1) = Fuori90(Estratto(es,1,4) + 27)
					ok = 1
				End If
				If a = 43 And b = 47 Or a = 47 And b = 43 Then
					Num(1) = Fuori90(Estratto(es,1,2) + 23)
					ok = 1
				End If
				If a = 02 And b = 37 Or a = 37 And b = 02 Then
					Num(1) = Fuori90(Estratto(es,1,4) + 19)
					ok = 1
				End If
				If a = 07 And b = 45 Or a = 45 And b = 07 Then
					Num(1) = Fuori90(Estratto(es,1,3) + 83)
					ok = 1
				End If
				If a = 06 And b = 67 Or a = 67 And b = 06 Then
					Num(1) = Fuori90(Estratto(es,1,3) + 06)
					ok = 1
				End If
				If a = 36 And b = 66 Or a = 66 And b = 36 Then
					Num(1) = Fuori90(Estratto(es,1,1) + 58)
					ok = 1
				End If
				If a = 07 And b = 09 Or a = 09 And b = 07 Then
					Num(1) = Fuori90(Estratto(es,1,3) + 12)
					ok = 1
				End If
				If a = 11 And b = 56 Or a = 56 And b = 11 Then
					Num(1) = Fuori90(Estratto(es,1,3) + 06)
					ok = 1
				End If
				If a = 07 And b = 08 Or a = 08 And b = 07 Then
					Num(1) = Fuori90(Estratto(es,1,3) + 76)
					ok = 1
				End If
				If a = 03 And b = 37 Or a = 37 And b = 03 Then
					Num(1) = Fuori90(Estratto(es,1,3) + 38)
					ok = 1
				End If
				If a = 20 And b = 33 Or a = 33 And b = 20 Then
					Num(1) = Fuori90(Estratto(es,1,3) + 11)
					ok = 1
				End If
				If a = 39 And b = 87 Or a = 87 And b = 39 Then
					Num(1) = Fuori90(Estratto(es,1,2) + 24)
					ok = 1
				End If
				If a = 11 And b = 46 Or a = 46 And b = 11 Then
					Num(1) = Fuori90(Estratto(es,1,1) + 35)
					ok = 1
				End If
				If a = 33 And b = 61 Or a = 61 And b = 33 Then
					Num(1) = Fuori90(Estratto(es,1,5) + 50)
					ok = 1
				End If
				If a = 43 And b = 68 Or a = 68 And b = 43 Then
					Num(1) = Fuori90(Estratto(es,1,2) + 21)
					ok = 1
				End If
				If a = 08 And b = 55 Or a = 55 And b = 08 Then
					Num(1) = Fuori90(Estratto(es,1,3) + 32)
					ok = 1
				End If
				If a = 73 And b = 81 Or a = 81 And b = 73 Then
					Num(1) = Fuori90(Estratto(es,1,4) + 52)
					ok = 1
				End If
				If a = 26 And b = 81 Or a = 81 And b = 26 Then
					Num(1) = Fuori90(Estratto(es,1,5) + 71)
					ok = 1
				End If
				If a = 26 And b = 85 Or a = 85 And b = 26 Then
					Num(1) = Fuori90(Estratto(es,1,2) + 56)
					ok = 1
				End If
				If a = 32 And b = 55 Or a = 55 And b = 32 Then
					Num(1) = Fuori90(Estratto(es,1,1) + 75)
					ok = 1
				End If
				If a = 03 And b = 41 Or a = 41 And b = 03 Then
					Num(1) = Fuori90(Estratto(es,1,3) + 27)
					ok = 1
				End If
				If a = 12 And b = 15 Or a = 15 And b = 12 Then
					Num(1) = Fuori90(Estratto(es,1,4) + 11)
					ok = 1
				End If
				If a = 12 And b = 17 Or a = 17 And b = 12 Then
					Num(1) = Fuori90(Estratto(es,1,3) + 67)
					ok = 1
				End If
				If a = 17 And b = 87 Or a = 87 And b = 17 Then
					Num(1) = Fuori90(Estratto(es,1,3) + 41)
					ok = 1
				End If
				If a = 46 And b = 87 Or a = 87 And b = 46 Then
					Num(1) = Fuori90(Estratto(es,1,2) + 06)
					ok = 1
				End If
				If a = 46 And b = 90 Or a = 90 And b = 46 Then
					Num(1) = Fuori90(Estratto(es,1,2) + 38)
					ok = 1
				End If
				If a = 16 And b = 33 Or a = 33 And b = 16 Then
					Num(1) = Fuori90(Estratto(es,1,2) + 59)
					ok = 1
				End If
				If a = 05 And b = 86 Or a = 86 And b = 05 Then
					Num(1) = Fuori90(Estratto(es,1,4) + 06)
					ok = 1
				End If
				If a = 20 And b = 86 Or a = 86 And b = 20 Then
					Num(1) = Fuori90(Estratto(es,1,5) + 16)
					ok = 1
				End If
				If a = 34 And b = 84 Or a = 84 And b = 34 Then
					Num(1) = Fuori90(Estratto(es,1,5) + 70)
					ok = 1
				End If
				If a = 19 And b = 35 Or a = 35 And b = 19 Then
					Num(1) = Fuori90(Estratto(es,1,3) + 35)
					ok = 1
				End If
				If a = 18 And b = 61 Or a = 61 And b = 18 Then
					Num(1) = Fuori90(Estratto(es,1,2) + 12)
					ok = 1
				End If
				If a = 61 And b = 83 Or a = 83 And b = 61 Then
					Num(1) = Fuori90(Estratto(es,1,4) + 34)
					Num(2) = Fuori90(Estratto(es,1,1) + 87)
					Num(3) = Fuori90(Estratto(es,1,2) + 88)
					Num(4) = Fuori90(Estratto(es,1,2) + 76)
					Num(5) = Fuori90(Estratto(es,1,2) + 10)
					Num(6) = Fuori90(Estratto(es,1,2) + 41)
					Num(7) = Fuori90(Estratto(es,1,2) + 57)
					Num(8) = Fuori90(Estratto(es,1,3) + 39)
					Num(9) = Fuori90(Estratto(es,1,5) + 63)
					ok = 1
				End If
				If a = 05 And b = 20 Or a = 20 And b = 05 Then
					Num(1) = Fuori90(Estratto(es,1,5) + 45)
					ok = 1
				End If
				If a = 11 And b = 51 Or a = 51 And b = 11 Then
					Num(1) = Fuori90(Estratto(es,1,4) + 45)
					ok = 1
				End If
				If a = 01 And b = 74 Or a = 74 And b = 01 Then
					Num(1) = Fuori90(Estratto(es,1,2) + 03)
					ok = 1
				End If
				If a = 09 And b = 74 Or a = 74 And b = 09 Then
					Num(1) = Fuori90(Estratto(es,1,2) + 49)
					ok = 1
				End If
				If a = 05 And b = 30 Or a = 30 And b = 05 Then
					Num(1) = Fuori90(Estratto(es,1,3) + 10)
					ok = 1
				End If
				If a = 05 And b = 73 Or a = 73 And b = 05 Then
					Num(1) = Fuori90(Estratto(es,1,3) + 23)
					ok = 1
				End If
				If a = 21 And b = 62 Or a = 62 And b = 21 Then
					Num(1) = Fuori90(Estratto(es,1,2) + 55)
					Num(2) = Fuori90(Estratto(es,1,1) + 87)
					Num(3) = Fuori90(Estratto(es,1,2) + 88)
					Num(4) = Fuori90(Estratto(es,1,2) + 76)
					Num(5) = Fuori90(Estratto(es,1,2) + 10)
					Num(6) = Fuori90(Estratto(es,1,2) + 41)
					Num(7) = Fuori90(Estratto(es,1,2) + 57)
					Num(8) = Fuori90(Estratto(es,1,3) + 39)
					Num(9) = Fuori90(Estratto(es,1,5) + 63)
					ok = 1
				End If
				If a = 43 And b = 83 Or a = 83 And b = 43 Then
					Num(1) = Fuori90(Estratto(es,1,5) + 07)
					Num(2) = Fuori90(Estratto(es,1,1) + 87)
					Num(3) = Fuori90(Estratto(es,1,2) + 88)
					Num(4) = Fuori90(Estratto(es,1,2) + 76)
					Num(5) = Fuori90(Estratto(es,1,2) + 10)
					Num(6) = Fuori90(Estratto(es,1,2) + 41)
					Num(7) = Fuori90(Estratto(es,1,2) + 57)
					Num(8) = Fuori90(Estratto(es,1,3) + 39)
					Num(9) = Fuori90(Estratto(es,1,5) + 63)
					ok = 1
				End If
				If a = 05 And b = 85 Or a = 85 And b = 05 Then
					Num(1) = Fuori90(Estratto(es,1,2) + 16)
					ok = 1
				End If
				If a = 57 And b = 77 Or a = 77 And b = 57 Then
					Num(1) = Fuori90(Estratto(es,1,2) + 09)
					ok = 1
				End If
				If a = 41 And b = 48 Or a = 48 And b = 41 Then
					Num(1) = Fuori90(Estratto(es,1,4) + 20)
					ok = 1
				End If
				If a = 03 And b = 88 Or a = 88 And b = 03 Then
					Num(1) = Fuori90(Estratto(es,1,2) + 57)
					ok = 1
				End If
				If a = 06 And b = 40 Or a = 40 And b = 06 Then
					Num(1) = Fuori90(Estratto(es,1,1) + 27)
					ok = 1
				End If
				If a = 05 And b = 77 Or a = 77 And b = 05 Then
					Num(1) = Fuori90(Estratto(es,1,1) + 86)
					ok = 1
				End If
				If a = 24 And b = 61 Or a = 61 And b = 24 Then
					Num(1) = Fuori90(Estratto(es,1,4) + 44)
					ok = 1
				End If
				If a = 62 And b = 73 Or a = 73 And b = 62 Then
					Num(1) = Fuori90(Estratto(es,1,3) + 59)
					ok = 1
				End If
				If a = 37 And b = 43 Or a = 43 And b = 37 Then
					Num(1) = Fuori90(Estratto(es,1,3) + 65)
					ok = 1
				End If
				If a = 18 And b = 90 Or a = 90 And b = 18 Then
					Num(1) = Fuori90(Estratto(es,1,5) + 80)
					ok = 1
				End If
				If a = 41 And b = 57 Or a = 57 And b = 41 Then
					Num(1) = Fuori90(Estratto(es,1,2) + 51)
					ok = 1
				End If
				If a = 18 And b = 38 Or a = 38 And b = 18 Then
					Num(1) = Fuori90(Estratto(es,1,3) + 28)
					ok = 1
				End If
				If a = 21 And b = 56 Or a = 56 And b = 21 Then
					Num(1) = Fuori90(Estratto(es,1,4) + 19)
					ok = 1
				End If
				If a = 14 And b = 83 Or a = 83 And b = 14 Then
					Num(1) = Fuori90(Estratto(es,1,3) + 53)
					ok = 1
				End If
				If a = 15 And b = 84 Or a = 84 And b = 15 Then
					Num(1) = Fuori90(Estratto(es,1,4) + 72)
					ok = 1
				End If
				If a = 24 And b = 65 Or a = 65 And b = 24 Then
					Num(1) = Fuori90(Estratto(es,1,3) + 02)
					ok = 1
				End If
				If a = 37 And b = 87 Or a = 87 And b = 37 Then
					Num(1) = Fuori90(Estratto(es,1,2) + 77)
					ok = 1
				End If
				If a = 01 And b = 06 Or a = 06 And b = 01 Then
					Num(1) = Fuori90(Estratto(es,1,2) + 34)
					ok = 1
				End If
				If a = 64 And b = 68 Or a = 68 And b = 64 Then
					Num(1) = Fuori90(Estratto(es,1,4) + 82)
					ok = 1
				End If
				'-------------------------------------------------------------------
				If ok = 1 And Num(1) = 5 Then
					co = co + 1
					Scrivi String(70,"°") & " Caso n°" & co,1
					Scrivi DataEstrazione(es) & " " & SiglaRuota(1) & " " & StringaEstratti(es,1) & "    AMBO SPIA BY BLACK:   " & a & " - " & b,1
					Scrivi String(70,"°"),1
					ruote(1) = 1
					cg = 0
					cg = cg + 1
					ImpostaGiocata cg,Num,ruote,poste,clp
					Gioca es
				End If
			Next
		Next
	Next
	TestoInBandaPassante " *****  MODIFICHE   LISTATO   BY   B A F F O B L U  ***** ",1,3,0
	ScriviResoconto
End Sub

MEGA RACCOLTA "SCRIPT"

Super member

Roby

Guest

Super member

Roby

Guest

Premium Member

Super member

Advanced Member >PLATINUM PLUS<

Roby

Guest

Senior Member

Advanced Member

Super member

Advanced Member >PLATINUM<

Senior Member

Super Member >PLATINUM<

Baffoblu

Guest

Roby

Guest

Junior Member

Super Member >PLATINUM<

Roby

Guest

Baffoblu

Guest