Aiuto x Script

[salvo14]

Gentilmente vi chiedo se è possibile sistemare questo Script, non fa la ricerca sulla Nazionale mentre sulle altre ruote sì. Grazie
Sub Main()
'un solo ambo da giocare a tutte metodo sommativo
Dim rt(3)
Dim nr(2)
Dim pta(2)
pta(2) = 1
rt(3) = 11
k = 13
For n = 9850 To EstrazioneFin
If IndiceMensile = 1 Then
ng = 0
ColoreTesto 0 :Scrivi " GUERRJNO74 1° DEL MESE UN AMBO SECCO SU NAZIONALE E TUTTE COLPI 13 ",1,1,1,4,4,"verdana",1
Scrivi
nr(1) = Fuori90(Estratto(n,NZ_,2) + 65)
nr(2) = Fuori90(Estratto(n,NZ_,1) + 68)
ImpostaGiocata 2,nr,rt,pta,k,2
Gioca n
End If
Next
Scrivi
Scrivi
Scrivi
Scrivi
ScriviResoconto
End Sub

 

[Xeroxs]

Ciao,
Piccola modifica senza altre modifiche. Prova così

Sub Main()
   'un solo ambo da giocare a tutte metodo sommativo
   Dim rt(3)
   Dim nr(2)
   Dim pta(2)
   pta(2) = 1
   rt(1) = 11
   rt(3) = 12
   k = 13
   For n = 9850 To EstrazioneFin
      If IndiceMensile(n) = 1 Then
         ng = 0
         ColoreTesto 0 :Scrivi " GUERRJNO74 1° DEL MESE UN AMBO SECCO SU NAZIONALE E TUTTE COLPI 13 ",1,1,1,4,4,"verdana",1
         Scrivi
         nr(1) = Fuori90(Estratto(n,NZ_,2) + 65)
         nr(2) = Fuori90(Estratto(n,NZ_,1) + 68)
         ImpostaGiocata 2,nr,rt,pta,k,2
         Gioca n
      End If
   Next
   Scrivi
   Scrivi
   Scrivi
   Scrivi
   ScriviResoconto
End Sub

 

[salvo14]

Grazie Xeroxs funziona benissimo.