CERCO SCRIPT TERZINA X AMBO 2 RUOTE

[trivellatomariotretre33]

CIAO BUONGIORNO QUALCUNO MI PUO AIUTARE AD 'AVERE UN BUON SCRYPT CON PREVISIONE DI TERZINA SU UNA RUOTA O 2
CHE ANCHE SE GIOCA PIU DI NOVE COLPI DIA ESITO VINCENTE DI AMBO OTTIMO MAGARI
ESEMPIO TIPO 17-71-5
O UNA RUOTA O SU 2 RUOTE GRAZIE

 

[Kewin!]

ho questo che attualmente ha una terzina in gioco, ma non sono casi frequenti.

Sub Main()
ColoreTesto 2
ColoreTesto 2: Scrivi " Differenza 83 in 1°-5° posizione a Palermo - Metodo e listato by Kewin",1
Scrivi"°º¤ø,¸¸,ø¤º°`°º¤ø,¸,ø¤°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤",1
ColoreTesto 0
Dim ruote(1)
Dim poste(2)
Dim n1(3)
poste(2) = 1
clp = 9
ini = EstrazioneFin - 8820
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(Ini,Fin,es)
a = Estratto(es,7,1)
b = Estratto(es,7,5)
ok = 0
If a - b = 83 Or b - a = 83 Then
n1(1) = Fuori90(Estratto(es,7,2) + Estratto(es,9,5) + 5)
n1(2) = Fuori90(Estratto(es,9,2) - Estratto(es,9,5) + 18)
n1(3) = Fuori90(Estratto(es,1,3) + Estratto(es,9,3) + 12)
ok = 1
End If
If ok = 1 Then
co = co + 1
ColoreTesto 1
Scrivi String(75,"_"),1
Scrivi DataEstrazione(es) & " differenza 85  " & a & " - " & b,1
Scrivi String(75,"-"),1
ColoreTesto 0
ruote(1) = 7
ImpostaGiocata 1,n1,ruote,poste,clp
Gioca es,1
End If
Next
ScriviResoconto
End Sub

Ciao

 

[trivellatomariotretre33]

grazie di cuore Kewin sei gentile
una stretta di mano chilometrica ciao e grazie.