HTML
Sub main()
Dim ruote(2),ruota(1),posta(1),poste(4),num1(2),num2(3)
posta(1)=3:poste(2)=3:poste(3)=3
sp1=CInt(InputBox("1° numero spia?","1° numero spia",50))
sp2=CInt(InputBox("2° numero spia?","2° numero spia",10))
uni=CInt(InputBox("unite = 1"&Vblf&Vblf&"non unite = 2"&Vblf&Vblf&_
"tutte = 3","quali posizioni",1))
n1=CInt(InputBox("capogioco?","capogioco",11))
n2=CInt(InputBox("1° abbinamento?","1° abbinamento",45))
n3=CInt(InputBox("2° abbinamento?","2° abbinamento",44))
ce=CInt(InputBox("da quale estrazione vuoi controllare? ","controllo estrazioni",7800))
k=CInt(InputBox("quanti colpi di gioco? ","colpi di gioco",14))
ini=ce
fin=EstrazioneFin
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&DataEstrazione(es,1)
For r1=1 To 12
If r1=11 Then r1=12
For p1=1 To 4
a=Estratto(es,r1,p1)
For p2=p1+1 To 5
b=Estratto(es,r1,p2)
If (a=sp1 And b=sp2) Or (a=sp2 And b=sp1) Then
ok1=0
Select Case uni
Case 1 : If ((p2=p1+1) Or (p2=5 And p1=1)) Then ok1=1 'unite
Case 2 : If ((p2<>p1+1) And (p2<>5 Or p1<>1)) Then ok1=1 'non unite
Case 3 : If p1=p1 And p2=p2 Then ok1=1 'tutte
End Select
If ok1=1 Then
casi=casi+1:Scrivi String(52,"=")&" script by maxma62",1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&stringaestratti(es,r1)&_
" ] [ "&format2(a)&"."&format2(b)&" ] in "&(p1)&"^/"&(p2)&"^ pos."
Scrivi String(58,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:ruota(1)=11:co=0
num1(1)=n1
co=co+1
ImpostaGiocata co,num1,ruote,posta,k
num2(1)=n1:num2(2)=n2:num2(3)=n3
co=co+1
ImpostaGiocata co,num2,ruote,poste,k
Gioca es
End If
End If
Next:Next:next:next
ScriviResoconto
End Sub
