Un paio di Script (Metodi Sommativi)
Per "Ambo Secco a Tutte"
Alcuni sono ancora in corso,
Altri bisogna fare i calcoli, buon divertimento...
Scrivi : Scrivi "Alla 6°estrazione del mese giochiamo 1 Ambo Secco su TUTTE le Ruote""By Blackmore"
Sub main()
Dim n1(2),n2(2),pt(2),rt(2),nn(2),pta(2)
pt(2)=2
pta(2)=2
clp=8 'colpi di gioco
rt(1)=11 '1a ruota di gioco
ini=EstrazioneFin -130
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es)=6 Then '1a estrazione del mese
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
'<<-- (help)Sintassi Estratto(estrazione, ruota, Posizione,[tipogioco=0])
a=Estratto(es,3,2)'<<--- questo è il 2^estr. di Firenze!!!
'------------------------------Ambo
nn(1)=Fuori90 (a+56)
nn(2)=Fuori90 (a+85)
ImpostaGiocata 1,nn,rt,pta,clp,2
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto
End Sub
Blackmore