HTML
Sub main()
Dim num1(2),num2(5),ruote(4),ruota(1),posta(1),poste(3),pstd(10)
posta(1)=5:poste(2)=5
Scrivi "ambata certa di p_carta (script by maxma62)",1
Scrivi String(72,"=")
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8200) '8264
k=InputBox ("per quanti colpi?","colpi di gioco",14)
ini=ce
fin=EstrazioneFin
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)",1
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&_
DataEstrazione(es,1)
For r1=1 To 9
For p1=1 To 5
a=Estratto(es,r1,p1)
For r2=r1+1 To 10
For p2=1 To 5
b=Estratto(es,r2,p2)
For r3=r2+1 To 12
If r3=11 Then r3=12
For p3=1 To 5
c=Estratto(es,r3,p3)
If b=a And b=c Then
For r4=1 To 12
If r4=11 Then r4=12
If r4<>r3 And r4<>r2 And r4<>r1 Then
For p4=1 To 5
d=Estratto(es,r4,p4)
If d=Diametrale(c) Then
If p4=p1 Or p4=p2 Or p4=p3 Then
nu1=a:nu2=d
'------------------------------
n1=nu1
If n1<10 And Cadenza(n1)>0 And Cadenza(n1)<6 Then a1=(6)-n1
If n1<10 And Cadenza(n1)>5 Then a1=(15)-n1
If n1>9 And Cadenza(n1)>0 And Cadenza(n1)<6 Then a1=Fuori90((90+66)-n1)
If n1>9 And Cadenza(n1)>5 Then a1=Fuori90((90+75)-n1)
If n1>9 And Cadenza(n1)=0 Then a1=Fuori90((90+66)-n1) : b1=Fuori90((90+60)-n1)
'------------------------------
n2=nu2
If n2<10 And Cadenza(n2)>0 And Cadenza(n2)<6 Then a2=(6)-n2
If n2<10 And Cadenza(n2)>5 Then a2=(15)-n2
If n2>9 And Cadenza(n2)>0 And Cadenza(n2)<6 Then a2=Fuori90((90+66)-n2)
If n2>9 And Cadenza(n2)>5 Then a2=Fuori90((90+75)-n2)
If n2>9 And Cadenza(n2)=0 Then a2=Fuori90((90+66)-n2) : b2=Fuori90((90+60)-n2)
'------------------------------
nm1=a1:nm2=a2
If n1>9 And Cadenza(n1)=0 Then nm5=b1
If n2>9 And Cadenza(n2)=0 Then nm5=b2
casi=casi+1:Scrivi String(54,"=")&" script by maxma62",1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&StringaEstratti(es,r1)&_
" ] "&Format2(a)&" in "&(p1)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" - "&StringaEstratti(es,r2)&_
" ] "&Format2(b)&" in "&(p2)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r3)&" - "&StringaEstratti(es,r3)&_
" ] "&Format2(c)&" in "&(p3)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r4)&" - "&StringaEstratti(es,r4)&_
" ] "&Format2(d)&" in "&(p4)&"^ pos."
Scrivi String(60,"-")&" caso n° "&Format2(casi)
If n1>9 And Cadenza(n1)=0 Then Scrivi "con "&Format2(n1)&" numero da giocare "&format2(a1)&_
" pił facoltativo "&format2(b1) Else Scrivi "con "&Format2(n1)&" numero da giocare "&format2(a1)
If n2>9 And Cadenza(n2)=0 Then Scrivi "con "&Format2(n2)&" numero da giocare "&format2(a2)&_
" pił facoltativo "&format2(b2) Else Scrivi "con "&Format2(n2)&" numero da giocare "&format2(a2)
Scrivi String(70,"-")
ruote(1)=r1:ruote(2)=r2:ruote(3)=r3:ruote(4)=r4:ruota(1)=11:cg=0
num1(1)=a1:num1(2)=a2
cg=cg+1
ImpostaGiocata cg,num1,ruote,posta,k,0
pstd(p1+5)=1
cg=cg+1
ImpostaGiocata cg,num1,ruote,pstd,k,0
Erase pstd
pstd(p2+5)=1
cg=cg+1
ImpostaGiocata cg,num1,ruote,pstd,k,0
Erase pstd
pstd(p3+5)=1
cg=cg+1
ImpostaGiocata cg,num1,ruote,pstd,k,0
Erase pstd
cg=cg+1
ImpostaGiocata cg,num1,ruote,poste,k,0
cg=cg+1
ImpostaGiocata cg,num1,ruota,poste,k,0
Gioca es
End If
End If
Next
End If
Next
End If
Next:Next
Next:Next
Next:Next
Next:Scrivi String(54,"=")&" script by maxma62",1
ScriviResoconto
Scrivi "ambata certa di p_carta (script by maxma62)",1
End Sub
