L'AMBATA VERTICE - script

'PROGETTO - L'AMBATA VERTICE - BY FABARRI
'SCRIPT - BY ARETUSEO
Option Explicit
Sub Main
Dim Ini,Fin,Es,R1,R2,R3,A,B,C,D,P1,P2,P3
Dim Caso,Casi,Dist1,Dist2,Dist3,Dist4
Dim Diamc,Diamd,Clp,EsqCol,Esq,Col
Dim Ru1(2),Ru2(2),Posta(2),Amb1(2),Amb2(2)
Posta(1) = 1
Posta(2) = 1
Fin = EstrazioneFin
Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",,9000)'4497 primo esempio
Clp = InputBox("Per quanti colpi vuoi giocare l'ambo?",,7)
Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,1000))
EsqCol = Esq + Col
If EsqCol > Fin Then EsqCol = Fin
For Es = Esq To EsqCol
Messaggio Es
AvanzamentoElab Esq,EsqCol,Es
Messaggio Es
For R1 = 1 To 9
For P1 = 1 To 3
A = Estratto(Es,R1,P1)
P2 = P1 + 2
B = Estratto(Es,R1,P2)
R2 = R1 + 1
R3 = R1 - 1
If R3 <> BA_ - 1 Then
For P3 = 1 To 5
C = Estratto(Es,R2,P3)
D = Estratto(Es,R3,P3)
If P3 = P1 + 1 And P3 = P2 - 1 Then

Dist1 = Distanza(A,C)
Dist2 = Distanza(B,C)
Dist3 = Distanza(A,D)
Dist4 = Distanza(B,D)
If(Dist1 = Dist2) Xor(Dist3 = Dist4) Then
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 1
Scrivi String(89,"-") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 2
Scrivi String(80,"-") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
If Dist1 = Dist2 Then
Scrivi " " & SiglaRuota(R2) & " " & StringaEstratti(Es,R2),1
Scrivi
Scrivi Space(20) & " Posizioni " &(P1) & " " &(P3) & " " &(P2),1
Scrivi
Scrivi Space(30) & SiglaRuota(R1) & " " & Format2(A) & " " & Format2(B),1
Scrivi
Scrivi Space(30) & SiglaRuota(R2) & " " & Format2(C),1
Scrivi
Ru1(1) = R1
Ru1(2) = R2
Amb1(1) = C
Amb1(2) = Diametrale(C)
ImpostaGiocata 1,Amb1,Ru1,Posta,Clp
End If
If Dist3 = Dist4 Then
Scrivi " " & SiglaRuota(R3) & " " & StringaEstratti(Es,R3),1
Scrivi
Scrivi Space(20) & "Posizioni " &(P1) & " " &(P3) & " " &(P2),1
Scrivi
Scrivi Space(30) & SiglaRuota(R3) & " " & Format2(D),1
Scrivi
Scrivi Space(30) & SiglaRuota(R1) & " " & Format2(A) & " " & Format2(B),1
Scrivi
Ru2(1) = R1
Ru2(2) = R3
Amb2(1) = D
Amb2(2) = Diametrale(D)
ImpostaGiocata 1,Amb2,Ru2,Posta,Clp
End If
Gioca Es
End If
End If
Next
End If
Next
Next
Next
ScriviResoconto
Scrivi Space(50) & "PROGETTO - L'AMBATA VERTICE - BY FABARRI"
Scrivi Space(50) & "SCRIPT BY ARETUSEO"
End Sub