SUPER LOTTO

L'Ambo OLTRE di A.LONGO (ORIGINALE)

« Older   Newer »
  Share  
osvaldo1
CAT_IMG Posted on 18/6/2013, 15:20




Inserisco script dell'AMBO OLTRE di A.Longo (ORIGINALE)

eccolo:
Sub Main()
Dim am(1),ab(4),j(2),ruota(2),ruote(1),posta(1),poste(3)
posta(1) = 1 : poste(2) = 1 : poste(3) = 1


For es = 8500 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
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) 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

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)
x = Fuori90(a + e) : y = Fuori90(b + e) : am(1) = y

ruota(1) = r1 : ruota(2) = r2 : ruote(1) = 11
ImpostaGiocata 1,am,ruota,posta,13

ab(1) = am(1) : ab(2) = Fuori90(x + y)

ImpostaGiocata 2,ab,ruota,poste,13
ImpostaGiocata 3,ab,ruote,poste,13

Gioca es : Scrivi String(67,151)

TestoInBandaPassante "*°*°* AMBO OLTRE di ANTONIO LONGO *°*°* ",1,3,0

End If
Next
Next
End If
Next
Next
Next
Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi "",1
Scrivi "",1
ColoreTesto 2 : Scrivi "",1 : End Sub


:bye1.gif: :bye1.gif:
 
Top
gianma54
CAT_IMG Posted on 19/6/2013, 16:15




GRAZIE OSVALDO :hi.gif:
 
Top
2 replies since 18/6/2013, 15:20   771 views
  Share