Listato Calcolo 2 Quando esce Ambata Spia su Ruota!

'Gioco dopo Numero spia (sean69)
'forum ramcolotto.it 13/10/2009
Sub main()
Dim rt(1),nu(1),ru(2),n3(3),ptt(3),rtt(1)
ptt(2)=1 : ptt(3)=1
rtt(1)=11

aa=CInt (InputBox("Digita Numero Spia ","NUMERO SPIA","88"))
nu(1)=aa

r1=CInt(InputBox ("Su che Ruota è uscita la Spia ?","RUOTA",6))
rt(1)=r1

rr=InputBox ("Digita le due ruote dove giocare la terzina(1=BA,2=CA...12=NZ)","RUOTE GIOCO","8.9")
rr="0."&rr
q=Split(rr,".")
ru(1)=CInt (q(1)) : ru(2)=CInt (q(2))

ts=CInt (InputBox ("Vuoi il gioco a TUTTE ? (1=SI ; 0=NO)","TUTTE",1))

clp=CInt (InputBox ("Per quanti colpi di gioco?","COLPI di GIOCO",9))

ww=InputBox ("Digita la Posizione e la Ruota su cui applicare i fissi sommativi!(ES: 1.7= 1^estr.di PA)","POS.-RUOTA","2.6")
ww="0."&ww
y=Split(ww,".")
p=CInt (y(1)) : r=CInt (y(2))

ff=InputBox ("Digita i 3 Fissi da sommare all'estratto scelto","FISSI","37.47.58")
ff="0."&ff
h=Split(ff,".")
f1=CInt (h(1)) : f2=CInt (h(2)) : f3=CInt (h(3))

ini=EstrazioneFin -226
co=0
For es=ini To EstrazioneFin
Messaggio es
If SerieFreq (es,es,nu,rt,1)>0 Then
co=co+1
a=Estratto (es,r,p)
n3(1)=Fuori90(a+f1) : n3(2)=Fuori90(a+f2) : n3(3)=Fuori90(a+f3)
Scrivi String (65,"=")&" Caso n°"&co
Scrivi DataEstrazione (es)&" "& SiglaRuota (rt(1))&" "& StringaEstratti (es,rt(1))&" NUM. Spia "& StringaNumeri (nu)
Scrivi "Sommiamo "&f1&","&f2&","&f3&" al "&p&"^ estr. di "& SiglaRuota (r)&"["&a&"]"
Scrivi "Giochiamo su "& SiglaRuota (ru(1))&" e "& SiglaRuota (ru(2))&" per "&clp&" colpi"
ImpostaGiocata 1,n3,ru,ptt,clp
If ts=1 Then
ImpostaGiocata 2,n3,rtt,ptt,clp
End If
Gioca es
End If
Next
ScriviResoconto

End Sub