armando59
Advanced Member >GOLD<
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