un aiuto per questo scrip

[armando59]

Sub Main()
Dim Ambate(2),Ruotadigioco(2),Poste(2)
Ruotadigioco(1) = GE_ : Poste(1) = 4 : Poste(2) = 1
Ruotadigioco(2) = RO_ : Poste(1) = 2 : Poste(2) = 1
fin = EstrazioneFin
ini = EstrazioneFin - 150
For es = ini To fin
AvanzamentoElab ini,fin,es
If IndiceMensile(es) = 1 Then
Ambate(1) = Figura(Estratto(Es,BA_,2))
Ambate(2) = Fuori90(Estratto(Es,CA_,2))
ImpostaGiocata 1,Ambate,Ruotadigioco,Poste,13,3
Gioca Es,1
End If
Next
ScriviResoconto
End Sub

sarebbe possibile inserire la giocata anche dell'ambetto?
se cè qualcuno che lo può fare vi ringrazio moltissimo
ciao

 

[Master]

ciao, ho aggiunto i 4 ambi ai tuoi 2 numeri per simulare l'ambetto..

Sub Main()
Dim Ambate(2),Ruotadigioco(2),Poste(2),Posta(2)
Ruotadigioco(1) = GE_ : Poste(1) = 4 : Poste(2) = 1 : Posta(2) = 1
Ruotadigioco(2) = RO_ 
fin = EstrazioneFin
ini = EstrazioneFin - 150
For es = ini To fin
AvanzamentoElab ini,fin,es
If IndiceMensile(es) = 1 Then
Ambate(1) = Figura(Estratto(Es,BA_,2))
Ambate(2) = Fuori90(Estratto(Es,CA_,2))
ImpostaGiocata 1,Ambate,Ruotadigioco,Poste,13,3
Ambate(1) = Figura(Estratto(Es,BA_,2))
Ambate(2) = Fuori90(Estratto(Es,CA_,2)+1)
ImpostaGiocata 2,Ambate,Ruotadigioco,Posta,13,3
Ambate(1) = Figura(Estratto(Es,BA_,2))
Ambate(2) = Fuori90(Estratto(Es,CA_,2)-1)
ImpostaGiocata 3,Ambate,Ruotadigioco,Posta,13,3
Ambate(1) = Figura(Estratto(Es,BA_,2)+1)
Ambate(2) = Fuori90(Estratto(Es,CA_,2))
ImpostaGiocata 4,Ambate,Ruotadigioco,Posta,13,3
Ambate(1) = Figura(Estratto(Es,BA_,2)-1)
Ambate(2) = Fuori90(Estratto(Es,CA_,2))
ImpostaGiocata 5,Ambate,Ruotadigioco,Posta,13,3
Gioca Es,1
End If
Next
ScriviResoconto
End Sub

 

[armando59]

Ciao Master,è come lo volevo.
ti ringrazio ciao....