Sub Main()
Scrivi " Metodo Semestrale delle Spie --*-- per Missione 2 --*-- by Pandit --*-- ",1,- 1,4
Scrivi
Dim poste(5),n(6),Ru(4)
Dim R(3),posta(5)
Dim n1(3),r1,p1
poste(1) = 1
posta(2) = 1
'poste(3) = 0.50
ini = EstrazioneFin - 1530
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
If IndiceMensile(Es) = 1 Then
'***
For r1 = 1 To 1
For p1 = 1 To 1
a = Estratto(es,r1,p1)
ok = 0
n1(1) = Fuori90(a + 54)
n1(2) = Fuori90(Vert(n1(1)))
ok = 1
'***
n(1) = n1(1)
n(2) = 90 -(n1(1))
n(3) = 90 -(n(4))
n(4) = n1(2)
EliminaRipetuti n
'***
R(1) = 1:R(2) = 10:R(3) = 7
Ru(1) = 7:Ru(2) = 1:Ru(3) = 10:Ru(4) = 11
If ok = 1 Then
co = co + 1
ColoreTesto 1
Scrivi String(60,"-") & " Caso n°" & Co,1
ColoreTesto 0
Scrivi(" n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(r1) & " ",1,0
ImpostaGiocata 1,n1,R,poste,15',1
ImpostaGiocata 2,n,Ru,posta,15
Gioca es,1
End If
Next
Next
End If
Next
ScriviResoconto
End Sub