Option Explicit
Sub Main()
ColoreTesto 1
Scrivi "================ M E T O D O B Y V I V O =========",1
ColoreTesto 0
Scrivi "============= 1 AMBATA E 2 AMBI SU FIRENZE DOPO SPIA 11 ==============",1
ColoreTesto 1
Scrivi "========================F I R E N Z E =========================",1
ColoreTesto 1
Scrivi "============ LISTATO BY B A F F O B L U ============",1
ColoreTesto 0
Scrivi "===========================================================",1
Scrivi
ColoreTesto 0
'***************************************************************************
'*** NB : SE E' PRESENTE OPTION EXPLICIT (come prima linea dello script) ***
'DEVONO ESSERE DICHIARATE con DIM *TUTTE* LE VARIABILI UTILIZZATE:
'LE VARIABILI contenute nelle due linee qui sotto non erano DICHIARATE ESPLICITAMENTE.
Dim Clp,Ini,Fin,Es,Co,P,A,Ok,Ob,o,b,c,d,e,f
Dim Primodibari,Quartodibari,Secondodinapoli,Primodinazionale,Primodiroma
''**************************************************************************
Dim ruote(1)
Dim posta(1)
Dim poste(2)
Dim n(1)
Dim am(3)
posta(1) = 10
poste(2) = 5
Clp = 9
Ini = EstrazioneFin - 150
Fin = EstrazioneFin
Co = 0
For Es = Ini To Fin
Messaggio Es
ruote(1) = 3
For P = 1 To 5
A = Estratto(Es,3,P)
Ok = 0
If A = 11 Then
Primodibari = Estratto(Es,1,1)
Quartodibari = Estratto(Es,1,4)
Secondodinapoli = Estratto(Es,6,2)
Primodinazionale = Estratto(Es,12,1)
Primodiroma = Estratto(Es,8,1)
o = Primodibari + Secondodinapoli
b = Fuori90(o * Primodinazionale)
c = Primodibari * Primodiroma
d = Fuori90(c + Primodiroma)
e = Quartodibari * 60
f = Fuori90(e + 77)
n(1) = b
am(1) = b
am(2) = d
am(3) = f
Ok = 1
End If
If Ok = 1 Then
Co = Co + 1
Scrivi String(70,"°") & " Caso n°" & Co,1
Scrivi String(70,"°"),1
ruote(1) = 3
ImpostaGiocata 1,n,ruote,posta,Clp,1
n(1) = b
ImpostaGiocata 2,am,ruote,poste,Clp,2
am(1) = b
am(2) = d
am(3) = f
Gioca Es
End If
Next
Next
ScriviResoconto
End Sub