Richiesta script su due estrazioni diverse

[vinci]

Buongiorno a tutti,
per cortesia avrei bisogno di uno script che mi calcoli una previsione
ricavata da due estrazioni diverse, cerco d spigarmi meglio con un esempio:

Ruota di gioco = TORINO

Calcolo numeri previsione
1° numero) Ultima estrazione del mese 2° NAPOLI + 61
2° numero) Prima estrazione del mese 3° ROMA + 53
3° numero) Prima estrazione del mese 1° TORINO +16
4° numero) Prima estrazione del mese 2° TORINO + 3

se ci fosse eventualmente un numero doppio sostituire con il suo vertibile

Giocare la quartina dalla estrazione successiva (in questo caso 2° del mese)
per Ambo, Terno e Quaterna per i successivi 10 Colpi
sospendere il gioco alla prima vincita di almeno ambo

Ringrazio infinitamente chi mi potrà aiutare nella mia richiesta

 

[fabri.m]

Option Explicit
Sub Main()
   ' Richiesta script su due estrazioni diverse di vinci
   ' https://forum.lottoced.com/threads/richiesta-script-su-due-estrazioni-diverse.2202441/#post-2377334
   Dim Ini,fin,es
   Ini = 09868
   fin = EstrazioneFin
   Dim VetRuote(01)
   Dim VetNumeri(04)
   Dim VetPoste(04)
   Dim Durata
   VetRuote(01) = TO_
   VetPoste(02) = 01
   VetPoste(03) = 01
   VetPoste(04) = 01
   Durata = 10
   For es = Ini To fin
      Call Messaggio(es) : Call AvanzamentoElab(Ini,fin,es)
      If IndiceMensile(es) = 01 Then
         VetNumeri(01) = Fuori90(Estratto(es - 01,NA_,02) + 61)
         VetNumeri(02) = Fuori90(Estratto(es + 00,RO_,03) + 53)
         VetNumeri(03) = Fuori90(Estratto(es + 00,TO_,01) + 16)
         VetNumeri(04) = Fuori90(Estratto(es + 00,TO_,02) + 03)
         rem
         Dim rip,xx,yy
         rip = 00
         If NumeriRipetuti(VetNumeri) Then
            rip = 01
            While NumeriRipetuti(VetNumeri)
               For xx = 01 To 03
                  For yy = xx + 01 To 04
                     If VetNumeri(xx) = VetNumeri(yy) Then VetNumeri(yy) = Vert(VetNumeri(yy))
                  Next
               Next
            Wend
         End If
         rem
         Call ImpostaGiocata(01,VetNumeri,VetRuote,VetPoste,Durata,AMBO_)
         Call Gioca(es)
      End If
   Next
   Call ScriviResoconto()
End Sub

 

[vinci]

Ringrazio per lo script era quello che cercavo, ho già copiato e messo nel mio archivio.
Non riuscivo a mettere assieme due estrazioni diverse, adesso il problema è risolto.
Ancora grazie infinite