Sub Main()
Dim k(10),ab(2),ab1(7)
Dim rt(4),rtt(4),ruote(2)
Dim pt(5),ptt(5)
pt(1) = 1 : ptt(2) = 1: ptt(3) = 1 : clp = 13
ini = EstrazioneFin - 100
co = 0
For es = ini To EstrazioneFin
Messaggio(es)
For r = 1 To 10
rt(1) = r : rtt(1) = r
For p1 = 1 To 5
n1 = Estratto(es,r,p1)
For r1 = r + 1 To 12
If r1 = 11 Then r1 = 12
rt(2) = r1 : rtt(2) = r1
ruote(1) = 11:ruote(2) = 12
n2 = Estratto(es,r1,p1)
If(n1) =(n2)Then
co = co + 1
Scrivi String(70,"=")
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & ""
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " "
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & "-" & SiglaRuota(r1) & _
" Numero isotopo " & n1 & "-" & n2 & " estratto al " & p1 & "° posto",1
Scrivi
ab(1) = Fuori90(n1 + 1)
ab(2) = Vert(ab(1))
ImpostaGiocata 1,ab,rtt,pt,clp
ab1(1) = Fuori90(n1 + 1)
ab1(2) = Vert(ab1(1))
ab1(3) = Figura(ab1(1))
ab1(4) = Fuori90(ab1(3) + 1)
ab1(5) = Fuori90(ab1(4) + 4)
ab1(6) = Fuori90(ab1(5) + 4)
ab1(7) = Diametrale(ab1(1))
ImpostaGiocata 2,ab1,rtt,ptt,clp
ImpostaGiocata 3,ab1,ruote,ptt,clp
Gioca es
End If
Next
Next
Next
Next
ScriviResoconto
End Sub |
|
IL SEGRETO DEL MONACO DI SAN FERDINANDO
Spedito - 29 dicembre 2014 : 12:20:39
