Sub Main()
Scrivi:Scrivi "L'Apocalisse del lotto di Antonio Vecchione ... Script By Blackmore modifcato da Keeper",1
Scrivi
Dim ruota(10)
Dim ambata(1)
Dim n(1)
Dim posta(1)
posta(1) = 1
k = InputBox("COLPI DI GIOCO",,18)
ini = InputBox("ESTRAZIONE DI PARTENZA",,8000)
fin = InputBox("ESTRAZIONE FINALE",,EstrazioneFin)
For es = ini To fin
Call AvanzamentoElab(ini,fin,es)
If IndiceMensile(es + 1) = 1 Then
a = Estratto(es,NA_,5)
If a > 0 Then
co = co + 1
Scrivi String(105,"*") & " Caso n°" & Format2(co),1
Scrivi DataEstrazione(es) & " " & SiglaRuota(NA_) & " " & StringaEstratti(es,NA_) & " Spia " & Format2(a) & " In 5°Posizione",1
If a = 1 Then n(1) = Fuori90(Estratto(es,VE_,1) + 11):r = 1
If a = 1 Then n(2) = Fuori90(Estratto(es,TO_,1) + Estratto(es,VE_,4)):r = 1
If a = 2 Then n(1) = Fuori90(Estratto(es,TO_,4) * 21):r = 1
If a = 3 Then n(1) = Fuori90(Estratto(es,BA_,1) + 36):r = 1
If a = 4 Then n(1) = Fuori90(Estratto(es,VE_,3) * 40):r = 1
If a = 5 Then n(1) = Fuori90(Estratto(es,MI_,5) - Estratto(es,NA_,1)):r = 1
If a = 6 Then n(1) = Fuori90(Estratto(es,FI_,2) + 0):r = 1
If a = 7 Then n(1) = Fuori90(Estratto(es,RO_,4) - Estratto(es,VE_,3)):r = 1
If a = 8 Then n(1) = Fuori90(Estratto(es,TO_,5) + 25):r = 1
If a = 9 Then n(1) = Fuori90(Estratto(es,PA_,4) + 4):r = 1
If a = 9 Then n(1) = Fuori90(Estratto(es,PA_,3) + Estratto(es,RO_,4)):r = 1
If a = 10 Then n(1) = Fuori90(Estratto(es,RO_,2) * 9):r = 1
If a = 11 Then n(1) = Fuori90(Estratto(es,NA_,5) + 0):r = 1
If a = 12 Then n(1) = Fuori90(Estratto(es,MI_,4) + 5):r = 1
If a = 13 Then n(1) = Fuori90(Estratto(es,VE_,4) * 40):r = 1
If a = 14 Then n(1) = Fuori90(Estratto(es,FI_,1) + 42):r = 1
If a = 15 Then n(1) = Fuori90(Estratto(es,VE_,4) + 0):r = 1
If a = 16 Then n(1) = Fuori90(Estratto(es,FI_,4) - 20):r = 1
If a = 17 Then n(1) = Fuori90(Estratto(es,FI_,2) - 23):r = 1
If a = 18 Then n(1) = Fuori90(Estratto(es,MI_,3) - 36):r = 1
If a = 19 Then n(1) = Fuori90(Estratto(es,FI_,3) * Estratto(es,MI_,4)):r = 1
If a = 20 Then n(1) = Fuori90(Estratto(es,BA_,4) * 27):r = 1
If a = 21 Then n(1) = Fuori90(Estratto(es,MI_,5) + 2):r = 1
If a = 22 Then n(1) = Fuori90(Estratto(es,VE_,4) * 28):r = 1
If a = 23 Then n(1) = Fuori90(Estratto(es,FI_,4) - 7):r = 1
If a = 24 Then n(1) = Fuori90(Estratto(es,VE_,4) * 40):r = 1
If a = 25 Then n(1) = Fuori90(Estratto(es,MI_,2) * 12):r = 1
If a = 26 Then n(1) = Fuori90(Estratto(es,FI_,2) - Estratto(es,PA_,1)):r = 1
If a = 27 Then n(1) = Fuori90(Estratto(es,RO_,1) * 3):r = 1
If a = 28 Then n(1) = Fuori90(Estratto(es,BA_,3) + Estratto(es,NA_,3)):r = 1
If a = 29 Then n(1) = Fuori90(Estratto(es,RO_,4) + 41):r = 1
If a = 30 Then n(1) = Fuori90(Estratto(es,RO_,2) * 18):r = 1
If a = 31 Then n(1) = Fuori90(Estratto(es,NA_,5) * 29):r = 1
If a = 31 Then n(1) = Fuori90(Estratto(es,NA_,5) - 32):r = 1
If a = 32 Then n(1) = Fuori90(Estratto(es,PA_,5) - 24):r = 1
If a = 33 Then n(1) = Fuori90(Estratto(es,TO_,5) - 3):r = 1
If a = 34 Then n(1) = Fuori90(Estratto(es,MI_,3) * 5):r = 1
If a = 35 Then n(1) = Fuori90(Estratto(es,VE_,5) * 13):r = 1
If a = 36 Then n(1) = Fuori90(Estratto(es,FI_,2) - Estratto(es,MI_,3)):r = 1
If a = 37 Then n(1) = Fuori90(Estratto(es,RO_,3) - 2):r = 3
If a = 37 Then n(1) = Fuori90(Estratto(es,NA_,3) + Estratto(es,RO_,2)):r = 1
If a = 38 Then n(1) = Fuori90(Estratto(es,NA_,2) * 11):r = 1
If a = 39 Then n(1) = Fuori90(Estratto(es,BA_,2) * Estratto(es,VE_,2)):r = 1
If a = 40 Then n(1) = Fuori90(Estratto(es,TO_,4) + 15):r = 1
If a = 41 Then n(1) = Fuori90(Estratto(es,FI_,5) + Estratto(es,MI_,4)):r = 1
If a = 42 Then n(1) = Fuori90(Estratto(es,BA_,1) - Estratto(es,PA_,1)):r = 1
If a = 43 Then n(1) = Fuori90(Estratto(es,FI_,3) - Estratto(es,PA_,2)):r = 1
If a = 44 Then n(1) = Fuori90(Estratto(es,NA_,1) + 15):r = 1
If a = 45 Then n(1) = Fuori90(Estratto(es,NA_,1) * 21):r = 1
If a = 46 Then n(1) = Fuori90(Estratto(es,FI_,3) - 19):r = 1
If a = 47 Then n(1) = Fuori90(Estratto(es,RO_,3) + 28):r = 1
If a = 48 Then n(1) = Fuori90(Estratto(es,MI_,2) + 31):r = 1
If a = 49 Then n(1) = Fuori90(Estratto(es,TO_,5) - 26):r = 1
If a = 50 Then n(1) = Fuori90(Estratto(es,RO_,3) + 4):r = 1
If a = 51 Then n(1) = Fuori90(Estratto(es,PA_,4) + 22):r = 1
If a = 52 Then n(1) = Fuori90(Estratto(es,MI_,1) + 15):r = 1
If a = 53 Then n(1) = Fuori90(Estratto(es,FI_,2) + 24):r = 1
If a = 54 Then n(1) = Fuori90(Estratto(es,PA_,5) + Estratto(es,TO_,5)):r = 1
If a = 55 Then n(1) = Fuori90(Estratto(es,RO_,1) + 12):r = 1
If a = 56 Then n(1) = Fuori90(Estratto(es,TO_,3) - 41):r = 1
If a = 57 Then n(1) = Fuori90(Estratto(es,PA_,5) + 25):r = 1
If a = 57 Then n(1) = Fuori90(Estratto(es,TO_,5) - 29):r = 1
If a = 57 Then n(1) = Fuori90(Estratto(es,BA_,2) - Estratto(es,MI_,3)):r = 1
If a = 57 Then n(1) = Fuori90(Estratto(es,NA_,1) + Estratto(es,RO_,3)):r = 1
If a = 58 Then n(1) = Fuori90(Estratto(es,MI_,1) * 9):r = 1
If a = 59 Then n(1) = Fuori90(Estratto(es,BA_,3) + Estratto(es,VE_,4)):r = 1
If a = 60 Then n(1) = Fuori90(Estratto(es,VE_,3) * 3):r = 1
If a = 61 Then n(1) = Fuori90(Estratto(es,FI_,1) - Estratto(es,VE_,3)):r = 1
If a = 62 Then n(1) = Fuori90(Estratto(es,VE_,1) * 42):r = 1
If a = 63 Then n(1) = Fuori90(Estratto(es,FI_,3) + 33):r = 1
If a = 64 Then n(1) = Fuori90(Estratto(es,FI_,5) - 7):r = 1
If a = 65 Then n(1) = Fuori90(Estratto(es,FI_,1) + 37):r = 1
If a = 66 Then n(1) = Fuori90(Estratto(es,VE_,3) * 31):r = 1
If a = 67 Then n(1) = Fuori90(Estratto(es,FI_,1) + 32):r = 1
If a = 67 Then n(1) = Fuori90(Estratto(es,VE_,3) * 25):r = 1
If a = 68 Then n(1) = Fuori90(Estratto(es,MI_,4) + Estratto(es,NA_,1)):r = 1
If a = 69 Then n(1) = Fuori90(Estratto(es,FI_,5) + 34):r = 1
If a = 70 Then n(1) = Fuori90(Estratto(es,PA_,3) + 30):r = 1
If a = 71 Then n(1) = Fuori90(Estratto(es,PA_,2) + 45):r = 1
If a = 72 Then n(1) = Fuori90(Estratto(es,FI_,4) - 15):r = 1
If a = 73 Then n(1) = Fuori90(Estratto(es,TO_,5) + 21):r = 1
If a = 74 Then n(1) = Fuori90(Estratto(es,NA_,3) + 37):r = 1
If a = 74 Then n(1) = Fuori90(Estratto(es,VE_,4) * 11):r = 1
If a = 75 Then n(1) = Fuori90(Estratto(es,BA_,3) * Estratto(es,VE_,5)):r = 1
If a = 76 Then n(1) = Fuori90(Estratto(es,FI_,3) + 36):r = 1
If a = 77 Then n(1) = Fuori90(Estratto(es,NA_,2) - 26):r = 1
If a = 78 Then n(1) = Fuori90(Estratto(es,FI_,2) * 14):r = 1
If a = 78 Then n(1) = Fuori90(Estratto(es,BA_,5) + Estratto(es,NA_,4)):r = 1
If a = 79 Then n(1) = Fuori90(Estratto(es,NA_,5) + 27):r = 1
If a = 80 Then n(1) = Fuori90(Estratto(es,VE_,1) * 28):r = 1
If a = 81 Then n(1) = Fuori90(Estratto(es,VE_,3) - 1):r = 1
If a = 82 Then n(1) = Fuori90(Estratto(es,MI_,1) - Estratto(es,PA_,2)):r = 1
If a = 83 Then n(1) = Fuori90(Estratto(es,RO_,1) - Estratto(es,VE_,4)):r = 1
If a = 84 Then n(1) = Fuori90(Estratto(es,FI_,5) * Estratto(es,VE_,2)):r = 1
If a = 85 Then n(1) = Fuori90(Estratto(es,FI_,4) * 33):r = 1
If a = 86 Then n(1) = Fuori90(Estratto(es,TO_,1) + 7):r = 1
If a = 87 Then n(1) = Fuori90(Estratto(es,RO_,5) - 14):r = 1
If a = 88 Then n(1) = Fuori90(Estratto(es,FI_,3) * Estratto(es,RO_,4)):r = 1
If a = 89 Then n(1) = Fuori90(Estratto(es,MI_,2) * Estratto(es,PA_,5)):r = 1
If a = 90 Then n(1) = Fuori90(Estratto(es,FI_,2) - Estratto(es,NA_,3)):r = 1
ruota(1) = r
ambata(1) = n(1)
ImpostaGiocata 1,ambata,ruota,posta,k,1
Gioca es,1 ' Se usate L8 o Lottodesk togliete la virgola e l'1 dopo gioca es
End If
End If
If ScriptInterrotto Then Exit For
Next
ScriviResoconto
End Sub