lo script non funziona, non elabora nulla....da solo la schermata iniziale con zero gioco
Anche a me dà lo stesso problema..io ho questo script
Sub Main()
Dim am(1),ab(2),j(2),qu(5),ruota(2),ruote(1),posta(1),poste(2)
posta(1) = 1 : poste(2) = 1
Dim prog(5,100)
prog(1,1) = 1
prog(1,2) = 1
prog(1,3) = 1
prog(1,4) = 1.50
prog(1,5) = 2
prog(1,6) = 3
prog(1,7) = 4
prog(1,8) = 5.50
prog(1,9) = 8
prog(1,10) = 11
prog(1,11) = 15.50
prog(1,12) = 21.50
prog(1,13) = 30
Rem utile min. 50% unica bolletta
For es = EstrazioneFin - 20 To EstrazioneFin
Messaggio "Estrazione: [" & es & "]ª"
For r1 = 1 To 10
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,r1,p1) : b = Estratto(es,r1,p2)
For r2 = r1 + 1 To 12
If r2 = 11 Then r2 = 12
For p3 = 1 To 4
For p4 = p3 + 1 To 5
c = Estratto(es,r2,p3) : d = Estratto(es,r2,p4)
If(a = c And b = d) Or(a = d And b = c) Then
cont = cont + 1
Scrivi : ColoreTesto 2 : Scrivi String(40,32) & " Pronostico n° " & cont & "",1
ColoreTesto 0 : Scrivi
Scrivi DataEstrazione(es,1) & "" & Space(2) & _
"[" & es & "]ª" & Space(3) & "" & Left(NomeRuota(r1),3) & _
"" & Space(3) & "" & StringaEstratti(es,r1) & "" & Space(6) & _
"" & Format2(a) & "" & Space(1) & "" & Format2(b) & _
"" & Space(4) & "(" & p1 & "-" & p2 & ")"
Scrivi DataEstrazione(es,1) & "" & Space(2) & _
"[" & es & "]ª" & Space(3) & "" & Left(NomeRuota(r2),3) & _
"" & Space(3) & "" & StringaEstratti(es,r2) & "" & Space(6) & _
"" & Format2(c) & "" & Space(1) & "" & Format2(d) & _
"" & Space(4) & "(" & p3 & "-" & p4 & ")" : Scrivi
If a = c And b = d Then
a1 = Fuori90(a + c) : b1 = Fuori90(b + d)
c1 = Abs(a1 - b1) : d1 = c1\2
j(1) = a1 : j(2) = b1
e = Fuori90(Minimo(j(1),j(2)) + d1)
f = Fuori90(Massimo(j(1),j(2)) - d1)
x = Fuori90(a + e) : y = Fuori90(b + e)
If a < b Then am(1) = y
If a > b Then am(1) = x
End If
If a = d And b = c Then
a1 = Fuori90(a + d) : b1 = Fuori90(b + c)
c1 = Abs(a1 - b1) : d1 = c1\2
j(1) = a1 : j(2) = b1
e = Fuori90(Minimo(j(1),j(2)) + d1)
f = Fuori90(Massimo(j(1),j(2)) - d1)
x = Fuori90(a + e) : y = Fuori90(b + e)
am(1) = y
End If
am(1) = y
ruota(1) = r1 : ruota(2) = r2 : ruote(1) = 11
ImpostaGiocata 1,am,ruota,posta,14
ImpostaProgressione 1,prog
ab(1) = y : ab(2) = Fuori90(x + y)
ImpostaGiocata 2,ab,ruota,poste,14
ImpostaGiocata 3,ab,ruote,poste,14
Gioca es : Scrivi String(67,151)
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi "METODO: AMBO OLTRE",1
Scrivi "AUTORE: A. Longo-",1
ColoreTesto 2 : Scrivi "•damper•",1 : End Sub
