X SCRIPTERS ESPERTI

[lotto_tom75]

non riesco!

Tranquillo!
Aspe.. ci provo io...

GRAZIE Mike58!!!

 

[lotto_tom75]

Ciao Lotto_tom75, leggendo in qualche modo la richiesta e vedendovi un po' disguisire sull'obiettivo che si deve raggiungere ci possono essere 2 modi per raggiungere l'obiettivo.

1 - leggere bene la guida impostaGiocata, infatti dice quanti colpi giocare e quanti colpi posso attendere prima di mettere in gioco la previsione.
infatti se io voglio attendere 26 colpi e giocare 4 colpi (26+4= 30) basta metterlo nell'impostagiocata.

Call ImpostaGiocata(1,Numeri,Ruota,Posta,4,1,26) ' dove 4 sono i colpi di gioco, 1- sorte interruzione,26- colpi di attesa.

oppure

2 - mettere ad ogni imposta giocata la condizione if seriefreq
n(1) = n1
n(2) = n2
EliminaRipetuti n
If SerieFreq(es-26,es,n,ruota,1) > 0 Then
Scrivi " giocata 1 non valida "
Else
Call ImpostaGiocata (1,n,ruota,posta,4,1)
End If
in modo che la condizione se sortita prima non venga rilevata da giocare.

Resta inteso che si può giostare come si vuole in entrambi i casi.

P.s. Mi scuso con Disaronno per aver invaso il suo immenso lavoro, dicendo anche che mi ero ripromesso di non intervenire + sui post di richieste, il mio intervento è solo mirato affinchè si leggano meglio i codici vbscript che il magnifico Luigi(che saluto) ci ha messo a disposizione.

Non c'è verso provato e riprovato ad implementare il tuo codice "ottimizzante" mike58 ma nulla da fare a me lo script continua a segnalarmi sempre in corso per altre 30 estrazioni ecc... senza evidenziarmi solo quelle con 4 o meno colpi rimanenti... Ti chiedo e credo che desperaux sia d'accordo con me di implementarlo tu dentro lo script di disaronno! grazie fin d'ora e mi associo ai saluti per il Gran Maestro Luigiiiiiiiii !!!

 

[Mike58]

ciao Lotto_tom75, dovrebbe essere cosi.
Purtroppo non ho molto tempo per la verifica...... devo scappare.

Sub Main()
Scrivi " X SCRIPTERS ESPERTI, by Lotto_tom75 - http://forum.lottoced.com/f12/x-scripters-esperti-104998/ - "
Dim n(2),an(2),bn(2),cn(2),dn(2),ruota(1),posta(1)
attesa = CInt(InputBox("QUALE ATTESA GIOCATA",,26))
posta(1) = 1
ruota(1) = TO_
k = 30
ini = EstrazioneFin - 33
fin = EstrazioneFin
For es = ini To fin
Messaggio(es)
AvanzamentoElab ini,fin,es
For r = 1 To 11
If r = 11 Then r = 12
For p = 1 To 4
a = Estratto(es,r,p)

'-------------------ruota Bari


If Decina(a) = 00 And r = BA_ Then n1 = Fuori90(Estratto(es,BA_,1) + 14): n2 = Fuori90(Estratto(es,BA_,1) + 55): an1 = Fuori90(Estratto(es,BA_,2) + 62): an2 = Fuori90(Estratto(es,BA_,2) + 64)_
:bn1 = Fuori90(Estratto(es,BA_,3) + 10):bn2 = Fuori90(Estratto(es,BA_,3) + 76): cn1 = Fuori90(Estratto(es,BA_,4) + 27):cn2 = Fuori90(Estratto(es,BA_,4) + 39):dn1 = Fuori90(Estratto(es,BA_,5) + 40)_
:dn2 = Fuori90(Estratto(es,BA_,5) + 52):ruota(1) = TO_:ok = 1
If Decina(a) = 01 And r = BA_ Then n1 = Fuori90(Estratto(es,BA_,1) + 24): n2 = Fuori90(Estratto(es,BA_,1) + 36): an1 = Fuori90(Estratto(es,BA_,2) + 13): an2 = Fuori90(Estratto(es,BA_,2) + 67)_
:bn1 = Fuori90(Estratto(es,BA_,3) + 12):bn2 = Fuori90(Estratto(es,BA_,3) + 81): cn1 = Fuori90(Estratto(es,BA_,4) + 27):cn2 = Fuori90(Estratto(es,BA_,4) + 53):dn1 = Fuori90(Estratto(es,BA_,5) + 19)_
:dn2 = Fuori90(Estratto(es,BA_,5) + 25):ruota(1) = TO_:ok = 1
If Decina(a) = 02 And r = BA_ Then n1 = Fuori90(Estratto(es,BA_,1) + 04): n2 = Fuori90(Estratto(es,BA_,1) + 49): an1 = Fuori90(Estratto(es,BA_,2) + 07): an2 = Fuori90(Estratto(es,BA_,2) + 53)_
:bn1 = Fuori90(Estratto(es,BA_,3) + 43):bn2 = Fuori90(Estratto(es,BA_,3) + 70): cn1 = Fuori90(Estratto(es,BA_,4) + 11):cn2 = Fuori90(Estratto(es,BA_,4) + 23):dn1 = Fuori90(Estratto(es,BA_,5) + 05)_
:dn2 = Fuori90(Estratto(es,BA_,5) + 60):ruota(1) = TO_:ok = 1
If Decina(a) = 03 And r = BA_ Then n1 = Fuori90(Estratto(es,BA_,1) + 05): n2 = Fuori90(Estratto(es,BA_,1) + 12): an1 = Fuori90(Estratto(es,BA_,2) + 04): an2 = Fuori90(Estratto(es,BA_,2) + 62)_
:bn1 = Fuori90(Estratto(es,BA_,3) + 02):bn2 = Fuori90(Estratto(es,BA_,3) + 18): cn1 = Fuori90(Estratto(es,BA_,4) + 08):cn2 = Fuori90(Estratto(es,BA_,4) + 28):dn1 = Fuori90(Estratto(es,BA_,5) + 08)_
:dn2 = Fuori90(Estratto(es,BA_,5) + 66):ruota(1) = TO_:ok = 1
If Decina(a) = 04 And r = BA_ Then n1 = Fuori90(Estratto(es,BA_,1) + 04): n2 = Fuori90(Estratto(es,BA_,1) + 74): an1 = Fuori90(Estratto(es,BA_,2) + 45): an2 = Fuori90(Estratto(es,BA_,2) + 74)_
:bn1 = Fuori90(Estratto(es,BA_,3) + 24):bn2 = Fuori90(Estratto(es,BA_,3) + 45): cn1 = Fuori90(Estratto(es,BA_,4) + 50):cn2 = Fuori90(Estratto(es,BA_,4) + 68):dn1 = Fuori90(Estratto(es,BA_,5) + 17)_
:dn2 = Fuori90(Estratto(es,BA_,5) + 62):ruota(1) = TO_:ok = 1
If Decina(a) = 05 And r = BA_ Then n1 = Fuori90(Estratto(es,BA_,1) + 01): n2 = Fuori90(Estratto(es,BA_,1) + 64): an1 = Fuori90(Estratto(es,BA_,2) + 09): an2 = Fuori90(Estratto(es,BA_,2) + 15)_
:bn1 = Fuori90(Estratto(es,BA_,3) + 29):bn2 = Fuori90(Estratto(es,BA_,3) + 86): cn1 = Fuori90(Estratto(es,BA_,4) + 03):cn2 = Fuori90(Estratto(es,BA_,4) + 26):dn1 = Fuori90(Estratto(es,BA_,5) + 27)_
:dn2 = Fuori90(Estratto(es,BA_,5) + 83):ruota(1) = TO_:ok = 1
If Decina(a) = 06 And r = BA_ Then n1 = Fuori90(Estratto(es,BA_,1) + 01): n2 = Fuori90(Estratto(es,BA_,1) + 18): an1 = Fuori90(Estratto(es,BA_,2) + 31): an2 = Fuori90(Estratto(es,BA_,2) + 49)_
:bn1 = Fuori90(Estratto(es,BA_,3) + 15):bn2 = Fuori90(Estratto(es,BA_,3) + 26): cn1 = Fuori90(Estratto(es,BA_,4) + 08):cn2 = Fuori90(Estratto(es,BA_,4) + 37):dn1 = Fuori90(Estratto(es,BA_,5) + 14)_
:dn2 = Fuori90(Estratto(es,BA_,5) + 59):ruota(1) = TO_:ok = 1
If Decina(a) = 07 And r = BA_ Then n1 = Fuori90(Estratto(es,BA_,1) + 09): n2 = Fuori90(Estratto(es,BA_,1) + 14): an1 = Fuori90(Estratto(es,BA_,2) + 37): an2 = Fuori90(Estratto(es,BA_,2) + 77)_
:bn1 = Fuori90(Estratto(es,BA_,3) + 07):bn2 = Fuori90(Estratto(es,BA_,3) + 87): cn1 = Fuori90(Estratto(es,BA_,4) + 64):cn2 = Fuori90(Estratto(es,BA_,4) + 89):dn1 = Fuori90(Estratto(es,BA_,5) + 02)_
:dn2 = Fuori90(Estratto(es,BA_,5) + 27):ruota(1) = TO_:ok = 1    
If Decina(a) = 08 And r = BA_ Then n1 = Fuori90(Estratto(es,BA_,1) + 51): n2 = Fuori90(Estratto(es,BA_,1) + 67): an1 = Fuori90(Estratto(es,BA_,2) + 18): an2 = Fuori90(Estratto(es,BA_,2) + 33)_
:bn1 = Fuori90(Estratto(es,BA_,3) + 44):bn2 = Fuori90(Estratto(es,BA_,3) + 89): cn1 = Fuori90(Estratto(es,BA_,4) + 30):cn2 = Fuori90(Estratto(es,BA_,4) + 68):dn1 = Fuori90(Estratto(es,BA_,5) + 01)_
:dn2 = Fuori90(Estratto(es,BA_,5) + 31):ruota(1) = TO_:ok = 1    


'-------------------ruota Cagliari



If Decina(a) = 00 And r = CA_ Then n1 = Fuori90(Estratto(es,CA_,1) + 01): n2 = Fuori90(Estratto(es,CA_,1) + 48): an1 = Fuori90(Estratto(es,CA_,2) + 16): an2 = Fuori90(Estratto(es,CA_,2) + 21)_
:bn1 = Fuori90(Estratto(es,CA_,3) + 18):bn2 = Fuori90(Estratto(es,CA_,3) + 51): cn1 = Fuori90(Estratto(es,CA_,4) + 05):cn2 = Fuori90(Estratto(es,CA_,4) + 78):dn1 = Fuori90(Estratto(es,CA_,5) + 22)_
:dn2 = Fuori90(Estratto(es,CA_,5) + 43):ruota(1) = TO_:ok = 1
If Decina(a) = 01 And r = CA_ Then n1 = Fuori90(Estratto(es,CA_,1) + 43): n2 = Fuori90(Estratto(es,CA_,1) + 64): an1 = Fuori90(Estratto(es,CA_,2) + 01): an2 = Fuori90(Estratto(es,CA_,2) + 84)_
:bn1 = Fuori90(Estratto(es,CA_,3) + 06):bn2 = Fuori90(Estratto(es,CA_,3) + 33): cn1 = Fuori90(Estratto(es,CA_,4) + 15):cn2 = Fuori90(Estratto(es,CA_,4) + 68):dn1 = Fuori90(Estratto(es,CA_,5) + 09)_
:dn2 = Fuori90(Estratto(es,CA_,5) + 29):ruota(1) = TO_:ok = 1
If Decina(a) = 02 And r = CA_ Then n1 = Fuori90(Estratto(es,CA_,1) + 01): n2 = Fuori90(Estratto(es,CA_,1) + 21): an1 = Fuori90(Estratto(es,CA_,2) + 01): an2 = Fuori90(Estratto(es,CA_,2) + 48)_
:bn1 = Fuori90(Estratto(es,CA_,3) + 22):bn2 = Fuori90(Estratto(es,CA_,3) + 86): cn1 = Fuori90(Estratto(es,CA_,4) + 03):cn2 = Fuori90(Estratto(es,CA_,4) + 35):dn1 = Fuori90(Estratto(es,CA_,5) + 06)_
:dn2 = Fuori90(Estratto(es,CA_,5) + 70):ruota(1) = TO_:ok = 1
If Decina(a) = 03 And r = CA_ Then n1 = Fuori90(Estratto(es,CA_,1) + 02): n2 = Fuori90(Estratto(es,CA_,1) + 86): an1 = Fuori90(Estratto(es,CA_,2) + 02): an2 = Fuori90(Estratto(es,CA_,2) + 27)_
:bn1 = Fuori90(Estratto(es,CA_,3) + 01):bn2 = Fuori90(Estratto(es,CA_,3) + 65): cn1 = Fuori90(Estratto(es,CA_,4) + 10):cn2 = Fuori90(Estratto(es,CA_,4) + 50):dn1 = Fuori90(Estratto(es,CA_,5) + 01)_
:dn2 = Fuori90(Estratto(es,CA_,5) + 37):ruota(1) = TO_:ok = 1
If Decina(a) = 04 And r = CA_ Then n1 = Fuori90(Estratto(es,CA_,1) + 47): n2 = Fuori90(Estratto(es,CA_,1) + 86): an1 = Fuori90(Estratto(es,CA_,2) + 05): an2 = Fuori90(Estratto(es,CA_,2) + 81)_
:bn1 = Fuori90(Estratto(es,CA_,3) + 09):bn2 = Fuori90(Estratto(es,CA_,3) + 84): cn1 = Fuori90(Estratto(es,CA_,4) + 04):cn2 = Fuori90(Estratto(es,CA_,4) + 08):dn1 = Fuori90(Estratto(es,CA_,5) + 40)_
:dn2 = Fuori90(Estratto(es,CA_,5) + 85):ruota(1) = TO_:ok = 1
If Decina(a) = 05 And r = CA_ Then n1 = Fuori90(Estratto(es,CA_,1) + 09): n2 = Fuori90(Estratto(es,CA_,1) + 81): an1 = Fuori90(Estratto(es,CA_,2) + 07): an2 = Fuori90(Estratto(es,CA_,2) + 77)_
:bn1 = Fuori90(Estratto(es,CA_,3) + 01):bn2 = Fuori90(Estratto(es,CA_,3) + 71): cn1 = Fuori90(Estratto(es,CA_,4) + 01):cn2 = Fuori90(Estratto(es,CA_,4) + 56):dn1 = Fuori90(Estratto(es,CA_,5) + 65)_
:dn2 = Fuori90(Estratto(es,CA_,5) + 69):ruota(1) = TO_:ok = 1
If Decina(a) = 06 And r = CA_ Then n1 = Fuori90(Estratto(es,CA_,1) + 14): n2 = Fuori90(Estratto(es,CA_,1) + 74): an1 = Fuori90(Estratto(es,CA_,2) + 15): an2 = Fuori90(Estratto(es,CA_,2) + 19)_
:bn1 = Fuori90(Estratto(es,CA_,3) + 04):bn2 = Fuori90(Estratto(es,CA_,3) + 37): cn1 = Fuori90(Estratto(es,CA_,4) + 15):cn2 = Fuori90(Estratto(es,CA_,4) + 88):dn1 = Fuori90(Estratto(es,CA_,5) + 10)_
:dn2 = Fuori90(Estratto(es,CA_,5) + 48):ruota(1) = TO_:ok = 1
If Decina(a) = 07 And r = CA_ Then n1 = Fuori90(Estratto(es,CA_,1) + 34): n2 = Fuori90(Estratto(es,CA_,1) + 38): an1 = Fuori90(Estratto(es,CA_,2) + 09): an2 = Fuori90(Estratto(es,CA_,2) + 15)_
:bn1 = Fuori90(Estratto(es,CA_,3) + 10):bn2 = Fuori90(Estratto(es,CA_,3) + 56): cn1 = Fuori90(Estratto(es,CA_,4) + 03):cn2 = Fuori90(Estratto(es,CA_,4) + 35):dn1 = Fuori90(Estratto(es,CA_,5) + 09)_
:dn2 = Fuori90(Estratto(es,CA_,5) + 34):ruota(1) = TO_:ok = 1    
If Decina(a) = 08 And r = CA_ Then n1 = Fuori90(Estratto(es,CA_,1) + 35): n2 = Fuori90(Estratto(es,CA_,1) + 60): an1 = Fuori90(Estratto(es,CA_,2) + 39): an2 = Fuori90(Estratto(es,CA_,2) + 67)_
:bn1 = Fuori90(Estratto(es,CA_,3) + 22):bn2 = Fuori90(Estratto(es,CA_,3) + 59): cn1 = Fuori90(Estratto(es,CA_,4) + 45):cn2 = Fuori90(Estratto(es,CA_,4) + 49):dn1 = Fuori90(Estratto(es,CA_,5) + 05)_
:dn2 = Fuori90(Estratto(es,CA_,5) + 51):ruota(1) = TO_:ok = 1    

'-------------------ruota Firenze






If Decina(a) = 00 And r = FI_ Then n1 = Fuori90(Estratto(es,FI_,1) + 03): n2 = Fuori90(Estratto(es,FI_,1) + 84): an1 = Fuori90(Estratto(es,FI_,2) + 07): an2 = Fuori90(Estratto(es,FI_,2) + 31)_
:bn1 = Fuori90(Estratto(es,FI_,3) + 09):bn2 = Fuori90(Estratto(es,FI_,3) + 51): cn1 = Fuori90(Estratto(es,FI_,4) + 05):cn2 = Fuori90(Estratto(es,FI_,4) + 80):dn1 = Fuori90(Estratto(es,FI_,5) + 06)_
:dn2 = Fuori90(Estratto(es,FI_,5) + 88):ruota(1) = TO_:ok = 1
If Decina(a) = 01 And r = FI_ Then n1 = Fuori90(Estratto(es,FI_,1) + 03): n2 = Fuori90(Estratto(es,FI_,1) + 83): an1 = Fuori90(Estratto(es,FI_,2) + 09): an2 = Fuori90(Estratto(es,FI_,2) + 25)_
:bn1 = Fuori90(Estratto(es,FI_,3) + 60):bn2 = Fuori90(Estratto(es,FI_,3) + 72): cn1 = Fuori90(Estratto(es,FI_,4) + 35):cn2 = Fuori90(Estratto(es,FI_,4) + 67):dn1 = Fuori90(Estratto(es,FI_,5) + 05)_
:dn2 = Fuori90(Estratto(es,FI_,5) + 74):ruota(1) = TO_:ok = 1
If Decina(a) = 02 And r = FI_ Then n1 = Fuori90(Estratto(es,FI_,1) + 04): n2 = Fuori90(Estratto(es,FI_,1) + 52): an1 = Fuori90(Estratto(es,FI_,2) + 02): an2 = Fuori90(Estratto(es,FI_,2) + 31)_
:bn1 = Fuori90(Estratto(es,FI_,3) + 07):bn2 = Fuori90(Estratto(es,FI_,3) + 30): cn1 = Fuori90(Estratto(es,FI_,4) + 56):cn2 = Fuori90(Estratto(es,FI_,4) + 58):dn1 = Fuori90(Estratto(es,FI_,5) + 45)_
:dn2 = Fuori90(Estratto(es,FI_,5) + 51):ruota(1) = TO_:ok = 1
If Decina(a) = 03 And r = FI_ Then n1 = Fuori90(Estratto(es,FI_,1) + 34): n2 = Fuori90(Estratto(es,FI_,1) + 48): an1 = Fuori90(Estratto(es,FI_,2) + 15): an2 = Fuori90(Estratto(es,FI_,2) + 50)_
:bn1 = Fuori90(Estratto(es,FI_,3) + 02):bn2 = Fuori90(Estratto(es,FI_,3) + 89): cn1 = Fuori90(Estratto(es,FI_,4) + 30):cn2 = Fuori90(Estratto(es,FI_,4) + 67):dn1 = Fuori90(Estratto(es,FI_,5) + 02)_
:dn2 = Fuori90(Estratto(es,FI_,5) + 21):ruota(1) = TO_:ok = 1
If Decina(a) = 04 And r = FI_ Then n1 = Fuori90(Estratto(es,FI_,1) + 25): n2 = Fuori90(Estratto(es,FI_,1) + 80): an1 = Fuori90(Estratto(es,FI_,2) + 05): an2 = Fuori90(Estratto(es,FI_,2) + 56)_
:bn1 = Fuori90(Estratto(es,FI_,3) + 43):bn2 = Fuori90(Estratto(es,FI_,3) + 49): cn1 = Fuori90(Estratto(es,FI_,4) + 02):cn2 = Fuori90(Estratto(es,FI_,4) + 53):dn1 = Fuori90(Estratto(es,FI_,5) + 16)_
:dn2 = Fuori90(Estratto(es,FI_,5) + 59):ruota(1) = TO_:ok = 1
If Decina(a) = 05 And r = FI_ Then n1 = Fuori90(Estratto(es,FI_,1) + 35): n2 = Fuori90(Estratto(es,FI_,1) + 69): an1 = Fuori90(Estratto(es,FI_,2) + 10): an2 = Fuori90(Estratto(es,FI_,2) + 66)_
:bn1 = Fuori90(Estratto(es,FI_,3) + 74):bn2 = Fuori90(Estratto(es,FI_,3) + 89): cn1 = Fuori90(Estratto(es,FI_,4) + 28):cn2 = Fuori90(Estratto(es,FI_,4) + 31):dn1 = Fuori90(Estratto(es,FI_,5) + 29)_
:dn2 = Fuori90(Estratto(es,FI_,5) + 79):ruota(1) = TO_:ok = 1
If Decina(a) = 06 And r = FI_ Then n1 = Fuori90(Estratto(es,FI_,1) + 13): n2 = Fuori90(Estratto(es,FI_,1) + 58): an1 = Fuori90(Estratto(es,FI_,2) + 37): an2 = Fuori90(Estratto(es,FI_,2) + 40)_
:bn1 = Fuori90(Estratto(es,FI_,3) + 11):bn2 = Fuori90(Estratto(es,FI_,3) + 44): cn1 = Fuori90(Estratto(es,FI_,4) + 07):cn2 = Fuori90(Estratto(es,FI_,4) + 71):dn1 = Fuori90(Estratto(es,FI_,5) + 06)_
:dn2 = Fuori90(Estratto(es,FI_,5) + 79):ruota(1) = TO_:ok = 1
If Decina(a) = 07 And r = FI_ Then n1 = Fuori90(Estratto(es,FI_,1) + 16): n2 = Fuori90(Estratto(es,FI_,1) + 56): an1 = Fuori90(Estratto(es,FI_,2) + 06): an2 = Fuori90(Estratto(es,FI_,2) + 38)_
:bn1 = Fuori90(Estratto(es,FI_,3) + 10):bn2 = Fuori90(Estratto(es,FI_,3) + 50): cn1 = Fuori90(Estratto(es,FI_,4) + 08):cn2 = Fuori90(Estratto(es,FI_,4) + 14):dn1 = Fuori90(Estratto(es,FI_,5) + 29)_
:dn2 = Fuori90(Estratto(es,FI_,5) + 32):ruota(1) = TO_:ok = 1    
If Decina(a) = 08 And r = FI_ Then n1 = Fuori90(Estratto(es,FI_,1) + 01): n2 = Fuori90(Estratto(es,FI_,1) + 68): an1 = Fuori90(Estratto(es,FI_,2) + 45): an2 = Fuori90(Estratto(es,FI_,2) + 74)_
:bn1 = Fuori90(Estratto(es,FI_,3) + 41):bn2 = Fuori90(Estratto(es,FI_,3) + 88): cn1 = Fuori90(Estratto(es,FI_,4) + 09):cn2 = Fuori90(Estratto(es,FI_,4) + 32):dn1 = Fuori90(Estratto(es,FI_,5) + 29)_
:dn2 = Fuori90(Estratto(es,FI_,5) + 73):ruota(1) = TO_:ok = 1    


'-------------------ruota Genova


If Decina(a) = 00 And r = GE_ Then n1 = Fuori90(Estratto(es,GE_,1) + 16): n2 = Fuori90(Estratto(es,GE_,1) + 25): an1 = Fuori90(Estratto(es,GE_,2) + 48): an2 = Fuori90(Estratto(es,GE_,2) + 87)_
:bn1 = Fuori90(Estratto(es,GE_,3) + 03):bn2 = Fuori90(Estratto(es,GE_,3) + 49): cn1 = Fuori90(Estratto(es,GE_,4) + 19):cn2 = Fuori90(Estratto(es,GE_,4) + 40):dn1 = Fuori90(Estratto(es,GE_,5) + 03)_
:dn2 = Fuori90(Estratto(es,GE_,5) + 14):ruota(1) = TO_:ok = 1
If Decina(a) = 01 And r = GE_ Then n1 = Fuori90(Estratto(es,GE_,1) + 73): n2 = Fuori90(Estratto(es,GE_,1) + 74): an1 = Fuori90(Estratto(es,GE_,2) + 76): an2 = Fuori90(Estratto(es,GE_,2) + 88)_
:bn1 = Fuori90(Estratto(es,GE_,3) + 08):bn2 = Fuori90(Estratto(es,GE_,3) + 40): cn1 = Fuori90(Estratto(es,GE_,4) + 05):cn2 = Fuori90(Estratto(es,GE_,4) + 72):dn1 = Fuori90(Estratto(es,GE_,5) + 01)_
:dn2 = Fuori90(Estratto(es,GE_,5) + 55):ruota(1) = TO_:ok = 1
If Decina(a) = 02 And r = GE_ Then n1 = Fuori90(Estratto(es,GE_,1) + 16): n2 = Fuori90(Estratto(es,GE_,1) + 41): an1 = Fuori90(Estratto(es,GE_,2) + 10): an2 = Fuori90(Estratto(es,GE_,2) + 61)_
:bn1 = Fuori90(Estratto(es,GE_,3) + 15):bn2 = Fuori90(Estratto(es,GE_,3) + 65): cn1 = Fuori90(Estratto(es,GE_,4) + 06):cn2 = Fuori90(Estratto(es,GE_,4) + 26):dn1 = Fuori90(Estratto(es,GE_,5) + 06)_
:dn2 = Fuori90(Estratto(es,GE_,5) + 56):ruota(1) = TO_:ok = 1
If Decina(a) = 03 And r = GE_ Then n1 = Fuori90(Estratto(es,GE_,1) + 08): n2 = Fuori90(Estratto(es,GE_,1) + 87): an1 = Fuori90(Estratto(es,GE_,2) + 61): an2 = Fuori90(Estratto(es,GE_,2) + 62)_
:bn1 = Fuori90(Estratto(es,GE_,3) + 44):bn2 = Fuori90(Estratto(es,GE_,3) + 53): cn1 = Fuori90(Estratto(es,GE_,4) + 22):cn2 = Fuori90(Estratto(es,GE_,4) + 85):dn1 = Fuori90(Estratto(es,GE_,5) + 12)_
:dn2 = Fuori90(Estratto(es,GE_,5) + 81):ruota(1) = TO_:ok = 1
If Decina(a) = 04 And r = GE_ Then n1 = Fuori90(Estratto(es,GE_,1) + 05): n2 = Fuori90(Estratto(es,GE_,1) + 26): an1 = Fuori90(Estratto(es,GE_,2) + 29): an2 = Fuori90(Estratto(es,GE_,2) + 56)_
:bn1 = Fuori90(Estratto(es,GE_,3) + 64):bn2 = Fuori90(Estratto(es,GE_,3) + 68): cn1 = Fuori90(Estratto(es,GE_,4) + 15):cn2 = Fuori90(Estratto(es,GE_,4) + 42):dn1 = Fuori90(Estratto(es,GE_,5) + 06)_
:dn2 = Fuori90(Estratto(es,GE_,5) + 24):ruota(1) = TO_:ok = 1
If Decina(a) = 05 And r = GE_ Then n1 = Fuori90(Estratto(es,GE_,1) + 20): n2 = Fuori90(Estratto(es,GE_,1) + 82): an1 = Fuori90(Estratto(es,GE_,2) + 1): an2 = Fuori90(Estratto(es,GE_,2) + 28)_
:bn1 = Fuori90(Estratto(es,GE_,3) + 01):bn2 = Fuori90(Estratto(es,GE_,3) + 43): cn1 = Fuori90(Estratto(es,GE_,4) + 28):cn2 = Fuori90(Estratto(es,GE_,4) + 33):dn1 = Fuori90(Estratto(es,GE_,5) + 02)_
:dn2 = Fuori90(Estratto(es,GE_,5) + 37):ruota(1) = TO_:ok = 1
If Decina(a) = 06 And r = GE_ Then n1 = Fuori90(Estratto(es,GE_,1) + 30): n2 = Fuori90(Estratto(es,GE_,1) + 69): an1 = Fuori90(Estratto(es,GE_,2) + 01): an2 = Fuori90(Estratto(es,GE_,2) + 31)_
:bn1 = Fuori90(Estratto(es,GE_,3) + 21):bn2 = Fuori90(Estratto(es,GE_,3) + 24): cn1 = Fuori90(Estratto(es,GE_,4) + 42):cn2 = Fuori90(Estratto(es,GE_,4) + 75):dn1 = Fuori90(Estratto(es,GE_,5) + 66)_
:dn2 = Fuori90(Estratto(es,GE_,5) + 82):ruota(1) = TO_:ok = 1
If Decina(a) = 07 And r = GE_ Then n1 = Fuori90(Estratto(es,GE_,1) + 16): n2 = Fuori90(Estratto(es,GE_,1) + 48): an1 = Fuori90(Estratto(es,GE_,2) + 01): an2 = Fuori90(Estratto(es,GE_,2) + 27)_
:bn1 = Fuori90(Estratto(es,GE_,3) + 59):bn2 = Fuori90(Estratto(es,GE_,3) + 81): cn1 = Fuori90(Estratto(es,GE_,4) + 13):cn2 = Fuori90(Estratto(es,GE_,4) + 57):dn1 = Fuori90(Estratto(es,GE_,5) + 04)_
:dn2 = Fuori90(Estratto(es,GE_,5) + 68):ruota(1) = TO_:ok = 1    
If Decina(a) = 08 And r = GE_ Then n1 = Fuori90(Estratto(es,GE_,1) + 30): n2 = Fuori90(Estratto(es,GE_,1) + 51): an1 = Fuori90(Estratto(es,GE_,2) + 21): an2 = Fuori90(Estratto(es,GE_,2) + 78)_
:bn1 = Fuori90(Estratto(es,GE_,3) + 40):bn2 = Fuori90(Estratto(es,GE_,3) + 47): cn1 = Fuori90(Estratto(es,GE_,4) + 77):cn2 = Fuori90(Estratto(es,GE_,4) + 82):dn1 = Fuori90(Estratto(es,GE_,5) + 36)_
:dn2 = Fuori90(Estratto(es,GE_,5) + 52):ruota(1) = TO_:ok = 1    


'-------------------ruota Milano


If Decina(a) = 00 And r = MI_ Then n1 = Fuori90(Estratto(es,mA_,1) + 01): n2 = Fuori90(Estratto(es,MI_,1) + 10): an1 = Fuori90(Estratto(es,MI_,2) + 04): an2 = Fuori90(Estratto(es,MI_,2) + 88)_
:bn1 = Fuori90(Estratto(es,MI_,3) + 02):bn2 = Fuori90(Estratto(es,MI_,3) + 32): cn1 = Fuori90(Estratto(es,MI_,4) + 57):cn2 = Fuori90(Estratto(es,MI_,4) + 80):dn1 = Fuori90(Estratto(es,MI_,5) + 15)_
:dn2 = Fuori90(Estratto(es,MI_,5) + 32):ruota(1) = TO_:ok = 1
If Decina(a) = 01 And r = MI_ Then n1 = Fuori90(Estratto(es,mA_,1) + 19): n2 = Fuori90(Estratto(es,MI_,1) + 30): an1 = Fuori90(Estratto(es,MI_,2) + 35): an2 = Fuori90(Estratto(es,MI_,2) + 51)_
:bn1 = Fuori90(Estratto(es,MI_,3) + 23):bn2 = Fuori90(Estratto(es,MI_,3) + 73): cn1 = Fuori90(Estratto(es,MI_,4) + 03):cn2 = Fuori90(Estratto(es,MI_,4) + 35):dn1 = Fuori90(Estratto(es,MI_,5) + 11)_
:dn2 = Fuori90(Estratto(es,MI_,5) + 59):ruota(1) = TO_:ok = 1
If Decina(a) = 02 And r = MI_ Then n1 = Fuori90(Estratto(es,mA_,1) + 22): n2 = Fuori90(Estratto(es,MI_,1) + 73): an1 = Fuori90(Estratto(es,MI_,2) + 22): an2 = Fuori90(Estratto(es,MI_,2) + 66)_
:bn1 = Fuori90(Estratto(es,MI_,3) + 41):bn2 = Fuori90(Estratto(es,MI_,3) + 61): cn1 = Fuori90(Estratto(es,MI_,4) + 28):cn2 = Fuori90(Estratto(es,MI_,4) + 36):dn1 = Fuori90(Estratto(es,MI_,5) + 02)_
:dn2 = Fuori90(Estratto(es,MI_,5) + 20):ruota(1) = TO_:ok = 1
If Decina(a) = 03 And r = MI_ Then n1 = Fuori90(Estratto(es,mA_,1) + 10): n2 = Fuori90(Estratto(es,MI_,1) + 21): an1 = Fuori90(Estratto(es,MI_,2) + 08): an2 = Fuori90(Estratto(es,MI_,2) + 20)_
:bn1 = Fuori90(Estratto(es,MI_,3) + 43):bn2 = Fuori90(Estratto(es,MI_,3) + 51): cn1 = Fuori90(Estratto(es,MI_,4) + 03):cn2 = Fuori90(Estratto(es,MI_,4) + 58):dn1 = Fuori90(Estratto(es,MI_,5) + 13)_
:dn2 = Fuori90(Estratto(es,MI_,5) + 82):ruota(1) = TO_:ok = 1
If Decina(a) = 04 And r = MI_ Then n1 = Fuori90(Estratto(es,mA_,1) + 05): n2 = Fuori90(Estratto(es,MI_,1) + 11): an1 = Fuori90(Estratto(es,MI_,2) + 10): an2 = Fuori90(Estratto(es,MI_,2) + 60)_
:bn1 = Fuori90(Estratto(es,MI_,3) + 03):bn2 = Fuori90(Estratto(es,MI_,3) + 38): cn1 = Fuori90(Estratto(es,MI_,4) + 01):cn2 = Fuori90(Estratto(es,MI_,4) + 14):dn1 = Fuori90(Estratto(es,MI_,5) + 09)_
:dn2 = Fuori90(Estratto(es,MI_,5) + 23):ruota(1) = TO_:ok = 1
If Decina(a) = 05 And r = MI_ Then n1 = Fuori90(Estratto(es,mA_,1) + 03): n2 = Fuori90(Estratto(es,MI_,1) + 20): an1 = Fuori90(Estratto(es,MI_,2) + 08): an2 = Fuori90(Estratto(es,MI_,2) + 68)_
:bn1 = Fuori90(Estratto(es,MI_,3) + 06):bn2 = Fuori90(Estratto(es,MI_,3) + 31): cn1 = Fuori90(Estratto(es,MI_,4) + 01):cn2 = Fuori90(Estratto(es,MI_,4) + 66):dn1 = Fuori90(Estratto(es,MI_,5) + 04)_
:dn2 = Fuori90(Estratto(es,MI_,5) + 12):ruota(1) = TO_:ok = 1
If Decina(a) = 06 And r = MI_ Then n1 = Fuori90(Estratto(es,mA_,1) + 06): n2 = Fuori90(Estratto(es,MI_,1) + 27): an1 = Fuori90(Estratto(es,MI_,2) + 07): an2 = Fuori90(Estratto(es,MI_,2) + 11)_
:bn1 = Fuori90(Estratto(es,MI_,3) + 32):bn2 = Fuori90(Estratto(es,MI_,3) + 77): cn1 = Fuori90(Estratto(es,MI_,4) + 01):cn2 = Fuori90(Estratto(es,MI_,4) + 38):dn1 = Fuori90(Estratto(es,MI_,5) + 25)_
:dn2 = Fuori90(Estratto(es,MI_,5) + 40):ruota(1) = TO_:ok = 1
If Decina(a) = 07 And r = MI_ Then n1 = Fuori90(Estratto(es,mA_,1) + 09): n2 = Fuori90(Estratto(es,MI_,1) + 50): an1 = Fuori90(Estratto(es,MI_,2) + 11): an2 = Fuori90(Estratto(es,MI_,2) + 85)_
:bn1 = Fuori90(Estratto(es,MI_,3) + 01):bn2 = Fuori90(Estratto(es,MI_,3) + 06): cn1 = Fuori90(Estratto(es,MI_,4) + 31):cn2 = Fuori90(Estratto(es,MI_,4) + 64):dn1 = Fuori90(Estratto(es,MI_,5) + 11)_
:dn2 = Fuori90(Estratto(es,MI_,5) + 44):ruota(1) = TO_:ok = 1    
If Decina(a) = 08 And r = MI_ Then n1 = Fuori90(Estratto(es,mA_,1) + 06): n2 = Fuori90(Estratto(es,MI_,1) + 14): an1 = Fuori90(Estratto(es,MI_,2) + 33): an2 = Fuori90(Estratto(es,MI_,2) + 66)_
:bn1 = Fuori90(Estratto(es,MI_,3) + 07):bn2 = Fuori90(Estratto(es,MI_,3) + 89): cn1 = Fuori90(Estratto(es,MI_,4) + 01):cn2 = Fuori90(Estratto(es,MI_,4) + 02):dn1 = Fuori90(Estratto(es,MI_,5) + 38)_
:dn2 = Fuori90(Estratto(es,MI_,5) + 86):ruota(1) = TO_:ok = 1    



'-------------------ruota Napoli


If Decina(a) = 00 And r = NA_ Then n1 = Fuori90(Estratto(es,NA_,1) + 11): n2 = Fuori90(Estratto(es,NA_,1) + 46): an1 = Fuori90(Estratto(es,NA_,2) + 77): an2 = Fuori90(Estratto(es,NA_,2) + 82)_
:bn1 = Fuori90(Estratto(es,NA_,3) + 05):bn2 = Fuori90(Estratto(es,NA_,3) + 62): cn1 = Fuori90(Estratto(es,NA_,4) + 02):cn2 = Fuori90(Estratto(es,NA_,4) + 67):dn1 = Fuori90(Estratto(es,NA_,5) + 32)_
:dn2 = Fuori90(Estratto(es,NA_,5) + 64):ruota(1) = TO_:ok = 1
If Decina(a) = 01 And r = NA_ Then n1 = Fuori90(Estratto(es,NA_,1) + 20): n2 = Fuori90(Estratto(es,NA_,1) + 32): an1 = Fuori90(Estratto(es,NA_,2) + 17): an2 = Fuori90(Estratto(es,NA_,2) + 85)_
:bn1 = Fuori90(Estratto(es,NA_,3) + 02):bn2 = Fuori90(Estratto(es,NA_,3) + 35): cn1 = Fuori90(Estratto(es,NA_,4) + 40):cn2 = Fuori90(Estratto(es,NA_,4) + 47):dn1 = Fuori90(Estratto(es,NA_,5) + 03)_
:dn2 = Fuori90(Estratto(es,NA_,5) + 65):ruota(1) = TO_:ok = 1
If Decina(a) = 02 And r = NA_ Then n1 = Fuori90(Estratto(es,NA_,1) + 41): n2 = Fuori90(Estratto(es,NA_,1) + 60): an1 = Fuori90(Estratto(es,NA_,2) + 03): an2 = Fuori90(Estratto(es,NA_,2) + 11)_
:bn1 = Fuori90(Estratto(es,NA_,3) + 06):bn2 = Fuori90(Estratto(es,NA_,3) + 75): cn1 = Fuori90(Estratto(es,NA_,4) + 01):cn2 = Fuori90(Estratto(es,NA_,4) + 05):dn1 = Fuori90(Estratto(es,NA_,5) + 30)_
:dn2 = Fuori90(Estratto(es,NA_,5) + 88):ruota(1) = TO_:ok = 1
If Decina(a) = 03 And r = NA_ Then n1 = Fuori90(Estratto(es,NA_,1) + 06): n2 = Fuori90(Estratto(es,NA_,1) + 12): an1 = Fuori90(Estratto(es,NA_,2) + 04): an2 = Fuori90(Estratto(es,NA_,2) + 71)_
:bn1 = Fuori90(Estratto(es,NA_,3) + 38):bn2 = Fuori90(Estratto(es,NA_,3) + 89): cn1 = Fuori90(Estratto(es,NA_,4) + 12):cn2 = Fuori90(Estratto(es,NA_,4) + 82):dn1 = Fuori90(Estratto(es,NA_,5) + 01)_
:dn2 = Fuori90(Estratto(es,NA_,5) + 41):ruota(1) = TO_:ok = 1
If Decina(a) = 04 And r = NA_ Then n1 = Fuori90(Estratto(es,NA_,1) + 01): n2 = Fuori90(Estratto(es,NA_,1) + 68): an1 = Fuori90(Estratto(es,NA_,2) + 05): an2 = Fuori90(Estratto(es,NA_,2) + 50)_
:bn1 = Fuori90(Estratto(es,NA_,3) + 12):bn2 = Fuori90(Estratto(es,NA_,3) + 42): cn1 = Fuori90(Estratto(es,NA_,4) + 28):cn2 = Fuori90(Estratto(es,NA_,4) + 38):dn1 = Fuori90(Estratto(es,NA_,5) + 49)_
:dn2 = Fuori90(Estratto(es,NA_,5) + 56):ruota(1) = TO_:ok = 1
If Decina(a) = 05 And r = NA_ Then n1 = Fuori90(Estratto(es,NA_,1) + 08): n2 = Fuori90(Estratto(es,NA_,1) + 25): an1 = Fuori90(Estratto(es,NA_,2) + 82): an2 = Fuori90(Estratto(es,NA_,2) + 84)_
:bn1 = Fuori90(Estratto(es,NA_,3) + 39):bn2 = Fuori90(Estratto(es,NA_,3) + 43): cn1 = Fuori90(Estratto(es,NA_,4) + 24):cn2 = Fuori90(Estratto(es,NA_,4) + 52):dn1 = Fuori90(Estratto(es,NA_,5) + 34)_
:dn2 = Fuori90(Estratto(es,NA_,5) + 38):ruota(1) = TO_:ok = 1
If Decina(a) = 06 And r = NA_ Then n1 = Fuori90(Estratto(es,NA_,1) + 66): n2 = Fuori90(Estratto(es,NA_,1) + 68): an1 = Fuori90(Estratto(es,NA_,2) + 06): an2 = Fuori90(Estratto(es,NA_,2) + 11)_
:bn1 = Fuori90(Estratto(es,NA_,3) + 11):bn2 = Fuori90(Estratto(es,NA_,3) + 43): cn1 = Fuori90(Estratto(es,NA_,4) + 16):cn2 = Fuori90(Estratto(es,NA_,4) + 44):dn1 = Fuori90(Estratto(es,NA_,5) + 20)_
:dn2 = Fuori90(Estratto(es,NA_,5) + 22):ruota(1) = TO_:ok = 1
If Decina(a) = 07 And r = NA_ Then n1 = Fuori90(Estratto(es,NA_,1) + 29): n2 = Fuori90(Estratto(es,NA_,1) + 46): an1 = Fuori90(Estratto(es,NA_,2) + 33): an2 = Fuori90(Estratto(es,NA_,2) + 55)_
:bn1 = Fuori90(Estratto(es,NA_,3) + 09):bn2 = Fuori90(Estratto(es,NA_,3) + 52): cn1 = Fuori90(Estratto(es,NA_,4) + 26):cn2 = Fuori90(Estratto(es,NA_,4) + 73):dn1 = Fuori90(Estratto(es,NA_,5) + 14)_
:dn2 = Fuori90(Estratto(es,NA_,5) + 57):ruota(1) = TO_:ok = 1    
If Decina(a) = 08 And r = NA_ Then n1 = Fuori90(Estratto(es,NA_,1) + 33): n2 = Fuori90(Estratto(es,NA_,1) + 71): an1 = Fuori90(Estratto(es,NA_,2) + 01): an2 = Fuori90(Estratto(es,NA_,2) + 59)_
:bn1 = Fuori90(Estratto(es,NA_,3) + 01):bn2 = Fuori90(Estratto(es,NA_,3) + 07): cn1 = Fuori90(Estratto(es,NA_,4) + 44):cn2 = Fuori90(Estratto(es,NA_,4) + 61):dn1 = Fuori90(Estratto(es,NA_,5) + 02)_
:dn2 = Fuori90(Estratto(es,NA_,5) + 45):ruota(1) = TO_:ok = 1    


'-------------------ruota Palermo


If Decina(a) = 00 And r = PA_ Then n1 = Fuori90(Estratto(es,PA_,1) + 80): n2 = Fuori90(Estratto(es,PA_,1) + 89): an1 = Fuori90(Estratto(es,PA_,2) + 30): an2 = Fuori90(Estratto(es,PA_,2) + 65)_
:bn1 = Fuori90(Estratto(es,PA_,3) + 04):bn2 = Fuori90(Estratto(es,PA_,3) + 56): cn1 = Fuori90(Estratto(es,PA_,4) + 07):cn2 = Fuori90(Estratto(es,PA_,4) + 62):dn1 = Fuori90(Estratto(es,PA_,5) + 85)_
:dn2 = Fuori90(Estratto(es,PA_,5) + 89):ruota(1) = TO_:ok = 1
If Decina(a) = 01 And r = PA_ Then n1 = Fuori90(Estratto(es,PA_,1) + 34): n2 = Fuori90(Estratto(es,PA_,1) + 89): an1 = Fuori90(Estratto(es,PA_,2) + 25): an2 = Fuori90(Estratto(es,PA_,2) + 72)_
:bn1 = Fuori90(Estratto(es,PA_,3) + 41):bn2 = Fuori90(Estratto(es,PA_,3) + 81): cn1 = Fuori90(Estratto(es,PA_,4) + 37):cn2 = Fuori90(Estratto(es,PA_,4) + 88):dn1 = Fuori90(Estratto(es,PA_,5) + 13)_
:dn2 = Fuori90(Estratto(es,PA_,5) + 26):ruota(1) = TO_:ok = 1
If Decina(a) = 02 And r = PA_ Then n1 = Fuori90(Estratto(es,PA_,1) + 10): n2 = Fuori90(Estratto(es,PA_,1) + 64): an1 = Fuori90(Estratto(es,PA_,2) + 03): an2 = Fuori90(Estratto(es,PA_,2) + 36)_
:bn1 = Fuori90(Estratto(es,PA_,3) + 04):bn2 = Fuori90(Estratto(es,PA_,3) + 59): cn1 = Fuori90(Estratto(es,PA_,4) + 54):cn2 = Fuori90(Estratto(es,PA_,4) + 78):dn1 = Fuori90(Estratto(es,PA_,5) + 70)_
:dn2 = Fuori90(Estratto(es,PA_,5) + 74):ruota(1) = TO_:ok = 1
If Decina(a) = 03 And r = PA_ Then n1 = Fuori90(Estratto(es,PA_,1) + 07): n2 = Fuori90(Estratto(es,PA_,1) + 83): an1 = Fuori90(Estratto(es,PA_,2) + 22): an2 = Fuori90(Estratto(es,PA_,2) + 62)_
:bn1 = Fuori90(Estratto(es,PA_,3) + 14):bn2 = Fuori90(Estratto(es,PA_,3) + 20): cn1 = Fuori90(Estratto(es,PA_,4) + 49):cn2 = Fuori90(Estratto(es,PA_,4) + 69):dn1 = Fuori90(Estratto(es,PA_,5) + 14)_
:dn2 = Fuori90(Estratto(es,PA_,5) + 18):ruota(1) = TO_:ok = 1
If Decina(a) = 04 And r = PA_ Then n1 = Fuori90(Estratto(es,PA_,1) + 09): n2 = Fuori90(Estratto(es,PA_,1) + 44): an1 = Fuori90(Estratto(es,PA_,2) + 01): an2 = Fuori90(Estratto(es,PA_,2) + 58)_
:bn1 = Fuori90(Estratto(es,PA_,3) + 08):bn2 = Fuori90(Estratto(es,PA_,3) + 44): cn1 = Fuori90(Estratto(es,PA_,4) + 19):cn2 = Fuori90(Estratto(es,PA_,4) + 34):dn1 = Fuori90(Estratto(es,PA_,5) + 03)_
:dn2 = Fuori90(Estratto(es,PA_,5) + 73):ruota(1) = TO_:ok = 1
If Decina(a) = 05 And r = PA_ Then n1 = Fuori90(Estratto(es,PA_,1) + 11): n2 = Fuori90(Estratto(es,PA_,1) + 84): an1 = Fuori90(Estratto(es,PA_,2) + 13): an2 = Fuori90(Estratto(es,PA_,2) + 29)_
:bn1 = Fuori90(Estratto(es,PA_,3) + 01):bn2 = Fuori90(Estratto(es,PA_,3) + 31): cn1 = Fuori90(Estratto(es,PA_,4) + 38):cn2 = Fuori90(Estratto(es,PA_,4) + 78):dn1 = Fuori90(Estratto(es,PA_,5) + 25)_
:dn2 = Fuori90(Estratto(es,PA_,5) + 74):ruota(1) = TO_:ok = 1
If Decina(a) = 06 And r = PA_ Then n1 = Fuori90(Estratto(es,PA_,1) + 22): n2 = Fuori90(Estratto(es,PA_,1) + 80): an1 = Fuori90(Estratto(es,PA_,2) + 13): an2 = Fuori90(Estratto(es,PA_,2) + 17)_
:bn1 = Fuori90(Estratto(es,PA_,3) + 18):bn2 = Fuori90(Estratto(es,PA_,3) + 36): cn1 = Fuori90(Estratto(es,PA_,4) + 14):cn2 = Fuori90(Estratto(es,PA_,4) + 23):dn1 = Fuori90(Estratto(es,PA_,5) + 02)_
:dn2 = Fuori90(Estratto(es,PA_,5) + 15):ruota(1) = TO_:ok = 1
If Decina(a) = 07 And r = PA_ Then n1 = Fuori90(Estratto(es,PA_,1) + 67): n2 = Fuori90(Estratto(es,PA_,1) + 71): an1 = Fuori90(Estratto(es,PA_,2) + 52): an2 = Fuori90(Estratto(es,PA_,2) + 58)_
:bn1 = Fuori90(Estratto(es,PA_,3) + 01):bn2 = Fuori90(Estratto(es,PA_,3) + 65): cn1 = Fuori90(Estratto(es,PA_,4) + 31):cn2 = Fuori90(Estratto(es,PA_,4) + 51):dn1 = Fuori90(Estratto(es,PA_,5) + 11)_
:dn2 = Fuori90(Estratto(es,PA_,5) + 13):ruota(1) = TO_:ok = 1    
If Decina(a) = 08 And r = PA_ Then n1 = Fuori90(Estratto(es,PA_,1) + 03): n2 = Fuori90(Estratto(es,PA_,1) + 47): an1 = Fuori90(Estratto(es,PA_,2) + 38): an2 = Fuori90(Estratto(es,PA_,2) + 89)_
:bn1 = Fuori90(Estratto(es,PA_,3) + 10):bn2 = Fuori90(Estratto(es,PA_,3) + 28): cn1 = Fuori90(Estratto(es,PA_,4) + 04):cn2 = Fuori90(Estratto(es,PA_,4) + 83):dn1 = Fuori90(Estratto(es,PA_,5) + 05)_
:dn2 = Fuori90(Estratto(es,PA_,5) + 38):ruota(1) = TO_:ok = 1    


'-------------------ruota roma


If Decina(a) = 00 And r = RO_ Then n1 = Fuori90(Estratto(es,RO_,1) + 15): n2 = Fuori90(Estratto(es,RO_,1) + 27): an1 = Fuori90(Estratto(es,RO_,2) + 19): an2 = Fuori90(Estratto(es,RO_,2) + 75)_
:bn1 = Fuori90(Estratto(es,RO_,3) + 04):bn2 = Fuori90(Estratto(es,RO_,3) + 07): cn1 = Fuori90(Estratto(es,RO_,4) + 31):cn2 = Fuori90(Estratto(es,RO_,4) + 42):dn1 = Fuori90(Estratto(es,RO_,5) + 16)_
:dn2 = Fuori90(Estratto(es,RO_,5) + 41):ruota(1) = TO_:ok = 1
If Decina(a) = 01 And r = RO_ Then n1 = Fuori90(Estratto(es,RO_,1) + 05): n2 = Fuori90(Estratto(es,RO_,1) + 50): an1 = Fuori90(Estratto(es,RO_,2) + 04): an2 = Fuori90(Estratto(es,RO_,2) + 54)_
:bn1 = Fuori90(Estratto(es,RO_,3) + 13):bn2 = Fuori90(Estratto(es,RO_,3) + 61): cn1 = Fuori90(Estratto(es,RO_,4) + 39):cn2 = Fuori90(Estratto(es,RO_,4) + 73):dn1 = Fuori90(Estratto(es,RO_,5) + 11)_
:dn2 = Fuori90(Estratto(es,RO_,5) + 73):ruota(1) = TO_:ok = 1
If Decina(a) = 02 And r = RO_ Then n1 = Fuori90(Estratto(es,RO_,1) + 17): n2 = Fuori90(Estratto(es,RO_,1) + 22): an1 = Fuori90(Estratto(es,RO_,2) + 14): an2 = Fuori90(Estratto(es,RO_,2) + 59)_
:bn1 = Fuori90(Estratto(es,RO_,3) + 01):bn2 = Fuori90(Estratto(es,RO_,3) + 60): cn1 = Fuori90(Estratto(es,RO_,4) + 16):cn2 = Fuori90(Estratto(es,RO_,4) + 24):dn1 = Fuori90(Estratto(es,RO_,5) + 11)_
:dn2 = Fuori90(Estratto(es,RO_,5) + 61):ruota(1) = TO_:ok = 1
If Decina(a) = 03 And r = RO_ Then n1 = Fuori90(Estratto(es,RO_,1) + 12): n2 = Fuori90(Estratto(es,RO_,1) + 57): an1 = Fuori90(Estratto(es,RO_,2) + 11): an2 = Fuori90(Estratto(es,RO_,2) + 40)_
:bn1 = Fuori90(Estratto(es,RO_,3) + 04):bn2 = Fuori90(Estratto(es,RO_,3) + 84): cn1 = Fuori90(Estratto(es,RO_,4) + 04):cn2 = Fuori90(Estratto(es,RO_,4) + 23):dn1 = Fuori90(Estratto(es,RO_,5) + 03)_
:dn2 = Fuori90(Estratto(es,RO_,5) + 42):ruota(1) = TO_:ok = 1
If Decina(a) = 04 And r = RO_ Then n1 = Fuori90(Estratto(es,RO_,1) + 02): n2 = Fuori90(Estratto(es,RO_,1) + 35): an1 = Fuori90(Estratto(es,RO_,2) + 03): an2 = Fuori90(Estratto(es,RO_,2) + 29)_
:bn1 = Fuori90(Estratto(es,RO_,3) + 18):bn2 = Fuori90(Estratto(es,RO_,3) + 87): cn1 = Fuori90(Estratto(es,RO_,4) + 43):cn2 = Fuori90(Estratto(es,RO_,4) + 79):dn1 = Fuori90(Estratto(es,RO_,5) + 04)_
:dn2 = Fuori90(Estratto(es,RO_,5) + 43):ruota(1) = TO_:ok = 1
If Decina(a) = 05 And r = RO_ Then n1 = Fuori90(Estratto(es,RO_,1) + 02): n2 = Fuori90(Estratto(es,RO_,1) + 63): an1 = Fuori90(Estratto(es,RO_,2) + 03): an2 = Fuori90(Estratto(es,RO_,2) + 75)_
:bn1 = Fuori90(Estratto(es,RO_,3) + 13):bn2 = Fuori90(Estratto(es,RO_,3) + 74): cn1 = Fuori90(Estratto(es,RO_,4) + 19):cn2 = Fuori90(Estratto(es,RO_,4) + 64):dn1 = Fuori90(Estratto(es,RO_,5) + 04)_
:dn2 = Fuori90(Estratto(es,RO_,5) + 27):ruota(1) = TO_:ok = 1
If Decina(a) = 06 And r = RO_ Then n1 = Fuori90(Estratto(es,RO_,1) + 04): n2 = Fuori90(Estratto(es,RO_,1) + 81): an1 = Fuori90(Estratto(es,RO_,2) + 52): an2 = Fuori90(Estratto(es,RO_,2) + 81)_
:bn1 = Fuori90(Estratto(es,RO_,3) + 52):bn2 = Fuori90(Estratto(es,RO_,3) + 55): cn1 = Fuori90(Estratto(es,RO_,4) + 35):cn2 = Fuori90(Estratto(es,RO_,4) + 75):dn1 = Fuori90(Estratto(es,RO_,5) + 12)_
:dn2 = Fuori90(Estratto(es,RO_,5) + 87):ruota(1) = TO_:ok = 1
If Decina(a) = 07 And r = RO_ Then n1 = Fuori90(Estratto(es,RO_,1) + 37): n2 = Fuori90(Estratto(es,RO_,1) + 63): an1 = Fuori90(Estratto(es,RO_,2) + 03): an2 = Fuori90(Estratto(es,RO_,2) + 69)_
:bn1 = Fuori90(Estratto(es,RO_,3) + 01):bn2 = Fuori90(Estratto(es,RO_,3) + 33): cn1 = Fuori90(Estratto(es,RO_,4) + 45):cn2 = Fuori90(Estratto(es,RO_,4) + 49):dn1 = Fuori90(Estratto(es,RO_,5) + 08)_
:dn2 = Fuori90(Estratto(es,RO_,5) + 47):ruota(1) = TO_:ok = 1    
If Decina(a) = 08 And r = RO_ Then n1 = Fuori90(Estratto(es,RO_,1) + 14): n2 = Fuori90(Estratto(es,RO_,1) + 57): an1 = Fuori90(Estratto(es,RO_,2) + 01): an2 = Fuori90(Estratto(es,RO_,2) + 35)_
:bn1 = Fuori90(Estratto(es,RO_,3) + 02):bn2 = Fuori90(Estratto(es,RO_,3) + 15): cn1 = Fuori90(Estratto(es,RO_,4) + 05):cn2 = Fuori90(Estratto(es,RO_,4) + 47):dn1 = Fuori90(Estratto(es,RO_,5) + 67)_
:dn2 = Fuori90(Estratto(es,RO_,5) + 83):ruota(1) = TO_:ok = 1    


'-------------------ruota Torino


If Decina(a) = 00 And r = TO_ Then n1 = Fuori90(Estratto(es,TO_,1) + 23): n2 = Fuori90(Estratto(es,TO_,1) + 51): an1 = Fuori90(Estratto(es,TO_,2) + 03): an2 = Fuori90(Estratto(es,TO_,2) + 80)_
:bn1 = Fuori90(Estratto(es,TO_,3) + 40):bn2 = Fuori90(Estratto(es,TO_,3) + 47): cn1 = Fuori90(Estratto(es,TO_,4) + 23):cn2 = Fuori90(Estratto(es,TO_,4) + 79):dn1 = Fuori90(Estratto(es,TO_,5) + 12)_
:dn2 = Fuori90(Estratto(es,TO_,5) + 07):ruota(1) = TO_:ok = 1
If Decina(a) = 01 And r = TO_ Then n1 = Fuori90(Estratto(es,TO_,1) + 07): n2 = Fuori90(Estratto(es,TO_,1) + 66): an1 = Fuori90(Estratto(es,TO_,2) + 02): an2 = Fuori90(Estratto(es,TO_,2) + 31)_
:bn1 = Fuori90(Estratto(es,TO_,3) + 03):bn2 = Fuori90(Estratto(es,TO_,3) + 35): cn1 = Fuori90(Estratto(es,TO_,4) + 15):cn2 = Fuori90(Estratto(es,TO_,4) + 30):dn1 = Fuori90(Estratto(es,TO_,5) + 01)_
:dn2 = Fuori90(Estratto(es,TO_,5) + 32):ruota(1) = TO_:ok = 1
If Decina(a) = 02 And r = TO_ Then n1 = Fuori90(Estratto(es,TO_,1) + 15): n2 = Fuori90(Estratto(es,TO_,1) + 62): an1 = Fuori90(Estratto(es,TO_,2) + 03): an2 = Fuori90(Estratto(es,TO_,2) + 63)_
:bn1 = Fuori90(Estratto(es,TO_,3) + 19):bn2 = Fuori90(Estratto(es,TO_,3) + 39): cn1 = Fuori90(Estratto(es,TO_,4) + 13):cn2 = Fuori90(Estratto(es,TO_,4) + 15):dn1 = Fuori90(Estratto(es,TO_,5) + 28)_
:dn2 = Fuori90(Estratto(es,TO_,5) + 85):ruota(1) = TO_:ok = 1
If Decina(a) = 03 And r = TO_ Then n1 = Fuori90(Estratto(es,TO_,1) + 05): n2 = Fuori90(Estratto(es,TO_,1) + 78): an1 = Fuori90(Estratto(es,TO_,2) + 06): an2 = Fuori90(Estratto(es,TO_,2) + 49)_
:bn1 = Fuori90(Estratto(es,TO_,3) + 17):bn2 = Fuori90(Estratto(es,TO_,3) + 26): cn1 = Fuori90(Estratto(es,TO_,4) + 31):cn2 = Fuori90(Estratto(es,TO_,4) + 40):dn1 = Fuori90(Estratto(es,TO_,5) + 05)_
:dn2 = Fuori90(Estratto(es,TO_,5) + 17):ruota(1) = TO_:ok = 1
If Decina(a) = 04 And r = TO_ Then n1 = Fuori90(Estratto(es,TO_,1) + 04): n2 = Fuori90(Estratto(es,TO_,1) + 37): an1 = Fuori90(Estratto(es,TO_,2) + 20): an2 = Fuori90(Estratto(es,TO_,2) + 57)_
:bn1 = Fuori90(Estratto(es,TO_,3) + 06):bn2 = Fuori90(Estratto(es,TO_,3) + 47): cn1 = Fuori90(Estratto(es,TO_,4) + 03):cn2 = Fuori90(Estratto(es,TO_,4) + 05):dn1 = Fuori90(Estratto(es,TO_,5) + 40)_
:dn2 = Fuori90(Estratto(es,TO_,5) + 73):ruota(1) = TO_:ok = 1
If Decina(a) = 05 And r = TO_ Then n1 = Fuori90(Estratto(es,TO_,1) + 22): n2 = Fuori90(Estratto(es,TO_,1) + 24): an1 = Fuori90(Estratto(es,TO_,2) + 39): an2 = Fuori90(Estratto(es,TO_,2) + 87)_
:bn1 = Fuori90(Estratto(es,TO_,3) + 04):bn2 = Fuori90(Estratto(es,TO_,3) + 68): cn1 = Fuori90(Estratto(es,TO_,4) + 25):cn2 = Fuori90(Estratto(es,TO_,4) + 45):dn1 = Fuori90(Estratto(es,TO_,5) + 02)_
:dn2 = Fuori90(Estratto(es,TO_,5) + 69):ruota(1) = TO_:ok = 1
If Decina(a) = 06 And r = TO_ Then n1 = Fuori90(Estratto(es,TO_,1) + 07): n2 = Fuori90(Estratto(es,TO_,1) + 76): an1 = Fuori90(Estratto(es,TO_,2) + 23): an2 = Fuori90(Estratto(es,TO_,2) + 40)_
:bn1 = Fuori90(Estratto(es,TO_,3) + 08):bn2 = Fuori90(Estratto(es,TO_,3) + 29): cn1 = Fuori90(Estratto(es,TO_,4) + 07):cn2 = Fuori90(Estratto(es,TO_,4) + 78):dn1 = Fuori90(Estratto(es,TO_,5) + 16)_
:dn2 = Fuori90(Estratto(es,TO_,5) + 39):ruota(1) = TO_:ok = 1
If Decina(a) = 07 And r = TO_ Then n1 = Fuori90(Estratto(es,TO_,1) + 12): n2 = Fuori90(Estratto(es,TO_,1) + 54): an1 = Fuori90(Estratto(es,TO_,2) + 39): an2 = Fuori90(Estratto(es,TO_,2) + 56)_
:bn1 = Fuori90(Estratto(es,TO_,3) + 49):bn2 = Fuori90(Estratto(es,TO_,3) + 50): cn1 = Fuori90(Estratto(es,TO_,4) + 54):cn2 = Fuori90(Estratto(es,TO_,4) + 78):dn1 = Fuori90(Estratto(es,TO_,5) + 03)_
:dn2 = Fuori90(Estratto(es,TO_,5) + 26):ruota(1) = TO_:ok = 1    
If Decina(a) = 08 And r = TO_ Then n1 = Fuori90(Estratto(es,TO_,1) + 44): n2 = Fuori90(Estratto(es,TO_,1) + 89): an1 = Fuori90(Estratto(es,TO_,2) + 02): an2 = Fuori90(Estratto(es,TO_,2) + 76)_
:bn1 = Fuori90(Estratto(es,TO_,3) + 02):bn2 = Fuori90(Estratto(es,TO_,3) + 28): cn1 = Fuori90(Estratto(es,TO_,4) + 02):cn2 = Fuori90(Estratto(es,TO_,4) + 40):dn1 = Fuori90(Estratto(es,TO_,5) + 14)_
:dn2 = Fuori90(Estratto(es,TO_,5) + 82):ruota(1) = TO_:ok = 1    


'-------------------ruota Venezia


If Decina(a) = 00 And r = VE_ Then n1 = Fuori90(Estratto(es,VE_,1) + 29): n2 = Fuori90(Estratto(es,VE_,1) + 45): an1 = Fuori90(Estratto(es,VE_,2) + 20): an2 = Fuori90(Estratto(es,VE_,2) + 70)_
:bn1 = Fuori90(Estratto(es,VE_,3) + 08):bn2 = Fuori90(Estratto(es,VE_,3) + 37): cn1 = Fuori90(Estratto(es,VE_,4) + 04):cn2 = Fuori90(Estratto(es,VE_,4) + 07):dn1 = Fuori90(Estratto(es,VE_,5) + 01)_
:dn2 = Fuori90(Estratto(es,VE_,5) + 37):ruota(1) = TO_:ok = 1
If Decina(a) = 01 And r = VE_ Then n1 = Fuori90(Estratto(es,VE_,1) + 01): n2 = Fuori90(Estratto(es,VE_,1) + 17): an1 = Fuori90(Estratto(es,VE_,2) + 06): an2 = Fuori90(Estratto(es,VE_,2) + 10)_
:bn1 = Fuori90(Estratto(es,VE_,3) + 37):bn2 = Fuori90(Estratto(es,VE_,3) + 46): cn1 = Fuori90(Estratto(es,VE_,4) + 17):cn2 = Fuori90(Estratto(es,VE_,4) + 35):dn1 = Fuori90(Estratto(es,VE_,5) + 12)_
:dn2 = Fuori90(Estratto(es,VE_,5) + 34):ruota(1) = TO_:ok = 1
If Decina(a) = 02 And r = VE_ Then n1 = Fuori90(Estratto(es,VE_,1) + 27): n2 = Fuori90(Estratto(es,VE_,1) + 61): an1 = Fuori90(Estratto(es,VE_,2) + 09): an2 = Fuori90(Estratto(es,VE_,2) + 78)_
:bn1 = Fuori90(Estratto(es,VE_,3) + 20):bn2 = Fuori90(Estratto(es,VE_,3) + 62): cn1 = Fuori90(Estratto(es,VE_,4) + 15):cn2 = Fuori90(Estratto(es,VE_,4) + 36):dn1 = Fuori90(Estratto(es,VE_,5) + 04)_
:dn2 = Fuori90(Estratto(es,VE_,5) + 23):ruota(1) = TO_:ok = 1
If Decina(a) = 03 And r = VE_ Then n1 = Fuori90(Estratto(es,VE_,1) + 19): n2 = Fuori90(Estratto(es,VE_,1) + 56): an1 = Fuori90(Estratto(es,VE_,2) + 32): an2 = Fuori90(Estratto(es,VE_,2) + 82)_
:bn1 = Fuori90(Estratto(es,VE_,3) + 21):bn2 = Fuori90(Estratto(es,VE_,3) + 59): cn1 = Fuori90(Estratto(es,VE_,4) + 051):cn2 = Fuori90(Estratto(es,VE_,4) + 86):dn1 = Fuori90(Estratto(es,VE_,5) + 08)_
:dn2 = Fuori90(Estratto(es,VE_,5) + 57):ruota(1) = TO_:ok = 1
If Decina(a) = 04 And r = VE_ Then n1 = Fuori90(Estratto(es,VE_,1) + 05): n2 = Fuori90(Estratto(es,VE_,1) + 44): an1 = Fuori90(Estratto(es,VE_,2) + 20): an2 = Fuori90(Estratto(es,VE_,2) + 61)_
:bn1 = Fuori90(Estratto(es,VE_,3) + 07):bn2 = Fuori90(Estratto(es,VE_,3) + 78): cn1 = Fuori90(Estratto(es,VE_,4) + 05):cn2 = Fuori90(Estratto(es,VE_,4) + 40):dn1 = Fuori90(Estratto(es,VE_,5) + 37)_
:dn2 = Fuori90(Estratto(es,VE_,5) + 56):ruota(1) = TO_:ok = 1
If Decina(a) = 05 And r = VE_ Then n1 = Fuori90(Estratto(es,VE_,1) + 01): n2 = Fuori90(Estratto(es,VE_,1) + 84): an1 = Fuori90(Estratto(es,VE_,2) + 63): an2 = Fuori90(Estratto(es,VE_,2) + 66)_
:bn1 = Fuori90(Estratto(es,VE_,3) + 31):bn2 = Fuori90(Estratto(es,VE_,3) + 43): cn1 = Fuori90(Estratto(es,VE_,4) + 72):cn2 = Fuori90(Estratto(es,VE_,4) + 79):dn1 = Fuori90(Estratto(es,VE_,5) + 08)_
:dn2 = Fuori90(Estratto(es,VE_,5) + 14):ruota(1) = TO_:ok = 1
If Decina(a) = 06 And r = VE_ Then n1 = Fuori90(Estratto(es,VE_,1) + 15): n2 = Fuori90(Estratto(es,VE_,1) + 60): an1 = Fuori90(Estratto(es,VE_,2) + 31): an2 = Fuori90(Estratto(es,VE_,2) + 64)_
:bn1 = Fuori90(Estratto(es,VE_,3) + 04):bn2 = Fuori90(Estratto(es,VE_,3) + 59): cn1 = Fuori90(Estratto(es,VE_,4) + 022):cn2 = Fuori90(Estratto(es,VE_,4) + 51):dn1 = Fuori90(Estratto(es,VE_,5) + 14)_
:dn2 = Fuori90(Estratto(es,VE_,5) + 69):ruota(1) = TO_:ok = 1
If Decina(a) = 07 And r = VE_ Then n1 = Fuori90(Estratto(es,VE_,1) + 07): n2 = Fuori90(Estratto(es,VE_,1) + 14): an1 = Fuori90(Estratto(es,VE_,2) + 07): an2 = Fuori90(Estratto(es,VE_,2) + 39)_
:bn1 = Fuori90(Estratto(es,VE_,3) + 04):bn2 = Fuori90(Estratto(es,VE_,3) + 61): cn1 = Fuori90(Estratto(es,VE_,4) + 05):cn2 = Fuori90(Estratto(es,VE_,4) + 88):dn1 = Fuori90(Estratto(es,VE_,5) + 01)_
:dn2 = Fuori90(Estratto(es,VE_,5) + 18):ruota(1) = TO_:ok = 1    
If Decina(a) = 08 And r = VE_ Then n1 = Fuori90(Estratto(es,VE_,1) + 53): n2 = Fuori90(Estratto(es,VE_,1) + 60): an1 = Fuori90(Estratto(es,VE_,2) + 03): an2 = Fuori90(Estratto(es,VE_,2) + 58)_
:bn1 = Fuori90(Estratto(es,VE_,3) + 14):bn2 = Fuori90(Estratto(es,VE_,3) + 59): cn1 = Fuori90(Estratto(es,VE_,4) + 07):cn2 = Fuori90(Estratto(es,VE_,4) + 33):dn1 = Fuori90(Estratto(es,VE_,5) + 03)_
:dn2 = Fuori90(Estratto(es,VE_,5) + 56):ruota(1) = TO_:ok = 1    


'-------------------ruota Nazionale


If Decina(a) = 00 And r = NZ_ Then n1 = Fuori90(Estratto(es,NZ_,1) + 01): n2 = Fuori90(Estratto(es,NZ_,1) + 08): an1 = Fuori90(Estratto(es,NZ_,2) + 01): an2 = Fuori90(Estratto(es,NZ_,2) + 08)_
:bn1 = Fuori90(Estratto(es,NZ_,3) + 01):bn2 = Fuori90(Estratto(es,NZ_,3) + 28): cn1 = Fuori90(Estratto(es,NZ_,4) + 01):cn2 = Fuori90(Estratto(es,NZ_,4) + 39):dn1 = Fuori90(Estratto(es,NZ_,5) + 01)_
:dn2 = Fuori90(Estratto(es,NZ_,5) + 18):ruota(1) = TO_:ok = 1
If Decina(a) = 01 And r = NZ_ Then n1 = Fuori90(Estratto(es,NZ_,1) + 01): n2 = Fuori90(Estratto(es,NZ_,1) + 06): an1 = Fuori90(Estratto(es,NZ_,2) + 02): an2 = Fuori90(Estratto(es,NZ_,2) + 53)_
:bn1 = Fuori90(Estratto(es,NZ_,3) + 01):bn2 = Fuori90(Estratto(es,NZ_,3) + 02): cn1 = Fuori90(Estratto(es,NZ_,4) + 01):cn2 = Fuori90(Estratto(es,NZ_,4) + 41):dn1 = Fuori90(Estratto(es,NZ_,5) + 01)_
:dn2 = Fuori90(Estratto(es,NZ_,5) + 46):ruota(1) = TO_:ok = 1
If Decina(a) = 02 And r = NZ_ Then n1 = Fuori90(Estratto(es,NZ_,1) + 01): n2 = Fuori90(Estratto(es,NZ_,1) + 07): an1 = Fuori90(Estratto(es,NZ_,2) + 01): an2 = Fuori90(Estratto(es,NZ_,2) + 43)_
:bn1 = Fuori90(Estratto(es,NZ_,3) + 01):bn2 = Fuori90(Estratto(es,NZ_,3) + 19): cn1 = Fuori90(Estratto(es,NZ_,4) + 01):cn2 = Fuori90(Estratto(es,NZ_,4) + 05):dn1 = Fuori90(Estratto(es,NZ_,5) + 01)_
:dn2 = Fuori90(Estratto(es,NZ_,5) + 07):ruota(1) = TO_:ok = 1
If Decina(a) = 03 And r = NZ_ Then n1 = Fuori90(Estratto(es,NZ_,1) + 01): n2 = Fuori90(Estratto(es,NZ_,1) + 03): an1 = Fuori90(Estratto(es,NZ_,2) + 01): an2 = Fuori90(Estratto(es,NZ_,2) + 10)_
:bn1 = Fuori90(Estratto(es,NZ_,3) + 01):bn2 = Fuori90(Estratto(es,NZ_,3) + 47): cn1 = Fuori90(Estratto(es,NZ_,4) + 01):cn2 = Fuori90(Estratto(es,NZ_,4) + 15):dn1 = Fuori90(Estratto(es,NZ_,5) + 01)_
:dn2 = Fuori90(Estratto(es,NZ_,5) + 24):ruota(1) = TO_:ok = 1
If Decina(a) = 04 And r = NZ_ Then n1 = Fuori90(Estratto(es,NZ_,1) + 01): n2 = Fuori90(Estratto(es,NZ_,1) + 35): an1 = Fuori90(Estratto(es,NZ_,2) + 01): an2 = Fuori90(Estratto(es,NZ_,2) + 29)_
:bn1 = Fuori90(Estratto(es,NZ_,3) + 01):bn2 = Fuori90(Estratto(es,NZ_,3) + 51): cn1 = Fuori90(Estratto(es,NZ_,4) + 01):cn2 = Fuori90(Estratto(es,NZ_,4) + 55):dn1 = Fuori90(Estratto(es,NZ_,5) + 01)_
:dn2 = Fuori90(Estratto(es,NZ_,5) + 20):ruota(1) = TO_:ok = 1
If Decina(a) = 05 And r = NZ_ Then n1 = Fuori90(Estratto(es,NZ_,1) + 01): n2 = Fuori90(Estratto(es,NZ_,1) + 55): an1 = Fuori90(Estratto(es,NZ_,2) + 02): an2 = Fuori90(Estratto(es,NZ_,2) + 24)_
:bn1 = Fuori90(Estratto(es,NZ_,3) + 01):bn2 = Fuori90(Estratto(es,NZ_,3) + 08): cn1 = Fuori90(Estratto(es,NZ_,4) + 01):cn2 = Fuori90(Estratto(es,NZ_,4) + 28):dn1 = Fuori90(Estratto(es,NZ_,5) + 01)_
:dn2 = Fuori90(Estratto(es,NZ_,5) + 16):ruota(1) = TO_:ok = 1
If Decina(a) = 06 And r = NZ_ Then n1 = Fuori90(Estratto(es,NZ_,1) + 02): n2 = Fuori90(Estratto(es,NZ_,1) + 03): an1 = Fuori90(Estratto(es,NZ_,2) + 01): an2 = Fuori90(Estratto(es,NZ_,2) + 02)_
:bn1 = Fuori90(Estratto(es,NZ_,3) + 03):bn2 = Fuori90(Estratto(es,NZ_,3) + 71): cn1 = Fuori90(Estratto(es,NZ_,4) + 01):cn2 = Fuori90(Estratto(es,NZ_,4) + 05):dn1 = Fuori90(Estratto(es,NZ_,5) + 01)_
:dn2 = Fuori90(Estratto(es,NZ_,5) + 22):ruota(1) = TO_:ok = 1
If Decina(a) = 07 And r = NZ_ Then n1 = Fuori90(Estratto(es,NZ_,1) + 01): n2 = Fuori90(Estratto(es,NZ_,1) + 21): an1 = Fuori90(Estratto(es,NZ_,2) + 01): an2 = Fuori90(Estratto(es,NZ_,2) + 26)_
:bn1 = Fuori90(Estratto(es,NZ_,3) + 01):bn2 = Fuori90(Estratto(es,NZ_,3) + 15): cn1 = Fuori90(Estratto(es,NZ_,4) + 04):cn2 = Fuori90(Estratto(es,NZ_,4) + 19):dn1 = Fuori90(Estratto(es,NZ_,5) + 01)_
:dn2 = Fuori90(Estratto(es,NZ_,5) + 07):ruota(1) = TO_:ok = 1    
If Decina(a) = 08 And r = NZ_ Then n1 = Fuori90(Estratto(es,NZ_,1) + 01): n2 = Fuori90(Estratto(es,NZ_,1) + 06): an1 = Fuori90(Estratto(es,NZ_,2) + 01): an2 = Fuori90(Estratto(es,NZ_,2) + 04)_
:bn1 = Fuori90(Estratto(es,NZ_,3) + 01):bn2 = Fuori90(Estratto(es,NZ_,3) + 67): cn1 = Fuori90(Estratto(es,NZ_,4) + 01):cn2 = Fuori90(Estratto(es,NZ_,4) + 11):dn1 = Fuori90(Estratto(es,NZ_,5) + 01)_
:dn2 = Fuori90(Estratto(es,NZ_,5) + 15):ruota(1) = TO_:ok = 1    

rr = r
For pp = p + 1 To 5
b = Estratto(es,rr,pp)
If Decina(a) = Decina(b)Then
If ok = 1 Then
Scrivi String(65,"=")
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r)
Scrivi "Presente Ambo in Decina [" & CInt(a) & "-" & CInt(b) & "] In " & CInt(p) & "° Posizione ed in " & CInt(pp) & "° Posizione "
ColoreTesto 2
If es+attesa > EstrazioneFin Then Scrivi "la giocata deve ancora iniziare"
If es+attesa < EstrazioneFin Then Scrivi "La giocata inizia... " & DataEstrazione(es + attesa)
ColoreTesto 0
Scrivi String(65,"=")
n(1) = n1
n(2) = n2
EliminaRipetuti n
If SerieFreq(es,es + attesa,n,ruota,1) > 0 Then
Scrivi " giocata 1 non valida "
Else
Call ImpostaGiocata(1,n,ruota,posta,4,1,attesa)
End If
If SerieFreq(es,es + attesa,an,ruota,1) > 0 Then
Scrivi " giocata 2 non valida "
Else

an(1) = an1
an(2) = an2
EliminaRipetuti an
ImpostaGiocata 2,an,ruota,posta,4,1,attesa
End If
If SerieFreq(es,es + attesa,bn,ruota,1) > 0 Then
Scrivi " giocata 3 non valida "
Else
bn(1) = bn1
bn(2) = bn2
EliminaRipetuti bn
ImpostaGiocata 3,bn,ruota,posta,4,1,attesa
End If
If SerieFreq(es,es + attesa,cn,ruota,1) > 0 Then
Scrivi " giocata 4 non valida "
Else
cn(1) = cn1
cn(2) = cn2
EliminaRipetuti cn
ImpostaGiocata 4,cn,ruota,posta,4,1,attesa
End If
If SerieFreq(es,es + attesa,dn,ruota,1) > 0 Then
Scrivi " giocata 5 non valida "
Else
dn(1) = dn1
dn(2) = dn2
EliminaRipetuti dn
ImpostaGiocata 5,dn,ruota,posta,4,1,attesa
End If
Gioca es,True,,1
End If
End If
Next
Next
Next
Next
ScriviResoconto
End Sub

Call ImpostaGiocata(1,Numeri,Ruota,Posta,4,1,26)

 

[desperaux]

cIAO mIKE58
cIAO Lotto_tom75

se mi dite come leggere la fine dello script ve ne sono grato

in sostanza alla fine non vedo casi incorso ........per altre xxx estraz ..... numeri.........
Cioe' un resoconto
Devo comunque scorrere la barra
ciao

 

[lotto_tom75]

Invece a me risulterebbe queste due coppie a crt = 1

53.73+62.78

controlla!

Giocare comunque con massima moderazione!

uscito il 53 solo soletto...

 

[lotto_tom75]

Purtroppo sia l'ultimo script di disaronno che di mike58 non danno l'output sperato...
Addirittura danno un resoconto del tipo due casi vincenti su 34... c'e' qualcosa che non torna...
Grazie infinite se potete ridarci un occhio entrambi

ripeto anche a nome di desperaux che sarebbe fantastico se lo script "ottimizzato"
evidenziasse in qualche modo (magari a fine output) i casi con colpi rimanenti uguale 1 , 2 ,3 , 4.
Disponibile per ulteriori eventuali chiarimenti 24h su 24

Grazie a entrambi mitici!

 

[lotto_tom75]

Buonasera,
i casi vincenti su 34 (estrazioni sono stati 7 (estrazioni),per la richiesta vedro cosa posso fare.
Allego comunque resoconto.

+----------------------------------------+
| Prima Giocata      : 8667              |
| Ultima Giocata     : 8700              |
| Range              : 34                |
| Casi giocab perc.  : 100%              |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+ 
|               RESOCONTO                | |       DISTRIBUZIONE ESITI        | | DISTRIBUZIONE ESITI PERCENTUALI  | |        DISTRIBUZIONE CASI        | 
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+ 
| Casi esaminati     :               34  | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT |  Q  |                       | 
| Casi vincenti      :                7  | +----------------------------------+ +----------------------------------+ +----------------------------------+ 
| Percentuale pos.   :          20,59 %  | | BA |     |     |     |     |     | | BA |     |     |     |     |     | | BA |     |                       | 
| Pronostici totali  :              357  | | CA |     |     |     |     |     | | CA |     |     |     |     |     | | CA |     |                       | 
| Pronostici vinc.   :               54  | | FI |     |     |     |     |     | | FI |     |     |     |     |     | | FI |     |                       | 
| Percentuale pos.   :          15,13 %  | | GE |     |     |     |     |     | | GE |     |     |     |     |     | | GE |     |                       | 
| Giocate in corso   :            1.565  | | MI |     |     |     |     |     | | MI |     |     |     |     |     | | MI |     |                       | 
| Giocate terminate  :              220  | | NA |     |     |     |     |     | | NA |     |     |     |     |     | | NA |     |                       | 
| Bollette giocate   :              906  | | PA |     |     |     |     |     | | PA |     |     |     |     |     | | PA |     |                       | 
| Bollette vincenti  :              110  | | RO |     |     |     |     |     | | RO |     |     |     |     |     | | RO |     |                       | 
| Attesa media       :               34  | | TO |  115|    5|     |     |     | | TO |  100|  100|     |     |     | | TO | 1785|                       | 
| Spesa              :         906,00 €  | | VE |     |     |     |     |     | | VE |     |     |     |     |     | | VE |     |                       | 
| Vincita            :         607,52 €  | | NZ |     |     |     |     |     | | NZ |     |     |     |     |     | | NZ |     |                       | 
| Guadagno           :        -298,48 €  | | TT |     |     |     |     |     | | TT |     |     |     |     |     | | TT |     |                       | 
| Perc. Rendimento   :        -32,945 %  | +----------------------------------+ +----------------------------------+ +----------------------------------+ 
| Mass. Esposizione  :          70,00 €  |    
| Estratto su ruota  :              115  |                                                                                                                
| Ambo su ruota      :                5  |                                                                                                                
|                                        |                                                                                                                
+----------------------------------------+

Appunto disaronno essendo solo 7 su 34 i casi vincenti per E c'e' ci deve essere qualcosa che non torna nell'ultimo script in quanto precedentemente lo stesso sommativo dava 33 casi vincenti su 34. Ti prego di darci un occhio Grazie ancora.

 

[Mike58]

Ciao a tutti , lo script(di Disaronno) con le mie correzioni ci rileva la decina e e attende (26 colpi ) per mettere in gioco i numeri calcolati dal sommativo, e solo se i gli stessi non hanno avuto esito.
Quindi una cosa e valutare quante casi ci sono della decina trovata e un altra cosa sono gli esiti, anche perchè molte giocate devono ancora maturare, i colpi(26) di gioco.(che purtroppo mi sembrano tanti per avere una statistica aggiornata).
Tom, rifletti un pochetto , ma la tua richiesta mi sembra che era questa.

Disaronno, complimenti sei e stai diventando BRAVO un po di ricambio ci vuole, perciò fai palestra vbscript che c'è sempre da imparare.

Desperaux, purtroppo devo dire che tante volte non c'è facile risposta e soluzione ai tanti quesiti e statistiche degli utenti e può sembrare arrogante non rispondere ma sappi che scripter non si nasce si diventa e purtroppo mai abbastanza bravi per elaborare tutto.


ciao un saluto a voi

 

[lotto_tom75]

Ciao a tutti , lo script(di Disaronno) con le mie correzioni ci rileva la decina e e attende (26 colpi ) per mettere in gioco i numeri calcolati dal sommativo, e solo se i gli stessi non hanno avuto esito.
Quindi una cosa e valutare quante casi ci sono della decina trovata e un altra cosa sono gli esiti, anche perchè molte giocate devono ancora maturare, i colpi(26) di gioco.(che purtroppo mi sembrano tanti per avere una statistica aggiornata).
Tom, rifletti un pochetto , ma la tua richiesta mi sembra che era questa.

Disaronno, complimenti sei e stai diventando BRAVO un po di ricambio ci vuole, perciò fai palestra vbscript che c'è sempre da imparare.

Desperaux, purtroppo devo dire che tante volte non c'è facile risposta e soluzione ai tanti quesiti e statistiche degli utenti e può sembrare arrogante non rispondere ma sappi che scripter non si nasce si diventa e purtroppo mai abbastanza bravi per elaborare tutto.


ciao un saluto a voi

ciao mike scusa ma l'output non mi sembra gestibile.
In sostanza credo sarebbe molto meglio, se fosse possibile,
lasciando inalterate tutte le elaborazioni dell'ottimo script
di disaronno avere evidenziati magari in grassetto in fondo
all'output qualcosa di questo tipo:

coppie di numeri interessanti per estratto entro 1 colpo

A,B relativa alla condizione della data TOT
B,C relativa alla condizione della data TOT

Ovviamente se il tutto fosse possibile

Grazie 1000 comunque alla bravura e disponibilità tua e di disaronno

Così tanto per sperimentare qualcosa di leggermente nuovo ma sempre basandosi su questo script provo a dire

Numeri in gioco : 15.21 su TO per Estratto
In corso per altre 4 estrazioni

Questo portando i colpi (k) da 30 a 37 e verificando il tutto su 360 estrazioni (ini = EstrazioneFin - 360)

Casi esaminati : 361
Casi vincenti : 360
Percentuale pos. : 99,72%

Giocare comunque sempre con la massima moderazione!

 

[Mike58]

ciao raga, stravolgere output che da il vbscript di spaziometria, non credo sia possobile, poi con accorgimenti particolari tutto si può creare ad ok.
Ci penso e vediamo se viene fuori qualche idea, accorgimento.

Buona Notte.

 

[desperaux]

Ciao Mike58

non ti preoccupare ,io comunque ringrazio te ,Disaronno per cio' che state gia' facendo.