Script

[DjNomade]

Salvo errori.....

'https://www.youtube.com/watch?v=a-juE5qi8rs
'21-07-2024


ColoreTesto 2 :Scrivi String(17,32)&"  LA MUMMIA 3  by Salvo Badessa",1



ColoreTesto 0


Sub main()
Dim nu1(10),nu2(10),nu3(3),nu4(10),am(2),am3(3),am4(5)
Dim ruote(10),ruota(10)
Dim poste(5),posta(10),poste2(5),poste3(5)

poste(2)=1
poste2(2)=1
poste2(3)=1
poste3(2)=1.20
poste3(3)=1.40
poste3(4)=.40
z=CInt(InputBox ("Quante estrazione controllare?","estrazioni",100))
k=CInt(InputBox ("Quanti colpi di Gioco?","colpi di Gioco",12))
fin=EstrazioneFin
ini=fin-z
For es=ini To fin
Messaggio DataEstrazione (es,1)&"  LA MUMMIA 3  by Salvo Badessa   "


For r1=1 To 12
If r1=11 Then r1=12
For p1=1 To 4
For p2=p1+1 To 5

n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2)
n11=Estratto(es,r1,p1+1)
If (Distanza(n1,n2)=1 Or Distanza(n1,n2)=2) And  Distanza(p1,p2)=2 Then


For r2=1 To 12
If r2=11 Then r2=12
For p3=1 To 5
If r1<>r2 Then
n3=Estratto(es,r2,p3)
If ((Distanza(n3,n1)=1 And Distanza(n3,n2)=2)Or (Distanza(n3,n1)=2 And Distanza(n3,n2)=1)Or (Distanza(n3,n1)=1 And Distanza(n3,n2)=1)) And n3<>n1 And n3<>n2 And (p3=p1+1)Then

If (Distanza(n1,n2)=1 And (Distanza(n3,n1)=1 And Distanza(n3,n2)=2)Or (Distanza(n3,n1)=2 And Distanza(n3,n2)=1)) Then n4=n11-1:n5=Vert(n4):n6=n4-1:n7=Vert(n6)
If Distanza(n1,n2)=2  And Distanza(n3,n1)=1 And Distanza(n3,n2)=1 Then n4=n11-2:n5=Vert(n4):n6=n4-1:n7=Vert(n6)

If (n4=n6 And n5=n7) Or (n4=n7 And n5=n6) Then n6=n11:n7=Vert(n6) 






casi=casi+1:Scrivi String(75,"="),1
Scrivi String(65,"-")&" caso n° "&(casi),1
Scrivi
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)& "    "&Format2(n1)& "    "&Format2(n2),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r2)& " "& StringaEstratti(es,r2)& "       "&Format2(n3),1

Scrivi
ruota(1)=r1:ruota(2)=r2:ruota(3)=11:ruota(4)=12
ruote(1)=r1:ruote(2)=r2:co=0

Erase posta
posta(1)=1
posta(2)=1
posta(p3+5)=1



am(1)=n4
am(2)=n5
ImpostaGiocata 1,am,ruote,posta,k
am(1)=n6
am(2)=n7
ImpostaGiocata 2,am,ruote,posta,k

am4(1)=n4
am4(2)=n5
am4(3)=n6
am4(4)=n7
ImpostaGiocata 3,am4,ruota,poste3,k
Gioca es
ColoreTesto 2
Scrivi "      AMBETTI   ",1
ColoreTesto 0
am3(1)=n4
am3(2)=Fuori90(n5+1)

ImpostaGiocata 4,am3,ruota,poste,k
am3(1)=n4
am3(2)=Fuori90(90+n5-1)

ImpostaGiocata 5,am3,ruota,poste,k
am3(1)=Fuori90(n4+1)
am3(2)=n5
ImpostaGiocata 6,am3,ruota,poste,k
am3(1)=Fuori90(90+n4-1)
am3(2)=n5
ImpostaGiocata 7,am3,ruota,poste,k

am3(1)=n6
am3(2)=Fuori90(n7+1)
ImpostaGiocata 8,am3,ruota,poste,k
am3(1)=n6
am3(2)=Fuori90(90+n7-1)
ImpostaGiocata 9,am3,ruota,poste,k
am3(1)=Fuori90(n6+1)
am3(2)=n7
ImpostaGiocata 10,am3,ruota,poste,k
am3(1)=Fuori90(90+n6-1)
am3(2)=n7
ImpostaGiocata 11,am3,ruota,poste,k
Gioca es
End If
End If
Next
Next
End If
Next
Next
Next
Next
ScriviResoconto
End Sub