Per Blackmore richiesta Script

[Serpico 90]

Buon giorno Blackmore ,gentilmente tra i tuoi GRADITISSIMI script per caso hai qualche lavoro sulla figura del Nove?
e precisamente per individuare una ambata tra i nove numeri della figura da poter giocare per nove colpi?
Grazie se mi rispondi.
Saluti
Serpico 90

 

[Roby]

Ciao Serpico, un po' strana come richiesta...
mi spiace non ho script simili

 

[Roby]

Ho fatto questo, ma non so se fa al caso tuo
Ogni volta che su Bari esce la spia 9 (la figura)
gioca su venezia il 45 e 54 (numeri in figura 9)
Ciao

Sub Main()
Dim ruota(10)
Dim ambata(2)
Dim posta(1)
posta(1)=1
ini = InputBox("INIZIO RICERCA",,8270)
r1 = InputBox("RUOTA DI RICERCA",,1)
r2 = CInt(InputBox("RUOTA DI GIOCO",,10))
spia = CInt(InputBox("SPIA",,9))
k = InputBox("COLPI",,9)
fin = EstrazioneFin
For es = ini To fin
Call AvanzamentoElab(ini,fin,es)
Messaggio "Script Black"
For p = 1 To 5
a = Estratto(es,r1,p)
If a = spia Then 
co=co+1
ruota(1)= r2
Scrivi String(100,"*")&" Caso n°"& Format2(co),1
Scrivi DataEstrazione(es)&"  "& SiglaRuota(r1)&"  "& StringaEstratti(es,r1)&"   ["& Format2(a)&"]",1
ambata(1)= 45
ambata(2)= 54
ImpostaGiocata 1,ambata,ruota,posta,k
Gioca es,1
End If 
Next
Next 
Scrivi
Scrivi
ScriviResoconto
End Sub

 

[Serpico 90]

Grazie sempre gentile e disponibile.
Saluti
Serpico 90