Io faccio schifo con gli script, ma partendo da quello di Blacklotto (spero mi perdoni) ho fatto questo, le giocate le ho fatte tutte e 3 su Firenze, non è malaccio neppure Roma, si può migliorare molto, ma io è qui che arrivo, eccolo...
Sub Main
Dim nu(12),ru(12),ruo(12),ruot(12),r,Tot(4),v(4),Pu(5),Pun(5),x(12)
Ini = 9800
fin = 9838
For es = Ini To fin
Pu(2) = 1
Pu(3) = 1
Pun(3) = 1
'Pun(4) = 1
ruo(1) = 11
ruot(1) = 3
r = FI_ 'RO_
a = Estratto(es,r,1) :b = Estratto(es,r,2) :c = Estratto(es,r,3)
d = Estratto(es,r,4) :e = Estratto(es,r,5)
Tot(1) = Fuori90(a + b + c) : Tot(2) = Fuori90(b + c + d)
Tot(3) = Fuori90(c + d + e) : Tot(4) = Fuori90(d + e + a)
v(1) =(Vert(Tot(1))) : v(2) =(Vert(Tot(2)))
v(3) =(Vert(Tot(3))) : v(4) =(Vert(Tot(4)))
ColoreTesto 2
Scrivi DataEstrazione(es,1) & " " & NomeRuota(r),1,0
Scrivi" " & a & " " & b & " " & c & " " & d & " " & e,1
ColoreTesto 0
Scrivi
Scrivi"somma tra 1° 2° 3° estratto " & a & " + " & b & " + " & c & " = " & Tot(1),1,0
ColoreTesto 1 : Scrivi" vertibile " & v(1),1
ColoreTesto 0
Scrivi"somma tra 2° 3° 4° estratto " & b & " + " & c & " + " & d & " = " & Tot(2),1,0
ColoreTesto 1 : Scrivi" vertibile " & v(2),1
ColoreTesto 0
Scrivi"somma tra 3° 4° 5° estratto " & c & " + " & d & " + " & e & " = " & Tot(3),1,0
ColoreTesto 1 : Scrivi" vertibile " & v(3),1
ColoreTesto 0
Scrivi"somma tra 4° 5° 1° estratto " & d & " + " & e & " + " & a & " = " & Tot(4),1,0
ColoreTesto 1 : Scrivi" vertibile " & v(4),1
ColoreTesto 0
Scrivi
x(1) = Tot(1)
x(2) = v(1)
x(3) = Tot(2)
x(4) = v(2)
x(5) = Tot(3)
x(6) = v(3)
x(7) = Tot(4)
x(8) = v(4)
EliminaRipetuti x
EliminaRipetuti Tot
EliminaRipetuti v
Scrivi"somme estratti " & Tot(1) & "-" & Tot(2) & "-" & Tot(3) & "-" & Tot(4),1,0
Scrivi" *** vertibili " & v(1) & "-" & v(2) & "-" & v(3) & "-" & v(4),1
Scrivi "----------------------------------------------------------------------",1
ImpostaGiocata 1,Tot,ruot,Pu,10,4
ImpostaGiocata 2,v,ruot,Pu,10,4
ImpostaGiocata 3,x,ruot,Pun,10,4
Gioca es,1
Next
ScriviResoconto
End Sub
