Hai ragione Dj, ci dev'essere un errore nell'archivio estrazioni del mio programma, dovrò controllarlo, Artemisio, lo script è rudimentale, ho modificato uno che già avevo per cinquina, d'altronde io non sono bravo come Dj, comunque l'importante è che funzioni.....
Scrivi : ColoreTesto 2 : Scrivi "ALLA 1°DEL MESE: NAPOLI-La capitale della cinquina di S.PACI"
Sub main()
Dim rt(1),pt(5)
Dim n1(10)
pt(2)=1
pt(3)=0.90
pt(4)=0.05
pt(5)=0.05
clp=10 'colpi di gioco
rt(1)=6 '1a ruota di gioco
ini=EstrazioneFin -2000
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es)= 1 Then 'Prima estrazione del mese
Scrivi String (60,"=")
co=co+1
a=Estratto (es,6,3)
b=Estratto (es,3,3)
c=Estratto (es,5,5)
d=Estratto (es,9,1)
e=Estratto (es,5,1)
'------------------------------Novina
n1(1)=Fuori90 (a+10)
n1(2)=Fuori90 (a+26)
n1(3)=Fuori90 (a+46)
n1(4)=Fuori90 (a+74)
n1(5)=Fuori90 (b+21)
n1(6)=Fuori90 (c+16)
n1(7)=Fuori90 (d+46)
n1(8)=Fuori90 (d+82)
n1(9)=Fuori90 (e+5)
ImpostaGiocata 1,n1,rt,pt,clp
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto
End Sub
Blackmore