Ora dovrebbe andare.....
ColoreTesto 2
Scrivi String(45,"=")&"** SPIA 22-33-55 by Sean69**",1
ColoreTesto 0
Scrivi
Scrivi
Scrivi
ColoreTesto 2
Scrivi String(45,"-")&"listato by DjNomade. ",1
ColoreTesto 0
Sub main()
Dim am(1),ambi(2),ci(6),nn(3),ru(2),ru1(2),pos1(1),pos2(2),pos3(5)
pos1(1)=1:pos2(2)=1:pos3(2)=1 :pos3(3)=0.80:pos3(4)=0.15:pos3(5)=0.05
nn(1)=1
nn(2)=35
nn(3)=5
ci(1)=32
ci(2)=33
ci(3)=45
ci(4)=48
ci(5)=37
ci(6)=55
fin=EstrazioneFin
ini=fin-280
For es = ini To fin:messaggio(es)
For r=1 To 11
If r=11 Then r=12
ru(1)=r
ru1(1)=11
For p=1 To 4
For pp=p+1 To 5
a=Estratto(es,r,p)
b=Estratto(es,r,pp)
For r1=1 To 11
If r1=11 Then r1=12
ru(2)=r1
For p1=1 To 5
c=Estratto(es,r1,p1)
If r<>r1 Then
'If a>0 And b>0 And c>0 Then
If ( a=22 And b=55 And c=33 And (p1<>p Or p1<>pp)) Or ( a=55 And b=22 And c=33 And (p1<>p Or p1<>pp )) Or ( a=22 And b=33 And c=55 And (p1<>p Or p1<>pp) )Or( a=33 And b=22 And c=55 And (p1<>p Or p1<>pp))Or ( a=55 And b=33 And c=22 And (p1<>p Or p1<>pp) ) Or ( a=33 And b=55 And c=22 And (p1<>p Or p1<>pp)) Then
Scrivi es&" "&siglaruota(r)&" "&format2(a)&" "&format2(b)&" "&siglaruota(r1)&" "&format2(c)
'co=co+1
ambi(1)=1
ambi(2)=35
ImpostaGiocata 1,ambi,ru,pos2,13,2
'co=co+1
ImpostaGiocata 2,ambi,ru1,pos2,13,2
'co=co+1
ambi(1)=5
ambi(2)=32
ImpostaGiocata 3,ambi,ru,pos2,13,2
'co=co+1
ImpostaGiocata 4,ambi,ru1,pos2,13,2
'co=co+1
ambi(1)=33
ambi(2)=45
ImpostaGiocata 5,ambi,ru,pos2,13,2
'co=co+1
ImpostaGiocata 6,ambi,ru1,pos2,13,2
co=co+1
ambi(1)=35
ambi(2)=48
ImpostaGiocata 7,ambi,ru,pos2,13,2
'co=co+1
ImpostaGiocata 8,ambi,ru1,pos2,13,2
'co=co+1
ambi(1)=37
ambi(2)=55
ImpostaGiocata 9,ambi,ru,pos2,13,2
'co=co+1
ImpostaGiocata 10,ambi,ru1,pos2,13,2
Gioca es
End If
End If
'End If
Next
Next
Next
Next
Next
Next
ScriviResoconto
ColoreTesto 2
Scrivi String(45,"=")&"** SPIA 22-33-55 by Sean69**",1
ColoreTesto 0
Scrivi
Scrivi
Scrivi
ColoreTesto 2
Scrivi String(45,"-")&"listato by DjNomade. ",1
ColoreTesto 0
End Sub