Richiesta Script per numero spia

[salvo14]

Buongiorno a tutti, Chiedo gentilmente agli esperti di Script se è possibile fare uno Script per la ricerca su ruota singola (Palermo) di un numero spia e calcolare l'Ambata e 3 ambi, da giocare su Bari.

Ruota di ricerca numero spia Palermo
Ruota di Gioco: Bari
Colpi di gioco: 8
Operazioni da eseguire:

Calcolo Capogioco:
Capogioco: 2° CA + 3 RO

Calcolo Abbinamenti per Ambo:
Abbinamento 1°: 2° CA + 31
Abbinamento 2°: 5° CA - 5° RO
Abbinamento 3°: 3° BA X 15

Spero di essere stato chiaro, un Grazie anticipato a chi volesse sodisfare la mia richiesta.

 

[salvo14]

o non capisco io o mi sono perso qualcosa .
ma il numero spia lo devi ritrovare in base ai dati che hai scritto ?
o ti sei dimenticato un pezzo ?

Ciao Gcarlo, il numero spia deve essere il 7 e comunque se potessi inserirlo io anche un numero diverso sarebbe meglio. Grazie

 

[salvo14]

fatto

Anticipazione (Spoiler)

Option Explicit
Sub Main()
Dim aSpia : aSpia = CInt(InputBox("Inserisci la Spia",,7))
Dim aRuotaRil : aRuotaRil = CInt(InputBox("Inserisci la ruota di ricerca spia",,7))
Dim aRuotaGio : aRuotaGio = CInt(InputBox("Inserisci la ruota di gioco",,1))
Dim aPos,ruote,n1,n2
Dim poste1 : poste1 = Array(000,1.00,000,000,000,000)
Dim poste2 : poste2 = Array(000,000,1,00,000,000,000)
Dim Ini,fin,es,casi : Ini = CInt(InputBox("Inserisci l'estrazione da cui iniziare ricerca",,9572))
Dim Durata : Durata = CInt(InputBox("Inserisci colpi di gioco",,8))
fin = EstrazioneFin : casi = 0
For es = Ini To fin : Call Messaggio(es) : Call AvanzamentoElab(Ini,fin,es)
aPos = Posizione(es,aRuotaRil,aSpia)
If aPos > 00 Then
casi = casi + 1
Call Scrivi(String(125,"=") & " Caso n° " & Format2(casi),True)
Call Scrivi(GetInfoEstrazione(es) & " [ " & SiglaRuota(aRuotaRil) & " " & _
StringaEstratti(es,aRuotaRil) & " ] [ " & Format2(aSpia) & " in [ " & Format2(aPos) & " ] ° pos.",True)
ruote = Array(00,aRuotaGio)
n1 = Array(00,Fuori90(Estratto(es,CA_,2) + Estratto(es,RO_,3)))
Call ImpostaGiocata(1,n1,ruote,poste1,Durata,AMBATA_)
n2 = Array(00,Fuori90(Estratto(es,CA_,2) + Estratto(es,RO_,3)),Fuori90(Estratto(es,CA_,2) + 31),_
Fuori90((90 + Estratto(es,CA_,5)) - Estratto(es,RO_,5)),Fuori90(Estratto(es,BA_,3) *15))
Call ImpostaGiocata(2,n2,ruote,poste2,Durata,AMBO_)
Call Gioca(es,True,,1)
End If
Next
Call ScriviDistribuzioneEsiti(False) : Call ScriviDistribuzioneCasiInCorso(False)
Call ScriviResoconto()
End Sub

Perfetto, sei stato bravissimo ti ringrazio di cuore. Buona serata.