Novità

X SCRIPTERS ESPERTI

Mike58 ha scritto:
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.
Clicca per espandere...

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 !!! :o
 
Ultima modifica:
ciao Lotto_tom75, dovrebbe essere cosi.
Purtroppo non ho molto tempo per la verifica...... devo scappare.


Codice: 
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)
 
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
 
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 :o

Grazie a entrambi mitici! :)
 
disaronno ha scritto:
Buonasera,
i casi vincenti su 34 (estrazioni sono stati 7 (estrazioni),per la richiesta vedro cosa posso fare.
Allego comunque resoconto.
Codice: 
+----------------------------------------+
| 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  |                                                                                                                
|                                        |                                                                                                                
+----------------------------------------+
Clicca per espandere...


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.
 
Ultima modifica:
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
 
Mike58 ha scritto:
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
Clicca per espandere...

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 :o

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!
 
Ultima modifica:
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.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 18 gennaio 2025
    Bari
    24
    76
    02
    72
    12
    Cagliari
    21
    08
    77
    04
    17
    Firenze
    74
    84
    07
    12
    72
    Genova
    13
    07
    33
    47
    18
    Milano
    01
    34
    09
    55
    48
    Napoli
    46
    23
    25
    03
    06
    Palermo
    44
    07
    01
    46
    84
    Roma
    88
    78
    64
    74
    04
    Torino
    07
    87
    67
    38
    53
    Venezia
    31
    25
    04
    18
    02
    Nazionale
    49
    82
    59
    65
    67
    Estrazione Simbolotto
    Bari
    03
    13
    31
    23
    35
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto