Metodo figure bibbolotto richiesta integrazione script con pos. ambata determinata

[skygirl]

Buongiorno,
spero fare cosa gradita, allego il listato del metodo.
Controllare sempre,salvo errori.

Sub Main()
    Scrivi " metodino per ambata semplice semplice di bibbolotto ",1 ' - http://forum.lottoced.com/f8/metodino-per-ambata-semplice-semplice-117145/ -
    Dim n(01),ruota(02),posta(01)
    posta(01) = 1
    klp = 3
    caso = 0
    ini = EstrazioneFin - 05
    fin = EstrazioneFin
    For es = ini To fin
        Messaggio(es)
        AvanzamentoElab ini,fin,es
        For r1 = 01 To 09
            For p1 = 01 To 05
                a = Estratto(es,r1,p1)
                r2 = r1 + 1
                b = Estratto(es,r2,p1)
                If Figura(a) = Figura(b) Then
                    diff = Differenza(a,b)
                    nmin = Minimo(a,b)
                    nmax = Massimo(a,b)
                    caso = caso + 1
                    Scrivi String(95,"-") & "Caso n° " & Format2(caso),1
                    Scrivi GetInfoEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " numero " & Format2(a) & " in " & Format2(p1) & " ° posizione",1
                    Scrivi GetInfoEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " numero " & Format2(b) & " in " & Format2(p1) & " ° posizione",1
                    Scrivi"Estratti i numeri [" & Format2(a) & "] ed [" & Format2(b) & "] in [" & Format2(p1) & "]° posizione aventi la stessa figura [" & Format2(Figura(a)) & "]",1
                    Scrivi "Differenza dei numeri " & Format2(nmax) & " - " & Format2(nmin) & " = " & Format2(Differenza(a,b)) & " + " & Format2(nmax) & " = " & Format2(Fuori90(diff + nmax)),1
                    Scrivi
                    ruota(01) = r1
                    ruota(02) = r2
                    n(01) = Fuori90(diff + nmax)
                    ImpostaGiocata 1,n,ruota,posta,klp,1
                    Gioca es,True,,True
                End If
            Next
        Next
    Next
    ScriviResoconto
End Sub

Ciao in base agli ultimi sviluppi del metodo da parte di bibbolotto (metodo delle figure integrato con individuazione dell'ambata determinata)sarebbe possibile integrare lo script elaborato da disaronno?. Grazie

Bibbolotto specifica infatti:
"penso di aver capito le posizioni deteminate per l'ambata ovvero
se la previsione e' in 1° giochero' in 2 e 4 pos
2° in 3 e 1 pos
3° in 2 e 4 pos
4° in 2 e 3 pos
5° in 1 e 4 pos

grazie

 

[skygirl]

Grazie disaronno bellissimo lavoro

 

[rodrigo]

Grazie disaronno va bene così