AIUTO PER SCRIPT

[Armaus]

Buongiorno, avrei bisogno di qualche bravo scripter per questo problema:
Ogni volta che in qualsiasi estrazione e in qualsiasi ruota esce un ambo e/o terno di cadenza 9, a breve distanza esce un ambo e/o terno di zerati e/o numeretti, es.
29/5/21 FI ambo 69-9 il 5/06/21 escono 6.80.10, il 17/6/21 esce 20.40, il 15/6/21 CA ambo 59-9 il 22/6/21 escono 9.5.20.
Di solito escono due zerati e un numeretto, oppure 2 numeretti e uno zerato , oppure due zerati e/o 2 numeretti.
Per ovviare al cappotto di solito gioco le 2 novine intere con un piccolo aumento, qualche sestina ma il guadagno è irrisorio.
Avrei bisogno di uno script e se possibile una statistica con risultati di un paio di mesi per testare la validità del progetto, premetto non sono uno scripter.
In spaziometria c'è un qualcosa che possa aiutare perlomeno ad individuare le migliori possibilità di uscita di uno zerato e/o ambetto?
Grazie a chi mi vorrà dare una mano.
Saluti, Armaus

 

[Cinzia27]

Ciao, Armaus.
Vedi se fa al caso tuo.

'Armaus - n. 2 lunghette di zerati e numeretti In gioco dopo la sortita di una ambo cad 9 - Cinzia


Sub Main()

Dim n(9),n1(9),ru(1),ps(3)
ps(2)=1
ps(3)=0.50

For es=EstrazioneFin-200 To EstrazioneFin
For r=1 To 11
If r=11 Then r=12
ru(1)=r
For p=1 To 4
For p1=p+1 To 5
a=Estratto(es,r,p)
If a>0 Then
b=Estratto(es,r,p1)
If Cadenza(a)=9 And Cadenza(b)=9 Then
n(1)=10
n(2)=20
n(3)=30
n(4)=40
n(5)=50
n(6)=60
n(7)=70
n(8)=80
n(9)=90

n1(1)=01
n1(2)=02
n1(3)=03
n1(4)=04
n1(5)=05
n1(6)=06
n1(7)=07
n1(8)=08
n1(9)=09


Messaggio es
Scrivi String(40,"*")
Scrivi SiglaRuota(r)&" "&Format2(a)&"."&Format2(b)
ImpostaGiocata  1,n,ru,ps,9,3
ImpostaGiocata  2,n1,ru,ps,9,3
Gioca es
End If
End If
Next
Next
Next
Next
ScriviResoconto



End Sub

 

[Cinzia27]

Grazie, Toon e Salvo50.